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)