test/Tools/isac/Knowledge/polyeq-1.sml
changeset 60556 486223010ea8
parent 60509 2e0b7ca391dc
child 60559 aba19e46dd84
     1.1 --- a/test/Tools/isac/Knowledge/polyeq-1.sml	Fri Sep 16 12:13:23 2022 +0200
     1.2 +++ b/test/Tools/isac/Knowledge/polyeq-1.sml	Mon Sep 26 10:57:53 2022 +0200
     1.3 @@ -109,7 +109,7 @@
     1.4  "----------- test matching problems --------------------------0---";
     1.5  "----------- test matching problems --------------------------0---";
     1.6  val fmz = ["equality (-8 - 2*x + x \<up> 2 = 0)", "solveFor x", "solutions L"];
     1.7 -if M_Match.match_pbl fmz (Problem.from_store ["expanded", "univariate", "equation"]) =
     1.8 +if M_Match.match_pbl fmz (Problem.from_store_PIDE @{context} ["expanded", "univariate", "equation"]) =
     1.9    M_Match.Matches' {Find = [Correct "solutions L"], 
    1.10              With = [], 
    1.11              Given = [Correct "equality (- 8 - 2 * x + x \<up> 2 = 0)", Correct "solveFor x"], 
    1.12 @@ -118,7 +118,7 @@
    1.13              Relate = []}
    1.14  then () else error "M_Match.match_pbl [expanded,univariate,equation]";
    1.15  
    1.16 -if M_Match.match_pbl fmz (Problem.from_store ["degree_2", "expanded", "univariate", "equation"]) =
    1.17 +if M_Match.match_pbl fmz (Problem.from_store_PIDE @{context} ["degree_2", "expanded", "univariate", "equation"]) =
    1.18    M_Match.Matches' {Find = [Correct "solutions L"], 
    1.19              With = [], 
    1.20              Given = [Correct "equality (- 8 - 2 * x + x \<up> 2 = 0)", Correct "solveFor x"],