test/Tools/isac/Knowledge/polyminus.sml
changeset 59592 99c8d2ff63eb
parent 59585 0bb418c3855a
child 59603 30cd47104ad7
     1.1 --- a/test/Tools/isac/Knowledge/polyminus.sml	Mon Aug 26 09:20:07 2019 +0200
     1.2 +++ b/test/Tools/isac/Knowledge/polyminus.sml	Mon Aug 26 17:40:27 2019 +0200
     1.3 @@ -423,16 +423,16 @@
     1.4  val erls = erls_ordne_alphabetisch;
     1.5  val t = str2term "- 9 + 12 + 5 * e - 7 * e + (6 - 4) * f - 8 * g + 10 * g";
     1.6  val SOME (t',_) = 
     1.7 -    rewrite_ (@{theory "Isac"}) e_rew_ord erls false @{thm tausche_minus} t;
     1.8 +    rewrite_ (@{theory "Isac_Knowledge"}) e_rew_ord erls false @{thm tausche_minus} t;
     1.9  term2str t';     "- 9 + 12 + 5 * e - 7 * e + (- 4 + 6) * f - 8 * g + 10 * g";
    1.10  
    1.11  val t = str2term "- 9 + 12 + 5 * e - 7 * e + (6 - 4) * f - 8 * g + 10 * g";
    1.12  val NONE = 
    1.13 -    rewrite_ (@{theory "Isac"}) e_rew_ord erls false @{thm tausche_minus_plus} t;
    1.14 +    rewrite_ (@{theory "Isac_Knowledge"}) e_rew_ord erls false @{thm tausche_minus_plus} t;
    1.15  
    1.16  val t = str2term "- 9 + 12 + 5 * e - 7 * e + (6 - 4) * f - 8 * g + 10 * g";
    1.17  val SOME (t',_) = 
    1.18 -    rewrite_set_ (@{theory "Isac"}) false ordne_alphabetisch t;
    1.19 +    rewrite_set_ (@{theory "Isac_Knowledge"}) false ordne_alphabetisch t;
    1.20  term2str t';     "- 9 + 12 + 5 * e - 7 * e - 8 * g + 10 * g + (- 4 + 6) * f";
    1.21  trace_rewrite := false;
    1.22