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