Inductive Point :=
 P0.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).