(* Title:  test/../appl.sml

   Author: Walther Neuper 110320

   (c) copyright due to lincense terms.

*)

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

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

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

"-------------- fun applicable_in..Apply_Method ------------------";

"-------------- fun mk_set ---------------------------------------";

"-------------- fun check_elementwise ----------------------------";

"-------------- fun split_dummy ----------------------------------";

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

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

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

"-------------- fun applicable_in..Apply_Method ------------------";

"-------------- fun applicable_in..Apply_Method ------------------";

"-------------- fun applicable_in..Apply_Method ------------------";

val fmz = ["equality (x+1=(2::real))",

	   "solveFor (x::real)","solutions L"];

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

  ("Test",["sqroot-test","univariate","equation","test"],

   ["Test","squ-equ-test-subpbl1"]);

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

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

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

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

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

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

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

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

val (PblObj{origin = (_, (dI, pI, _), _), probl, ...}) = get_obj I pt (fst p);

val {where_, ...} = get_pbt pI;

val where_ = [str2term "(lhs e_e) is_poly_in v_v"];(*just for test<>[]*)

val pres = map (mk_env probl |> subst_atomic) where_;

(*val pres = mk_env pbl |> subst_atomic #> where_;*)

if pres = [str2term "lhs (x + 1 = 2) is_poly_in x"] then ()

else error "appl.sml Apply_Method diff.behav.";

val ctxt = assoc_thy dI |> Proof_Context.init_global |> ContextC.insert_assumptions pres;

(*TODO.WN110416 read pres from ctxt and check*)

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

show_pt pt;

(*-.-.-.-.-.-isolate response.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.*)

"~~~~~ fun Step.do_next, args:"; val (ip as (_,p_), (ptp as (pt,p), tacis)) = (p, ((pt, e_pos'), []))

val pIopt = get_pblID (pt,ip);

tacis; (*= []*)

pIopt; (*= SOME ["sqroot-test", "univariate", ...]*)

member op = [Pbl,Met] p_; (*= true*)

"~~~~~ fun nxt_specify_, args:"; val (ptp as (pt, pos as (p,p_))) = (pt,ip);

(*============ inhibit exn AK110726 ==============================================

(* ERROR: Exception Bind raised and subsequent errors (not declared...)*)

val pblobj as (PblObj{meth, origin = origin as (oris,(dI', pI', mI'), _),

			  probl, spec = (dI, pI, mI), ...}) = get_obj I pt p;

just_created_ pblobj (*by Subproblem*) andalso origin <> e_origin; (*false*)

val cpI = if pI = e_pblID then pI' else pI;

		val cmI = if mI = e_metID then mI' else mI;

		val {ppc, prls, where_, ...} = get_pbt cpI;

		val pre = check_preconds "thy 100820" prls where_ probl;

		val pb = foldl and_ (true, map fst pre);

val (_,tac) = nxt_spec p_ pb oris (dI',pI',mI') (probl, meth) 

			  (ppc, (#ppc o get_met) cmI) (dI, pI, mI);

============ inhibit exn AK110726 ==============================================*)

(*============ inhibit exn AK110726 ==============================================

(* ERROR: Exception Bind raised and subsequent errors (not declared...)*)

"~~~~~ fun Step_Specify.by_tactic_input, args:"; val (Add_Given ct, ptp) = (tac, ptp);

"~~~~~ fun nxt_specif_additem, args:"; val (sel, ct, ptp as (pt, (p, Pbl))) = ("#Given", ct, ptp);

val (PblObj{meth=met,origin=(oris,(dI',pI',_),_),

		  probl=pbl,spec=(dI,pI,_),...}) = get_obj I pt p;

val thy = if dI = ThyC.id_empty then assoc_thy dI' else assoc_thy dI;

val cpI = if pI = e_pblID then pI' else pI;

val ctxt = get_ctxt pt (p, Pbl);

oris; (*= [(1, [1], "#Given", Const ("Input_Descript.equality", "HOL.bool...*)

"~~~~~ fun appl_add, args:"; val (ctxt, sel, oris, ppc, pbt, str) = 

                               (ctxt, sel, oris, pbl, (#ppc o get_pbt) cpI, ct);

val SOME t = parseNEW ctxt str;

if t = parseNEW "-1 + x = (0::real)" then ()

else error "TODO"

is_known ctxt sel oris t; (*= ("identifiers [equality] not in example", ...WN110504???*)

============ inhibit exn AK110726 ==============================================*)

(*-.-.-.-.-.-.-isolate response.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.*)

"-------------- fun mk_set ---------------------------------------";

"-------------- fun mk_set ---------------------------------------";

"-------------- fun mk_set ---------------------------------------";

(*> val consts = str2term "[x=#4]";

> val pred = str2term "Assumptions";

> val pt = union_asm pt p 

   [("#0 <= sqrt x + sqrt (#5 + x)",[11]),("#0 <= #9 + #4 * x",[22]),

   ("#0 <= x ^^^ #2 + #5 * x",[33]),("#0 <= #2 + x",[44])];

> val p = [];

> val (sss,ttt) = mk_set thy pt p consts pred;

> (UnparseC.term sss, UnparseC.term ttt);

val it = ("x","((#0 <= sqrt x + sqrt (#5 + x) & #0 <= #9 + #4 * x) & ...

 val consts = str2term "TermC.UniversalList";

 val pred = str2term "Assumptions";

*)

"-------------- fun check_elementwise ----------------------------";

"-------------- fun check_elementwise ----------------------------";

"-------------- fun check_elementwise ----------------------------";

(* 20.5.03

> val all_results = str2term "[x=a+b,x=b,x=3]";

> val bdv = str2term "x";

> val asm = str2term "(x ~= a) & (x ~= b)";

> val erls = Rule_Set.empty;

> val (t, ts) = check_elementwise thy erls all_results (bdv, asm);

> UnparseC.term t; tracing(UnparseC.terms ts);

val it = "[x = a + b, x = b, x = c]" : string

["a + b ~= a & a + b ~= b","b ~= a & b ~= b","c ~= a & c ~= b"]

... with appropriate erls this should be:

val it = "[x = a + b,       x = c]" : string

["b ~= 0 & a ~= 0",         "3 ~= a & 3 ~= b"]

                    ////// because b ~= b False*)

"-------------- fun split_dummy ----------------------------------";

"-------------- fun split_dummy ----------------------------------";

"-------------- fun split_dummy ----------------------------------";

(* split_dummy "subproblem_equation_dummy (x=-#5//#12)";

val it = ("subproblem_equation_dummy","(x=-#5//#12)") : string * string

> split_dummy "x=-#5//#12";

val it = ("x=-#5//#12","") : string * string*)