X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Frelocation%2Fdrops_vector.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Frelocation%2Fdrops_vector.ma;h=3c3f2bec8b710eefe2c96aa8ddcbf9c15cb5cc6b;hb=67fe9cec87e129a2a41c75d7ed8456a6f3314421;hp=4f5eef0173ddbf9403981669c043934cfeea5a30;hpb=86861e6f031df66824a381527dfe847029ff72bc;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/drops_vector.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/drops_vector.ma index 4f5eef017..3c3f2bec8 100644 --- a/matita/matita/contribs/lambdadelta/static_2/relocation/drops_vector.ma +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/drops_vector.ma @@ -19,8 +19,8 @@ include "static_2/relocation/drops.ma". definition d_liftable1_all: predicate (relation2 lenv term) ≝ λR. ∀K,Ts. all … (R K) Ts → - ∀b,f,L. ⬇*[b,f] L ≘ K → - ∀Us. ⬆*[f] Ts ≘ Us → all … (R L) Us. + ∀b,f,L. ⇩*[b,f] L ≘ K → + ∀Us. ⇧*[f] Ts ≘ Us → all … (R L) Us. (* Properties with generic relocation for term vectors **********************)