lean2/tests/lean/eta_bug.lean
2014-10-21 16:54:25 -07:00

4 lines
153 B
Text

import logic
eval λ (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