Ltac prep := subst; simpl in *; try find_inversion; repeat find_rewrite; simpl in *.

(* Specifications: *)
Lemma network_invariant_inductive : forall net net' tr, step_async net net' tr -> network_invariant net -> network_invariant net'.
Lemma network_invariant_init : network_invariant step_async_init.
Lemma correspond_Prefix : forall st net tr_1 tr_m, correspond st (nwState net) tr_1 tr_m -> Prefix (outputs_m tr_m) (outputs_1 tr_1).