(********************************************)
(* Lemmas for instantiating ghost variables *)
(********************************************)
Variables (s : C -> spec A) (f : DTbin this W (logvar s)).

(* Specifications: *)
(* helper lemma, to express the instantiation *)
Lemma gh_conseq t : conseq f (s t).
(* Instantiating the ghost of a call *)
Lemma gh_ex g i (k : cont A) :
verify i (do' (@gh_conseq g)) k ->
verify i (@with_spec this W A (logvar s) f) k.
Lemma ret_rule W A i (v : A) (r : cont A) :
(forall m, network_rely W this i m -> r v m) ->
verify i (ret this W v) r.