Definition replace_externs (mu:SM_Injection) fSrc' fTgt': SM_Injection :=
  match mu with
    Build_SM_Injection locBSrc locBTgt pSrc pTgt local extBSrc extBTgt fSrc fTgt extern =>
    Build_SM_Injection locBSrc locBTgt pSrc pTgt local extBSrc extBTgt fSrc' fTgt' extern
  end.

Lemma replace_externs_foreign: forall mu frgSrc' frgTgt', foreign_of (replace_externs mu frgSrc' frgTgt') = fun b : block => if frgSrc' b then extern_of mu b else None.