16 lines
326 B
Text
16 lines
326 B
Text
import Lean
|
|
|
|
@[inline] def pred? (x : Nat) : Option Nat :=
|
|
match x with
|
|
| 0 => none
|
|
| x+1 => some x
|
|
|
|
def isZero (x : Nat) :=
|
|
match pred? x with
|
|
| some _ => false
|
|
| none => true
|
|
|
|
#eval Lean.Compiler.compile #[``isZero]
|
|
|
|
-- set_option trace.Compiler.simp true -- TODO: uncomment
|
|
#eval Lean.Compiler.compile #[``isZero]
|