Proof using rlmli.  (* by log matching, annoying because of refinement *)
intros.
find_apply_lem_hyp entries_contiguous_nw_invariant.
unfold entries_contiguous_nw in *. eauto.
Qed.

Lemma exists_deghosted_packet :
forall net (p : packet (params := raft_refined_multi_params (raft_params := raft_params))),
In p (nwPackets net) ->
exists q,
In q (nwPackets (deghost net)) /\ q = deghost_packet p.