Proof using tsi rri.
red. unfold log_all_entries. intros.
simpl in *. repeat find_higher_order_rewrite.
destruct_update; simpl in *; eauto;
[|copy_eapply_prop_hyp In In; repeat find_rewrite; auto].
find_erewrite_lem handleRequestVoteReply_log.
rewrite update_elections_data_requestVoteReply_allEntries.
match goal with
| |- context [handleRequestVoteReply ?h ?st ?h' ?t ?v] =>
pose proof handleRequestVoteReply_type h st h' t v
(handleRequestVoteReply h st h' t v)
end.
intuition; repeat find_rewrite;
copy_eapply_prop_hyp In In; repeat find_rewrite; auto.
find_apply_lem_hyp no_entries_past_current_term_host_lifted_invariant; auto.
repeat find_rewrite.
unfold raft_data in *. simpl in *.
unfold raft_data in *. simpl in *.
omega.
Qed.

(* Specifications: *)
Lemma log_all_entries_do_leader :
refined_raft_net_invariant_do_leader log_all_entries.