10 lines
295 B
Text
10 lines
295 B
Text
Set: pp::colors
|
|
Set: pp::unicode
|
|
Assumed: p
|
|
Assumed: q
|
|
Assumed: r
|
|
Proved: T1
|
|
theorem T1 : p ⇒ p ∧ q ⇒ r ⇒ q ∧ r ∧ p :=
|
|
Discharge
|
|
(λ H : p,
|
|
Discharge (λ H::1 : p ∧ q, Discharge (λ H::2 : r, Conj (Conjunct2 H::1) (Conj H::2 (Conjunct1 H::1)))))
|