Proof using rmri rlmli.
unfold lifted_entries_gt_0_nw.
intros.
pose proof msg_lift_prop _ entries_gt_0_nw_invariant _ ltac:(eauto).
unfold entries_gt_0_nw in *.
find_apply_lem_hyp in_mgv_ghost_packet.
match goal with
| [ H : _ |- _ ] => eapply H; eauto
end.
Qed.
Definition lifted_entries_sorted_nw' (net : ghost_log_network) :=
forall p t n pli plt es ci,
In p (nwPackets net) ->
snd (pBody p) = AppendEntries t n pli plt es ci ->
sorted es.

(* Specifications: *)
Lemma lifted_entries_sorted_nw'_invariant :
forall net,
msg_refined_raft_intermediate_reachable net ->
lifted_entries_sorted_nw' net.