Section LeaderLogsSublog.
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 {lsi : leader_sublog_interface}.
Context {lltsi : leaderLogs_term_sanity_interface}.
Context {eewci : every_entry_was_created_interface}.
Context {llcei : leaderLogs_candidate_entries_interface}.
Context {cci : cronies_correct_interface}.
Context {vci : votes_correct_interface}.
Proof using.
unfold refined_raft_net_invariant_init, leaderLogs_sublog.
simpl. intuition.
Qed.
Ltac start :=
repeat match goal with
| [ H : _ |- _ ] =>
rewrite update_fun_comm with (f := fst) in H
| [ H : _ |- _ ] =>
rewrite update_fun_comm with (f := snd) in H
| [ H : _ |- _ ] =>
rewrite update_fun_comm with (f := leaderLogs) in H
end;
rewrite update_fun_comm with (f := snd);
simpl in *;
match goal with
| [ H : context [ type ] |- _ ] =>
rewrite update_fun_comm in H;
rewrite update_nop_ext' in H by auto
end;
match goal with
| [ H : context [ currentTerm ] |- _ ] =>
rewrite update_fun_comm in H;
rewrite update_nop_ext' in H by auto
end.
Proof using.
unfold refined_raft_net_invariant_client_request, leaderLogs_sublog.
intuition.
simpl in *.
repeat find_higher_order_rewrite.
find_copy_apply_lem_hyp handleClientRequest_type. intuition.
start.
find_rewrite_lem update_elections_data_client_request_leaderLogs.
find_erewrite_lem update_nop_ext' .
update_destruct_max_simplify.
- destruct (log d) using (handleClientRequest_log_ind ltac:(eauto)).
+ eauto.
+ simpl. right. eauto.
- eauto.
Qed.
Proof using.
unfold refined_raft_net_invariant_timeout, leaderLogs_sublog.
simpl. intuition.
repeat find_higher_order_rewrite.
find_copy_apply_lem_hyp handleTimeout_type.
intuition.
- start.
find_rewrite_lem update_elections_data_timeout_leaderLogs.
find_erewrite_lem update_nop_ext' .
update_destruct_max_simplify; eauto.
erewrite handleTimeout_log_same by eauto; eauto.
- repeat update_destruct_max_simplify; try congruence.
+ find_rewrite_lem update_elections_data_timeout_leaderLogs.
eauto.
+ eauto.
Qed.

Lemma handleAppendEntries_leader :
forall h st t n pli plt es ci st' m,
handleAppendEntries h st t n pli plt es ci = (st', m) ->
type st' = Leader ->
log st' = log st.