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