--- a/src/HOL/Tools/inductive_codegen.ML Mon Feb 06 11:00:24 2006 +0100
+++ b/src/HOL/Tools/inductive_codegen.ML Mon Feb 06 11:01:28 2006 +0100
@@ -229,7 +229,7 @@
val (in_ts, out_ts) = get_args is 1 us;
val (out_ts', in_ts') = List.partition (is_constrt thy) out_ts;
val vTs = List.concat (map term_vTs out_ts');
- val dupTs = map snd (duplicates vTs) @
+ val dupTs = map snd (gen_duplicates (op =) vTs) @
List.mapPartial (AList.lookup (op =) vTs) vs;
in
terms_vs (in_ts @ in_ts') subset vs andalso
@@ -256,7 +256,7 @@
val in_vs = terms_vs in_ts;
val concl_vs = terms_vs ts
in
- forall is_eqT (map snd (duplicates (List.concat (map term_vTs in_ts)))) andalso
+ forall is_eqT (map snd (gen_duplicates (op =) (List.concat (map term_vTs in_ts)))) andalso
forall (is_eqT o fastype_of) in_ts' andalso
(case check_mode_prems (arg_vs union in_vs) ps of
NONE => false