test/Tools/isac/MathEngBasic/tactic.sml
changeset 59868 d77aa0992e0f
parent 59861 65ec9f679c3f
child 59874 820bf0840029
     1.1 --- a/test/Tools/isac/MathEngBasic/tactic.sml	Fri Apr 10 16:16:09 2020 +0200
     1.2 +++ b/test/Tools/isac/MathEngBasic/tactic.sml	Fri Apr 10 18:32:36 2020 +0200
     1.3 @@ -21,5 +21,5 @@
     1.4  Rewrite': theory' * Rule_Def.rew_ord' * Rule_Set.T * bool * thm'' * term * result -> Tactic.T;
     1.5  val tac = Rewrite' ("Diff", "dummy_ord", Rule_Set.empty, true, thm'', f, res)
     1.6  ;
     1.7 -if (Tactic.result tac |> UnparseC.term2str) = "a / b" then () else error "creates_assms CHANGED";
     1.8 -if (Tactic.creates_assms tac |> UnparseC.terms2str) = "[\"k \<noteq> 0\"]" then () else error "creates_assms CHANGED";
     1.9 +if (Tactic.result tac |> UnparseC.term) = "a / b" then () else error "creates_assms CHANGED";
    1.10 +if (Tactic.creates_assms tac |> UnparseC.terms) = "[\"k \<noteq> 0\"]" then () else error "creates_assms CHANGED";