Proof using.
unfold applied_implies_input_state.
eauto 10.
Qed.

(* Specifications: *)
Lemma aiis_intro_packet :
forall client id i net e p es,
mEntries (pBody p) = Some es ->
In p (nwPackets net) ->
correct_entry client id i e ->
In e es ->
applied_implies_input_state client id i net.
Lemma doGenericServer_log :
forall h st os st' ps,
doGenericServer h st = (os, st', ps) ->
log st' = log st.