src/HOL/Library/Sum_of_Squares/positivstellensatz_tools.ML
changeset 67271 48ef58c6cf4c
parent 63208 3251e9dfea91
child 74623 9b1d33c7bbcc
--- a/src/HOL/Library/Sum_of_Squares/positivstellensatz_tools.ML	Fri Dec 22 23:38:54 2017 +0000
+++ b/src/HOL/Library/Sum_of_Squares/positivstellensatz_tools.ML	Sat Dec 23 19:02:11 2017 +0100
@@ -105,7 +105,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) => (Thm.cterm_of ctxt (Free (x, @{typ real})), k))
+  (fn (x, k) => (Thm.cterm_of ctxt (Free (x, \<^typ>\<open>real\<close>)), k))
 
 fun parse_monomial ctxt = repeat_sep "*" (parse_varpow ctxt) >>
   (fn xs => fold FuncUtil.Ctermfunc.update xs FuncUtil.Ctermfunc.empty)