555d26aa61
TODO: support foldl/foldr and binders
8 lines
234 B
Text
8 lines
234 B
Text
show a = c, from H1 ⬝ H2 : a = c
|
|
------------
|
|
have e1 [visible] : a = b, from H1,
|
|
have e2 : a = c, from e1 ⬝ H2,
|
|
have e3 : c = a, from e2 ⁻¹,
|
|
have e4 [visible] : b = a, from e1 ⁻¹,
|
|
show b = c, from e1 ⁻¹ ⬝ e2 :
|
|
b = c
|