Section segment_construction_independent.
Inductive Point :=
P0.
Definition Bet (A B C : Point) := False.
Definition Cong (A B C D : Point) := True.

Lemma upper_dim : forall A B C P Q ,
P <> Q -> Cong A P A Q -> Cong B P B Q -> Cong C P C Q ->
(Bet A B C \/ Bet B C A \/ Bet C A B).