X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2Fbasic_2%2Fcomputation%2Fcprs_tstc_vector.ma;h=a7f9b33cdaf39d761e0dd0c8e32818b8421f7c0d;hb=5ac2dc4e01aca542ddd13c02b304c646d8df9799;hp=2f8486cc26d70f2b557428f87b0927010e2867ac;hpb=4a5254d45ba455e195b7ae2afca2212446e65ca3;p=helm.git

diff --git a/matita/matita/contribs/lambda_delta/basic_2/computation/cprs_tstc_vector.ma b/matita/matita/contribs/lambda_delta/basic_2/computation/cprs_tstc_vector.ma
index 2f8486cc2..a7f9b33cd 100644
--- a/matita/matita/contribs/lambda_delta/basic_2/computation/cprs_tstc_vector.ma
+++ b/matita/matita/contribs/lambda_delta/basic_2/computation/cprs_tstc_vector.ma
@@ -20,7 +20,8 @@ include "basic_2/computation/cprs_tstc.ma".
 
 (* Vector form of forward lemmas involving same top term constructor ********)
 
-lemma cprs_fwd_cnf_vector: ∀L,T.  𝐒[T] → L ⊢ 𝐍[T] → ∀Vs,U. L ⊢ ⒶVs.T ➡* U → ⒶVs.T ≃ U.
+(* Basic_1: was just: nf2_iso_appls_lref *)
+lemma cprs_fwd_cnf_vector: ∀L,T.  𝐒⦃T⦄ → L ⊢ 𝐍⦃T⦄ → ∀Vs,U. L ⊢ ⒶVs.T ➡* U → ⒶVs.T ≃ U.
 #L #T #H1T #H2T #Vs elim Vs -Vs [ @(cprs_fwd_cnf … H2T) ] (**) (* /2 width=3 by cprs_fwd_cnf/ does not work *)
 #V #Vs #IHVs #U #H
 elim (cprs_inv_appl1 … H) -H *