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

(* Specifications: *)
Lemma lemma_interior5 :
forall A B C D a b c d,
BetS A B C -> BetS a b c -> Cong A B a b -> Cong B C b c -> Cong A D a d -> Cong C D c d ->
Cong B D b d.
Lemma lemma_layoff :
forall A B C D,
neq A B -> neq C D ->
exists X, Out A B X /\ Cong A X C D.
Lemma lemma_ray4 :
forall A B E,
(BetS A E B \/ eq E B \/ BetS A B E) -> neq A B ->
Out A B E.