Require Export GeoCoq.Elements.OriginalProofs.lemma_ray2.
Require Export GeoCoq.Elements.OriginalProofs.lemma_lessthancongruence.
Require Export GeoCoq.Elements.OriginalProofs.lemma_3_7b.
Section Euclid.
Context `{Ax:euclidean_neutral_ruler_compass}.

Lemma lemma_ray :
forall A B P,
Out A B P -> neq P B -> ~ BetS A P B ->
BetS A B P.