23 lines
380 B
Text
23 lines
380 B
Text
def foo (n : Nat) : Nat :=
|
|
if n = 0 then 0 else
|
|
let x := n - 1
|
|
have := match () with | _ => trivial
|
|
foo x
|
|
termination_by n
|
|
decreasing_by sorry
|
|
|
|
theorem ex : foo 0 = 0 := by
|
|
unfold foo
|
|
sorry
|
|
|
|
/--
|
|
info: foo.def (n : Nat) :
|
|
foo n =
|
|
if n = 0 then 0
|
|
else
|
|
let x := n - 1;
|
|
let_fun this := foo.proof_4;
|
|
foo x
|
|
-/
|
|
#guard_msgs in
|
|
#check foo.def
|