Proof using.
unfold haveNewEntries.
intros.
find_rewrite. auto.
Qed.

(* Specifications: *)
Lemma hCR_preserves_committed :
forall (net net' : ghost_log_network) h client id c out d l e t,
handleClientRequest h (snd (nwState net h)) client id c = (out, d, l) ->
(forall h', nwState net' h' = update name_eq_dec (nwState net) h (update_elections_data_client_request h (nwState net h) client id c, d) h') ->
lifted_committed net e t ->
lifted_committed net' e t.