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

Lemma match_fdecs_rev':
forall vl G vl' G',
list_norepet (map (@fst _ _) (rev vl ++ vl')) ->
match_fdecs vl G ->
match_fdecs vl' G' ->
match_fdecs (rev vl ++ vl') (rev G ++ G').