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, and::intro H H::1))