test/Tools/isac/Knowledge/polyminus.sml
changeset 59188 c477d0f79ab9
parent 59118 5a0e75dec749
child 59248 5eba5e6d5266
     1.1 --- a/test/Tools/isac/Knowledge/polyminus.sml	Mon Dec 07 11:32:12 2015 +0100
     1.2 +++ b/test/Tools/isac/Knowledge/polyminus.sml	Mon Dec 07 14:10:59 2015 +0100
     1.3 @@ -238,7 +238,7 @@
     1.4  \  (((Try (Rewrite_Set ordne_alphabetisch False)) @@     \
     1.5  \    (Try (Rewrite_Set fasse_zusammen False)) @@     \
     1.6  \    (Try (Rewrite_Set verschoenere False))) t_t)"
     1.7 -val sc = ((inst_abs thy) o term_of o the o (parse thy)) str;
     1.8 +val sc = ((inst_abs thy) o Thm.term_of o the o (parse thy)) str;
     1.9  atomty sc;
    1.10  
    1.11  "----------- me simplification.for_polynomials.with_minus";
    1.12 @@ -344,7 +344,7 @@
    1.13  \ in (Repeat((Try (Repeat (Calculate TIMES))) @@  \
    1.14  \            (Try (Repeat (Calculate PLUS ))) @@  \
    1.15  \            (Try (Repeat (Calculate MINUS))))) e_e)"
    1.16 -val sc = ((inst_abs thy) o term_of o the o (parse thy)) str;
    1.17 +val sc = ((inst_abs thy) o Thm.term_of o the o (parse thy)) str;
    1.18  atomty sc;
    1.19  
    1.20  "----------- pbl polynom probe -----------------------------------";