src/HOL/Tools/primrec.ML
changeset 38342 09d4a04d5c2e
parent 37145 01aa36932739
child 38350 480b2de9927c
equal deleted inserted replaced
38341:72dba5bd5f63 38342:09d4a04d5c2e
   297     val simps' = ProofContext.export lthy' lthy simps;
   297     val simps' = ProofContext.export lthy' lthy simps;
   298   in ((ts, simps'), Local_Theory.exit_global lthy') end;
   298   in ((ts, simps'), Local_Theory.exit_global lthy') end;
   299 
   299 
   300 fun add_primrec_overloaded ops fixes specs thy =
   300 fun add_primrec_overloaded ops fixes specs thy =
   301   let
   301   let
   302     val lthy = Theory_Target.overloading ops thy;
   302     val lthy = Overloading.overloading ops thy;
   303     val ((ts, simps), lthy') = add_primrec fixes specs lthy;
   303     val ((ts, simps), lthy') = add_primrec fixes specs lthy;
   304     val simps' = ProofContext.export lthy' lthy simps;
   304     val simps' = ProofContext.export lthy' lthy simps;
   305   in ((ts, simps'), Local_Theory.exit_global lthy') end;
   305   in ((ts, simps'), Local_Theory.exit_global lthy') end;
   306 
   306 
   307 
   307