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
print 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(frontends/lean): use lowercase commands, replace 'endscope' and 'endnamespace' with 'end' Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-01-05 20:05:08 +00:00			`variables p q r : Bool`
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
feat(kernel): use Pi as forall/implication Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-01-08 08:38:39 +00:00			`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(frontends/lean): use lowercase commands, replace 'endscope' and 'endnamespace' with 'end' Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-01-05 20:05:08 +00:00			`print environment 1`