X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fgrafite_parser%2FgrafiteParser.ml;h=0a2103c9a89ea34be89a4585d1ee62c9c80a79ec;hb=890a19d326338d96879dedce1eadc7c91a3beac2;hp=024d321b4b359ab54f0859c6e5254f6481960ee0;hpb=8a74607bfb8c49e529c4b55a8cad92dd0c68012f;p=helm.git

diff --git a/matita/components/grafite_parser/grafiteParser.ml b/matita/components/grafite_parser/grafiteParser.ml
index 024d321b4..0a2103c9a 100644
--- a/matita/components/grafite_parser/grafiteParser.ml
+++ b/matita/components/grafite_parser/grafiteParser.ml
@@ -50,7 +50,7 @@ let parsable_statement status buf =
 
 let parse_statement grafite_parser parsable =
   exc_located_wrapper
-    (fun () -> (Grammar.Entry.parse_parsable (Obj.magic grafite_parser) (fst parsable)))
+    (fun () -> (Grammar.Entry.parse_parsable grafite_parser (fst parsable)))
 
 let strm_of_parsable (_,buf) = buf
 
@@ -72,7 +72,8 @@ let mk_rec_corec ind_kind defs loc =
     | _ -> assert false 
   in
   let body = N.Ident (name,None) in
-   (loc, N.Theorem(`Definition, name, ty, Some (N.LetRec (ind_kind, defs, body)), `Regular))
+   let attrs = `Provided, `Definition, `Regular in 
+   (loc, N.Theorem(name, ty, Some (N.LetRec (ind_kind, defs, body)), attrs))
 
 let nmk_rec_corec ind_kind defs loc index = 
  let loc,t = mk_rec_corec ind_kind defs loc in
@@ -508,14 +509,17 @@ EXTEND
       IDENT "qed" ;  i = index -> G.NQed (loc,i)
     | 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),true)
+        let attrs = `Provided, nflavour, `Regular in
+	G.NObj (loc, N.Theorem (name, typ, body, attrs),true)
     | nflavour = ntheorem_flavour; name = IDENT; SYMBOL <:unicode<def>> (* ≝ *);
       body = term ->
+        let attrs = `Provided, nflavour, `Regular in
         G.NObj (loc, 
-          N.Theorem(nflavour, name, N.Implicit `JustOne, Some body,`Regular),
+          N.Theorem(name, N.Implicit `JustOne, Some body, attrs),
           true)
     | IDENT "axiom"; i = index; name = IDENT; SYMBOL ":"; typ = term ->
-        G.NObj (loc, N.Theorem (`Axiom, name, typ, None, `Regular),i)
+        let attrs = `Provided, `Axiom, `Regular in
+	G.NObj (loc, N.Theorem (name, typ, None, attrs),i)
     | IDENT "discriminator" ; indty = tactic_term -> G.NDiscriminator (loc,indty)
     | IDENT "inverter"; name = IDENT; IDENT "for" ; indty = tactic_term ;
       paramspec = OPT inverter_param_list ;