Proof using.
intros.
find_copy_apply_lem_hyp handleRequestVote_currentTerm_monotonic.
find_apply_lem_hyp le_lt_or_eq. intuition.
right. find_apply_lem_hyp handleRequestVote_votedFor; intuition.
Qed.

(* Specifications: *)
Lemma handleRequestVoteReply_currentTerm' :
forall h st h' t r st',
handleRequestVoteReply h st h' t r = st' ->
currentTerm st <= currentTerm st'.