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
26 lines
611 B
Text
26 lines
611 B
Text
import Lean
|
||
open Lean
|
||
|
||
@[noinline] def noinline (a : α) := a
|
||
|
||
#eval
|
||
let b := Level.zero
|
||
let a1 := mkLevelParam `a
|
||
let a2 := mkLevelParam (noinline `a)
|
||
let l := mkLevelMax a1 b
|
||
(l.updateMax! a1 b).isMax == (l.updateMax! a2 b).isMax
|
||
|
||
#eval
|
||
let b := Level.zero
|
||
let a1 := mkLevelParam `a
|
||
let l := mkLevelMax a1 b
|
||
assert! (l.updateMax! a1 b) == a1
|
||
toString (l.updateMax! a1 b)
|
||
|
||
#eval
|
||
let b := mkLevelParam `b
|
||
let a1 := mkLevelParam `a
|
||
let l := mkLevelMax a1 b
|
||
assert! (l.updateMax! a1 b) == l
|
||
assert! ptrAddrUnsafe (l.updateMax! a1 b) == ptrAddrUnsafe l
|
||
toString (l.updateMax! a1 b)
|