*** empty log message *** sml-050305d-cut_tree
authorwneuper
Sat, 05 Mar 2005 18:08:56 +0100
changeset 215530bb491cf974
parent 2154 e8ca8094e459
child 2156 aa25d72a23a2
*** empty log message ***
src/sml/systest/auto-inform.sml
     1.1 --- a/src/sml/systest/auto-inform.sml	Sat Mar 05 18:08:56 2005 +0100
     1.2 +++ b/src/sml/systest/auto-inform.sml	Sat Mar 05 18:08:56 2005 +0100
     1.3 @@ -2,7 +2,7 @@
     1.4     use"auto-inform.sml";
     1.5     *)
     1.6  
     1.7 -"autoCalculate";
     1.8 +"autoCalculate"; 
     1.9  "--------- solve_linear as rootpbl AUTOCALCULATE CompleteModel ---";
    1.10  "--------- solve_linear as rootpbl AUTOCALCULATE CompleteCalcHead-";
    1.11  "--------- maximum-example: complete_metitms ---------------------";
    1.12 @@ -300,7 +300,6 @@
    1.13  "--------- appendFormula: on Frm + equ_nrls ----------------------";
    1.14  "--------- appendFormula: on Frm + equ_nrls ----------------------";
    1.15  "--------- appendFormula: on Frm + equ_nrls ----------------------";
    1.16 -(**@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@**) 
    1.17   states:=[];
    1.18   CalcTree [(["equality (x+1=2)", "solveFor x","solutions L"], 
    1.19  	    ("Test.thy", 
    1.20 @@ -313,7 +312,6 @@
    1.21   appendFormula 1 "2+ -1 + x = 2"; refFormula 1 (get_pos 1 1);
    1.22  
    1.23   moveDown 1 ([],Pbl); refFormula 1 ([1],Frm) (*x + 1 = 2*);
    1.24 ->>>>>>> 1.8
    1.25  
    1.26   moveDown 1 ([1  ],Frm); refFormula 1 ([1,1],Frm); 
    1.27   moveDown 1 ([1,1],Frm); refFormula 1 ([1,1],Res);