lean2/tests/lean/disj1.lean

Theorem T1 (a b : Bool) : a \/ b => b \/ a.
    apply imp_tac
    apply disj_hyp_tac
    apply disj_tac
    back
    apply assumption_tac
    apply disj_tac
    apply assumption_tac
    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.
    apply simple_tac
    done

Show Environment 1.
feat(library/tactic): add disj_tactic Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-12-05 04:41:08 -08:00			`Theorem T1 (a b : Bool) : a \/ b => b \/ a.`
feat(library/tactic): use _tac suffix instead of _tactic like Isabelle Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-12-05 20:00:20 -08:00			`apply imp_tac`
			`apply disj_hyp_tac`
			`apply disj_tac`
feat(library/tactic): add disj_tactic Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-12-05 04:41:08 -08:00			`back`
feat(library/tactic): use _tac suffix instead of _tactic like Isabelle Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-12-05 20:00:20 -08:00			`apply assumption_tac`
			`apply disj_tac`
			`apply assumption_tac`
feat(library/tactic): add disj_tactic Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-12-05 04:41:08 -08:00			`done`

			`(**`
feat(library/tactic): use _tac suffix instead of _tactic like Isabelle Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-12-05 20:00:20 -08:00			`simple_tac = REPEAT(ORELSE(imp_tac, assumption_tac, disj_hyp_tac, disj_tac)) .. now_tac`
feat(library/tactic): add disj_tactic Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-12-05 04:41:08 -08:00			`**)`

			`Theorem T2 (a b : Bool) : a \/ b => b \/ a.`
			`apply simple_tac`
			`done`

			`Show Environment 1.`