X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fstatic%2Ffle_fqup.ma;h=4db4e617c829dcb7bd408e653e294c5391915088;hp=6ecf55f0a83a0d703783e6dcc3aeaa36c5e28a73;hb=b1868c5a258a6bf7fc983d63f3c417f00185e7b6;hpb=528f8ea107f689d07d060e1d31ba32bf65b4e6ba diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/fle_fqup.ma b/matita/matita/contribs/lambdadelta/basic_2/static/fle_fqup.ma index 6ecf55f0a..4db4e617c 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/static/fle_fqup.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/static/fle_fqup.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/syntax/voids_length.ma". +include "basic_2/syntax/lveq_length.ma". include "basic_2/static/frees_fqup.ma". include "basic_2/static/fle.ma". @@ -22,7 +22,7 @@ include "basic_2/static/fle.ma". lemma fle_refl: bi_reflexive … fle. #L #T -elim (voids_refl L) #n #Hn +elim (lveq_refl L) #n #Hn elim (frees_total L T) #f #Hf /2 width=8 by sle_refl, ex4_4_intro/ qed. @@ -39,7 +39,7 @@ qed. lemma fle_bind_dx_dx: ∀L1,L2,T1,T2. ⦃L1, T1⦄ ⊆ ⦃L2.ⓧ, T2⦄ → |L1| ≤ |L2| → ∀p,I,V2. ⦃L1, T1⦄ ⊆ ⦃L2, ⓑ{p,I}V2.T2⦄. #L1 #L2 #T1 #T2 * #n1 #x1 #f2 #g2 #Hf2 #Hg2 #H #Hfg2 #HL12 #p #I #V2 -elim (voids_inv_void_dx_length … H HL12) -H -HL12 #m1 #HL12 #H #_ destruct +elim (lveq_inv_void_dx_length … H HL12) -H -HL12 #m1 #HL12 #H #_ destruct