33 lines
582 B
Text
33 lines
582 B
Text
import logic
|
|
open tactic
|
|
|
|
theorem tst1 (a b : Prop) : a → b → b :=
|
|
by intro Ha; intro Hb; apply Hb
|
|
|
|
theorem tst2 (a b : Prop) : a → b → a ∧ b :=
|
|
by intro Ha; intro Hb; apply and.intro; apply Ha; apply Hb
|
|
|
|
theorem tst3 (a b : Prop) : a → b → a ∧ b :=
|
|
begin
|
|
intro Ha,
|
|
intro Hb,
|
|
apply and.intro,
|
|
apply Ha,
|
|
apply Hb,
|
|
end
|
|
|
|
theorem tst4 (a b : Prop) : a → b → a ∧ b :=
|
|
begin
|
|
intros [Ha, Hb],
|
|
apply and.intro,
|
|
apply Ha,
|
|
apply Hb,
|
|
end
|
|
|
|
theorem tst5 (a b : Prop) : a → b → a ∧ b :=
|
|
begin
|
|
intros,
|
|
apply and.intro,
|
|
eassumption,
|
|
eassumption
|
|
end
|