lean2/tests/lean/subst_bug.lean

15 lines
289 B
Text
Raw Normal View History

open subtype example (f : nat → nat) (a b : nat) : f a = a → f (f a) = a :=
begin
intro h₁,
subst h₁ -- ERROR
end
open nat
example (f : nat → nat) (a b : nat) : f a = a → a = 0 → f (f a) = a :=
begin
intro h₁ h₂,
subst a, -- should use h₂
rewrite +h₁
end