Inductive Point :=
  P0 | P1 | P2 | P3.Inductive Point :=
  P0 | P1 | P2 | P3.Inductive Point :=
  P0 | P1 | P2 | P3.Inductive Point :=
  P0 | P1 | P2 | P3.Inductive Point :=
  P0 | P1 | P2 | P3.Definition Bet (A B C : Point) :=
  A = B \/ B = C \/ A = C.Definition Cong (A B C D : Point) :=
  (A = B /\ C = D) \/ (A <> B /\ C <> D).

Lemma inner_pasch : forall A B C P Q, Bet A P C -> Bet B Q C -> exists x, Bet P x B /\ Bet Q x A.