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)