lean2/tests/lean/tactic3.lean

(* import("tactic.lua") *)
Variables p q r : Bool

Theorem T1 : p => p /\ q => r => q /\ r /\ p := _.
    (* Repeat(OrElse(imp_tac(), conj_tac(), conj_hyp_tac(), assumption_tac())) *)
    done

-- Display proof term generated by previous tactic
Show Environment 1
feat(frontends/lean): use '(* ... )' instead of '(* ... **)' for script code blocks Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-01-05 18:32:47 +00:00			`(* import("tactic.lua") *)`
feat(library/tactic): make THEN, ORELSE, APPEND, PAR and INTERLEAVE nary combinators Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-11-29 06:11:07 +00:00			`Variables p q r : Bool`

			`Theorem T1 : p => p /\ q => r => q /\ r /\ p := _.`
feat(frontends/lean): use '(* ... )' instead of '(* ... **)' for script code blocks Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-01-05 18:32:47 +00:00			`(* Repeat(OrElse(imp_tac(), conj_tac(), conj_hyp_tac(), assumption_tac())) *)`
feat(library/tactic): make THEN, ORELSE, APPEND, PAR and INTERLEAVE nary combinators Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-11-29 06:11:07 +00:00			`done`

feat(frontends/lean/scanner): use Lua style comments in Lean Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-01-05 16:52:46 +00:00			`-- Display proof term generated by previous tactic`
feat(library/tactic): make THEN, ORELSE, APPEND, PAR and INTERLEAVE nary combinators Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-11-29 06:11:07 +00:00			`Show Environment 1`