Proof using.
intros.
unfold update_elections_data_client_request in *.
repeat break_match; subst; simpl in *; auto. intuition. subst.
do_bool. find_apply_lem_hyp handleClientRequest_log.
intuition.
- match goal with
| H : log _ = log (snd _) |- _ => symmetry in H
end. repeat find_rewrite. simpl in *. omega.
- break_exists. intuition. repeat find_rewrite.
find_inversion. intuition.
Qed.

(* Specifications: *)
Lemma update_elections_data_clientRequest_allEntries_old :
forall h st client id c e,
In e (map snd (allEntries (fst st))) ->
In e (map snd (allEntries (update_elections_data_client_request h st client id c))).
Lemma update_elections_data_clientRequest_allEntries_old :
forall h st client id c e,
In e (map snd (allEntries (fst st))) ->
In e (map snd (allEntries (update_elections_data_client_request h st client id c))).