Proof using.
intros.
destruct (max a (min b c)) using (Max.max_case _ _); intuition.
Qed.

(* Specifications: *)
Lemma in_ghost_packet :
forall (net : network (params := raft_refined_multi_params)) p,
In p (nwPackets net) ->
In (deghost_packet p) (nwPackets (deghost net)).