lean4-htt/old_tests/tests/lean/def1.lean
2018-04-10 12:56:55 -07:00

5 lines
160 B
Text

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