X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Fsyntax%2Ffold.ma;h=37c715067a93bdc067ded45025c0fc5cd1673e7d;hb=156d974ad89aa04a086fdf9d332c8b04adf279fd;hp=05b86e627cad78d38d74d0c18397f03459475f57;hpb=bd53c4e895203eb049e75434f638f26b5a161a2b;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 05b86e627..37c715067 100644
--- a/matita/matita/contribs/lambdadelta/static_2/syntax/fold.ma
+++ b/matita/matita/contribs/lambdadelta/static_2/syntax/fold.ma
@@ -19,7 +19,7 @@ include "static_2/syntax/lenv.ma".
 rec definition fold L T on L ≝ match L with
 [ LAtom     ⇒ T
 | LBind L I ⇒ match I with
-  [ BUnit _   ⇒ fold L (-ⓛ⋆0.T)
+  [ BUnit _   ⇒ fold L (-ⓛ⋆𝟎.T)
   | BPair I V ⇒ fold L (-ⓑ[I]V.T)
   ]
 ].
@@ -31,7 +31,7 @@ interpretation "fold (restricted closure)" 'plus L T = (fold L T).
 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+(-ⓛ⋆𝟎.T).
 // qed.
 
 lemma fold_pair: ∀I,L,V,T. (L.ⓑ[I]V)+T = L+(-ⓑ[I]V.T).