src/HOL/Library/Sum_of_Squares/positivstellensatz_tools.ML
changeset 42361 23f352990944
parent 41474 60d091240485
child 43946 ba88bb44c192
--- a/src/HOL/Library/Sum_of_Squares/positivstellensatz_tools.ML	Sat Apr 16 15:47:52 2011 +0200
+++ b/src/HOL/Library/Sum_of_Squares/positivstellensatz_tools.ML	Sat Apr 16 16:15:37 2011 +0200
@@ -98,7 +98,7 @@
 val parse_id = Scan.one Symbol.is_letter ::: Scan.many Symbol.is_letdig >> implode
 
 fun parse_varpow ctxt = parse_id -- Scan.optional (str "^" |-- nat) 1 >>
-  (fn (x, k) => (cterm_of (ProofContext.theory_of ctxt) (Free (x, @{typ real})), k)) 
+  (fn (x, k) => (cterm_of (Proof_Context.theory_of ctxt) (Free (x, @{typ real})), k)) 
 
 fun parse_monomial ctxt = repeat_sep "*" (parse_varpow ctxt) >>
   (fn xs => fold FuncUtil.Ctermfunc.update xs FuncUtil.Ctermfunc.empty)