X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Freducibility%2Ftpr_delift.ma;h=3fff8f25f3696509fae3ba7882c4264678e30958;hb=eb4b3b1b307fc392c36f0be253e6a111553259bc;hp=8e91abc6acd5048b454fa169e97ef74673b56e72;hpb=85a33f6b6de49ad8076753643df41f39bbedf802;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/reducibility/tpr_delift.ma b/matita/matita/contribs/lambdadelta/basic_2/reducibility/tpr_delift.ma index 8e91abc6a..3fff8f25f 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/reducibility/tpr_delift.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/reducibility/tpr_delift.ma @@ -13,7 +13,7 @@ (**************************************************************************) include "basic_2/unfold/delift.ma". -include "basic_2/reducibility/tpr_tpss.ma". +include "basic_2/reducibility/ltpr_tpss.ma". (* CONTEXT-FREE PARALLEL REDUCTION ON TERMS *********************************) @@ -24,4 +24,4 @@ lemma tpr_delift_conf: ∀U1,U2. U1 ➡ U2 → ∀L,T1,d,e. L ⊢ ▼*[d, e] U1 #U1 #U2 #HU12 #L #T1 #d #e * #W1 #HUW1 #HTW1 elim (tpr_tpss_conf … HU12 … HUW1) -U1 #U1 #HWU1 #HU21 elim (tpr_inv_lift1 … HWU1 … HTW1) -W1 /3 width=5/ -qed. +qed-.