Proof using.
intros. find_apply_lem_hyp handleClientRequest_log. intuition.
Qed.

(* Specifications: *)
Theorem logs_sorted_nw_packets_unchanged :
forall net ps' st',
logs_sorted_nw net ->
(forall p, In p ps' -> In p (nwPackets net) \/ False) ->
logs_sorted_nw (mkNetwork ps' st').