(*The blocks explicitly exported via call arguments, plus the already shared blocks*)
Definition exportedSrc mu vals b := orb (getBlocks vals b) (sharedSrc mu b).
Definition exportedTgt mu vals b := orb (getBlocks vals b) (sharedTgt mu b).

Lemma exported_inject: forall mu (WD: SM_wd mu) vals1 vals2
(ValInjMu : Forall2 (val_inject (as_inj mu)) vals1 vals2) b
(SRC: exportedSrc mu vals1 b = true ),
exists jb d, as_inj mu b = Some (jb, d)
/\ exportedTgt mu vals2 jb = true.