cicNotationUtil: in fresh_name_generator, "\eta" replaced with "eta", which is an...

[helm.git] / helm / software / matita / core_notation.moo

diff --git a/helm/software/matita/core_notation.moo b/helm/software/matita/core_notation.moo
index fc6a15b06ab989e7af19d203cecc276bd81960c9..94b38082be07c401f72fcf198a78f03d48fbb581 100644 (file)
--- a/helm/software/matita/core_notation.moo
+++ b/helm/software/matita/core_notation.moo
@@ -1,28 +1,78 @@
+(* exists *******************************************************************)
+
+notation < "hvbox(\exists ident i : ty break . p)"
+ with precedence 20
+for @{'exists (\lambda ${ident i} : $ty. $p) }.
+
+notation < "hvbox(\exists ident i break . p)"
+ with precedence 20
+for @{'exists (\lambda ${ident i}. $p) }.
+
+(*
 notation < "hvbox(\exists ident i opt (: ty) break . p)"
-  right associative with precedence 20
+  with precedence 20
 for @{ 'exists ${default
   @{\lambda ${ident i} : $ty. $p}
   @{\lambda ${ident i} . $p}}}.
+*)
 
+notation > "\exists list1 ident x sep , : T. term 19 Px"
+  with precedence 20
+for 
+  @{ ${ fold right @{$Px} rec acc @{'exists (λ${ident x}:$T.$acc)} } }.
+
+notation > "\exists list1 ident x sep , . term 19 Px"
+  with precedence 20
+for 
+  @{ ${ fold right @{$Px} rec acc @{'exists (λ${ident x}.$acc)} } }.
+
+(*
 notation > "\exists list1 ident x sep , opt (: T). term 19 Px"
   with precedence 20
   for ${ default
           @{ ${ fold right @{$Px} rec acc @{'exists (λ${ident x}:$T.$acc)} } }
           @{ ${ fold right @{$Px} rec acc @{'exists (λ${ident x}.$acc)} } }
        }.
+*)
+
+(* sigma ********************************************************************)
 
+notation < "hvbox(\Sigma ident i : ty break . p)"
+ with precedence 20
+for @{'sigma (\lambda ${ident i} : $ty. $p) }.
+
+notation < "hvbox(\Sigma ident i break . p)"
+ with precedence 20
+for @{'sigma (\lambda ${ident i}. $p) }.
+
+(*
 notation < "hvbox(\Sigma ident i opt (: ty) break . p)"
-  right associative with precedence 20
+  with precedence 20
 for @{ 'sigma ${default
   @{\lambda ${ident i} : $ty. $p}
   @{\lambda ${ident i} . $p}}}.
+*)
 
+notation > "\Sigma list1 ident x sep , : T. term 19 Px"
+  with precedence 20
+for 
+  @{ ${ fold right @{$Px} rec acc @{'sigma (λ${ident x}:$T.$acc)} } }.
+
+notation > "\Sigma list1 ident x sep , . term 19 Px"
+  with precedence 20
+for 
+  @{ ${ fold right @{$Px} rec acc @{'sigma (λ${ident x}.$acc)} } }.
+
+(*
 notation > "\Sigma list1 ident x sep , opt (: T). term 19 Px"
   with precedence 20
   for ${ default
           @{ ${ fold right @{$Px} rec acc @{'sigma (λ${ident x}:$T.$acc)} } }
           @{ ${ fold right @{$Px} rec acc @{'sigma (λ${ident x}.$acc)} } }
        }.
+*)
+
+(* other notations **********************************************************)
 
 notation "hvbox(\langle term 19 a, break term 19 b\rangle)" 
 with precedence 90 for @{ 'pair $a $b}.