14 lines
232 B
Text
14 lines
232 B
Text
set_option new_elaborator true
|
|
open nat
|
|
|
|
inductive Fin : nat → Type
|
|
| fz : Π n, Fin (succ n)
|
|
| fs : Π {n}, Fin n → Fin (succ n)
|
|
|
|
open Fin
|
|
|
|
definition case0 {C : Fin 0 → Type} : Π (f : Fin 0), C f
|
|
.
|
|
|
|
|
|
print definition case0
|