170 val ctxt = |
170 val ctxt = |
171 (case opt_src of |
171 (case opt_src of |
172 NONE => ctxt0 |
172 NONE => ctxt0 |
173 | SOME src => #2 (Method.syntax (Method.sections recdef_modifiers) src ctxt0)); |
173 | SOME src => #2 (Method.syntax (Method.sections recdef_modifiers) src ctxt0)); |
174 val {simps, congs, wfs} = get_hints ctxt; |
174 val {simps, congs, wfs} = get_hints ctxt; |
175 val cs = local_claset_of ctxt; |
175 val cs = claset_of ctxt; |
176 val ss = local_simpset_of ctxt addsimps simps; |
176 val ss = simpset_of ctxt addsimps simps; |
177 in (cs, ss, rev (map snd congs), wfs) end; |
177 in (cs, ss, rev (map snd congs), wfs) end; |
178 |
178 |
179 fun prepare_hints_i thy () = |
179 fun prepare_hints_i thy () = |
180 let |
180 let |
181 val ctxt0 = ProofContext.init thy; |
181 val ctxt0 = ProofContext.init thy; |
182 val {simps, congs, wfs} = get_global_hints thy; |
182 val {simps, congs, wfs} = get_global_hints thy; |
183 in (local_claset_of ctxt0, local_simpset_of ctxt0 addsimps simps, rev (map snd congs), wfs) end; |
183 in (claset_of ctxt0, simpset_of ctxt0 addsimps simps, rev (map snd congs), wfs) end; |
184 |
184 |
185 |
185 |
186 |
186 |
187 (** add_recdef(_i) **) |
187 (** add_recdef(_i) **) |
188 |
188 |