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 sig_preserved: forall f tf, transf_fundef f = OK tf -> Linear.funsig tf = LTL.funsig f.