Proof using.
unfold deghost.
simpl. intuition.
apply in_map_iff.
eexists; eauto.
Qed.

Lemma in_mgv_ghost_packet :
forall (net : ghost_log_network) p,
In p (nwPackets net) ->
In (mgv_deghost_packet p) (nwPackets (mgv_deghost net)).