1.1 --- a/test/Tools/isac/MathEngBasic/rewrite.sml	Fri Apr 10 15:02:50 2020 +0200
     1.2 +++ b/test/Tools/isac/MathEngBasic/rewrite.sml	Fri Apr 10 16:16:09 2020 +0200
     1.3 @@ -532,7 +532,7 @@
     1.4          | rew_once ruls asm ct Appl [] = 
     1.5            (case rls of Rule_Set.Repeat _ => rew_once ruls asm ct Noap ruls
     1.6            | Rule_Set.Seqence _ => (ct, asm)
     1.7 -          | rls => raise ERROR ("rew_once not appl. to \"" ^ Rule.rls2str rls ^ "\""))
     1.8 +          | rls => raise ERROR ("rew_once not appl. to \"" ^ Rule_Set.id rls ^ "\""))
     1.9          | rew_once ruls asm ct apno (rul :: thms) =
    1.10            case rul of
    1.11              Rule.Thm (thmid, thm) =>
    1.12 @@ -576,9 +576,9 @@
    1.13              (case rewrite__set_ thy (i + 1) put_asm bdv rls' ct of
    1.14                SOME (t', asm') => rew_once ruls (union (op =) asm asm') t' Appl thms
    1.15              | NONE => rew_once ruls asm ct apno thms)
    1.16 -          | r => raise ERROR ("rew_once not appl. to \"" ^ Rule.rule2str r ^ "\"");
    1.17 +          | r => raise ERROR ("rew_once not appl. to \"" ^ Rule.Rule.to_string r ^ "\"");
    1.18        val ruls = (#rules o Rule.Rule_Set.rep) rls;
    1.19 -(*    val _ = trace i (" rls: " ^ Rule_Set.rls2str rls ^ " on: " ^ UnparseC.t2str thy ct)*)
    1.20 +(*    val _ = trace i (" rls: " ^ Rule_Set.id rls ^ " on: " ^ UnparseC.t2str thy ct)*)
    1.21        val (ct', asm') = rew_once ruls [] ct Noap ruls;
    1.22  "~~~~~ fun rew_once , args:"; val (ruls, asm, ct, apno, (rul :: thms))
    1.23    = (ruls, []:term list, ct, Noap, ruls);