1.1 --- a/src/Tools/isac/ProgLang/rewrite.sml	Thu Apr 09 18:21:09 2020 +0200
     1.2 +++ b/src/Tools/isac/ProgLang/rewrite.sml	Fri Apr 10 12:28:47 2020 +0200
     1.3 @@ -180,7 +180,7 @@
     1.4              (case rewrite__set_ thy (i + 1) put_asm bdv rls' ct of
     1.5                SOME (t', asm') => rew_once ruls (union (op =) asm asm') t' Appl thms
     1.6              | NONE => rew_once ruls asm ct apno thms)
     1.7 -          | r => raise ERROR ("rew_once not appl. to \"" ^ Rule_Set.rule2str r ^ "\"");
     1.8 +          | r => raise ERROR ("rew_once not appl. to \"" ^ Rule.rule2str r ^ "\"");
     1.9        val ruls = (#rules o Rule_Set.rep) rls;
    1.10        val _ = trace i (" rls: " ^ Rule_Set.rls2str rls ^ " on: " ^ UnparseC.t2str thy ct)
    1.11        val (ct', asm') = rew_once ruls [] ct Noap ruls;