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 not_ex_forall_not_7 :
forall (T : Type) (P : T -> T -> T -> T -> T -> T -> T -> Prop),
~(exists x1 : T, exists x2 : T, exists x3 : T,
exists x4 : T, exists x5 : T, exists x6 : T,
exists x7 :T, P x1 x2 x3 x4 x5 x6 x7) <->
forall x1 : T, forall x2 : T, forall x3 : T,
forall x4 : T, forall x5 : T, forall x6 : T,
forall x7 : T, ~ P x1 x2 x3 x4 x5 x6 x7.