X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Fsyntax%2Ffold.ma;h=061ef6ed903f17ced947387ed4b37f2020b5d7fc;hb=98e786e1a6bd7b621e37ba7cd4098d4a0a6f8278;hp=67bfbf7ff34404efa09fcbdf449cf30f6d811899;hpb=cc6fcb70ca4f3cf01205ed722d75a2fdb2aaf779;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/fold.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/fold.ma
index 67bfbf7ff..061ef6ed9 100644
--- a/matita/matita/contribs/lambdadelta/static_2/syntax/fold.ma
+++ b/matita/matita/contribs/lambdadelta/static_2/syntax/fold.ma
@@ -20,19 +20,19 @@ rec definition fold L T on L ≝ match L with
 [ LAtom     ⇒ T
 | LBind L I ⇒ match I with
   [ BUnit _   ⇒ fold L (-ⓛ⋆0.T)
-  | BPair I V ⇒ fold L (-ⓑ{I}V.T)
+  | BPair I V ⇒ fold L (-ⓑ[I]V.T)
   ]
 ].
 
-interpretation "fold (restricted closure)" 'plus L T = (fold L T).
+interpretation "fold (restricted closure)" 'nplus L T = (fold L T).
 
 (* Basic properties *********************************************************)
 
 lemma fold_atom: ∀T. ⋆ + T = T.
 // qed.
 
-lemma fold_unit: ∀I,L,T. L.ⓤ{I}+T = L+(-ⓛ⋆0.T).
+lemma fold_unit: ∀I,L,T. L.ⓤ[I]+T = L+(-ⓛ⋆0.T).
 // qed.
 
-lemma fold_pair: ∀I,L,V,T. (L.ⓑ{I}V)+T = L+(-ⓑ{I}V.T).
+lemma fold_pair: ∀I,L,V,T. (L.ⓑ[I]V)+T = L+(-ⓑ[I]V.T).
 // qed.