lean2/tests/lean/run/refine1.lean

7 lines
113 B
Text
Raw Normal View History

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