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')