Section AllEntriesLeaderLogsTerm.
Context {orig_base_params : BaseParams}.
Context {one_node_params : OneNodeParams orig_base_params}.
Context {raft_params : RaftParams orig_base_params}.
Context {rri : raft_refinement_interface}.
Context {aerlli : append_entries_leaderLogs_interface}.
Proof using aerlli.
red. unfold allEntries_leaderLogs_term. intros. simpl in *. subst.
repeat find_higher_order_rewrite.
destruct_update; simpl in *;
[|find_apply_hyp_hyp; intuition;
right; break_exists_exists; intuition;
find_higher_order_rewrite;
destruct_update; simpl in *; eauto;
rewrite update_elections_data_appendEntries_leaderLogs; eauto].
find_apply_lem_hyp update_elections_data_appendEntries_allEntries_term.
intuition;
[find_apply_hyp_hyp; intuition;
right; break_exists_exists; intuition;
find_higher_order_rewrite;
destruct_update; simpl in *; eauto;
rewrite update_elections_data_appendEntries_leaderLogs; eauto|].
subst.
match goal with
| H : context [pBody] |- _ =>
eapply append_entries_leaderLogs_invariant in H; eauto
end.
break_exists. break_and. subst. do_in_app.
case H7; intros; try find_apply_hyp_hyp; auto.
right.
find_eapply_lem_hyp Prefix_In; eauto.
repeat eexists; eauto.
find_higher_order_rewrite;
destruct_update; simpl in *; eauto;
rewrite update_elections_data_appendEntries_leaderLogs; subst; eauto.
Qed.
Proof using.
unfold refined_raft_net_invariant_init, allEntries_leaderLogs_term.
simpl. intuition.
Qed.
Proof using.
unfold refined_raft_net_invariant_client_request, allEntries_leaderLogs_term.
simpl.
intros.
subst.
repeat find_higher_order_rewrite.
destruct_update.
- simpl in *.
find_copy_apply_lem_hyp update_elections_data_client_request_allEntries.
intuition.
+ repeat find_rewrite.
find_apply_hyp_hyp.
intuition.
right.
break_exists_exists.
find_higher_order_rewrite.
destruct_update.
* simpl in *. rewrite update_elections_data_client_request_leaderLogs.
intuition.
* intuition.
+ break_exists. intuition.
find_rewrite. simpl in *. intuition.
* find_inversion.
find_copy_apply_lem_hyp handleClientRequest_type.
intuition.
repeat find_rewrite. intuition.
* find_apply_hyp_hyp.
intuition.
right.
break_exists_exists.
find_higher_order_rewrite.
{ destruct_update.
* simpl in *. rewrite update_elections_data_client_request_leaderLogs.
intuition.
* intuition.
}
- find_apply_hyp_hyp.
intuition.
right.
break_exists_exists.
find_higher_order_rewrite.
{ destruct_update.
* simpl in *. rewrite update_elections_data_client_request_leaderLogs.
intuition.
* intuition.
}
Qed.
Proof using.
unfold refined_raft_net_invariant_timeout, allEntries_leaderLogs_term.
simpl. intros.
repeat find_higher_order_rewrite.
destruct_update.
- simpl in *.
find_rewrite_lem update_elections_data_timeout_allEntries.
find_apply_hyp_hyp.
intuition.
right. break_exists_exists.
find_higher_order_rewrite.
destruct_update.
+ simpl in *. rewrite update_elections_data_timeout_leaderLogs. intuition.
+ intuition.
- find_apply_hyp_hyp.
intuition.
right.
break_exists_exists.
find_higher_order_rewrite.
destruct_update.
+ simpl in *. rewrite update_elections_data_timeout_leaderLogs. intuition.
+ intuition.
Qed.
Proof using.
unfold refined_raft_net_invariant_append_entries_reply, allEntries_leaderLogs_term.
simpl.
intros.
repeat find_higher_order_rewrite.
destruct_update.
- simpl in *. find_apply_hyp_hyp.
intuition.
right.
break_exists_exists.
find_higher_order_rewrite.
destruct_update.
+ simpl in *. auto.
+ intuition.
- find_apply_hyp_hyp.
intuition.
right.
break_exists_exists.
find_higher_order_rewrite.
destruct_update.
+ simpl in *. auto.
+ intuition.
Qed.
Proof using.
unfold refined_raft_net_invariant_request_vote, allEntries_leaderLogs_term.
simpl.
intros.
repeat find_higher_order_rewrite.
destruct_update.
- simpl in *. find_rewrite_lem update_elections_data_requestVote_allEntries.
find_apply_hyp_hyp.
intuition.
right.
break_exists_exists.
find_higher_order_rewrite.
destruct_update.
+ simpl in *. rewrite leaderLogs_update_elections_data_requestVote. auto.
+ intuition.
- find_apply_hyp_hyp.
intuition.
right.
break_exists_exists.
find_higher_order_rewrite.
destruct_update.
+ simpl in *. rewrite leaderLogs_update_elections_data_requestVote. auto.
+ intuition.
Qed.
Proof using.
unfold refined_raft_net_invariant_request_vote_reply, allEntries_leaderLogs_term.
simpl. intros.
repeat find_higher_order_rewrite.
destruct_update.
- simpl in *. find_rewrite_lem update_elections_data_requestVoteReply_allEntries.
find_apply_hyp_hyp.
intuition.
right.
break_exists_exists.
find_higher_order_rewrite.
destruct_update.
+ simpl. intuition.
apply update_elections_data_requestVoteReply_old.
auto.
+ auto.
- find_apply_hyp_hyp.
intuition.
right.
break_exists_exists.
find_higher_order_rewrite.
destruct_update.
+ simpl. intuition.
apply update_elections_data_requestVoteReply_old.
auto.
+ auto.
Qed.
Proof using.
unfold refined_raft_net_invariant_do_leader, allEntries_leaderLogs_term.
simpl. intros.
repeat find_higher_order_rewrite.
match goal with
| [ H : nwState ?net ?h = (?gd, ?d) |- _ ] =>
((replace gd with (fst (nwState net h)) in * by (now rewrite H));
(replace d with (snd (nwState net h)) in * by (now rewrite H))); clear H
end.
destruct_update.
- simpl in *.
find_apply_hyp_hyp.
intuition.
right.
break_exists_exists.
find_higher_order_rewrite.
destruct_update; auto.
- find_apply_hyp_hyp.
intuition.
right.
break_exists_exists.
repeat find_higher_order_rewrite.
destruct_update; auto.
Qed.
Proof using.
unfold refined_raft_net_invariant_do_generic_server, allEntries_leaderLogs_term.
simpl. intros.
repeat find_higher_order_rewrite.
match goal with
| [ H : nwState ?net ?h = (?gd, ?d) |- _ ] =>
((replace gd with (fst (nwState net h)) in * by (now rewrite H));
(replace d with (snd (nwState net h)) in * by (now rewrite H))); clear H
end.
destruct_update.
- simpl in *.
find_apply_hyp_hyp.
intuition.
right.
break_exists_exists.
find_higher_order_rewrite.
destruct_update; auto.
- find_apply_hyp_hyp.
intuition.
right.
break_exists_exists.
repeat find_higher_order_rewrite.
destruct_update; auto.
Qed.
Proof using.
unfold refined_raft_net_invariant_state_same_packet_subset, allEntries_leaderLogs_term.
simpl.
intros.
find_reverse_higher_order_rewrite.
find_apply_hyp_hyp.
intuition.
right. break_exists_exists.
find_reverse_higher_order_rewrite.
auto.
Qed.
Proof using.
unfold refined_raft_net_invariant_reboot, allEntries_leaderLogs_term.
simpl. intros.
find_higher_order_rewrite.
match goal with
| [ H : nwState ?net ?h = (?gd, ?d) |- _ ] =>
((replace gd with (fst (nwState net h)) in * by (now rewrite H));
(replace d with (snd (nwState net h)) in * by (now rewrite H))); clear H
end.
subst.
destruct_update.
- simpl in *.
find_apply_hyp_hyp.
intuition.
right.
break_exists_exists.
find_higher_order_rewrite.
destruct_update.
+ simpl. intuition.
+ auto.
- find_apply_hyp_hyp.
intuition.
right.
break_exists_exists.
find_higher_order_rewrite.
destruct_update.
+ simpl. intuition.
+ auto.
Qed.

Lemma allEntries_leaderLogs_term_invariant :
forall net,
refined_raft_intermediate_reachable net ->
allEntries_leaderLogs_term net.