Definition match_prog (p: Linear.program) (tp: Mach.program) :=
  match_program (fun _ f tf => transf_fundef f = OK tf) eq p tp.

(* Specifications: *)
Lemma transf_program_match: forall p tp, transf_program p = OK tp -> match_prog p tp.
Lemma typesize_typesize: forall ty, AST.typesize ty = 4 * Locations.typesize ty.