Proof using.
red. intros. unfold in_any_log_term_was_created. intros.
eapply term_was_created_preserved; [eapply_prop in_any_log_term_was_created|];
[|intros; simpl in *;
repeat find_higher_order_rewrite;
destruct_update; simpl in *; eauto;
eapply update_elections_data_requestVoteReply_old; eauto].
iae_case.
- repeat find_higher_order_rewrite.
destruct_update; simpl in *; eauto.
find_rewrite_lem handleRequestVoteReply_log_rewrite; eauto.
- find_apply_hyp_hyp.
match goal with
| _ : In ?p' (_ ++ _) |- _ => eapply in_aer with (p1 := p'); eauto
end.
- repeat find_higher_order_rewrite.
destruct_update; simpl in *; eauto.
find_eapply_lem_hyp leaderLogs_update_elections_data_RVR; eauto.
intuition; eauto. subst.
find_rewrite_lem handleRequestVoteReply_log_rewrite. eauto.
Qed.
Ltac cr_in_log_in_leader_log :=
find_eapply_lem_hyp in_log; eapply_prop_hyp in_any_log_term_was_created in_any_log;
unfold term_was_created in *;
break_exists_exists;
find_higher_order_rewrite;
destruct_update; simpl in *; eauto;
rewrite update_elections_data_client_request_leaderLogs; eauto.
Ltac cr_in_aer_in_leader_log :=
find_eapply_lem_hyp in_aer; eauto; eapply_prop_hyp in_any_log_term_was_created in_any_log;
unfold term_was_created in *;
break_exists_exists;
find_higher_order_rewrite;
destruct_update; simpl in *; eauto;
rewrite update_elections_data_client_request_leaderLogs; eauto.
Ltac cr_in_ll_in_leader_log :=
find_eapply_lem_hyp in_ll; eauto; eapply_prop_hyp in_any_log_term_was_created in_any_log;
unfold term_was_created in *;
break_exists_exists;
find_higher_order_rewrite;
destruct_update; simpl in *; eauto;
rewrite update_elections_data_client_request_leaderLogs; eauto.

(* Specifications: *)
Lemma in_any_log_term_was_created_client_request :
refined_raft_net_invariant_client_request in_any_log_term_was_created.