update in grafite parser

[helm.git] / matita / components / grafite_parser / grafiteParser.ml

diff --git a/matita/components/grafite_parser/grafiteParser.ml b/matita/components/grafite_parser/grafiteParser.ml
index 929e68e3ccd2fee83030e70911cb39226295cad0..429efbf52b4590e9e19d0e6561ef5e0bae067b26 100644 (file)
--- a/matita/components/grafite_parser/grafiteParser.ml
+++ b/matita/components/grafite_parser/grafiteParser.ml
@@ -481,15 +481,16 @@ EXTEND
       params = LIST0 protected_binder_vars;
        SYMBOL ":"; typ = term; SYMBOL <:unicode<def>>; SYMBOL "{" ; 
        fields = LIST0 [ 
-         name = IDENT ; 
+         name = IDENT ;
+         params = LIST0 protected_binder_vars; (* FG: params added *)
          coercion = [ 
              SYMBOL ":" -> false,0 
            | SYMBOL ":"; SYMBOL ">" -> true,0
            | SYMBOL ":"; arity = int ; SYMBOL ">" -> true,arity
          ]; 
          ty = term -> 
-           let b,n = coercion in 
-           (name,ty,b,n) 
+           let b,n = coercion in
+           (name, shift_params `Forall params ty, b, n) 
        ] SEP SYMBOL ";"; SYMBOL "}" -> 
         let params =
           List.fold_right