1.1 --- a/src/Provers/Arith/extract_common_term.ML	Wed Jun 29 20:39:41 2011 +0200
     1.2 +++ b/src/Provers/Arith/extract_common_term.ML	Wed Jun 29 21:34:16 2011 +0200
     1.3 @@ -49,7 +49,7 @@
     1.4  fun proc ss t =
     1.5    let
     1.6      val ctxt = Simplifier.the_context ss;
     1.7 -    val prems = prems_of_ss ss;
     1.8 +    val prems = Simplifier.prems_of ss;
     1.9      val ([t'], ctxt') = Variable.import_terms true [t] ctxt
    1.10      val export = singleton (Variable.export ctxt' ctxt)
    1.11