src/Tools/isac/Knowledge/LinEq.thy
changeset 59851 4dd533681fef
parent 59850 f3cac3053e7b
child 59852 ea7e6679080e
     1.1 --- a/src/Tools/isac/Knowledge/LinEq.thy	Sat Apr 04 12:11:32 2020 +0200
     1.2 +++ b/src/Tools/isac/Knowledge/LinEq.thy	Mon Apr 06 11:44:36 2020 +0200
     1.3 @@ -69,10 +69,10 @@
     1.4  ML \<open>
     1.5      
     1.6  val LinPoly_simplify = prep_rls'(
     1.7 -  Rule_Set.Rls {id = "LinPoly_simplify", preconds = [], 
     1.8 +  Rule_Def.Repeat {id = "LinPoly_simplify", preconds = [], 
     1.9         rew_ord = ("termlessI",termlessI), 
    1.10         erls = LinEq_erls, 
    1.11 -       srls = Rule_Set.Erls, 
    1.12 +       srls = Rule_Set.Empty, 
    1.13         calc = [], errpatts = [],
    1.14         rules = [
    1.15  		Rule.Thm  ("real_assoc_1",TermC.num_str @{thm real_assoc_1}),
    1.16 @@ -93,10 +93,10 @@
    1.17  
    1.18  (*isolate the bound variable in an linear equation; 'bdv' is a meta-constant*)
    1.19  val LinEq_simplify = prep_rls'(
    1.20 -Rule_Set.Rls {id = "LinEq_simplify", preconds = [],
    1.21 +Rule_Def.Repeat {id = "LinEq_simplify", preconds = [],
    1.22       rew_ord = ("e_rew_ord", Rule.e_rew_ord),
    1.23       erls = LinEq_erls,
    1.24 -     srls = Rule_Set.Erls,
    1.25 +     srls = Rule_Set.Empty,
    1.26       calc = [], errpatts = [],
    1.27       rules = [
    1.28  	      Rule.Thm("lin_isolate_add1",TermC.num_str @{thm lin_isolate_add1}),