Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/Tools/choice_specification.ML
changeset 35625 9c818cab0dd0
parent 35021 c839a4c670c6
child 35807 e4d1b5cbd429 
--- a/src/HOL/Tools/choice_specification.ML	Sun Mar 07 11:57:16 2010 +0100
+++ b/src/HOL/Tools/choice_specification.ML	Sun Mar 07 12:19:47 2010 +0100
@@ -111,7 +111,7 @@
           | myfoldr f [] = error "Choice_Specification.process_spec internal error"
 
         val rew_imps = alt_props |>
-          map (ObjectLogic.atomize o Thm.cterm_of thy o Syntax.read_prop_global thy o snd)
+          map (Object_Logic.atomize o Thm.cterm_of thy o Syntax.read_prop_global thy o snd)
         val props' = rew_imps |>
           map (HOLogic.dest_Trueprop o term_of o snd o Thm.dest_equals o cprop_of)
isabelle