Section CoincR_for_col.
Context `{TnEQD:Tarski_neutral_dimensionless_with_decidable_point_equality}.
Definition ss_ok_for_col ss interp :=
@ss_ok Tarski_is_a_Arity_for_col
Tarski_is_a_Coinc_predicates_for_col ss interp.

(* Specifications: *)
Lemma ss_ok_empty_for_col : forall interp, ss_ok_for_col SS.empty interp.
Definition st_ok_for_col st interp :=
@st_ok Tarski_is_a_Arity_for_col
Tarski_is_a_Coinc_predicates_for_col st interp.
Lemma st_ok_empty_for_col : forall interp, st_ok_for_col STempty interp.
Definition test_coinc_for_col ss st (pa pb pc : positive) :=
@test_coinc Tarski_is_a_Arity_for_col ss st (pa, (pb, pc)).