doc-src/more_antiquote.ML
changeset 39540 49c319fff40c
parent 39478 8866d068791a
child 42361 23f352990944
--- a/doc-src/more_antiquote.ML	Mon Sep 20 09:19:17 2010 +0200
+++ b/doc-src/more_antiquote.ML	Mon Sep 20 09:19:22 2010 +0200
@@ -29,7 +29,7 @@
   let
     val thy = ProofContext.theory_of ctxt;
     val const = Code.check_const thy raw_const;
-    val (_, eqngr) = Code_Preproc.obtain thy [const] [];
+    val (_, eqngr) = Code_Preproc.obtain true thy [const] [];
     fun holize thm = @{thm meta_eq_to_obj_eq} OF [thm];
     val thms = Code_Preproc.cert eqngr const
       |> Code.equations_of_cert thy