equal
deleted
inserted
replaced
1591 |
1591 |
1592 fun get_rew_data thy = |
1592 fun get_rew_data thy = |
1593 let val (rules, procs) = #1 (Data.get thy) |
1593 let val (rules, procs) = #1 (Data.get thy) |
1594 in (map #2 rules, map #2 procs) end; |
1594 in (map #2 rules, map #2 procs) end; |
1595 |
1595 |
1596 fun rew_proof thy prf = rewrite_prf fst (get_rew_data thy) prf; |
1596 fun rew_proof thy = rewrite_prf fst (get_rew_data thy); |
1597 |
1597 |
1598 fun add_prf_rrule r = (Data.map o apfst o apfst) (cons (stamp (), r)); |
1598 fun add_prf_rrule r = (Data.map o apfst o apfst) (cons (stamp (), r)); |
1599 fun add_prf_rproc p = (Data.map o apfst o apsnd) (cons (stamp (), p)); |
1599 fun add_prf_rproc p = (Data.map o apfst o apsnd) (cons (stamp (), p)); |
1600 |
1600 |
1601 fun set_preproc f = (Data.map o apsnd) (K (SOME f)); |
1601 fun set_preproc f = (Data.map o apsnd) (K (SOME f)); |