105 lines
3.9 KiB
C
105 lines
3.9 KiB
C
|
/*
|
||
|
|
Copyright (c) 2014 Microsoft Corporation. All rights reserved.
|
||
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
||
|
|
|
||
|
|
Author: Leonardo de Moura
|
||
|
|
*/
|
||
|
|
#pragma once
|
||
|
|
#include "util/name_map.h"
|
||
|
|
#include "kernel/expr.h"
|
||
|
|
|
||
|
|
namespace lean {
|
||
|
|
/** \brief Mapping from metavariable names to metavariable applications (?M ...) */
|
||
|
|
typedef name_map<expr> mvar2meta;
|
||
|
|
|
||
|
|
/** \brief Auxiliary data-structure for storing the local context,
|
||
|
|
and creating metavariables in the scope of the local context efficiently
|
||
|
|
*/
|
||
|
|
class local_context {
|
||
|
|
name_generator & m_ngen;
|
||
|
|
mvar2meta & m_mvar2meta;
|
||
|
|
list<expr> m_ctx; // current local context: a list of local constants
|
||
|
|
buffer<expr> m_ctx_buffer; // m_ctx as a buffer
|
||
|
|
buffer<expr> m_ctx_domain_buffer; // m_ctx_domain_buffer[i] == abstract_locals(m_ctx_buffer[i], i, m_ctx_buffer.beg
|
||
|
|
public:
|
||
|
|
local_context(name_generator & ngen, mvar2meta & m, list<expr> const & ctx);
|
||
|
|
|
||
|
|
void set_ctx(list<expr> const & ctx);
|
||
|
|
|
||
|
|
/** \brief Given <tt>e[l_1, ..., l_n]</tt> and assuming \c m_ctx is
|
||
|
|
<tt>[l_n : A_n[l_1, ..., l_{n-1}], ..., l_1 : A_1 ]</tt>,
|
||
|
|
then the result is
|
||
|
|
<tt>(Pi (x_1 : A_1) ... (x_n : A_n[x_1, ..., x_{n-1}]), e[x_1, ... x_n])</tt>.
|
||
|
|
*/
|
||
|
|
expr pi_abstract_context(expr e, tag g);
|
||
|
|
|
||
|
|
/** \brief Assuming \c m_ctx is
|
||
|
|
<tt>[l_n : A_n[l_1, ..., l_{n-1}], ..., l_1 : A_1 ]</tt>,
|
||
|
|
return <tt>(f l_1 ... l_n)</tt>.
|
||
|
|
*/
|
||
|
|
expr apply_context(expr const & f, tag g);
|
||
|
|
|
||
|
|
/** \brief Assuming \c m_ctx is
|
||
|
|
<tt>[l_n : A_n[l_1, ..., l_{n-1}], ..., l_1 : A_1 ]</tt>,
|
||
|
|
return a fresh metavariable \c ?m with type
|
||
|
|
<tt>(Pi (x_1 : A_1) ... (x_n : A_n[x_1, ..., x_{n-1}]), Type.{?u})</tt>,
|
||
|
|
where \c ?u is a fresh universe metavariable.
|
||
|
|
*/
|
||
|
|
expr mk_type_metavar(tag g);
|
||
|
|
|
||
|
|
/** \brief Assuming \c m_ctx is
|
||
|
|
<tt>[l_n : A_n[l_1, ..., l_{n-1}], ..., l_1 : A_1 ]</tt>,
|
||
|
|
return <tt>(?m l_1 ... l_n)</tt> where \c ?m is a fresh metavariable with type
|
||
|
|
<tt>(Pi (x_1 : A_1) ... (x_n : A_n[x_1, ..., x_{n-1}]), Type.{?u})</tt>,
|
||
|
|
and \c ?u is a fresh universe metavariable.
|
||
|
|
|
||
|
|
\remark The type of the resulting expression is <tt>Type.{?u}</tt>
|
||
|
|
*/
|
||
|
|
expr mk_type_meta(tag g);
|
||
|
|
|
||
|
|
/** \brief Given <tt>type[l_1, ..., l_n]</tt> and assuming \c m_ctx is
|
||
|
|
<tt>[l_n : A_n[l_1, ..., l_{n-1}], ..., l_1 : A_1 ]</tt>,
|
||
|
|
then the result is a fresh metavariable \c ?m with type
|
||
|
|
<tt>(Pi (x_1 : A_1) ... (x_n : A_n[x_1, ..., x_{n-1}]), type[x_1, ... x_n])</tt>.
|
||
|
|
If <tt>type</tt> is none, then the result is a fresh metavariable \c ?m1 with type
|
||
|
|
<tt>(Pi (x_1 : A_1) ... (x_n : A_n[x_1, ..., x_{n-1}]), ?m2 x1 .... xn)</tt>,
|
||
|
|
where ?m2 is another fresh metavariable with type
|
||
|
|
<tt>(Pi (x_1 : A_1) ... (x_n : A_n[x_1, ..., x_{n-1}]), Type.{?u})</tt>,
|
||
|
|
and \c ?u is a fresh universe metavariable.
|
||
|
|
*/
|
||
|
|
expr mk_metavar(optional<expr> const & type, tag g);
|
||
|
|
|
||
|
|
/** \brief Given <tt>type[l_1, ..., l_n]</tt> and assuming \c m_ctx is
|
||
|
|
<tt>[l_n : A_n[l_1, ..., l_{n-1}], ..., l_1 : A_1 ]</tt>,
|
||
|
|
return (?m l_1 ... l_n), where ?m is a fresh metavariable
|
||
|
|
created using \c mk_metavar.
|
||
|
|
|
||
|
|
\see mk_metavar
|
||
|
|
*/
|
||
|
|
expr mk_meta(optional<expr> const & type, tag g);
|
||
|
|
|
||
|
|
void add_local(expr const & l);
|
||
|
|
|
||
|
|
list<expr> const & get_data() const;
|
||
|
|
|
||
|
|
/** \brief Scope object for restoring the content of the context */
|
||
|
|
class scope {
|
||
|
|
local_context & m_main;
|
||
|
|
list<expr> m_old_ctx;
|
||
|
|
unsigned m_old_sz;
|
||
|
|
public:
|
||
|
|
scope(local_context & main);
|
||
|
|
~scope();
|
||
|
|
};
|
||
|
|
|
||
|
|
/** \brief Scope object for temporarily replacing the content of the context */
|
||
|
|
class scope_replace {
|
||
|
|
local_context & m_main;
|
||
|
|
list<expr> m_saved;
|
||
|
|
public:
|
||
|
|
scope_replace(local_context & main, list<expr> const & new_ctx);
|
||
|
|
~scope_replace();
|
||
|
|
};
|
||
|
|
};
|
||
|
|
}
|