Section GhostLogAllEntriesProof.
Context {orig_base_params : BaseParams}.
Context {one_node_params : OneNodeParams orig_base_params}.
Context {raft_params : RaftParams orig_base_params}.
Context {rmri : raft_msg_refinement_interface}.
Context {iliaei : in_log_in_all_entries_interface}.
Definition lifted_in_log_in_all_entries (net : network) :=
forall h e,
In e (log (snd (nwState net h))) ->
exists t,
In (t, e) (allEntries (fst (nwState net h))).
Proof using iliaei rmri.
intros.
unfold lifted_in_log_in_all_entries; intros.
find_eapply_lem_hyp msg_lift_prop;
[|intros; eapply in_log_in_all_entries_invariant; eauto].
simpl in *.
unfold in_log_in_all_entries in *.
unfold mgv_deghost in *.
simpl in *.
repeat break_match; simpl in *; eauto.
Qed.
Proof using.
unfold update_elections_data_appendEntries.
intros. break_let. break_match; auto.
break_if; auto.
simpl. intuition.
Qed.

Lemma ghost_log_allEntries_append_entries :
msg_refined_raft_net_invariant_append_entries' ghost_log_allEntries.