src/Provers/Arith/extract_common_term.ML
changeset 43597 b4a093e755db
parent 35762 af3ff2ba4c54
child 45270 d5b5c9259afd
--- a/src/Provers/Arith/extract_common_term.ML	Wed Jun 29 20:39:41 2011 +0200
+++ b/src/Provers/Arith/extract_common_term.ML	Wed Jun 29 21:34:16 2011 +0200
@@ -49,7 +49,7 @@
 fun proc ss t =
   let
     val ctxt = Simplifier.the_context ss;
-    val prems = prems_of_ss ss;
+    val prems = Simplifier.prems_of ss;
     val ([t'], ctxt') = Variable.import_terms true [t] ctxt
     val export = singleton (Variable.export ctxt' ctxt)