Section par_trans_NID.
Context `{TnEQD:Tarski_neutral_dimensionless_with_decidable_point_equality}.
(* Lemma col_int : forall A B C, Col A B C <-> ~ (~ Bet A B C /\ ~ Bet B C A /\ ~ Bet C A B). *)
Definition playfair_ter := forall A1 A2 B1 B2 C1 C2 P,
A1 <> A2 -> B1 <> B2 -> C1 <> C2 ->
Col P B1 B2 -> Col P C1 C2 ->
~ (Col A1 B1 B2 /\ Col A2 B1 B2) ->
~ (Col A1 C1 C2 /\ Col A2 C1 C2) ->
~ (Col C1 B1 B2 /\ Col C2 B1 B2) ->
(exists I, ~ (~ (Col A1 A2 I /\ Col B1 B2 I) /\
~ (Col A1 B1 I /\ Col A2 B2 I) /\
~ (Col A1 B2 I /\ Col A2 B1 I))) ->
(exists I, ~ (~ (Col A1 A2 I /\ Col C1 C2 I) /\
~ (Col A1 C1 I /\ Col A2 C2 I) /\
~ (Col A1 C2 I /\ Col A2 C1 I))) ->
~ (~ (exists I, Col I A1 A2 /\ Col I B1 B2) /\
~ (exists I, Col I A1 A2 /\ Col I C1 C2)).
Definition playfair_quater_qf A1 A2 B1 B2 C1 C2 P :=
A1 <> A2 /\ B1 <> B2 /\ C1 <> C2 /\
Col P B1 B2 /\ Col P C1 C2 /\
~ (Col A1 B1 B2 /\ Col A2 B1 B2) /\
~ (Col A1 C1 C2 /\ Col A2 C1 C2) /\
~ (Col C1 B1 B2 /\ Col C2 B1 B2) /\
(exists I, ~ (~ (Col A1 A2 I /\ Col B1 B2 I) /\
~ (Col A1 B1 I /\ Col A2 B2 I) /\
~ (Col A1 B2 I /\ Col A2 B1 I))) /\
(exists I, ~ (~ (Col A1 A2 I /\ Col C1 C2 I) /\
~ (Col A1 C1 I /\ Col A2 C2 I) /\
~ (Col A1 C2 I /\ Col A2 C1 I))) /\
~ (exists I, Col I A1 A2 /\ Col I B1 B2) /\
~ (exists I, Col I A1 A2 /\ Col I C1 C2).
Definition playfair_quater := ~ exists A1 A2 B1 B2 C1 C2 P,
playfair_quater_qf A1 A2 B1 B2 C1 C2 P.

Lemma playfair_ter__playfair :
playfair_ter -> playfair_s_postulate.