lean2/tests/lean/disjcases.lean

10 lines
197 B
Text
Raw Normal View History

Variables a b c : Bool
Axiom H : a \/ b
Theorem T (a b : Bool) : a \/ b => b \/ a.
apply Discharge.
apply (DisjCases H).
apply Disj2.
assumption.
apply Disj1.
assumption.
done.