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

Lemma free_list_freeable: forall l m m', Mem.free_list m l = Some m' -> forall b lo hi, In (b, lo, hi) l -> Mem.range_perm m b lo hi Cur Freeable.