Definition match_prog (p: Csharpminor.program) (tp: Cminor.program) :=
  match_program (fun cu f tf => transl_fundef f = OK tf) eq p tp.

Lemma perm_freelist: forall fbl m m' b ofs k p, Mem.free_list m fbl = Some m' -> Mem.perm m' b ofs k p -> Mem.perm m b ofs k p.