src/Tools/isac/Knowledge/LinEq.thy
changeset 59491 516e6cc731ab
parent 59489 cfcbcac0bae8
child 59504 546bd1b027cc
     1.1 --- a/src/Tools/isac/Knowledge/LinEq.thy	Mon Dec 31 14:15:19 2018 +0100
     1.2 +++ b/src/Tools/isac/Knowledge/LinEq.thy	Mon Dec 31 14:49:16 2018 +0100
     1.3 @@ -34,9 +34,9 @@
     1.4  val LinEq_prls = (*3.10.02:just the following order due to subterm evaluation*)
     1.5    Rule.append_rls "LinEq_prls" Rule.e_rls 
     1.6  	     [Rule.Calc ("HOL.eq",eval_equal "#equal_"),
     1.7 -	      Rule.Calc ("Tools.matches",eval_matches ""),
     1.8 -	      Rule.Calc ("Tools.lhs"    ,eval_lhs ""),
     1.9 -	      Rule.Calc ("Tools.rhs"    ,eval_rhs ""),
    1.10 +	      Rule.Calc ("Tools.matches", Tools.eval_matches ""),
    1.11 +	      Rule.Calc ("Tools.lhs"    , Tools.eval_lhs ""),
    1.12 +	      Rule.Calc ("Tools.rhs"    , Tools.eval_rhs ""),
    1.13  	      Rule.Calc ("Poly.has'_degree'_in",eval_has_degree_in ""),
    1.14   	      Rule.Calc ("Poly.is'_polyrat'_in",eval_is_polyrat_in ""),
    1.15  	      Rule.Calc ("Atools.occurs'_in",eval_occurs_in ""),