src/HOL/Tools/specification_package.ML
changeset 18377 0e1d025d57b3
parent 18358 0a733e11021a
child 18418 bf448d999b7e
--- a/src/HOL/Tools/specification_package.ML	Thu Dec 08 20:16:17 2005 +0100
+++ b/src/HOL/Tools/specification_package.ML	Fri Dec 09 09:06:45 2005 +0100
@@ -49,7 +49,7 @@
         let
             fun process [] (thy,tm) =
                 let
-                    val (thy',thms) = PureThy.add_axioms_i [((axname,HOLogic.mk_Trueprop tm),[])] thy
+                    val (thms, thy') = PureThy.add_axioms_i [((axname,HOLogic.mk_Trueprop tm),[])] thy
                 in
                     (thy',hd thms)
                 end