(*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 getBlocks_REACH_exportedSrc m mu vals b: forall (GB: getBlocks vals b = true), REACH m (exportedSrc mu vals) b = true.