11 lines
210 B
Text
11 lines
210 B
Text
import data.nat
|
|
|
|
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
|