18 lines
289 B
Text
18 lines
289 B
Text
|
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
|