(* 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)).

Lemma cohQ s : Coh W s -> (QueryProtocol.QCoh qnodes) (getSq s).