4 lines
261 B
Text
4 lines
261 B
Text
λ (A : Type u) (a b c d : A) (H₁ : eq a b) (H₂ : eq c b) (H₃ : eq d c),
|
|
have this : eq a c, from eq.trans H₁ (eq.symm H₂),
|
|
show eq a d, from eq.trans this (eq.symm H₃) :
|
|
∀ (A : Type u) (a b c d : A), eq a b → eq c b → eq d c → eq a d
|