2013-12-05 04:41:08 -08:00
|
|
|
|
Set: pp::colors
|
|
|
|
|
Set: pp::unicode
|
2013-12-28 12:24:13 -08:00
|
|
|
|
Imported 'tactic'
|
2013-12-05 04:41:08 -08:00
|
|
|
|
Proved: T1
|
|
|
|
|
Proved: T2
|
2014-01-05 12:05:08 -08:00
|
|
|
|
theorem T2 (a b : Bool) : a ∨ b ⇒ b ∨ a :=
|
2014-01-05 19:10:21 -08:00
|
|
|
|
discharge (λ H : a ∨ b, or::elim H (λ H : a, or::intror b H) (λ H : b, or::introl H a))
|