Require Export C1_DemiDroite_Prop.
Section BETWEEN_PROPERTIES.

Lemma HalfLineEquidistantEqualPoints : forall A B C D E : Point, forall d : LS,
HalfLine A C B ->
Distance A C = d ->
HalfLine A B D ->
A <> C ->
Distance A D = LSplus (Distance A B) d ->
Between A C E ->
Distance C E = Distance A B ->
E = D.