fd926cc44e
This PR cleans up `optParam`/`autoParam`/etc. annotations before elaborating definition bodies, theorem bodies, `fun` bodies, and `let` function bodies. Both `variable`s and binders in declaration headers are supported. There are no changes to `inductive`/`structure`/`axiom`/etc. processing, just `def`/`theorem`/`example`/`instance`.
24 lines
642 B
Text
24 lines
642 B
Text
import Lean
|
||
|
||
open Lean
|
||
open Lean.Meta
|
||
|
||
def test (f : Expr) : MetaM Unit := do
|
||
let some thm ← mkCongrSimp? f | unreachable!
|
||
check thm.type
|
||
check thm.proof
|
||
assert! (← isDefEq thm.type (← inferType thm.proof))
|
||
IO.println (← Meta.ppExpr thm.type)
|
||
|
||
/--
|
||
info: ∀ (p p_1 : Prop), p = p_1 → ∀ {h : Decidable p} [h_1 : Decidable p_1], decide p = decide p_1
|
||
-/
|
||
#guard_msgs in
|
||
#eval test (mkConst ``decide)
|
||
|
||
/--
|
||
info: ∀ {α : Type} (xs xs_1 : Array α) (e_xs : xs = xs_1) (i i_1 : USize) (e_i : i = i_1) (h : i.toNat < xs.size),
|
||
xs.uget i h = xs_1.uget i_1 ⋯
|
||
-/
|
||
#guard_msgs in
|
||
#eval test (mkConst ``Array.uget [levelZero])
|