Proof using.
unfold raft_net_invariant_append_entries_reply.
intros. find_apply_lem_hyp handleAppendEntriesReply_spec.
intuition eauto using no_entries_past_current_term_unaffected.
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' /\
log st' = log st /\
~ is_append_entries m).