13 lines
217 B
Text
13 lines
217 B
Text
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
|