diff --git a/doc/removeproofs.mll b/doc/removeproofs.mll
index d4b24312fcacd646e9642ce9d181a42f1e6d2e54..7fb37bb0ba223ebf9bf3cb9f9ac9fb09c74ddd37 100644
--- a/doc/removeproofs.mll
+++ b/doc/removeproofs.mll
@@ -3,12 +3,14 @@ rule process inproof oc = parse
       { process true oc lexbuf }
   | "<span class=\"keyword\">" ("Qed" | "Defined") "</span>" ' '* '.'
       { process false oc lexbuf }
+(*
   | "<a class=\"idref\" href=\"" 
     [^ '"'] + '#' '"' [^ '\n' '>']* '"' '"' '>'
     ([^ '<' '\n']+ as ident)
     "</a>"
       { if not inproof then output_string oc ident;
         process inproof oc lexbuf }
+*)
   | _
       { if not inproof then output_char oc (Lexing.lexeme_char lexbuf 0);
         process inproof oc lexbuf }