12 lines
207 B
Text
12 lines
207 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
|