Proof using.
intros. unfold handleRequestVoteReply in *.
repeat break_match; subst; do_bool; intuition.
apply advanceCurrentTerm_currentTerm.
Qed.

(* Specifications: *)
Lemma handleRequestVote_currentTerm :
forall st h h' t lli llt st' m,
handleRequestVote h st t h' lli llt = (st', m) ->
currentTerm st <= currentTerm st'.