replaced ext_axtab by new_axioms;
authorwenzelm
Thu, 26 May 1994 16:43:48 +0200
changeset 400 3c2c40c87112
parent 399 86cc2b98f9e0
child 401 324ad2e02826
replaced ext_axtab by new_axioms;
src/Pure/drule.ML
--- a/src/Pure/drule.ML	Thu May 26 16:43:24 1994 +0200
+++ b/src/Pure/drule.ML	Thu May 26 16:43:48 1994 +0200
@@ -85,6 +85,8 @@
 structure Sign = Thm.Sign;
 structure Type = Sign.Type;
 structure Pretty = Sign.Syntax.Pretty
+structure Symtab = Sign.Symtab;
+
 local open Thm
 in
 
@@ -188,8 +190,8 @@
 
 fun print_axioms thy =
   let
-    val {sign, ext_axtab, ...} = rep_theory thy;
-    val axioms = Symtab.dest ext_axtab;
+    val {sign, new_axioms, ...} = rep_theory thy;
+    val axioms = Symtab.dest new_axioms;
 
     fun prt_axm (a, t) = Pretty.block [Pretty.str (a ^ ":"), Pretty.brk 1,
       Pretty.quote (Sign.pretty_term sign t)];