16 lines
312 B
Text
16 lines
312 B
Text
module
|
|
@[expose] public section -- TODO: remove after we fix congr_eq
|
|
|
|
def f (a : Option Nat) (h : a ≠ none) : Nat :=
|
|
match a with
|
|
| some a => a
|
|
| none => by grind
|
|
|
|
def g (a : Option Nat) : Nat :=
|
|
match h : a with
|
|
| none => 1
|
|
| some _ => f a (by grind) + 1
|
|
|
|
example : g a > 0 := by
|
|
unfold g
|
|
grind
|