(*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.