diff -r b49723351533 -r a37a3ab989f4 src/Tools/isac/Knowledge/RootEq.thy --- a/src/Tools/isac/Knowledge/RootEq.thy Tue Sep 14 12:12:42 2010 +0200 +++ b/src/Tools/isac/Knowledge/RootEq.thy Tue Sep 14 15:46:56 2010 +0200 @@ -482,7 +482,7 @@ [("#Given" ,["equality e_e","solveFor v_v"]), ("#Where" ,["(lhs e_e) is_rootTerm_in (v_v::real) | " ^ "(rhs e_e) is_rootTerm_in (v_v::real)"]), - ("#Find" ,["solutions v_i'''"]) + ("#Find" ,["solutions v'i'"]) ], RootEq_prls, SOME "solve (e_e::bool, v_v)", [])); @@ -495,7 +495,7 @@ " ((lhs e_e) is_normSqrtTerm_in (v_v::real)) ) |" ^ "( ((rhs e_e) is_sqrtTerm_in (v_v::real)) &" ^ " ((rhs e_e) is_normSqrtTerm_in (v_v::real)) )"]), - ("#Find" ,["solutions v_i'''"]) + ("#Find" ,["solutions v'i'"]) ], RootEq_prls, SOME "solve (e_e::bool, v_v)", [["RootEq","solve_sq_root_equation"]])); @@ -508,7 +508,7 @@ " Not((lhs e_e) is_normSqrtTerm_in (v_v::real))) | " ^ "( ((rhs e_e) is_sqrtTerm_in (v_v::real)) &" ^ " Not((rhs e_e) is_normSqrtTerm_in (v_v::real)))"]), - ("#Find" ,["solutions v_i'''"]) + ("#Find" ,["solutions v'i'"]) ], RootEq_prls, SOME "solve (e_e::bool, v_v)", [["RootEq","norm_sq_root_equation"]])); @@ -532,7 +532,7 @@ " Not((lhs e_e) is_normSqrtTerm_in (v_v::real))) | " ^ "( ((rhs e_e) is_sqrtTerm_in (v_v::real)) &" ^ " Not((rhs e_e) is_normSqrtTerm_in (v_v::real)))"]), - ("#Find" ,["solutions v_i'''"]) + ("#Find" ,["solutions v'i'"]) ], {rew_ord'="termlessI", rls'=RootEq_erls, srls=e_rls, prls=RootEq_prls, calc=[], crls=RootEq_crls, nrls=norm_Poly}, @@ -558,7 +558,7 @@ " ((lhs e_e) is_normSqrtTerm_in (v_v::real))) |" ^ "(((rhs e_e) is_sqrtTerm_in (v_v::real)) & " ^ " ((rhs e_e) is_normSqrtTerm_in (v_v::real)))"]), - ("#Find" ,["solutions v_i'''"]) + ("#Find" ,["solutions v'i'"]) ], {rew_ord'="termlessI", rls'=RootEq_erls, srls = rooteq_srls, prls = RootEq_prls, calc = [], crls=RootEq_crls, nrls=norm_Poly}, @@ -586,7 +586,7 @@ (["RootEq","solve_right_sq_root_equation"], [("#Given" ,["equality e_e","solveFor v_v"]), ("#Where" ,["(rhs e_e) is_sqrtTerm_in v_v"]), - ("#Find" ,["solutions v_i'''"]) + ("#Find" ,["solutions v'i'"]) ], {rew_ord' = "termlessI", rls' = RootEq_erls, srls = e_rls, prls = RootEq_prls, calc = [], crls = RootEq_crls, nrls = norm_Poly}, @@ -611,7 +611,7 @@ (["RootEq","solve_left_sq_root_equation"], [("#Given" ,["equality e_e","solveFor v_v"]), ("#Where" ,["(lhs e_e) is_sqrtTerm_in v_v"]), - ("#Find" ,["solutions v_i'''"]) + ("#Find" ,["solutions v'i'"]) ], {rew_ord'="termlessI", rls'=RootEq_erls,