# HG changeset patch
# User wenzelm
# Date 1268487784 -3600
# Node ID eb8d2f668bfc06a69cbaeb13a8fbf136abd91f8d
# Parent  4f3660a3e5afcb37b68726a32331a368557bb480
global typedef;

diff -r 4f3660a3e5af -r eb8d2f668bfc src/HOL/Import/proof_kernel.ML
--- a/src/HOL/Import/proof_kernel.ML	Sat Mar 13 14:42:16 2010 +0100
+++ b/src/HOL/Import/proof_kernel.ML	Sat Mar 13 14:43:04 2010 +0100
@@ -2094,7 +2094,7 @@
             val tsyn = mk_syn thy tycname
             val typ = (tycname,tnames,tsyn)
             val ((_, typedef_info), thy') =
-              Typedef.add_typedef false (SOME (Binding.name thmname))
+              Typedef.add_typedef_global false (SOME (Binding.name thmname))
                 (Binding.name tycname, tnames, tsyn) c NONE (rtac th2 1) thy
             val _ = ImportRecorder.add_typedef (SOME thmname) typ c NONE th2
 
@@ -2182,7 +2182,7 @@
             val tsyn = mk_syn thy tycname
             val typ = (tycname,tnames,tsyn)
             val ((_, typedef_info), thy') =
-              Typedef.add_typedef false NONE (Binding.name tycname,tnames,tsyn) c
+              Typedef.add_typedef_global false NONE (Binding.name tycname,tnames,tsyn) c
                 (SOME(Binding.name rep_name,Binding.name abs_name)) (rtac th2 1) thy
             val _ = ImportRecorder.add_typedef NONE typ c (SOME(rep_name,abs_name)) th2
             val fulltyname = Sign.intern_type thy' tycname
diff -r 4f3660a3e5af -r eb8d2f668bfc src/HOL/Import/replay.ML
--- a/src/HOL/Import/replay.ML	Sat Mar 13 14:42:16 2010 +0100
+++ b/src/HOL/Import/replay.ML	Sat Mar 13 14:43:04 2010 +0100
@@ -343,7 +343,7 @@
           | delta (Hol_theorem (thyname, thmname, th)) thy =
             add_hol4_theorem thyname thmname ([], th_of thy th) thy
           | delta (Typedef (thmname, (t, vs, mx), c, repabs, th)) thy = 
-            snd (Typedef.add_typedef false (Option.map Binding.name thmname) (Binding.name t, vs, mx) c
+            snd (Typedef.add_typedef_global false (Option.map Binding.name thmname) (Binding.name t, vs, mx) c
         (Option.map (pairself Binding.name) repabs) (rtac (th_of thy th) 1) thy)
           | delta (Hol_type_mapping (thyname, tycname, fulltyname)) thy =  
             add_hol4_type_mapping thyname tycname true fulltyname thy
diff -r 4f3660a3e5af -r eb8d2f668bfc src/HOL/Nominal/nominal_datatype.ML
--- a/src/HOL/Nominal/nominal_datatype.ML	Sat Mar 13 14:42:16 2010 +0100
+++ b/src/HOL/Nominal/nominal_datatype.ML	Sat Mar 13 14:43:04 2010 +0100
@@ -615,7 +615,7 @@
     val (typedefs, thy6) =
       thy4
       |> fold_map (fn ((((name, mx), tvs), (cname, U)), name') => fn thy =>
-          Typedef.add_typedef false (SOME (Binding.name name'))
+          Typedef.add_typedef_global false (SOME (Binding.name name'))
             (Binding.name name, map fst tvs, mx)
             (Const ("Collect", (U --> HOLogic.boolT) --> HOLogic.mk_setT U) $
                Const (cname, U --> HOLogic.boolT)) NONE
diff -r 4f3660a3e5af -r eb8d2f668bfc src/HOL/Tools/Datatype/datatype.ML
--- a/src/HOL/Tools/Datatype/datatype.ML	Sat Mar 13 14:42:16 2010 +0100
+++ b/src/HOL/Tools/Datatype/datatype.ML	Sat Mar 13 14:43:04 2010 +0100
@@ -190,7 +190,7 @@
     val (typedefs, thy3) = thy2 |>
       Sign.parent_path |>
       fold_map (fn ((((name, mx), tvs), c), name') =>
-          Typedef.add_typedef false (SOME (Binding.name name')) (name, tvs, mx)
+          Typedef.add_typedef_global false (SOME (Binding.name name')) (name, tvs, mx)
             (Collect $ Const (c, UnivT')) NONE
             (rtac exI 1 THEN rtac CollectI 1 THEN
               QUIET_BREADTH_FIRST (has_fewer_prems 1)
diff -r 4f3660a3e5af -r eb8d2f668bfc src/HOL/Tools/Quotient/quotient_typ.ML
--- a/src/HOL/Tools/Quotient/quotient_typ.ML	Sat Mar 13 14:42:16 2010 +0100
+++ b/src/HOL/Tools/Quotient/quotient_typ.ML	Sat Mar 13 14:43:04 2010 +0100
@@ -75,7 +75,7 @@
      EVERY1 (map rtac [@{thm exI}, mem_def2, @{thm exI}, @{thm refl}])
 in
   Local_Theory.theory_result
-    (Typedef.add_typedef false NONE
+    (Typedef.add_typedef_global false NONE
        (qty_name, vs, mx)
           (typedef_term rel rty lthy)
              NONE typedef_tac) lthy
diff -r 4f3660a3e5af -r eb8d2f668bfc src/HOL/Tools/record.ML
--- a/src/HOL/Tools/record.ML	Sat Mar 13 14:42:16 2010 +0100
+++ b/src/HOL/Tools/record.ML	Sat Mar 13 14:43:04 2010 +0100
@@ -104,8 +104,8 @@
   let
     fun get_thms thy name =
       let
-        val {Rep_inject = rep_inject, Abs_name = absN, abs_type = absT,
-          Abs_inverse = abs_inverse, ...} = Typedef.the_info thy name;
+        val [{Rep_inject = rep_inject, Abs_name = absN, abs_type = absT,
+          Abs_inverse = abs_inverse, ...}] = Typedef.get_info_global thy name;
         val rewrite_rule =
           MetaSimplifier.rewrite_rule [@{thm iso_tuple_UNIV_I}, @{thm iso_tuple_True_simp}];
       in
diff -r 4f3660a3e5af -r eb8d2f668bfc src/HOLCF/Tools/pcpodef.ML
--- a/src/HOLCF/Tools/pcpodef.ML	Sat Mar 13 14:42:16 2010 +0100
+++ b/src/HOLCF/Tools/pcpodef.ML	Sat Mar 13 14:43:04 2010 +0100
@@ -181,7 +181,7 @@
   let
     val name = the_default (#1 typ) opt_name;
     val ((full_tname, info as {type_definition, set_def, Rep_name, ...}), thy2) = thy
-      |> Typedef.add_typedef def opt_name typ set opt_morphs tac;
+      |> Typedef.add_typedef_global def opt_name typ set opt_morphs tac;
     val oldT = #rep_type info;
     val newT = #abs_type info;
     val lhs_tfrees = map dest_TFree (snd (dest_Type newT));