src/HOL/Tools/Predicate_Compile/predicate_compile.ML
changeset 33134 88c9c3460fe7
parent 33132 07efd452a698
child 33139 9c01ee6f8ee9
equal deleted inserted replaced
33133:2eb7dfcf3bc3 33134:88c9c3460fe7
   111       show_intermediate_results = chk "show_intermediate_results",
   111       show_intermediate_results = chk "show_intermediate_results",
   112       show_proof_trace = chk "show_proof_trace",
   112       show_proof_trace = chk "show_proof_trace",
   113       show_mode_inference = chk "show_mode_inference",
   113       show_mode_inference = chk "show_mode_inference",
   114       inductify = chk "inductify",
   114       inductify = chk "inductify",
   115       rpred = chk "rpred",
   115       rpred = chk "rpred",
   116       sizelim = chk "sizelim"
   116       depth_limited = chk "depth_limited"
   117     }
   117     }
   118   end
   118   end
   119 
   119 
   120 fun code_pred_cmd ((modes, raw_options), raw_const) lthy =
   120 fun code_pred_cmd ((modes, raw_options), raw_const) lthy =
   121   let
   121   let
   139   end
   139   end
   140 
   140 
   141 val setup = Predicate_Compile_Fun.setup_oracle #> Predicate_Compile_Core.setup
   141 val setup = Predicate_Compile_Fun.setup_oracle #> Predicate_Compile_Core.setup
   142 
   142 
   143 val bool_options = ["show_steps", "show_intermediate_results", "show_proof_trace",
   143 val bool_options = ["show_steps", "show_intermediate_results", "show_proof_trace",
   144   "show_mode_inference", "inductify", "rpred", "sizelim"]
   144   "show_mode_inference", "inductify", "rpred", "depth_limited"]
   145 
   145 
   146 val _ = List.app OuterKeyword.keyword ("mode" :: bool_options)
   146 val _ = List.app OuterKeyword.keyword ("mode" :: bool_options)
   147 
   147 
   148 local structure P = OuterParse
   148 local structure P = OuterParse
   149 in
   149 in