708 autoCalculate 1 (Steps 1); fetchProposedTactic 1; |
708 autoCalculate 1 (Steps 1); fetchProposedTactic 1; |
709 setNextTactic 1 (Specify_Method ["PolyEq", "normalise_poly"]); |
709 setNextTactic 1 (Specify_Method ["PolyEq", "normalise_poly"]); |
710 autoCalculate 1 (Steps 1); fetchProposedTactic 1; |
710 autoCalculate 1 (Steps 1); fetchProposedTactic 1; |
711 setNextTactic 1 (Apply_Method ["PolyEq", "normalise_poly"]); |
711 setNextTactic 1 (Apply_Method ["PolyEq", "normalise_poly"]); |
712 autoCalculate 1 (Steps 1); fetchProposedTactic 1; |
712 autoCalculate 1 (Steps 1); fetchProposedTactic 1; |
713 setNextTactic 1 (Rewrite ("all_left", ThmC.numerals_to_Free @{thm all_left})); |
713 setNextTactic 1 (Rewrite ("all_left", @{thm all_left})); |
714 autoCalculate 1 (Steps 1); fetchProposedTactic 1; |
714 autoCalculate 1 (Steps 1); fetchProposedTactic 1; |
715 setNextTactic 1 (Rewrite_Set_Inst (["(''bdv'',x)"], "make_ratpoly_in")); |
715 setNextTactic 1 (Rewrite_Set_Inst (["(''bdv'',x)"], "make_ratpoly_in")); |
716 autoCalculate 1 (Steps 1); fetchProposedTactic 1; |
716 autoCalculate 1 (Steps 1); fetchProposedTactic 1; |
717 (* __________ for "16 + 12 * x = 0"*) |
717 (* __________ for "16 + 12 * x = 0"*) |
718 setNextTactic 1 (Subproblem ("PolyEq", |
718 setNextTactic 1 (Subproblem ("PolyEq", |