2014-07-02 21:09:01 +00:00
|
|
|
import standard
|
|
|
|
|
using tactic
|
2014-06-30 07:51:11 +00:00
|
|
|
|
|
|
|
|
theorem tst (a b : Bool) (H : a ↔ b) : b ↔ a
|
2014-07-02 21:09:01 +00:00
|
|
|
:= have H1 [fact] : a → b, -- We need to mark H1 as fact, otherwise it is not visible by tactics
|
|
|
|
|
from iff_elim_left H,
|
|
|
|
|
by ⟦ iff_intro ⟧;
|
|
|
|
|
⟦ assume Hb, iff_mp_right H Hb ⟧;
|
|
|
|
|
⟦ assume Ha, H1 Ha ⟧
|
