Proof using.
unfold refined_raft_net_invariant_append_entries_reply, cronies_term.
intros. subst. simpl in *. repeat find_higher_order_rewrite.
update_destruct; subst; rewrite_update; eauto.
simpl in *.
find_apply_lem_hyp handleAppendEntriesReply_spec.
eapply le_trans; [|eauto]; eauto.
Qed.

Lemma handleRequestVote_spec :
forall h st t h' pli plt st' m,
handleRequestVote h st t h' pli plt = (st', m) ->
currentTerm st <= currentTerm st'.