(* Wrapping up the coherence predicate *)
Definition TPCCoh := CohPred (CohPredMixin l1 l2 l3).

(* Specifications: *)
Lemma consume_coh d m : TPCCoh d -> soupCoh (consume_msg (dsoup d) m).
Lemma cohStC d (C : TPCCoh d) s: find st (getLocal cn d) = Some s -> dyn_tp s = CStateT.