lean4-htt/tests/lean/def1.lean
2016-09-17 12:54:20 -07:00

6 lines
191 B
Text

set_option new_elaborator true
universe variable u
variable {A : Type u}
lemma foo (f : A → A → A) (a b c : A) (H₁ : a = b) (H₂ : c = b) : f a = f c :=
H₂ ▸ eq.symm H₁ ▸ rfl