lean2/tests/lean/disj1.lean
Leonardo de Moura 4ba097a141 feat(frontends/lean): use lowercase commands, replace 'endscope' and 'endnamespace' with 'end'
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
2014-01-05 13:06:36 -08:00

21 lines
No EOL
385 B
Text

import tactic
theorem T1 (a b : Bool) : a \/ b => b \/ a.
apply Discharge.
(* disj_hyp_tac() *)
(* disj_tac() *)
back
exact.
(* disj_tac() *)
exact.
done.
(*
simple_tac = Repeat(OrElse(imp_tac(), assumption_tac(), disj_hyp_tac(), disj_tac())) .. now_tac()
*)
theorem T2 (a b : Bool) : a \/ b => b \/ a.
simple_tac.
done.
print environment 1.