2014-11-11 23:09:34 +00:00
|
|
|
import data.nat
|
|
|
|
|
|
|
|
|
|
inductive star : Type₁ :=
|
2015-02-26 01:00:10 +00:00
|
|
|
| z : star
|
|
|
|
|
| s : (nat → star) → star
|
2014-11-11 23:09:34 +00:00
|
|
|
|
|
|
|
|
check @star.rec
|
|
|
|
|
check @star.cases_on
|
|
|
|
|
|
|
|
|
|
example (f : nat → star) : ¬ star.z = star.s f :=
|
|
|
|
|
assume H, star.no_confusion H
|
