572751c56e
Before this commit, we were inferring whether an inductive/structure/class were meta or not. This was bad since the user had no clue whether the type was trusted (non meta) or not. Moreover, users could get confused by this behavior and assume the kernel was allowing trusted code to rely on untrusted one.
186 lines
5.4 KiB
Text
186 lines
5.4 KiB
Text
/-
|
||
Copyright (c) 2016 Microsoft Corporation. All rights reserved.
|
||
Released under Apache 2.0 license as described in the file LICENSE.
|
||
Authors: Leonardo de Moura
|
||
-/
|
||
prelude
|
||
import init.meta.level
|
||
|
||
inductive binder_info
|
||
| default | implicit | strict_implicit | inst_implicit | other
|
||
|
||
meta constant macro_def : Type
|
||
|
||
/- Reflect a C++ expr object. The VM replaces it with the C++ implementation. -/
|
||
meta inductive expr
|
||
| var : unsigned → expr
|
||
| sort : level → expr
|
||
| const : name → list level → expr
|
||
| mvar : name → expr → expr
|
||
| local_const : name → name → binder_info → expr → expr
|
||
| app : expr → expr → expr
|
||
| lam : name → binder_info → expr → expr → expr
|
||
| pi : name → binder_info → expr → expr → expr
|
||
| elet : name → expr → expr → expr → expr
|
||
| macro : macro_def → ∀ n : unsigned, (fin (unsigned.to_nat n) → expr) → expr
|
||
|
||
meta instance : inhabited expr :=
|
||
⟨expr.sort level.zero⟩
|
||
|
||
meta constant expr.mk_macro (d : macro_def) : list expr → expr
|
||
meta definition expr.mk_var (n : nat) : expr :=
|
||
expr.var (unsigned.of_nat n)
|
||
|
||
meta constant expr.has_decidable_eq : decidable_eq expr
|
||
attribute [instance] expr.has_decidable_eq
|
||
|
||
meta constant expr.alpha_eqv : expr → expr → bool
|
||
notation a ` =ₐ `:50 b:50 := expr.alpha_eqv a b = bool.tt
|
||
|
||
meta constant expr.to_string : expr → string
|
||
|
||
meta instance : has_to_string expr :=
|
||
has_to_string.mk expr.to_string
|
||
|
||
meta constant expr.hash : expr → nat
|
||
|
||
meta constant expr.lt : expr → expr → bool
|
||
meta constant expr.lex_lt : expr → expr → bool
|
||
meta definition expr.cmp (a b : expr) : ordering :=
|
||
if expr.lt a b = bool.tt then ordering.lt
|
||
else if a = b then ordering.eq
|
||
else ordering.gt
|
||
|
||
meta constant expr.fold {A : Type} : expr → A → (expr → unsigned → A → A) → A
|
||
|
||
meta constant expr.abstract_local : expr → name → expr
|
||
meta constant expr.abstract_locals : expr → list name → expr
|
||
|
||
meta constant expr.instantiate_var : expr → expr → expr
|
||
meta constant expr.instantiate_vars : expr → list expr → expr
|
||
|
||
meta constant expr.has_var : expr → bool
|
||
meta constant expr.has_var_idx : expr → nat → bool
|
||
meta constant expr.has_local : expr → bool
|
||
meta constant expr.has_meta_var : expr → bool
|
||
meta constant expr.lift_vars : expr → nat → nat → expr
|
||
meta constant expr.lower_vars : expr → nat → nat → expr
|
||
|
||
namespace expr
|
||
open decidable
|
||
|
||
meta definition app_of_list : expr → list expr → expr
|
||
| f [] := f
|
||
| f (p::ps) := app_of_list (expr.app f p) ps
|
||
|
||
meta definition is_app : expr → bool
|
||
| (app f a) := tt
|
||
| e := ff
|
||
|
||
meta definition app_fn : expr → expr
|
||
| (app f a) := f
|
||
| a := a
|
||
|
||
meta definition app_arg : expr → expr
|
||
| (app f a) := a
|
||
| a := a
|
||
|
||
meta definition get_app_fn : expr → expr
|
||
| (app f a) := get_app_fn f
|
||
| a := a
|
||
|
||
meta definition get_app_num_args : expr → nat
|
||
| (app f a) := get_app_num_args f + 1
|
||
| e := 0
|
||
|
||
meta definition get_app_args_aux : list expr → expr → list expr
|
||
| r (app f a) := get_app_args_aux (a::r) f
|
||
| r e := r
|
||
|
||
meta definition get_app_args : expr → list expr :=
|
||
get_app_args_aux []
|
||
|
||
meta definition const_name : expr → name
|
||
| (const n ls) := n
|
||
| e := name.anonymous
|
||
|
||
meta definition is_constant : expr → bool
|
||
| (const n ls) := tt
|
||
| e := ff
|
||
|
||
meta definition is_local_constant : expr → bool
|
||
| (local_const n m bi t) := tt
|
||
| e := ff
|
||
|
||
meta definition local_uniq_name : expr → name
|
||
| (local_const n m bi t) := n
|
||
| e := name.anonymous
|
||
|
||
meta definition local_pp_name : expr → name
|
||
| (local_const x n bi t) := n
|
||
| e := name.anonymous
|
||
|
||
meta definition is_constant_of : expr → name → bool
|
||
| (const n₁ ls) n₂ := to_bool (n₁ = n₂)
|
||
| e n := ff
|
||
|
||
meta definition is_app_of (e : expr) (n : name) : bool :=
|
||
is_app e && is_constant_of (get_app_fn e) n
|
||
|
||
meta definition is_false (e : expr) : bool :=
|
||
is_constant_of e `false
|
||
|
||
meta definition is_not : expr → option expr
|
||
| (app f a) := if is_constant_of f `not then some a else none
|
||
| (pi n bi a b) := if is_false b then some a else none
|
||
| e := none
|
||
|
||
meta definition is_eq (e : expr) : option (expr × expr) :=
|
||
if is_app_of e `eq ∧ get_app_num_args e = 3
|
||
then some (app_arg (app_fn e), app_arg e)
|
||
else none
|
||
|
||
meta definition is_ne (e : expr) : option (expr × expr) :=
|
||
if is_app_of e `ne ∧ get_app_num_args e = 3
|
||
then some (app_arg (app_fn e), app_arg e)
|
||
else none
|
||
|
||
meta definition is_heq (e : expr) : option (expr × expr × expr × expr) :=
|
||
if is_app_of e `heq ∧ get_app_num_args e = 4
|
||
then some (app_arg (app_fn (app_fn (app_fn e))),
|
||
app_arg (app_fn (app_fn e)),
|
||
app_arg (app_fn e),
|
||
app_arg e)
|
||
else none
|
||
|
||
meta definition is_pi : expr → bool
|
||
| (pi n bi d b) := tt
|
||
| e := ff
|
||
|
||
meta definition is_let : expr → bool
|
||
| (elet n t v b) := tt
|
||
| e := ff
|
||
|
||
meta definition binding_name : expr → name
|
||
| (pi n m d b) := n
|
||
| (lam n m d b) := n
|
||
| e := name.anonymous
|
||
|
||
meta definition binding_info : expr → binder_info
|
||
| (pi n bi d b) := bi
|
||
| (lam n bi d b) := bi
|
||
| e := binder_info.default
|
||
|
||
meta definition binding_domain : expr → expr
|
||
| (pi n bi d b) := d
|
||
| (lam n bi d b) := d
|
||
| e := e
|
||
|
||
meta definition binding_body : expr → expr
|
||
| (pi n bi d b) := b
|
||
| (lam n bi d b) := b
|
||
| e := e
|
||
|
||
meta definition prop : expr := expr.sort level.zero
|
||
|
||
end expr
|