c50227ea6e
This commit also adds the tactic rapply that corresponds to the previous semantics we have been using.
9 lines
200 B
Text
9 lines
200 B
Text
import logic
|
|
open tactic
|
|
|
|
theorem tst (a b : Prop) (H : a ↔ b) : b ↔ a
|
|
:= by rapply iff.intro;
|
|
apply (assume Ha, iff.elim_left H Ha);
|
|
apply (assume Hb, iff.elim_right H Hb)
|
|
|
|
check tst
|