Module NodesetFacts := FSetFacts.Facts(Nodeset).Definition match_prog (p: LTL.program) (tp: Linear.program) :=
  match_program (fun ctx f tf => transf_fundef f = OK tf) eq p tp.

Lemma stacksize_preserved: forall f tf, transf_function f = OK tf -> Linear.fn_stacksize tf = LTL.fn_stacksize f.