2014-08-24 19:58:48 -07:00
|
|
|
import logic
|
2014-10-01 17:51:17 -07:00
|
|
|
open bool eq.ops tactic
|
2014-07-26 21:56:35 -07:00
|
|
|
|
2014-10-02 16:20:52 -07:00
|
|
|
constants a b c : bool
|
2014-07-26 21:56:35 -07:00
|
|
|
axiom H1 : a = b
|
|
|
|
|
axiom H2 : b = c
|
|
|
|
|
|
|
|
|
|
check show a = c, from H1 ⬝ H2
|
|
|
|
|
print "------------"
|
2014-09-08 07:47:42 -07:00
|
|
|
check have e1 [visible] : a = b, from H1,
|
2014-10-22 18:11:09 -07:00
|
|
|
have e2 : a = c, by apply eq.trans; apply e1; apply H2,
|
2014-07-26 21:56:35 -07:00
|
|
|
have e3 : c = a, from e2⁻¹,
|
2014-09-08 07:47:42 -07:00
|
|
|
have e4 [visible] : b = a, from e1⁻¹,
|
2014-07-26 21:56:35 -07:00
|
|
|
show b = c, from e1⁻¹ ⬝ e2
|
