Metamath Proof Explorer


Theorem iundisjfi

Description: Rewrite a countable union as a disjoint union, finite version. Cf. iundisj . (Contributed by Thierry Arnoux, 15-Feb-2017)

Ref Expression
Hypotheses iundisj3.0 _nB
iundisj3.1 n=kA=B
Assertion iundisjfi n1..^NA=n1..^NAk1..^nB

Proof

Step Hyp Ref Expression
1 iundisj3.0 _nB
2 iundisj3.1 n=kA=B
3 ssrab2 n1..^N|xA1..^N
4 fzossnn 1..^N
5 nnuz =1
6 4 5 sseqtri 1..^N1
7 3 6 sstri n1..^N|xA1
8 rabn0 n1..^N|xAn1..^NxA
9 8 biimpri n1..^NxAn1..^N|xA
10 infssuzcl n1..^N|xA1n1..^N|xAsupn1..^N|xA<n1..^N|xA
11 7 9 10 sylancr n1..^NxAsupn1..^N|xA<n1..^N|xA
12 3 11 sselid n1..^NxAsupn1..^N|xA<1..^N
13 nfrab1 _nn1..^N|xA
14 nfcv _n
15 nfcv _n<
16 13 14 15 nfinf _nsupn1..^N|xA<
17 nfcv _n1..^N
18 16 nfcsb1 _nsupn1..^N|xA</nA
19 18 nfcri nxsupn1..^N|xA</nA
20 csbeq1a n=supn1..^N|xA<A=supn1..^N|xA</nA
21 20 eleq2d n=supn1..^N|xA<xAxsupn1..^N|xA</nA
22 16 17 19 21 elrabf supn1..^N|xA<n1..^N|xAsupn1..^N|xA<1..^Nxsupn1..^N|xA</nA
23 11 22 sylib n1..^NxAsupn1..^N|xA<1..^Nxsupn1..^N|xA</nA
24 23 simprd n1..^NxAxsupn1..^N|xA</nA
25 3 4 sstri n1..^N|xA
26 nnssre
27 25 26 sstri n1..^N|xA
28 27 11 sselid n1..^NxAsupn1..^N|xA<
29 28 ltnrd n1..^NxA¬supn1..^N|xA<<supn1..^N|xA<
30 eliun xk1..^supn1..^N|xA<Bk1..^supn1..^N|xA<xB
31 28 ad2antrr n1..^NxAk1..^supn1..^N|xA<xBsupn1..^N|xA<
32 elfzouz2 supn1..^N|xA<1..^NNsupn1..^N|xA<
33 fzoss2 Nsupn1..^N|xA<1..^supn1..^N|xA<1..^N
34 12 32 33 3syl n1..^NxA1..^supn1..^N|xA<1..^N
35 34 sselda n1..^NxAk1..^supn1..^N|xA<k1..^N
36 35 adantr n1..^NxAk1..^supn1..^N|xA<xBk1..^N
37 4 36 sselid n1..^NxAk1..^supn1..^N|xA<xBk
38 37 nnred n1..^NxAk1..^supn1..^N|xA<xBk
39 simpr n1..^NxAk1..^supn1..^N|xA<xBxB
40 nfcv _nk
41 1 nfcri nxB
42 2 eleq2d n=kxAxB
43 40 17 41 42 elrabf kn1..^N|xAk1..^NxB
44 36 39 43 sylanbrc n1..^NxAk1..^supn1..^N|xA<xBkn1..^N|xA
45 infssuzle n1..^N|xA1kn1..^N|xAsupn1..^N|xA<k
46 7 44 45 sylancr n1..^NxAk1..^supn1..^N|xA<xBsupn1..^N|xA<k
47 elfzolt2 k1..^supn1..^N|xA<k<supn1..^N|xA<
48 47 ad2antlr n1..^NxAk1..^supn1..^N|xA<xBk<supn1..^N|xA<
49 31 38 31 46 48 lelttrd n1..^NxAk1..^supn1..^N|xA<xBsupn1..^N|xA<<supn1..^N|xA<
50 49 rexlimdva2 n1..^NxAk1..^supn1..^N|xA<xBsupn1..^N|xA<<supn1..^N|xA<
51 30 50 biimtrid n1..^NxAxk1..^supn1..^N|xA<Bsupn1..^N|xA<<supn1..^N|xA<
52 29 51 mtod n1..^NxA¬xk1..^supn1..^N|xA<B
53 24 52 eldifd n1..^NxAxsupn1..^N|xA</nAk1..^supn1..^N|xA<B
54 csbeq1 m=supn1..^N|xA<m/nA=supn1..^N|xA</nA
55 oveq2 m=supn1..^N|xA<1..^m=1..^supn1..^N|xA<
56 55 iuneq1d m=supn1..^N|xA<k1..^mB=k1..^supn1..^N|xA<B
57 54 56 difeq12d m=supn1..^N|xA<m/nAk1..^mB=supn1..^N|xA</nAk1..^supn1..^N|xA<B
58 57 eleq2d m=supn1..^N|xA<xm/nAk1..^mBxsupn1..^N|xA</nAk1..^supn1..^N|xA<B
59 58 rspcev supn1..^N|xA<1..^Nxsupn1..^N|xA</nAk1..^supn1..^N|xA<Bm1..^Nxm/nAk1..^mB
60 12 53 59 syl2anc n1..^NxAm1..^Nxm/nAk1..^mB
61 nfv mxAk1..^nB
62 nfcsb1v _nm/nA
63 nfcv _n1..^m
64 63 1 nfiun _nk1..^mB
65 62 64 nfdif _nm/nAk1..^mB
66 65 nfcri nxm/nAk1..^mB
67 csbeq1a n=mA=m/nA
68 oveq2 n=m1..^n=1..^m
69 68 iuneq1d n=mk1..^nB=k1..^mB
70 67 69 difeq12d n=mAk1..^nB=m/nAk1..^mB
71 70 eleq2d n=mxAk1..^nBxm/nAk1..^mB
72 61 66 71 cbvrexw n1..^NxAk1..^nBm1..^Nxm/nAk1..^mB
73 60 72 sylibr n1..^NxAn1..^NxAk1..^nB
74 eldifi xAk1..^nBxA
75 74 reximi n1..^NxAk1..^nBn1..^NxA
76 73 75 impbii n1..^NxAn1..^NxAk1..^nB
77 eliun xn1..^NAn1..^NxA
78 eliun xn1..^NAk1..^nBn1..^NxAk1..^nB
79 76 77 78 3bitr4i xn1..^NAxn1..^NAk1..^nB
80 79 eqriv n1..^NA=n1..^NAk1..^nB