--- a/doc-src/antiquote_setup.ML Fri Jan 19 13:09:37 2007 +0100
+++ b/doc-src/antiquote_setup.ML Fri Jan 19 13:16:37 2007 +0100
@@ -30,7 +30,7 @@
then txt1 ^ " = " ^ txt2
else txt1 ^ ": " ^ txt2;
val txt' = if kind = "" then txt else kind ^ " " ^ txt;
- val _ = Context.use_mltext (ml (txt1, txt2)) false (SOME (ProofContext.theory_of ctxt));
+ val _ = Context.use_mltext (ml (txt1, txt2)) false (SOME (Context.Proof ctxt));
in
"\\indexml" ^ kind ^ enclose "{" "}"
(translate_string (fn "_" => "-" | ">" => "$>$" | c => c) txt1) ^