src/Tools/isac/Interpret/mathengine.sml
changeset 59272 1d3ef477d9c8
parent 59271 7a02202e4577
child 59273 2ba35efb07b7
     1.1 --- a/src/Tools/isac/Interpret/mathengine.sml	Mon Dec 19 10:37:44 2016 +0100
     1.2 +++ b/src/Tools/isac/Interpret/mathengine.sml	Wed Dec 21 08:57:47 2016 +0100
     1.3 @@ -84,7 +84,7 @@
     1.4      let
     1.5        val (mI, m) = mk_tac'_ tac;
     1.6      in
     1.7 -      case applicable_in p pt m of
     1.8 +      case Applicable.applicable_in p pt m of
     1.9  	      Chead.Notappl _ => ("not-applicable", ([],[],  ptp): Chead.calcstate')
    1.10  	    | Chead.Appl m =>
    1.11  	      let