]> matita.cs.unibo.it Git - helm.git/commitdiff
Notation for existential partially fixed: it is now possible to write
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Sat, 12 Jul 2008 11:17:17 +0000 (11:17 +0000)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Sat, 12 Jul 2008 11:17:17 +0000 (11:17 +0000)
\exists a,b,c:T.P
(possibly omitting the type).
In any case, however, the type is got rid of during parsing.

helm/software/matita/core_notation.moo

index 2ea6f331d270e15803a02728706e542e8b38dba3..c7f1e5021718e911d647ab2dd974cb83236c7f6c 100644 (file)
@@ -4,9 +4,10 @@ for @{ 'exists ${default
   @{\lambda ${ident i} : $ty. $p}
   @{\lambda ${ident i} . $p}}}.
 
-notation > "\exists ident x:A.break term 19 Px" with precedence 20 for @{ 'exists (λ${ident x}:$A.$Px) }.
-
-notation > "\exists ident x.break term 19 Px" with precedence 20 for @{ 'exists (λ${ident x}.$Px) }.
+(* Bugged notation: $T is not used if provided *)
+notation > "\exists list1 ident x sep , opt (: T). term 19 Px"
+  with precedence 20
+  for ${fold right @{$Px} rec acc @{'exists (λ${ident x}.$acc)}}.
 
 notation "hvbox(\langle term 19 a, break term 19 b\rangle)" 
 with precedence 90 for @{ 'pair $a $b}.