Section inner.
Variable client : clientId.
Variable id : nat.
Fixpoint client_id_in l :=
match l with
| [] => false
| e :: l' =>
if (andb (if clientId_eq_dec (eClient e) client then true else false)
(eId e =? id)) then
true
else
client_id_in l'
end.

Lemma client_id_in_true_in_applied_entries :
forall net,
client_id_in (applied_entries (nwState net)) = true ->
in_applied_entries client id net.