9 lines
189 B
Text
9 lines
189 B
Text
inductive star : Type
|
|
| z : star
|
|
| s : (nat → star) → star
|
|
|
|
#check @star.rec
|
|
#check @star.cases_on
|
|
|
|
example (f : nat → star) : ¬ star.z = star.s f :=
|
|
assume H, star.no_confusion H
|