lean2/tests/lean/run/clear_tac.lean

18 lines
289 B
Text
Raw Normal View History

import logic
example {a b c : Prop} : a → b → c → a ∧ b :=
begin
intros (Ha, Hb, Hc),
clear Hc,
clear c,
apply (and.intro Ha Hb),
end
example {a b c : Prop} : a → b → c → c ∧ b :=
begin
intros (Ha, Hb, Hc),
clear Ha,
clear a,
apply (and.intro Hc Hb),
end