11 lines
199 B
Text
11 lines
199 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 :=
|
|
match f with
|
|
end
|