Require Export GeoCoq.Elements.OriginalProofs.lemma_collinearright.
Section Euclid.
Context `{Ax:euclidean_neutral_ruler_compass}.

(* Specifications: *)
Lemma lemma_supplementofright :
forall A B C D F,
Supp A B C D F -> Per A B C ->
Per F B D /\ Per D B F.