Proof using rmri.
intuition.
destruct net, net'.
simpl in *.
eapply lifted_committed_ext'; eauto.
Qed.

(* Specifications: *)
Lemma exists_in_mgv_deghost_packet :
forall (p : packet (params := raft_refined_multi_params)) (net : ghost_log_network),
In p (nwPackets (mgv_deghost net)) ->
exists q,
In q (nwPackets net) /\
pDst q = pDst p /\
pSrc q = pSrc p /\
snd (pBody q) = pBody p.