66bc9ae177
This PR deprecates `levelZero` in favor of `Level.zero` and `levelOne`
in favor of the new `Level.one`, and updates all usages throughout the
codebase. The `levelZero` alias was previously required for computed
field `data` to work, but this is no longer needed.
🤖 Prepared with Claude Code
24 lines
643 B
Text
24 lines
643 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 [Level.zero])
|