Proof using lphogli rlmli rmri.
assert (msg_log_property (fun x => contiguous_range_exact_lo x 0)) by
(unfold msg_log_property; intros; eapply lifted_entries_contiguous_invariant; eauto).
intros.
find_eapply_lem_hyp log_properties_hold_on_ghost_logs_invariant;
eauto; simpl in *; auto.
Qed.
Definition lifted_allEntries_leader_sublog (net : network) :=
forall leader e h,
type (snd (nwState net leader)) = Leader ->
In e (map snd (allEntries (fst (nwState net h)))) ->
eTerm e = currentTerm (snd (nwState net leader)) ->
In e (log (snd (nwState net leader))).

Lemma lifted_allEntries_leader_sublog_invariant :
forall (net : @network _ raft_msg_refined_multi_params),
msg_refined_raft_intermediate_reachable net ->
lifted_allEntries_leader_sublog net.