Goal A -> (A \/ B).
intro.
split.
left.
exact H0.
Qed.