lean4-htt/tests/lean/run/refine1.lean
2016-06-10 18:29:41 -07:00

7 lines
118 B
Text

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