Set: pp::colors
  Set: pp::unicode
  Assumed: p
  Assumed: q
  Assumed: r
theorem T1 (H : p) (H::1 : q) : p ∧ q := and_intro H H::1