Require Export GeoCoq.Elements.OriginalProofs.lemma_congruenceflip.
Require Export GeoCoq.Elements.OriginalProofs.lemma_extensionunique.
Section Euclid.
Context `{Ax:euclidean_neutral}.

(* Specifications: *)
Lemma lemma_rightreverse :
forall A B C D,
Per A B C -> BetS A B D -> Cong A B B D ->
Cong A C D C.