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

(* Specifications: *)
Lemma consume_coh d m : CalCoh d -> soupCoh (consume_msg (dsoup d) m).
Lemma cohSt n d (C : CalCoh d) s: find st (getLocal n d) = Some s -> dyn_tp s = cstate.