X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frelocation%2Fdrops.ma;h=57bf1bfe510eabe95e007e54f0d34a45b5fee7d0;hp=5e8cfaeaacc6823246e51cbe5b8451ea49fa77bf;hb=268e7f336d036f77ffc9663358e9afda92b97730;hpb=1604f2ee65c57eefb7c6b3122eab2a9f32e0552d diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/drops.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/drops.ma index 5e8cfaeaa..57bf1bfe5 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/drops.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/relocation/drops.ma @@ -92,7 +92,7 @@ definition co_dropable_dx: predicate (rtmap → relation lenv) ≝ definition co_dedropable_sn: predicate (rtmap → relation lenv) ≝ λR. ∀b,f,L1,K1. ⬇*[b, f] L1 ≡ K1 → ∀f1,K2. R f1 K1 K2 → ∀f2. f ~⊚ f1 ≡ f2 → - ∃∃L2. R f2 L1 L2 & ⬇*[b, f] L2 ≡ K2 & L1 ≡[f] L2. + ∃∃L2. R f2 L1 L2 & ⬇*[b, f] L2 ≡ K2 & L1 ≐[f] L2. (* Basic properties *********************************************************)