(* EXPERIMENT Lemma match_fdecs_nil: forall vl, match_fdecs vl nil. *)

Lemma initial_core_rev:
forall (gev: Genv.t fundef type) G n (vl: list (ident * globdef fundef type))
(H: list_norepet (map fst (rev vl)))
(SAME_IDS : match_fdecs (prog_funct' vl) (rev G)),
initial_core gev G n = initial_core gev (rev G) n.