lean4-htt/old_tests/tests/lean/run/apply1.lean
2018-04-10 12:56:55 -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