Require Export GeoCoq.Elements.OriginalProofs.proposition_46.
Require Export GeoCoq.Elements.OriginalProofs.lemma_oppositesideflip.
Require Export GeoCoq.Elements.OriginalProofs.lemma_righttogether.
Require Export GeoCoq.Elements.OriginalProofs.lemma_diagonalsbisect.
Section Euclid.
Context `{Ax:euclidean_euclidean}.

(* Specifications: *)
Lemma lemma_squareparallelogram :
forall A B C D,
SQ A B C D ->
PG A B C D.