MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  cantnflem1 Structured version   Visualization version   Unicode version

Theorem cantnflem1 8586
Description: Lemma for cantnf 8590. This part of the proof is showing uniqueness of the Cantor normal form. We already know that the relation  T is a strict order, but we haven't shown it is a well-order yet. But being a strict order is enough to show that two distinct  F ,  G are  T -related as  F  <  G or  G  <  F, and WLOG assuming that  F  <  G, we show that CNF respects this order and maps these two to different ordinals. (Contributed by Mario Carneiro, 28-May-2015.) (Revised by AV, 2-Jul-2019.)
Hypotheses
Ref Expression
cantnfs.s  |-  S  =  dom  ( A CNF  B
)
cantnfs.a  |-  ( ph  ->  A  e.  On )
cantnfs.b  |-  ( ph  ->  B  e.  On )
oemapval.t  |-  T  =  { <. x ,  y
>.  |  E. z  e.  B  ( (
x `  z )  e.  ( y `  z
)  /\  A. w  e.  B  ( z  e.  w  ->  ( x `
 w )  =  ( y `  w
) ) ) }
oemapval.f  |-  ( ph  ->  F  e.  S )
oemapval.g  |-  ( ph  ->  G  e.  S )
oemapvali.r  |-  ( ph  ->  F T G )
oemapvali.x  |-  X  = 
U. { c  e.  B  |  ( F `
 c )  e.  ( G `  c
) }
cantnflem1.o  |-  O  = OrdIso
(  _E  ,  ( G supp  (/) ) )
cantnflem1.h  |-  H  = seq𝜔 ( ( k  e.  _V ,  z  e.  _V  |->  ( ( ( A  ^o  ( O `  k ) )  .o  ( G `  ( O `  k )
) )  +o  z
) ) ,  (/) )
Assertion
Ref Expression
cantnflem1  |-  ( ph  ->  ( ( A CNF  B
) `  F )  e.  ( ( A CNF  B
) `  G )
)
Distinct variable groups:    k, c, w, x, y, z, B    A, c, k, w, x, y, z    T, c, k    k, F, w, x, y, z    S, c, k, x, y, z    G, c, k, w, x, y, z    x, H, y    k, O, w, x, y, z    ph, k, x, y, z    k, X, w, x, y, z    F, c    ph, c
Allowed substitution hints:    ph( w)    S( w)    T( x, y, z, w)    H( z, w, k, c)    O( c)    X( c)

Proof of Theorem cantnflem1
Dummy variable  u is distinct from all other variables.
StepHypRef Expression
1 ovex 6678 . . . . . 6  |-  ( G supp  (/) )  e.  _V
2 cantnflem1.o . . . . . . 7  |-  O  = OrdIso
(  _E  ,  ( G supp  (/) ) )
32oion 8441 . . . . . 6  |-  ( ( G supp  (/) )  e.  _V  ->  dom  O  e.  On )
41, 3mp1i 13 . . . . 5  |-  ( ph  ->  dom  O  e.  On )
5 uniexg 6955 . . . . 5  |-  ( dom 
O  e.  On  ->  U.
dom  O  e.  _V )
6 sucidg 5803 . . . . 5  |-  ( U. dom  O  e.  _V  ->  U.
dom  O  e.  suc  U.
dom  O )
74, 5, 63syl 18 . . . 4  |-  ( ph  ->  U. dom  O  e. 
suc  U. dom  O )
8 cantnfs.s . . . . . . . . . 10  |-  S  =  dom  ( A CNF  B
)
9 cantnfs.a . . . . . . . . . 10  |-  ( ph  ->  A  e.  On )
10 cantnfs.b . . . . . . . . . 10  |-  ( ph  ->  B  e.  On )
11 oemapval.t . . . . . . . . . 10  |-  T  =  { <. x ,  y
>.  |  E. z  e.  B  ( (
x `  z )  e.  ( y `  z
)  /\  A. w  e.  B  ( z  e.  w  ->  ( x `
 w )  =  ( y `  w
) ) ) }
12 oemapval.f . . . . . . . . . 10  |-  ( ph  ->  F  e.  S )
13 oemapval.g . . . . . . . . . 10  |-  ( ph  ->  G  e.  S )
14 oemapvali.r . . . . . . . . . 10  |-  ( ph  ->  F T G )
15 oemapvali.x . . . . . . . . . 10  |-  X  = 
U. { c  e.  B  |  ( F `
 c )  e.  ( G `  c
) }
168, 9, 10, 11, 12, 13, 14, 15cantnflem1a 8582 . . . . . . . . 9  |-  ( ph  ->  X  e.  ( G supp  (/) ) )
17 n0i 3920 . . . . . . . . 9  |-  ( X  e.  ( G supp  (/) )  ->  -.  ( G supp  (/) )  =  (/) )
1816, 17syl 17 . . . . . . . 8  |-  ( ph  ->  -.  ( G supp  (/) )  =  (/) )
19 ovexd 6680 . . . . . . . . . 10  |-  ( ph  ->  ( G supp  (/) )  e. 
_V )
208, 9, 10, 2, 13cantnfcl 8564 . . . . . . . . . . 11  |-  ( ph  ->  (  _E  We  ( G supp 
(/) )  /\  dom  O  e.  om ) )
2120simpld 475 . . . . . . . . . 10  |-  ( ph  ->  _E  We  ( G supp  (/) ) )
222oien 8443 . . . . . . . . . 10  |-  ( ( ( G supp  (/) )  e. 
_V  /\  _E  We  ( G supp  (/) ) )  ->  dom  O  ~~  ( G supp  (/) ) )
2319, 21, 22syl2anc 693 . . . . . . . . 9  |-  ( ph  ->  dom  O  ~~  ( G supp 
(/) ) )
24 breq1 4656 . . . . . . . . . 10  |-  ( dom 
O  =  (/)  ->  ( dom  O  ~~  ( G supp  (/) )  <->  (/)  ~~  ( G supp  (/) ) ) )
25 ensymb 8004 . . . . . . . . . . 11  |-  ( (/)  ~~  ( G supp  (/) )  <->  ( G supp  (/) )  ~~  (/) )
26 en0 8019 . . . . . . . . . . 11  |-  ( ( G supp  (/) )  ~~  (/)  <->  ( G supp  (/) )  =  (/) )
2725, 26bitri 264 . . . . . . . . . 10  |-  ( (/)  ~~  ( G supp  (/) )  <->  ( G supp  (/) )  =  (/) )
2824, 27syl6bb 276 . . . . . . . . 9  |-  ( dom 
O  =  (/)  ->  ( dom  O  ~~  ( G supp  (/) )  <->  ( G supp  (/) )  =  (/) ) )
2923, 28syl5ibcom 235 . . . . . . . 8  |-  ( ph  ->  ( dom  O  =  (/)  ->  ( G supp  (/) )  =  (/) ) )
3018, 29mtod 189 . . . . . . 7  |-  ( ph  ->  -.  dom  O  =  (/) )
3120simprd 479 . . . . . . . 8  |-  ( ph  ->  dom  O  e.  om )
32 nnlim 7078 . . . . . . . 8  |-  ( dom 
O  e.  om  ->  -. 
Lim  dom  O )
3331, 32syl 17 . . . . . . 7  |-  ( ph  ->  -.  Lim  dom  O
)
34 ioran 511 . . . . . . 7  |-  ( -.  ( dom  O  =  (/)  \/  Lim  dom  O
)  <->  ( -.  dom  O  =  (/)  /\  -.  Lim  dom 
O ) )
3530, 33, 34sylanbrc 698 . . . . . 6  |-  ( ph  ->  -.  ( dom  O  =  (/)  \/  Lim  dom  O ) )
362oicl 8434 . . . . . . 7  |-  Ord  dom  O
37 unizlim 5844 . . . . . . 7  |-  ( Ord 
dom  O  ->  ( dom 
O  =  U. dom  O  <-> 
( dom  O  =  (/) 
\/  Lim  dom  O ) ) )
3836, 37mp1i 13 . . . . . 6  |-  ( ph  ->  ( dom  O  = 
U. dom  O  <->  ( dom  O  =  (/)  \/  Lim  dom 
O ) ) )
3935, 38mtbird 315 . . . . 5  |-  ( ph  ->  -.  dom  O  = 
U. dom  O )
40 orduniorsuc 7030 . . . . . . 7  |-  ( Ord 
dom  O  ->  ( dom 
O  =  U. dom  O  \/  dom  O  =  suc  U. dom  O
) )
4136, 40mp1i 13 . . . . . 6  |-  ( ph  ->  ( dom  O  = 
U. dom  O  \/  dom  O  =  suc  U. dom  O ) )
4241ord 392 . . . . 5  |-  ( ph  ->  ( -.  dom  O  =  U. dom  O  ->  dom  O  =  suc  U. dom  O ) )
4339, 42mpd 15 . . . 4  |-  ( ph  ->  dom  O  =  suc  U.
dom  O )
447, 43eleqtrrd 2704 . . 3  |-  ( ph  ->  U. dom  O  e. 
dom  O )
452oiiso 8442 . . . . . . . 8  |-  ( ( ( G supp  (/) )  e. 
_V  /\  _E  We  ( G supp  (/) ) )  ->  O  Isom  _E  ,  _E  ( dom  O , 
( G supp  (/) ) ) )
4619, 21, 45syl2anc 693 . . . . . . 7  |-  ( ph  ->  O  Isom  _E  ,  _E  ( dom  O ,  ( G supp  (/) ) ) )
47 isof1o 6573 . . . . . . 7  |-  ( O 
Isom  _E  ,  _E  ( dom  O ,  ( G supp  (/) ) )  ->  O : dom  O -1-1-onto-> ( G supp  (/) ) )
4846, 47syl 17 . . . . . 6  |-  ( ph  ->  O : dom  O -1-1-onto-> ( G supp 
(/) ) )
49 f1ocnv 6149 . . . . . 6  |-  ( O : dom  O -1-1-onto-> ( G supp  (/) )  ->  `' O : ( G supp  (/) ) -1-1-onto-> dom  O
)
50 f1of 6137 . . . . . 6  |-  ( `' O : ( G supp  (/) ) -1-1-onto-> dom  O  ->  `' O : ( G supp  (/) ) --> dom 
O )
5148, 49, 503syl 18 . . . . 5  |-  ( ph  ->  `' O : ( G supp  (/) ) --> dom  O )
5251, 16ffvelrnd 6360 . . . 4  |-  ( ph  ->  ( `' O `  X )  e.  dom  O )
53 elssuni 4467 . . . 4  |-  ( ( `' O `  X )  e.  dom  O  -> 
( `' O `  X )  C_  U. dom  O )
5452, 53syl 17 . . 3  |-  ( ph  ->  ( `' O `  X )  C_  U. dom  O )
5543, 31eqeltrrd 2702 . . . . 5  |-  ( ph  ->  suc  U. dom  O  e.  om )
56 peano2b 7081 . . . . 5  |-  ( U. dom  O  e.  om  <->  suc  U. dom  O  e.  om )
5755, 56sylibr 224 . . . 4  |-  ( ph  ->  U. dom  O  e. 
om )
58 eleq1 2689 . . . . . . . 8  |-  ( y  =  U. dom  O  ->  ( y  e.  dom  O  <->  U. dom  O  e.  dom  O ) )
59 sseq2 3627 . . . . . . . 8  |-  ( y  =  U. dom  O  ->  ( ( `' O `  X )  C_  y  <->  ( `' O `  X ) 
C_  U. dom  O ) )
6058, 59anbi12d 747 . . . . . . 7  |-  ( y  =  U. dom  O  ->  ( ( y  e. 
dom  O  /\  ( `' O `  X ) 
C_  y )  <->  ( U. dom  O  e.  dom  O  /\  ( `' O `  X )  C_  U. dom  O ) ) )
61 fveq2 6191 . . . . . . . . . . . 12  |-  ( y  =  U. dom  O  ->  ( O `  y
)  =  ( O `
 U. dom  O
) )
6261sseq2d 3633 . . . . . . . . . . 11  |-  ( y  =  U. dom  O  ->  ( x  C_  ( O `  y )  <->  x 
C_  ( O `  U. dom  O ) ) )
6362ifbid 4108 . . . . . . . . . 10  |-  ( y  =  U. dom  O  ->  if ( x  C_  ( O `  y ) ,  ( F `  x ) ,  (/) )  =  if (
x  C_  ( O `  U. dom  O ) ,  ( F `  x ) ,  (/) ) )
6463mpteq2dv 4745 . . . . . . . . 9  |-  ( y  =  U. dom  O  ->  ( x  e.  B  |->  if ( x  C_  ( O `  y ) ,  ( F `  x ) ,  (/) ) )  =  ( x  e.  B  |->  if ( x  C_  ( O `  U. dom  O
) ,  ( F `
 x ) ,  (/) ) ) )
6564fveq2d 6195 . . . . . . . 8  |-  ( y  =  U. dom  O  ->  ( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  y ) ,  ( F `  x ) ,  (/) ) ) )  =  ( ( A CNF 
B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  U. dom  O
) ,  ( F `
 x ) ,  (/) ) ) ) )
66 suceq 5790 . . . . . . . . 9  |-  ( y  =  U. dom  O  ->  suc  y  =  suc  U.
dom  O )
6766fveq2d 6195 . . . . . . . 8  |-  ( y  =  U. dom  O  ->  ( H `  suc  y )  =  ( H `  suc  U. dom  O ) )
6865, 67eleq12d 2695 . . . . . . 7  |-  ( y  =  U. dom  O  ->  ( ( ( A CNF 
B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  y ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  y )  <->  ( ( A CNF  B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  U. dom  O
) ,  ( F `
 x ) ,  (/) ) ) )  e.  ( H `  suc  U.
dom  O ) ) )
6960, 68imbi12d 334 . . . . . 6  |-  ( y  =  U. dom  O  ->  ( ( ( y  e.  dom  O  /\  ( `' O `  X ) 
C_  y )  -> 
( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  y ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  y ) )  <->  ( ( U. dom  O  e.  dom  O  /\  ( `' O `  X )  C_  U. dom  O )  ->  ( ( A CNF  B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  U. dom  O
) ,  ( F `
 x ) ,  (/) ) ) )  e.  ( H `  suc  U.
dom  O ) ) ) )
7069imbi2d 330 . . . . 5  |-  ( y  =  U. dom  O  ->  ( ( ph  ->  ( ( y  e.  dom  O  /\  ( `' O `  X )  C_  y
)  ->  ( ( A CNF  B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  y ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  y ) ) )  <-> 
( ph  ->  ( ( U. dom  O  e. 
dom  O  /\  ( `' O `  X ) 
C_  U. dom  O )  ->  ( ( A CNF 
B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  U. dom  O
) ,  ( F `
 x ) ,  (/) ) ) )  e.  ( H `  suc  U.
dom  O ) ) ) ) )
71 eleq1 2689 . . . . . . . 8  |-  ( y  =  (/)  ->  ( y  e.  dom  O  <->  (/)  e.  dom  O ) )
72 sseq2 3627 . . . . . . . 8  |-  ( y  =  (/)  ->  ( ( `' O `  X ) 
C_  y  <->  ( `' O `  X )  C_  (/) ) )
7371, 72anbi12d 747 . . . . . . 7  |-  ( y  =  (/)  ->  ( ( y  e.  dom  O  /\  ( `' O `  X )  C_  y
)  <->  ( (/)  e.  dom  O  /\  ( `' O `  X )  C_  (/) ) ) )
74 fveq2 6191 . . . . . . . . . . . 12  |-  ( y  =  (/)  ->  ( O `
 y )  =  ( O `  (/) ) )
7574sseq2d 3633 . . . . . . . . . . 11  |-  ( y  =  (/)  ->  ( x 
C_  ( O `  y )  <->  x  C_  ( O `  (/) ) ) )
7675ifbid 4108 . . . . . . . . . 10  |-  ( y  =  (/)  ->  if ( x  C_  ( O `  y ) ,  ( F `  x ) ,  (/) )  =  if ( x  C_  ( O `  (/) ) ,  ( F `  x
) ,  (/) ) )
7776mpteq2dv 4745 . . . . . . . . 9  |-  ( y  =  (/)  ->  ( x  e.  B  |->  if ( x  C_  ( O `  y ) ,  ( F `  x ) ,  (/) ) )  =  ( x  e.  B  |->  if ( x  C_  ( O `  (/) ) ,  ( F `  x
) ,  (/) ) ) )
7877fveq2d 6195 . . . . . . . 8  |-  ( y  =  (/)  ->  ( ( A CNF  B ) `  ( x  e.  B  |->  if ( x  C_  ( O `  y ) ,  ( F `  x ) ,  (/) ) ) )  =  ( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  (/) ) ,  ( F `  x ) ,  (/) ) ) ) )
79 suceq 5790 . . . . . . . . 9  |-  ( y  =  (/)  ->  suc  y  =  suc  (/) )
8079fveq2d 6195 . . . . . . . 8  |-  ( y  =  (/)  ->  ( H `
 suc  y )  =  ( H `  suc  (/) ) )
8178, 80eleq12d 2695 . . . . . . 7  |-  ( y  =  (/)  ->  ( ( ( A CNF  B ) `
 ( x  e.  B  |->  if ( x 
C_  ( O `  y ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  y )  <->  ( ( A CNF  B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  (/) ) ,  ( F `  x
) ,  (/) ) ) )  e.  ( H `
 suc  (/) ) ) )
8273, 81imbi12d 334 . . . . . 6  |-  ( y  =  (/)  ->  ( ( ( y  e.  dom  O  /\  ( `' O `  X )  C_  y
)  ->  ( ( A CNF  B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  y ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  y ) )  <->  ( ( (/) 
e.  dom  O  /\  ( `' O `  X ) 
C_  (/) )  ->  (
( A CNF  B ) `
 ( x  e.  B  |->  if ( x 
C_  ( O `  (/) ) ,  ( F `
 x ) ,  (/) ) ) )  e.  ( H `  suc  (/) ) ) ) )
83 eleq1 2689 . . . . . . . 8  |-  ( y  =  u  ->  (
y  e.  dom  O  <->  u  e.  dom  O ) )
84 sseq2 3627 . . . . . . . 8  |-  ( y  =  u  ->  (
( `' O `  X )  C_  y  <->  ( `' O `  X ) 
C_  u ) )
8583, 84anbi12d 747 . . . . . . 7  |-  ( y  =  u  ->  (
( y  e.  dom  O  /\  ( `' O `  X )  C_  y
)  <->  ( u  e. 
dom  O  /\  ( `' O `  X ) 
C_  u ) ) )
86 fveq2 6191 . . . . . . . . . . . 12  |-  ( y  =  u  ->  ( O `  y )  =  ( O `  u ) )
8786sseq2d 3633 . . . . . . . . . . 11  |-  ( y  =  u  ->  (
x  C_  ( O `  y )  <->  x  C_  ( O `  u )
) )
8887ifbid 4108 . . . . . . . . . 10  |-  ( y  =  u  ->  if ( x  C_  ( O `
 y ) ,  ( F `  x
) ,  (/) )  =  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) )
8988mpteq2dv 4745 . . . . . . . . 9  |-  ( y  =  u  ->  (
x  e.  B  |->  if ( x  C_  ( O `  y ) ,  ( F `  x ) ,  (/) ) )  =  ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) )
9089fveq2d 6195 . . . . . . . 8  |-  ( y  =  u  ->  (
( A CNF  B ) `
 ( x  e.  B  |->  if ( x 
C_  ( O `  y ) ,  ( F `  x ) ,  (/) ) ) )  =  ( ( A CNF 
B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) ) )
91 suceq 5790 . . . . . . . . 9  |-  ( y  =  u  ->  suc  y  =  suc  u )
9291fveq2d 6195 . . . . . . . 8  |-  ( y  =  u  ->  ( H `  suc  y )  =  ( H `  suc  u ) )
9390, 92eleq12d 2695 . . . . . . 7  |-  ( y  =  u  ->  (
( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  y ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  y )  <->  ( ( A CNF  B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  u ) ) )
9485, 93imbi12d 334 . . . . . 6  |-  ( y  =  u  ->  (
( ( y  e. 
dom  O  /\  ( `' O `  X ) 
C_  y )  -> 
( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  y ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  y ) )  <->  ( (
u  e.  dom  O  /\  ( `' O `  X )  C_  u
)  ->  ( ( A CNF  B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  u ) ) ) )
95 eleq1 2689 . . . . . . . 8  |-  ( y  =  suc  u  -> 
( y  e.  dom  O  <->  suc  u  e.  dom  O
) )
96 sseq2 3627 . . . . . . . 8  |-  ( y  =  suc  u  -> 
( ( `' O `  X )  C_  y  <->  ( `' O `  X ) 
C_  suc  u )
)
9795, 96anbi12d 747 . . . . . . 7  |-  ( y  =  suc  u  -> 
( ( y  e. 
dom  O  /\  ( `' O `  X ) 
C_  y )  <->  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  suc  u )
) )
98 fveq2 6191 . . . . . . . . . . . 12  |-  ( y  =  suc  u  -> 
( O `  y
)  =  ( O `
 suc  u )
)
9998sseq2d 3633 . . . . . . . . . . 11  |-  ( y  =  suc  u  -> 
( x  C_  ( O `  y )  <->  x 
C_  ( O `  suc  u ) ) )
10099ifbid 4108 . . . . . . . . . 10  |-  ( y  =  suc  u  ->  if ( x  C_  ( O `  y ) ,  ( F `  x ) ,  (/) )  =  if (
x  C_  ( O `  suc  u ) ,  ( F `  x
) ,  (/) ) )
101100mpteq2dv 4745 . . . . . . . . 9  |-  ( y  =  suc  u  -> 
( x  e.  B  |->  if ( x  C_  ( O `  y ) ,  ( F `  x ) ,  (/) ) )  =  ( x  e.  B  |->  if ( x  C_  ( O `  suc  u ) ,  ( F `  x ) ,  (/) ) ) )
102101fveq2d 6195 . . . . . . . 8  |-  ( y  =  suc  u  -> 
( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  y ) ,  ( F `  x ) ,  (/) ) ) )  =  ( ( A CNF 
B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  suc  u ) ,  ( F `  x ) ,  (/) ) ) ) )
103 suceq 5790 . . . . . . . . 9  |-  ( y  =  suc  u  ->  suc  y  =  suc  suc  u )
104103fveq2d 6195 . . . . . . . 8  |-  ( y  =  suc  u  -> 
( H `  suc  y )  =  ( H `  suc  suc  u ) )
105102, 104eleq12d 2695 . . . . . . 7  |-  ( y  =  suc  u  -> 
( ( ( A CNF 
B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  y ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  y )  <->  ( ( A CNF  B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  suc  u ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  suc  u ) ) )
10697, 105imbi12d 334 . . . . . 6  |-  ( y  =  suc  u  -> 
( ( ( y  e.  dom  O  /\  ( `' O `  X ) 
C_  y )  -> 
( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  y ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  y ) )  <->  ( ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  suc  u )  ->  (
( A CNF  B ) `
 ( x  e.  B  |->  if ( x 
C_  ( O `  suc  u ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  suc  u ) ) ) )
107 f1ocnvfv2 6533 . . . . . . . . . . . . 13  |-  ( ( O : dom  O -1-1-onto-> ( G supp 
(/) )  /\  X  e.  ( G supp  (/) ) )  ->  ( O `  ( `' O `  X ) )  =  X )
10848, 16, 107syl2anc 693 . . . . . . . . . . . 12  |-  ( ph  ->  ( O `  ( `' O `  X ) )  =  X )
109108sseq2d 3633 . . . . . . . . . . 11  |-  ( ph  ->  ( x  C_  ( O `  ( `' O `  X )
)  <->  x  C_  X ) )
110109ifbid 4108 . . . . . . . . . 10  |-  ( ph  ->  if ( x  C_  ( O `  ( `' O `  X ) ) ,  ( F `
 x ) ,  (/) )  =  if ( x  C_  X , 
( F `  x
) ,  (/) ) )
111110mpteq2dv 4745 . . . . . . . . 9  |-  ( ph  ->  ( x  e.  B  |->  if ( x  C_  ( O `  ( `' O `  X ) ) ,  ( F `
 x ) ,  (/) ) )  =  ( x  e.  B  |->  if ( x  C_  X ,  ( F `  x ) ,  (/) ) ) )
112111fveq2d 6195 . . . . . . . 8  |-  ( ph  ->  ( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  ( `' O `  X ) ) ,  ( F `  x
) ,  (/) ) ) )  =  ( ( A CNF  B ) `  ( x  e.  B  |->  if ( x  C_  X ,  ( F `  x ) ,  (/) ) ) ) )
113 cantnflem1.h . . . . . . . . 9  |-  H  = seq𝜔 ( ( k  e.  _V ,  z  e.  _V  |->  ( ( ( A  ^o  ( O `  k ) )  .o  ( G `  ( O `  k )
) )  +o  z
) ) ,  (/) )
1148, 9, 10, 11, 12, 13, 14, 15, 2, 113cantnflem1d 8585 . . . . . . . 8  |-  ( ph  ->  ( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  X , 
( F `  x
) ,  (/) ) ) )  e.  ( H `
 suc  ( `' O `  X )
) )
115112, 114eqeltrd 2701 . . . . . . 7  |-  ( ph  ->  ( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  ( `' O `  X ) ) ,  ( F `  x
) ,  (/) ) ) )  e.  ( H `
 suc  ( `' O `  X )
) )
116 ss0 3974 . . . . . . . . . . . . . 14  |-  ( ( `' O `  X ) 
C_  (/)  ->  ( `' O `  X )  =  (/) )
117116fveq2d 6195 . . . . . . . . . . . . 13  |-  ( ( `' O `  X ) 
C_  (/)  ->  ( O `  ( `' O `  X ) )  =  ( O `  (/) ) )
118117sseq2d 3633 . . . . . . . . . . . 12  |-  ( ( `' O `  X ) 
C_  (/)  ->  ( x  C_  ( O `  ( `' O `  X ) )  <->  x  C_  ( O `
 (/) ) ) )
119118ifbid 4108 . . . . . . . . . . 11  |-  ( ( `' O `  X ) 
C_  (/)  ->  if (
x  C_  ( O `  ( `' O `  X ) ) ,  ( F `  x
) ,  (/) )  =  if ( x  C_  ( O `  (/) ) ,  ( F `  x
) ,  (/) ) )
120119mpteq2dv 4745 . . . . . . . . . 10  |-  ( ( `' O `  X ) 
C_  (/)  ->  ( x  e.  B  |->  if ( x  C_  ( O `  ( `' O `  X ) ) ,  ( F `  x
) ,  (/) ) )  =  ( x  e.  B  |->  if ( x 
C_  ( O `  (/) ) ,  ( F `
 x ) ,  (/) ) ) )
121120fveq2d 6195 . . . . . . . . 9  |-  ( ( `' O `  X ) 
C_  (/)  ->  ( ( A CNF  B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  ( `' O `  X )
) ,  ( F `
 x ) ,  (/) ) ) )  =  ( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  (/) ) ,  ( F `  x ) ,  (/) ) ) ) )
122 suceq 5790 . . . . . . . . . . 11  |-  ( ( `' O `  X )  =  (/)  ->  suc  ( `' O `  X )  =  suc  (/) )
123116, 122syl 17 . . . . . . . . . 10  |-  ( ( `' O `  X ) 
C_  (/)  ->  suc  ( `' O `  X )  =  suc  (/) )
124123fveq2d 6195 . . . . . . . . 9  |-  ( ( `' O `  X ) 
C_  (/)  ->  ( H `  suc  ( `' O `  X ) )  =  ( H `  suc  (/) ) )
125121, 124eleq12d 2695 . . . . . . . 8  |-  ( ( `' O `  X ) 
C_  (/)  ->  ( (
( A CNF  B ) `
 ( x  e.  B  |->  if ( x 
C_  ( O `  ( `' O `  X ) ) ,  ( F `
 x ) ,  (/) ) ) )  e.  ( H `  suc  ( `' O `  X ) )  <->  ( ( A CNF 
B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  (/) ) ,  ( F `  x
) ,  (/) ) ) )  e.  ( H `
 suc  (/) ) ) )
126125adantl 482 . . . . . . 7  |-  ( (
(/)  e.  dom  O  /\  ( `' O `  X ) 
C_  (/) )  ->  (
( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  ( `' O `  X ) ) ,  ( F `  x
) ,  (/) ) ) )  e.  ( H `
 suc  ( `' O `  X )
)  <->  ( ( A CNF 
B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  (/) ) ,  ( F `  x
) ,  (/) ) ) )  e.  ( H `
 suc  (/) ) ) )
127115, 126syl5ibcom 235 . . . . . 6  |-  ( ph  ->  ( ( (/)  e.  dom  O  /\  ( `' O `  X )  C_  (/) )  -> 
( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  (/) ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  (/) ) ) )
128 ordelon 5747 . . . . . . . . . . . . 13  |-  ( ( Ord  dom  O  /\  ( `' O `  X )  e.  dom  O )  ->  ( `' O `  X )  e.  On )
12936, 52, 128sylancr 695 . . . . . . . . . . . 12  |-  ( ph  ->  ( `' O `  X )  e.  On )
130129adantr 481 . . . . . . . . . . 11  |-  ( (
ph  /\  suc  u  e. 
dom  O )  -> 
( `' O `  X )  e.  On )
13136a1i 11 . . . . . . . . . . . 12  |-  ( ph  ->  Ord  dom  O )
132 ordelon 5747 . . . . . . . . . . . 12  |-  ( ( Ord  dom  O  /\  suc  u  e.  dom  O
)  ->  suc  u  e.  On )
133131, 132sylan 488 . . . . . . . . . . 11  |-  ( (
ph  /\  suc  u  e. 
dom  O )  ->  suc  u  e.  On )
134 onsseleq 5765 . . . . . . . . . . 11  |-  ( ( ( `' O `  X )  e.  On  /\ 
suc  u  e.  On )  ->  ( ( `' O `  X ) 
C_  suc  u  <->  ( ( `' O `  X )  e.  suc  u  \/  ( `' O `  X )  =  suc  u ) ) )
135130, 133, 134syl2anc 693 . . . . . . . . . 10  |-  ( (
ph  /\  suc  u  e. 
dom  O )  -> 
( ( `' O `  X )  C_  suc  u 
<->  ( ( `' O `  X )  e.  suc  u  \/  ( `' O `  X )  =  suc  u ) ) )
136 sucelon 7017 . . . . . . . . . . . . . . 15  |-  ( u  e.  On  <->  suc  u  e.  On )
137133, 136sylibr 224 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  suc  u  e. 
dom  O )  ->  u  e.  On )
138 eloni 5733 . . . . . . . . . . . . . 14  |-  ( u  e.  On  ->  Ord  u )
139137, 138syl 17 . . . . . . . . . . . . 13  |-  ( (
ph  /\  suc  u  e. 
dom  O )  ->  Ord  u )
140 ordsssuc 5812 . . . . . . . . . . . . 13  |-  ( ( ( `' O `  X )  e.  On  /\ 
Ord  u )  -> 
( ( `' O `  X )  C_  u  <->  ( `' O `  X )  e.  suc  u ) )
141130, 139, 140syl2anc 693 . . . . . . . . . . . 12  |-  ( (
ph  /\  suc  u  e. 
dom  O )  -> 
( ( `' O `  X )  C_  u  <->  ( `' O `  X )  e.  suc  u ) )
142 ordtr 5737 . . . . . . . . . . . . . . . . 17  |-  ( Ord 
dom  O  ->  Tr  dom  O )
14336, 142mp1i 13 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  Tr  dom  O )
144 simprl 794 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  suc  u  e.  dom  O )
145 trsuc 5810 . . . . . . . . . . . . . . . 16  |-  ( ( Tr  dom  O  /\  suc  u  e.  dom  O
)  ->  u  e.  dom  O )
146143, 144, 145syl2anc 693 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  u  e.  dom  O )
147 simprr 796 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( `' O `  X )  C_  u
)
148146, 147jca 554 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( u  e. 
dom  O  /\  ( `' O `  X ) 
C_  u ) )
1499adantr 481 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  A  e.  On )
15010adantr 481 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  B  e.  On )
151 oecl 7617 . . . . . . . . . . . . . . . . . . 19  |-  ( ( A  e.  On  /\  B  e.  On )  ->  ( A  ^o  B
)  e.  On )
152149, 150, 151syl2anc 693 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( A  ^o  B )  e.  On )
1538, 149, 150cantnff 8571 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( A CNF  B
) : S --> ( A  ^o  B ) )
1548, 9, 10cantnfs 8563 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ph  ->  ( F  e.  S  <->  ( F : B --> A  /\  F finSupp 
(/) ) ) )
15512, 154mpbid 222 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ph  ->  ( F : B --> A  /\  F finSupp  (/) ) )
156155simpld 475 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ph  ->  F : B --> A )
157156ffvelrnda 6359 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  x  e.  B )  ->  ( F `  x )  e.  A )
1588, 9, 10cantnfs 8563 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ph  ->  ( G  e.  S  <->  ( G : B --> A  /\  G finSupp 
(/) ) ) )
15913, 158mpbid 222 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ph  ->  ( G : B --> A  /\  G finSupp  (/) ) )
160159simpld 475 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ph  ->  G : B --> A )
1618, 9, 10, 11, 12, 13, 14, 15oemapvali 8581 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ph  ->  ( X  e.  B  /\  ( F `  X
)  e.  ( G `
 X )  /\  A. w  e.  B  ( X  e.  w  -> 
( F `  w
)  =  ( G `
 w ) ) ) )
162161simp1d 1073 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ph  ->  X  e.  B )
163160, 162ffvelrnd 6360 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ph  ->  ( G `  X
)  e.  A )
164 ne0i 3921 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( G `  X )  e.  A  ->  A  =/=  (/) )
165163, 164syl 17 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ph  ->  A  =/=  (/) )
166 on0eln0 5780 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( A  e.  On  ->  ( (/) 
e.  A  <->  A  =/=  (/) ) )
1679, 166syl 17 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ph  ->  ( (/)  e.  A  <->  A  =/=  (/) ) )
168165, 167mpbird 247 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ph  -> 
(/)  e.  A )
169168adantr 481 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  x  e.  B )  ->  (/)  e.  A
)
170157, 169ifcld 4131 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  x  e.  B )  ->  if ( x  C_  ( O `
 u ) ,  ( F `  x
) ,  (/) )  e.  A )
171 eqid 2622 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) )  =  ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) )
172170, 171fmptd 6385 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) : B --> A )
173 mptexg 6484 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( B  e.  On  ->  (
x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) )  e.  _V )
17410, 173syl 17 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) )  e.  _V )
175 funmpt 5926 . . . . . . . . . . . . . . . . . . . . . . 23  |-  Fun  (
x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) )
176175a1i 11 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  Fun  ( x  e.  B  |->  if ( x 
C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) )
177155simprd 479 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  F finSupp  (/) )
178 eqid 2622 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( F supp  (/) )  =  ( F supp 
(/) )
179 eqimss2 3658 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( F supp  (/) )  =  ( F supp  (/) )  ->  ( F supp 
(/) )  C_  ( F supp 
(/) ) )
180178, 179mp1i 13 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ph  ->  ( F supp  (/) )  C_  ( F supp  (/) ) )
181 0ex 4790 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  (/)  e.  _V
182181a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ph  -> 
(/)  e.  _V )
183156, 180, 10, 182suppssr 7326 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  x  e.  ( B  \  ( F supp 
(/) ) ) )  ->  ( F `  x )  =  (/) )
184183ifeq1d 4104 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  x  e.  ( B  \  ( F supp 
(/) ) ) )  ->  if ( x 
C_  ( O `  u ) ,  ( F `  x ) ,  (/) )  =  if ( x  C_  ( O `  u ) ,  (/) ,  (/) ) )
185 ifid 4125 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  if ( x  C_  ( O `  u ) ,  (/) ,  (/) )  =  (/)
186184, 185syl6eq 2672 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  x  e.  ( B  \  ( F supp 
(/) ) ) )  ->  if ( x 
C_  ( O `  u ) ,  ( F `  x ) ,  (/) )  =  (/) )
187186, 10suppss2 7329 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  ( ( x  e.  B  |->  if ( x 
C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) supp  (/) )  C_  ( F supp  (/) ) )
188 fsuppsssupp 8291 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( x  e.  B  |->  if ( x 
C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) )  e. 
_V  /\  Fun  ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) )  /\  ( F finSupp  (/)  /\  (
( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) supp  (/) )  C_  ( F supp  (/) ) ) )  ->  ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) finSupp  (/) )
189174, 176, 177, 187, 188syl22anc 1327 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) finSupp  (/) )
1908, 9, 10cantnfs 8563 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( ( x  e.  B  |->  if ( x 
C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) )  e.  S  <->  ( ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) : B --> A  /\  (
x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) finSupp  (/) ) ) )
191172, 189, 190mpbir2and 957 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) )  e.  S
)
192191adantr 481 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( x  e.  B  |->  if ( x 
C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) )  e.  S )
193153, 192ffvelrnd 6360 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( ( A CNF 
B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( A  ^o  B
) )
194 onelon 5748 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( A  ^o  B
)  e.  On  /\  ( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( A  ^o  B ) )  -> 
( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) )  e.  On )
195152, 193, 194syl2anc 693 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( ( A CNF 
B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) )  e.  On )
19631adantr 481 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  dom  O  e.  om )
197 elnn 7075 . . . . . . . . . . . . . . . . . . 19  |-  ( ( suc  u  e.  dom  O  /\  dom  O  e. 
om )  ->  suc  u  e.  om )
198144, 196, 197syl2anc 693 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  suc  u  e.  om )
199113cantnfvalf 8562 . . . . . . . . . . . . . . . . . . 19  |-  H : om
--> On
200199ffvelrni 6358 . . . . . . . . . . . . . . . . . 18  |-  ( suc  u  e.  om  ->  ( H `  suc  u
)  e.  On )
201198, 200syl 17 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( H `  suc  u )  e.  On )
202 suppssdm 7308 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( G supp  (/) )  C_  dom  G
203 fdm 6051 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( G : B --> A  ->  dom  G  =  B )
204160, 203syl 17 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ph  ->  dom  G  =  B )
205202, 204syl5sseq 3653 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  ( G supp  (/) )  C_  B )
206205adantr 481 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( G supp  (/) )  C_  B )
2072oif 8435 . . . . . . . . . . . . . . . . . . . . . . 23  |-  O : dom  O --> ( G supp  (/) )
208207ffvelrni 6358 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( suc  u  e.  dom  O  ->  ( O `  suc  u )  e.  ( G supp  (/) ) )
209144, 208syl 17 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( O `  suc  u )  e.  ( G supp  (/) ) )
210206, 209sseldd 3604 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( O `  suc  u )  e.  B
)
211 onelon 5748 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( B  e.  On  /\  ( O `  suc  u
)  e.  B )  ->  ( O `  suc  u )  e.  On )
212150, 210, 211syl2anc 693 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( O `  suc  u )  e.  On )
213 oecl 7617 . . . . . . . . . . . . . . . . . . 19  |-  ( ( A  e.  On  /\  ( O `  suc  u
)  e.  On )  ->  ( A  ^o  ( O `  suc  u
) )  e.  On )
214149, 212, 213syl2anc 693 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( A  ^o  ( O `  suc  u
) )  e.  On )
215156adantr 481 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  F : B --> A )
216215, 210ffvelrnd 6360 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( F `  ( O `  suc  u
) )  e.  A
)
217 onelon 5748 . . . . . . . . . . . . . . . . . . 19  |-  ( ( A  e.  On  /\  ( F `  ( O `
 suc  u )
)  e.  A )  ->  ( F `  ( O `  suc  u
) )  e.  On )
218149, 216, 217syl2anc 693 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( F `  ( O `  suc  u
) )  e.  On )
219 omcl 7616 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( A  ^o  ( O `  suc  u ) )  e.  On  /\  ( F `  ( O `
 suc  u )
)  e.  On )  ->  ( ( A  ^o  ( O `  suc  u ) )  .o  ( F `  ( O `  suc  u ) ) )  e.  On )
220214, 218, 219syl2anc 693 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( ( A  ^o  ( O `  suc  u ) )  .o  ( F `  ( O `  suc  u ) ) )  e.  On )
221 oaord 7627 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) )  e.  On  /\  ( H `  suc  u )  e.  On  /\  (
( A  ^o  ( O `  suc  u ) )  .o  ( F `
 ( O `  suc  u ) ) )  e.  On )  -> 
( ( ( A CNF 
B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  u )  <->  ( (
( A  ^o  ( O `  suc  u ) )  .o  ( F `
 ( O `  suc  u ) ) )  +o  ( ( A CNF 
B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) ) )  e.  ( ( ( A  ^o  ( O `
 suc  u )
)  .o  ( F `
 ( O `  suc  u ) ) )  +o  ( H `  suc  u ) ) ) )
222195, 201, 220, 221syl3anc 1326 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( ( ( A CNF  B ) `  ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  u )  <->  ( (
( A  ^o  ( O `  suc  u ) )  .o  ( F `
 ( O `  suc  u ) ) )  +o  ( ( A CNF 
B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) ) )  e.  ( ( ( A  ^o  ( O `
 suc  u )
)  .o  ( F `
 ( O `  suc  u ) ) )  +o  ( H `  suc  u ) ) ) )
223 ifeq1 4090 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( F `  x )  =  (/)  ->  if ( x  C_  ( O `  suc  u ) ,  ( F `  x
) ,  (/) )  =  if ( x  C_  ( O `  suc  u
) ,  (/) ,  (/) ) )
224 ifid 4125 . . . . . . . . . . . . . . . . . . . . . . 23  |-  if ( x  C_  ( O `  suc  u ) ,  (/) ,  (/) )  =  (/)
225223, 224syl6eq 2672 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( F `  x )  =  (/)  ->  if ( x  C_  ( O `  suc  u ) ,  ( F `  x
) ,  (/) )  =  (/) )
226 ifeq1 4090 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( F `  x )  =  (/)  ->  if ( ( x  =  ( O `  suc  u
)  \/  x  C_  ( O `  u ) ) ,  ( F `
 x ) ,  (/) )  =  if ( ( x  =  ( O `  suc  u )  \/  x  C_  ( O `  u
) ) ,  (/) ,  (/) ) )
227 ifid 4125 . . . . . . . . . . . . . . . . . . . . . . 23  |-  if ( ( x  =  ( O `  suc  u
)  \/  x  C_  ( O `  u ) ) ,  (/) ,  (/) )  =  (/)
228226, 227syl6eq 2672 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( F `  x )  =  (/)  ->  if ( ( x  =  ( O `  suc  u
)  \/  x  C_  ( O `  u ) ) ,  ( F `
 x ) ,  (/) )  =  (/) )
229225, 228eqeq12d 2637 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( F `  x )  =  (/)  ->  ( if ( x  C_  ( O `  suc  u ) ,  ( F `  x ) ,  (/) )  =  if (
( x  =  ( O `  suc  u
)  \/  x  C_  ( O `  u ) ) ,  ( F `
 x ) ,  (/) )  <->  (/)  =  (/) ) )
230 onss 6990 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( B  e.  On  ->  B  C_  On )
23110, 230syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ph  ->  B  C_  On )
232231sselda 3603 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( (
ph  /\  x  e.  B )  ->  x  e.  On )
233232adantlr 751 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  ->  x  e.  On )
234212adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  ->  ( O `  suc  u )  e.  On )
235 onsseleq 5765 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( x  e.  On  /\  ( O `  suc  u
)  e.  On )  ->  ( x  C_  ( O `  suc  u
)  <->  ( x  e.  ( O `  suc  u )  \/  x  =  ( O `  suc  u ) ) ) )
236233, 234, 235syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  ->  (
x  C_  ( O `  suc  u )  <->  ( x  e.  ( O `  suc  u )  \/  x  =  ( O `  suc  u ) ) ) )
237236adantr 481 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  ( F `  x )  =/=  (/) )  ->  (
x  C_  ( O `  suc  u )  <->  ( x  e.  ( O `  suc  u )  \/  x  =  ( O `  suc  u ) ) ) )
238233adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  ( F `  x )  =/=  (/) )  ->  x  e.  On )
239207ffvelrni 6358 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( u  e.  dom  O  -> 
( O `  u
)  e.  ( G supp  (/) ) )
240146, 239syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( O `  u )  e.  ( G supp  (/) ) )
241206, 240sseldd 3604 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( O `  u )  e.  B
)
242 onelon 5748 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( B  e.  On  /\  ( O `  u )  e.  B )  -> 
( O `  u
)  e.  On )
243150, 241, 242syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( O `  u )  e.  On )
244243ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  ( F `  x )  =/=  (/) )  ->  ( O `  u )  e.  On )
245 onsssuc 5813 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( x  e.  On  /\  ( O `  u )  e.  On )  -> 
( x  C_  ( O `  u )  <->  x  e.  suc  ( O `
 u ) ) )
246238, 244, 245syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  ( F `  x )  =/=  (/) )  ->  (
x  C_  ( O `  u )  <->  x  e.  suc  ( O `  u
) ) )
247 vex 3203 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  u  e. 
_V
248247sucid 5804 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  u  e. 
suc  u
24946adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  O  Isom  _E  ,  _E  ( dom  O , 
( G supp  (/) ) ) )
250 isorel 6576 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( O  Isom  _E  ,  _E  ( dom  O ,  ( G supp  (/) ) )  /\  ( u  e.  dom  O  /\  suc  u  e. 
dom  O ) )  ->  ( u  _E 
suc  u  <->  ( O `  u )  _E  ( O `  suc  u ) ) )
251249, 146, 144, 250syl12anc 1324 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( u  _E 
suc  u  <->  ( O `  u )  _E  ( O `  suc  u ) ) )
252247sucex 7011 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  suc  u  e.  _V
253252epelc 5031 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( u  _E  suc  u  <->  u  e.  suc  u )
254 fvex 6201 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( O `
 suc  u )  e.  _V
255254epelc 5031 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( O `  u )  _E  ( O `  suc  u )  <->  ( O `  u )  e.  ( O `  suc  u
) )
256251, 253, 2553bitr3g 302 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( u  e. 
suc  u  <->  ( O `  u )  e.  ( O `  suc  u
) ) )
257248, 256mpbii 223 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( O `  u )  e.  ( O `  suc  u
) )
258 eloni 5733 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( O `  suc  u
)  e.  On  ->  Ord  ( O `  suc  u ) )
259212, 258syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  Ord  ( O `  suc  u ) )
260 ordelsuc 7020 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( ( O `  u
)  e.  On  /\  Ord  ( O `  suc  u ) )  -> 
( ( O `  u )  e.  ( O `  suc  u
)  <->  suc  ( O `  u )  C_  ( O `  suc  u ) ) )
261243, 259, 260syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( ( O `
 u )  e.  ( O `  suc  u )  <->  suc  ( O `
 u )  C_  ( O `  suc  u
) ) )
262257, 261mpbid 222 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  suc  ( O `  u )  C_  ( O `  suc  u ) )
263262ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  ( F `  x )  =/=  (/) )  ->  suc  ( O `  u ) 
C_  ( O `  suc  u ) )
264263sseld 3602 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  ( F `  x )  =/=  (/) )  ->  (
x  e.  suc  ( O `  u )  ->  x  e.  ( O `
 suc  u )
) )
265246, 264sylbid 230 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  ( F `  x )  =/=  (/) )  ->  (
x  C_  ( O `  u )  ->  x  e.  ( O `  suc  u ) ) )
266 simprr 796 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  (
( F `  x
)  =/=  (/)  /\  ( O `  u )  e.  x ) )  -> 
( O `  u
)  e.  x )
267249ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  (
( F `  x
)  =/=  (/)  /\  ( O `  u )  e.  x ) )  ->  O  Isom  _E  ,  _E  ( dom  O ,  ( G supp  (/) ) ) )
268267, 47syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  (
( F `  x
)  =/=  (/)  /\  ( O `  u )  e.  x ) )  ->  O : dom  O -1-1-onto-> ( G supp  (/) ) )
2698, 9, 10, 11, 12, 13, 14, 15, 2cantnflem1c 8584 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  (
( F `  x
)  =/=  (/)  /\  ( O `  u )  e.  x ) )  ->  x  e.  ( G supp  (/) ) )
270 f1ocnvfv2 6533 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35  |-  ( ( O : dom  O -1-1-onto-> ( G supp 
(/) )  /\  x  e.  ( G supp  (/) ) )  ->  ( O `  ( `' O `  x ) )  =  x )
271268, 269, 270syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  (
( F `  x
)  =/=  (/)  /\  ( O `  u )  e.  x ) )  -> 
( O `  ( `' O `  x ) )  =  x )
272266, 271eleqtrrd 2704 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  (
( F `  x
)  =/=  (/)  /\  ( O `  u )  e.  x ) )  -> 
( O `  u
)  e.  ( O `
 ( `' O `  x ) ) )
273146ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  (
( F `  x
)  =/=  (/)  /\  ( O `  u )  e.  x ) )  ->  u  e.  dom  O )
274268, 49, 503syl 18 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  (
( F `  x
)  =/=  (/)  /\  ( O `  u )  e.  x ) )  ->  `' O : ( G supp  (/) ) --> dom  O )
275274, 269ffvelrnd 6360 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  (
( F `  x
)  =/=  (/)  /\  ( O `  u )  e.  x ) )  -> 
( `' O `  x )  e.  dom  O )
276 isorel 6576 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35  |-  ( ( O  Isom  _E  ,  _E  ( dom  O ,  ( G supp  (/) ) )  /\  ( u  e.  dom  O  /\  ( `' O `  x )  e.  dom  O ) )  ->  (
u  _E  ( `' O `  x )  <-> 
( O `  u
)  _E  ( O `
 ( `' O `  x ) ) ) )
277267, 273, 275, 276syl12anc 1324 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  (
( F `  x
)  =/=  (/)  /\  ( O `  u )  e.  x ) )  -> 
( u  _E  ( `' O `  x )  <-> 
( O `  u
)  _E  ( O `
 ( `' O `  x ) ) ) )
278 fvex 6201 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35  |-  ( `' O `  x )  e.  _V
279278epelc 5031 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( u  _E  ( `' O `  x )  <->  u  e.  ( `' O `  x ) )
280 fvex 6201 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35  |-  ( O `
 ( `' O `  x ) )  e. 
_V
281280epelc 5031 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( ( O `  u )  _E  ( O `  ( `' O `  x ) )  <->  ( O `  u )  e.  ( O `  ( `' O `  x ) ) )
282277, 279, 2813bitr3g 302 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  (
( F `  x
)  =/=  (/)  /\  ( O `  u )  e.  x ) )  -> 
( u  e.  ( `' O `  x )  <-> 
( O `  u
)  e.  ( O `
 ( `' O `  x ) ) ) )
283272, 282mpbird 247 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  (
( F `  x
)  =/=  (/)  /\  ( O `  u )  e.  x ) )  ->  u  e.  ( `' O `  x )
)
284 ordelon 5747 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35  |-  ( ( Ord  dom  O  /\  ( `' O `  x )  e.  dom  O )  ->  ( `' O `  x )  e.  On )
28536, 275, 284sylancr 695 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  (
( F `  x
)  =/=  (/)  /\  ( O `  u )  e.  x ) )  -> 
( `' O `  x )  e.  On )
286 eloni 5733 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( ( `' O `  x )  e.  On  ->  Ord  ( `' O `  x ) )
287285, 286syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  (
( F `  x
)  =/=  (/)  /\  ( O `  u )  e.  x ) )  ->  Ord  ( `' O `  x ) )
288 ordelsuc 7020 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( u  e.  ( `' O `  x )  /\  Ord  ( `' O `  x ) )  ->  ( u  e.  ( `' O `  x )  <->  suc  u  C_  ( `' O `  x ) ) )
289283, 287, 288syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  (
( F `  x
)  =/=  (/)  /\  ( O `  u )  e.  x ) )  -> 
( u  e.  ( `' O `  x )  <->  suc  u  C_  ( `' O `  x )
) )
290283, 289mpbid 222 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  (
( F `  x
)  =/=  (/)  /\  ( O `  u )  e.  x ) )  ->  suc  u  C_  ( `' O `  x )
)
291144ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  (
( F `  x
)  =/=  (/)  /\  ( O `  u )  e.  x ) )  ->  suc  u  e.  dom  O
)
29236, 291, 132sylancr 695 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  (
( F `  x
)  =/=  (/)  /\  ( O `  u )  e.  x ) )  ->  suc  u  e.  On )
293 ontri1 5757 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( suc  u  e.  On  /\  ( `' O `  x )  e.  On )  ->  ( suc  u  C_  ( `' O `  x )  <->  -.  ( `' O `  x )  e.  suc  u ) )
294292, 285, 293syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  (
( F `  x
)  =/=  (/)  /\  ( O `  u )  e.  x ) )  -> 
( suc  u  C_  ( `' O `  x )  <->  -.  ( `' O `  x )  e.  suc  u ) )
295290, 294mpbid 222 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  (
( F `  x
)  =/=  (/)  /\  ( O `  u )  e.  x ) )  ->  -.  ( `' O `  x )  e.  suc  u )
296 isorel 6576 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( O  Isom  _E  ,  _E  ( dom  O ,  ( G supp  (/) ) )  /\  ( ( `' O `  x )  e.  dom  O  /\  suc  u  e. 
dom  O ) )  ->  ( ( `' O `  x )  _E  suc  u  <->  ( O `  ( `' O `  x ) )  _E  ( O `  suc  u ) ) )
297267, 275, 291, 296syl12anc 1324 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  (
( F `  x
)  =/=  (/)  /\  ( O `  u )  e.  x ) )  -> 
( ( `' O `  x )  _E  suc  u 
<->  ( O `  ( `' O `  x ) )  _E  ( O `
 suc  u )
) )
298252epelc 5031 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( `' O `  x )  _E  suc  u  <->  ( `' O `  x )  e.  suc  u )
299254epelc 5031 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( O `  ( `' O `  x ) )  _E  ( O `
 suc  u )  <->  ( O `  ( `' O `  x ) )  e.  ( O `
 suc  u )
)
300297, 298, 2993bitr3g 302 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  (
( F `  x
)  =/=  (/)  /\  ( O `  u )  e.  x ) )  -> 
( ( `' O `  x )  e.  suc  u 
<->  ( O `  ( `' O `  x ) )  e.  ( O `
 suc  u )
) )
301271eleq1d 2686 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  (
( F `  x
)  =/=  (/)  /\  ( O `  u )  e.  x ) )  -> 
( ( O `  ( `' O `  x ) )  e.  ( O `
 suc  u )  <->  x  e.  ( O `  suc  u ) ) )
302300, 301bitrd 268 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  (
( F `  x
)  =/=  (/)  /\  ( O `  u )  e.  x ) )  -> 
( ( `' O `  x )  e.  suc  u 
<->  x  e.  ( O `
 suc  u )
) )
303295, 302mtbid 314 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  (
( F `  x
)  =/=  (/)  /\  ( O `  u )  e.  x ) )  ->  -.  x  e.  ( O `  suc  u ) )
304303expr 643 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  ( F `  x )  =/=  (/) )  ->  (
( O `  u
)  e.  x  ->  -.  x  e.  ( O `  suc  u ) ) )
305304con2d 129 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  ( F `  x )  =/=  (/) )  ->  (
x  e.  ( O `
 suc  u )  ->  -.  ( O `  u )  e.  x
) )
306 ontri1 5757 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( x  e.  On  /\  ( O `  u )  e.  On )  -> 
( x  C_  ( O `  u )  <->  -.  ( O `  u
)  e.  x ) )
307238, 244, 306syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  ( F `  x )  =/=  (/) )  ->  (
x  C_  ( O `  u )  <->  -.  ( O `  u )  e.  x ) )
308305, 307sylibrd 249 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  ( F `  x )  =/=  (/) )  ->  (
x  e.  ( O `
 suc  u )  ->  x  C_  ( O `  u ) ) )
309265, 308impbid 202 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  ( F `  x )  =/=  (/) )  ->  (
x  C_  ( O `  u )  <->  x  e.  ( O `  suc  u
) ) )
310309orbi1d 739 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  ( F `  x )  =/=  (/) )  ->  (
( x  C_  ( O `  u )  \/  x  =  ( O `  suc  u ) )  <->  ( x  e.  ( O `  suc  u )  \/  x  =  ( O `  suc  u ) ) ) )
311237, 310bitr4d 271 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  ( F `  x )  =/=  (/) )  ->  (
x  C_  ( O `  suc  u )  <->  ( x  C_  ( O `  u
)  \/  x  =  ( O `  suc  u ) ) ) )
312 orcom 402 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( x  C_  ( O `  u )  \/  x  =  ( O `  suc  u ) )  <->  ( x  =  ( O `  suc  u )  \/  x  C_  ( O `  u
) ) )
313311, 312syl6bb 276 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  ( F `  x )  =/=  (/) )  ->  (
x  C_  ( O `  suc  u )  <->  ( x  =  ( O `  suc  u )  \/  x  C_  ( O `  u
) ) ) )
314313ifbid 4108 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  /\  ( F `  x )  =/=  (/) )  ->  if ( x  C_  ( O `
 suc  u ) ,  ( F `  x ) ,  (/) )  =  if (
( x  =  ( O `  suc  u
)  \/  x  C_  ( O `  u ) ) ,  ( F `
 x ) ,  (/) ) )
315 eqidd 2623 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  ->  (/)  =  (/) )
316229, 314, 315pm2.61ne 2879 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  ->  if ( x  C_  ( O `
 suc  u ) ,  ( F `  x ) ,  (/) )  =  if (
( x  =  ( O `  suc  u
)  \/  x  C_  ( O `  u ) ) ,  ( F `
 x ) ,  (/) ) )
317316mpteq2dva 4744 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( x  e.  B  |->  if ( x 
C_  ( O `  suc  u ) ,  ( F `  x ) ,  (/) ) )  =  ( x  e.  B  |->  if ( ( x  =  ( O `  suc  u )  \/  x  C_  ( O `  u
) ) ,  ( F `  x ) ,  (/) ) ) )
318317fveq2d 6195 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( ( A CNF 
B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  suc  u ) ,  ( F `  x ) ,  (/) ) ) )  =  ( ( A CNF  B
) `  ( x  e.  B  |->  if ( ( x  =  ( O `  suc  u
)  \/  x  C_  ( O `  u ) ) ,  ( F `
 x ) ,  (/) ) ) ) )
319 fvex 6201 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( F `
 x )  e. 
_V
320319, 181ifex 4156 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) )  e.  _V
321320a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  if ( x 
C_  ( O `  u ) ,  ( F `  x ) ,  (/) )  e.  _V )
322321ralrimivw 2967 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  A. x  e.  B  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) )  e.  _V )
323171fnmpt 6020 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( A. x  e.  B  if ( x  C_  ( O `
 u ) ,  ( F `  x
) ,  (/) )  e. 
_V  ->  ( x  e.  B  |->  if ( x 
C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) )  Fn  B )
324322, 323syl 17 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( x  e.  B  |->  if ( x 
C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) )  Fn  B )
325181a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  (/)  e.  _V )
326 suppvalfn 7302 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) )  Fn  B  /\  B  e.  On  /\  (/)  e.  _V )  -> 
( ( x  e.  B  |->  if ( x 
C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) supp  (/) )  =  { y  e.  B  |  ( ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) `  y )  =/=  (/) } )
327 nfcv 2764 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  F/_ y B
328 nfcv 2764 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  F/_ x B
329 nffvmpt1 6199 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  F/_ x
( ( x  e.  B  |->  if ( x 
C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) `  y )
330 nfcv 2764 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  F/_ x (/)
331329, 330nfne 2894 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  F/ x
( ( x  e.  B  |->  if ( x 
C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) `  y )  =/=  (/)
332 nfv 1843 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  F/ y ( ( x  e.  B  |->  if ( x 
C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) `  x )  =/=  (/)
333 fveq2 6191 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( y  =  x  ->  (
( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) `  y
)  =  ( ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) `  x
) )
334333neeq1d 2853 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( y  =  x  ->  (
( ( x  e.  B  |->  if ( x 
C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) `  y )  =/=  (/)  <->  ( (
x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) `  x
)  =/=  (/) ) )
335327, 328, 331, 332, 334cbvrab 3198 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  { y  e.  B  |  ( ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) `  y
)  =/=  (/) }  =  { x  e.  B  |  ( ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) `  x )  =/=  (/) }
336326, 335syl6eq 2672 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) )  Fn  B  /\  B  e.  On  /\  (/)  e.  _V )  -> 
( ( x  e.  B  |->  if ( x 
C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) supp  (/) )  =  { x  e.  B  |  ( ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) `  x )  =/=  (/) } )
337324, 150, 325, 336syl3anc 1326 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) supp  (/) )  =  { x  e.  B  |  ( ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) `  x )  =/=  (/) } )
338 eqidd 2623 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( x  e.  B  |->  if ( x 
C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) )  =  ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) )
339320a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  ->  if ( x  C_  ( O `
 u ) ,  ( F `  x
) ,  (/) )  e. 
_V )
340338, 339fvmpt2d 6293 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  ->  (
( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) `  x
)  =  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) )
341340neeq1d 2853 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  ->  (
( ( x  e.  B  |->  if ( x 
C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) `  x )  =/=  (/)  <->  if (
x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) )  =/=  (/) ) )
342339biantrurd 529 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  ->  ( if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) )  =/=  (/)  <->  ( if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) )  e.  _V  /\  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) )  =/=  (/) ) ) )
343 dif1o 7580 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) )  e.  ( _V  \  1o )  <->  ( if ( x  C_  ( O `
 u ) ,  ( F `  x
) ,  (/) )  e. 
_V  /\  if (
x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) )  =/=  (/) ) )
344342, 343syl6bbr 278 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  ->  ( if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) )  =/=  (/)  <->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) )  e.  ( _V  \  1o ) ) )
345341, 344bitrd 268 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  ->  (
( ( x  e.  B  |->  if ( x 
C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) `  x )  =/=  (/)  <->  if (
x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) )  e.  ( _V  \  1o ) ) )
346345rabbidva 3188 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  { x  e.  B  |  ( ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) `  x
)  =/=  (/) }  =  { x  e.  B  |  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) )  e.  ( _V  \  1o ) } )
347337, 346eqtrd 2656 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) supp  (/) )  =  { x  e.  B  |  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) )  e.  ( _V  \  1o ) } )
348320, 343mpbiran 953 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) )  e.  ( _V  \  1o )  <->  if (
x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) )  =/=  (/) )
349 ifeq1 4090 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( F `  x )  =  (/)  ->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) )  =  if ( x  C_  ( O `  u ) ,  (/) ,  (/) ) )
350349, 185syl6eq 2672 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( F `  x )  =  (/)  ->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) )  =  (/) )
351350necon3i 2826 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) )  =/=  (/)  ->  ( F `  x )  =/=  (/) )
352 iffalse 4095 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( -.  x  C_  ( O `  u )  ->  if ( x  C_  ( O `
 u ) ,  ( F `  x
) ,  (/) )  =  (/) )
353352necon1ai 2821 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) )  =/=  (/)  ->  x  C_  ( O `  u )
)
354351, 353jca 554 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) )  =/=  (/)  ->  ( ( F `  x )  =/=  (/)  /\  x  C_  ( O `  u ) ) )
355265expimpd 629 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  ->  (
( ( F `  x )  =/=  (/)  /\  x  C_  ( O `  u
) )  ->  x  e.  ( O `  suc  u ) ) )
356354, 355syl5 34 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  ->  ( if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) )  =/=  (/)  ->  x  e.  ( O `  suc  u
) ) )
357348, 356syl5bi 232 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B )  ->  ( if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) )  e.  ( _V  \  1o )  ->  x  e.  ( O `  suc  u ) ) )
3583573impia 1261 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X )  C_  u
) )  /\  x  e.  B  /\  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) )  e.  ( _V  \  1o ) )  ->  x  e.  ( O `  suc  u
) )
359358rabssdv 3682 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  { x  e.  B  |  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) )  e.  ( _V  \  1o ) }  C_  ( O `  suc  u ) )
360347, 359eqsstrd 3639 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) supp  (/) )  C_  ( O `  suc  u
) )
361 eqeq1 2626 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( x  =  y  ->  (
x  =  ( O `
 suc  u )  <->  y  =  ( O `  suc  u ) ) )
362 sseq1 3626 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( x  =  y  ->  (
x  C_  ( O `  u )  <->  y  C_  ( O `  u ) ) )
363361, 362orbi12d 746 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( x  =  y  ->  (
( x  =  ( O `  suc  u
)  \/  x  C_  ( O `  u ) )  <->  ( y  =  ( O `  suc  u )  \/  y  C_  ( O `  u
) ) ) )
364 fveq2 6191 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( x  =  y  ->  ( F `  x )  =  ( F `  y ) )
365363, 364ifbieq1d 4109 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( x  =  y  ->  if ( ( x  =  ( O `  suc  u )  \/  x  C_  ( O `  u
) ) ,  ( F `  x ) ,  (/) )  =  if ( ( y  =  ( O `  suc  u )  \/  y  C_  ( O `  u
) ) ,  ( F `  y ) ,  (/) ) )
366365cbvmptv 4750 . . . . . . . . . . . . . . . . . . . . 21  |-  ( x  e.  B  |->  if ( ( x  =  ( O `  suc  u
)  \/  x  C_  ( O `  u ) ) ,  ( F `
 x ) ,  (/) ) )  =  ( y  e.  B  |->  if ( ( y  =  ( O `  suc  u )  \/  y  C_  ( O `  u
) ) ,  ( F `  y ) ,  (/) ) )
367 fveq2 6191 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( y  =  ( O `  suc  u )  ->  ( F `  y )  =  ( F `  ( O `  suc  u
) ) )
368367adantl 482 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( y  e.  B  /\  y  =  ( O `  suc  u ) )  ->  ( F `  y )  =  ( F `  ( O `
 suc  u )
) )
369368ifeq1da 4116 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( y  e.  B  ->  if ( y  =  ( O `  suc  u
) ,  ( F `
 y ) ,  ( ( x  e.  B  |->  if ( x 
C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) `  y ) )  =  if ( y  =  ( O `  suc  u ) ,  ( F `  ( O `
 suc  u )
) ,  ( ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) `  y
) ) )
370362, 364ifbieq1d 4109 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( x  =  y  ->  if ( x  C_  ( O `
 u ) ,  ( F `  x
) ,  (/) )  =  if ( y  C_  ( O `  u ) ,  ( F `  y ) ,  (/) ) )
371 fvex 6201 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( F `
 y )  e. 
_V
372371, 181ifex 4156 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  if ( y  C_  ( O `  u ) ,  ( F `  y ) ,  (/) )  e.  _V
373370, 171, 372fvmpt 6282 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( y  e.  B  ->  (
( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) `  y
)  =  if ( y  C_  ( O `  u ) ,  ( F `  y ) ,  (/) ) )
374373ifeq2d 4105 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( y  e.  B  ->  if ( y  =  ( O `  suc  u
) ,  ( F `
 y ) ,  ( ( x  e.  B  |->  if ( x 
C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) `  y ) )  =  if ( y  =  ( O `  suc  u ) ,  ( F `  y ) ,  if ( y 
C_  ( O `  u ) ,  ( F `  y ) ,  (/) ) ) )
375 ifor 4135 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  if ( ( y  =  ( O `  suc  u
)  \/  y  C_  ( O `  u ) ) ,  ( F `
 y ) ,  (/) )  =  if ( y  =  ( O `  suc  u
) ,  ( F `
 y ) ,  if ( y  C_  ( O `  u ) ,  ( F `  y ) ,  (/) ) )
376374, 375syl6eqr 2674 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( y  e.  B  ->  if ( y  =  ( O `  suc  u
) ,  ( F `
 y ) ,  ( ( x  e.  B  |->  if ( x 
C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) `  y ) )  =  if ( ( y  =  ( O `  suc  u )  \/  y  C_  ( O `  u
) ) ,  ( F `  y ) ,  (/) ) )
377369, 376eqtr3d 2658 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( y  e.  B  ->  if ( y  =  ( O `  suc  u
) ,  ( F `
 ( O `  suc  u ) ) ,  ( ( x  e.  B  |->  if ( x 
C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) `  y ) )  =  if ( ( y  =  ( O `  suc  u )  \/  y  C_  ( O `  u
) ) ,  ( F `  y ) ,  (/) ) )
378377mpteq2ia 4740 . . . . . . . . . . . . . . . . . . . . 21  |-  ( y  e.  B  |->  if ( y  =  ( O `
 suc  u ) ,  ( F `  ( O `  suc  u
) ) ,  ( ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) `  y
) ) )  =  ( y  e.  B  |->  if ( ( y  =  ( O `  suc  u )  \/  y  C_  ( O `  u
) ) ,  ( F `  y ) ,  (/) ) )
379366, 378eqtr4i 2647 . . . . . . . . . . . . . . . . . . . 20  |-  ( x  e.  B  |->  if ( ( x  =  ( O `  suc  u
)  \/  x  C_  ( O `  u ) ) ,  ( F `
 x ) ,  (/) ) )  =  ( y  e.  B  |->  if ( y  =  ( O `  suc  u
) ,  ( F `
 ( O `  suc  u ) ) ,  ( ( x  e.  B  |->  if ( x 
C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) `  y ) ) )
3808, 149, 150, 192, 210, 216, 360, 379cantnfp1 8578 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( ( x  e.  B  |->  if ( ( x  =  ( O `  suc  u
)  \/  x  C_  ( O `  u ) ) ,  ( F `
 x ) ,  (/) ) )  e.  S  /\  ( ( A CNF  B
) `  ( x  e.  B  |->  if ( ( x  =  ( O `  suc  u
)  \/  x  C_  ( O `  u ) ) ,  ( F `
 x ) ,  (/) ) ) )  =  ( ( ( A  ^o  ( O `  suc  u ) )  .o  ( F `  ( O `  suc  u ) ) )  +o  (
( A CNF  B ) `
 ( x  e.  B  |->  if ( x 
C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) ) ) ) )
381380simprd 479 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( ( A CNF 
B ) `  (
x  e.  B  |->  if ( ( x  =  ( O `  suc  u )  \/  x  C_  ( O `  u
) ) ,  ( F `  x ) ,  (/) ) ) )  =  ( ( ( A  ^o  ( O `
 suc  u )
)  .o  ( F `
 ( O `  suc  u ) ) )  +o  ( ( A CNF 
B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) ) ) )
382318, 381eqtrd 2656 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( ( A CNF 
B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  suc  u ) ,  ( F `  x ) ,  (/) ) ) )  =  ( ( ( A  ^o  ( O `  suc  u ) )  .o  ( F `  ( O `  suc  u ) ) )  +o  (
( A CNF  B ) `
 ( x  e.  B  |->  if ( x 
C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) ) ) )
3838, 9, 10, 2, 13, 113cantnfsuc 8567 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  suc  u  e. 
om )  ->  ( H `  suc  suc  u
)  =  ( ( ( A  ^o  ( O `  suc  u ) )  .o  ( G `
 ( O `  suc  u ) ) )  +o  ( H `  suc  u ) ) )
384198, 383syldan 487 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( H `  suc  suc  u )  =  ( ( ( A  ^o  ( O `  suc  u ) )  .o  ( G `  ( O `  suc  u ) ) )  +o  ( H `  suc  u ) ) )
385161simp3d 1075 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  A. w  e.  B  ( X  e.  w  ->  ( F `  w
)  =  ( G `
 w ) ) )
386385adantr 481 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  A. w  e.  B  ( X  e.  w  ->  ( F `  w
)  =  ( G `
 w ) ) )
387108adantr 481 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( O `  ( `' O `  X ) )  =  X )
388129adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( `' O `  X )  e.  On )
389137adantrr 753 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  u  e.  On )
390 onsssuc 5813 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( `' O `  X )  e.  On  /\  u  e.  On )  ->  ( ( `' O `  X ) 
C_  u  <->  ( `' O `  X )  e.  suc  u ) )
391388, 389, 390syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( ( `' O `  X ) 
C_  u  <->  ( `' O `  X )  e.  suc  u ) )
392147, 391mpbid 222 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( `' O `  X )  e.  suc  u )
39352adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( `' O `  X )  e.  dom  O )
394 isorel 6576 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( O  Isom  _E  ,  _E  ( dom  O ,  ( G supp  (/) ) )  /\  ( ( `' O `  X )  e.  dom  O  /\  suc  u  e. 
dom  O ) )  ->  ( ( `' O `  X )  _E  suc  u  <->  ( O `  ( `' O `  X ) )  _E  ( O `  suc  u ) ) )
395249, 393, 144, 394syl12anc 1324 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( ( `' O `  X )  _E  suc  u  <->  ( O `  ( `' O `  X ) )  _E  ( O `  suc  u ) ) )
396252epelc 5031 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( `' O `  X )  _E  suc  u  <->  ( `' O `  X )  e.  suc  u )
397254epelc 5031 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( O `  ( `' O `  X ) )  _E  ( O `
 suc  u )  <->  ( O `  ( `' O `  X ) )  e.  ( O `
 suc  u )
)
398395, 396, 3973bitr3g 302 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( ( `' O `  X )  e.  suc  u  <->  ( O `  ( `' O `  X ) )  e.  ( O `  suc  u ) ) )
399392, 398mpbid 222 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( O `  ( `' O `  X ) )  e.  ( O `
 suc  u )
)
400387, 399eqeltrrd 2702 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  X  e.  ( O `  suc  u
) )
401 eleq2 2690 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( w  =  ( O `  suc  u )  ->  ( X  e.  w  <->  X  e.  ( O `  suc  u
) ) )
402 fveq2 6191 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( w  =  ( O `  suc  u )  ->  ( F `  w )  =  ( F `  ( O `  suc  u
) ) )
403 fveq2 6191 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( w  =  ( O `  suc  u )  ->  ( G `  w )  =  ( G `  ( O `  suc  u
) ) )
404402, 403eqeq12d 2637 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( w  =  ( O `  suc  u )  ->  (
( F `  w
)  =  ( G `
 w )  <->  ( F `  ( O `  suc  u ) )  =  ( G `  ( O `  suc  u ) ) ) )
405401, 404imbi12d 334 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( w  =  ( O `  suc  u )  ->  (
( X  e.  w  ->  ( F `  w
)  =  ( G `
 w ) )  <-> 
( X  e.  ( O `  suc  u
)  ->  ( F `  ( O `  suc  u ) )  =  ( G `  ( O `  suc  u ) ) ) ) )
406405rspcv 3305 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( O `  suc  u
)  e.  B  -> 
( A. w  e.  B  ( X  e.  w  ->  ( F `  w )  =  ( G `  w ) )  ->  ( X  e.  ( O `  suc  u )  ->  ( F `  ( O `  suc  u ) )  =  ( G `  ( O `  suc  u
) ) ) ) )
407210, 386, 400, 406syl3c 66 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( F `  ( O `  suc  u
) )  =  ( G `  ( O `
 suc  u )
) )
408407oveq2d 6666 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( ( A  ^o  ( O `  suc  u ) )  .o  ( F `  ( O `  suc  u ) ) )  =  ( ( A  ^o  ( O `  suc  u ) )  .o  ( G `
 ( O `  suc  u ) ) ) )
409408oveq1d 6665 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( ( ( A  ^o  ( O `
 suc  u )
)  .o  ( F `
 ( O `  suc  u ) ) )  +o  ( H `  suc  u ) )  =  ( ( ( A  ^o  ( O `  suc  u ) )  .o  ( G `  ( O `  suc  u ) ) )  +o  ( H `  suc  u ) ) )
410384, 409eqtr4d 2659 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( H `  suc  suc  u )  =  ( ( ( A  ^o  ( O `  suc  u ) )  .o  ( F `  ( O `  suc  u ) ) )  +o  ( H `  suc  u ) ) )
411382, 410eleq12d 2695 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( ( ( A CNF  B ) `  ( x  e.  B  |->  if ( x  C_  ( O `  suc  u
) ,  ( F `
 x ) ,  (/) ) ) )  e.  ( H `  suc  suc  u )  <->  ( (
( A  ^o  ( O `  suc  u ) )  .o  ( F `
 ( O `  suc  u ) ) )  +o  ( ( A CNF 
B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) ) )  e.  ( ( ( A  ^o  ( O `
 suc  u )
)  .o  ( F `
 ( O `  suc  u ) ) )  +o  ( H `  suc  u ) ) ) )
412222, 411bitr4d 271 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( ( ( A CNF  B ) `  ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  u )  <->  ( ( A CNF  B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  suc  u ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  suc  u ) ) )
413412biimpd 219 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( ( ( A CNF  B ) `  ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  u )  ->  (
( A CNF  B ) `
 ( x  e.  B  |->  if ( x 
C_  ( O `  suc  u ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  suc  u ) ) )
414148, 413embantd 59 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  u ) )  ->  ( ( ( u  e.  dom  O  /\  ( `' O `  X )  C_  u
)  ->  ( ( A CNF  B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  u ) )  -> 
( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  suc  u ) ,  ( F `  x
) ,  (/) ) ) )  e.  ( H `
 suc  suc  u ) ) )
415414expr 643 . . . . . . . . . . . 12  |-  ( (
ph  /\  suc  u  e. 
dom  O )  -> 
( ( `' O `  X )  C_  u  ->  ( ( ( u  e.  dom  O  /\  ( `' O `  X ) 
C_  u )  -> 
( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  u ) )  -> 
( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  suc  u ) ,  ( F `  x
) ,  (/) ) ) )  e.  ( H `
 suc  suc  u ) ) ) )
416141, 415sylbird 250 . . . . . . . . . . 11  |-  ( (
ph  /\  suc  u  e. 
dom  O )  -> 
( ( `' O `  X )  e.  suc  u  ->  ( ( ( u  e.  dom  O  /\  ( `' O `  X )  C_  u
)  ->  ( ( A CNF  B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  u ) )  -> 
( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  suc  u ) ,  ( F `  x
) ,  (/) ) ) )  e.  ( H `
 suc  suc  u ) ) ) )
417 fveq2 6191 . . . . . . . . . . . . . . . . . . 19  |-  ( ( `' O `  X )  =  suc  u  -> 
( O `  ( `' O `  X ) )  =  ( O `
 suc  u )
)
418417sseq2d 3633 . . . . . . . . . . . . . . . . . 18  |-  ( ( `' O `  X )  =  suc  u  -> 
( x  C_  ( O `  ( `' O `  X )
)  <->  x  C_  ( O `
 suc  u )
) )
419418ifbid 4108 . . . . . . . . . . . . . . . . 17  |-  ( ( `' O `  X )  =  suc  u  ->  if ( x  C_  ( O `  ( `' O `  X )
) ,  ( F `
 x ) ,  (/) )  =  if ( x  C_  ( O `
 suc  u ) ,  ( F `  x ) ,  (/) ) )
420419mpteq2dv 4745 . . . . . . . . . . . . . . . 16  |-  ( ( `' O `  X )  =  suc  u  -> 
( x  e.  B  |->  if ( x  C_  ( O `  ( `' O `  X ) ) ,  ( F `
 x ) ,  (/) ) )  =  ( x  e.  B  |->  if ( x  C_  ( O `  suc  u ) ,  ( F `  x ) ,  (/) ) ) )
421420fveq2d 6195 . . . . . . . . . . . . . . 15  |-  ( ( `' O `  X )  =  suc  u  -> 
( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  ( `' O `  X ) ) ,  ( F `  x
) ,  (/) ) ) )  =  ( ( A CNF  B ) `  ( x  e.  B  |->  if ( x  C_  ( O `  suc  u
) ,  ( F `
 x ) ,  (/) ) ) ) )
422 suceq 5790 . . . . . . . . . . . . . . . 16  |-  ( ( `' O `  X )  =  suc  u  ->  suc  ( `' O `  X )  =  suc  suc  u )
423422fveq2d 6195 . . . . . . . . . . . . . . 15  |-  ( ( `' O `  X )  =  suc  u  -> 
( H `  suc  ( `' O `  X ) )  =  ( H `
 suc  suc  u ) )
424421, 423eleq12d 2695 . . . . . . . . . . . . . 14  |-  ( ( `' O `  X )  =  suc  u  -> 
( ( ( A CNF 
B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  ( `' O `  X )
) ,  ( F `
 x ) ,  (/) ) ) )  e.  ( H `  suc  ( `' O `  X ) )  <->  ( ( A CNF 
B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  suc  u ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  suc  u ) ) )
425115, 424syl5ibcom 235 . . . . . . . . . . . . 13  |-  ( ph  ->  ( ( `' O `  X )  =  suc  u  ->  ( ( A CNF 
B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  suc  u ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  suc  u ) ) )
426425adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  suc  u  e. 
dom  O )  -> 
( ( `' O `  X )  =  suc  u  ->  ( ( A CNF 
B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  suc  u ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  suc  u ) ) )
427426a1dd 50 . . . . . . . . . . 11  |-  ( (
ph  /\  suc  u  e. 
dom  O )  -> 
( ( `' O `  X )  =  suc  u  ->  ( ( ( u  e.  dom  O  /\  ( `' O `  X )  C_  u
)  ->  ( ( A CNF  B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  u ) )  -> 
( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  suc  u ) ,  ( F `  x
) ,  (/) ) ) )  e.  ( H `
 suc  suc  u ) ) ) )
428416, 427jaod 395 . . . . . . . . . 10  |-  ( (
ph  /\  suc  u  e. 
dom  O )  -> 
( ( ( `' O `  X )  e.  suc  u  \/  ( `' O `  X )  =  suc  u )  ->  (
( ( u  e. 
dom  O  /\  ( `' O `  X ) 
C_  u )  -> 
( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  u ) )  -> 
( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  suc  u ) ,  ( F `  x
) ,  (/) ) ) )  e.  ( H `
 suc  suc  u ) ) ) )
429135, 428sylbid 230 . . . . . . . . 9  |-  ( (
ph  /\  suc  u  e. 
dom  O )  -> 
( ( `' O `  X )  C_  suc  u  ->  ( ( ( u  e.  dom  O  /\  ( `' O `  X )  C_  u
)  ->  ( ( A CNF  B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  u ) )  -> 
( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  suc  u ) ,  ( F `  x
) ,  (/) ) ) )  e.  ( H `
 suc  suc  u ) ) ) )
430429expimpd 629 . . . . . . . 8  |-  ( ph  ->  ( ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  suc  u )  ->  ( ( ( u  e.  dom  O  /\  ( `' O `  X ) 
C_  u )  -> 
( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  u ) )  -> 
( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  suc  u ) ,  ( F `  x
) ,  (/) ) ) )  e.  ( H `
 suc  suc  u ) ) ) )
431430com23 86 . . . . . . 7  |-  ( ph  ->  ( ( ( u  e.  dom  O  /\  ( `' O `  X ) 
C_  u )  -> 
( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  u ) )  -> 
( ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  suc  u )  ->  ( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  suc  u ) ,  ( F `  x
) ,  (/) ) ) )  e.  ( H `
 suc  suc  u ) ) ) )
432431a1i 11 . . . . . 6  |-  ( u  e.  om  ->  ( ph  ->  ( ( ( u  e.  dom  O  /\  ( `' O `  X )  C_  u
)  ->  ( ( A CNF  B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  u ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  u ) )  -> 
( ( suc  u  e.  dom  O  /\  ( `' O `  X ) 
C_  suc  u )  ->  ( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  suc  u ) ,  ( F `  x
) ,  (/) ) ) )  e.  ( H `
 suc  suc  u ) ) ) ) )
43382, 94, 106, 127, 432finds2 7094 . . . . 5  |-  ( y  e.  om  ->  ( ph  ->  ( ( y  e.  dom  O  /\  ( `' O `  X ) 
C_  y )  -> 
( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  y ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  y ) ) ) )
43470, 433vtoclga 3272 . . . 4  |-  ( U. dom  O  e.  om  ->  (
ph  ->  ( ( U. dom  O  e.  dom  O  /\  ( `' O `  X )  C_  U. dom  O )  ->  ( ( A CNF  B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  U. dom  O
) ,  ( F `
 x ) ,  (/) ) ) )  e.  ( H `  suc  U.
dom  O ) ) ) )
43557, 434mpcom 38 . . 3  |-  ( ph  ->  ( ( U. dom  O  e.  dom  O  /\  ( `' O `  X ) 
C_  U. dom  O )  ->  ( ( A CNF 
B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  U. dom  O
) ,  ( F `
 x ) ,  (/) ) ) )  e.  ( H `  suc  U.
dom  O ) ) )
43644, 54, 435mp2and 715 . 2  |-  ( ph  ->  ( ( A CNF  B
) `  ( x  e.  B  |->  if ( x  C_  ( O `  U. dom  O ) ,  ( F `  x ) ,  (/) ) ) )  e.  ( H `  suc  U.
dom  O ) )
437156feqmptd 6249 . . . 4  |-  ( ph  ->  F  =  ( x  e.  B  |->  ( F `
 x ) ) )
438 eqeq2 2633 . . . . . 6  |-  ( ( F `  x )  =  if ( x 
C_  ( O `  U. dom  O ) ,  ( F `  x
) ,  (/) )  -> 
( ( F `  x )  =  ( F `  x )  <-> 
( F `  x
)  =  if ( x  C_  ( O `  U. dom  O ) ,  ( F `  x ) ,  (/) ) ) )
439 eqeq2 2633 . . . . . 6  |-  ( (/)  =  if ( x  C_  ( O `  U. dom  O ) ,  ( F `
 x ) ,  (/) )  ->  ( ( F `  x )  =  (/)  <->  ( F `  x )  =  if ( x  C_  ( O `  U. dom  O
) ,  ( F `
 x ) ,  (/) ) ) )
440 eqidd 2623 . . . . . 6  |-  ( ( ( ph  /\  x  e.  B )  /\  x  C_  ( O `  U. dom  O ) )  -> 
( F `  x
)  =  ( F `
 x ) )
441207ffvelrni 6358 . . . . . . . . . . . . . 14  |-  ( U. dom  O  e.  dom  O  ->  ( O `  U. dom  O )  e.  ( G supp  (/) ) )
44244, 441syl 17 . . . . . . . . . . . . 13  |-  ( ph  ->  ( O `  U. dom  O )  e.  ( G supp  (/) ) )
443205, 442sseldd 3604 . . . . . . . . . . . 12  |-  ( ph  ->  ( O `  U. dom  O )  e.  B
)
444 onelon 5748 . . . . . . . . . . . 12  |-  ( ( B  e.  On  /\  ( O `  U. dom  O )  e.  B )  ->  ( O `  U. dom  O )  e.  On )
44510, 443, 444syl2anc 693 . . . . . . . . . . 11  |-  ( ph  ->  ( O `  U. dom  O )  e.  On )
446445adantr 481 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  B )  ->  ( O `  U. dom  O
)  e.  On )
447 ontri1 5757 . . . . . . . . . 10  |-  ( ( x  e.  On  /\  ( O `  U. dom  O )  e.  On )  ->  ( x  C_  ( O `  U. dom  O )  <->  -.  ( O `  U. dom  O )  e.  x ) )
448232, 446, 447syl2anc 693 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  B )  ->  (
x  C_  ( O `  U. dom  O )  <->  -.  ( O `  U. dom  O )  e.  x
) )
449448con2bid 344 . . . . . . . 8  |-  ( (
ph  /\  x  e.  B )  ->  (
( O `  U. dom  O )  e.  x  <->  -.  x  C_  ( O `  U. dom  O ) ) )
450 simprl 794 . . . . . . . . . . 11  |-  ( (
ph  /\  ( x  e.  B  /\  ( O `  U. dom  O
)  e.  x ) )  ->  x  e.  B )
451385adantr 481 . . . . . . . . . . 11  |-  ( (
ph  /\  ( x  e.  B  /\  ( O `  U. dom  O
)  e.  x ) )  ->  A. w  e.  B  ( X  e.  w  ->  ( F `
 w )  =  ( G `  w
) ) )
452 eloni 5733 . . . . . . . . . . . . . . . . . 18  |-  ( ( `' O `  X )  e.  On  ->  Ord  ( `' O `  X ) )
453129, 452syl 17 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  Ord  ( `' O `  X ) )
454 orduni 6994 . . . . . . . . . . . . . . . . . 18  |-  ( Ord 
dom  O  ->  Ord  U. dom  O )
45536, 454ax-mp 5 . . . . . . . . . . . . . . . . 17  |-  Ord  U. dom  O
456 ordtri1 5756 . . . . . . . . . . . . . . . . 17  |-  ( ( Ord  ( `' O `  X )  /\  Ord  U.
dom  O )  -> 
( ( `' O `  X )  C_  U. dom  O  <->  -.  U. dom  O  e.  ( `' O `  X ) ) )
457453, 455, 456sylancl 694 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( ( `' O `  X )  C_  U. dom  O  <->  -.  U. dom  O  e.  ( `' O `  X ) ) )
45854, 457mpbid 222 . . . . . . . . . . . . . . 15  |-  ( ph  ->  -.  U. dom  O  e.  ( `' O `  X ) )
459 isorel 6576 . . . . . . . . . . . . . . . . . 18  |-  ( ( O  Isom  _E  ,  _E  ( dom  O ,  ( G supp  (/) ) )  /\  ( U. dom  O  e. 
dom  O  /\  ( `' O `  X )  e.  dom  O ) )  ->  ( U. dom  O  _E  ( `' O `  X )  <-> 
( O `  U. dom  O )  _E  ( O `  ( `' O `  X )
) ) )
46046, 44, 52, 459syl12anc 1324 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( U. dom  O  _E  ( `' O `  X )  <->  ( O `  U. dom  O )  _E  ( O `  ( `' O `  X ) ) ) )
461 fvex 6201 . . . . . . . . . . . . . . . . . 18  |-  ( `' O `  X )  e.  _V
462461epelc 5031 . . . . . . . . . . . . . . . . 17  |-  ( U. dom  O  _E  ( `' O `  X )  <->  U. dom  O  e.  ( `' O `  X ) )
463 fvex 6201 . . . . . . . . . . . . . . . . . 18  |-  ( O `
 ( `' O `  X ) )  e. 
_V
464463epelc 5031 . . . . . . . . . . . . . . . . 17  |-  ( ( O `  U. dom  O )  _E  ( O `
 ( `' O `  X ) )  <->  ( O `  U. dom  O )  e.  ( O `  ( `' O `  X ) ) )
465460, 462, 4643bitr3g 302 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( U. dom  O  e.  ( `' O `  X )  <->  ( O `  U. dom  O )  e.  ( O `  ( `' O `  X ) ) ) )
466108eleq2d 2687 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( ( O `  U. dom  O )  e.  ( O `  ( `' O `  X ) )  <->  ( O `  U. dom  O )  e.  X ) )
467465, 466bitrd 268 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( U. dom  O  e.  ( `' O `  X )  <->  ( O `  U. dom  O )  e.  X ) )
468458, 467mtbid 314 . . . . . . . . . . . . . 14  |-  ( ph  ->  -.  ( O `  U. dom  O )  e.  X )
469 onelon 5748 . . . . . . . . . . . . . . . 16  |-  ( ( B  e.  On  /\  X  e.  B )  ->  X  e.  On )
47010, 162, 469syl2anc 693 . . . . . . . . . . . . . . 15  |-  ( ph  ->  X  e.  On )
471 ontri1 5757 . . . . . . . . . . . . . . 15  |-  ( ( X  e.  On  /\  ( O `  U. dom  O )  e.  On )  ->  ( X  C_  ( O `  U. dom  O )  <->  -.  ( O `  U. dom  O )  e.  X ) )
472470, 445, 471syl2anc 693 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( X  C_  ( O `  U. dom  O
)  <->  -.  ( O `  U. dom  O )  e.  X ) )
473468, 472mpbird 247 . . . . . . . . . . . . 13  |-  ( ph  ->  X  C_  ( O `  U. dom  O ) )
474473adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( x  e.  B  /\  ( O `  U. dom  O
)  e.  x ) )  ->  X  C_  ( O `  U. dom  O
) )
475 simprr 796 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( x  e.  B  /\  ( O `  U. dom  O
)  e.  x ) )  ->  ( O `  U. dom  O )  e.  x )
476470adantr 481 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( x  e.  B  /\  ( O `  U. dom  O
)  e.  x ) )  ->  X  e.  On )
477232adantrr 753 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( x  e.  B  /\  ( O `  U. dom  O
)  e.  x ) )  ->  x  e.  On )
478 ontr2 5772 . . . . . . . . . . . . 13  |-  ( ( X  e.  On  /\  x  e.  On )  ->  ( ( X  C_  ( O `  U. dom  O )  /\  ( O `
 U. dom  O
)  e.  x )  ->  X  e.  x
) )
479476, 477, 478syl2anc 693 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( x  e.  B  /\  ( O `  U. dom  O
)  e.  x ) )  ->  ( ( X  C_  ( O `  U. dom  O )  /\  ( O `  U. dom  O )  e.  x )  ->  X  e.  x
) )
480474, 475, 479mp2and 715 . . . . . . . . . . 11  |-  ( (
ph  /\  ( x  e.  B  /\  ( O `  U. dom  O
)  e.  x ) )  ->  X  e.  x )
481 eleq2 2690 . . . . . . . . . . . . 13  |-  ( w  =  x  ->  ( X  e.  w  <->  X  e.  x ) )
482 fveq2 6191 . . . . . . . . . . . . . 14  |-  ( w  =  x  ->  ( F `  w )  =  ( F `  x ) )
483 fveq2 6191 . . . . . . . . . . . . . 14  |-  ( w  =  x  ->  ( G `  w )  =  ( G `  x ) )
484482, 483eqeq12d 2637 . . . . . . . . . . . . 13  |-  ( w  =  x  ->  (
( F `  w
)  =  ( G `
 w )  <->  ( F `  x )  =  ( G `  x ) ) )
485481, 484imbi12d 334 . . . . . . . . . . . 12  |-  ( w  =  x  ->  (
( X  e.  w  ->  ( F `  w
)  =  ( G `
 w ) )  <-> 
( X  e.  x  ->  ( F `  x
)  =  ( G `
 x ) ) ) )
486485rspcv 3305 . . . . . . . . . . 11  |-  ( x  e.  B  ->  ( A. w  e.  B  ( X  e.  w  ->  ( F `  w
)  =  ( G `
 w ) )  ->  ( X  e.  x  ->  ( F `  x )  =  ( G `  x ) ) ) )
487450, 451, 480, 486syl3c 66 . . . . . . . . . 10  |-  ( (
ph  /\  ( x  e.  B  /\  ( O `  U. dom  O
)  e.  x ) )  ->  ( F `  x )  =  ( G `  x ) )
488475adantr 481 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  (
x  e.  B  /\  ( O `  U. dom  O )  e.  x ) )  /\  x  e.  ( G supp  (/) ) )  ->  ( O `  U. dom  O )  e.  x )
48946ad2antrr 762 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  (
x  e.  B  /\  ( O `  U. dom  O )  e.  x ) )  /\  x  e.  ( G supp  (/) ) )  ->  O  Isom  _E  ,  _E  ( dom  O , 
( G supp  (/) ) ) )
49044ad2antrr 762 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  (
x  e.  B  /\  ( O `  U. dom  O )  e.  x ) )  /\  x  e.  ( G supp  (/) ) )  ->  U. dom  O  e. 
dom  O )
49151ad2antrr 762 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  (
x  e.  B  /\  ( O `  U. dom  O )  e.  x ) )  /\  x  e.  ( G supp  (/) ) )  ->  `' O :
( G supp  (/) ) --> dom 
O )
492 ffvelrn 6357 . . . . . . . . . . . . . . . . . 18  |-  ( ( `' O : ( G supp  (/) ) --> dom  O  /\  x  e.  ( G supp  (/) ) )  ->  ( `' O `  x )  e.  dom  O )
493491, 492sylancom 701 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  (
x  e.  B  /\  ( O `  U. dom  O )  e.  x ) )  /\  x  e.  ( G supp  (/) ) )  ->  ( `' O `  x )  e.  dom  O )
494 isorel 6576 . . . . . . . . . . . . . . . . 17  |-  ( ( O  Isom  _E  ,  _E  ( dom  O ,  ( G supp  (/) ) )  /\  ( U. dom  O  e. 
dom  O  /\  ( `' O `  x )  e.  dom  O ) )  ->  ( U. dom  O  _E  ( `' O `  x )  <-> 
( O `  U. dom  O )  _E  ( O `  ( `' O `  x )
) ) )
495489, 490, 493, 494syl12anc 1324 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  (
x  e.  B  /\  ( O `  U. dom  O )  e.  x ) )  /\  x  e.  ( G supp  (/) ) )  ->  ( U. dom  O  _E  ( `' O `  x )  <->  ( O `  U. dom  O )  _E  ( O `  ( `' O `  x ) ) ) )
496278epelc 5031 . . . . . . . . . . . . . . . 16  |-  ( U. dom  O  _E  ( `' O `  x )  <->  U. dom  O  e.  ( `' O `  x ) )
497280epelc 5031 . . . . . . . . . . . . . . . 16  |-  ( ( O `  U. dom  O )  _E  ( O `
 ( `' O `  x ) )  <->  ( O `  U. dom  O )  e.  ( O `  ( `' O `  x ) ) )
498495, 496, 4973bitr3g 302 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  (
x  e.  B  /\  ( O `  U. dom  O )  e.  x ) )  /\  x  e.  ( G supp  (/) ) )  ->  ( U. dom  O  e.  ( `' O `  x )  <->  ( O `  U. dom  O )  e.  ( O `  ( `' O `  x ) ) ) )
49948ad2antrr 762 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  (
x  e.  B  /\  ( O `  U. dom  O )  e.  x ) )  /\  x  e.  ( G supp  (/) ) )  ->  O : dom  O -1-1-onto-> ( G supp  (/) ) )
500499, 270sylancom 701 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  (
x  e.  B  /\  ( O `  U. dom  O )  e.  x ) )  /\  x  e.  ( G supp  (/) ) )  ->  ( O `  ( `' O `  x ) )  =  x )
501500eleq2d 2687 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  (
x  e.  B  /\  ( O `  U. dom  O )  e.  x ) )  /\  x  e.  ( G supp  (/) ) )  ->  ( ( O `
 U. dom  O
)  e.  ( O `
 ( `' O `  x ) )  <->  ( O `  U. dom  O )  e.  x ) )
502498, 501bitrd 268 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  (
x  e.  B  /\  ( O `  U. dom  O )  e.  x ) )  /\  x  e.  ( G supp  (/) ) )  ->  ( U. dom  O  e.  ( `' O `  x )  <->  ( O `  U. dom  O )  e.  x ) )
503488, 502mpbird 247 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  (
x  e.  B  /\  ( O `  U. dom  O )  e.  x ) )  /\  x  e.  ( G supp  (/) ) )  ->  U. dom  O  e.  ( `' O `  x ) )
504 elssuni 4467 . . . . . . . . . . . . . . 15  |-  ( ( `' O `  x )  e.  dom  O  -> 
( `' O `  x )  C_  U. dom  O )
505493, 504syl 17 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  (
x  e.  B  /\  ( O `  U. dom  O )  e.  x ) )  /\  x  e.  ( G supp  (/) ) )  ->  ( `' O `  x )  C_  U. dom  O )
50636, 493, 284sylancr 695 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  (
x  e.  B  /\  ( O `  U. dom  O )  e.  x ) )  /\  x  e.  ( G supp  (/) ) )  ->  ( `' O `  x )  e.  On )
507506, 286syl 17 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  (
x  e.  B  /\  ( O `  U. dom  O )  e.  x ) )  /\  x  e.  ( G supp  (/) ) )  ->  Ord  ( `' O `  x )
)
508 ordtri1 5756 . . . . . . . . . . . . . . 15  |-  ( ( Ord  ( `' O `  x )  /\  Ord  U.
dom  O )  -> 
( ( `' O `  x )  C_  U. dom  O  <->  -.  U. dom  O  e.  ( `' O `  x ) ) )
509507, 455, 508sylancl 694 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  (
x  e.  B  /\  ( O `  U. dom  O )  e.  x ) )  /\  x  e.  ( G supp  (/) ) )  ->  ( ( `' O `  x ) 
C_  U. dom  O  <->  -.  U. dom  O  e.  ( `' O `  x ) ) )
510505, 509mpbid 222 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  (
x  e.  B  /\  ( O `  U. dom  O )  e.  x ) )  /\  x  e.  ( G supp  (/) ) )  ->  -.  U. dom  O  e.  ( `' O `  x ) )
511503, 510pm2.65da 600 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( x  e.  B  /\  ( O `  U. dom  O
)  e.  x ) )  ->  -.  x  e.  ( G supp  (/) ) )
512450, 511eldifd 3585 . . . . . . . . . . 11  |-  ( (
ph  /\  ( x  e.  B  /\  ( O `  U. dom  O
)  e.  x ) )  ->  x  e.  ( B  \  ( G supp 
(/) ) ) )
513 ssid 3624 . . . . . . . . . . . . 13  |-  ( G supp  (/) )  C_  ( G supp  (/) )
514513a1i 11 . . . . . . . . . . . 12  |-  ( ph  ->  ( G supp  (/) )  C_  ( G supp  (/) ) )
515160, 514, 10, 182suppssr 7326 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  ( B  \  ( G supp 
(/) ) ) )  ->  ( G `  x )  =  (/) )
516512, 515syldan 487 . . . . . . . . . 10  |-  ( (
ph  /\  ( x  e.  B  /\  ( O `  U. dom  O
)  e.  x ) )  ->  ( G `  x )  =  (/) )
517487, 516eqtrd 2656 . . . . . . . . 9  |-  ( (
ph  /\  ( x  e.  B  /\  ( O `  U. dom  O
)  e.  x ) )  ->  ( F `  x )  =  (/) )
518517expr 643 . . . . . . . 8  |-  ( (
ph  /\  x  e.  B )  ->  (
( O `  U. dom  O )  e.  x  ->  ( F `  x
)  =  (/) ) )
519449, 518sylbird 250 . . . . . . 7  |-  ( (
ph  /\  x  e.  B )  ->  ( -.  x  C_  ( O `
 U. dom  O
)  ->  ( F `  x )  =  (/) ) )
520519imp 445 . . . . . 6  |-  ( ( ( ph  /\  x  e.  B )  /\  -.  x  C_  ( O `  U. dom  O ) )  ->  ( F `  x )  =  (/) )
521438, 439, 440, 520ifbothda 4123 . . . . 5  |-  ( (
ph  /\  x  e.  B )  ->  ( F `  x )  =  if ( x  C_  ( O `  U. dom  O ) ,  ( F `
 x ) ,  (/) ) )
522521mpteq2dva 4744 . . . 4  |-  ( ph  ->  ( x  e.  B  |->  ( F `  x
) )  =  ( x  e.  B  |->  if ( x  C_  ( O `  U. dom  O
) ,  ( F `
 x ) ,  (/) ) ) )
523437, 522eqtrd 2656 . . 3  |-  ( ph  ->  F  =  ( x  e.  B  |->  if ( x  C_  ( O `  U. dom  O ) ,  ( F `  x ) ,  (/) ) ) )
524523fveq2d 6195 . 2  |-  ( ph  ->  ( ( A CNF  B
) `  F )  =  ( ( A CNF 
B ) `  (
x  e.  B  |->  if ( x  C_  ( O `  U. dom  O
) ,  ( F `
 x ) ,  (/) ) ) ) )
5258, 9, 10, 2, 13, 113cantnfval 8565 . . 3  |-  ( ph  ->  ( ( A CNF  B
) `  G )  =  ( H `  dom  O ) )
52643fveq2d 6195 . . 3  |-  ( ph  ->  ( H `  dom  O )  =  ( H `
 suc  U. dom  O
) )
527525, 526eqtrd 2656 . 2  |-  ( ph  ->  ( ( A CNF  B
) `  G )  =  ( H `  suc  U. dom  O ) )
528436, 524, 5273eltr4d 2716 1  |-  ( ph  ->  ( ( A CNF  B
) `  F )  e.  ( ( A CNF  B
) `  G )
)
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 196    \/ wo 383    /\ wa 384    /\ w3a 1037    = wceq 1483    e. wcel 1990    =/= wne 2794   A.wral 2912   E.wrex 2913   {crab 2916   _Vcvv 3200    \ cdif 3571    C_ wss 3574   (/)c0 3915   ifcif 4086   U.cuni 4436   class class class wbr 4653   {copab 4712    |-> cmpt 4729   Tr wtr 4752    _E cep 5028    We wwe 5072   `'ccnv 5113   dom cdm 5114   Ord word 5722   Oncon0 5723   Lim wlim 5724   suc csuc 5725   Fun wfun 5882    Fn wfn 5883   -->wf 5884   -1-1-onto->wf1o 5887   ` cfv 5888    Isom wiso 5889  (class class class)co 6650    |-> cmpt2 6652   omcom 7065   supp csupp 7295  seq𝜔cseqom 7542   1oc1o 7553    +o coa 7557    .o comu 7558    ^o coe 7559    ~~ cen 7952   finSupp cfsupp 8275  OrdIsocoi 8414   CNF ccnf 8558
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-8 1992  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602  ax-rep 4771  ax-sep 4781  ax-nul 4789  ax-pow 4843  ax-pr 4906  ax-un 6949
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1038  df-3an 1039  df-tru 1486  df-fal 1489  df-ex 1705  df-nf 1710  df-sb 1881  df-eu 2474  df-mo 2475  df-clab 2609  df-cleq 2615  df-clel 2618  df-nfc 2753  df-ne 2795  df-ral 2917  df-rex 2918  df-reu 2919  df-rmo 2920  df-rab 2921  df-v 3202  df-sbc 3436  df-csb 3534  df-dif 3577  df-un 3579  df-in 3581  df-ss 3588  df-pss 3590  df-nul 3916  df-if 4087  df-pw 4160  df-sn 4178  df-pr 4180  df-tp 4182  df-op 4184  df-uni 4437  df-int 4476  df-iun 4522  df-br 4654  df-opab 4713  df-mpt 4730  df-tr 4753  df-id 5024  df-eprel 5029  df-po 5035  df-so 5036  df-fr 5073  df-se 5074  df-we 5075  df-xp 5120  df-rel 5121  df-cnv 5122  df-co 5123  df-dm 5124  df-rn 5125  df-res 5126  df-ima 5127  df-pred 5680  df-ord 5726  df-on 5727  df-lim 5728  df-suc 5729  df-iota 5851  df-fun 5890  df-fn 5891  df-f 5892  df-f1 5893  df-fo 5894  df-f1o 5895  df-fv 5896  df-isom 5897  df-riota 6611  df-ov 6653  df-oprab 6654  df-mpt2 6655  df-om 7066  df-1st 7168  df-2nd 7169  df-supp 7296  df-wrecs 7407  df-recs 7468  df-rdg 7506  df-seqom 7543  df-1o 7560  df-2o 7561  df-oadd 7564  df-omul 7565  df-oexp 7566  df-er 7742  df-map 7859  df-en 7956  df-dom 7957  df-sdom 7958  df-fin 7959  df-fsupp 8276  df-oi 8415  df-cnf 8559
This theorem is referenced by:  cantnf  8590
  Copyright terms: Public domain W3C validator