src/HOL/Tools/old_primrec.ML
changeset 33038 8f9594c31de4
parent 33037 b22e44496dc2
child 33040 cffdb7b28498
--- a/src/HOL/Tools/old_primrec.ML	Tue Oct 20 16:13:01 2009 +0200
+++ b/src/HOL/Tools/old_primrec.ML	Wed Oct 21 08:14:38 2009 +0200
@@ -226,7 +226,7 @@
       (case Symtab.lookup dt_info tname of
           NONE => primrec_err (quote tname ^ " is not a datatype")
         | SOME dt =>
-            if gen_subset (op =) (tnames', map (#1 o snd) (#descr dt)) then
+            if subset (op =) (tnames', map (#1 o snd) (#descr dt)) then
               (tname, dt)::(find_dts dt_info tnames' tnames)
             else find_dts dt_info tnames' tnames);
 
@@ -265,7 +265,7 @@
     val defs' = map (make_def thy fs) defs;
     val nameTs1 = map snd fnameTs;
     val nameTs2 = map fst rec_eqns;
-    val _ = if gen_eq_set (op =) (nameTs1, nameTs2) then ()
+    val _ = if eq_set (op =) (nameTs1, nameTs2) then ()
             else primrec_err ("functions " ^ commas_quote (map fst nameTs2) ^
               "\nare not mutually recursive");
     val primrec_name =