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