Set: pp::colors
Set: pp::unicode
Assumed: p
Assumed: q
Assumed: r
theorem T1 : p ⇒ q ⇒ p ∧ q := Discharge (λ H : p, Discharge (λ H::1 : q, Conj H H::1))