Definition st_ok (st : STt) (interp: positive -> COINCpoint) :=
forall t, STmem t st = true -> app wd (interp_CP t interp).
Context {COT : Coinc_theory AR COP}.

Lemma identify_varieties_ok : forall ss st interp,
ss_ok ss interp -> st_ok st interp ->
ss_ok (identify_varieties ss st) interp.