Proof using.
intros.
apply in_split. apply revertNetwork_In; repeat find_rewrite; in_crush.
Qed.

(* Specifications: *)
Lemma processPackets_dedup :
forall processed (rest : list seq_num_packet) n' l h net,
(forall p, In p rest -> In p (nwPackets net)) ->
sequence_sane net ->
processPackets (tdNum (nwState net h)) l = (n', processed) ->
dedup pkt_eq_dec ((@send_packets _ multi_params h processed) ++ rest)
= (send_packets h processed) ++ (dedup pkt_eq_dec rest).