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 
|- F/_ n B
iundisj2fi.1 
|- ( n = k -> A = B )
Assertion iundisj2fi 
|- Disj_ n e. ( 1 ..^ N ) ( A \ U_ k e. ( 1 ..^ n ) B )

Proof

Step Hyp Ref Expression
1 iundisj2fi.0 
 |-  F/_ n B
2 iundisj2fi.1 
 |-  ( n = k -> A = B )
3 tru 
 |-  T.
4 eqeq12 
 |-  ( ( a = x /\ b = y ) -> ( a = b <-> x = y ) )
5 csbeq1 
 |-  ( a = x -> [_ a / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) = [_ x / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) )
6 csbeq1 
 |-  ( b = y -> [_ b / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) = [_ y / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) )
7 5 6 ineqan12d 
 |-  ( ( a = x /\ b = y ) -> ( [_ a / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ b / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) = ( [_ x / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ y / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) )
8 7 eqeq1d 
 |-  ( ( a = x /\ b = y ) -> ( ( [_ a / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ b / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) = (/) <-> ( [_ x / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ y / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) = (/) ) )
9 4 8 orbi12d 
 |-  ( ( a = x /\ b = y ) -> ( ( a = b \/ ( [_ a / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ b / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) = (/) ) <-> ( x = y \/ ( [_ x / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ y / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) = (/) ) ) )
10 eqeq12 
 |-  ( ( a = y /\ b = x ) -> ( a = b <-> y = x ) )
11 equcom 
 |-  ( y = x <-> x = y )
12 10 11 bitrdi 
 |-  ( ( a = y /\ b = x ) -> ( a = b <-> x = y ) )
13 csbeq1 
 |-  ( a = y -> [_ a / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) = [_ y / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) )
14 csbeq1 
 |-  ( b = x -> [_ b / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) = [_ x / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) )
15 13 14 ineqan12d 
 |-  ( ( a = y /\ b = x ) -> ( [_ a / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ b / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) = ( [_ y / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ x / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) )
16 incom 
 |-  ( [_ y / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ x / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) = ( [_ x / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ y / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) )
17 15 16 eqtrdi 
 |-  ( ( a = y /\ b = x ) -> ( [_ a / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ b / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) = ( [_ x / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ y / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) )
18 17 eqeq1d 
 |-  ( ( a = y /\ b = x ) -> ( ( [_ a / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ b / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) = (/) <-> ( [_ x / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ y / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) = (/) ) )
19 12 18 orbi12d 
 |-  ( ( a = y /\ b = x ) -> ( ( a = b \/ ( [_ a / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ b / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) = (/) ) <-> ( x = y \/ ( [_ x / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ y / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) = (/) ) ) )
20 fzossnn 
 |-  ( 1 ..^ N ) C_ NN
21 nnssre 
 |-  NN C_ RR
22 20 21 sstri 
 |-  ( 1 ..^ N ) C_ RR
23 22 a1i 
 |-  ( T. -> ( 1 ..^ N ) C_ RR )
24 biidd 
 |-  ( ( T. /\ ( x e. ( 1 ..^ N ) /\ y e. ( 1 ..^ N ) ) ) -> ( ( x = y \/ ( [_ x / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ y / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) = (/) ) <-> ( x = y \/ ( [_ x / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ y / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) = (/) ) ) )
25 nesym 
 |-  ( y =/= x <-> -. x = y )
26 22 sseli 
 |-  ( x e. ( 1 ..^ N ) -> x e. RR )
27 22 sseli 
 |-  ( y e. ( 1 ..^ N ) -> y e. RR )
28 id 
 |-  ( x <_ y -> x <_ y )
29 leltne 
 |-  ( ( x e. RR /\ y e. RR /\ x <_ y ) -> ( x < y <-> y =/= x ) )
30 26 27 28 29 syl3an 
 |-  ( ( x e. ( 1 ..^ N ) /\ y e. ( 1 ..^ N ) /\ x <_ y ) -> ( x < y <-> y =/= x ) )
31 vex 
 |-  x e. _V
32 nfcsb1v 
 |-  F/_ n [_ x / n ]_ A
33 nfcv 
 |-  F/_ n ( 1 ..^ x )
34 33 1 nfiun 
 |-  F/_ n U_ k e. ( 1 ..^ x ) B
35 32 34 nfdif 
 |-  F/_ n ( [_ x / n ]_ A \ U_ k e. ( 1 ..^ x ) B )
36 csbeq1a 
 |-  ( n = x -> A = [_ x / n ]_ A )
37 oveq2 
 |-  ( n = x -> ( 1 ..^ n ) = ( 1 ..^ x ) )
38 37 iuneq1d 
 |-  ( n = x -> U_ k e. ( 1 ..^ n ) B = U_ k e. ( 1 ..^ x ) B )
39 36 38 difeq12d 
 |-  ( n = x -> ( A \ U_ k e. ( 1 ..^ n ) B ) = ( [_ x / n ]_ A \ U_ k e. ( 1 ..^ x ) B ) )
40 31 35 39 csbief 
 |-  [_ x / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) = ( [_ x / n ]_ A \ U_ k e. ( 1 ..^ x ) B )
41 vex 
 |-  y e. _V
42 nfcsb1v 
 |-  F/_ n [_ y / n ]_ A
43 nfcv 
 |-  F/_ n ( 1 ..^ y )
44 43 1 nfiun 
 |-  F/_ n U_ k e. ( 1 ..^ y ) B
45 42 44 nfdif 
 |-  F/_ n ( [_ y / n ]_ A \ U_ k e. ( 1 ..^ y ) B )
46 csbeq1a 
 |-  ( n = y -> A = [_ y / n ]_ A )
47 oveq2 
 |-  ( n = y -> ( 1 ..^ n ) = ( 1 ..^ y ) )
48 47 iuneq1d 
 |-  ( n = y -> U_ k e. ( 1 ..^ n ) B = U_ k e. ( 1 ..^ y ) B )
49 46 48 difeq12d 
 |-  ( n = y -> ( A \ U_ k e. ( 1 ..^ n ) B ) = ( [_ y / n ]_ A \ U_ k e. ( 1 ..^ y ) B ) )
50 41 45 49 csbief 
 |-  [_ y / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) = ( [_ y / n ]_ A \ U_ k e. ( 1 ..^ y ) B )
51 40 50 ineq12i 
 |-  ( [_ x / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ y / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) = ( ( [_ x / n ]_ A \ U_ k e. ( 1 ..^ x ) B ) i^i ( [_ y / n ]_ A \ U_ k e. ( 1 ..^ y ) B ) )
52 simp1 
 |-  ( ( x e. ( 1 ..^ N ) /\ y e. ( 1 ..^ N ) /\ x < y ) -> x e. ( 1 ..^ N ) )
53 20 52 sselid 
 |-  ( ( x e. ( 1 ..^ N ) /\ y e. ( 1 ..^ N ) /\ x < y ) -> x e. NN )
54 nnuz 
 |-  NN = ( ZZ>= ` 1 )
55 53 54 eleqtrdi 
 |-  ( ( x e. ( 1 ..^ N ) /\ y e. ( 1 ..^ N ) /\ x < y ) -> x e. ( ZZ>= ` 1 ) )
56 simp2 
 |-  ( ( x e. ( 1 ..^ N ) /\ y e. ( 1 ..^ N ) /\ x < y ) -> y e. ( 1 ..^ N ) )
57 20 56 sselid 
 |-  ( ( x e. ( 1 ..^ N ) /\ y e. ( 1 ..^ N ) /\ x < y ) -> y e. NN )
58 57 nnzd 
 |-  ( ( x e. ( 1 ..^ N ) /\ y e. ( 1 ..^ N ) /\ x < y ) -> y e. ZZ )
59 simp3 
 |-  ( ( x e. ( 1 ..^ N ) /\ y e. ( 1 ..^ N ) /\ x < y ) -> x < y )
60 elfzo2 
 |-  ( x e. ( 1 ..^ y ) <-> ( x e. ( ZZ>= ` 1 ) /\ y e. ZZ /\ x < y ) )
61 55 58 59 60 syl3anbrc 
 |-  ( ( x e. ( 1 ..^ N ) /\ y e. ( 1 ..^ N ) /\ x < y ) -> x e. ( 1 ..^ y ) )
62 nfcv 
 |-  F/_ n k
63 62 1 2 csbhypf 
 |-  ( x = k -> [_ x / n ]_ A = B )
64 63 equcoms 
 |-  ( k = x -> [_ x / n ]_ A = B )
65 64 eqcomd 
 |-  ( k = x -> B = [_ x / n ]_ A )
66 65 ssiun2s 
 |-  ( x e. ( 1 ..^ y ) -> [_ x / n ]_ A C_ U_ k e. ( 1 ..^ y ) B )
67 61 66 syl 
 |-  ( ( x e. ( 1 ..^ N ) /\ y e. ( 1 ..^ N ) /\ x < y ) -> [_ x / n ]_ A C_ U_ k e. ( 1 ..^ y ) B )
68 67 ssdifssd 
 |-  ( ( x e. ( 1 ..^ N ) /\ y e. ( 1 ..^ N ) /\ x < y ) -> ( [_ x / n ]_ A \ U_ k e. ( 1 ..^ x ) B ) C_ U_ k e. ( 1 ..^ y ) B )
69 68 ssrind 
 |-  ( ( x e. ( 1 ..^ N ) /\ y e. ( 1 ..^ N ) /\ x < y ) -> ( ( [_ x / n ]_ A \ U_ k e. ( 1 ..^ x ) B ) i^i ( [_ y / n ]_ A \ U_ k e. ( 1 ..^ y ) B ) ) C_ ( U_ k e. ( 1 ..^ y ) B i^i ( [_ y / n ]_ A \ U_ k e. ( 1 ..^ y ) B ) ) )
70 51 69 eqsstrid 
 |-  ( ( x e. ( 1 ..^ N ) /\ y e. ( 1 ..^ N ) /\ x < y ) -> ( [_ x / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ y / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) C_ ( U_ k e. ( 1 ..^ y ) B i^i ( [_ y / n ]_ A \ U_ k e. ( 1 ..^ y ) B ) ) )
71 disjdif 
 |-  ( U_ k e. ( 1 ..^ y ) B i^i ( [_ y / n ]_ A \ U_ k e. ( 1 ..^ y ) B ) ) = (/)
72 sseq0 
 |-  ( ( ( [_ x / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ y / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) C_ ( U_ k e. ( 1 ..^ y ) B i^i ( [_ y / n ]_ A \ U_ k e. ( 1 ..^ y ) B ) ) /\ ( U_ k e. ( 1 ..^ y ) B i^i ( [_ y / n ]_ A \ U_ k e. ( 1 ..^ y ) B ) ) = (/) ) -> ( [_ x / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ y / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) = (/) )
73 70 71 72 sylancl 
 |-  ( ( x e. ( 1 ..^ N ) /\ y e. ( 1 ..^ N ) /\ x < y ) -> ( [_ x / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ y / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) = (/) )
74 73 3expia 
 |-  ( ( x e. ( 1 ..^ N ) /\ y e. ( 1 ..^ N ) ) -> ( x < y -> ( [_ x / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ y / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) = (/) ) )
75 74 3adant3 
 |-  ( ( x e. ( 1 ..^ N ) /\ y e. ( 1 ..^ N ) /\ x <_ y ) -> ( x < y -> ( [_ x / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ y / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) = (/) ) )
76 30 75 sylbird 
 |-  ( ( x e. ( 1 ..^ N ) /\ y e. ( 1 ..^ N ) /\ x <_ y ) -> ( y =/= x -> ( [_ x / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ y / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) = (/) ) )
77 25 76 biimtrrid 
 |-  ( ( x e. ( 1 ..^ N ) /\ y e. ( 1 ..^ N ) /\ x <_ y ) -> ( -. x = y -> ( [_ x / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ y / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) = (/) ) )
78 77 orrd 
 |-  ( ( x e. ( 1 ..^ N ) /\ y e. ( 1 ..^ N ) /\ x <_ y ) -> ( x = y \/ ( [_ x / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ y / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) = (/) ) )
79 78 adantl 
 |-  ( ( T. /\ ( x e. ( 1 ..^ N ) /\ y e. ( 1 ..^ N ) /\ x <_ y ) ) -> ( x = y \/ ( [_ x / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ y / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) = (/) ) )
80 9 19 23 24 79 wlogle 
 |-  ( ( T. /\ ( x e. ( 1 ..^ N ) /\ y e. ( 1 ..^ N ) ) ) -> ( x = y \/ ( [_ x / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ y / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) = (/) ) )
81 3 80 mpan 
 |-  ( ( x e. ( 1 ..^ N ) /\ y e. ( 1 ..^ N ) ) -> ( x = y \/ ( [_ x / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ y / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) = (/) ) )
82 81 rgen2 
 |-  A. x e. ( 1 ..^ N ) A. y e. ( 1 ..^ N ) ( x = y \/ ( [_ x / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ y / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) = (/) )
83 disjors 
 |-  ( Disj_ n e. ( 1 ..^ N ) ( A \ U_ k e. ( 1 ..^ n ) B ) <-> A. x e. ( 1 ..^ N ) A. y e. ( 1 ..^ N ) ( x = y \/ ( [_ x / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) i^i [_ y / n ]_ ( A \ U_ k e. ( 1 ..^ n ) B ) ) = (/) ) )
84 82 83 mpbir 
 |-  Disj_ n e. ( 1 ..^ N ) ( A \ U_ k e. ( 1 ..^ n ) B )