(* 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 query_init_rely to s s2 : query_init_state to s -> network_rely W this s s2 -> query_init_state to s2.