(*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 REACH_local_REACH': forall mu m1 vals1 b1 (R : REACH m1 (exportedSrc mu vals1) b1 = true) (WD: SM_wd mu) m2 vals2 (MemInjMu : Mem.inject (as_inj mu) m1 m2) (ValInjMu : Forall2 (val_inject (as_inj mu)) vals1 vals2) (locBSrc : locBlocksSrc mu b1 = true) b2 d (LOC: local_of mu b1 = Some (b2, d)), REACH m2 (exportedTgt mu vals2) b2 = true.