2014-08-25 02:58:48 +00:00
|
|
|
import logic
|
2014-09-03 23:00:38 +00:00
|
|
|
open tactic
|
2014-06-30 07:51:11 +00:00
|
|
|
|
2014-07-22 16:43:18 +00:00
|
|
|
theorem tst (a b : Prop) (H : a ↔ b) : b ↔ a
|
2014-07-02 20:14:50 +00:00
|
|
|
:= by apply iff_intro;
|
2014-08-01 16:37:23 +00:00
|
|
|
apply (assume Hb, iff_elim_right H Hb);
|
|
|
|
|
apply (assume Ha, iff_elim_left H Ha)
|
2014-07-02 20:14:50 +00:00
|
|
|
|
|
|
|
|
check tst
|
