src/HOL/Matrix_LP/Compute_Oracle/compute.ML
changeset 62870 cf724647f75b
parent 61039 80f40d89dab6
child 69597 ff784d5a5bfb
--- a/src/HOL/Matrix_LP/Compute_Oracle/compute.ML	Tue Apr 05 17:16:46 2016 +0200
+++ b/src/HOL/Matrix_LP/Compute_Oracle/compute.ML	Tue Apr 05 17:25:11 2016 +0200
@@ -582,7 +582,7 @@
             case match_aterms varsubst b' a' of
                 NONE => 
                 let
-                    fun mk s = Syntax.string_of_term_global Pure.thy
+                    fun mk s = Syntax.string_of_term_global @{theory Pure}
                       (infer_types (naming_of computer) (encoding_of computer) ty s)
                     val left = "computed left side: "^(mk a')
                     val right = "computed right side: "^(mk b')