Metamath Proof Explorer


Theorem psdmul

Description: Product rule for power series. An outline is available at https://github.com/icecream17/Stuff/blob/main/math/psdmul.pdf . (Contributed by SN, 25-Apr-2025)

Ref Expression
Hypotheses psdmul.s
|- S = ( I mPwSer R )
psdmul.b
|- B = ( Base ` S )
psdmul.p
|- .+ = ( +g ` S )
psdmul.m
|- .x. = ( .r ` S )
psdmul.r
|- ( ph -> R e. CRing )
psdmul.x
|- ( ph -> X e. I )
psdmul.f
|- ( ph -> F e. B )
psdmul.g
|- ( ph -> G e. B )
Assertion psdmul
|- ( ph -> ( ( ( I mPSDer R ) ` X ) ` ( F .x. G ) ) = ( ( ( ( ( I mPSDer R ) ` X ) ` F ) .x. G ) .+ ( F .x. ( ( ( I mPSDer R ) ` X ) ` G ) ) ) )

Proof

Step Hyp Ref Expression
1 psdmul.s
 |-  S = ( I mPwSer R )
2 psdmul.b
 |-  B = ( Base ` S )
3 psdmul.p
 |-  .+ = ( +g ` S )
4 psdmul.m
 |-  .x. = ( .r ` S )
5 psdmul.r
 |-  ( ph -> R e. CRing )
6 psdmul.x
 |-  ( ph -> X e. I )
7 psdmul.f
 |-  ( ph -> F e. B )
8 psdmul.g
 |-  ( ph -> G e. B )
9 eqid
 |-  ( Base ` R ) = ( Base ` R )
10 eqid
 |-  ( +g ` R ) = ( +g ` R )
11 5 crngringd
 |-  ( ph -> R e. Ring )
12 11 ringcmnd
 |-  ( ph -> R e. CMnd )
13 12 adantr
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> R e. CMnd )
14 simpr
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
15 reldmpsr
 |-  Rel dom mPwSer
16 1 2 15 strov2rcl
 |-  ( F e. B -> I e. _V )
17 7 16 syl
 |-  ( ph -> I e. _V )
18 eqid
 |-  { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } = { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin }
19 18 psrbagsn
 |-  ( I e. _V -> ( y e. I |-> if ( y = X , 1 , 0 ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
20 17 19 syl
 |-  ( ph -> ( y e. I |-> if ( y = X , 1 , 0 ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
21 20 adantr
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( y e. I |-> if ( y = X , 1 , 0 ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
22 18 psrbagaddcl
 |-  ( ( d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } /\ ( y e. I |-> if ( y = X , 1 , 0 ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
23 14 21 22 syl2anc
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
24 18 psrbaglefi
 |-  ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } -> { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } e. Fin )
25 23 24 syl
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } e. Fin )
26 eqid
 |-  ( .g ` R ) = ( .g ` R )
27 5 crnggrpd
 |-  ( ph -> R e. Grp )
28 27 grpmndd
 |-  ( ph -> R e. Mnd )
29 28 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } ) -> R e. Mnd )
30 18 psrbagf
 |-  ( d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } -> d : I --> NN0 )
31 30 adantl
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> d : I --> NN0 )
32 6 adantr
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> X e. I )
33 31 32 ffvelcdmd
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( d ` X ) e. NN0 )
34 peano2nn0
 |-  ( ( d ` X ) e. NN0 -> ( ( d ` X ) + 1 ) e. NN0 )
35 33 34 syl
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( d ` X ) + 1 ) e. NN0 )
36 35 adantr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } ) -> ( ( d ` X ) + 1 ) e. NN0 )
37 eqid
 |-  ( .r ` R ) = ( .r ` R )
38 11 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } ) -> R e. Ring )
39 1 9 18 2 7 psrelbas
 |-  ( ph -> F : { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } --> ( Base ` R ) )
40 39 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } ) -> F : { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } --> ( Base ` R ) )
41 elrabi
 |-  ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } -> u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
42 41 adantl
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } ) -> u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
43 40 42 ffvelcdmd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } ) -> ( F ` u ) e. ( Base ` R ) )
44 1 9 18 2 8 psrelbas
 |-  ( ph -> G : { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } --> ( Base ` R ) )
45 44 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } ) -> G : { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } --> ( Base ` R ) )
46 eqid
 |-  { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } = { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) }
47 18 46 psrbagconcl
 |-  ( ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } ) -> ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } )
48 23 47 sylan
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } ) -> ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } )
49 elrabi
 |-  ( ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } -> ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
50 48 49 syl
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } ) -> ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
51 45 50 ffvelcdmd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } ) -> ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) e. ( Base ` R ) )
52 9 37 38 43 51 ringcld
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } ) -> ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) e. ( Base ` R ) )
53 9 26 29 36 52 mulgnn0cld
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } ) -> ( ( ( d ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) e. ( Base ` R ) )
54 disjdifr
 |-  ( ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) i^i { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) = (/)
55 54 a1i
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) i^i { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) = (/) )
56 1nn0
 |-  1 e. NN0
57 0nn0
 |-  0 e. NN0
58 56 57 ifcli
 |-  if ( i = X , 1 , 0 ) e. NN0
59 58 nn0ge0i
 |-  0 <_ if ( i = X , 1 , 0 )
60 31 ffvelcdmda
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ i e. I ) -> ( d ` i ) e. NN0 )
61 60 nn0red
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ i e. I ) -> ( d ` i ) e. RR )
62 58 nn0rei
 |-  if ( i = X , 1 , 0 ) e. RR
63 62 a1i
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ i e. I ) -> if ( i = X , 1 , 0 ) e. RR )
64 61 63 addge01d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ i e. I ) -> ( 0 <_ if ( i = X , 1 , 0 ) <-> ( d ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) ) )
65 59 64 mpbii
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ i e. I ) -> ( d ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) )
66 65 ralrimiva
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> A. i e. I ( d ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) )
67 31 ffnd
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> d Fn I )
68 56 57 ifcli
 |-  if ( y = X , 1 , 0 ) e. NN0
69 68 elexi
 |-  if ( y = X , 1 , 0 ) e. _V
70 eqid
 |-  ( y e. I |-> if ( y = X , 1 , 0 ) ) = ( y e. I |-> if ( y = X , 1 , 0 ) )
71 69 70 fnmpti
 |-  ( y e. I |-> if ( y = X , 1 , 0 ) ) Fn I
72 71 a1i
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( y e. I |-> if ( y = X , 1 , 0 ) ) Fn I )
73 17 adantr
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> I e. _V )
74 inidm
 |-  ( I i^i I ) = I
75 67 72 73 73 74 offn
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) Fn I )
76 eqidd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ i e. I ) -> ( d ` i ) = ( d ` i ) )
77 eqeq1
 |-  ( y = i -> ( y = X <-> i = X ) )
78 77 ifbid
 |-  ( y = i -> if ( y = X , 1 , 0 ) = if ( i = X , 1 , 0 ) )
79 58 elexi
 |-  if ( i = X , 1 , 0 ) e. _V
80 78 70 79 fvmpt
 |-  ( i e. I -> ( ( y e. I |-> if ( y = X , 1 , 0 ) ) ` i ) = if ( i = X , 1 , 0 ) )
81 80 adantl
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ i e. I ) -> ( ( y e. I |-> if ( y = X , 1 , 0 ) ) ` i ) = if ( i = X , 1 , 0 ) )
82 67 72 73 73 74 76 81 ofval
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ i e. I ) -> ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` i ) = ( ( d ` i ) + if ( i = X , 1 , 0 ) ) )
83 67 75 73 73 74 76 82 ofrfval
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( d oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) <-> A. i e. I ( d ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) ) )
84 66 83 mpbird
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> d oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) )
85 84 adantr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> d oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) )
86 17 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> I e. _V )
87 18 psrbagf
 |-  ( k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } -> k : I --> NN0 )
88 87 adantl
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> k : I --> NN0 )
89 31 adantr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> d : I --> NN0 )
90 18 psrbagf
 |-  ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } -> ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) : I --> NN0 )
91 23 90 syl
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) : I --> NN0 )
92 91 adantr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) : I --> NN0 )
93 nn0re
 |-  ( q e. NN0 -> q e. RR )
94 nn0re
 |-  ( r e. NN0 -> r e. RR )
95 nn0re
 |-  ( s e. NN0 -> s e. RR )
96 letr
 |-  ( ( q e. RR /\ r e. RR /\ s e. RR ) -> ( ( q <_ r /\ r <_ s ) -> q <_ s ) )
97 93 94 95 96 syl3an
 |-  ( ( q e. NN0 /\ r e. NN0 /\ s e. NN0 ) -> ( ( q <_ r /\ r <_ s ) -> q <_ s ) )
98 97 adantl
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( q e. NN0 /\ r e. NN0 /\ s e. NN0 ) ) -> ( ( q <_ r /\ r <_ s ) -> q <_ s ) )
99 86 88 89 92 98 caoftrn
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( k oR <_ d /\ d oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) -> k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) )
100 85 99 mpan2d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( k oR <_ d -> k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) )
101 100 ss2rabdv
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } C_ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } )
102 undifr
 |-  ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } C_ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } <-> ( ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) u. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) = { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } )
103 101 102 sylib
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) u. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) = { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } )
104 103 eqcomd
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } = ( ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) u. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) )
105 9 10 13 25 53 55 104 gsummptfidmsplit
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } |-> ( ( ( d ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) = ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) |-> ( ( ( d ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } |-> ( ( ( d ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) )
106 eqid
 |-  ( 0g ` R ) = ( 0g ` R )
107 ovex
 |-  ( NN0 ^m I ) e. _V
108 107 rabex
 |-  { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } e. _V
109 108 rabex
 |-  { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } e. _V
110 109 a1i
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } e. _V )
111 ovex
 |-  ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) e. _V
112 eqid
 |-  ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } |-> ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) = ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } |-> ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) )
113 111 112 fnmpti
 |-  ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } |-> ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) Fn { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) }
114 113 a1i
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } |-> ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) Fn { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } )
115 fvexd
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( 0g ` R ) e. _V )
116 114 25 115 fndmfifsupp
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } |-> ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) finSupp ( 0g ` R ) )
117 9 106 26 110 52 116 13 35 gsummulg
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } |-> ( ( ( d ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) = ( ( ( d ` X ) + 1 ) ( .g ` R ) ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } |-> ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) )
118 difrab
 |-  ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) = { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. k oR <_ d ) }
119 118 eleq2i
 |-  ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) <-> u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. k oR <_ d ) } )
120 breq1
 |-  ( k = u -> ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) <-> u oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) )
121 breq1
 |-  ( k = u -> ( k oR <_ d <-> u oR <_ d ) )
122 121 notbid
 |-  ( k = u -> ( -. k oR <_ d <-> -. u oR <_ d ) )
123 120 122 anbi12d
 |-  ( k = u -> ( ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. k oR <_ d ) <-> ( u oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. u oR <_ d ) ) )
124 123 elrab
 |-  ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. k oR <_ d ) } <-> ( u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } /\ ( u oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. u oR <_ d ) ) )
125 18 psrbagf
 |-  ( u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } -> u : I --> NN0 )
126 125 ffnd
 |-  ( u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } -> u Fn I )
127 126 adantl
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> u Fn I )
128 75 adantr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) Fn I )
129 17 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> I e. _V )
130 eqidd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ i e. I ) -> ( u ` i ) = ( u ` i ) )
131 67 adantr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> d Fn I )
132 68 a1i
 |-  ( y e. I -> if ( y = X , 1 , 0 ) e. NN0 )
133 70 132 fmpti
 |-  ( y e. I |-> if ( y = X , 1 , 0 ) ) : I --> NN0
134 133 a1i
 |-  ( ph -> ( y e. I |-> if ( y = X , 1 , 0 ) ) : I --> NN0 )
135 134 ffnd
 |-  ( ph -> ( y e. I |-> if ( y = X , 1 , 0 ) ) Fn I )
136 135 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( y e. I |-> if ( y = X , 1 , 0 ) ) Fn I )
137 eqidd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ i e. I ) -> ( d ` i ) = ( d ` i ) )
138 80 adantl
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ i e. I ) -> ( ( y e. I |-> if ( y = X , 1 , 0 ) ) ` i ) = if ( i = X , 1 , 0 ) )
139 131 136 129 129 74 137 138 ofval
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ i e. I ) -> ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` i ) = ( ( d ` i ) + if ( i = X , 1 , 0 ) ) )
140 127 128 129 129 74 130 139 ofrfval
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) <-> A. i e. I ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) ) )
141 127 131 129 129 74 130 137 ofrfval
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u oR <_ d <-> A. i e. I ( u ` i ) <_ ( d ` i ) ) )
142 141 notbid
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( -. u oR <_ d <-> -. A. i e. I ( u ` i ) <_ ( d ` i ) ) )
143 rexnal
 |-  ( E. i e. I -. ( u ` i ) <_ ( d ` i ) <-> -. A. i e. I ( u ` i ) <_ ( d ` i ) )
144 142 143 bitr4di
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( -. u oR <_ d <-> E. i e. I -. ( u ` i ) <_ ( d ` i ) ) )
145 140 144 anbi12d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( u oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. u oR <_ d ) <-> ( A. i e. I ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) /\ E. i e. I -. ( u ` i ) <_ ( d ` i ) ) ) )
146 33 ad2antrr
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( A. i e. I ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) /\ E. i e. I -. ( u ` i ) <_ ( d ` i ) ) ) -> ( d ` X ) e. NN0 )
147 125 adantl
 |-  ( ( ph /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> u : I --> NN0 )
148 6 adantr
 |-  ( ( ph /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> X e. I )
149 147 148 ffvelcdmd
 |-  ( ( ph /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u ` X ) e. NN0 )
150 149 adantlr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u ` X ) e. NN0 )
151 150 adantr
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( A. i e. I ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) /\ E. i e. I -. ( u ` i ) <_ ( d ` i ) ) ) -> ( u ` X ) e. NN0 )
152 nn0nlt0
 |-  ( ( d ` X ) e. NN0 -> -. ( d ` X ) < 0 )
153 146 152 syl
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( A. i e. I ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) /\ E. i e. I -. ( u ` i ) <_ ( d ` i ) ) ) -> -. ( d ` X ) < 0 )
154 31 adantr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> d : I --> NN0 )
155 154 ffvelcdmda
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ i e. I ) -> ( d ` i ) e. NN0 )
156 155 nn0cnd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ i e. I ) -> ( d ` i ) e. CC )
157 156 addridd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ i e. I ) -> ( ( d ` i ) + 0 ) = ( d ` i ) )
158 157 breq2d
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ i e. I ) -> ( ( u ` i ) <_ ( ( d ` i ) + 0 ) <-> ( u ` i ) <_ ( d ` i ) ) )
159 158 biimpd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ i e. I ) -> ( ( u ` i ) <_ ( ( d ` i ) + 0 ) -> ( u ` i ) <_ ( d ` i ) ) )
160 ifnefalse
 |-  ( i =/= X -> if ( i = X , 1 , 0 ) = 0 )
161 160 oveq2d
 |-  ( i =/= X -> ( ( d ` i ) + if ( i = X , 1 , 0 ) ) = ( ( d ` i ) + 0 ) )
162 161 breq2d
 |-  ( i =/= X -> ( ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) <-> ( u ` i ) <_ ( ( d ` i ) + 0 ) ) )
163 162 imbi1d
 |-  ( i =/= X -> ( ( ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) -> ( u ` i ) <_ ( d ` i ) ) <-> ( ( u ` i ) <_ ( ( d ` i ) + 0 ) -> ( u ` i ) <_ ( d ` i ) ) ) )
164 159 163 syl5ibrcom
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ i e. I ) -> ( i =/= X -> ( ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) -> ( u ` i ) <_ ( d ` i ) ) ) )
165 164 imp
 |-  ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ i e. I ) /\ i =/= X ) -> ( ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) -> ( u ` i ) <_ ( d ` i ) ) )
166 165 impancom
 |-  ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ i e. I ) /\ ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) ) -> ( i =/= X -> ( u ` i ) <_ ( d ` i ) ) )
167 166 necon1bd
 |-  ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ i e. I ) /\ ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) ) -> ( -. ( u ` i ) <_ ( d ` i ) -> i = X ) )
168 167 ancrd
 |-  ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ i e. I ) /\ ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) ) -> ( -. ( u ` i ) <_ ( d ` i ) -> ( i = X /\ -. ( u ` i ) <_ ( d ` i ) ) ) )
169 168 ex
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ i e. I ) -> ( ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) -> ( -. ( u ` i ) <_ ( d ` i ) -> ( i = X /\ -. ( u ` i ) <_ ( d ` i ) ) ) ) )
170 169 ralimdva
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( A. i e. I ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) -> A. i e. I ( -. ( u ` i ) <_ ( d ` i ) -> ( i = X /\ -. ( u ` i ) <_ ( d ` i ) ) ) ) )
171 170 anim1d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( A. i e. I ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) /\ E. i e. I -. ( u ` i ) <_ ( d ` i ) ) -> ( A. i e. I ( -. ( u ` i ) <_ ( d ` i ) -> ( i = X /\ -. ( u ` i ) <_ ( d ` i ) ) ) /\ E. i e. I -. ( u ` i ) <_ ( d ` i ) ) ) )
172 171 imp
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( A. i e. I ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) /\ E. i e. I -. ( u ` i ) <_ ( d ` i ) ) ) -> ( A. i e. I ( -. ( u ` i ) <_ ( d ` i ) -> ( i = X /\ -. ( u ` i ) <_ ( d ` i ) ) ) /\ E. i e. I -. ( u ` i ) <_ ( d ` i ) ) )
173 rexim
 |-  ( A. i e. I ( -. ( u ` i ) <_ ( d ` i ) -> ( i = X /\ -. ( u ` i ) <_ ( d ` i ) ) ) -> ( E. i e. I -. ( u ` i ) <_ ( d ` i ) -> E. i e. I ( i = X /\ -. ( u ` i ) <_ ( d ` i ) ) ) )
174 173 imp
 |-  ( ( A. i e. I ( -. ( u ` i ) <_ ( d ` i ) -> ( i = X /\ -. ( u ` i ) <_ ( d ` i ) ) ) /\ E. i e. I -. ( u ` i ) <_ ( d ` i ) ) -> E. i e. I ( i = X /\ -. ( u ` i ) <_ ( d ` i ) ) )
175 fveq2
 |-  ( i = X -> ( u ` i ) = ( u ` X ) )
176 fveq2
 |-  ( i = X -> ( d ` i ) = ( d ` X ) )
177 175 176 breq12d
 |-  ( i = X -> ( ( u ` i ) <_ ( d ` i ) <-> ( u ` X ) <_ ( d ` X ) ) )
178 177 notbid
 |-  ( i = X -> ( -. ( u ` i ) <_ ( d ` i ) <-> -. ( u ` X ) <_ ( d ` X ) ) )
179 178 ceqsrexbv
 |-  ( E. i e. I ( i = X /\ -. ( u ` i ) <_ ( d ` i ) ) <-> ( X e. I /\ -. ( u ` X ) <_ ( d ` X ) ) )
180 179 simprbi
 |-  ( E. i e. I ( i = X /\ -. ( u ` i ) <_ ( d ` i ) ) -> -. ( u ` X ) <_ ( d ` X ) )
181 174 180 syl
 |-  ( ( A. i e. I ( -. ( u ` i ) <_ ( d ` i ) -> ( i = X /\ -. ( u ` i ) <_ ( d ` i ) ) ) /\ E. i e. I -. ( u ` i ) <_ ( d ` i ) ) -> -. ( u ` X ) <_ ( d ` X ) )
182 33 adantr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( d ` X ) e. NN0 )
183 182 nn0red
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( d ` X ) e. RR )
184 150 nn0red
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u ` X ) e. RR )
185 183 184 ltnled
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( d ` X ) < ( u ` X ) <-> -. ( u ` X ) <_ ( d ` X ) ) )
186 185 biimpar
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ -. ( u ` X ) <_ ( d ` X ) ) -> ( d ` X ) < ( u ` X ) )
187 181 186 sylan2
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( A. i e. I ( -. ( u ` i ) <_ ( d ` i ) -> ( i = X /\ -. ( u ` i ) <_ ( d ` i ) ) ) /\ E. i e. I -. ( u ` i ) <_ ( d ` i ) ) ) -> ( d ` X ) < ( u ` X ) )
188 172 187 syldan
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( A. i e. I ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) /\ E. i e. I -. ( u ` i ) <_ ( d ` i ) ) ) -> ( d ` X ) < ( u ` X ) )
189 breq2
 |-  ( ( u ` X ) = 0 -> ( ( d ` X ) < ( u ` X ) <-> ( d ` X ) < 0 ) )
190 188 189 syl5ibcom
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( A. i e. I ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) /\ E. i e. I -. ( u ` i ) <_ ( d ` i ) ) ) -> ( ( u ` X ) = 0 -> ( d ` X ) < 0 ) )
191 153 190 mtod
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( A. i e. I ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) /\ E. i e. I -. ( u ` i ) <_ ( d ` i ) ) ) -> -. ( u ` X ) = 0 )
192 191 neqned
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( A. i e. I ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) /\ E. i e. I -. ( u ` i ) <_ ( d ` i ) ) ) -> ( u ` X ) =/= 0 )
193 elnnne0
 |-  ( ( u ` X ) e. NN <-> ( ( u ` X ) e. NN0 /\ ( u ` X ) =/= 0 ) )
194 151 192 193 sylanbrc
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( A. i e. I ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) /\ E. i e. I -. ( u ` i ) <_ ( d ` i ) ) ) -> ( u ` X ) e. NN )
195 elfzo0
 |-  ( ( d ` X ) e. ( 0 ..^ ( u ` X ) ) <-> ( ( d ` X ) e. NN0 /\ ( u ` X ) e. NN /\ ( d ` X ) < ( u ` X ) ) )
196 146 194 188 195 syl3anbrc
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( A. i e. I ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) /\ E. i e. I -. ( u ` i ) <_ ( d ` i ) ) ) -> ( d ` X ) e. ( 0 ..^ ( u ` X ) ) )
197 fzostep1
 |-  ( ( d ` X ) e. ( 0 ..^ ( u ` X ) ) -> ( ( ( d ` X ) + 1 ) e. ( 0 ..^ ( u ` X ) ) \/ ( ( d ` X ) + 1 ) = ( u ` X ) ) )
198 196 197 syl
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( A. i e. I ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) /\ E. i e. I -. ( u ` i ) <_ ( d ` i ) ) ) -> ( ( ( d ` X ) + 1 ) e. ( 0 ..^ ( u ` X ) ) \/ ( ( d ` X ) + 1 ) = ( u ` X ) ) )
199 151 nn0red
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( A. i e. I ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) /\ E. i e. I -. ( u ` i ) <_ ( d ` i ) ) ) -> ( u ` X ) e. RR )
200 35 ad2antrr
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( A. i e. I ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) /\ E. i e. I -. ( u ` i ) <_ ( d ` i ) ) ) -> ( ( d ` X ) + 1 ) e. NN0 )
201 200 nn0red
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( A. i e. I ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) /\ E. i e. I -. ( u ` i ) <_ ( d ` i ) ) ) -> ( ( d ` X ) + 1 ) e. RR )
202 6 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> X e. I )
203 iftrue
 |-  ( i = X -> if ( i = X , 1 , 0 ) = 1 )
204 176 203 oveq12d
 |-  ( i = X -> ( ( d ` i ) + if ( i = X , 1 , 0 ) ) = ( ( d ` X ) + 1 ) )
205 175 204 breq12d
 |-  ( i = X -> ( ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) <-> ( u ` X ) <_ ( ( d ` X ) + 1 ) ) )
206 205 rspcv
 |-  ( X e. I -> ( A. i e. I ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) -> ( u ` X ) <_ ( ( d ` X ) + 1 ) ) )
207 202 206 syl
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( A. i e. I ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) -> ( u ` X ) <_ ( ( d ` X ) + 1 ) ) )
208 207 imp
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ A. i e. I ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) ) -> ( u ` X ) <_ ( ( d ` X ) + 1 ) )
209 208 adantrr
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( A. i e. I ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) /\ E. i e. I -. ( u ` i ) <_ ( d ` i ) ) ) -> ( u ` X ) <_ ( ( d ` X ) + 1 ) )
210 199 201 209 lensymd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( A. i e. I ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) /\ E. i e. I -. ( u ` i ) <_ ( d ` i ) ) ) -> -. ( ( d ` X ) + 1 ) < ( u ` X ) )
211 210 intn3an3d
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( A. i e. I ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) /\ E. i e. I -. ( u ` i ) <_ ( d ` i ) ) ) -> -. ( ( ( d ` X ) + 1 ) e. NN0 /\ ( u ` X ) e. NN /\ ( ( d ` X ) + 1 ) < ( u ` X ) ) )
212 elfzo0
 |-  ( ( ( d ` X ) + 1 ) e. ( 0 ..^ ( u ` X ) ) <-> ( ( ( d ` X ) + 1 ) e. NN0 /\ ( u ` X ) e. NN /\ ( ( d ` X ) + 1 ) < ( u ` X ) ) )
213 211 212 sylnibr
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( A. i e. I ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) /\ E. i e. I -. ( u ` i ) <_ ( d ` i ) ) ) -> -. ( ( d ` X ) + 1 ) e. ( 0 ..^ ( u ` X ) ) )
214 198 213 orcnd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( A. i e. I ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) /\ E. i e. I -. ( u ` i ) <_ ( d ` i ) ) ) -> ( ( d ` X ) + 1 ) = ( u ` X ) )
215 145 214 sylbida
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. u oR <_ d ) ) -> ( ( d ` X ) + 1 ) = ( u ` X ) )
216 215 anasss
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } /\ ( u oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. u oR <_ d ) ) ) -> ( ( d ` X ) + 1 ) = ( u ` X ) )
217 124 216 sylan2b
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. k oR <_ d ) } ) -> ( ( d ` X ) + 1 ) = ( u ` X ) )
218 119 217 sylan2b
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) -> ( ( d ` X ) + 1 ) = ( u ` X ) )
219 218 oveq1d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) -> ( ( ( d ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) = ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) )
220 219 mpteq2dva
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) |-> ( ( ( d ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) = ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) )
221 220 oveq2d
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) |-> ( ( ( d ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) = ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) )
222 18 psrbaglefi
 |-  ( d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } -> { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } e. Fin )
223 222 adantl
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } e. Fin )
224 28 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> R e. Mnd )
225 35 adantr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( d ` X ) + 1 ) e. NN0 )
226 11 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> R e. Ring )
227 elrabi
 |-  ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } -> u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
228 39 adantr
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> F : { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } --> ( Base ` R ) )
229 228 ffvelcdmda
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( F ` u ) e. ( Base ` R ) )
230 227 229 sylan2
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( F ` u ) e. ( Base ` R ) )
231 44 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> G : { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } --> ( Base ` R ) )
232 31 adantr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> d : I --> NN0 )
233 232 ffvelcdmda
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) /\ i e. I ) -> ( d ` i ) e. NN0 )
234 233 nn0cnd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) /\ i e. I ) -> ( d ` i ) e. CC )
235 227 125 syl
 |-  ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } -> u : I --> NN0 )
236 235 adantl
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> u : I --> NN0 )
237 236 ffvelcdmda
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) /\ i e. I ) -> ( u ` i ) e. NN0 )
238 237 nn0cnd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) /\ i e. I ) -> ( u ` i ) e. CC )
239 58 nn0cni
 |-  if ( i = X , 1 , 0 ) e. CC
240 239 a1i
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) /\ i e. I ) -> if ( i = X , 1 , 0 ) e. CC )
241 234 238 240 subadd23d
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) /\ i e. I ) -> ( ( ( d ` i ) - ( u ` i ) ) + if ( i = X , 1 , 0 ) ) = ( ( d ` i ) + ( if ( i = X , 1 , 0 ) - ( u ` i ) ) ) )
242 234 240 238 addsubassd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) /\ i e. I ) -> ( ( ( d ` i ) + if ( i = X , 1 , 0 ) ) - ( u ` i ) ) = ( ( d ` i ) + ( if ( i = X , 1 , 0 ) - ( u ` i ) ) ) )
243 241 242 eqtr4d
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) /\ i e. I ) -> ( ( ( d ` i ) - ( u ` i ) ) + if ( i = X , 1 , 0 ) ) = ( ( ( d ` i ) + if ( i = X , 1 , 0 ) ) - ( u ` i ) ) )
244 243 mpteq2dva
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( i e. I |-> ( ( ( d ` i ) - ( u ` i ) ) + if ( i = X , 1 , 0 ) ) ) = ( i e. I |-> ( ( ( d ` i ) + if ( i = X , 1 , 0 ) ) - ( u ` i ) ) ) )
245 eqid
 |-  { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } = { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d }
246 18 245 psrbagconcl
 |-  ( ( d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( d oF - u ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } )
247 elrabi
 |-  ( ( d oF - u ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } -> ( d oF - u ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
248 246 247 syl
 |-  ( ( d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( d oF - u ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
249 248 adantll
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( d oF - u ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
250 18 psrbagf
 |-  ( ( d oF - u ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } -> ( d oF - u ) : I --> NN0 )
251 249 250 syl
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( d oF - u ) : I --> NN0 )
252 251 ffnd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( d oF - u ) Fn I )
253 71 a1i
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( y e. I |-> if ( y = X , 1 , 0 ) ) Fn I )
254 17 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> I e. _V )
255 232 ffnd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> d Fn I )
256 236 ffnd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> u Fn I )
257 eqidd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) /\ i e. I ) -> ( d ` i ) = ( d ` i ) )
258 eqidd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) /\ i e. I ) -> ( u ` i ) = ( u ` i ) )
259 255 256 254 254 74 257 258 ofval
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) /\ i e. I ) -> ( ( d oF - u ) ` i ) = ( ( d ` i ) - ( u ` i ) ) )
260 80 adantl
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) /\ i e. I ) -> ( ( y e. I |-> if ( y = X , 1 , 0 ) ) ` i ) = if ( i = X , 1 , 0 ) )
261 252 253 254 254 74 259 260 offval
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( d oF - u ) oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) = ( i e. I |-> ( ( ( d ` i ) - ( u ` i ) ) + if ( i = X , 1 , 0 ) ) ) )
262 simplr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
263 20 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( y e. I |-> if ( y = X , 1 , 0 ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
264 262 263 22 syl2anc
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
265 264 90 syl
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) : I --> NN0 )
266 265 ffnd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) Fn I )
267 255 253 254 254 74 257 260 ofval
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) /\ i e. I ) -> ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` i ) = ( ( d ` i ) + if ( i = X , 1 , 0 ) ) )
268 266 256 254 254 74 267 258 offval
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) = ( i e. I |-> ( ( ( d ` i ) + if ( i = X , 1 , 0 ) ) - ( u ` i ) ) ) )
269 244 261 268 3eqtr4d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( d oF - u ) oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) = ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) )
270 18 psrbagaddcl
 |-  ( ( ( d oF - u ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } /\ ( y e. I |-> if ( y = X , 1 , 0 ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( d oF - u ) oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
271 249 263 270 syl2anc
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( d oF - u ) oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
272 269 271 eqeltrrd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
273 231 272 ffvelcdmd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) e. ( Base ` R ) )
274 9 37 226 230 273 ringcld
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) e. ( Base ` R ) )
275 9 26 224 225 274 mulgnn0cld
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( ( d ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) e. ( Base ` R ) )
276 disjdifr
 |-  ( ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) i^i { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) = (/)
277 276 a1i
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) i^i { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) = (/) )
278 simpl
 |-  ( ( k oR <_ d /\ ( k ` X ) = 0 ) -> k oR <_ d )
279 278 a1i
 |-  ( k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } -> ( ( k oR <_ d /\ ( k ` X ) = 0 ) -> k oR <_ d ) )
280 279 ss2rabi
 |-  { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } C_ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d }
281 280 a1i
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } C_ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } )
282 undifr
 |-  ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } C_ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } <-> ( ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) u. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) = { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } )
283 281 282 sylib
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) u. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) = { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } )
284 283 eqcomd
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } = ( ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) u. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) )
285 9 10 13 223 275 277 284 gsummptfidmsplit
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } |-> ( ( ( d ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) = ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( d ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } |-> ( ( ( d ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) )
286 eldifi
 |-  ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) -> u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } )
287 6 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> X e. I )
288 eqidd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) /\ X e. I ) -> ( d ` X ) = ( d ` X ) )
289 eqidd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) /\ X e. I ) -> ( u ` X ) = ( u ` X ) )
290 255 256 254 254 74 288 289 ofval
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) /\ X e. I ) -> ( ( d oF - u ) ` X ) = ( ( d ` X ) - ( u ` X ) ) )
291 287 290 mpdan
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( d oF - u ) ` X ) = ( ( d ` X ) - ( u ` X ) ) )
292 286 291 sylan2
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) ) -> ( ( d oF - u ) ` X ) = ( ( d ` X ) - ( u ` X ) ) )
293 292 oveq2d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) ) -> ( ( u ` X ) + ( ( d oF - u ) ` X ) ) = ( ( u ` X ) + ( ( d ` X ) - ( u ` X ) ) ) )
294 236 287 ffvelcdmd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( u ` X ) e. NN0 )
295 286 294 sylan2
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) ) -> ( u ` X ) e. NN0 )
296 295 nn0cnd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) ) -> ( u ` X ) e. CC )
297 33 nn0cnd
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( d ` X ) e. CC )
298 297 adantr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) ) -> ( d ` X ) e. CC )
299 296 298 pncan3d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) ) -> ( ( u ` X ) + ( ( d ` X ) - ( u ` X ) ) ) = ( d ` X ) )
300 293 299 eqtrd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) ) -> ( ( u ` X ) + ( ( d oF - u ) ` X ) ) = ( d ` X ) )
301 300 oveq1d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) ) -> ( ( ( u ` X ) + ( ( d oF - u ) ` X ) ) + 1 ) = ( ( d ` X ) + 1 ) )
302 251 287 ffvelcdmd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( d oF - u ) ` X ) e. NN0 )
303 286 302 sylan2
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) ) -> ( ( d oF - u ) ` X ) e. NN0 )
304 303 nn0cnd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) ) -> ( ( d oF - u ) ` X ) e. CC )
305 1cnd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) ) -> 1 e. CC )
306 296 304 305 addassd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) ) -> ( ( ( u ` X ) + ( ( d oF - u ) ` X ) ) + 1 ) = ( ( u ` X ) + ( ( ( d oF - u ) ` X ) + 1 ) ) )
307 301 306 eqtr3d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) ) -> ( ( d ` X ) + 1 ) = ( ( u ` X ) + ( ( ( d oF - u ) ` X ) + 1 ) ) )
308 307 oveq1d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) ) -> ( ( ( d ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) = ( ( ( u ` X ) + ( ( ( d oF - u ) ` X ) + 1 ) ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) )
309 28 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) ) -> R e. Mnd )
310 peano2nn0
 |-  ( ( ( d oF - u ) ` X ) e. NN0 -> ( ( ( d oF - u ) ` X ) + 1 ) e. NN0 )
311 302 310 syl
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( ( d oF - u ) ` X ) + 1 ) e. NN0 )
312 286 311 sylan2
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) ) -> ( ( ( d oF - u ) ` X ) + 1 ) e. NN0 )
313 286 274 sylan2
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) ) -> ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) e. ( Base ` R ) )
314 9 26 10 mulgnn0dir
 |-  ( ( R e. Mnd /\ ( ( u ` X ) e. NN0 /\ ( ( ( d oF - u ) ` X ) + 1 ) e. NN0 /\ ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) e. ( Base ` R ) ) ) -> ( ( ( u ` X ) + ( ( ( d oF - u ) ` X ) + 1 ) ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) = ( ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ( +g ` R ) ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) )
315 309 295 312 313 314 syl13anc
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) ) -> ( ( ( u ` X ) + ( ( ( d oF - u ) ` X ) + 1 ) ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) = ( ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ( +g ` R ) ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) )
316 308 315 eqtrd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) ) -> ( ( ( d ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) = ( ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ( +g ` R ) ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) )
317 316 mpteq2dva
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( d ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) = ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ( +g ` R ) ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) )
318 317 oveq2d
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( d ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) = ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ( +g ` R ) ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) )
319 difssd
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) C_ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } )
320 223 319 ssfid
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) e. Fin )
321 9 26 224 294 274 mulgnn0cld
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) e. ( Base ` R ) )
322 286 321 sylan2
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) ) -> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) e. ( Base ` R ) )
323 9 26 224 311 274 mulgnn0cld
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) e. ( Base ` R ) )
324 286 323 sylan2
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) ) -> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) e. ( Base ` R ) )
325 eqid
 |-  ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) = ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) )
326 eqid
 |-  ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) = ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) )
327 9 10 13 320 322 324 325 326 gsummptfidmadd
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ( +g ` R ) ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) = ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) )
328 318 327 eqtrd
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( d ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) = ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) )
329 6 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) -> X e. I )
330 67 adantr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) -> d Fn I )
331 elrabi
 |-  ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } -> u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
332 331 126 syl
 |-  ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } -> u Fn I )
333 332 adantl
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) -> u Fn I )
334 17 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) -> I e. _V )
335 eqidd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) /\ X e. I ) -> ( d ` X ) = ( d ` X ) )
336 eqidd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) /\ X e. I ) -> ( u ` X ) = ( u ` X ) )
337 330 333 334 334 74 335 336 ofval
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) /\ X e. I ) -> ( ( d oF - u ) ` X ) = ( ( d ` X ) - ( u ` X ) ) )
338 329 337 mpdan
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) -> ( ( d oF - u ) ` X ) = ( ( d ` X ) - ( u ` X ) ) )
339 fveq1
 |-  ( k = u -> ( k ` X ) = ( u ` X ) )
340 339 eqeq1d
 |-  ( k = u -> ( ( k ` X ) = 0 <-> ( u ` X ) = 0 ) )
341 121 340 anbi12d
 |-  ( k = u -> ( ( k oR <_ d /\ ( k ` X ) = 0 ) <-> ( u oR <_ d /\ ( u ` X ) = 0 ) ) )
342 341 elrab
 |-  ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } <-> ( u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } /\ ( u oR <_ d /\ ( u ` X ) = 0 ) ) )
343 342 simprbi
 |-  ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } -> ( u oR <_ d /\ ( u ` X ) = 0 ) )
344 343 simprd
 |-  ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } -> ( u ` X ) = 0 )
345 344 adantl
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) -> ( u ` X ) = 0 )
346 345 oveq2d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) -> ( ( d ` X ) - ( u ` X ) ) = ( ( d ` X ) - 0 ) )
347 33 adantr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) -> ( d ` X ) e. NN0 )
348 347 nn0cnd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) -> ( d ` X ) e. CC )
349 348 subid1d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) -> ( ( d ` X ) - 0 ) = ( d ` X ) )
350 338 346 349 3eqtrrd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) -> ( d ` X ) = ( ( d oF - u ) ` X ) )
351 350 oveq1d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) -> ( ( d ` X ) + 1 ) = ( ( ( d oF - u ) ` X ) + 1 ) )
352 351 oveq1d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) -> ( ( ( d ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) = ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) )
353 352 mpteq2dva
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } |-> ( ( ( d ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) = ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) )
354 353 oveq2d
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } |-> ( ( ( d ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) = ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) )
355 328 354 oveq12d
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( d ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } |-> ( ( ( d ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) = ( ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) )
356 27 adantr
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> R e. Grp )
357 108 rabex
 |-  { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } e. _V
358 357 difexi
 |-  ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) e. _V
359 358 a1i
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) e. _V )
360 322 fmpttd
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) : ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) --> ( Base ` R ) )
361 ovex
 |-  ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) e. _V
362 361 325 fnmpti
 |-  ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) Fn ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } )
363 362 a1i
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) Fn ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) )
364 363 320 115 fndmfifsupp
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) finSupp ( 0g ` R ) )
365 9 106 13 359 360 364 gsumcl
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) e. ( Base ` R ) )
366 324 fmpttd
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) : ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) --> ( Base ` R ) )
367 ovex
 |-  ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) e. _V
368 367 326 fnmpti
 |-  ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) Fn ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } )
369 368 a1i
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) Fn ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) )
370 369 320 115 fndmfifsupp
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) finSupp ( 0g ` R ) )
371 9 106 13 359 366 370 gsumcl
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) e. ( Base ` R ) )
372 108 rabex
 |-  { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } e. _V
373 372 a1i
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } e. _V )
374 280 sseli
 |-  ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } -> u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } )
375 374 323 sylan2
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) -> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) e. ( Base ` R ) )
376 375 fmpttd
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) : { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } --> ( Base ` R ) )
377 eqid
 |-  ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) = ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) )
378 367 377 fnmpti
 |-  ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) Fn { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) }
379 378 a1i
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) Fn { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } )
380 223 281 ssfid
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } e. Fin )
381 379 380 115 fndmfifsupp
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) finSupp ( 0g ` R ) )
382 9 106 13 373 376 381 gsumcl
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) e. ( Base ` R ) )
383 9 10 356 365 371 382 grpassd
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) = ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) ) )
384 285 355 383 3eqtrd
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } |-> ( ( ( d ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) = ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) ) )
385 221 384 oveq12d
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) |-> ( ( ( d ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } |-> ( ( ( d ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) = ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) ) ) )
386 105 117 385 3eqtr3d
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( ( d ` X ) + 1 ) ( .g ` R ) ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } |-> ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) = ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) ) ) )
387 7 adantr
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> F e. B )
388 8 adantr
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> G e. B )
389 1 2 37 4 18 387 388 23 psrmulval
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( F .x. G ) ` ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) = ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } |-> ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) )
390 389 oveq2d
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( ( d ` X ) + 1 ) ( .g ` R ) ( ( F .x. G ) ` ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) ) = ( ( ( d ` X ) + 1 ) ( .g ` R ) ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } |-> ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) )
391 109 difexi
 |-  ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) e. _V
392 391 a1i
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) e. _V )
393 eldifi
 |-  ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } )
394 41 125 syl
 |-  ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } -> u : I --> NN0 )
395 394 adantl
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } ) -> u : I --> NN0 )
396 6 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } ) -> X e. I )
397 395 396 ffvelcdmd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } ) -> ( u ` X ) e. NN0 )
398 9 26 29 397 52 mulgnn0cld
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } ) -> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) e. ( Base ` R ) )
399 393 398 sylan2
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) -> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) e. ( Base ` R ) )
400 399 fmpttd
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) : ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) --> ( Base ` R ) )
401 eqid
 |-  ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) = ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) )
402 361 401 fnmpti
 |-  ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) Fn ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } )
403 402 a1i
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) Fn ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) )
404 difssd
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) C_ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } )
405 25 404 ssfid
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) e. Fin )
406 403 405 115 fndmfifsupp
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) finSupp ( 0g ` R ) )
407 9 106 13 392 400 406 gsumcl
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) e. ( Base ` R ) )
408 9 10 356 371 382 grpcld
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) e. ( Base ` R ) )
409 9 10 356 407 365 408 grpassd
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) ( +g ` R ) ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) ) = ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) ) ) )
410 386 390 409 3eqtr4d
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( ( d ` X ) + 1 ) ( .g ` R ) ( ( F .x. G ) ` ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) ) = ( ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) ( +g ` R ) ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) ) )
411 410 mpteq2dva
 |-  ( ph -> ( d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } |-> ( ( ( d ` X ) + 1 ) ( .g ` R ) ( ( F .x. G ) ` ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) ) ) = ( d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } |-> ( ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) ( +g ` R ) ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) ) ) )
412 1 2 4 11 7 8 psrmulcl
 |-  ( ph -> ( F .x. G ) e. B )
413 1 2 18 6 412 psdval
 |-  ( ph -> ( ( ( I mPSDer R ) ` X ) ` ( F .x. G ) ) = ( d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } |-> ( ( ( d ` X ) + 1 ) ( .g ` R ) ( ( F .x. G ) ` ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) ) ) )
414 27 grpmgmd
 |-  ( ph -> R e. Mgm )
415 1 2 414 6 7 psdcl
 |-  ( ph -> ( ( ( I mPSDer R ) ` X ) ` F ) e. B )
416 1 2 4 11 415 8 psrmulcl
 |-  ( ph -> ( ( ( ( I mPSDer R ) ` X ) ` F ) .x. G ) e. B )
417 1 2 414 6 8 psdcl
 |-  ( ph -> ( ( ( I mPSDer R ) ` X ) ` G ) e. B )
418 1 2 4 11 7 417 psrmulcl
 |-  ( ph -> ( F .x. ( ( ( I mPSDer R ) ` X ) ` G ) ) e. B )
419 1 2 10 3 416 418 psradd
 |-  ( ph -> ( ( ( ( ( I mPSDer R ) ` X ) ` F ) .x. G ) .+ ( F .x. ( ( ( I mPSDer R ) ` X ) ` G ) ) ) = ( ( ( ( ( I mPSDer R ) ` X ) ` F ) .x. G ) oF ( +g ` R ) ( F .x. ( ( ( I mPSDer R ) ` X ) ` G ) ) ) )
420 1 9 18 2 416 psrelbas
 |-  ( ph -> ( ( ( ( I mPSDer R ) ` X ) ` F ) .x. G ) : { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } --> ( Base ` R ) )
421 420 ffnd
 |-  ( ph -> ( ( ( ( I mPSDer R ) ` X ) ` F ) .x. G ) Fn { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
422 1 9 18 2 418 psrelbas
 |-  ( ph -> ( F .x. ( ( ( I mPSDer R ) ` X ) ` G ) ) : { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } --> ( Base ` R ) )
423 422 ffnd
 |-  ( ph -> ( F .x. ( ( ( I mPSDer R ) ` X ) ` G ) ) Fn { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
424 108 a1i
 |-  ( ph -> { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } e. _V )
425 inidm
 |-  ( { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } i^i { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) = { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin }
426 415 adantr
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( ( I mPSDer R ) ` X ) ` F ) e. B )
427 1 2 37 4 18 426 388 14 psrmulval
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( ( ( ( I mPSDer R ) ` X ) ` F ) .x. G ) ` d ) = ( R gsum ( b e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } |-> ( ( ( ( ( I mPSDer R ) ` X ) ` F ) ` b ) ( .r ` R ) ( G ` ( d oF - b ) ) ) ) ) )
428 357 a1i
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } e. _V )
429 11 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ b e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> R e. Ring )
430 elrabi
 |-  ( b e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } -> b e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
431 1 9 18 2 415 psrelbas
 |-  ( ph -> ( ( ( I mPSDer R ) ` X ) ` F ) : { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } --> ( Base ` R ) )
432 431 adantr
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( ( I mPSDer R ) ` X ) ` F ) : { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } --> ( Base ` R ) )
433 432 ffvelcdmda
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ b e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( ( ( I mPSDer R ) ` X ) ` F ) ` b ) e. ( Base ` R ) )
434 430 433 sylan2
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ b e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( ( ( I mPSDer R ) ` X ) ` F ) ` b ) e. ( Base ` R ) )
435 44 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ b e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> G : { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } --> ( Base ` R ) )
436 18 245 psrbagconcl
 |-  ( ( d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } /\ b e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( d oF - b ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } )
437 436 adantll
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ b e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( d oF - b ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } )
438 elrabi
 |-  ( ( d oF - b ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } -> ( d oF - b ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
439 437 438 syl
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ b e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( d oF - b ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
440 435 439 ffvelcdmd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ b e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( G ` ( d oF - b ) ) e. ( Base ` R ) )
441 9 37 429 434 440 ringcld
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ b e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( ( ( ( I mPSDer R ) ` X ) ` F ) ` b ) ( .r ` R ) ( G ` ( d oF - b ) ) ) e. ( Base ` R ) )
442 441 fmpttd
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( b e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } |-> ( ( ( ( ( I mPSDer R ) ` X ) ` F ) ` b ) ( .r ` R ) ( G ` ( d oF - b ) ) ) ) : { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } --> ( Base ` R ) )
443 ovex
 |-  ( ( ( ( ( I mPSDer R ) ` X ) ` F ) ` b ) ( .r ` R ) ( G ` ( d oF - b ) ) ) e. _V
444 eqid
 |-  ( b e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } |-> ( ( ( ( ( I mPSDer R ) ` X ) ` F ) ` b ) ( .r ` R ) ( G ` ( d oF - b ) ) ) ) = ( b e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } |-> ( ( ( ( ( I mPSDer R ) ` X ) ` F ) ` b ) ( .r ` R ) ( G ` ( d oF - b ) ) ) )
445 443 444 fnmpti
 |-  ( b e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } |-> ( ( ( ( ( I mPSDer R ) ` X ) ` F ) ` b ) ( .r ` R ) ( G ` ( d oF - b ) ) ) ) Fn { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d }
446 445 a1i
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( b e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } |-> ( ( ( ( ( I mPSDer R ) ` X ) ` F ) ` b ) ( .r ` R ) ( G ` ( d oF - b ) ) ) ) Fn { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } )
447 446 223 115 fndmfifsupp
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( b e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } |-> ( ( ( ( ( I mPSDer R ) ` X ) ` F ) ` b ) ( .r ` R ) ( G ` ( d oF - b ) ) ) ) finSupp ( 0g ` R ) )
448 eqid
 |-  ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) |-> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) = ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) |-> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) )
449 df-of
 |-  oF + = ( m e. _V , n e. _V |-> ( o e. ( dom m i^i dom n ) |-> ( ( m ` o ) + ( n ` o ) ) ) )
450 vex
 |-  u e. _V
451 450 a1i
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> u e. _V )
452 ssv
 |-  { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } C_ _V
453 452 a1i
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } C_ _V )
454 ssv
 |-  { ( y e. I |-> if ( y = X , 1 , 0 ) ) } C_ _V
455 454 a1i
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> { ( y e. I |-> if ( y = X , 1 , 0 ) ) } C_ _V )
456 449 451 453 455 elimampo
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) <-> E. m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } E. n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } u = ( o e. ( dom m i^i dom n ) |-> ( ( m ` o ) + ( n ` o ) ) ) ) )
457 456 biimpa
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> E. m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } E. n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } u = ( o e. ( dom m i^i dom n ) |-> ( ( m ` o ) + ( n ` o ) ) ) )
458 elrabi
 |-  ( m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } -> m e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
459 18 psrbagf
 |-  ( m e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } -> m : I --> NN0 )
460 459 ffund
 |-  ( m e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } -> Fun m )
461 458 460 syl
 |-  ( m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } -> Fun m )
462 461 funfnd
 |-  ( m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } -> m Fn dom m )
463 462 ad2antrl
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ ( m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) -> m Fn dom m )
464 velsn
 |-  ( n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } <-> n = ( y e. I |-> if ( y = X , 1 , 0 ) ) )
465 funmpt
 |-  Fun ( y e. I |-> if ( y = X , 1 , 0 ) )
466 funeq
 |-  ( n = ( y e. I |-> if ( y = X , 1 , 0 ) ) -> ( Fun n <-> Fun ( y e. I |-> if ( y = X , 1 , 0 ) ) ) )
467 465 466 mpbiri
 |-  ( n = ( y e. I |-> if ( y = X , 1 , 0 ) ) -> Fun n )
468 467 funfnd
 |-  ( n = ( y e. I |-> if ( y = X , 1 , 0 ) ) -> n Fn dom n )
469 464 468 sylbi
 |-  ( n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } -> n Fn dom n )
470 469 ad2antll
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ ( m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) -> n Fn dom n )
471 vex
 |-  m e. _V
472 471 dmex
 |-  dom m e. _V
473 472 a1i
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ ( m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) -> dom m e. _V )
474 vex
 |-  n e. _V
475 474 dmex
 |-  dom n e. _V
476 475 a1i
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ ( m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) -> dom n e. _V )
477 eqid
 |-  ( dom m i^i dom n ) = ( dom m i^i dom n )
478 eqidd
 |-  ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ ( m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ o e. dom m ) -> ( m ` o ) = ( m ` o ) )
479 eqidd
 |-  ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ ( m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ o e. dom n ) -> ( n ` o ) = ( n ` o ) )
480 463 470 473 476 477 478 479 offval
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ ( m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) -> ( m oF + n ) = ( o e. ( dom m i^i dom n ) |-> ( ( m ` o ) + ( n ` o ) ) ) )
481 480 eqeq2d
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ ( m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) -> ( u = ( m oF + n ) <-> u = ( o e. ( dom m i^i dom n ) |-> ( ( m ` o ) + ( n ` o ) ) ) ) )
482 elsni
 |-  ( n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } -> n = ( y e. I |-> if ( y = X , 1 , 0 ) ) )
483 482 oveq2d
 |-  ( n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } -> ( m oF + n ) = ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) )
484 483 eqeq2d
 |-  ( n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } -> ( u = ( m oF + n ) <-> u = ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) )
485 484 ad2antll
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ ( m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) -> ( u = ( m oF + n ) <-> u = ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) )
486 17 ad3antrrr
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> I e. _V )
487 458 459 syl
 |-  ( m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } -> m : I --> NN0 )
488 487 adantl
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> m : I --> NN0 )
489 133 a1i
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( y e. I |-> if ( y = X , 1 , 0 ) ) : I --> NN0 )
490 nn0cn
 |-  ( q e. NN0 -> q e. CC )
491 nn0cn
 |-  ( r e. NN0 -> r e. CC )
492 nn0cn
 |-  ( s e. NN0 -> s e. CC )
493 addsubass
 |-  ( ( q e. CC /\ r e. CC /\ s e. CC ) -> ( ( q + r ) - s ) = ( q + ( r - s ) ) )
494 490 491 492 493 syl3an
 |-  ( ( q e. NN0 /\ r e. NN0 /\ s e. NN0 ) -> ( ( q + r ) - s ) = ( q + ( r - s ) ) )
495 494 adantl
 |-  ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) /\ ( q e. NN0 /\ r e. NN0 /\ s e. NN0 ) ) -> ( ( q + r ) - s ) = ( q + ( r - s ) ) )
496 486 488 489 489 495 caofass
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) = ( m oF + ( ( y e. I |-> if ( y = X , 1 , 0 ) ) oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) )
497 simpr
 |-  ( ( ph /\ i e. I ) -> i e. I )
498 58 a1i
 |-  ( ( ph /\ i e. I ) -> if ( i = X , 1 , 0 ) e. NN0 )
499 70 78 497 498 fvmptd3
 |-  ( ( ph /\ i e. I ) -> ( ( y e. I |-> if ( y = X , 1 , 0 ) ) ` i ) = if ( i = X , 1 , 0 ) )
500 135 135 17 17 74 499 499 offval
 |-  ( ph -> ( ( y e. I |-> if ( y = X , 1 , 0 ) ) oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) = ( i e. I |-> ( if ( i = X , 1 , 0 ) - if ( i = X , 1 , 0 ) ) ) )
501 500 oveq2d
 |-  ( ph -> ( m oF + ( ( y e. I |-> if ( y = X , 1 , 0 ) ) oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) = ( m oF + ( i e. I |-> ( if ( i = X , 1 , 0 ) - if ( i = X , 1 , 0 ) ) ) ) )
502 501 ad3antrrr
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( m oF + ( ( y e. I |-> if ( y = X , 1 , 0 ) ) oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) = ( m oF + ( i e. I |-> ( if ( i = X , 1 , 0 ) - if ( i = X , 1 , 0 ) ) ) ) )
503 239 subidi
 |-  ( if ( i = X , 1 , 0 ) - if ( i = X , 1 , 0 ) ) = 0
504 503 mpteq2i
 |-  ( i e. I |-> ( if ( i = X , 1 , 0 ) - if ( i = X , 1 , 0 ) ) ) = ( i e. I |-> 0 )
505 fconstmpt
 |-  ( I X. { 0 } ) = ( i e. I |-> 0 )
506 504 505 eqtr4i
 |-  ( i e. I |-> ( if ( i = X , 1 , 0 ) - if ( i = X , 1 , 0 ) ) ) = ( I X. { 0 } )
507 506 oveq2i
 |-  ( m oF + ( i e. I |-> ( if ( i = X , 1 , 0 ) - if ( i = X , 1 , 0 ) ) ) ) = ( m oF + ( I X. { 0 } ) )
508 0zd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> 0 e. ZZ )
509 490 addridd
 |-  ( q e. NN0 -> ( q + 0 ) = q )
510 509 adantl
 |-  ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) /\ q e. NN0 ) -> ( q + 0 ) = q )
511 486 488 508 510 caofid0r
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( m oF + ( I X. { 0 } ) ) = m )
512 507 511 eqtrid
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( m oF + ( i e. I |-> ( if ( i = X , 1 , 0 ) - if ( i = X , 1 , 0 ) ) ) ) = m )
513 496 502 512 3eqtrd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) = m )
514 simpr
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } )
515 513 514 eqeltrd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } )
516 oveq1
 |-  ( u = ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) = ( ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) )
517 516 eleq1d
 |-  ( u = ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> ( ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } <-> ( ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) )
518 515 517 syl5ibrcom
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( u = ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) )
519 518 adantrr
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ ( m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) -> ( u = ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) )
520 485 519 sylbid
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ ( m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) -> ( u = ( m oF + n ) -> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) )
521 481 520 sylbird
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ ( m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) -> ( u = ( o e. ( dom m i^i dom n ) |-> ( ( m ` o ) + ( n ` o ) ) ) -> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) )
522 521 rexlimdvva
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( E. m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } E. n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } u = ( o e. ( dom m i^i dom n ) |-> ( ( m ` o ) + ( n ` o ) ) ) -> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) )
523 457 522 mpd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } )
524 simpr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } )
525 17 mptexd
 |-  ( ph -> ( y e. I |-> if ( y = X , 1 , 0 ) ) e. _V )
526 elsng
 |-  ( ( y e. I |-> if ( y = X , 1 , 0 ) ) e. _V -> ( ( y e. I |-> if ( y = X , 1 , 0 ) ) e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } <-> ( y e. I |-> if ( y = X , 1 , 0 ) ) = ( y e. I |-> if ( y = X , 1 , 0 ) ) ) )
527 525 526 syl
 |-  ( ph -> ( ( y e. I |-> if ( y = X , 1 , 0 ) ) e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } <-> ( y e. I |-> if ( y = X , 1 , 0 ) ) = ( y e. I |-> if ( y = X , 1 , 0 ) ) ) )
528 70 527 mpbiri
 |-  ( ph -> ( y e. I |-> if ( y = X , 1 , 0 ) ) e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } )
529 528 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( y e. I |-> if ( y = X , 1 , 0 ) ) e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } )
530 449 mpofun
 |-  Fun oF +
531 530 a1i
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> Fun oF + )
532 xpss
 |-  ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) C_ ( _V X. _V )
533 472 inex1
 |-  ( dom m i^i dom n ) e. _V
534 533 mptex
 |-  ( o e. ( dom m i^i dom n ) |-> ( ( m ` o ) + ( n ` o ) ) ) e. _V
535 534 rgen2w
 |-  A. m e. _V A. n e. _V ( o e. ( dom m i^i dom n ) |-> ( ( m ` o ) + ( n ` o ) ) ) e. _V
536 449 dmmpoga
 |-  ( A. m e. _V A. n e. _V ( o e. ( dom m i^i dom n ) |-> ( ( m ` o ) + ( n ` o ) ) ) e. _V -> dom oF + = ( _V X. _V ) )
537 535 536 mp1i
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> dom oF + = ( _V X. _V ) )
538 532 537 sseqtrrid
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) C_ dom oF + )
539 524 529 531 538 elovimad
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( v oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) )
540 17 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) -> I e. _V )
541 elrabi
 |-  ( v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } -> v e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
542 18 psrbagf
 |-  ( v e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } -> v : I --> NN0 )
543 541 542 syl
 |-  ( v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } -> v : I --> NN0 )
544 543 ad2antll
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) -> v : I --> NN0 )
545 133 a1i
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) -> ( y e. I |-> if ( y = X , 1 , 0 ) ) : I --> NN0 )
546 494 adantl
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) /\ ( q e. NN0 /\ r e. NN0 /\ s e. NN0 ) ) -> ( ( q + r ) - s ) = ( q + ( r - s ) ) )
547 540 544 545 545 546 caofass
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) -> ( ( v oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) = ( v oF + ( ( y e. I |-> if ( y = X , 1 , 0 ) ) oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) )
548 135 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) -> ( y e. I |-> if ( y = X , 1 , 0 ) ) Fn I )
549 80 adantl
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) /\ i e. I ) -> ( ( y e. I |-> if ( y = X , 1 , 0 ) ) ` i ) = if ( i = X , 1 , 0 ) )
550 548 548 540 540 74 549 549 offval
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) -> ( ( y e. I |-> if ( y = X , 1 , 0 ) ) oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) = ( i e. I |-> ( if ( i = X , 1 , 0 ) - if ( i = X , 1 , 0 ) ) ) )
551 550 oveq2d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) -> ( v oF + ( ( y e. I |-> if ( y = X , 1 , 0 ) ) oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) = ( v oF + ( i e. I |-> ( if ( i = X , 1 , 0 ) - if ( i = X , 1 , 0 ) ) ) ) )
552 506 oveq2i
 |-  ( v oF + ( i e. I |-> ( if ( i = X , 1 , 0 ) - if ( i = X , 1 , 0 ) ) ) ) = ( v oF + ( I X. { 0 } ) )
553 0zd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) -> 0 e. ZZ )
554 nn0cn
 |-  ( p e. NN0 -> p e. CC )
555 554 addridd
 |-  ( p e. NN0 -> ( p + 0 ) = p )
556 555 adantl
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) /\ p e. NN0 ) -> ( p + 0 ) = p )
557 540 544 553 556 caofid0r
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) -> ( v oF + ( I X. { 0 } ) ) = v )
558 552 557 eqtrid
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) -> ( v oF + ( i e. I |-> ( if ( i = X , 1 , 0 ) - if ( i = X , 1 , 0 ) ) ) ) = v )
559 547 551 558 3eqtrrd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) -> v = ( ( v oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) )
560 oveq1
 |-  ( u = ( v oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) = ( ( v oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) )
561 560 eqeq2d
 |-  ( u = ( v oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> ( v = ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) <-> v = ( ( v oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) )
562 559 561 syl5ibrcom
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) -> ( u = ( v oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> v = ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) )
563 20 ad3antrrr
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( y e. I |-> if ( y = X , 1 , 0 ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
564 18 psrbagaddcl
 |-  ( ( m e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } /\ ( y e. I |-> if ( y = X , 1 , 0 ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
565 458 563 564 syl2an2
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
566 18 psrbagf
 |-  ( ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } -> ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) : I --> NN0 )
567 565 566 syl
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) : I --> NN0 )
568 567 adantrr
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ ( m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) -> ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) : I --> NN0 )
569 feq1
 |-  ( u = ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> ( u : I --> NN0 <-> ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) : I --> NN0 ) )
570 568 569 syl5ibrcom
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ ( m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) -> ( u = ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> u : I --> NN0 ) )
571 485 570 sylbid
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ ( m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) -> ( u = ( m oF + n ) -> u : I --> NN0 ) )
572 481 571 sylbird
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ ( m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) -> ( u = ( o e. ( dom m i^i dom n ) |-> ( ( m ` o ) + ( n ` o ) ) ) -> u : I --> NN0 ) )
573 572 rexlimdvva
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( E. m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } E. n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } u = ( o e. ( dom m i^i dom n ) |-> ( ( m ` o ) + ( n ` o ) ) ) -> u : I --> NN0 ) )
574 457 573 mpd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> u : I --> NN0 )
575 574 adantrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) -> u : I --> NN0 )
576 575 ffvelcdmda
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) /\ i e. I ) -> ( u ` i ) e. NN0 )
577 576 nn0cnd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) /\ i e. I ) -> ( u ` i ) e. CC )
578 239 a1i
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) /\ i e. I ) -> if ( i = X , 1 , 0 ) e. CC )
579 577 578 npcand
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) /\ i e. I ) -> ( ( ( u ` i ) - if ( i = X , 1 , 0 ) ) + if ( i = X , 1 , 0 ) ) = ( u ` i ) )
580 579 mpteq2dva
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) -> ( i e. I |-> ( ( ( u ` i ) - if ( i = X , 1 , 0 ) ) + if ( i = X , 1 , 0 ) ) ) = ( i e. I |-> ( u ` i ) ) )
581 575 ffnd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) -> u Fn I )
582 581 548 540 540 74 offn
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) -> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) Fn I )
583 eqidd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) /\ i e. I ) -> ( u ` i ) = ( u ` i ) )
584 581 548 540 540 74 583 549 ofval
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) /\ i e. I ) -> ( ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` i ) = ( ( u ` i ) - if ( i = X , 1 , 0 ) ) )
585 582 548 540 540 74 584 549 offval
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) -> ( ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) = ( i e. I |-> ( ( ( u ` i ) - if ( i = X , 1 , 0 ) ) + if ( i = X , 1 , 0 ) ) ) )
586 575 feqmptd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) -> u = ( i e. I |-> ( u ` i ) ) )
587 580 585 586 3eqtr4rd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) -> u = ( ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) )
588 oveq1
 |-  ( v = ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> ( v oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) = ( ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) )
589 588 eqeq2d
 |-  ( v = ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> ( u = ( v oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) <-> u = ( ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) )
590 587 589 syl5ibrcom
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) -> ( v = ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> u = ( v oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) )
591 562 590 impbid
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) /\ v e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) -> ( u = ( v oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) <-> v = ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) )
592 448 523 539 591 f1o2d
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) |-> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) : ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) -1-1-onto-> { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } )
593 9 106 13 428 442 447 592 gsumf1o
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( R gsum ( b e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } |-> ( ( ( ( ( I mPSDer R ) ` X ) ` F ) ` b ) ( .r ` R ) ( G ` ( d oF - b ) ) ) ) ) = ( R gsum ( ( b e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } |-> ( ( ( ( ( I mPSDer R ) ` X ) ` F ) ` b ) ( .r ` R ) ( G ` ( d oF - b ) ) ) ) o. ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) |-> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) ) ) )
594 555 adantl
 |-  ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) /\ p e. NN0 ) -> ( p + 0 ) = p )
595 486 488 508 594 caofid0r
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( m oF + ( I X. { 0 } ) ) = m )
596 507 595 eqtrid
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( m oF + ( i e. I |-> ( if ( i = X , 1 , 0 ) - if ( i = X , 1 , 0 ) ) ) ) = m )
597 496 502 596 3eqtrd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) = m )
598 597 514 eqeltrd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } )
599 598 517 syl5ibrcom
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( u = ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) )
600 599 adantrr
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ ( m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) -> ( u = ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) )
601 485 600 sylbid
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ ( m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) -> ( u = ( m oF + n ) -> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) )
602 481 601 sylbird
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ ( m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) -> ( u = ( o e. ( dom m i^i dom n ) |-> ( ( m ` o ) + ( n ` o ) ) ) -> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) )
603 602 rexlimdvva
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( E. m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } E. n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } u = ( o e. ( dom m i^i dom n ) |-> ( ( m ` o ) + ( n ` o ) ) ) -> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) )
604 457 603 mpd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } )
605 eqidd
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) |-> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) = ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) |-> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) )
606 eqidd
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( b e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } |-> ( ( ( ( ( I mPSDer R ) ` X ) ` F ) ` b ) ( .r ` R ) ( G ` ( d oF - b ) ) ) ) = ( b e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } |-> ( ( ( ( ( I mPSDer R ) ` X ) ` F ) ` b ) ( .r ` R ) ( G ` ( d oF - b ) ) ) ) )
607 fveq2
 |-  ( b = ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> ( ( ( ( I mPSDer R ) ` X ) ` F ) ` b ) = ( ( ( ( I mPSDer R ) ` X ) ` F ) ` ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) )
608 oveq2
 |-  ( b = ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> ( d oF - b ) = ( d oF - ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) )
609 608 fveq2d
 |-  ( b = ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> ( G ` ( d oF - b ) ) = ( G ` ( d oF - ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) ) )
610 607 609 oveq12d
 |-  ( b = ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> ( ( ( ( ( I mPSDer R ) ` X ) ` F ) ` b ) ( .r ` R ) ( G ` ( d oF - b ) ) ) = ( ( ( ( ( I mPSDer R ) ` X ) ` F ) ` ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) ( .r ` R ) ( G ` ( d oF - ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) ) ) )
611 604 605 606 610 fmptco
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( b e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } |-> ( ( ( ( ( I mPSDer R ) ` X ) ` F ) ` b ) ( .r ` R ) ( G ` ( d oF - b ) ) ) ) o. ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) |-> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) ) = ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) |-> ( ( ( ( ( I mPSDer R ) ` X ) ` F ) ` ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) ( .r ` R ) ( G ` ( d oF - ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) ) ) ) )
612 6 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> X e. I )
613 7 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> F e. B )
614 elrabi
 |-  ( ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } -> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
615 604 614 syl
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
616 1 2 18 612 613 615 psdcoef
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( ( ( ( I mPSDer R ) ` X ) ` F ) ` ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) = ( ( ( ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` X ) + 1 ) ( .g ` R ) ( F ` ( ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) ) )
617 574 ffnd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> u Fn I )
618 133 a1i
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( y e. I |-> if ( y = X , 1 , 0 ) ) : I --> NN0 )
619 618 ffnd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( y e. I |-> if ( y = X , 1 , 0 ) ) Fn I )
620 17 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> I e. _V )
621 eqidd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ X e. I ) -> ( u ` X ) = ( u ` X ) )
622 iftrue
 |-  ( y = X -> if ( y = X , 1 , 0 ) = 1 )
623 1ex
 |-  1 e. _V
624 622 70 623 fvmpt
 |-  ( X e. I -> ( ( y e. I |-> if ( y = X , 1 , 0 ) ) ` X ) = 1 )
625 624 adantl
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ X e. I ) -> ( ( y e. I |-> if ( y = X , 1 , 0 ) ) ` X ) = 1 )
626 617 619 620 620 74 621 625 ofval
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ X e. I ) -> ( ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` X ) = ( ( u ` X ) - 1 ) )
627 612 626 mpdan
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` X ) = ( ( u ` X ) - 1 ) )
628 627 oveq1d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( ( ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` X ) + 1 ) = ( ( ( u ` X ) - 1 ) + 1 ) )
629 nn0sscn
 |-  NN0 C_ CC
630 629 a1i
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> NN0 C_ CC )
631 574 630 fssd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> u : I --> CC )
632 631 612 ffvelcdmd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( u ` X ) e. CC )
633 1cnd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> 1 e. CC )
634 632 633 npcand
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( ( ( u ` X ) - 1 ) + 1 ) = ( u ` X ) )
635 628 634 eqtrd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( ( ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` X ) + 1 ) = ( u ` X ) )
636 617 619 620 620 74 offn
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) Fn I )
637 eqidd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ i e. I ) -> ( u ` i ) = ( u ` i ) )
638 80 adantl
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ i e. I ) -> ( ( y e. I |-> if ( y = X , 1 , 0 ) ) ` i ) = if ( i = X , 1 , 0 ) )
639 617 619 620 620 74 637 638 ofval
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ i e. I ) -> ( ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` i ) = ( ( u ` i ) - if ( i = X , 1 , 0 ) ) )
640 574 ffvelcdmda
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ i e. I ) -> ( u ` i ) e. NN0 )
641 640 nn0cnd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ i e. I ) -> ( u ` i ) e. CC )
642 239 a1i
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ i e. I ) -> if ( i = X , 1 , 0 ) e. CC )
643 641 642 npcand
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ i e. I ) -> ( ( ( u ` i ) - if ( i = X , 1 , 0 ) ) + if ( i = X , 1 , 0 ) ) = ( u ` i ) )
644 620 636 619 617 639 638 643 offveq
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) = u )
645 644 fveq2d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( F ` ( ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) = ( F ` u ) )
646 635 645 oveq12d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( ( ( ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` X ) + 1 ) ( .g ` R ) ( F ` ( ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) ) = ( ( u ` X ) ( .g ` R ) ( F ` u ) ) )
647 616 646 eqtrd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( ( ( ( I mPSDer R ) ` X ) ` F ) ` ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) = ( ( u ` X ) ( .g ` R ) ( F ` u ) ) )
648 30 ad2antlr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> d : I --> NN0 )
649 648 ffvelcdmda
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ i e. I ) -> ( d ` i ) e. NN0 )
650 649 nn0cnd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ i e. I ) -> ( d ` i ) e. CC )
651 650 641 642 subsub3d
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ i e. I ) -> ( ( d ` i ) - ( ( u ` i ) - if ( i = X , 1 , 0 ) ) ) = ( ( ( d ` i ) + if ( i = X , 1 , 0 ) ) - ( u ` i ) ) )
652 651 mpteq2dva
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( i e. I |-> ( ( d ` i ) - ( ( u ` i ) - if ( i = X , 1 , 0 ) ) ) ) = ( i e. I |-> ( ( ( d ` i ) + if ( i = X , 1 , 0 ) ) - ( u ` i ) ) ) )
653 67 adantr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> d Fn I )
654 eqidd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ i e. I ) -> ( d ` i ) = ( d ` i ) )
655 653 636 620 620 74 654 639 offval
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( d oF - ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) = ( i e. I |-> ( ( d ` i ) - ( ( u ` i ) - if ( i = X , 1 , 0 ) ) ) ) )
656 653 619 620 620 74 offn
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) Fn I )
657 653 619 620 620 74 654 638 ofval
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ i e. I ) -> ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` i ) = ( ( d ` i ) + if ( i = X , 1 , 0 ) ) )
658 656 617 620 620 74 657 637 offval
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) = ( i e. I |-> ( ( ( d ` i ) + if ( i = X , 1 , 0 ) ) - ( u ` i ) ) ) )
659 652 655 658 3eqtr4d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( d oF - ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) = ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) )
660 659 fveq2d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( G ` ( d oF - ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) ) = ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) )
661 647 660 oveq12d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( ( ( ( ( I mPSDer R ) ` X ) ` F ) ` ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) ( .r ` R ) ( G ` ( d oF - ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) ) ) = ( ( ( u ` X ) ( .g ` R ) ( F ` u ) ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) )
662 11 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> R e. Ring )
663 574 612 ffvelcdmd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( u ` X ) e. NN0 )
664 663 nn0zd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( u ` X ) e. ZZ )
665 39 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> F : { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } --> ( Base ` R ) )
666 simpllr
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ ( m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) -> d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
667 20 ad3antrrr
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ ( m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) -> ( y e. I |-> if ( y = X , 1 , 0 ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
668 simprl
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ ( m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) -> m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } )
669 eqid
 |-  { l e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | l oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } = { l e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | l oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) }
670 18 245 669 psrbagleadd1
 |-  ( ( d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } /\ ( y e. I |-> if ( y = X , 1 , 0 ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { l e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | l oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } )
671 666 667 668 670 syl3anc
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ ( m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) -> ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { l e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | l oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } )
672 eleq1
 |-  ( u = ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> ( u e. { l e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | l oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } <-> ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { l e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | l oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } ) )
673 671 672 syl5ibrcom
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ ( m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) -> ( u = ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> u e. { l e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | l oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } ) )
674 485 673 sylbid
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ ( m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) -> ( u = ( m oF + n ) -> u e. { l e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | l oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } ) )
675 481 674 sylbird
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) /\ ( m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) -> ( u = ( o e. ( dom m i^i dom n ) |-> ( ( m ` o ) + ( n ` o ) ) ) -> u e. { l e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | l oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } ) )
676 675 rexlimdvva
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( E. m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } E. n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } u = ( o e. ( dom m i^i dom n ) |-> ( ( m ` o ) + ( n ` o ) ) ) -> u e. { l e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | l oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } ) )
677 457 676 mpd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> u e. { l e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | l oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } )
678 elrabi
 |-  ( u e. { l e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | l oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } -> u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
679 677 678 syl
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
680 665 679 ffvelcdmd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( F ` u ) e. ( Base ` R ) )
681 44 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> G : { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } --> ( Base ` R ) )
682 23 adantr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
683 18 669 psrbagconcl
 |-  ( ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } /\ u e. { l e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | l oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } ) -> ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) e. { l e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | l oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } )
684 682 677 683 syl2anc
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) e. { l e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | l oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } )
685 elrabi
 |-  ( ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) e. { l e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | l oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } -> ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
686 684 685 syl
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
687 681 686 ffvelcdmd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) e. ( Base ` R ) )
688 9 26 37 mulgass2
 |-  ( ( R e. Ring /\ ( ( u ` X ) e. ZZ /\ ( F ` u ) e. ( Base ` R ) /\ ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) e. ( Base ` R ) ) ) -> ( ( ( u ` X ) ( .g ` R ) ( F ` u ) ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) = ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) )
689 662 664 680 687 688 syl13anc
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( ( ( u ` X ) ( .g ` R ) ( F ` u ) ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) = ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) )
690 661 689 eqtrd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( ( ( ( ( I mPSDer R ) ` X ) ` F ) ` ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) ( .r ` R ) ( G ` ( d oF - ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) ) ) = ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) )
691 690 mpteq2dva
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) |-> ( ( ( ( ( I mPSDer R ) ` X ) ` F ) ` ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) ( .r ` R ) ( G ` ( d oF - ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) ) ) ) = ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) )
692 611 691 eqtrd
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( b e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } |-> ( ( ( ( ( I mPSDer R ) ` X ) ` F ) ` b ) ( .r ` R ) ( G ` ( d oF - b ) ) ) ) o. ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) |-> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) ) = ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) )
693 692 oveq2d
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( R gsum ( ( b e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } |-> ( ( ( ( ( I mPSDer R ) ` X ) ` F ) ` b ) ( .r ` R ) ( G ` ( d oF - b ) ) ) ) o. ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) |-> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) ) ) = ( R gsum ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) )
694 snex
 |-  { ( y e. I |-> if ( y = X , 1 , 0 ) ) } e. _V
695 357 694 xpex
 |-  ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) e. _V
696 695 funimaex
 |-  ( Fun oF + -> ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) e. _V )
697 530 696 mp1i
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) e. _V )
698 28 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> R e. Mnd )
699 9 37 662 680 687 ringcld
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) e. ( Base ` R ) )
700 9 26 698 663 699 mulgnn0cld
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) ) -> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) e. ( Base ` R ) )
701 eqid
 |-  ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) = ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) )
702 361 701 fnmpti
 |-  ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) Fn { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) }
703 702 a1i
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) Fn { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } )
704 703 25 115 fndmfifsupp
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) finSupp ( 0g ` R ) )
705 462 ad2antlr
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) -> m Fn dom m )
706 469 adantl
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) -> n Fn dom n )
707 472 a1i
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) -> dom m e. _V )
708 475 a1i
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) -> dom n e. _V )
709 eqidd
 |-  ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) /\ o e. dom m ) -> ( m ` o ) = ( m ` o ) )
710 eqidd
 |-  ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) /\ o e. dom n ) -> ( n ` o ) = ( n ` o ) )
711 705 706 707 708 477 709 710 offval
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) -> ( m oF + n ) = ( o e. ( dom m i^i dom n ) |-> ( ( m ` o ) + ( n ` o ) ) ) )
712 711 eqeq2d
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) /\ n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) -> ( u = ( m oF + n ) <-> u = ( o e. ( dom m i^i dom n ) |-> ( ( m ` o ) + ( n ` o ) ) ) ) )
713 712 rexbidva
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( E. n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } u = ( m oF + n ) <-> E. n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } u = ( o e. ( dom m i^i dom n ) |-> ( ( m ` o ) + ( n ` o ) ) ) ) )
714 20 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( y e. I |-> if ( y = X , 1 , 0 ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
715 oveq2
 |-  ( n = ( y e. I |-> if ( y = X , 1 , 0 ) ) -> ( m oF + n ) = ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) )
716 715 eqeq2d
 |-  ( n = ( y e. I |-> if ( y = X , 1 , 0 ) ) -> ( u = ( m oF + n ) <-> u = ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) )
717 716 rexsng
 |-  ( ( y e. I |-> if ( y = X , 1 , 0 ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } -> ( E. n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } u = ( m oF + n ) <-> u = ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) )
718 714 717 syl
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( E. n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } u = ( m oF + n ) <-> u = ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) )
719 713 718 bitr3d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( E. n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } u = ( o e. ( dom m i^i dom n ) |-> ( ( m ` o ) + ( n ` o ) ) ) <-> u = ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) )
720 719 rexbidva
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( E. m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } E. n e. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } u = ( o e. ( dom m i^i dom n ) |-> ( ( m ` o ) + ( n ` o ) ) ) <-> E. m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } u = ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) )
721 breq1
 |-  ( k = ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) <-> ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) )
722 breq1
 |-  ( k = ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> ( k oR <_ d <-> ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oR <_ d ) )
723 fveq1
 |-  ( k = ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> ( k ` X ) = ( ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` X ) )
724 723 eqeq1d
 |-  ( k = ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> ( ( k ` X ) = 0 <-> ( ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` X ) = 0 ) )
725 722 724 anbi12d
 |-  ( k = ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> ( ( k oR <_ d /\ ( k ` X ) = 0 ) <-> ( ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oR <_ d /\ ( ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` X ) = 0 ) ) )
726 725 notbid
 |-  ( k = ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> ( -. ( k oR <_ d /\ ( k ` X ) = 0 ) <-> -. ( ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oR <_ d /\ ( ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` X ) = 0 ) ) )
727 721 726 anbi12d
 |-  ( k = ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> ( ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) <-> ( ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oR <_ d /\ ( ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` X ) = 0 ) ) ) )
728 458 714 564 syl2an2
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
729 simplr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
730 simpr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } )
731 18 245 46 psrbagleadd1
 |-  ( ( d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } /\ ( y e. I |-> if ( y = X , 1 , 0 ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } )
732 729 714 730 731 syl3anc
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } )
733 721 elrab
 |-  ( ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } <-> ( ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } /\ ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) )
734 733 simprbi
 |-  ( ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } -> ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) )
735 732 734 syl
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) )
736 6 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> X e. I )
737 487 adantl
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> m : I --> NN0 )
738 737 ffnd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> m Fn I )
739 135 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( y e. I |-> if ( y = X , 1 , 0 ) ) Fn I )
740 17 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> I e. _V )
741 eqidd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) /\ X e. I ) -> ( m ` X ) = ( m ` X ) )
742 624 adantl
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) /\ X e. I ) -> ( ( y e. I |-> if ( y = X , 1 , 0 ) ) ` X ) = 1 )
743 738 739 740 740 74 741 742 ofval
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) /\ X e. I ) -> ( ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` X ) = ( ( m ` X ) + 1 ) )
744 736 743 mpdan
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` X ) = ( ( m ` X ) + 1 ) )
745 737 736 ffvelcdmd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( m ` X ) e. NN0 )
746 nn0p1nn
 |-  ( ( m ` X ) e. NN0 -> ( ( m ` X ) + 1 ) e. NN )
747 745 746 syl
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( m ` X ) + 1 ) e. NN )
748 744 747 eqeltrd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` X ) e. NN )
749 748 nnne0d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` X ) =/= 0 )
750 749 neneqd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> -. ( ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` X ) = 0 )
751 750 intnand
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> -. ( ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oR <_ d /\ ( ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` X ) = 0 ) )
752 735 751 jca
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oR <_ d /\ ( ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` X ) = 0 ) ) )
753 727 728 752 elrabd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } )
754 eleq1
 |-  ( u = ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } <-> ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) )
755 753 754 syl5ibrcom
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( u = ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) )
756 breq1
 |-  ( k = ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> ( k oR <_ d <-> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oR <_ d ) )
757 elrabi
 |-  ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } -> u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
758 757 adantl
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
759 133 a1i
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> ( y e. I |-> if ( y = X , 1 , 0 ) ) : I --> NN0 )
760 757 125 syl
 |-  ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } -> u : I --> NN0 )
761 760 adantl
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> u : I --> NN0 )
762 6 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> X e. I )
763 761 762 ffvelcdmd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> ( u ` X ) e. NN0 )
764 341 notbid
 |-  ( k = u -> ( -. ( k oR <_ d /\ ( k ` X ) = 0 ) <-> -. ( u oR <_ d /\ ( u ` X ) = 0 ) ) )
765 120 764 anbi12d
 |-  ( k = u -> ( ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) <-> ( u oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( u oR <_ d /\ ( u ` X ) = 0 ) ) ) )
766 765 elrab
 |-  ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } <-> ( u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } /\ ( u oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( u oR <_ d /\ ( u ` X ) = 0 ) ) ) )
767 766 simprbi
 |-  ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } -> ( u oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( u oR <_ d /\ ( u ` X ) = 0 ) ) )
768 767 simpld
 |-  ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } -> u oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) )
769 768 adantl
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> u oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) )
770 769 adantr
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) -> u oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) )
771 757 126 syl
 |-  ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } -> u Fn I )
772 771 adantl
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> u Fn I )
773 772 adantr
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) -> u Fn I )
774 23 adantr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
775 90 ffnd
 |-  ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } -> ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) Fn I )
776 774 775 syl
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) Fn I )
777 776 adantr
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) -> ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) Fn I )
778 17 ad3antrrr
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) -> I e. _V )
779 eqidd
 |-  ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) /\ i e. I ) -> ( u ` i ) = ( u ` i ) )
780 eqidd
 |-  ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) /\ i e. I ) -> ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` i ) = ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` i ) )
781 773 777 778 778 74 779 780 ofrfval
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) -> ( u oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) <-> A. i e. I ( u ` i ) <_ ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` i ) ) )
782 770 781 mpbid
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) -> A. i e. I ( u ` i ) <_ ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` i ) )
783 782 r19.21bi
 |-  ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) /\ i e. I ) -> ( u ` i ) <_ ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` i ) )
784 783 adantr
 |-  ( ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) /\ i e. I ) /\ i =/= X ) -> ( u ` i ) <_ ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` i ) )
785 67 ad3antrrr
 |-  ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) /\ i =/= X ) -> d Fn I )
786 71 a1i
 |-  ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) /\ i =/= X ) -> ( y e. I |-> if ( y = X , 1 , 0 ) ) Fn I )
787 17 ad4antr
 |-  ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) /\ i =/= X ) -> I e. _V )
788 eqidd
 |-  ( ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) /\ i =/= X ) /\ i e. I ) -> ( d ` i ) = ( d ` i ) )
789 80 adantl
 |-  ( ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) /\ i =/= X ) /\ i e. I ) -> ( ( y e. I |-> if ( y = X , 1 , 0 ) ) ` i ) = if ( i = X , 1 , 0 ) )
790 785 786 787 787 74 788 789 ofval
 |-  ( ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) /\ i =/= X ) /\ i e. I ) -> ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` i ) = ( ( d ` i ) + if ( i = X , 1 , 0 ) ) )
791 790 an32s
 |-  ( ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) /\ i e. I ) /\ i =/= X ) -> ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` i ) = ( ( d ` i ) + if ( i = X , 1 , 0 ) ) )
792 160 adantl
 |-  ( ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) /\ i e. I ) /\ i =/= X ) -> if ( i = X , 1 , 0 ) = 0 )
793 792 oveq2d
 |-  ( ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) /\ i e. I ) /\ i =/= X ) -> ( ( d ` i ) + if ( i = X , 1 , 0 ) ) = ( ( d ` i ) + 0 ) )
794 31 ad2antrr
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) -> d : I --> NN0 )
795 794 ffvelcdmda
 |-  ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) /\ i e. I ) -> ( d ` i ) e. NN0 )
796 795 adantr
 |-  ( ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) /\ i e. I ) /\ i =/= X ) -> ( d ` i ) e. NN0 )
797 796 nn0cnd
 |-  ( ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) /\ i e. I ) /\ i =/= X ) -> ( d ` i ) e. CC )
798 797 addridd
 |-  ( ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) /\ i e. I ) /\ i =/= X ) -> ( ( d ` i ) + 0 ) = ( d ` i ) )
799 791 793 798 3eqtrd
 |-  ( ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) /\ i e. I ) /\ i =/= X ) -> ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` i ) = ( d ` i ) )
800 784 799 breqtrd
 |-  ( ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) /\ i e. I ) /\ i =/= X ) -> ( u ` i ) <_ ( d ` i ) )
801 simpr
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) -> ( u ` X ) = 0 )
802 31 adantr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> d : I --> NN0 )
803 802 762 ffvelcdmd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> ( d ` X ) e. NN0 )
804 803 nn0ge0d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> 0 <_ ( d ` X ) )
805 804 adantr
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) -> 0 <_ ( d ` X ) )
806 801 805 eqbrtrd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) -> ( u ` X ) <_ ( d ` X ) )
807 806 adantr
 |-  ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) /\ i e. I ) -> ( u ` X ) <_ ( d ` X ) )
808 177 800 807 pm2.61ne
 |-  ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) /\ i e. I ) -> ( u ` i ) <_ ( d ` i ) )
809 808 ralrimiva
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) -> A. i e. I ( u ` i ) <_ ( d ` i ) )
810 67 adantr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> d Fn I )
811 810 adantr
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) -> d Fn I )
812 eqidd
 |-  ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) /\ i e. I ) -> ( d ` i ) = ( d ` i ) )
813 773 811 778 778 74 779 812 ofrfval
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) -> ( u oR <_ d <-> A. i e. I ( u ` i ) <_ ( d ` i ) ) )
814 809 813 mpbird
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ ( u ` X ) = 0 ) -> u oR <_ d )
815 814 ex
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> ( ( u ` X ) = 0 -> u oR <_ d ) )
816 767 simprd
 |-  ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } -> -. ( u oR <_ d /\ ( u ` X ) = 0 ) )
817 816 adantl
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> -. ( u oR <_ d /\ ( u ` X ) = 0 ) )
818 imnan
 |-  ( ( u oR <_ d -> -. ( u ` X ) = 0 ) <-> -. ( u oR <_ d /\ ( u ` X ) = 0 ) )
819 817 818 sylibr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> ( u oR <_ d -> -. ( u ` X ) = 0 ) )
820 819 con2d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> ( ( u ` X ) = 0 -> -. u oR <_ d ) )
821 815 820 pm2.65d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> -. ( u ` X ) = 0 )
822 821 neqned
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> ( u ` X ) =/= 0 )
823 763 822 193 sylanbrc
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> ( u ` X ) e. NN )
824 823 nnge1d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> 1 <_ ( u ` X ) )
825 824 adantr
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ i e. I ) -> 1 <_ ( u ` X ) )
826 175 breq2d
 |-  ( i = X -> ( 1 <_ ( u ` i ) <-> 1 <_ ( u ` X ) ) )
827 825 826 syl5ibrcom
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ i e. I ) -> ( i = X -> 1 <_ ( u ` i ) ) )
828 827 imp
 |-  ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ i e. I ) /\ i = X ) -> 1 <_ ( u ` i ) )
829 761 ffvelcdmda
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ i e. I ) -> ( u ` i ) e. NN0 )
830 829 nn0ge0d
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ i e. I ) -> 0 <_ ( u ` i ) )
831 830 adantr
 |-  ( ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ i e. I ) /\ -. i = X ) -> 0 <_ ( u ` i ) )
832 828 831 ifpimpda
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ i e. I ) -> if- ( i = X , 1 <_ ( u ` i ) , 0 <_ ( u ` i ) ) )
833 brif1
 |-  ( if ( i = X , 1 , 0 ) <_ ( u ` i ) <-> if- ( i = X , 1 <_ ( u ` i ) , 0 <_ ( u ` i ) ) )
834 832 833 sylibr
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ i e. I ) -> if ( i = X , 1 , 0 ) <_ ( u ` i ) )
835 834 ralrimiva
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> A. i e. I if ( i = X , 1 , 0 ) <_ ( u ` i ) )
836 71 a1i
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> ( y e. I |-> if ( y = X , 1 , 0 ) ) Fn I )
837 17 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> I e. _V )
838 80 adantl
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ i e. I ) -> ( ( y e. I |-> if ( y = X , 1 , 0 ) ) ` i ) = if ( i = X , 1 , 0 ) )
839 eqidd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ i e. I ) -> ( u ` i ) = ( u ` i ) )
840 836 772 837 837 74 838 839 ofrfval
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> ( ( y e. I |-> if ( y = X , 1 , 0 ) ) oR <_ u <-> A. i e. I if ( i = X , 1 , 0 ) <_ ( u ` i ) ) )
841 835 840 mpbird
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> ( y e. I |-> if ( y = X , 1 , 0 ) ) oR <_ u )
842 18 psrbagcon
 |-  ( ( u e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } /\ ( y e. I |-> if ( y = X , 1 , 0 ) ) : I --> NN0 /\ ( y e. I |-> if ( y = X , 1 , 0 ) ) oR <_ u ) -> ( ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } /\ ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oR <_ u ) )
843 758 759 841 842 syl3anc
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> ( ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } /\ ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oR <_ u ) )
844 843 simpld
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } )
845 eqidd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ i e. I ) -> ( d ` i ) = ( d ` i ) )
846 810 836 837 837 74 845 838 ofval
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ i e. I ) -> ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` i ) = ( ( d ` i ) + if ( i = X , 1 , 0 ) ) )
847 772 776 837 837 74 839 846 ofrfval
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> ( u oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) <-> A. i e. I ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) ) )
848 769 847 mpbid
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> A. i e. I ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) )
849 848 r19.21bi
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ i e. I ) -> ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) )
850 829 nn0red
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ i e. I ) -> ( u ` i ) e. RR )
851 62 a1i
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ i e. I ) -> if ( i = X , 1 , 0 ) e. RR )
852 802 ffvelcdmda
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ i e. I ) -> ( d ` i ) e. NN0 )
853 852 nn0red
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ i e. I ) -> ( d ` i ) e. RR )
854 850 851 853 lesubaddd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ i e. I ) -> ( ( ( u ` i ) - if ( i = X , 1 , 0 ) ) <_ ( d ` i ) <-> ( u ` i ) <_ ( ( d ` i ) + if ( i = X , 1 , 0 ) ) ) )
855 849 854 mpbird
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ i e. I ) -> ( ( u ` i ) - if ( i = X , 1 , 0 ) ) <_ ( d ` i ) )
856 855 ralrimiva
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> A. i e. I ( ( u ` i ) - if ( i = X , 1 , 0 ) ) <_ ( d ` i ) )
857 772 836 837 837 74 offn
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) Fn I )
858 772 836 837 837 74 839 838 ofval
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ i e. I ) -> ( ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ` i ) = ( ( u ` i ) - if ( i = X , 1 , 0 ) ) )
859 857 810 837 837 74 858 845 ofrfval
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> ( ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oR <_ d <-> A. i e. I ( ( u ` i ) - if ( i = X , 1 , 0 ) ) <_ ( d ` i ) ) )
860 856 859 mpbird
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oR <_ d )
861 756 844 860 elrabd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } )
862 829 nn0cnd
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ i e. I ) -> ( u ` i ) e. CC )
863 239 a1i
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ i e. I ) -> if ( i = X , 1 , 0 ) e. CC )
864 862 863 npcand
 |-  ( ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) /\ i e. I ) -> ( ( ( u ` i ) - if ( i = X , 1 , 0 ) ) + if ( i = X , 1 , 0 ) ) = ( u ` i ) )
865 864 mpteq2dva
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> ( i e. I |-> ( ( ( u ` i ) - if ( i = X , 1 , 0 ) ) + if ( i = X , 1 , 0 ) ) ) = ( i e. I |-> ( u ` i ) ) )
866 857 836 837 837 74 858 838 offval
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> ( ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) = ( i e. I |-> ( ( ( u ` i ) - if ( i = X , 1 , 0 ) ) + if ( i = X , 1 , 0 ) ) ) )
867 761 feqmptd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> u = ( i e. I |-> ( u ` i ) ) )
868 865 866 867 3eqtr4rd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) -> u = ( ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) )
869 oveq1
 |-  ( m = ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) = ( ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) )
870 869 eqeq2d
 |-  ( m = ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) -> ( u = ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) <-> u = ( ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) )
871 755 861 868 870 rspceb2dv
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( E. m e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } u = ( m oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) <-> u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) )
872 456 720 871 3bitrd
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) <-> u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } ) )
873 872 eqrdv
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) = { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) } )
874 difrab
 |-  ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) = { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) /\ -. ( k oR <_ d /\ ( k ` X ) = 0 ) ) }
875 873 874 eqtr4di
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) = ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) )
876 difssd
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) C_ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } )
877 875 876 eqsstrd
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) C_ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } )
878 704 877 115 fmptssfisupp
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) finSupp ( 0g ` R ) )
879 difss
 |-  ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) C_ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d }
880 disjdif
 |-  ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } i^i ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) = (/)
881 ssdisj
 |-  ( ( ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) C_ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } /\ ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } i^i ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) = (/) ) -> ( ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) i^i ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) = (/) )
882 879 880 881 mp2an
 |-  ( ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) i^i ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) ) = (/)
883 882 ineqcomi
 |-  ( ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) i^i ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) ) = (/)
884 883 a1i
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) i^i ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) ) = (/) )
885 281 101 psdmullem
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) u. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) ) = ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) )
886 875 885 eqtr4d
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) = ( ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) u. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) ) )
887 9 106 10 13 697 700 878 884 886 gsumsplit2
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( R gsum ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) = ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) )
888 693 887 eqtrd
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( R gsum ( ( b e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } |-> ( ( ( ( ( I mPSDer R ) ` X ) ` F ) ` b ) ( .r ` R ) ( G ` ( d oF - b ) ) ) ) o. ( u e. ( oF + " ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } X. { ( y e. I |-> if ( y = X , 1 , 0 ) ) } ) ) |-> ( u oF - ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) ) ) = ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) )
889 427 593 888 3eqtrd
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( ( ( ( I mPSDer R ) ` X ) ` F ) .x. G ) ` d ) = ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) )
890 417 adantr
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( ( I mPSDer R ) ` X ) ` G ) e. B )
891 1 2 37 4 18 387 890 14 psrmulval
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( F .x. ( ( ( I mPSDer R ) ` X ) ` G ) ) ` d ) = ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } |-> ( ( F ` u ) ( .r ` R ) ( ( ( ( I mPSDer R ) ` X ) ` G ) ` ( d oF - u ) ) ) ) ) )
892 8 ad2antrr
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> G e. B )
893 1 2 18 287 892 249 psdcoef
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( ( ( I mPSDer R ) ` X ) ` G ) ` ( d oF - u ) ) = ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( G ` ( ( d oF - u ) oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) ) )
894 269 fveq2d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( G ` ( ( d oF - u ) oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) = ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) )
895 894 oveq2d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( G ` ( ( d oF - u ) oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) ) ) = ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) )
896 893 895 eqtrd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( ( ( I mPSDer R ) ` X ) ` G ) ` ( d oF - u ) ) = ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) )
897 896 oveq2d
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( F ` u ) ( .r ` R ) ( ( ( ( I mPSDer R ) ` X ) ` G ) ` ( d oF - u ) ) ) = ( ( F ` u ) ( .r ` R ) ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) )
898 311 nn0zd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( ( d oF - u ) ` X ) + 1 ) e. ZZ )
899 9 26 37 mulgass3
 |-  ( ( R e. Ring /\ ( ( ( ( d oF - u ) ` X ) + 1 ) e. ZZ /\ ( F ` u ) e. ( Base ` R ) /\ ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) e. ( Base ` R ) ) ) -> ( ( F ` u ) ( .r ` R ) ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) = ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) )
900 226 898 230 273 899 syl13anc
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( F ` u ) ( .r ` R ) ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) = ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) )
901 897 900 eqtrd
 |-  ( ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) /\ u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) -> ( ( F ` u ) ( .r ` R ) ( ( ( ( I mPSDer R ) ` X ) ` G ) ` ( d oF - u ) ) ) = ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) )
902 901 mpteq2dva
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } |-> ( ( F ` u ) ( .r ` R ) ( ( ( ( I mPSDer R ) ` X ) ` G ) ` ( d oF - u ) ) ) ) = ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) )
903 902 oveq2d
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } |-> ( ( F ` u ) ( .r ` R ) ( ( ( ( I mPSDer R ) ` X ) ` G ) ` ( d oF - u ) ) ) ) ) = ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) )
904 9 10 13 223 323 277 284 gsummptfidmsplit
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) = ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) )
905 891 903 904 3eqtrd
 |-  ( ( ph /\ d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } ) -> ( ( F .x. ( ( ( I mPSDer R ) ` X ) ` G ) ) ` d ) = ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) )
906 421 423 424 424 425 889 905 offval
 |-  ( ph -> ( ( ( ( ( I mPSDer R ) ` X ) ` F ) .x. G ) oF ( +g ` R ) ( F .x. ( ( ( I mPSDer R ) ` X ) ` G ) ) ) = ( d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } |-> ( ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) ( +g ` R ) ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) ) ) )
907 419 906 eqtrd
 |-  ( ph -> ( ( ( ( ( I mPSDer R ) ` X ) ` F ) .x. G ) .+ ( F .x. ( ( ( I mPSDer R ) ` X ) ` G ) ) ) = ( d e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } |-> ( ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( u ` X ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) ( +g ` R ) ( ( R gsum ( u e. ( { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | k oR <_ d } \ { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } ) |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ( +g ` R ) ( R gsum ( u e. { k e. { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin } | ( k oR <_ d /\ ( k ` X ) = 0 ) } |-> ( ( ( ( d oF - u ) ` X ) + 1 ) ( .g ` R ) ( ( F ` u ) ( .r ` R ) ( G ` ( ( d oF + ( y e. I |-> if ( y = X , 1 , 0 ) ) ) oF - u ) ) ) ) ) ) ) ) ) )
908 411 413 907 3eqtr4d
 |-  ( ph -> ( ( ( I mPSDer R ) ` X ) ` ( F .x. G ) ) = ( ( ( ( ( I mPSDer R ) ` X ) ` F ) .x. G ) .+ ( F .x. ( ( ( I mPSDer R ) ` X ) ` G ) ) ) )