10 lines
347 B
Text
10 lines
347 B
Text
@[simp] def f (a : Nat) (xs : List Nat) : Nat :=
|
|
match a with
|
|
| 25 => 0
|
|
| _ => match xs with
|
|
| [] => a
|
|
| x::xs => x + f a xs
|
|
|
|
example : f 25 xs = 0 := by apply f.eq_1
|
|
example (h : a = 25 → False) : f a [] = a := by apply f.eq_2; assumption
|
|
example (h : a = 25 → False) : f a (x::xs) = x + f a xs := by apply f.eq_3; assumption
|