Require Export GeoCoq.Elements.OriginalProofs.lemma_samenotopposite.
Require Export GeoCoq.Elements.OriginalProofs.lemma_crisscross.
Require Export GeoCoq.Elements.OriginalProofs.proposition_33.
Section Euclid.
Context `{Ax:euclidean_euclidean}.

(* Specifications: *)
Lemma proposition_33B :
forall A B C D,
Par A B C D -> Cong A B C D -> OS A C B D ->
Par A C B D /\ Cong A C B D.