lean4-htt/tests/lean/redundantAlt.lean
2020-12-29 14:39:45 -08:00

7 lines
118 B
Text

def f (x : Nat) : Nat :=
match x with
| 0 => 1
| Nat.succ (Nat.succ x) => 3
| 2 => 4
| Nat.succ x => 5
| 3 => 6