src/HOL/Tools/Old_Datatype/old_datatype.ML
changeset 58239 1c5bc387bd4c
parent 58114 4e5a43b0e7dd
child 58242 3fb224b61995
--- a/src/HOL/Tools/Old_Datatype/old_datatype.ML	Mon Sep 08 23:04:18 2014 +0200
+++ b/src/HOL/Tools/Old_Datatype/old_datatype.ML	Mon Sep 08 23:04:18 2014 +0200
@@ -186,7 +186,7 @@
       |> Sign.parent_path
       |> fold_map
         (fn (((name, mx), tvs), c) =>
-          Typedef.add_typedef_global (name, tvs, mx)
+          Typedef.add_typedef_global false (name, tvs, mx)
             (Collect $ Const (c, UnivT')) NONE
             (rtac exI 1 THEN rtac CollectI 1 THEN
               QUIET_BREADTH_FIRST (has_fewer_prems 1)