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))