# HG changeset patch
# User wenzelm
# Date 1190732779 -7200
# Node ID 1618c2ac1b7488e8b8fae4c5ef75117df51ac3c9
# Parent  8b3b6d09ef40a0fa825652e84671e20e9c8727e8
proper Sign operations instead of Theory aliases;
tuned functor application;

diff -r 8b3b6d09ef40 -r 1618c2ac1b74 src/HOL/Tools/function_package/size.ML
--- a/src/HOL/Tools/function_package/size.ML	Tue Sep 25 17:06:18 2007 +0200
+++ b/src/HOL/Tools/function_package/size.ML	Tue Sep 25 17:06:19 2007 +0200
@@ -16,14 +16,14 @@
 
 open DatatypeAux;
 
-structure SizeData = TheoryDataFun(
-struct
+structure SizeData = TheoryDataFun
+(
   type T = thm list Symtab.table;
   val empty = Symtab.empty;
   val copy = I
   val extend = I
   fun merge _ = Symtab.merge (K true);
-end);
+);
 
 fun specify_consts args thy =
   let
@@ -133,7 +133,7 @@
 
     val (size_def_thms, thy') =
       thy
-      |> Theory.add_consts_i (map (fn (s, T) =>
+      |> Sign.add_consts_i (map (fn (s, T) =>
            (Sign.base_name s, T --> HOLogic.natT, NoSyn))
            (Library.drop (head_len, size_names ~~ recTs)))
       |> fold (fn (_, (name, _, _)) => instance_size_class name) descr'
@@ -190,11 +190,11 @@
   in if no_size then thy
     else
       thy
-      |> Theory.add_path prefix
+      |> Sign.add_path prefix
       |> (if ! quick_and_dirty
         then axiomatize_size_thms info head_len
         else prove_size_thms info head_len)
-      ||> Theory.parent_path
+      ||> Sign.parent_path
       |-> (fn thms => PureThy.add_thmss [(("", thms),
             [Simplifier.simp_add, Thm.declaration_attribute
               (fn thm => Context.mapping (Code.add_default_func thm) I)])])