Metamath Proof Explorer


Theorem iundisj2f

Description: A disjoint union is disjoint. Cf. iundisj2 . (Contributed by Thierry Arnoux, 30-Dec-2016)

Ref Expression
Hypotheses iundisjf.1 _kA
iundisjf.2 _nB
iundisjf.3 n=kA=B
Assertion iundisj2f DisjnAk1..^nB

Proof

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