lean2/tests/lean/run/ho.lean

12 lines
207 B
Text
Raw Normal View History

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