lean2/tests/lean/eta_bug.lean

5 lines
171 B
Text
Raw Normal View History

import logic
eval [all-transparent] λ (A : Type) (x y : A) (H₁ : x = y) (H₂ : y = x), eq.trans H₁ H₂
-- Should not reduce to
-- λ (A : Type) (x y : A), eq.trans