6 lines
160 B
Text
6 lines
160 B
Text
import logic
|
|
|
|
theorem tst (a b : Bool) (H : a ↔ b) : b ↔ a
|
|
:= by (apply iff_intro,
|
|
assume Hb, iff_mp_right H Hb,
|
|
assume Ha, iff_mp_left H Ha)
|