X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fapps_2%2Ffunctional%2Fmf_cpr.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fapps_2%2Ffunctional%2Fmf_cpr.ma;h=d4e5d447a84bc00f51ea27efbe7716ac6bfac96d;hb=67fe9cec87e129a2a41c75d7ed8456a6f3314421;hp=059a1f66faffa47f260c0f08b55c4095ea92f62d;hpb=86861e6f031df66824a381527dfe847029ff72bc;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/apps_2/functional/mf_cpr.ma b/matita/matita/contribs/lambdadelta/apps_2/functional/mf_cpr.ma
index 059a1f66f..d4e5d447a 100644
--- a/matita/matita/contribs/lambdadelta/apps_2/functional/mf_cpr.ma
+++ b/matita/matita/contribs/lambdadelta/apps_2/functional/mf_cpr.ma
@@ -21,7 +21,7 @@ include "apps_2/functional/mf_exteq.ma".
 (* Properties with relocation ***********************************************)
 
 lemma mf_delta_drops (h) (G): ∀K,V1,V2. ⦃G,K⦄ ⊢ V1 ➡[h] V2 →
-                              ∀T,L,l. ⬇*[l] L ≘ K.ⓓV1 →
+                              ∀T,L,l. ⇩*[l] L ≘ K.ⓓV1 →
                               ∀gv,lv. ⦃G,L⦄ ⊢ ●[gv,⇡[l←#l]lv]T ➡[h] ●[gv,⇡[l←↑[↑l]V2]lv]T.
 #h #G #K #V1 #V2 #HV #T elim T -T * //
 [ #i #L #l #HKL #gv #lv