Section VotesLeCurrentTerm.
Context {orig_base_params : BaseParams}.
Context {one_node_params : OneNodeParams orig_base_params}.
Context {raft_params : RaftParams orig_base_params}.
Context {rri : raft_refinement_interface}.
Ltac start_proof :=
cbn [nwState]; intros; subst; repeat find_higher_order_rewrite;
update_destruct; rewrite_update; cbn [fst snd] in *; eauto.
Proof using.
unfold refined_raft_net_invariant_client_request, votes_le_currentTerm.
start_proof.
erewrite handleClientRequest_currentTerm by eauto.
rewrite @votes_update_elections_data_client_request in *.
eauto.
Qed.

Lemma votes_le_current_term_timeout :
refined_raft_net_invariant_timeout votes_le_currentTerm.