X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fgrammar%2Ftstc_vector.ma;h=df30d65b8c09164f68442bbbd946d96315785341;hb=5902d6da146ca78b0ed5d062e3968f52868147c5;hp=997a5c1792f2cf7c160581ca3fcfba5bd19c740d;hpb=ddd6cb6f4514d9ca97f857cafa218c170222f5aa;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/grammar/tstc_vector.ma b/matita/matita/contribs/lambdadelta/basic_2/grammar/tstc_vector.ma index 997a5c179..df30d65b8 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/grammar/tstc_vector.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/grammar/tstc_vector.ma @@ -20,7 +20,7 @@ include "basic_2/grammar/tstc.ma". (* Advanced inversion lemmas ************************************************) (* Basic_1: was only: iso_flats_lref_bind_false iso_flats_flat_bind_false *) -lemma tstc_inv_bind_appls_simple: ∀a,I,Vs,V2,T1,T2. ⒶVs.T1 ≂ ⓑ{a,I} V2. T2 → +lemma tstc_inv_bind_applv_simple: ∀a,I,Vs,V2,T1,T2. ⒶVs.T1 ≂ ⓑ{a,I} V2. T2 → 𝐒⦃T1⦄ → ⊥. #a #I #Vs #V2 #T1 #T2 #H elim (tstc_inv_pair2 … H) -H #V0 #T0