src/HOL/Tools/recdef.ML
changeset 32149 ef59550a55d3
parent 32091 30e2ffbba718
child 32863 5e8cef567042
equal deleted inserted replaced
32148:253f6808dabe 32149:ef59550a55d3
   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