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'.

Theorem reachable_revert : true_in_reachable step_dup step_async_init (fun st => reachable step_async step_async_init (revertNetwork st)).