src/Pure/Proof/extraction.ML
changeset 42375 774df7c59508
parent 42360 da8817d01e7c
child 42406 05f2468d6b36
--- a/src/Pure/Proof/extraction.ML	Sun Apr 17 13:47:22 2011 +0200
+++ b/src/Pure/Proof/extraction.ML	Sun Apr 17 19:54:04 2011 +0200
@@ -36,7 +36,7 @@
   thy
   |> Theory.copy
   |> Sign.root_path
-  |> Sign.add_types [(Binding.name "Type", 0, NoSyn), (Binding.name "Null", 0, NoSyn)]
+  |> Sign.add_types_global [(Binding.name "Type", 0, NoSyn), (Binding.name "Null", 0, NoSyn)]
   |> Sign.add_consts
       [(Binding.name "typeof", "'b::{} => Type", NoSyn),
        (Binding.name "Type", "'a::{} itself => Type", NoSyn),