Proof using.
unfold update_elections_data_requestVote.
intros.
repeat break_match; repeat tuple_inversion; intuition;
simpl in *; intuition;
tuple_inversion; intuition.
Qed.

(* Specifications: *)
Lemma votes_update_elections_data_request_vote_reply :
forall h st src t r st' t' h',
handleRequestVoteReply h (snd st) src t r = st' ->
In (t', h') (votes (update_elections_data_requestVoteReply h src t r st)) ->
In (t', h') (votes (fst st)).
Lemma votesWithLog_update_elections_data_request_vote_reply :
forall h st src t r st' t' h' l',
handleRequestVoteReply h (snd st) src t r = st' ->
In (t', h', l') (votesWithLog (update_elections_data_requestVoteReply h src t r st)) ->
In (t', h', l') (votesWithLog (fst st)).