Definition sequence_equality (net : seq_num_network) :=
    forall p p',
      In p (nwPackets net) ->
      In p' (nwPackets net) ->
      (tmNum (pBody p)) = (tmNum (pBody p')) ->
      pSrc p = pSrc p' ->
      p = p'.

Lemma step_dup_star_revert_simulation : forall net tr, step_dup_star step_async_init net tr -> exists tr', step_async_star step_async_init (revertNetwork net) tr' /\ filterMap trace_non_empty_out tr = filterMap trace_non_empty_out tr'.