1.1 --- a/test/Tools/isac/Knowledge/polyeq-1.sml Thu Dec 19 17:41:51 2019 +0100
1.2 +++ b/test/Tools/isac/Knowledge/polyeq-1.sml Fri Dec 20 09:41:11 2019 +0100
1.3 @@ -184,7 +184,6 @@
1.4 val (p,_,f,nxt,_,pt) = me nxt p [] pt; (*nxt =..,Check_elementwise "Assumptions")*)
1.5 "~~~~~ fun me, args:"; val (tac, (p:pos'), _, (pt:ctree)) = (nxt, p, [], pt);
1.6 "~~~~~ fun locatetac, args:"; val (tac, (ptp as (pt, p))) = (tac, (pt, p));
1.7 -val (mI,m) = mk_tac'_ tac;
1.8 val Appl m = applicable_in p pt m;
1.9 val Check_elementwise' (trm1, str, (trm2, trms)) = m;
1.10 term2str trm1 = "[z = 1 / 8 + sqrt (9 / 16) / 2, z = 1 / 8 + -1 * sqrt (9 / 16) / 2]";