X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2Fbasic_2%2Fgrammar%2Ftstc_vector.ma;h=bd4f877d4e967b9d408ea59a1b442f287ef54284;hb=5ea90cbbb01fe0bf3b77221d9e6c87002982621f;hp=a3b38fcbf69e8032e0a242fb4cf66b73e89d281e;hpb=eb918fc784eacd2094e3986ba321ef47690d9983;p=helm.git diff --git a/matita/matita/contribs/lambda_delta/basic_2/grammar/tstc_vector.ma b/matita/matita/contribs/lambda_delta/basic_2/grammar/tstc_vector.ma index a3b38fcbf..bd4f877d4 100644 --- a/matita/matita/contribs/lambda_delta/basic_2/grammar/tstc_vector.ma +++ b/matita/matita/contribs/lambda_delta/basic_2/grammar/tstc_vector.ma @@ -12,8 +12,8 @@ (* *) (**************************************************************************) -include "Basic_2/grammar/term_vector.ma". -include "Basic_2/grammar/tstc.ma". +include "basic_2/grammar/term_vector.ma". +include "basic_2/grammar/tstc.ma". (* SAME TOP TERM CONSTRUCTOR ************************************************) @@ -21,7 +21,7 @@ include "Basic_2/grammar/tstc.ma". (* Basic_1: was only: iso_flats_lref_bind_false iso_flats_flat_bind_false *) lemma tstc_inv_bind_appls_simple: ∀I,Vs,V2,T1,T2. ⒶVs.T1 ≃ ⓑ{I} V2. T2 → - 𝐒[T1] → False. + 𝐒⦃T1⦄ → ⊥. #I #Vs #V2 #T1 #T2 #H elim (tstc_inv_pair2 … H) -H #V0 #T0 elim Vs -Vs normalize