1.1 --- a/test/Tools/isac/Knowledge/rateq.sml	Mon Jul 19 18:39:02 2021 +0200
     1.2 +++ b/test/Tools/isac/Knowledge/rateq.sml	Tue Jul 20 14:37:56 2021 +0200
     1.3 @@ -20,22 +20,22 @@
     1.4  "------------ pbl: rational, univariate, equation ----------------";
     1.5  "------------ pbl: rational, univariate, equation ----------------";
     1.6  "------------ pbl: rational, univariate, equation ----------------";
     1.7 -val t = (Thm.term_of o the o (TermC.parse thy)) "(1/b+1/x=1) is_ratequation_in  x";
     1.8 +val t = TermC.parseNEW'' thy "(1/b+1/x=1) is_ratequation_in  x";
     1.9  val SOME (t_, _) = rewrite_set_ thy  false RatEq_prls t;
    1.10  val result = UnparseC.term t_;
    1.11  if result <>  "True"  then error "rateq.sml: new behaviour 1:" else ();
    1.12  
    1.13 -val t = (Thm.term_of o the o (TermC.parse thy)) "(sqrt(x)=1) is_ratequation_in  x";
    1.14 +val t = TermC.parseNEW'' thy "(sqrt(x)=1) is_ratequation_in  x";
    1.15  val SOME (t_, _) = rewrite_set_ thy  false RatEq_prls t;
    1.16  val result = UnparseC.term t_;
    1.17  if result <>  "False"  then error "rateq.sml: new behaviour 2:" else ();
    1.18  
    1.19 -val t = (Thm.term_of o the o (TermC.parse thy)) "(x=- 1) is_ratequation_in x";
    1.20 +val t = TermC.parseNEW'' thy "(x=- 1) is_ratequation_in x";
    1.21  val SOME (t_,_) = rewrite_set_ thy  false RatEq_prls t;
    1.22  val result = UnparseC.term t_;
    1.23  if result <>  "False"  then error "rateq.sml: new behaviour 3:" else ();
    1.24  
    1.25 -val t = (Thm.term_of o the o (TermC.parse thy)) "(3 + x \<up> 2 + 1/(x \<up> 2+3)=1) is_ratequation_in x";
    1.26 +val t = TermC.parseNEW'' thy "(3 + x \<up> 2 + 1/(x \<up> 2+3)=1) is_ratequation_in x";
    1.27  val SOME (t_,_) = rewrite_set_ thy  false RatEq_prls t;
    1.28  val result = UnparseC.term t_;
    1.29  if result <>  "True"  then error "rateq.sml: new behaviour 4:" else ();