]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/components/grafite_parser/grafiteParser.ml
Disabled debug.
[helm.git] / matita / components / grafite_parser / grafiteParser.ml
index 16bc6c32ebe60a3efd8537a23ed9a42b4d483de2..720b4196a2c6d4908d0811c6620d6bcb15ac9aef 100644 (file)
@@ -538,8 +538,7 @@ EXTEND
   grafite_ncommand: [ [
       IDENT "qed" ;  b = OPT SYMBOL "-" -> 
       let b = match b with None -> true | Some _ -> false in
-      if not b then prerr_endline "Should not index";
-      G.NQed (loc,b)
+      if not b then G.NQed (loc,b)
     | nflavour = ntheorem_flavour; name = IDENT; SYMBOL ":"; typ = term;
       body = OPT [ SYMBOL <:unicode<def>> (* ≝ *); body = term -> body ] ->
         G.NObj (loc, N.Theorem (nflavour, name, typ, body,`Regular))