From: Ferruccio Guidi <ferruccio.guidi@unibo.it>
Date: Fri, 28 May 2021 22:47:00 +0000 (+0200)
Subject: cic notation parser
X-Git-Tag: make_still_working~149
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=7e120a2bf2e6c0882b4f4b376c5861e001945cf4;p=helm.git

cic notation parser

syntax of constructors updated to match syntax of definitions
---

diff --git a/matita/components/content_pres/cicNotationParser.ml b/matita/components/content_pres/cicNotationParser.ml
index 8c7460346..3341b0feb 100644
--- a/matita/components/content_pres/cicNotationParser.ml
+++ b/matita/components/content_pres/cicNotationParser.ml
@@ -616,7 +616,8 @@ EXTEND
   ];
   arg: [
     [ LPAREN; names = LIST1 IDENT SEP SYMBOL ",";
-      SYMBOL ":"; ty = term; RPAREN ->
+      typ = OPT [ SYMBOL ":"; typ = term -> typ] ; RPAREN -> (* FG: now type is optional *)
+        let ty = match typ with Some ty -> ty | None -> Ast.Implicit `JustOne in
         List.map (fun n -> Ast.Ident (n, None)) names, Some ty
     | name = IDENT -> [Ast.Ident (name, None)], None
     | blob = UNPARSED_META ->