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 reach_in_exported_src b m args j :
REACH m (getBlocks args) b=true -> REACH m (exportedSrc j args) b=true.