Section Tarski_is_a_Coinc_theory_for_cop.
Context `{TnEQD:Tarski_neutral_dimensionless_with_decidable_point_equality}.
Definition not_col : arity Tpoint 3 := fun A B C : Tpoint => ~ Col A B C.
Definition cop : arity Tpoint 4 := Coplanar.

Lemma cop_3 : forall (COP : cartesianPower Tpoint 4) (NOT_COL : cartesianPower Tpoint 3),
pred_conj cop COP NOT_COL -> app not_col NOT_COL -> app cop COP.