bug fix in notation precedences

diff --git a/matita/matita/contribs/lambda/delifting_substitution.ma b/matita/matita/contribs/lambda/delifting_substitution.ma
index 6e648c9a890969adb44c14ad433b247986d174a6..344ad849021c3fc088440dc7c2b7fcc308870621 100644 (file)
--- a/matita/matita/contribs/lambda/delifting_substitution.ma
+++ b/matita/matita/contribs/lambda/delifting_substitution.ma
@@ -27,12 +27,12 @@ interpretation "delifting substitution"
    'DSubst C d M = (dsubst C d M).
 
 (* Note: the notation with "/" does not work *)
-notation "hvbox( [ d ⬐ break C ] break term 55 M )"
-   non associative with precedence 55
+notation "hvbox( [ term 46 d ⬐ break term 46 C ] break term 46 M )"
+   non associative with precedence 46
    for @{ 'DSubst $C $d $M }.
 
-notation > "hvbox( [ ⬐ C ] break term 55 M )"
-   non associative with precedence 55
+notation > "hvbox( [ ⬐ term 46 C ] break term 46 M )"
+   non associative with precedence 46
    for @{ 'DSubst $C 0 $M }.
 
 lemma dsubst_vref_lt: ∀i,d,C. i < d → [d ⬐ C] #i = #i.

diff --git a/matita/matita/contribs/lambda/lift.ma b/matita/matita/contribs/lambda/lift.ma
index f3e1df822501b55a284d1ba7de0d9218b3786e88..817c0c1d7f8a68dddb49f8d31828723e7d9bec24 100644 (file)
--- a/matita/matita/contribs/lambda/lift.ma
+++ b/matita/matita/contribs/lambda/lift.ma
@@ -28,16 +28,16 @@ let rec lift h d M on M ≝ match M with
 
 interpretation "relocation" 'Lift h d M = (lift h d M).
 
-notation "hvbox( ↑ [ d , break h ] break term 55 M )"
-   non associative with precedence 55
+notation "hvbox( ↑ [ term 46 d , break term 46 h ] break term 46 M )"
+   non associative with precedence 46
    for @{ 'Lift $h $d $M }.
 
-notation > "hvbox( ↑ [ h ] break term 55 M )"
-   non associative with precedence 55
+notation > "hvbox( ↑ [ term 46 h ] break term 46 M )"
+   non associative with precedence 46
    for @{ 'Lift $h 0 $M }.
 
-notation > "hvbox( ↑ term 55 M )"
-   non associative with precedence 55
+notation > "hvbox( ↑ term 46 M )"
+   non associative with precedence 46
    for @{ 'Lift 1 0 $M }.
 
 lemma lift_vref_lt: ∀d,h,i. i < d → ↑[d, h] #i = #i.

diff --git a/matita/matita/contribs/lambda/multiplicity.ma b/matita/matita/contribs/lambda/multiplicity.ma
index d6d5af1101f9f02493b094fa1cc9f4cc8ca6fd98..e8b72762b947e78b268b69cac1809de62e6be328 100644 (file)
--- a/matita/matita/contribs/lambda/multiplicity.ma
+++ b/matita/matita/contribs/lambda/multiplicity.ma
@@ -26,8 +26,8 @@ let rec mult M on M ≝ match M with
 interpretation "multiplicity"
    'Multiplicity M = (mult M).
 
-notation "hvbox( #{M} )"
-   non associative with precedence 55
+notation "hvbox( #{ term 46 M } )"
+   non associative with precedence 90
    for @{ 'Multiplicity $M }.
 
 lemma mult_positive: ∀M. 0 < #{M}.

diff --git a/matita/matita/contribs/lambda/term.ma b/matita/matita/contribs/lambda/term.ma
index a38508ada1ad1b2ba469ab16057417eb98ee1d90..2e6a6e0ec16eaf566cf0a5ef3012837560a8d58d 100644 (file)
--- a/matita/matita/contribs/lambda/term.ma
+++ b/matita/matita/contribs/lambda/term.ma
@@ -37,17 +37,17 @@ interpretation "term construction (application)"
    'Application C A = (Appl C A).
 
 notation "hvbox( # term 90 i )"
- non associative with precedence 55
+ non associative with precedence 90
  for @{ 'VariableReferenceByIndex $i }.
 
-notation "hvbox( 𝛌  . term 55 A )"
-   non associative with precedence 55
+notation "hvbox( 𝛌  . term 46 A )"
+   non associative with precedence 46
    for @{ 'Abstraction $A }.
 
-notation > "hvbox( 𝛌 term 55 A )"
-   non associative with precedence 55
+notation > "hvbox( 𝛌 term 46 A )"
+   non associative with precedence 46
    for @{ 'Abstraction $A }.
 
-notation "hvbox( @ term 55 C . break term 55 A )"
-   non associative with precedence 55
+notation "hvbox( @ term 46 C . break term 46 A )"
+   non associative with precedence 46
    for @{ 'Application $C $A }.