X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fsyntax%2Ftdeq_tdeq.ma;h=bdb48def69a758cd827d2b26693ee503a2a20565;hb=1de84a809c842fbc8a4e0d92b9bc61763c0e6fae;hp=af82e7cd76d0ad7c7ae1986d6704a66318058d76;hpb=4e75ab41fb7a0a9a4f66cb777a791ce3950c57ce;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/tdeq_tdeq.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/tdeq_tdeq.ma index af82e7cd7..bdb48def6 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/tdeq_tdeq.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/syntax/tdeq_tdeq.ma @@ -24,7 +24,7 @@ theorem tdeq_trans: ∀h,o. Transitive … (tdeq h o). elim (tdeq_inv_sort1_deg … H … Hs) -s /2 width=3 by tdeq_sort/ | #i1 #i #H <(tdeq_inv_lref1 … H) -H // | #l1 #l #H <(tdeq_inv_gref1 … H) -H // -| #I #V1 #V #T1 #T #_ #_ #IHV #IHT #X #H destruct +| #I #V1 #V #T1 #T #_ #_ #IHV #IHT #X #H elim (tdeq_inv_pair1 … H) -H /3 width=1 by tdeq_pair/ ] qed-.