Require Export GeoCoq.Tarski_dev.Ch04_col.
Section Equivalence_between_decidability_properties_of_basic_relations.
Context `{Tn:Tarski_neutral_dimensionless}.

Lemma eq_dec_implies_construction_uniqueness :
(forall A B:Tpoint, A=B \/ A<>B) ->
forall Q A B C X Y,
Q <> A -> Bet Q A X -> Cong A X B C -> Bet Q A Y -> Cong A Y B C -> X=Y.