X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fstatic%2Faaa_lleq.ma;h=7650113a1a9c9ab3e45bd5da9ea8f9459e594f23;hb=7a25b8fcba2436a75556db1725c6e1be78a9faca;hp=1edda42ad8aa58369c58eb532c13654e2005e057;hpb=6aab24b40d5d09561375959043ecd85c8b428d85;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/aaa_lleq.ma b/matita/matita/contribs/lambdadelta/basic_2/static/aaa_lleq.ma index 1edda42ad..7650113a1 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/static/aaa_lleq.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/static/aaa_lleq.ma @@ -20,7 +20,7 @@ include "basic_2/static/aaa.ma". (* Properties on lazy equivalence for local environments ********************) lemma lleq_aaa_trans: ∀G,L2,T,A. ⦃G, L2⦄ ⊢ T ⁝ A → - ∀L1. L1 ⋕[T, 0] L2 → ⦃G, L1⦄ ⊢ T ⁝ A. + ∀L1. L1 ≡[T, 0] L2 → ⦃G, L1⦄ ⊢ T ⁝ A. #G #L2 #T #A #H elim H -G -L2 -T -A /2 width=1 by aaa_sort/ [ #I #G #L2 #K2 #V2 #A #i #HLK2 #_ #IHV2 #L1 #H elim (lleq_fwd_lref_dx … H … HLK2) -L2 [ #H elim (ylt_yle_false … H) // @@ -38,5 +38,5 @@ lemma lleq_aaa_trans: ∀G,L2,T,A. ⦃G, L2⦄ ⊢ T ⁝ A → qed-. lemma aaa_lleq_conf: ∀G,L2,T,A. ⦃G, L2⦄ ⊢ T ⁝ A → - ∀L1. L2 ⋕[T, 0] L1 → ⦃G, L1⦄ ⊢ T ⁝ A. + ∀L1. L2 ≡[T, 0] L1 → ⦃G, L1⦄ ⊢ T ⁝ A. /3 width=3 by lleq_aaa_trans, lleq_sym/ qed-.