X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fgrafite_parser%2FgrafiteParser.ml;h=9e1e54ee72ae481bb7722d3f7ba0744496249c23;hb=988cf01c5bd740d6e75767327f201a3c43d635ed;hp=720b4196a2c6d4908d0811c6620d6bcb15ac9aef;hpb=38bc223769400d37900d3e18d663eefebe5c1223;p=helm.git

diff --git a/matita/components/grafite_parser/grafiteParser.ml b/matita/components/grafite_parser/grafiteParser.ml
index 720b4196a..9e1e54ee7 100644
--- a/matita/components/grafite_parser/grafiteParser.ml
+++ b/matita/components/grafite_parser/grafiteParser.ml
@@ -538,7 +538,7 @@ EXTEND
   grafite_ncommand: [ [
       IDENT "qed" ;  b = OPT SYMBOL "-" -> 
       let b = match b with None -> true | Some _ -> false in
-      if not b then G.NQed (loc,b)
+      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))