equal
deleted
inserted
replaced
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 |