X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Fsyntax%2Fext2_ext2.ma;h=08a1dc99ebc30a4f5facdb2397ddef4b76adb191;hb=3bf7a0b4185dbffe5b822c907956acdbe2d1c559;hp=ec71ed980b700c4f28ba5ce4d750bd6430b4a935;hpb=ff612dc35167ec0c145864c9aa8ae5e1ebe20a48;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-.