lean2/tests/lean/run/empty_eq.lean

14 lines
217 B
Text
Raw Permalink Normal View History

open nat
inductive fin : nat → Type :=
| fz : Π n, fin (succ n)
| fs : Π {n}, fin n → fin (succ n)
open fin
definition case0 {C : fin zero → Type} : Π (f : fin zero), C f
| [none]
print definition case0