Proof using.
intros. unfold update_elections_data_client_request.
repeat break_match; auto.
Qed.

(* Specifications: *)
Lemma votesWithLog_same_client_request :
forall h st client id c,
votesWithLog (update_elections_data_client_request h st client id c) =
votesWithLog (fst st).
Lemma votesWithLog_update_elections_data_client_request :
forall h st client id c out st' ps t' h' l',
handleClientRequest h (snd st) client id c = (out, st', ps) ->
In (t', h', l') (votesWithLog (update_elections_data_client_request h st client id c)) ->
In (t', h', l') (votesWithLog (fst st)).