Require Export GeoCoq.Elements.OriginalProofs.lemma_squarerectangle.
Section Euclid.
Context `{Ax1:area}.

Lemma lemma_squaresequal :
forall A B C D a b c d,
Cong A B a b -> SQ A B C D -> SQ a b c d ->
EF A B C D a b c d.