test/Tools/isac/ADDTESTS/course/SignalProcess/Build_Inverse_Z_Transform.thy
changeset 59497 8952c43fdce3
parent 59476 863c3629ad24
child 59546 1ada701c4811
     1.1 --- a/test/Tools/isac/ADDTESTS/course/SignalProcess/Build_Inverse_Z_Transform.thy	Mon Jan 14 18:29:57 2019 +0100
     1.2 +++ b/test/Tools/isac/ADDTESTS/course/SignalProcess/Build_Inverse_Z_Transform.thy	Tue Jan 22 09:33:11 2019 +0100
     1.3 @@ -763,7 +763,7 @@
     1.4    val (p,_,fa,nxt,_,pt) = me nxt p [] pt;
     1.5      (*Rewrite ("all_left","PolyEq.all_left")*)
     1.6    val (p,_,fa,nxt,_,pt) = me nxt p [] pt;
     1.7 -    (*Rewrite_Set_Inst(["(bdv,A)"],"make_ratpoly_in")*)
     1.8 +    (*Rewrite_Set_Inst(["(''bdv'',A)"],"make_ratpoly_in")*)
     1.9    val (p,_,fa,nxt,_,pt) = me nxt p [] pt;
    1.10      (*Rewrite_Set "polyeq_simplify"*)
    1.11    val (p,_,fa,nxt,_,pt) = me nxt p [] pt; 
    1.12 @@ -780,7 +780,7 @@
    1.13    val (p,_,fa,nxt,_,pt) = me nxt p [] pt; 
    1.14      (*Apply_Method ["PolyEq","solve_d1_polyeq_equation"]*)
    1.15    val (p,_,fa,nxt,_,pt) = me nxt p [] pt;
    1.16 -    (*Rewrite_Set_Inst(["(bdv,A)"],"d1_polyeq_simplify")*)
    1.17 +    (*Rewrite_Set_Inst(["(''bdv'',A)"],"d1_polyeq_simplify")*)
    1.18    val (p,_,fa,nxt,_,pt) = me nxt p [] pt;
    1.19      (*Rewrite_Set "polyeq_simplify"*)
    1.20    val (p,_,fa,nxt,_,pt) = me nxt p [] pt;
    1.21 @@ -1390,7 +1390,7 @@
    1.22    val (p,_,f,nxt,_,pt) = me nxt p [] pt; 
    1.23      (*Apply_Method [PolyEq,solve_d2_polyeq_abc_equation";*)
    1.24    val (p,_,f,nxt,_,pt) = me nxt p [] pt;
    1.25 -    (*Rewrite_Set_Inst ([(bdv, z)], d2_polyeq_abcFormula_simplify";*)
    1.26 +    (*Rewrite_Set_Inst [(''bdv'', z)], d2_polyeq_abcFormula_simplify";*)
    1.27    val (p,_,f,nxt,_,pt) = me nxt p [] pt;
    1.28    val (p,_,f,nxt,_,pt) = me nxt p [] pt;
    1.29    val (p,_,f,nxt,_,pt) = me nxt p [] pt;
    1.30 @@ -1416,7 +1416,7 @@
    1.31    val (p,_,f,nxt,_,pt) = me nxt p [] pt;
    1.32      (*Rewrite ("all_left", "PolyEq.all_left")*)
    1.33    val (p,_,f,nxt,_,pt) = me nxt p [] pt;
    1.34 -    (*Rewrite_Set_Inst (["(bdv, A)"], "make_ratpoly_in")*)
    1.35 +    (*Rewrite_Set_Inst (["(''bdv'', A)"], "make_ratpoly_in")*)
    1.36    val (p,_,f,nxt,_,pt) = me nxt p [] pt; 
    1.37      (*Rewrite_Set "polyeq_simplify"*)
    1.38    val (p,_,f,nxt,_,pt) = me nxt p [] pt;