Proof using si rri.
unfold refined_raft_net_invariant_request_vote_reply, leaderLogs_sorted.
intros. subst. simpl in *. find_higher_order_rewrite.
update_destruct_simplify; eauto.
match goal with
| _ : context [ leaderLogs (update_elections_data_requestVoteReply ?h ?s ?t ?v ?st) ] |- _ =>
destruct (leaderLogs (update_elections_data_requestVoteReply h s t v st))
using (leaderLogs_update_elections_data_request_vote_reply ltac:(eauto))
end; eauto.
simpl in *. intuition eauto.
find_inversion. eauto using sorted_host_lifted.
Qed.

(* Specifications: *)
Lemma leaderLogs_sorted_do_leader :
refined_raft_net_invariant_do_leader leaderLogs_sorted.