diff -r 64eecda7a8fb -r 65ec9f679c3f test/Tools/isac/Knowledge/algein.sml --- a/test/Tools/isac/Knowledge/algein.sml Thu Apr 09 12:03:14 2020 +0200 +++ b/test/Tools/isac/Knowledge/algein.sml Thu Apr 09 17:13:17 2020 +0200 @@ -94,7 +94,7 @@ moveActiveRoot 1; autoCalculate 1 CompleteCalc; val ((pt,p),_) = get_calc 1; show_pt pt; -if p = ([], Res) andalso term2str (get_obj g_res pt (fst p)) = "L = 104" then() +if p = ([], Res) andalso UnparseC.term2str (get_obj g_res pt (fst p)) = "L = 104" then() else error "algein.sml: 'Berechnung' 'erstSymbolisch' changed"; "----------- Widerspruch 3 = 777 ---------------------------------"; @@ -106,17 +106,17 @@ val thm = assoc_thm' thy ("sym_mult_zero_right",""); val t = str2term "0 = (0::real)"; val SOME (t',_) = rewrite_ thy rew_ord erls false thm t; -term2str t' = "0 = ?a1 * 0"; (* = true*) +UnparseC.term2str t' = "0 = ?a1 * 0"; (* = true*) (*testing code in ME/appl.sml*) val sube = ["?a1 = (3::real)"]; val subte = sube2subte sube; -terms2str' subte = "[?a1 = 3]"; (* = true*) +UnparseC.terms2str' subte = "[?a1 = 3]"; (* = true*) val subst = sube2subst thy sube; foldl and_ (true, map contains_Var subte); val t'' = subst_atomic subst t'; -term2str t'' = "0 = 3 * 0"; (* = true*) +UnparseC.term2str t'' = "0 = 3 * 0"; (* = true*) val thm = assoc_thm' thy ("sym",""); (*----- STOPPED.WN0x?: Widerspruch 3 = 777: sym contains "==>" instead of "=" !!!