Proof using.
unfold refined_raft_net_invariant_append_entries_reply, votes_le_currentTerm.
start_proof.
find_apply_lem_hyp handleAppendEntriesReply_currentTerm.
find_apply_hyp_hyp.
eauto using le_trans.
Qed.

Lemma votes_le_current_term_request_vote :
refined_raft_net_invariant_request_vote votes_le_currentTerm.