This is an inofficial mirror of http://metamath.tirix.org for personal testing of a visualizer extension only.

Metamath Proof Explorer

Theorem rexfiuz

Description: Combine finitely many different upper integer properties into one. (Contributed by Mario Carneiro, 6-Jun-2014)

Ref Expression
Assertion rexfiuz 
|- ( A e. Fin -> ( E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. A ph <-> A. n e. A E. j e. ZZ A. k e. ( ZZ>= ` j ) ph ) )

Proof

Step Hyp Ref Expression
1 raleq 
 |-  ( x = (/) -> ( A. n e. x ph <-> A. n e. (/) ph ) )
2 1 rexralbidv 
 |-  ( x = (/) -> ( E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. x ph <-> E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. (/) ph ) )
3 raleq 
 |-  ( x = (/) -> ( A. n e. x E. j e. ZZ A. k e. ( ZZ>= ` j ) ph <-> A. n e. (/) E. j e. ZZ A. k e. ( ZZ>= ` j ) ph ) )
4 2 3 bibi12d 
 |-  ( x = (/) -> ( ( E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. x ph <-> A. n e. x E. j e. ZZ A. k e. ( ZZ>= ` j ) ph ) <-> ( E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. (/) ph <-> A. n e. (/) E. j e. ZZ A. k e. ( ZZ>= ` j ) ph ) ) )
5 raleq 
 |-  ( x = y -> ( A. n e. x ph <-> A. n e. y ph ) )
6 5 rexralbidv 
 |-  ( x = y -> ( E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. x ph <-> E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. y ph ) )
7 raleq 
 |-  ( x = y -> ( A. n e. x E. j e. ZZ A. k e. ( ZZ>= ` j ) ph <-> A. n e. y E. j e. ZZ A. k e. ( ZZ>= ` j ) ph ) )
8 6 7 bibi12d 
 |-  ( x = y -> ( ( E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. x ph <-> A. n e. x E. j e. ZZ A. k e. ( ZZ>= ` j ) ph ) <-> ( E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. y ph <-> A. n e. y E. j e. ZZ A. k e. ( ZZ>= ` j ) ph ) ) )
9 raleq 
 |-  ( x = ( y u. { z } ) -> ( A. n e. x ph <-> A. n e. ( y u. { z } ) ph ) )
10 9 rexralbidv 
 |-  ( x = ( y u. { z } ) -> ( E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. x ph <-> E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. ( y u. { z } ) ph ) )
11 raleq 
 |-  ( x = ( y u. { z } ) -> ( A. n e. x E. j e. ZZ A. k e. ( ZZ>= ` j ) ph <-> A. n e. ( y u. { z } ) E. j e. ZZ A. k e. ( ZZ>= ` j ) ph ) )
12 10 11 bibi12d 
 |-  ( x = ( y u. { z } ) -> ( ( E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. x ph <-> A. n e. x E. j e. ZZ A. k e. ( ZZ>= ` j ) ph ) <-> ( E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. ( y u. { z } ) ph <-> A. n e. ( y u. { z } ) E. j e. ZZ A. k e. ( ZZ>= ` j ) ph ) ) )
13 raleq 
 |-  ( x = A -> ( A. n e. x ph <-> A. n e. A ph ) )
14 13 rexralbidv 
 |-  ( x = A -> ( E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. x ph <-> E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. A ph ) )
15 raleq 
 |-  ( x = A -> ( A. n e. x E. j e. ZZ A. k e. ( ZZ>= ` j ) ph <-> A. n e. A E. j e. ZZ A. k e. ( ZZ>= ` j ) ph ) )
16 14 15 bibi12d 
 |-  ( x = A -> ( ( E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. x ph <-> A. n e. x E. j e. ZZ A. k e. ( ZZ>= ` j ) ph ) <-> ( E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. A ph <-> A. n e. A E. j e. ZZ A. k e. ( ZZ>= ` j ) ph ) ) )
17 0z 
 |-  0 e. ZZ
18 17 ne0ii 
 |-  ZZ =/= (/)
19 ral0 
 |-  A. n e. (/) ph
20 19 rgen2w 
 |-  A. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. (/) ph
21 r19.2z 
 |-  ( ( ZZ =/= (/) /\ A. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. (/) ph ) -> E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. (/) ph )
22 18 20 21 mp2an 
 |-  E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. (/) ph
23 ral0 
 |-  A. n e. (/) E. j e. ZZ A. k e. ( ZZ>= ` j ) ph
24 22 23 2th 
 |-  ( E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. (/) ph <-> A. n e. (/) E. j e. ZZ A. k e. ( ZZ>= ` j ) ph )
25 anbi1 
 |-  ( ( E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. y ph <-> A. n e. y E. j e. ZZ A. k e. ( ZZ>= ` j ) ph ) -> ( ( E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. y ph /\ A. n e. { z } E. j e. ZZ A. k e. ( ZZ>= ` j ) ph ) <-> ( A. n e. y E. j e. ZZ A. k e. ( ZZ>= ` j ) ph /\ A. n e. { z } E. j e. ZZ A. k e. ( ZZ>= ` j ) ph ) ) )
26 rexanuz 
 |-  ( E. j e. ZZ A. k e. ( ZZ>= ` j ) ( A. n e. y ph /\ A. n e. { z } ph ) <-> ( E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. y ph /\ E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. { z } ph ) )
27 ralunb 
 |-  ( A. n e. ( y u. { z } ) ph <-> ( A. n e. y ph /\ A. n e. { z } ph ) )
28 27 ralbii 
 |-  ( A. k e. ( ZZ>= ` j ) A. n e. ( y u. { z } ) ph <-> A. k e. ( ZZ>= ` j ) ( A. n e. y ph /\ A. n e. { z } ph ) )
29 28 rexbii 
 |-  ( E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. ( y u. { z } ) ph <-> E. j e. ZZ A. k e. ( ZZ>= ` j ) ( A. n e. y ph /\ A. n e. { z } ph ) )
30 ralsnsg 
 |-  ( z e. _V -> ( A. n e. { z } E. j e. ZZ A. k e. ( ZZ>= ` j ) ph <-> [. z / n ]. E. j e. ZZ A. k e. ( ZZ>= ` j ) ph ) )
31 sbcrex 
 |-  ( [. z / n ]. E. j e. ZZ A. k e. ( ZZ>= ` j ) ph <-> E. j e. ZZ [. z / n ]. A. k e. ( ZZ>= ` j ) ph )
32 ralcom 
 |-  ( A. k e. ( ZZ>= ` j ) A. n e. { z } ph <-> A. n e. { z } A. k e. ( ZZ>= ` j ) ph )
33 ralsnsg 
 |-  ( z e. _V -> ( A. n e. { z } A. k e. ( ZZ>= ` j ) ph <-> [. z / n ]. A. k e. ( ZZ>= ` j ) ph ) )
34 32 33 bitrid 
 |-  ( z e. _V -> ( A. k e. ( ZZ>= ` j ) A. n e. { z } ph <-> [. z / n ]. A. k e. ( ZZ>= ` j ) ph ) )
35 34 rexbidv 
 |-  ( z e. _V -> ( E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. { z } ph <-> E. j e. ZZ [. z / n ]. A. k e. ( ZZ>= ` j ) ph ) )
36 31 35 bitr4id 
 |-  ( z e. _V -> ( [. z / n ]. E. j e. ZZ A. k e. ( ZZ>= ` j ) ph <-> E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. { z } ph ) )
37 30 36 bitrd 
 |-  ( z e. _V -> ( A. n e. { z } E. j e. ZZ A. k e. ( ZZ>= ` j ) ph <-> E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. { z } ph ) )
38 37 elv 
 |-  ( A. n e. { z } E. j e. ZZ A. k e. ( ZZ>= ` j ) ph <-> E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. { z } ph )
39 38 anbi2i 
 |-  ( ( E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. y ph /\ A. n e. { z } E. j e. ZZ A. k e. ( ZZ>= ` j ) ph ) <-> ( E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. y ph /\ E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. { z } ph ) )
40 26 29 39 3bitr4i 
 |-  ( E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. ( y u. { z } ) ph <-> ( E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. y ph /\ A. n e. { z } E. j e. ZZ A. k e. ( ZZ>= ` j ) ph ) )
41 ralunb 
 |-  ( A. n e. ( y u. { z } ) E. j e. ZZ A. k e. ( ZZ>= ` j ) ph <-> ( A. n e. y E. j e. ZZ A. k e. ( ZZ>= ` j ) ph /\ A. n e. { z } E. j e. ZZ A. k e. ( ZZ>= ` j ) ph ) )
42 25 40 41 3bitr4g 
 |-  ( ( E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. y ph <-> A. n e. y E. j e. ZZ A. k e. ( ZZ>= ` j ) ph ) -> ( E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. ( y u. { z } ) ph <-> A. n e. ( y u. { z } ) E. j e. ZZ A. k e. ( ZZ>= ` j ) ph ) )
43 42 a1i 
 |-  ( y e. Fin -> ( ( E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. y ph <-> A. n e. y E. j e. ZZ A. k e. ( ZZ>= ` j ) ph ) -> ( E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. ( y u. { z } ) ph <-> A. n e. ( y u. { z } ) E. j e. ZZ A. k e. ( ZZ>= ` j ) ph ) ) )
44 4 8 12 16 24 43 findcard2 
 |-  ( A e. Fin -> ( E. j e. ZZ A. k e. ( ZZ>= ` j ) A. n e. A ph <-> A. n e. A E. j e. ZZ A. k e. ( ZZ>= ` j ) ph ) )