open tactic

example (p q : Prop) : p → q → p ∧ q :=
by do
  intros,
  apply (expr.const ("and" <.> "intro") []),
  trace_state,
  all_goals assumption