Users' Mathboxes Mathbox for Stefan O'Rear < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  acongrep Structured version   Unicode version

Theorem acongrep 31123
Description: Every integer is alternating-congruent to some number in the first half of the fundamental domain. (Contributed by Stefan O'Rear, 2-Oct-2014.)
Assertion
Ref Expression
acongrep  |-  ( ( A  e.  NN  /\  N  e.  ZZ )  ->  E. a  e.  ( 0 ... A ) ( ( 2  x.  A )  ||  (
a  -  N )  \/  ( 2  x.  A )  ||  (
a  -  -u N
) ) )
Distinct variable groups:    A, a    N, a

Proof of Theorem acongrep
Dummy variable  b is distinct from all other variables.
StepHypRef Expression
1 2nn 10632 . . . 4  |-  2  e.  NN
2 simpl 455 . . . 4  |-  ( ( A  e.  NN  /\  N  e.  ZZ )  ->  A  e.  NN )
3 nnmulcl 10497 . . . 4  |-  ( ( 2  e.  NN  /\  A  e.  NN )  ->  ( 2  x.  A
)  e.  NN )
41, 2, 3sylancr 661 . . 3  |-  ( ( A  e.  NN  /\  N  e.  ZZ )  ->  ( 2  x.  A
)  e.  NN )
5 simpr 459 . . 3  |-  ( ( A  e.  NN  /\  N  e.  ZZ )  ->  N  e.  ZZ )
6 congrep 31116 . . 3  |-  ( ( ( 2  x.  A
)  e.  NN  /\  N  e.  ZZ )  ->  E. b  e.  ( 0 ... ( ( 2  x.  A )  -  1 ) ) ( 2  x.  A
)  ||  ( b  -  N ) )
74, 5, 6syl2anc 659 . 2  |-  ( ( A  e.  NN  /\  N  e.  ZZ )  ->  E. b  e.  ( 0 ... ( ( 2  x.  A )  -  1 ) ) ( 2  x.  A
)  ||  ( b  -  N ) )
8 elfzelz 11631 . . . . 5  |-  ( b  e.  ( 0 ... ( ( 2  x.  A )  -  1 ) )  ->  b  e.  ZZ )
98zred 10906 . . . 4  |-  ( b  e.  ( 0 ... ( ( 2  x.  A )  -  1 ) )  ->  b  e.  RR )
109ad2antrl 725 . . 3  |-  ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  ( b  e.  ( 0 ... (
( 2  x.  A
)  -  1 ) )  /\  ( 2  x.  A )  ||  ( b  -  N
) ) )  -> 
b  e.  RR )
11 nnre 10481 . . . 4  |-  ( A  e.  NN  ->  A  e.  RR )
1211ad2antrr 723 . . 3  |-  ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  ( b  e.  ( 0 ... (
( 2  x.  A
)  -  1 ) )  /\  ( 2  x.  A )  ||  ( b  -  N
) ) )  ->  A  e.  RR )
13 elfzle1 11632 . . . . . . 7  |-  ( b  e.  ( 0 ... ( ( 2  x.  A )  -  1 ) )  ->  0  <_  b )
1413ad2antrl 725 . . . . . 6  |-  ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  ( b  e.  ( 0 ... (
( 2  x.  A
)  -  1 ) )  /\  ( 2  x.  A )  ||  ( b  -  N
) ) )  -> 
0  <_  b )
1514anim1i 566 . . . . 5  |-  ( ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  (
b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  ( 2  x.  A
)  ||  ( b  -  N ) ) )  /\  b  <_  A
)  ->  ( 0  <_  b  /\  b  <_  A ) )
168ad2antrl 725 . . . . . . 7  |-  ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  ( b  e.  ( 0 ... (
( 2  x.  A
)  -  1 ) )  /\  ( 2  x.  A )  ||  ( b  -  N
) ) )  -> 
b  e.  ZZ )
17 0zd 10815 . . . . . . 7  |-  ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  ( b  e.  ( 0 ... (
( 2  x.  A
)  -  1 ) )  /\  ( 2  x.  A )  ||  ( b  -  N
) ) )  -> 
0  e.  ZZ )
18 nnz 10825 . . . . . . . 8  |-  ( A  e.  NN  ->  A  e.  ZZ )
1918ad2antrr 723 . . . . . . 7  |-  ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  ( b  e.  ( 0 ... (
( 2  x.  A
)  -  1 ) )  /\  ( 2  x.  A )  ||  ( b  -  N
) ) )  ->  A  e.  ZZ )
20 elfz 11621 . . . . . . 7  |-  ( ( b  e.  ZZ  /\  0  e.  ZZ  /\  A  e.  ZZ )  ->  (
b  e.  ( 0 ... A )  <->  ( 0  <_  b  /\  b  <_  A ) ) )
2116, 17, 19, 20syl3anc 1226 . . . . . 6  |-  ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  ( b  e.  ( 0 ... (
( 2  x.  A
)  -  1 ) )  /\  ( 2  x.  A )  ||  ( b  -  N
) ) )  -> 
( b  e.  ( 0 ... A )  <-> 
( 0  <_  b  /\  b  <_  A ) ) )
2221adantr 463 . . . . 5  |-  ( ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  (
b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  ( 2  x.  A
)  ||  ( b  -  N ) ) )  /\  b  <_  A
)  ->  ( b  e.  ( 0 ... A
)  <->  ( 0  <_ 
b  /\  b  <_  A ) ) )
2315, 22mpbird 232 . . . 4  |-  ( ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  (
b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  ( 2  x.  A
)  ||  ( b  -  N ) ) )  /\  b  <_  A
)  ->  b  e.  ( 0 ... A
) )
24 simplrr 760 . . . . 5  |-  ( ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  (
b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  ( 2  x.  A
)  ||  ( b  -  N ) ) )  /\  b  <_  A
)  ->  ( 2  x.  A )  ||  ( b  -  N
) )
2524orcd 390 . . . 4  |-  ( ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  (
b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  ( 2  x.  A
)  ||  ( b  -  N ) ) )  /\  b  <_  A
)  ->  ( (
2  x.  A ) 
||  ( b  -  N )  \/  (
2  x.  A ) 
||  ( b  -  -u N ) ) )
26 id 22 . . . . . 6  |-  ( a  =  b  ->  a  =  b )
27 eqidd 2397 . . . . . 6  |-  ( a  =  b  ->  N  =  N )
2826, 27acongeq12d 31122 . . . . 5  |-  ( a  =  b  ->  (
( ( 2  x.  A )  ||  (
a  -  N )  \/  ( 2  x.  A )  ||  (
a  -  -u N
) )  <->  ( (
2  x.  A ) 
||  ( b  -  N )  \/  (
2  x.  A ) 
||  ( b  -  -u N ) ) ) )
2928rspcev 3152 . . . 4  |-  ( ( b  e.  ( 0 ... A )  /\  ( ( 2  x.  A )  ||  (
b  -  N )  \/  ( 2  x.  A )  ||  (
b  -  -u N
) ) )  ->  E. a  e.  (
0 ... A ) ( ( 2  x.  A
)  ||  ( a  -  N )  \/  (
2  x.  A ) 
||  ( a  -  -u N ) ) )
3023, 25, 29syl2anc 659 . . 3  |-  ( ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  (
b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  ( 2  x.  A
)  ||  ( b  -  N ) ) )  /\  b  <_  A
)  ->  E. a  e.  ( 0 ... A
) ( ( 2  x.  A )  ||  ( a  -  N
)  \/  ( 2  x.  A )  ||  ( a  -  -u N
) ) )
31 simplll 757 . . . . . 6  |-  ( ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  (
b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  ( 2  x.  A
)  ||  ( b  -  N ) ) )  /\  A  <_  b
)  ->  A  e.  NN )
32 simplrl 759 . . . . . 6  |-  ( ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  (
b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  ( 2  x.  A
)  ||  ( b  -  N ) ) )  /\  A  <_  b
)  ->  b  e.  ( 0 ... (
( 2  x.  A
)  -  1 ) ) )
33 simpr 459 . . . . . 6  |-  ( ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  (
b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  ( 2  x.  A
)  ||  ( b  -  N ) ) )  /\  A  <_  b
)  ->  A  <_  b )
3493ad2ant2 1016 . . . . . . . . 9  |-  ( ( A  e.  NN  /\  b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  A  <_  b )  -> 
b  e.  RR )
35 2re 10544 . . . . . . . . . . 11  |-  2  e.  RR
36 remulcl 9510 . . . . . . . . . . 11  |-  ( ( 2  e.  RR  /\  A  e.  RR )  ->  ( 2  x.  A
)  e.  RR )
3735, 11, 36sylancr 661 . . . . . . . . . 10  |-  ( A  e.  NN  ->  (
2  x.  A )  e.  RR )
38373ad2ant1 1015 . . . . . . . . 9  |-  ( ( A  e.  NN  /\  b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  A  <_  b )  -> 
( 2  x.  A
)  e.  RR )
39 0zd 10815 . . . . . . . . . . 11  |-  ( ( A  e.  NN  /\  b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  A  <_  b )  -> 
0  e.  ZZ )
40 2z 10835 . . . . . . . . . . . . 13  |-  2  e.  ZZ
41 zmulcl 10851 . . . . . . . . . . . . 13  |-  ( ( 2  e.  ZZ  /\  A  e.  ZZ )  ->  ( 2  x.  A
)  e.  ZZ )
4240, 18, 41sylancr 661 . . . . . . . . . . . 12  |-  ( A  e.  NN  ->  (
2  x.  A )  e.  ZZ )
43423ad2ant1 1015 . . . . . . . . . . 11  |-  ( ( A  e.  NN  /\  b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  A  <_  b )  -> 
( 2  x.  A
)  e.  ZZ )
44 simp2 995 . . . . . . . . . . 11  |-  ( ( A  e.  NN  /\  b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  A  <_  b )  -> 
b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) ) )
45 elfzm11 11693 . . . . . . . . . . . 12  |-  ( ( 0  e.  ZZ  /\  ( 2  x.  A
)  e.  ZZ )  ->  ( b  e.  ( 0 ... (
( 2  x.  A
)  -  1 ) )  <->  ( b  e.  ZZ  /\  0  <_ 
b  /\  b  <  ( 2  x.  A ) ) ) )
4645biimpa 482 . . . . . . . . . . 11  |-  ( ( ( 0  e.  ZZ  /\  ( 2  x.  A
)  e.  ZZ )  /\  b  e.  ( 0 ... ( ( 2  x.  A )  -  1 ) ) )  ->  ( b  e.  ZZ  /\  0  <_ 
b  /\  b  <  ( 2  x.  A ) ) )
4739, 43, 44, 46syl21anc 1225 . . . . . . . . . 10  |-  ( ( A  e.  NN  /\  b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  A  <_  b )  -> 
( b  e.  ZZ  /\  0  <_  b  /\  b  <  ( 2  x.  A ) ) )
4847simp3d 1008 . . . . . . . . 9  |-  ( ( A  e.  NN  /\  b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  A  <_  b )  -> 
b  <  ( 2  x.  A ) )
4934, 38, 48ltled 9666 . . . . . . . 8  |-  ( ( A  e.  NN  /\  b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  A  <_  b )  -> 
b  <_  ( 2  x.  A ) )
5038, 34subge0d 10081 . . . . . . . 8  |-  ( ( A  e.  NN  /\  b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  A  <_  b )  -> 
( 0  <_  (
( 2  x.  A
)  -  b )  <-> 
b  <_  ( 2  x.  A ) ) )
5149, 50mpbird 232 . . . . . . 7  |-  ( ( A  e.  NN  /\  b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  A  <_  b )  -> 
0  <_  ( (
2  x.  A )  -  b ) )
52113ad2ant1 1015 . . . . . . . 8  |-  ( ( A  e.  NN  /\  b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  A  <_  b )  ->  A  e.  RR )
53 nncn 10482 . . . . . . . . . . 11  |-  ( A  e.  NN  ->  A  e.  CC )
54 2times 10593 . . . . . . . . . . . . 13  |-  ( A  e.  CC  ->  (
2  x.  A )  =  ( A  +  A ) )
5554oveq1d 6233 . . . . . . . . . . . 12  |-  ( A  e.  CC  ->  (
( 2  x.  A
)  -  A )  =  ( ( A  +  A )  -  A ) )
56 pncan2 9762 . . . . . . . . . . . . 13  |-  ( ( A  e.  CC  /\  A  e.  CC )  ->  ( ( A  +  A )  -  A
)  =  A )
5756anidms 643 . . . . . . . . . . . 12  |-  ( A  e.  CC  ->  (
( A  +  A
)  -  A )  =  A )
5855, 57eqtrd 2437 . . . . . . . . . . 11  |-  ( A  e.  CC  ->  (
( 2  x.  A
)  -  A )  =  A )
5953, 58syl 16 . . . . . . . . . 10  |-  ( A  e.  NN  ->  (
( 2  x.  A
)  -  A )  =  A )
60593ad2ant1 1015 . . . . . . . . 9  |-  ( ( A  e.  NN  /\  b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  A  <_  b )  -> 
( ( 2  x.  A )  -  A
)  =  A )
61 simp3 996 . . . . . . . . 9  |-  ( ( A  e.  NN  /\  b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  A  <_  b )  ->  A  <_  b )
6260, 61eqbrtrd 4404 . . . . . . . 8  |-  ( ( A  e.  NN  /\  b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  A  <_  b )  -> 
( ( 2  x.  A )  -  A
)  <_  b )
6338, 52, 34, 62subled 10094 . . . . . . 7  |-  ( ( A  e.  NN  /\  b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  A  <_  b )  -> 
( ( 2  x.  A )  -  b
)  <_  A )
6451, 63jca 530 . . . . . 6  |-  ( ( A  e.  NN  /\  b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  A  <_  b )  -> 
( 0  <_  (
( 2  x.  A
)  -  b )  /\  ( ( 2  x.  A )  -  b )  <_  A
) )
6531, 32, 33, 64syl3anc 1226 . . . . 5  |-  ( ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  (
b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  ( 2  x.  A
)  ||  ( b  -  N ) ) )  /\  A  <_  b
)  ->  ( 0  <_  ( ( 2  x.  A )  -  b )  /\  (
( 2  x.  A
)  -  b )  <_  A ) )
6640, 19, 41sylancr 661 . . . . . . . 8  |-  ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  ( b  e.  ( 0 ... (
( 2  x.  A
)  -  1 ) )  /\  ( 2  x.  A )  ||  ( b  -  N
) ) )  -> 
( 2  x.  A
)  e.  ZZ )
6766, 16zsubcld 10911 . . . . . . 7  |-  ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  ( b  e.  ( 0 ... (
( 2  x.  A
)  -  1 ) )  /\  ( 2  x.  A )  ||  ( b  -  N
) ) )  -> 
( ( 2  x.  A )  -  b
)  e.  ZZ )
68 elfz 11621 . . . . . . 7  |-  ( ( ( ( 2  x.  A )  -  b
)  e.  ZZ  /\  0  e.  ZZ  /\  A  e.  ZZ )  ->  (
( ( 2  x.  A )  -  b
)  e.  ( 0 ... A )  <->  ( 0  <_  ( ( 2  x.  A )  -  b )  /\  (
( 2  x.  A
)  -  b )  <_  A ) ) )
6967, 17, 19, 68syl3anc 1226 . . . . . 6  |-  ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  ( b  e.  ( 0 ... (
( 2  x.  A
)  -  1 ) )  /\  ( 2  x.  A )  ||  ( b  -  N
) ) )  -> 
( ( ( 2  x.  A )  -  b )  e.  ( 0 ... A )  <-> 
( 0  <_  (
( 2  x.  A
)  -  b )  /\  ( ( 2  x.  A )  -  b )  <_  A
) ) )
7069adantr 463 . . . . 5  |-  ( ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  (
b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  ( 2  x.  A
)  ||  ( b  -  N ) ) )  /\  A  <_  b
)  ->  ( (
( 2  x.  A
)  -  b )  e.  ( 0 ... A )  <->  ( 0  <_  ( ( 2  x.  A )  -  b )  /\  (
( 2  x.  A
)  -  b )  <_  A ) ) )
7165, 70mpbird 232 . . . 4  |-  ( ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  (
b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  ( 2  x.  A
)  ||  ( b  -  N ) ) )  /\  A  <_  b
)  ->  ( (
2  x.  A )  -  b )  e.  ( 0 ... A
) )
72 simplr 753 . . . . . . . . 9  |-  ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  ( b  e.  ( 0 ... (
( 2  x.  A
)  -  1 ) )  /\  ( 2  x.  A )  ||  ( b  -  N
) ) )  ->  N  e.  ZZ )
73 simprr 755 . . . . . . . . 9  |-  ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  ( b  e.  ( 0 ... (
( 2  x.  A
)  -  1 ) )  /\  ( 2  x.  A )  ||  ( b  -  N
) ) )  -> 
( 2  x.  A
)  ||  ( b  -  N ) )
74 congsym 31111 . . . . . . . . 9  |-  ( ( ( ( 2  x.  A )  e.  ZZ  /\  b  e.  ZZ )  /\  ( N  e.  ZZ  /\  ( 2  x.  A )  ||  ( b  -  N
) ) )  -> 
( 2  x.  A
)  ||  ( N  -  b ) )
7566, 16, 72, 73, 74syl22anc 1227 . . . . . . . 8  |-  ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  ( b  e.  ( 0 ... (
( 2  x.  A
)  -  1 ) )  /\  ( 2  x.  A )  ||  ( b  -  N
) ) )  -> 
( 2  x.  A
)  ||  ( N  -  b ) )
7672, 16zsubcld 10911 . . . . . . . . 9  |-  ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  ( b  e.  ( 0 ... (
( 2  x.  A
)  -  1 ) )  /\  ( 2  x.  A )  ||  ( b  -  N
) ) )  -> 
( N  -  b
)  e.  ZZ )
77 dvdsadd 14049 . . . . . . . . 9  |-  ( ( ( 2  x.  A
)  e.  ZZ  /\  ( N  -  b
)  e.  ZZ )  ->  ( ( 2  x.  A )  ||  ( N  -  b
)  <->  ( 2  x.  A )  ||  (
( 2  x.  A
)  +  ( N  -  b ) ) ) )
7866, 76, 77syl2anc 659 . . . . . . . 8  |-  ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  ( b  e.  ( 0 ... (
( 2  x.  A
)  -  1 ) )  /\  ( 2  x.  A )  ||  ( b  -  N
) ) )  -> 
( ( 2  x.  A )  ||  ( N  -  b )  <->  ( 2  x.  A ) 
||  ( ( 2  x.  A )  +  ( N  -  b
) ) ) )
7975, 78mpbid 210 . . . . . . 7  |-  ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  ( b  e.  ( 0 ... (
( 2  x.  A
)  -  1 ) )  /\  ( 2  x.  A )  ||  ( b  -  N
) ) )  -> 
( 2  x.  A
)  ||  ( (
2  x.  A )  +  ( N  -  b ) ) )
8067zcnd 10907 . . . . . . . . 9  |-  ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  ( b  e.  ( 0 ... (
( 2  x.  A
)  -  1 ) )  /\  ( 2  x.  A )  ||  ( b  -  N
) ) )  -> 
( ( 2  x.  A )  -  b
)  e.  CC )
81 zcn 10808 . . . . . . . . . 10  |-  ( N  e.  ZZ  ->  N  e.  CC )
8281ad2antlr 724 . . . . . . . . 9  |-  ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  ( b  e.  ( 0 ... (
( 2  x.  A
)  -  1 ) )  /\  ( 2  x.  A )  ||  ( b  -  N
) ) )  ->  N  e.  CC )
8380, 82subnegd 9873 . . . . . . . 8  |-  ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  ( b  e.  ( 0 ... (
( 2  x.  A
)  -  1 ) )  /\  ( 2  x.  A )  ||  ( b  -  N
) ) )  -> 
( ( ( 2  x.  A )  -  b )  -  -u N
)  =  ( ( ( 2  x.  A
)  -  b )  +  N ) )
8466zcnd 10907 . . . . . . . . 9  |-  ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  ( b  e.  ( 0 ... (
( 2  x.  A
)  -  1 ) )  /\  ( 2  x.  A )  ||  ( b  -  N
) ) )  -> 
( 2  x.  A
)  e.  CC )
8510recnd 9555 . . . . . . . . 9  |-  ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  ( b  e.  ( 0 ... (
( 2  x.  A
)  -  1 ) )  /\  ( 2  x.  A )  ||  ( b  -  N
) ) )  -> 
b  e.  CC )
8684, 85, 82subadd23d 9888 . . . . . . . 8  |-  ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  ( b  e.  ( 0 ... (
( 2  x.  A
)  -  1 ) )  /\  ( 2  x.  A )  ||  ( b  -  N
) ) )  -> 
( ( ( 2  x.  A )  -  b )  +  N
)  =  ( ( 2  x.  A )  +  ( N  -  b ) ) )
8783, 86eqtrd 2437 . . . . . . 7  |-  ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  ( b  e.  ( 0 ... (
( 2  x.  A
)  -  1 ) )  /\  ( 2  x.  A )  ||  ( b  -  N
) ) )  -> 
( ( ( 2  x.  A )  -  b )  -  -u N
)  =  ( ( 2  x.  A )  +  ( N  -  b ) ) )
8879, 87breqtrrd 4410 . . . . . 6  |-  ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  ( b  e.  ( 0 ... (
( 2  x.  A
)  -  1 ) )  /\  ( 2  x.  A )  ||  ( b  -  N
) ) )  -> 
( 2  x.  A
)  ||  ( (
( 2  x.  A
)  -  b )  -  -u N ) )
8988adantr 463 . . . . 5  |-  ( ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  (
b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  ( 2  x.  A
)  ||  ( b  -  N ) ) )  /\  A  <_  b
)  ->  ( 2  x.  A )  ||  ( ( ( 2  x.  A )  -  b )  -  -u N
) )
9089olcd 391 . . . 4  |-  ( ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  (
b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  ( 2  x.  A
)  ||  ( b  -  N ) ) )  /\  A  <_  b
)  ->  ( (
2  x.  A ) 
||  ( ( ( 2  x.  A )  -  b )  -  N )  \/  (
2  x.  A ) 
||  ( ( ( 2  x.  A )  -  b )  -  -u N ) ) )
91 id 22 . . . . . 6  |-  ( a  =  ( ( 2  x.  A )  -  b )  ->  a  =  ( ( 2  x.  A )  -  b ) )
92 eqidd 2397 . . . . . 6  |-  ( a  =  ( ( 2  x.  A )  -  b )  ->  N  =  N )
9391, 92acongeq12d 31122 . . . . 5  |-  ( a  =  ( ( 2  x.  A )  -  b )  ->  (
( ( 2  x.  A )  ||  (
a  -  N )  \/  ( 2  x.  A )  ||  (
a  -  -u N
) )  <->  ( (
2  x.  A ) 
||  ( ( ( 2  x.  A )  -  b )  -  N )  \/  (
2  x.  A ) 
||  ( ( ( 2  x.  A )  -  b )  -  -u N ) ) ) )
9493rspcev 3152 . . . 4  |-  ( ( ( ( 2  x.  A )  -  b
)  e.  ( 0 ... A )  /\  ( ( 2  x.  A )  ||  (
( ( 2  x.  A )  -  b
)  -  N )  \/  ( 2  x.  A )  ||  (
( ( 2  x.  A )  -  b
)  -  -u N
) ) )  ->  E. a  e.  (
0 ... A ) ( ( 2  x.  A
)  ||  ( a  -  N )  \/  (
2  x.  A ) 
||  ( a  -  -u N ) ) )
9571, 90, 94syl2anc 659 . . 3  |-  ( ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  (
b  e.  ( 0 ... ( ( 2  x.  A )  - 
1 ) )  /\  ( 2  x.  A
)  ||  ( b  -  N ) ) )  /\  A  <_  b
)  ->  E. a  e.  ( 0 ... A
) ( ( 2  x.  A )  ||  ( a  -  N
)  \/  ( 2  x.  A )  ||  ( a  -  -u N
) ) )
9610, 12, 30, 95lecasei 9623 . 2  |-  ( ( ( A  e.  NN  /\  N  e.  ZZ )  /\  ( b  e.  ( 0 ... (
( 2  x.  A
)  -  1 ) )  /\  ( 2  x.  A )  ||  ( b  -  N
) ) )  ->  E. a  e.  (
0 ... A ) ( ( 2  x.  A
)  ||  ( a  -  N )  \/  (
2  x.  A ) 
||  ( a  -  -u N ) ) )
977, 96rexlimddv 2892 1  |-  ( ( A  e.  NN  /\  N  e.  ZZ )  ->  E. a  e.  ( 0 ... A ) ( ( 2  x.  A )  ||  (
a  -  N )  \/  ( 2  x.  A )  ||  (
a  -  -u N
) ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 184    \/ wo 366    /\ wa 367    /\ w3a 971    = wceq 1399    e. wcel 1836   E.wrex 2747   class class class wbr 4384  (class class class)co 6218   CCcc 9423   RRcr 9424   0cc0 9425   1c1 9426    + caddc 9428    x. cmul 9430    < clt 9561    <_ cle 9562    - cmin 9740   -ucneg 9741   NNcn 10474   2c2 10524   ZZcz 10803   ...cfz 11615    || cdvds 14011
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1633  ax-4 1646  ax-5 1719  ax-6 1765  ax-7 1808  ax-8 1838  ax-9 1840  ax-10 1855  ax-11 1860  ax-12 1872  ax-13 2020  ax-ext 2374  ax-sep 4505  ax-nul 4513  ax-pow 4560  ax-pr 4618  ax-un 6513  ax-cnex 9481  ax-resscn 9482  ax-1cn 9483  ax-icn 9484  ax-addcl 9485  ax-addrcl 9486  ax-mulcl 9487  ax-mulrcl 9488  ax-mulcom 9489  ax-addass 9490  ax-mulass 9491  ax-distr 9492  ax-i2m1 9493  ax-1ne0 9494  ax-1rid 9495  ax-rnegex 9496  ax-rrecex 9497  ax-cnre 9498  ax-pre-lttri 9499  ax-pre-lttrn 9500  ax-pre-ltadd 9501  ax-pre-mulgt0 9502  ax-pre-sup 9503
This theorem depends on definitions:  df-bi 185  df-or 368  df-an 369  df-3or 972  df-3an 973  df-tru 1402  df-ex 1628  df-nf 1632  df-sb 1758  df-eu 2236  df-mo 2237  df-clab 2382  df-cleq 2388  df-clel 2391  df-nfc 2546  df-ne 2593  df-nel 2594  df-ral 2751  df-rex 2752  df-reu 2753  df-rmo 2754  df-rab 2755  df-v 3053  df-sbc 3270  df-csb 3366  df-dif 3409  df-un 3411  df-in 3413  df-ss 3420  df-pss 3422  df-nul 3729  df-if 3875  df-pw 3946  df-sn 3962  df-pr 3964  df-tp 3966  df-op 3968  df-uni 4181  df-iun 4262  df-br 4385  df-opab 4443  df-mpt 4444  df-tr 4478  df-eprel 4722  df-id 4726  df-po 4731  df-so 4732  df-fr 4769  df-we 4771  df-ord 4812  df-on 4813  df-lim 4814  df-suc 4815  df-xp 4936  df-rel 4937  df-cnv 4938  df-co 4939  df-dm 4940  df-rn 4941  df-res 4942  df-ima 4943  df-iota 5477  df-fun 5515  df-fn 5516  df-f 5517  df-f1 5518  df-fo 5519  df-f1o 5520  df-fv 5521  df-riota 6180  df-ov 6221  df-oprab 6222  df-mpt2 6223  df-om 6622  df-1st 6721  df-2nd 6722  df-recs 6982  df-rdg 7016  df-er 7251  df-en 7458  df-dom 7459  df-sdom 7460  df-sup 7838  df-pnf 9563  df-mnf 9564  df-xr 9565  df-ltxr 9566  df-le 9567  df-sub 9742  df-neg 9743  df-div 10146  df-nn 10475  df-2 10533  df-n0 10735  df-z 10804  df-uz 11024  df-rp 11162  df-fz 11616  df-fl 11851  df-mod 11920  df-dvds 14012
This theorem is referenced by:  jm2.26  31150
  Copyright terms: Public domain W3C validator