lean2/tests/lean/run/tactic10.lean

import standard
using tactic

theorem tst (a b : Bool) (H : a ↔ b) : b ↔ a
:= by apply iff_intro;
      apply (assume Hb, iff_mp_right H Hb);
      apply (assume Ha, iff_mp_left H Ha)

check tst
feat(library/tactic): new apply tactic Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-07-02 20:14:50 +00:00			`import standard`
			`using tactic`
feat(frontends/lean): add exact_apply Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-06-30 07:51:11 +00:00
			`theorem tst (a b : Bool) (H : a ↔ b) : b ↔ a`
feat(library/tactic): new apply tactic Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-07-02 20:14:50 +00:00			`:= by apply iff_intro;`
fix(library/standard): orelse notation, avoid conflict with inductive datatype declaration Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-07-04 17:10:05 +00:00			`apply (assume Hb, iff_mp_right H Hb);`
			`apply (assume Ha, iff_mp_left H Ha)`
feat(library/tactic): new apply tactic Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-07-02 20:14:50 +00:00
			`check tst`