(***************  Intermediate definitions **********************)
(* Composite world *)
Notation loc_qry s := (getLocal cn (getStatelet s lq)).
Notation loc_tpc' s n := (getLocal n (getStatelet s lc)).
Notation loc_tpc s := (loc_tpc' s cn).
Notation qry_init := (query_init_state lq Data qnodes serialize cn).

(* Specifications: *)
Lemma loc_imp_core s d n :
Coh W s -> n \in qnodes -> local_indicator d (loc_tpc s) ->
core_state_to_data n (loc_tpc' s n) d.
Lemma find_empty l i : l \notin dom i -> getStatelet i l = empty_dstatelet.
End QueryPlusTPC.