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.

Lemma update_elections_data_appendEntries_preserves_allEntries' :
forall st h t n pli plt es ci x,
In x (allEntries (fst st)) ->
In x (allEntries (update_elections_data_appendEntries h st t n pli plt es ci)).