Metamath Proof Explorer


Theorem iundisj2

Description: A disjoint union is disjoint. (Contributed by Mario Carneiro, 4-Jul-2014) (Revised by Mario Carneiro, 11-Dec-2016)

Ref Expression
Hypothesis iundisj.1 n=kA=B
Assertion iundisj2 DisjnAk1..^nB

Proof

Step Hyp Ref Expression
1 iundisj.1 n=kA=B
2 tru
3 eqeq12 a=xb=ya=bx=y
4 csbeq1 a=xa/nAk1..^nB=x/nAk1..^nB
5 csbeq1 b=yb/nAk1..^nB=y/nAk1..^nB
6 4 5 ineqan12d a=xb=ya/nAk1..^nBb/nAk1..^nB=x/nAk1..^nBy/nAk1..^nB
7 6 eqeq1d a=xb=ya/nAk1..^nBb/nAk1..^nB=x/nAk1..^nBy/nAk1..^nB=
8 3 7 orbi12d a=xb=ya=ba/nAk1..^nBb/nAk1..^nB=x=yx/nAk1..^nBy/nAk1..^nB=
9 eqeq12 a=yb=xa=by=x
10 equcom y=xx=y
11 9 10 bitrdi a=yb=xa=bx=y
12 csbeq1 a=ya/nAk1..^nB=y/nAk1..^nB
13 csbeq1 b=xb/nAk1..^nB=x/nAk1..^nB
14 12 13 ineqan12d a=yb=xa/nAk1..^nBb/nAk1..^nB=y/nAk1..^nBx/nAk1..^nB
15 incom y/nAk1..^nBx/nAk1..^nB=x/nAk1..^nBy/nAk1..^nB
16 14 15 eqtrdi a=yb=xa/nAk1..^nBb/nAk1..^nB=x/nAk1..^nBy/nAk1..^nB
17 16 eqeq1d a=yb=xa/nAk1..^nBb/nAk1..^nB=x/nAk1..^nBy/nAk1..^nB=
18 11 17 orbi12d a=yb=xa=ba/nAk1..^nBb/nAk1..^nB=x=yx/nAk1..^nBy/nAk1..^nB=
19 nnssre
20 19 a1i
21 biidd xyx=yx/nAk1..^nBy/nAk1..^nB=x=yx/nAk1..^nBy/nAk1..^nB=
22 nesym yx¬x=y
23 nnre xx
24 nnre yy
25 id xyxy
26 leltne xyxyx<yyx
27 23 24 25 26 syl3an xyxyx<yyx
28 vex xV
29 nfcsb1v _nx/nA
30 nfcv _nk1..^xB
31 29 30 nfdif _nx/nAk1..^xB
32 csbeq1a n=xA=x/nA
33 oveq2 n=x1..^n=1..^x
34 33 iuneq1d n=xk1..^nB=k1..^xB
35 32 34 difeq12d n=xAk1..^nB=x/nAk1..^xB
36 28 31 35 csbief x/nAk1..^nB=x/nAk1..^xB
37 vex yV
38 nfcsb1v _ny/nA
39 nfcv _nk1..^yB
40 38 39 nfdif _ny/nAk1..^yB
41 csbeq1a n=yA=y/nA
42 oveq2 n=y1..^n=1..^y
43 42 iuneq1d n=yk1..^nB=k1..^yB
44 41 43 difeq12d n=yAk1..^nB=y/nAk1..^yB
45 37 40 44 csbief y/nAk1..^nB=y/nAk1..^yB
46 36 45 ineq12i x/nAk1..^nBy/nAk1..^nB=x/nAk1..^xBy/nAk1..^yB
47 simp1 xyx<yx
48 nnuz =1
49 47 48 eleqtrdi xyx<yx1
50 simp2 xyx<yy
51 50 nnzd xyx<yy
52 simp3 xyx<yx<y
53 elfzo2 x1..^yx1yx<y
54 49 51 52 53 syl3anbrc xyx<yx1..^y
55 nfcv _nk
56 nfcv _nB
57 55 56 1 csbhypf x=kx/nA=B
58 57 equcoms k=xx/nA=B
59 58 eqcomd k=xB=x/nA
60 59 ssiun2s x1..^yx/nAk1..^yB
61 54 60 syl xyx<yx/nAk1..^yB
62 61 ssdifssd xyx<yx/nAk1..^xBk1..^yB
63 62 ssrind xyx<yx/nAk1..^xBy/nAk1..^yBk1..^yBy/nAk1..^yB
64 46 63 eqsstrid xyx<yx/nAk1..^nBy/nAk1..^nBk1..^yBy/nAk1..^yB
65 disjdif k1..^yBy/nAk1..^yB=
66 sseq0 x/nAk1..^nBy/nAk1..^nBk1..^yBy/nAk1..^yBk1..^yBy/nAk1..^yB=x/nAk1..^nBy/nAk1..^nB=
67 64 65 66 sylancl xyx<yx/nAk1..^nBy/nAk1..^nB=
68 67 3expia xyx<yx/nAk1..^nBy/nAk1..^nB=
69 68 3adant3 xyxyx<yx/nAk1..^nBy/nAk1..^nB=
70 27 69 sylbird xyxyyxx/nAk1..^nBy/nAk1..^nB=
71 22 70 biimtrrid xyxy¬x=yx/nAk1..^nBy/nAk1..^nB=
72 71 orrd xyxyx=yx/nAk1..^nBy/nAk1..^nB=
73 72 adantl xyxyx=yx/nAk1..^nBy/nAk1..^nB=
74 8 18 20 21 73 wlogle xyx=yx/nAk1..^nBy/nAk1..^nB=
75 2 74 mpan xyx=yx/nAk1..^nBy/nAk1..^nB=
76 75 rgen2 xyx=yx/nAk1..^nBy/nAk1..^nB=
77 disjors DisjnAk1..^nBxyx=yx/nAk1..^nBy/nAk1..^nB=
78 76 77 mpbir DisjnAk1..^nB