From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Tue, 28 Apr 2009 23:33:49 +0000 (+0000)
Subject: Last commit by Ferruccio reverted since it breaks the library.
X-Git-Tag: make_still_working~4039
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=4803b343f52b716c80eed945fa12d7075399df1b;hp=f524a0d716de2bdc0874aace8f82f6289034eccf;p=helm.git

Last commit by Ferruccio reverted since it breaks the library.
If there is a bug in default, it must be fixed.
---

diff --git a/helm/software/matita/core_notation.moo b/helm/software/matita/core_notation.moo
index 94b38082b..fc6a15b06 100644
--- a/helm/software/matita/core_notation.moo
+++ b/helm/software/matita/core_notation.moo
@@ -1,78 +1,28 @@
-(* 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)"
-  with precedence 20
+  right associative 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)"
-  with precedence 20
+  right associative 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}.