2014-09-05 01:41:06 +00:00
|
|
|
show eq a c, from eq.trans H1 H2 : eq a c
|
2014-07-27 04:56:35 +00:00
|
|
|
------------
|
|
|
|
|
have e1 [fact] : eq a b, from H1,
|
2014-09-05 01:41:06 +00:00
|
|
|
have e2 : eq a c, from eq.trans e1 H2,
|
|
|
|
|
have e3 : eq c a, from eq.symm e2,
|
|
|
|
|
have e4 [fact] : eq b a, from eq.symm e1,
|
|
|
|
|
show eq b c, from eq.trans (eq.symm e1) e2 :
|
2014-07-27 04:56:35 +00:00
|
|
|
eq b c
|
