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