proposition: Lemma post_net_analyze_sent_packet : forall h p ms xs ys, In p (map (fun m => mkPacket h (fst m) (snd m)) ms ++ xs ++ ys) -> (In (pDst p, pBody p) ms /\ h = pSrc p) \/ In p (xs ++ ys).
proof: Proof. Proof using. intros. in_crush. destruct x; simpl in *; eauto. Qed.
imports: Verdi(Verdi)