X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Fsyntax%2Fext2_ext2.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Fsyntax%2Fext2_ext2.ma;h=08a1dc99ebc30a4f5facdb2397ddef4b76adb191;hb=c7b50fec51b9a25d5bc536f44e54179fd53efb44;hp=ec71ed980b700c4f28ba5ce4d750bd6430b4a935;hpb=adb9ba187619cea977d1d22971eba27eb437cd6a;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/ext2_ext2.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/ext2_ext2.ma index ec71ed980..08a1dc99e 100644 --- a/matita/matita/contribs/lambdadelta/static_2/syntax/ext2_ext2.ma +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/ext2_ext2.ma @@ -21,7 +21,7 @@ include "static_2/syntax/ext2.ma". theorem ext2_trans: ∀R. Transitive … R → Transitive … (ext2 R). #R #HR #I1 #I #H elim H -I1 -I [ #I1 #J #H >(ext2_inv_unit_sn … H) -J /2 width=1 by ext2_unit/ -| #I1 #V1 #V #HV1 #J #H elim (ext2_inv_pair_sn … H) -H +| #I1 #V1 #V #HV1 #J #H elim (ext2_inv_pair_sn … H) -H #V2 #HV2 #H destruct /3 width=3 by ext2_pair/ ] qed-.