2014-10-19 15:40:56 +00:00
|
|
|
show a = c, from H1 ⬝ H2 : a = c
|
2014-07-27 04:56:35 +00:00
|
|
|
------------
|
2015-05-08 18:11:00 +00:00
|
|
|
assert e1 : a = b, from H1,
|
2014-10-19 15:40:56 +00:00
|
|
|
have e2 : a = c, from e1 ⬝ H2,
|
2015-05-08 18:11:00 +00:00
|
|
|
have e3 : c = a, from e2⁻¹,
|
|
|
|
|
assert e4 : b = a, from e1⁻¹,
|
|
|
|
|
show b = c, from e1⁻¹ ⬝ e2 :
|
2014-10-19 15:40:56 +00:00
|
|
|
b = c
|
