X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fi_static%2Ftc_lfxs_drops.ma;h=2122b053332e4571e8de261620f14022b13c86af;hp=13aec62e424b36c8023c58c9a31989ea2611cbc4;hb=268e7f336d036f77ffc9663358e9afda92b97730;hpb=1604f2ee65c57eefb7c6b3122eab2a9f32e0552d

diff --git a/matita/matita/contribs/lambdadelta/basic_2/i_static/tc_lfxs_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/i_static/tc_lfxs_drops.ma
index 13aec62e4..2122b0533 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/i_static/tc_lfxs_drops.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/i_static/tc_lfxs_drops.ma
@@ -21,7 +21,7 @@ include "basic_2/i_static/tc_lfxs.ma".
 definition tc_dedropable_sn: predicate (relation3 lenv term term) ≝
                              λR. ∀b,f,L1,K1. ⬇*[b, f] L1 ≡ K1 →
                              ∀K2,T. K1 ⪤**[R, T] K2 → ∀U. ⬆*[f] T ≡ U →
-                             ∃∃L2. L1 ⪤**[R, U] L2 & ⬇*[b, f] L2 ≡ K2 & L1 ≡[f] L2.
+                             ∃∃L2. L1 ⪤**[R, U] L2 & ⬇*[b, f] L2 ≡ K2 & L1 ≐[f] L2.
 
 definition tc_dropable_sn: predicate (relation3 lenv term term) ≝
                            λR. ∀b,f,L1,K1. ⬇*[b, f] L1 ≡ K1 → 𝐔⦃f⦄ →