(* Now playing with the stability of the desired invariant *)

(* Core getters *)
Notation getSc s := (getStatelet s (plab pc)).Notation getLc s := (getLocal this (getSc s)).Notation getLc' s n := (getLocal n (getSc s)).(* Query getters *)
Notation getSq s := (getStatelet s (plab pq)).Notation getLq s := (getLocal this (getSq s)).

(* Specifications: *)
Lemma query_init_rely to s s2 : query_init_state to s -> network_rely W this s s2 -> query_init_state to s2.
Lemma cohQ s : Coh W s -> (QueryProtocol.QCoh qnodes) (getSq s).
Lemma msg_story_rely req_num to data reqs resp s s2 : msg_story s req_num to data reqs resp -> network_rely W this s s2 -> msg_story s2 req_num to data reqs resp.