X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fsubstitution%2Flift_lift_vector.ma;h=c0c83975e4f5504137f31d976a8376ee5f3c82bf;hb=43282d3750af8831c8100c60d75c56fdfb7ff3c9;hp=d285750a472a735e91f65c4aef4c891ec6a93100;hpb=6c985e4e2e7846a2b9abd0c84569f21c24e9ce2f;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/substitution/lift_lift_vector.ma b/matita/matita/contribs/lambdadelta/basic_2/substitution/lift_lift_vector.ma index d285750a4..c0c83975e 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/substitution/lift_lift_vector.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/substitution/lift_lift_vector.ma @@ -19,8 +19,8 @@ include "basic_2/substitution/lift_vector.ma". (* Main properties ***********************************************************) -theorem liftv_mono: ∀Ts,U1s,d,e. ⇧[d,e] Ts ≡ U1s → - ∀U2s:list term. ⇧[d,e] Ts ≡ U2s → U1s = U2s. +theorem liftv_mono: ∀Ts,U1s,d,e. ⬆[d,e] Ts ≡ U1s → + ∀U2s:list term. ⬆[d,e] Ts ≡ U2s → U1s = U2s. #Ts #U1s #d #e #H elim H -Ts -U1s [ #U2s #H >(liftv_inv_nil1 … H) -H // | #Ts #U1s #T #U1 #HTU1 #_ #IHTU1s #X #H destruct