2015-03-05 14:22:07 -08:00
|
|
|
open nat
|
2015-06-05 10:32:24 -07:00
|
|
|
|
|
|
|
|
inductive fin : nat → Type :=
|
|
|
|
|
| fz : Π n, fin (succ n)
|
|
|
|
|
| fs : Π {n}, fin n → fin (succ n)
|
|
|
|
|
|
2015-03-05 14:22:07 -08:00
|
|
|
open fin
|
|
|
|
|
|
|
|
|
|
definition case0 {C : fin zero → Type} (f : fin zero) : C f :=
|
|
|
|
|
match f with
|
|
|
|
|
end
|
