30 lines
339 B
Text
30 lines
339 B
Text
-- BEGINWAIT
|
|
-- ENDWAIT
|
|
-- BEGINSHOW
|
|
|
|
|
|
theorem tst (a b c : Prop) : a → b → a ∧ b :=
|
|
begin
|
|
info,
|
|
intros [Ha, Hb],
|
|
state,
|
|
apply and.intro,
|
|
apply Ha,
|
|
apply Hb,
|
|
end
|
|
-- ENDSHOW
|
|
-- BEGINWAIT
|
|
-- ENDWAIT
|
|
-- BEGININFO
|
|
-- PROOF_STATE|8|17
|
|
a b c : Prop,
|
|
Ha : a,
|
|
Hb : b
|
|
⊢ a
|
|
--
|
|
a b c : Prop,
|
|
Ha : a,
|
|
Hb : b
|
|
⊢ b
|
|
-- ACK
|
|
-- ENDINFO
|