Definition ResourceCoh := CohPred (CohPredMixin l1 l2 l3).

(* Specifications: *)
Lemma consume_coh d m : ResourceCoh d -> soup_coh (consume_msg (dsoup d) m).
Lemma getLocal_server_st_tp d (C : ResourceCoh d) s: find st (getLocal server d) = Some s -> dyn_tp s = server_state.