Proof using.
unfold raft_net_invariant_request_vote_reply. unfold logs_sorted.
intuition; simpl in *.
- unfold logs_sorted_host in *. simpl in *. intros.
find_apply_lem_hyp handleRequestVoteReply_log.
repeat find_higher_order_rewrite. break_match; try find_rewrite; eauto.
- eauto using logs_sorted_nw_packets_unchanged.
- eauto using packets_gt_prevIndex_packets_unchanged.
- eauto using packets_ge_prevTerm_packets_unchanged.
Qed.

(* Specifications: *)
Lemma doLeader_log :
forall h st os st' ps,
doLeader st h = (os, st', ps) ->
log st' = log st.