(* Title:  Knowledge/polyeq-1.sml

           testexamples for PolyEq, poynomial equations and equational systems

   Author: Richard Lang 2003  

   (c) due to copyright terms

WN030609: some expls dont work due to unfinished handling of 'expanded terms';

          others marked with TODO have to be checked, too.

*)

"-----------------------------------------------------------------";

"table of contents -----------------------------------------------";

"-----------------------------------------------------------------";

"------ polyeq-1.sml ---------------------------------------------";

"----------- tests on predicates in problems ---------------------";

"----------- test matching problems ------------------------------";

"----------- lin.eq degree_0 -------------------------------------";

"----------- test thm's d2_pq_formulsxx[_neg]---------------------";

"----------- equality (2 +(-1)*x + x^^^2 = (0::real)) ----------------------------------------";

"----------- equality (-2 +(-1)*x + 1*x^^^2 = 0) ---------------------------------------------";

"----------- equality (-2 + x + x^^^2 = 0) ---------------------------------------------------";

"----------- equality (2 + x + x^^^2 = 0) ----------------------------------------------------";

"----------- equality (-2 + x + 1*x^^^2 = 0)) ------------------------------------------------";

"----------- equality (1*x +   x^^^2 = 0) ----------------------------------------------------";

"----------- equality (1*x + 1*x^^^2 = 0) ----------------------------------------------------";

"----------- equality (x +   x^^^2 = 0) ------------------------------------------------------";

"----------- equality (x + 1*x^^^2 = 0) ------------------------------------------------------";

"----------- equality (-4 + x^^^2 = 0) -------------------------------------------------------";

"----------- equality (4 + 1*x^^^2 = 0) -------------------------------------------------------";

"----------- equality (1 +(-1)*x + 2*x^^^2 = 0) ----------------------------------------------";

"----------- equality (-1 + x + 2*x^^^2 = 0) -------------------------------------------------";

"----------- equality (1 + x + 2*x^^^2 = 0) --------------------------------------------------";

"----------- (-8 - 2*x + x^^^2 = 0),  (*Schalk 2, S.67 Nr.31.b----";

"----------- (-8 - 2*x + x^^^2 = 0),  by rewriting ---------------";

"----------- (-16 + 4*x + 2*x^^^2 = 0), --------------------------";

"-----------------------------------------------------------------";

"------ polyeq-2.sml ---------------------------------------------";

"----------- (a*b - (a+b)*x + x^^^2 = 0), (*Schalk 2,S.68Nr.44.a*)";

"----------- (-64 + x^^^2 = 0), (*Schalk 2, S.66 Nr.1.a~--------*)";

"----------- (-147 + 3*x^^^2 = 0), (*Schalk 2, S.66 Nr.1.b------*)";

"----------- (3*x - 1 - (5*x - (2 - 4*x)) = -11),(*Schalk Is86Bsp5";

"----------- ((x+1)*(x+2) - (3*x - 2)^^^2=.. Schalk II s.68 Bsp 37";

"----------- rls make_polynomial_in ------------------------------";

"----------- interSteps ([1],Res); on Schalk Is86Bsp5-------------";

"----------- rls d2_polyeq_bdv_only_simplify ---------------------";

"-----------------------------------------------------------------";

"-----------------------------------------------------------------";

"----------- tests on predicates in problems ---------------------";

"----------- tests on predicates in problems ---------------------";

"----------- tests on predicates in problems ---------------------";

(* trace_rewrite:=true;

 trace_rewrite:=false;

*)

 val t1 = (Thm.term_of o the o (parse thy)) "lhs (-8 - 2*x + x^^^2 = 0)";

 val SOME (t,_) = rewrite_set_ @{theory PolyEq} false PolyEq_prls t1;

 if ((term2str t) = "-8 - 2 * x + x ^^^ 2") then ()

 else  error "polyeq.sml: diff.behav. in lhs";

 val t2 = (Thm.term_of o the o (parse thy)) "(-8 - 2*x + x^^^2) is_expanded_in x";

 val SOME (t,_) = rewrite_set_ @{theory PolyEq} false PolyEq_prls t2;

 if (term2str t) = "True" then ()

 else  error "polyeq.sml: diff.behav. 1 in is_expended_in";

 val t0 = (Thm.term_of o the o (parse thy)) "(sqrt(x)) is_poly_in x";

 val SOME (t,_) = rewrite_set_ @{theory PolyEq} false PolyEq_prls t0;

 if (term2str t) = "False" then ()

 else  error "polyeq.sml: diff.behav. 2 in is_poly_in";

 val t3 = (Thm.term_of o the o (parse thy)) "(-8 + (-1)*2*x + x^^^2) is_poly_in x";

 val SOME (t,_) = rewrite_set_ @{theory PolyEq} false PolyEq_prls t3;

 if (term2str t) = "True" then ()

 else  error "polyeq.sml: diff.behav. 3 in is_poly_in";

 val t4 = (Thm.term_of o the o (parse thy)) "(lhs (-8 + (-1)*2*x + x^^^2 = 0)) is_expanded_in x";

 val SOME (t,_) = rewrite_set_ @{theory PolyEq} false PolyEq_prls t4;

 if (term2str t) = "True" then ()

 else  error "polyeq.sml: diff.behav. 4 in is_expended_in";

 val t6 = (Thm.term_of o the o (parse thy)) "(lhs (-8 - 2*x + x^^^2 = 0)) is_expanded_in x";

 val SOME (t,_) = rewrite_set_ @{theory PolyEq} false PolyEq_prls t6;

 if (term2str t) = "True" then ()

 else  error "polyeq.sml: diff.behav. 5 in is_expended_in";

 val t3 = (Thm.term_of o the o (parse thy))"((-8 - 2*x + x^^^2) has_degree_in x) = 2";

 val SOME (t,_) = rewrite_set_ @{theory PolyEq} false PolyEq_prls t3;

 if (term2str t) = "True" then ()

 else  error "polyeq.sml: diff.behav. in has_degree_in_in";

 val t3 = (Thm.term_of o the o (parse thy)) "((sqrt(x)) has_degree_in x) = 2";

 val SOME (t,_) = rewrite_set_ @{theory PolyEq} false PolyEq_prls t3;

 if (term2str t) = "False" then ()

 else  error "polyeq.sml: diff.behav. 6 in has_degree_in_in";

 val t4 = (Thm.term_of o the o (parse thy)) 

	      "((-8 - 2*x + x^^^2) has_degree_in x) = 1";

 val SOME (t,_) = rewrite_set_ @{theory PolyEq} false PolyEq_prls t4;

 if (term2str t) = "False" then ()

 else  error "polyeq.sml: diff.behav. 7 in has_degree_in_in";

 val t5 = (Thm.term_of o the o (parse thy)) 

	      "((-8 - 2*x + x^^^2) has_degree_in x) = 2";

 val SOME (t,_) = rewrite_set_ @{theory PolyEq} false PolyEq_prls t5;

 if (term2str t) = "True" then ()

 else  error "polyeq.sml: diff.behav. 8 in has_degree_in_in";

"----------- test matching problems --------------------------0---";

"----------- test matching problems --------------------------0---";

"----------- test matching problems --------------------------0---";

val fmz = ["equality (-8 - 2*x + x^^^2 = 0)", "solveFor x","solutions L"];

if match_pbl fmz (get_pbt ["expanded","univariate","equation"]) =

  Matches' {Find = [Correct "solutions L"], 

            With = [], 

            Given = [Correct "equality (-8 - 2 * x + x ^^^ 2 = 0)", Correct "solveFor x"], 

            Where = [Correct "matches (?a = 0) (-8 - 2 * x + x ^^^ 2 = 0)", 

                     Correct "lhs (-8 - 2 * x + x ^^^ 2 = 0) is_expanded_in x"], 

            Relate = []}

then () else error "match_pbl [expanded,univariate,equation]";

if match_pbl fmz (get_pbt ["degree_2","expanded","univariate","equation"]) =

  Matches' {Find = [Correct "solutions L"], 

            With = [], 

            Given = [Correct "equality (-8 - 2 * x + x ^^^ 2 = 0)", Correct "solveFor x"], 

            Where = [Correct "lhs (-8 - 2 * x + x ^^^ 2 = 0) has_degree_in x = 2"], 

            Relate = []}              (*before WN110906 was: has_degree_in x =!= 2"]*)

then () else error "match_pbl [degree_2,expanded,univariate,equation]";

"----------- lin.eq degree_0 -------------------------------------";

"----------- lin.eq degree_0 -------------------------------------";

"----------- lin.eq degree_0 -------------------------------------";

"----- d0_false ------";

val fmz = ["equality (1 = (0::real))", "solveFor x", "solutions L"];

val (dI',pI',mI') = ("PolyEq",["degree_0","polynomial","univariate","equation"],

                     ["PolyEq","solve_d0_polyeq_equation"]);

(*=== inhibit exn WN110914: declare_constraints doesnt work with num_str ========

TODO: change to "equality (x + -1*x = (0::real))"

      and search for an appropriate problem and method.

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

case f of Form' (FormKF (~1,EdUndef,0,Nundef,"[]")) => ()

	 | _ => error "polyeq.sml: diff.behav. in 1 = 0 -> []";

"----- d0_true ------";

val fmz = ["equality (0 = (0::real))", "solveFor x","solutions L"];

val (dI',pI',mI') = ("PolyEq",["degree_0","polynomial","univariate","equation"],

                     ["PolyEq","solve_d0_polyeq_equation"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

case f of Form' (FormKF (~1,EdUndef,0,Nundef,"UniversalList")) => ()

	 | _ => error "polyeq.sml: diff.behav. in 0 = 0 -> UniversalList";

============ inhibit exn WN110914 ============================================*)

"----------- test thm's d2_pq_formulsxx[_neg]---------------------";

"----------- test thm's d2_pq_formulsxx[_neg]---------------------";

"----------- test thm's d2_pq_formulsxx[_neg]---------------------";

"----- d2_pqformula1 ------!!!!";

val fmz = ["equality (-1/8 + (-1/4)*z + z^^^2 = (0::real))", "solveFor z","solutions L"];

val (dI',pI',mI') =

  ("Isac_Knowledge", ["pqFormula","degree_2","polynomial","univariate","equation"], ["no_met"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; (*Apply_Method ["PolyEq", "solve_d2_polyeq_pq_equation"]*)

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt;         

(*[z = 1 / 8 + sqrt (9 / 16) / 2, z = 1 / 8 + -1 * sqrt (9 / 16) / 2] TODO sqrt*)

val (p,_,f,nxt,_,pt) = me nxt p [] pt; (*nxt =..,Check_elementwise "Assumptions")*)

"~~~~~ fun me, args:"; val ((_,tac), (p:pos'), _, (pt:ctree)) = (nxt, p, [], pt);

"~~~~~ fun locatetac, args:"; val (tac, (ptp as (pt, p))) = (tac, (pt, p));

val (mI,m) = mk_tac'_ tac;

val Appl m = applicable_in p pt m;

val Check_elementwise' (trm1, str, (trm2, trms)) = m;

term2str trm1 = "[z = 1 / 8 + sqrt (9 / 16) / 2, z = 1 / 8 + -1 * sqrt (9 / 16) / 2]";

str = "Assumptions";

term2str trm2 = "[z = 1 / 8 + sqrt (9 / 16) / 2, z = 1 / 8 + -1 * sqrt (9 / 16) / 2]";

terms2str trms = "[\"lhs (-1 / 8 + -1 * (1 / 8 + sqrt (9 / 16) / 2) / 4 +\n "^

  "    (1 / 8 + sqrt (9 / 16) / 2) ^^^ 2 =\n     0) is_poly_in 1 / 8 + sqrt (9 / 16) / 2\","^

  "\"lhs (-1 / 8 + -1 * (1 / 8 + sqrt (9 / 16) / 2) / 4 +\n     (1 / 8 + sqrt (9 / 16) / 2) ^^^ 2 =\n     0) "^

      "has_degree_in 1 / 8 + sqrt (9 / 16) / 2 =\n2\","^

  "\"lhs (-1 / 8 + -1 * (1 / 8 + -1 * sqrt (9 / 16) / 2) / 4 +\n     (1 / 8 + -1 * sqrt (9 / 16) / 2) ^^^ 2 =\n     0) is_poly_in 1 / 8 + -1 * sqrt (9 / 16) / 2\","^

  "\"lhs (-1 / 8 + -1 * (1 / 8 + -1 * sqrt (9 / 16) / 2) / 4 +\n     (1 / 8 + -1 * sqrt (9 / 16) / 2) ^^^ 2 =\n     0) has_degree_in 1 / 8 + -1 * sqrt (9 / 16) / 2 =\n2\"]";

(*TODO simplify assumptions (sqrt!) and check ERROR in has_degree_in*);

member op = specsteps mI (*false*);

(*loc_solve_ (mI,m) ptp;

  WAS: not-found-in-script: NotLocatable from NasNap (Const ("List...*)

"~~~~~ fun loc_solve_, args:"; val (m, (pt,pos)) = ((mI,m), ptp);

(*solve m (pt, pos);

  WAS: not-found-in-script: NotLocatable from NasNap (Const ("List...*)

"~~~~~ fun solve, args:"; val ((mI,m), (pt, po as (p,p_))) = (m, (pt, pos));

e_metID = get_obj g_metID pt (par_pblobj pt p) (*false*);

        val thy' = get_obj g_domID pt (par_pblobj pt p);

	        val (srls, is, sc) = from_pblobj_or_detail' thy' (p,p_) pt;

		        val d = e_rls;

(*locate_input_tactic (thy',srls) m  (pt,(p,p_)) (sc,d) is;

  WAS: not-found-in-script: NotLocatable from NasNap (Const ("List...*)

"~~~~~ fun locate_input_tactic, args:"; val ((ts as (thy',srls)), (m:Tactic.T), ((pt,p):ctree * pos'), 

	                                   (scr as Prog (h $ body),d), (Pstate (E,l,rls,a,v,S,b), ctxt)) = 

                                   ((thy',srls), m  ,(pt,(p,p_)) ,(sc,d) ,is); (* locate_input_tactic 2nd pattern *)

val thy = assoc_thy thy';

l = [] orelse ((last_elem o fst) p = 0 andalso snd p = Res) (*false*);

(*WAS val NasApp _ =(astep_up (thy',srls,scr,d) ((E,l,a,v,S,b), [(m,EmptyMout,pt,p,[])]) )

  ... Assoc ... is correct*)

"~~~~~ and astep_up, args:"; val ((ys as (_,_,_,Prog sc,_)), ((E,l,a,v,S,b),ss)) =

   ((thy',ctxt,srls,scr,d), ((E,l,a,v,S,b), [(m,EmptyMout,pt,p,[])]));

1 < length l (*true*);

val up = drop_last l;

  term2str (go up sc);

  (go up sc);

(*WAS val NasNap _ = ass_up ys ((E,up,a,v,S,b),ss) (go up sc)

      ... ???? ... is correct*)

"~~~~~ fun ass_up, args:"; val ((ys as (y,ctxt,s,Prog sc,d)), (is as (E,l,a,v,S,b),ss), 

	   (Const ("HOL.Let",_) $ _)) = (ys, ((E,up,a,v,S,b),ss:step list), (go up sc));

      val l = drop_last l; (*comes from e, goes to Abs*)

      val (Const ("HOL.Let",_) $ e $ (Abs (i,T,body))) = go l sc;

      val i = mk_Free (i, T);

      val E = Env.upd_env E (i, v);

(*Type error ...: Can't unify _a to pos * pos_ (Incompatible types)*)

val [(tac_, mout, ctree, pos', xxx)] = ss;

val ss = [(tac_, mout, ctree, pos', []:(pos * pos_) list)];

(*WAS val NasApp iss = assy (((y,s),d),Aundef) ((E, l@[R,D], a,v,S,b),ss) body

      ... Assoc ... is correct*)

"~~~~~ fun assy, args:"; val ((((thy',sr),d),ap), (is as (E,l,a,v,S,b), (m,_,pt,(p,p_),c)::ss), t) =

     ((((y,s),d),Aundef), ((E, l@[R,D], a,v,S,b),ss), body);

val (a', STac stac) = handle_leaf "locate" thy' sr (E, (a, v)) t

             val ctxt = get_ctxt pt (p,p_)

             val p' = lev_on p : pos;

(* WAS val NotAss = associate pt d (m, stac)

      ... Ass ... is correct*)

"~~~~~ fun associate, args:"; val (pt, _, (m as Check_elementwise' (consts,_,(consts_chkd,_))),

    (Const ("Prog_Tac.Check'_elementwise",_) $ consts' $ _)) = (pt, d, m, stac);

term2str consts;

term2str consts';

if consts = consts' (*WAS false*) then () else error "Check_elementwise changed";

(*[z = 1 / 8 + sqrt (9 / 16) / 2, z = 1 / 8 + -1 * sqrt (9 / 16) / 2] TODO sqrt*)

"----------- equality (2 +(-1)*x + x^^^2 = (0::real)) ----------------------------------------";

"----------- equality (2 +(-1)*x + x^^^2 = (0::real)) ----------------------------------------";

"----------- equality (2 +(-1)*x + x^^^2 = (0::real)) ----------------------------------------";

"----- d2_pqformula1_neg ------";

val fmz = ["equality (2 +(-1)*x + x^^^2 = (0::real))", "solveFor x","solutions L"];

val (dI',pI',mI') = ("PolyEq",["pqFormula","degree_2","polynomial","univariate","equation"], ["PolyEq","solve_d2_polyeq_pq_equation"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

(*### or2list False

  ([1],Res)  False   Or_to_List)*)

val (p,_,f,nxt,_,pt) = me nxt p [] pt; 

(*### or2list False                           

  ([2],Res)  []      Check_elementwise "Assumptions"*)

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val asm = get_assumptions_ pt p;

if f2str f = "[]" andalso 

  terms2str asm = "[\"lhs (2 + -1 * x + x ^^^ 2 = 0) is_poly_in x\"," ^

    "\"lhs (2 + -1 * x + x ^^^ 2 = 0) has_degree_in x = 2\"]" then ()

else error "polyeq.sml: diff.behav. in 2 +(-1)*x + x^^^2 = 0";

"----------- equality (-2 +(-1)*x + 1*x^^^2 = 0) ---------------------------------------------";

"----------- equality (-2 +(-1)*x + 1*x^^^2 = 0) ---------------------------------------------";

"----------- equality (-2 +(-1)*x + 1*x^^^2 = 0) ---------------------------------------------";

"----- d2_pqformula2 ------";

val fmz = ["equality (-2 +(-1)*x + 1*x^^^2 = 0)", "solveFor x","solutions L"];

val (dI',pI',mI') = ("PolyEq",["pqFormula","degree_2","polynomial","univariate","equation"],

                     ["PolyEq","solve_d2_polyeq_pq_equation"]);

(*val p = e_pos'; 

val (mI,m) = ("Init_Proof",Init_Proof (fmz, (dI',pI',mI')));

val (p,_,f,nxt,_,pt) = me (mI,m) p [] EmptyPtree;*)

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

case f of FormKF "[x = 2, x = -1]" => ()

	 | _ => error "polyeq.sml: diff.behav. in -2 + (-1)*x + x^2 = 0 -> [x = 2, x = -1]";

"----------- equality (-2 + x + x^^^2 = 0) ---------------------------------------------------";

"----------- equality (-2 + x + x^^^2 = 0) ---------------------------------------------------";

"----------- equality (-2 + x + x^^^2 = 0) ---------------------------------------------------";

"----- d2_pqformula3 ------";

(*EP-9*)

val fmz = ["equality (-2 + x + x^^^2 = 0)", "solveFor x","solutions L"];

val (dI',pI',mI') = ("PolyEq",["pqFormula","degree_2","polynomial","univariate","equation"],

                     ["PolyEq","solve_d2_polyeq_pq_equation"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; 

case f of FormKF "[x = 1, x = -2]" => ()

	 | _ => error "polyeq.sml: diff.behav. in  -2 + x + x^2 = 0-> [x = 1, x = -2]";

"----------- equality (2 + x + x^^^2 = 0) ----------------------------------------------------";

"----------- equality (2 + x + x^^^2 = 0) ----------------------------------------------------";

"----------- equality (2 + x + x^^^2 = 0) ----------------------------------------------------";

"----- d2_pqformula3_neg ------";

val fmz = ["equality (2 + x + x^^^2 = 0)", "solveFor x","solutions L"];

val (dI',pI',mI') = ("PolyEq",["pqFormula","degree_2","polynomial","univariate","equation"],

                     ["PolyEq","solve_d2_polyeq_pq_equation"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

"TODO 2 + x + x^^^2 = 0";

"TODO 2 + x + x^^^2 = 0";

"TODO 2 + x + x^^^2 = 0";

"----------- equality (-2 + x + 1*x^^^2 = 0)) ------------------------------------------------";

"----------- equality (-2 + x + 1*x^^^2 = 0)) ------------------------------------------------";

"----------- equality (-2 + x + 1*x^^^2 = 0)) ------------------------------------------------";

"----- d2_pqformula4 ------";

val fmz = ["equality (-2 + x + 1*x^^^2 = 0)", "solveFor x","solutions L"];

val (dI',pI',mI') = ("PolyEq",["pqFormula","degree_2","polynomial","univariate","equation"],

                     ["PolyEq","solve_d2_polyeq_pq_equation"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

case f of FormKF "[x = 1, x = -2]" => ()

	 | _ => error "polyeq.sml: diff.behav. in  -2 + x + 1*x^^^2 = 0 -> [x = 1, x = -2]";

"----------- equality (1*x +   x^^^2 = 0) ----------------------------------------------------";

"----------- equality (1*x +   x^^^2 = 0) ----------------------------------------------------";

"----------- equality (1*x +   x^^^2 = 0) ----------------------------------------------------";

"----- d2_pqformula5 ------";

val fmz = ["equality (1*x +   x^^^2 = 0)", "solveFor x","solutions L"];

val (dI',pI',mI') = ("PolyEq",["pqFormula","degree_2","polynomial","univariate","equation"],

                     ["PolyEq","solve_d2_polyeq_pq_equation"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

case f of FormKF "[x = 0, x = -1]" => ()

	 | _ => error "polyeq.sml: diff.behav. in  1*x +   x^2 = 0 -> [x = 0, x = -1]";

"----------- equality (1*x + 1*x^^^2 = 0) ----------------------------------------------------";

"----------- equality (1*x + 1*x^^^2 = 0) ----------------------------------------------------";

"----------- equality (1*x + 1*x^^^2 = 0) ----------------------------------------------------";

"----- d2_pqformula6 ------";

val fmz = ["equality (1*x + 1*x^^^2 = 0)", "solveFor x","solutions L"];

val (dI',pI',mI') = ("PolyEq",["pqFormula","degree_2","polynomial","univariate","equation"],

                     ["PolyEq","solve_d2_polyeq_pq_equation"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; 

case f of FormKF "[x = 0, x = -1]" => ()

	 | _ => error "polyeq.sml: diff.behav. in  1*x + 1*x^2 = 0 -> [x = 0, x = -1]";

"----------- equality (x +   x^^^2 = 0) ------------------------------------------------------";

"----------- equality (x +   x^^^2 = 0) ------------------------------------------------------";

"----------- equality (x +   x^^^2 = 0) ------------------------------------------------------";

"----- d2_pqformula7 ------";

(*EP-10*)

val fmz = ["equality (  x +   x^^^2 = 0)", "solveFor x","solutions L"];

val (dI',pI',mI') = ("PolyEq",["pqFormula","degree_2","polynomial","univariate","equation"],

                     ["PolyEq","solve_d2_polyeq_pq_equation"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; 

case f of FormKF "[x = 0, x = -1]" => ()

	 | _ => error "polyeq.sml: diff.behav. in  x + x^2 = 0 -> [x = 0, x = -1]";

"----------- equality (x + 1*x^^^2 = 0) ------------------------------------------------------";

"----------- equality (x + 1*x^^^2 = 0) ------------------------------------------------------";

"----------- equality (x + 1*x^^^2 = 0) ------------------------------------------------------";

"----- d2_pqformula8 ------";

val fmz = ["equality (x + 1*x^^^2 = 0)", "solveFor x","solutions L"];

val (dI',pI',mI') = ("PolyEq",["pqFormula","degree_2","polynomial","univariate","equation"],

                     ["PolyEq","solve_d2_polyeq_pq_equation"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; 

case f of FormKF "[x = 0, x = -1]" => ()

	 | _ => error "polyeq.sml: diff.behav. in  x + 1*x^2 = 0 -> [x = 0, x = -1]";

"----------- equality (-4 + x^^^2 = 0) -------------------------------------------------------";

"----------- equality (-4 + x^^^2 = 0) -------------------------------------------------------";

"----------- equality (-4 + x^^^2 = 0) -------------------------------------------------------";

"----- d2_pqformula9 ------";

val fmz = ["equality (-4 + x^^^2 = 0)", "solveFor x","solutions L"];

val (dI',pI',mI') = ("PolyEq",["pqFormula","degree_2","polynomial","univariate","equation"],

                     ["PolyEq","solve_d2_polyeq_pq_equation"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

case f of FormKF "[x = 2, x = -2]" => ()

	 | _ => error "polyeq.sml: diff.behav. in -4 + x^2 = 0 -> [x = 2, x = -2]";

"----------- equality (4 + 1*x^^^2 = 0) -------------------------------------------------------";

"----------- equality (4 + 1*x^^^2 = 0) -------------------------------------------------------";

"----------- equality (4 + 1*x^^^2 = 0) -------------------------------------------------------";

"----- d2_pqformula9_neg ------";

val fmz = ["equality (4 + 1*x^^^2 = 0)", "solveFor x","solutions L"];

val (dI',pI',mI') = ("PolyEq",["pqFormula","degree_2","polynomial","univariate","equation"],

                     ["PolyEq","solve_d2_polyeq_pq_equation"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

"TODO 4 + 1*x^^^2 = 0";

"TODO 4 + 1*x^^^2 = 0";

"TODO 4 + 1*x^^^2 = 0";

"-------------------- test thm's d2_abc_formulsxx[_neg]-----";

"-------------------- test thm's d2_abc_formulsxx[_neg]-----";

"-------------------- test thm's d2_abc_formulsxx[_neg]-----";

val fmz = ["equality (-1 +(-1)*x + 2*x^^^2 = 0)", "solveFor x","solutions L"];

val (dI',pI',mI') = ("PolyEq",["abcFormula","degree_2","polynomial","univariate","equation"],

                     ["PolyEq","solve_d2_polyeq_abc_equation"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

case f of FormKF "[x = 1, x = -1 / 2]" => ()

	 | _ => error "polyeq.sml: diff.behav. in -1 + (-1)*x + 2*x^2 = 0 -> [x = 1, x = -1/2]";

"----------- equality (1 +(-1)*x + 2*x^^^2 = 0) ----------------------------------------------";

"----------- equality (1 +(-1)*x + 2*x^^^2 = 0) ----------------------------------------------";

"----------- equality (1 +(-1)*x + 2*x^^^2 = 0) ----------------------------------------------";

val fmz = ["equality (1 +(-1)*x + 2*x^^^2 = 0)", "solveFor x","solutions L"];

val (dI',pI',mI') = ("PolyEq",["abcFormula","degree_2","polynomial","univariate","equation"],

                     ["PolyEq","solve_d2_polyeq_abc_equation"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

"TODO 1 +(-1)*x + 2*x^^^2 = 0";

"TODO 1 +(-1)*x + 2*x^^^2 = 0";

"TODO 1 +(-1)*x + 2*x^^^2 = 0";

"----------- equality (-1 + x + 2*x^^^2 = 0) -------------------------------------------------";

"----------- equality (-1 + x + 2*x^^^2 = 0) -------------------------------------------------";

"----------- equality (-1 + x + 2*x^^^2 = 0) -------------------------------------------------";

(*EP-11*)

val fmz = ["equality (-1 + x + 2*x^^^2 = 0)", "solveFor x","solutions L"];

val (dI',pI',mI') = ("PolyEq",["abcFormula","degree_2","polynomial","univariate","equation"],

                     ["PolyEq","solve_d2_polyeq_abc_equation"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

case f of FormKF "[x = 1 / 2, x = -1]" => ()

	 | _ => error "polyeq.sml: diff.behav. in -1 + x + 2*x^2 = 0 -> [x = 1/2, x = -1]";

"----------- equality (1 + x + 2*x^^^2 = 0) --------------------------------------------------";

"----------- equality (1 + x + 2*x^^^2 = 0) --------------------------------------------------";

"----------- equality (1 + x + 2*x^^^2 = 0) --------------------------------------------------";

val fmz = ["equality (1 + x + 2*x^^^2 = 0)", "solveFor x","solutions L"];

val (dI',pI',mI') = ("PolyEq",["abcFormula","degree_2","polynomial","univariate","equation"],

                     ["PolyEq","solve_d2_polyeq_abc_equation"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; 

"TODO 1 + x + 2*x^^^2 = 0";

"TODO 1 + x + 2*x^^^2 = 0";

"TODO 1 + x + 2*x^^^2 = 0";

val fmz = ["equality (-2 + 1*x + x^^^2 = 0)", "solveFor x","solutions L"];

val (dI',pI',mI') = ("PolyEq",["abcFormula","degree_2","polynomial","univariate","equation"],

                     ["PolyEq","solve_d2_polyeq_abc_equation"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

case f of FormKF "[x = 1, x = -2]" => ()

	 | _ => error "polyeq.sml: diff.behav. in -2 + 1*x + x^2 = 0 -> [x = 1, x = -2]";

val fmz = ["equality ( 2 + 1*x + x^^^2 = 0)", "solveFor x","solutions L"];

val (dI',pI',mI') = ("PolyEq",["abcFormula","degree_2","polynomial","univariate","equation"],

                     ["PolyEq","solve_d2_polyeq_abc_equation"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; 

"TODO 2 + 1*x + x^^^2 = 0";

"TODO 2 + 1*x + x^^^2 = 0";

"TODO 2 + 1*x + x^^^2 = 0";

(*EP-12*)

val fmz = ["equality (-2 + x + x^^^2 = 0)", "solveFor x","solutions L"];

val (dI',pI',mI') = ("PolyEq",["abcFormula","degree_2","polynomial","univariate","equation"],

                     ["PolyEq","solve_d2_polyeq_abc_equation"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

case f of FormKF "[x = 1, x = -2]" => ()

	 | _ => error "polyeq.sml: diff.behav. in -2 + x + x^2 = 0 -> [x = 1, x = -2]";

val fmz = ["equality ( 2 + x + x^^^2 = 0)", "solveFor x","solutions L"];

val (dI',pI',mI') = ("PolyEq",["abcFormula","degree_2","polynomial","univariate","equation"],

                     ["PolyEq","solve_d2_polyeq_abc_equation"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; 

"TODO 2 + x + x^^^2 = 0";

"TODO 2 + x + x^^^2 = 0";

"TODO 2 + x + x^^^2 = 0";

(*EP-13*)

val fmz = ["equality (-8 + 2*x^^^2 = 0)", "solveFor x","solutions L"];

val (dI',pI',mI') = ("PolyEq",["abcFormula","degree_2","polynomial","univariate","equation"],

                     ["PolyEq","solve_d2_polyeq_abc_equation"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

case f of FormKF "[x = 2, x = -2]" => ()

	 | _ => error "polyeq.sml: diff.behav. in -8 + 2*x^2 = 0 -> [x = 2, x = -2]";

val fmz = ["equality ( 8+ 2*x^^^2 = 0)", "solveFor x","solutions L"];

val (dI',pI',mI') = ("PolyEq",["abcFormula","degree_2","polynomial","univariate","equation"],

                     ["PolyEq","solve_d2_polyeq_abc_equation"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

"TODO 8+ 2*x^^^2 = 0";

"TODO 8+ 2*x^^^2 = 0";

"TODO 8+ 2*x^^^2 = 0";

(*EP-14*)

val fmz = ["equality (-4 + x^^^2 = 0)", "solveFor x","solutions L"];

val (dI',pI',mI') = ("PolyEq",["abcFormula","degree_2","polynomial","univariate","equation"], ["PolyEq","solve_d2_polyeq_abc_equation"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

case f of FormKF "[x = 2, x = -2]" => ()

	 | _ => error "polyeq.sml: diff.behav. in -4 + x^2 = 0 -> [x = 2, x = -2]";

val fmz = ["equality ( 4+ x^^^2 = 0)", "solveFor x","solutions L"];

val (dI',pI',mI') = ("PolyEq",["abcFormula","degree_2","polynomial","univariate","equation"], ["PolyEq","solve_d2_polyeq_abc_equation"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

"TODO 4+ x^^^2 = 0";

"TODO 4+ x^^^2 = 0";

"TODO 4+ x^^^2 = 0";

(*EP-15*)

val fmz = ["equality (2*x + 2*x^^^2 = 0)", "solveFor x","solutions L"];

val (dI',pI',mI') = ("PolyEq",["abcFormula","degree_2","polynomial","univariate","equation"],

                     ["PolyEq","solve_d2_polyeq_abc_equation"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

case f of FormKF "[x = 0, x = -1]" => ()

	 | _ => error "polyeq.sml: diff.behav. in x + x^2 = 0 -> [x = 0, x = -1]";

val fmz = ["equality (1*x + x^^^2 = 0)", "solveFor x","solutions L"];

val (dI',pI',mI') = ("PolyEq",["abcFormula","degree_2","polynomial","univariate","equation"],

                     ["PolyEq","solve_d2_polyeq_abc_equation"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

case f of FormKF "[x = 0, x = -1]" => ()

	 | _ => error "polyeq.sml: diff.behav. in x + x^2 = 0 -> [x = 0, x = -1]";

(*EP-16*)

val fmz = ["equality (x + 2*x^^^2 = 0)", "solveFor x","solutions L"];

val (dI',pI',mI') = ("PolyEq",["abcFormula","degree_2","polynomial","univariate","equation"],

                     ["PolyEq","solve_d2_polyeq_abc_equation"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

case f of FormKF "[x = 0, x = -1 / 2]" => ()

	 | _ => error "polyeq.sml: diff.behav. in x + x^2 = 0 -> [x = 0, x = -1 / 2]";

(*EP-//*)

val fmz = ["equality (x + x^^^2 = 0)", "solveFor x","solutions L"];

val (dI',pI',mI') = ("PolyEq",["abcFormula","degree_2","polynomial","univariate","equation"],

                     ["PolyEq","solve_d2_polyeq_abc_equation"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

case f of FormKF "[x = 0, x = -1]" => ()

	 | _ => error "polyeq.sml: diff.behav. in x + x^2 = 0 -> [x = 0, x = -1]";

"----------- (-8 - 2*x + x^^^2 = 0),  (*Schalk 2, S.67 Nr.31.b----";

"----------- (-8 - 2*x + x^^^2 = 0),  (*Schalk 2, S.67 Nr.31.b----";

"----------- (-8 - 2*x + x^^^2 = 0),  (*Schalk 2, S.67 Nr.31.b----";

(*stopped du to TODO.txt WN111014.TODO calculate_Poly < calculate_Rational < calculate_RootRat

see --- val rls = calculate_RootRat > calculate_Rational ---

calculate_RootRat was a TODO with 2002, requires re-design.

see also --- (-8 - 2*x + x^^^2 = 0),  by rewriting --- below

*)

 val fmz = ["equality (-8 - 2*x + x^^^2 = 0)", (*Schalk 2, S.67 Nr.31.b*)

 	    "solveFor x","solutions L"];

 val (dI',pI',mI') =

     ("PolyEq",["degree_2","expanded","univariate","equation"],

      ["PolyEq","complete_square"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

val (p,_,f,nxt,_,pt) = me nxt p [] pt; val (p,_,f,nxt,_,pt) = me nxt p [] pt;

(*Apply_Method ("PolyEq","complete_square")*)

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

(*"-8 - 2 * x + x ^^^ 2 = 0", nxt = Rewrite_Set_Inst ... "complete_square*)

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

(*"-8 + (2 / 2 - x) ^^^ 2 = (2 / 2) ^^^ 2", nxt = Rewrite("square_explicit1"*)

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

(*"(2 / 2 - x) ^^^ 2 = (2 / 2) ^^^ 2 - -8" nxt = Rewrite("root_plus_minus*)

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

(*"2 / 2 - x = sqrt ((2 / 2) ^^^ 2 - -8) |

   2 / 2 - x = - sqrt ((2 / 2) ^^^ 2 - -8)" nxt = Rewr_Inst("bdv_explicit2"*)

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

(*"2 / 2 - x = sqrt ((2 / 2) ^^^ 2 - -8) |

   -1*x = - (2 / 2) + - sqrt ((2 / 2) ^^^ 2 - -8)"nxt = R_Inst("bdv_explt2"*)

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

(*"-1 * x = - (2 / 2) + sqrt ((2 / 2) ^^^ 2 - -8) |

   -1 * x = (- (2 / 2) + - sqrt ((2 / 2) ^^^ 2 - -8))"nxt = bdv_explicit3*)

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

(*"-1 * x = - (2 / 2) + sqrt ((2 / 2) ^^^ 2 - -8) |

  x = -1 * (- (2 / 2) + - sqrt ((2 / 2) ^^^ 2 - -8))" nxt = bdv_explicit3*)

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

(*"x = -1 * (- (2 / 2) + sqrt ((2 / 2) ^^^ 2 - -8)) |

   x = -1 * (- (2 / 2) + - sqrt ((2 / 2) ^^^ 2 - -8))"nxt = calculate_Rational

   NOT IMPLEMENTED SINCE 2002 ------------------------------^^^^^^^^^^^^^^^^^^*)

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

(*"x = -2 | x = 4" nxt = Or_to_List*)

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

(*"[x = -2, x = 4]" nxt = Check_Postcond*)

val (p,_,f,nxt,_,pt) = me nxt p [] pt; f2str f;

(* FIXXXME 

 case f of Form' (FormKF (~1,EdUndef,0,Nundef,"[x = -2, x = 4]")) => () TODO

	 | _ => error "polyeq.sml: diff.behav. in [x = -2, x = 4]";

*)

if f2str f =

"[x = -1 * -1 + -1 * sqrt (2 ^^^ 2 / 2 ^^^ 2 - -8),\n x = -1 * -1 + -1 * (-1 * sqrt (2 ^^^ 2 / 2 ^^^ 2 - -8))]"

(*"[x = -1 * -1 + -1 * sqrt (1 ^^^ 2 - -8),\n x = -1 * -1 + -1 * (-1 * sqrt (1 ^^^ 2 - -8))]"*)

then () else error "polyeq.sml corrected?behav. in [x = -2, x = 4]";

"----------- (-8 - 2*x + x^^^2 = 0),  by rewriting ---------------";

"----------- (-8 - 2*x + x^^^2 = 0),  by rewriting ---------------";

"----------- (-8 - 2*x + x^^^2 = 0),  by rewriting ---------------";

(*stopped du to TODO.txt WN111014.TODO calculate_Poly < calculate_Rational < calculate_RootRat

see --- val rls = calculate_RootRat > calculate_Rational ---*)

val thy = @{theory PolyEq};

val ctxt = Proof_Context.init_global thy;

val inst = [((the o (parseNEW  ctxt)) "bdv::real", (the o (parseNEW  ctxt)) "x::real")];

val t = (the o (parseNEW  ctxt)) "-8 - 2*x + x^^^2 = (0::real)";

val rls = complete_square;

val SOME (t,asm) = rewrite_set_inst_ thy true inst rls t;

term2str t = "-8 + (2 / 2 - x) ^^^ 2 = (2 / 2) ^^^ 2";

val thm = num_str @{thm square_explicit1};

val SOME (t,asm) = rewrite_ thy dummy_ord Erls true thm t;

term2str t = "(2 / 2 - x) ^^^ 2 = (2 / 2) ^^^ 2 - -8";

val thm = num_str @{thm root_plus_minus};

val SOME (t,asm) = rewrite_ thy dummy_ord PolyEq_erls true thm t;

term2str t = "2 / 2 - x = sqrt ((2 / 2) ^^^ 2 - -8) |"^

           "\n2 / 2 - x = -1 * sqrt ((2 / 2) ^^^ 2 - -8)";

(*the thm bdv_explicit2* here required to be constrained to ::real*)

val thm = num_str @{thm bdv_explicit2};

val SOME (t,asm) = rewrite_inst_ thy dummy_ord Erls true inst thm t;

term2str t = "2 / 2 - x = sqrt ((2 / 2) ^^^ 2 - -8) |"^

              "\n-1 * x = - (2 / 2) + -1 * sqrt ((2 / 2) ^^^ 2 - -8)";

val thm = num_str @{thm bdv_explicit3};

val SOME (t,asm) = rewrite_inst_ thy dummy_ord Erls true inst thm t;

term2str t = "2 / 2 - x = sqrt ((2 / 2) ^^^ 2 - -8) |"^

                   "\nx = -1 * (- (2 / 2) + -1 * sqrt ((2 / 2) ^^^ 2 - -8))";

val thm = num_str @{thm bdv_explicit2};

val SOME (t,asm) = rewrite_inst_ thy dummy_ord Erls true inst thm t;

term2str t = "-1 * x = - (2 / 2) + sqrt ((2 / 2) ^^^ 2 - -8) |"^

                "\nx = -1 * (- (2 / 2) + -1 * sqrt ((2 / 2) ^^^ 2 - -8))";

val rls = calculate_RootRat;

val SOME (t,asm) = rewrite_set_ thy true rls t;

if term2str t =

  "-1 * x = -1 + sqrt (2 ^^^ 2 / 2 ^^^ 2 - -8) \<or>\nx = -1 * -1 + -1 * (-1 * sqrt (2 ^^^ 2 / 2 ^^^ 2 - -8))"

(*"-1 * x = -1 + sqrt (2 ^^^ 2 / 2 ^^^ 2 - -8) |\nx = -1 * -1 + -1 * (-1 * sqrt (2 ^^^ 2 / 2 ^^^ 2 - -8))"..isabisac15*)

then () else error "(-8 - 2*x + x^^^2 = 0),  by rewriting -- ERROR INDICATES IMPROVEMENT";

(*SHOULD BE: term2str = "x = -2 | x = 4;*)

"-------------------- (3 - 10*x + 3*x^^^2 = 0), ----------------------";

"-------------------- (3 - 10*x + 3*x^^^2 = 0), ----------------------";

"-------------------- (3 - 10*x + 3*x^^^2 = 0), ----------------------";

"---- test the erls ----";

 val t1 = (Thm.term_of o the o (parse thy)) "0 <= (10/3/2)^^^2 - 1";

 val SOME (t,_) = rewrite_set_ @{theory PolyEq} false PolyEq_erls t1;

 val t' = term2str t;

 (*if t'= "HOL.True" then ()

 else error "polyeq.sml: diff.behav. in 'rewrite_set_.. PolyEq_erls";*)

(* *)

 val fmz = ["equality (3 - 10*x + 3*x^^^2 = 0)",

 	    "solveFor x","solutions L"];

 val (dI',pI',mI') =

     ("PolyEq",["degree_2","expanded","univariate","equation"],

      ["PolyEq","complete_square"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

 val (p,_,f,nxt,_,pt) = me nxt p [] pt;

 val (p,_,f,nxt,_,pt) = me nxt p [] pt;

 val (p,_,f,nxt,_,pt) = me nxt p [] pt;

 val (p,_,f,nxt,_,pt) = me nxt p [] pt;

 val (p,_,f,nxt,_,pt) = me nxt p [] pt;

 val (p,_,f,nxt,_,pt) = me nxt p [] pt;

 (*Apply_Method ("PolyEq","complete_square")*)

 val (p,_,f,nxt,_,pt) = me nxt p [] pt; f2str f;

"----------- (-16 + 4*x + 2*x^^^2 = 0), --------------------------";

"----------- (-16 + 4*x + 2*x^^^2 = 0), --------------------------";

"----------- (-16 + 4*x + 2*x^^^2 = 0), --------------------------";

 val fmz = ["equality (-16 + 4*x + 2*x^^^2 = 0)",

 	    "solveFor x","solutions L"];

 val (dI',pI',mI') =

     ("PolyEq",["degree_2","expanded","univariate","equation"],

      ["PolyEq","complete_square"]);

val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

val (p,_,f,nxt,_,pt) = me nxt p [] pt;

 val (p,_,f,nxt,_,pt) = me nxt p [] pt;

 val (p,_,f,nxt,_,pt) = me nxt p [] pt;

 val (p,_,f,nxt,_,pt) = me nxt p [] pt;

 val (p,_,f,nxt,_,pt) = me nxt p [] pt;

 val (p,_,f,nxt,_,pt) = me nxt p [] pt;

 val (p,_,f,nxt,_,pt) = me nxt p [] pt;

 (*Apply_Method ("PolyEq","complete_square")*)

 val (p,_,f,nxt,_,pt) = me nxt p [] pt;

 val (p,_,f,nxt,_,pt) = me nxt p [] pt;

 val (p,_,f,nxt,_,pt) = me nxt p [] pt;

 val (p,_,f,nxt,_,pt) = me nxt p [] pt;

 val (p,_,f,nxt,_,pt) = me nxt p [] pt;

 val (p,_,f,nxt,_,pt) = me nxt p [] pt;

 val (p,_,f,nxt,_,pt) = me nxt p [] pt;

 val (p,_,f,nxt,_,pt) = me nxt p [] pt;

 val (p,_,f,nxt,_,pt) = me nxt p [] pt;

 val (p,_,f,nxt,_,pt) = me nxt p [] pt;

(* FIXXXXME n1.,

 case f of Form' (FormKF (~1,EdUndef,0,Nundef,"[x = 2, x = -4]")) => () TODO

	 | _ => error "polyeq.sml: diff.behav. in [x = 2, x = -4]";

*)