improved behaviour of defined_functions in the predicate compiler
authorbulwahn
Wed May 19 18:24:03 2010 +0200 (2010-05-19)
changeset 37001bcffdb899167
parent 36986 942532de16f6
child 37002 34e73e8bab66
improved behaviour of defined_functions in the predicate compiler
src/HOL/Tools/Predicate_Compile/predicate_compile_core.ML
     1.1 --- a/src/HOL/Tools/Predicate_Compile/predicate_compile_core.ML	Wed May 19 17:39:22 2010 +0200
     1.2 +++ b/src/HOL/Tools/Predicate_Compile/predicate_compile_core.ML	Wed May 19 18:24:03 2010 +0200
     1.3 @@ -268,8 +268,9 @@
     1.4  
     1.5  val all_random_modes_of = all_modes_of Random
     1.6  
     1.7 -fun defined_functions compilation thy name =
     1.8 -  AList.defined (op =) (#function_names (the_pred_data thy name)) compilation
     1.9 +fun defined_functions compilation thy name = case lookup_pred_data thy name of
    1.10 +    NONE => false
    1.11 +  | SOME data => AList.defined (op =) (#function_names data) compilation
    1.12  
    1.13  fun lookup_predfun_data thy name mode =
    1.14    Option.map rep_predfun_data