lean2/tests/lean/run/refine1.lean
2015-04-06 18:36:56 -07:00

6 lines
113 B
Text

example (a b : Prop) : a → b → a ∧ b :=
begin
intros [Ha, Hb],
refine (and.intro _ Hb),
exact Ha
end