Proof using rmri si rri.
intros.
rewrite <- msg_deghost_spec with (net0 := net).
eapply msg_lift_prop.
- auto using lifted_sorted_host.
- auto.
Qed.

Lemma lifted_sorted_network :
forall net p t n pli plt es ci,
refined_raft_intermediate_reachable net ->
In p (nwPackets net) ->
pBody p = AppendEntries t n pli plt es ci ->
sorted es.