Arguments aftA [A B s p P].
Arguments aftI [A s p P Q].
End Always.
Section AlwaysInject.
Variables (V W : world) (K : hooks) (A : Type) (w : injects V W K) (this: nid).
Notation W2 := (inj_ext w).

Lemma rely_split' z s1 s1' s2 s2' :
s1 \In Coh V -> s2 \In Coh V ->
network_step W z (s1 \+ s1') (s2 \+ s2') ->
network_step V z s1 s2 /\ network_step (inj_ext w) z s1' s2'.