(*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 val_inject_sub_on' j k: forall v1 v2 (V: val_inject j v1 v2) (HK: forall b b2 d, getBlocks (v1::nil) b = true -> j b = Some(b2,d) -> k b = Some(b2,d)), val_inject k v1 v2.