Users' Mathboxes Mathbox for Thierry Arnoux < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  eulerpartlemt0 Structured version   Unicode version

Theorem eulerpartlemt0 28133
Description: Lemma for eulerpart 28146 (Contributed by Thierry Arnoux, 19-Sep-2017.)
Hypotheses
Ref Expression
eulerpart.p  |-  P  =  { f  e.  ( NN0  ^m  NN )  |  ( ( `' f " NN )  e.  Fin  /\  sum_ k  e.  NN  (
( f `  k
)  x.  k )  =  N ) }
eulerpart.o  |-  O  =  { g  e.  P  |  A. n  e.  ( `' g " NN )  -.  2  ||  n }
eulerpart.d  |-  D  =  { g  e.  P  |  A. n  e.  NN  ( g `  n
)  <_  1 }
eulerpart.j  |-  J  =  { z  e.  NN  |  -.  2  ||  z }
eulerpart.f  |-  F  =  ( x  e.  J ,  y  e.  NN0  |->  ( ( 2 ^ y )  x.  x
) )
eulerpart.h  |-  H  =  { r  e.  ( ( ~P NN0  i^i  Fin )  ^m  J )  |  ( r supp  (/) )  e. 
Fin }
eulerpart.m  |-  M  =  ( r  e.  H  |->  { <. x ,  y
>.  |  ( x  e.  J  /\  y  e.  ( r `  x
) ) } )
eulerpart.r  |-  R  =  { f  |  ( `' f " NN )  e.  Fin }
eulerpart.t  |-  T  =  { f  e.  ( NN0  ^m  NN )  |  ( `' f
" NN )  C_  J }
Assertion
Ref Expression
eulerpartlemt0  |-  ( A  e.  ( T  i^i  R )  <->  ( A  e.  ( NN0  ^m  NN )  /\  ( `' A " NN )  e.  Fin  /\  ( `' A " NN )  C_  J ) )
Distinct variable groups:    A, f    f, J
Allowed substitution hints:    A( x, y, z, g, k, n, r)    D( x, y, z, f, g, k, n, r)    P( x, y, z, f, g, k, n, r)    R( x, y, z, f, g, k, n, r)    T( x, y, z, f, g, k, n, r)    F( x, y, z, f, g, k, n, r)    H( x, y, z, f, g, k, n, r)    J( x, y, z, g, k, n, r)    M( x, y, z, f, g, k, n, r)    N( x, y, z, f, g, k, n, r)    O( x, y, z, f, g, k, n, r)

Proof of Theorem eulerpartlemt0
StepHypRef Expression
1 cnveq 5182 . . . . . 6  |-  ( f  =  A  ->  `' f  =  `' A
)
21imaeq1d 5342 . . . . 5  |-  ( f  =  A  ->  ( `' f " NN )  =  ( `' A " NN ) )
32sseq1d 3536 . . . 4  |-  ( f  =  A  ->  (
( `' f " NN )  C_  J  <->  ( `' A " NN )  C_  J ) )
4 eulerpart.t . . . 4  |-  T  =  { f  e.  ( NN0  ^m  NN )  |  ( `' f
" NN )  C_  J }
53, 4elrab2 3268 . . 3  |-  ( A  e.  T  <->  ( A  e.  ( NN0  ^m  NN )  /\  ( `' A " NN )  C_  J
) )
62eleq1d 2536 . . . 4  |-  ( f  =  A  ->  (
( `' f " NN )  e.  Fin  <->  ( `' A " NN )  e.  Fin ) )
7 eulerpart.r . . . 4  |-  R  =  { f  |  ( `' f " NN )  e.  Fin }
86, 7elab4g 3259 . . 3  |-  ( A  e.  R  <->  ( A  e.  _V  /\  ( `' A " NN )  e.  Fin ) )
95, 8anbi12i 697 . 2  |-  ( ( A  e.  T  /\  A  e.  R )  <->  ( ( A  e.  ( NN0  ^m  NN )  /\  ( `' A " NN )  C_  J
)  /\  ( A  e.  _V  /\  ( `' A " NN )  e.  Fin ) ) )
10 elin 3692 . 2  |-  ( A  e.  ( T  i^i  R )  <->  ( A  e.  T  /\  A  e.  R ) )
11 elex 3127 . . . . 5  |-  ( A  e.  ( NN0  ^m  NN )  ->  A  e. 
_V )
1211pm4.71i 632 . . . 4  |-  ( A  e.  ( NN0  ^m  NN )  <->  ( A  e.  ( NN0  ^m  NN )  /\  A  e.  _V ) )
1312anbi1i 695 . . 3  |-  ( ( A  e.  ( NN0 
^m  NN )  /\  ( ( `' A " NN )  e.  Fin  /\  ( `' A " NN )  C_  J ) )  <->  ( ( A  e.  ( NN0  ^m  NN )  /\  A  e. 
_V )  /\  (
( `' A " NN )  e.  Fin  /\  ( `' A " NN )  C_  J ) ) )
14 3anass 977 . . 3  |-  ( ( A  e.  ( NN0 
^m  NN )  /\  ( `' A " NN )  e.  Fin  /\  ( `' A " NN ) 
C_  J )  <->  ( A  e.  ( NN0  ^m  NN )  /\  ( ( `' A " NN )  e.  Fin  /\  ( `' A " NN ) 
C_  J ) ) )
15 an42 823 . . 3  |-  ( ( ( A  e.  ( NN0  ^m  NN )  /\  ( `' A " NN )  C_  J
)  /\  ( A  e.  _V  /\  ( `' A " NN )  e.  Fin ) )  <-> 
( ( A  e.  ( NN0  ^m  NN )  /\  A  e.  _V )  /\  ( ( `' A " NN )  e.  Fin  /\  ( `' A " NN ) 
C_  J ) ) )
1613, 14, 153bitr4i 277 . 2  |-  ( ( A  e.  ( NN0 
^m  NN )  /\  ( `' A " NN )  e.  Fin  /\  ( `' A " NN ) 
C_  J )  <->  ( ( A  e.  ( NN0  ^m  NN )  /\  ( `' A " NN ) 
C_  J )  /\  ( A  e.  _V  /\  ( `' A " NN )  e.  Fin ) ) )
179, 10, 163bitr4i 277 1  |-  ( A  e.  ( T  i^i  R )  <->  ( A  e.  ( NN0  ^m  NN )  /\  ( `' A " NN )  e.  Fin  /\  ( `' A " NN )  C_  J ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    <-> wb 184    /\ wa 369    /\ w3a 973    = wceq 1379    e. wcel 1767   {cab 2452   A.wral 2817   {crab 2821   _Vcvv 3118    i^i cin 3480    C_ wss 3481   (/)c0 3790   ~Pcpw 4016   class class class wbr 4453   {copab 4510    |-> cmpt 4511   `'ccnv 5004   "cima 5008   ` cfv 5594  (class class class)co 6295    |-> cmpt2 6297   supp csupp 6913    ^m cmap 7432   Fincfn 7528   1c1 9505    x. cmul 9509    <_ cle 9641   NNcn 10548   2c2 10597   NN0cn0 10807   ^cexp 12146   sum_csu 13488    || cdivides 13864
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1601  ax-4 1612  ax-5 1680  ax-6 1719  ax-7 1739  ax-10 1786  ax-11 1791  ax-12 1803  ax-13 1968  ax-ext 2445
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3an 975  df-tru 1382  df-ex 1597  df-nf 1600  df-sb 1712  df-clab 2453  df-cleq 2459  df-clel 2462  df-nfc 2617  df-rab 2826  df-v 3120  df-dif 3484  df-un 3486  df-in 3488  df-ss 3495  df-nul 3791  df-if 3946  df-sn 4034  df-pr 4036  df-op 4040  df-br 4454  df-opab 4512  df-cnv 5013  df-dm 5015  df-rn 5016  df-res 5017  df-ima 5018
This theorem is referenced by:  eulerpartlemf  28134  eulerpartlemt  28135  eulerpartlemmf  28139  eulerpartlemgvv  28140  eulerpartlemgu  28141  eulerpartlemgh  28142  eulerpartlemgs2  28144  eulerpartlemn  28145
  Copyright terms: Public domain W3C validator