Definition marshal j m args tm targs :=
  Build_SM_Injection
  (fun _ => false) (fun _ => false)
  (fun _ => false) (fun _ => false)
  (fun _ => None)
  (DomSrc j)
  (DomTgt j)
  (REACH m (getBlocks args))
  (REACH tm (getBlocks targs))
  (as_inj j).

Lemma safe_match_target_atext cd j c m d tm z tr ef sig args : (forall n, safeN tr_source geS n (z,tr,c) m) -> match_state cd j c m d tm -> at_external target d = Some (ef, sig, args) -> exists c' m' n, corestepN source geS n c m c' m' /\ TraceSemantics.yielded source c' /\ exists cd' j', match_state cd' j' c' m' d tm.