by rewrite domPt inE eqxx findPt.
Qed.

(* Specifications: *)
Lemma prEqQ : getProtocol W lq = pq.
Lemma prEqQ' : getProtocol (lq \\-> pq, Unit) lq = pq.
Lemma query_init_rely' to s s' :
query_init_state to s ->
network_rely (lq \\-> pq, Unit) this s s' -> query_init_state to s'.