Require Export GeoCoq.Elements.OriginalProofs.proposition_34.
Require Export GeoCoq.Elements.OriginalProofs.lemma_NCdistinct.
Require Export GeoCoq.Elements.OriginalProofs.lemma_equaltorightisright.
Require Export GeoCoq.Elements.OriginalProofs.proposition_29C.
Require Export GeoCoq.Elements.OriginalProofs.lemma_supplementofright.
Section Euclid.
Context `{Ax:euclidean_euclidean}.

(* Specifications: *)
Lemma lemma_PGrectangle :
forall A B C D,
PG A C D B -> Per B A C ->
RE A C D B.