src/HOL/Tools/datatype_rep_proofs.ML
changeset 11822 122834177ec1
parent 11806 e1fd22a657ae
child 11827 16ef206e6648
--- a/src/HOL/Tools/datatype_rep_proofs.ML	Wed Oct 17 20:24:37 2001 +0200
+++ b/src/HOL/Tools/datatype_rep_proofs.ML	Wed Oct 17 20:25:19 2001 +0200
@@ -181,9 +181,9 @@
 
     val thy3 = add_path flat_names big_name (foldl (fn (thy, ((((name, mx), tvs), c), name')) =>
       setmp TypedefPackage.quiet_mode true
-        (TypedefPackage.add_typedef_i_no_def name' (name, tvs, mx) c [] []
-          (Some (QUIET_BREADTH_FIRST (has_fewer_prems 1)
-            (resolve_tac (Funs_nonempty::rep_intrs) 1)))) thy |> #1)
+        (TypedefPackage.add_typedef_i false name' (name, tvs, mx) c None
+          (QUIET_BREADTH_FIRST (has_fewer_prems 1)
+            (resolve_tac (Funs_nonempty::rep_intrs) 1))) thy |> #1)
               (parent_path flat_names thy2, types_syntax ~~ tyvars ~~
                 (take (length newTs, consts)) ~~ new_type_names));