lean2/tests/lean/893.hlean

6 lines
138 B
Text
Raw Permalink Normal View History

example {A : Type} (f : A → A) (a : A) (H : f a = a) : unit :=
begin
induction H, -- this should raise an error
exact unit.star
end