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

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