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