2014-06-30 07:51:11 +00:00
|
|
|
import logic
|
|
|
|
|
|
2014-07-02 03:43:53 +00:00
|
|
|
exit -- TODO
|
2014-06-30 07:51:11 +00:00
|
|
|
theorem tst (a b : Bool) (H : a ↔ b) : b ↔ a
|
|
|
|
|
:= have H1 [fact] : a → b, from iff_elim_left H,
|
|
|
|
|
by (apply iff_intro,
|
|
|
|
|
assume Hb, iff_mp_right H Hb,
|
|
|
|
|
assume Ha, H1 Ha)
|
