Proof using.
unfold update_elections_data_requestVote.
intros.
repeat break_match; repeat tuple_inversion; do_bool; intuition;
simpl in *; intuition; do_bool; try discriminate; intuition try congruence.
omega.
Qed.

(* Specifications: *)
Lemma votes_update_elections_data_request_vote_intro_old :
forall h st t src lli llt st' m t' h',
handleRequestVote h (snd st) t src lli llt = (st', m) ->
In (t', h') (votes (fst st)) ->
In (t', h')
(votes (update_elections_data_requestVote h src t src lli llt st)).