Metamath Proof Explorer


Theorem iundisj2fi

Description: A disjoint union is disjoint, finite version. Cf. iundisj2 . (Contributed by Thierry Arnoux, 16-Feb-2017)

Ref Expression
Hypotheses iundisj2fi.0 _nB
iundisj2fi.1 n=kA=B
Assertion iundisj2fi Disjn1..^NAk1..^nB

Proof

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