lean4-htt/tests/lean/run/apply1.lean
2016-07-22 19:06:57 -07:00

8 lines
149 B
Text

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