ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  nninfwlpoimlemg Unicode version
Theorem nninfwlpoimlemg 7365
Description: Lemma for nninfwlpoim 7369. (Contributed by Jim Kingdon, 8-Dec-2024.)
Hypotheses
Ref Expression
nninfwlpoimlemg.f |- ( ph -> F : om --> 2o )
nninfwlpoimlemg.g |- G = ( i e. om |-> if ( E. x e. suc i ( F ` x ) = (/) , (/) , 1o ) )
Assertion
Ref Expression
nninfwlpoimlemg |- ( ph -> G e. ℕ∞ )
Distinct variable groups:   i, F   ph, i, x
Allowed substitution hints:   F( x)   G( x, i)
Proof of Theorem nninfwlpoimlemg
Dummy variables f j are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 0lt2o 6604 . . . . . 6 |- (/) e. 2o
21a1i 9 . . . . 5 |- ( ( ph /\ i e. om ) -> (/) e. 2o )
3 1lt2o 6605 . . . . . 6 |- 1o e. 2o
43a1i 9 . . . . 5 |- ( ( ph /\ i e. om ) -> 1o e. 2o )
5 peano2 4691 . . . . . . . 8 |- ( i e. om -> suc i e. om )
65adantl 277 . . . . . . 7 |- ( ( ph /\ i e. om ) -> suc i e. om )
7 nnfi 7054 . . . . . . 7 |- ( suc i e. om -> suc i e. Fin )
86, 7syl 14 . . . . . 6 |- ( ( ph /\ i e. om ) -> suc i e. Fin )
9 2ssom 6687 . . . . . . . . 9 |- 2o C_ om
10 nninfwlpoimlemg.f . . . . . . . . . . 11 |- ( ph -> F : om --> 2o )
1110ad2antrr 488 . . . . . . . . . 10 |- ( ( ( ph /\ i e. om ) /\ x e. suc i ) -> F : om --> 2o )
12 simpr 110 . . . . . . . . . . 11 |- ( ( ( ph /\ i e. om ) /\ x e. suc i ) -> x e. suc i )
136adantr 276 . . . . . . . . . . 11 |- ( ( ( ph /\ i e. om ) /\ x e. suc i ) -> suc i e. om )
14 elnn 4702 . . . . . . . . . . 11 |- ( ( x e. suc i /\ suc i e. om ) -> x e. om )
1512, 13, 14syl2anc 411 . . . . . . . . . 10 |- ( ( ( ph /\ i e. om ) /\ x e. suc i ) -> x e. om )
1611, 15ffvelcdmd 5779 . . . . . . . . 9 |- ( ( ( ph /\ i e. om ) /\ x e. suc i ) -> ( F ` x ) e. 2o )
179, 16sselid 3223 . . . . . . . 8 |- ( ( ( ph /\ i e. om ) /\ x e. suc i ) -> ( F ` x ) e. om )
18 peano1 4690 . . . . . . . . 9 |- (/) e. om
1918a1i 9 . . . . . . . 8 |- ( ( ( ph /\ i e. om ) /\ x e. suc i ) -> (/) e. om )
20 nndceq 6662 . . . . . . . 8 |- ( ( ( F ` x ) e. om /\ (/) e. om ) -> DECID ( F ` x ) = (/) )
2117, 19, 20syl2anc 411 . . . . . . 7 |- ( ( ( ph /\ i e. om ) /\ x e. suc i ) -> DECID ( F ` x ) = (/) )
2221ralrimiva 2603 . . . . . 6 |- ( ( ph /\ i e. om ) -> A. x e. suc iDECID ( F ` x ) = (/) )
23 finexdc 7085 . . . . . 6 |- ( ( suc i e. Fin /\ A. x e. suc iDECID ( F ` x ) = (/) ) -> DECID E. x e. suc i ( F ` x ) = (/) )
248, 22, 23syl2anc 411 . . . . 5 |- ( ( ph /\ i e. om ) -> DECID E. x e. suc i ( F ` x ) = (/) )
252, 4, 24ifcldcd 3641 . . . 4 |- ( ( ph /\ i e. om ) -> if ( E. x e. suc i ( F ` x ) = (/) , (/) , 1o ) e. 2o )
26 nninfwlpoimlemg.g . . . 4 |- G = ( i e. om |-> if ( E. x e. suc i ( F ` x ) = (/) , (/) , 1o ) )
2725, 26fmptd 5797 . . 3 |- ( ph -> G : om --> 2o )
28 2onn 6684 . . . . 5 |- 2o e. om
2928elexi 2813 . . . 4 |- 2o e. _V
30 omex 4689 . . . 4 |- om e. _V
3129, 30elmap 6841 . . 3 |- ( G e. ( 2o ^m om ) <-> G : om --> 2o )
3227, 31sylibr 134 . 2 |- ( ph -> G e. ( 2o ^m om ) )
33 simpr 110 . . . . . . 7 |- ( ( ( ph /\ j e. om ) /\ E. x e. suc j ( F ` x ) = (/) ) -> E. x e. suc j ( F ` x ) = (/) )
3433iftrued 3610 . . . . . 6 |- ( ( ( ph /\ j e. om ) /\ E. x e. suc j ( F ` x ) = (/) ) -> if ( E. x e. suc j ( F ` x ) = (/) , (/) , if ( E. x e. { suc j } ( F ` x ) = (/) , (/) , 1o ) ) = (/) )
35 suceq 4497 . . . . . . . . . . . 12 |- ( i = suc j -> suc i = suc suc j )
3635rexeqdv 2735 . . . . . . . . . . 11 |- ( i = suc j -> ( E. x e. suc i ( F ` x ) = (/) <-> E. x e. suc suc j ( F ` x ) = (/) ) )
3736ifbid 3625 . . . . . . . . . 10 |- ( i = suc j -> if ( E. x e. suc i ( F ` x ) = (/) , (/) , 1o ) = if ( E. x e. suc suc j ( F ` x ) = (/) , (/) , 1o ) )
38 peano2 4691 . . . . . . . . . . 11 |- ( j e. om -> suc j e. om )
3938adantl 277 . . . . . . . . . 10 |- ( ( ph /\ j e. om ) -> suc j e. om )
401a1i 9 . . . . . . . . . . 11 |- ( ( ph /\ j e. om ) -> (/) e. 2o )
413a1i 9 . . . . . . . . . . 11 |- ( ( ph /\ j e. om ) -> 1o e. 2o )
42 peano2 4691 . . . . . . . . . . . . . 14 |- ( suc j e. om -> suc suc j e. om )
4339, 42syl 14 . . . . . . . . . . . . 13 |- ( ( ph /\ j e. om ) -> suc suc j e. om )
44 nnfi 7054 . . . . . . . . . . . . 13 |- ( suc suc j e. om -> suc suc j e. Fin )
4543, 44syl 14 . . . . . . . . . . . 12 |- ( ( ph /\ j e. om ) -> suc suc j e. Fin )
4610ad2antrr 488 . . . . . . . . . . . . . . . 16 |- ( ( ( ph /\ j e. om ) /\ x e. suc suc j ) -> F : om --> 2o )
47 simpr 110 . . . . . . . . . . . . . . . . 17 |- ( ( ( ph /\ j e. om ) /\ x e. suc suc j ) -> x e. suc suc j )
4843adantr 276 . . . . . . . . . . . . . . . . 17 |- ( ( ( ph /\ j e. om ) /\ x e. suc suc j ) -> suc suc j e. om )
49 elnn 4702 . . . . . . . . . . . . . . . . 17 |- ( ( x e. suc suc j /\ suc suc j e. om ) -> x e. om )
5047, 48, 49syl2anc 411 . . . . . . . . . . . . . . . 16 |- ( ( ( ph /\ j e. om ) /\ x e. suc suc j ) -> x e. om )
5146, 50ffvelcdmd 5779 . . . . . . . . . . . . . . 15 |- ( ( ( ph /\ j e. om ) /\ x e. suc suc j ) -> ( F ` x ) e. 2o )
529, 51sselid 3223 . . . . . . . . . . . . . 14 |- ( ( ( ph /\ j e. om ) /\ x e. suc suc j ) -> ( F ` x ) e. om )
5318a1i 9 . . . . . . . . . . . . . 14 |- ( ( ( ph /\ j e. om ) /\ x e. suc suc j ) -> (/) e. om )
5452, 53, 20syl2anc 411 . . . . . . . . . . . . 13 |- ( ( ( ph /\ j e. om ) /\ x e. suc suc j ) -> DECID ( F ` x ) = (/) )
5554ralrimiva 2603 . . . . . . . . . . . 12 |- ( ( ph /\ j e. om ) -> A. x e. suc suc jDECID ( F ` x ) = (/) )
56 finexdc 7085 . . . . . . . . . . . 12 |- ( ( suc suc j e. Fin /\ A. x e. suc suc jDECID ( F ` x ) = (/) ) -> DECID E. x e. suc suc j ( F ` x ) = (/) )
5745, 55, 56syl2anc 411 . . . . . . . . . . 11 |- ( ( ph /\ j e. om ) -> DECID E. x e. suc suc j ( F ` x ) = (/) )
5840, 41, 57ifcldcd 3641 . . . . . . . . . 10 |- ( ( ph /\ j e. om ) -> if ( E. x e. suc suc j ( F ` x ) = (/) , (/) , 1o ) e. 2o )
5926, 37, 39, 58fvmptd3 5736 . . . . . . . . 9 |- ( ( ph /\ j e. om ) -> ( G ` suc j ) = if ( E. x e. suc suc j ( F ` x ) = (/) , (/) , 1o ) )
60 df-suc 4466 . . . . . . . . . . . 12 |- suc suc j = ( suc j u. { suc j } )
6160rexeqi 2733 . . . . . . . . . . 11 |- ( E. x e. suc suc j ( F ` x ) = (/) <-> E. x e. ( suc j u. { suc j } ) ( F ` x ) = (/) )
62 rexun 3385 . . . . . . . . . . 11 |- ( E. x e. ( suc j u. { suc j } ) ( F ` x ) = (/) <-> ( E. x e. suc j ( F ` x ) = (/) \/ E. x e. { suc j } ( F ` x ) = (/) ) )
6361, 62bitri 184 . . . . . . . . . 10 |- ( E. x e. suc suc j ( F ` x ) = (/) <-> ( E. x e. suc j ( F ` x ) = (/) \/ E. x e. { suc j } ( F ` x ) = (/) ) )
64 ifbi 3624 . . . . . . . . . 10 |- ( ( E. x e. suc suc j ( F ` x ) = (/) <-> ( E. x e. suc j ( F ` x ) = (/) \/ E. x e. { suc j } ( F ` x ) = (/) ) ) -> if ( E. x e. suc suc j ( F ` x ) = (/) , (/) , 1o ) = if ( ( E. x e. suc j ( F ` x ) = (/) \/ E. x e. { suc j } ( F ` x ) = (/) ) , (/) , 1o ) )
6563, 64ax-mp 5 . . . . . . . . 9 |- if ( E. x e. suc suc j ( F ` x ) = (/) , (/) , 1o ) = if ( ( E. x e. suc j ( F ` x ) = (/) \/ E. x e. { suc j } ( F ` x ) = (/) ) , (/) , 1o )
6659, 65eqtrdi 2278 . . . . . . . 8 |- ( ( ph /\ j e. om ) -> ( G ` suc j ) = if ( ( E. x e. suc j ( F ` x ) = (/) \/ E. x e. { suc j } ( F ` x ) = (/) ) , (/) , 1o ) )
67 nnfi 7054 . . . . . . . . . . 11 |- ( suc j e. om -> suc j e. Fin )
6839, 67syl 14 . . . . . . . . . 10 |- ( ( ph /\ j e. om ) -> suc j e. Fin )
6910ad2antrr 488 . . . . . . . . . . . . . 14 |- ( ( ( ph /\ j e. om ) /\ x e. suc j ) -> F : om --> 2o )
70 simpr 110 . . . . . . . . . . . . . . 15 |- ( ( ( ph /\ j e. om ) /\ x e. suc j ) -> x e. suc j )
7139adantr 276 . . . . . . . . . . . . . . 15 |- ( ( ( ph /\ j e. om ) /\ x e. suc j ) -> suc j e. om )
72 elnn 4702 . . . . . . . . . . . . . . 15 |- ( ( x e. suc j /\ suc j e. om ) -> x e. om )
7370, 71, 72syl2anc 411 . . . . . . . . . . . . . 14 |- ( ( ( ph /\ j e. om ) /\ x e. suc j ) -> x e. om )
7469, 73ffvelcdmd 5779 . . . . . . . . . . . . 13 |- ( ( ( ph /\ j e. om ) /\ x e. suc j ) -> ( F ` x ) e. 2o )
759, 74sselid 3223 . . . . . . . . . . . 12 |- ( ( ( ph /\ j e. om ) /\ x e. suc j ) -> ( F ` x ) e. om )
7618a1i 9 . . . . . . . . . . . 12 |- ( ( ( ph /\ j e. om ) /\ x e. suc j ) -> (/) e. om )
7775, 76, 20syl2anc 411 . . . . . . . . . . 11 |- ( ( ( ph /\ j e. om ) /\ x e. suc j ) -> DECID ( F ` x ) = (/) )
7877ralrimiva 2603 . . . . . . . . . 10 |- ( ( ph /\ j e. om ) -> A. x e. suc jDECID ( F ` x ) = (/) )
79 finexdc 7085 . . . . . . . . . 10 |- ( ( suc j e. Fin /\ A. x e. suc jDECID ( F ` x ) = (/) ) -> DECID E. x e. suc j ( F ` x ) = (/) )
8068, 78, 79syl2anc 411 . . . . . . . . 9 |- ( ( ph /\ j e. om ) -> DECID E. x e. suc j ( F ` x ) = (/) )
81 ifordc 3645 . . . . . . . . 9 |- (DECID E. x e. suc j ( F ` x ) = (/) -> if ( ( E. x e. suc j ( F ` x ) = (/) \/ E. x e. { suc j } ( F ` x ) = (/) ) , (/) , 1o ) = if ( E. x e. suc j ( F ` x ) = (/) , (/) , if ( E. x e. { suc j } ( F ` x ) = (/) , (/) , 1o ) ) )
8280, 81syl 14 . . . . . . . 8 |- ( ( ph /\ j e. om ) -> if ( ( E. x e. suc j ( F ` x ) = (/) \/ E. x e. { suc j } ( F ` x ) = (/) ) , (/) , 1o ) = if ( E. x e. suc j ( F ` x ) = (/) , (/) , if ( E. x e. { suc j } ( F ` x ) = (/) , (/) , 1o ) ) )
8366, 82eqtrd 2262 . . . . . . 7 |- ( ( ph /\ j e. om ) -> ( G ` suc j ) = if ( E. x e. suc j ( F ` x ) = (/) , (/) , if ( E. x e. { suc j } ( F ` x ) = (/) , (/) , 1o ) ) )
8483adantr 276 . . . . . 6 |- ( ( ( ph /\ j e. om ) /\ E. x e. suc j ( F ` x ) = (/) ) -> ( G ` suc j ) = if ( E. x e. suc j ( F ` x ) = (/) , (/) , if ( E. x e. { suc j } ( F ` x ) = (/) , (/) , 1o ) ) )
85 suceq 4497 . . . . . . . . . . 11 |- ( i = j -> suc i = suc j )
8685rexeqdv 2735 . . . . . . . . . 10 |- ( i = j -> ( E. x e. suc i ( F ` x ) = (/) <-> E. x e. suc j ( F ` x ) = (/) ) )
8786ifbid 3625 . . . . . . . . 9 |- ( i = j -> if ( E. x e. suc i ( F ` x ) = (/) , (/) , 1o ) = if ( E. x e. suc j ( F ` x ) = (/) , (/) , 1o ) )
88 simpr 110 . . . . . . . . 9 |- ( ( ph /\ j e. om ) -> j e. om )
8940, 41, 80ifcldcd 3641 . . . . . . . . 9 |- ( ( ph /\ j e. om ) -> if ( E. x e. suc j ( F ` x ) = (/) , (/) , 1o ) e. 2o )
9026, 87, 88, 89fvmptd3 5736 . . . . . . . 8 |- ( ( ph /\ j e. om ) -> ( G ` j ) = if ( E. x e. suc j ( F ` x ) = (/) , (/) , 1o ) )
9190adantr 276 . . . . . . 7 |- ( ( ( ph /\ j e. om ) /\ E. x e. suc j ( F ` x ) = (/) ) -> ( G ` j ) = if ( E. x e. suc j ( F ` x ) = (/) , (/) , 1o ) )
9233iftrued 3610 . . . . . . 7 |- ( ( ( ph /\ j e. om ) /\ E. x e. suc j ( F ` x ) = (/) ) -> if ( E. x e. suc j ( F ` x ) = (/) , (/) , 1o ) = (/) )
9391, 92eqtrd 2262 . . . . . 6 |- ( ( ( ph /\ j e. om ) /\ E. x e. suc j ( F ` x ) = (/) ) -> ( G ` j ) = (/) )
9434, 84, 933eqtr4d 2272 . . . . 5 |- ( ( ( ph /\ j e. om ) /\ E. x e. suc j ( F ` x ) = (/) ) -> ( G ` suc j ) = ( G ` j ) )
95 eqimss 3279 . . . . 5 |- ( ( G ` suc j ) = ( G ` j ) -> ( G ` suc j ) C_ ( G ` j ) )
9694, 95syl 14 . . . 4 |- ( ( ( ph /\ j e. om ) /\ E. x e. suc j ( F ` x ) = (/) ) -> ( G ` suc j ) C_ ( G ` j ) )
9759, 58eqeltrd 2306 . . . . . . 7 |- ( ( ph /\ j e. om ) -> ( G ` suc j ) e. 2o )
98 el2oss1o 6606 . . . . . . 7 |- ( ( G ` suc j ) e. 2o -> ( G ` suc j ) C_ 1o )
9997, 98syl 14 . . . . . 6 |- ( ( ph /\ j e. om ) -> ( G ` suc j ) C_ 1o )
10099adantr 276 . . . . 5 |- ( ( ( ph /\ j e. om ) /\ -. E. x e. suc j ( F ` x ) = (/) ) -> ( G ` suc j ) C_ 1o )
10190adantr 276 . . . . . 6 |- ( ( ( ph /\ j e. om ) /\ -. E. x e. suc j ( F ` x ) = (/) ) -> ( G ` j ) = if ( E. x e. suc j ( F ` x ) = (/) , (/) , 1o ) )
102 simpr 110 . . . . . . 7 |- ( ( ( ph /\ j e. om ) /\ -. E. x e. suc j ( F ` x ) = (/) ) -> -. E. x e. suc j ( F ` x ) = (/) )
103102iffalsed 3613 . . . . . 6 |- ( ( ( ph /\ j e. om ) /\ -. E. x e. suc j ( F ` x ) = (/) ) -> if ( E. x e. suc j ( F ` x ) = (/) , (/) , 1o ) = 1o )
104101, 103eqtrd 2262 . . . . 5 |- ( ( ( ph /\ j e. om ) /\ -. E. x e. suc j ( F ` x ) = (/) ) -> ( G ` j ) = 1o )
105100, 104sseqtrrd 3264 . . . 4 |- ( ( ( ph /\ j e. om ) /\ -. E. x e. suc j ( F ` x ) = (/) ) -> ( G ` suc j ) C_ ( G ` j ) )
106 exmiddc 841 . . . . 5 |- (DECID E. x e. suc j ( F ` x ) = (/) -> ( E. x e. suc j ( F ` x ) = (/) \/ -. E. x e. suc j ( F ` x ) = (/) ) )
10780, 106syl 14 . . . 4 |- ( ( ph /\ j e. om ) -> ( E. x e. suc j ( F ` x ) = (/) \/ -. E. x e. suc j ( F ` x ) = (/) ) )
10896, 105, 107mpjaodan 803 . . 3 |- ( ( ph /\ j e. om ) -> ( G ` suc j ) C_ ( G ` j ) )
109108ralrimiva 2603 . 2 |- ( ph -> A. j e. om ( G ` suc j ) C_ ( G ` j ) )
110 fveq1 5634 . . . . 5 |- ( f = G -> ( f ` suc j ) = ( G ` suc j ) )
111 fveq1 5634 . . . . 5 |- ( f = G -> ( f ` j ) = ( G ` j ) )
112110, 111sseq12d 3256 . . . 4 |- ( f = G -> ( ( f ` suc j ) C_ ( f ` j ) <-> ( G ` suc j ) C_ ( G ` j ) ) )
113112ralbidv 2530 . . 3 |- ( f = G -> ( A. j e. om ( f ` suc j ) C_ ( f ` j ) <-> A. j e. om ( G ` suc j ) C_ ( G ` j ) ) )
114 df-nninf 7310 . . 3 |- ℕ∞ = { f e. ( 2o ^m om ) | A. j e. om ( f ` suc j ) C_ ( f ` j ) }
115113, 114elrab2 2963 . 2 |- ( G e. ℕ∞ <-> ( G e. ( 2o ^m om ) /\ A. j e. om ( G ` suc j ) C_ ( G ` j ) ) )
11632, 109, 115sylanbrc 417 1 |- ( ph -> G e. ℕ∞ )
Colors of variables: wff set class
Syntax hints:   -. wn 3   -> wi 4   /\ wa 104   <-> wb 105   \/ wo 713  DECID wdc 839   = wceq 1395   e. wcel 2200   A.wral 2508   E.wrex 2509   u. cun 3196   C_ wss 3198   (/)c0 3492   ifcif 3603   {csn 3667   |-> cmpt 4148   suc csuc 4460   omcom 4686   -->wf 5320   ` cfv 5324  (class class class)co 6013   1oc1o 6570   2oc2o 6571   ^m cmap 6812   Fincfn 6904  ℕ∞xnninf 7309
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 617  ax-in2 618  ax-io 714  ax-5 1493  ax-7 1494  ax-gen 1495  ax-ie1 1539  ax-ie2 1540  ax-8 1550  ax-10 1551  ax-11 1552  ax-i12 1553  ax-bndl 1555  ax-4 1556  ax-17 1572  ax-i9 1576  ax-ial 1580  ax-i5r 1581  ax-13 2202  ax-14 2203  ax-ext 2211  ax-coll 4202  ax-sep 4205  ax-nul 4213  ax-pow 4262  ax-pr 4297  ax-un 4528  ax-setind 4633  ax-iinf 4684
This theorem depends on definitions:  df-bi 117  df-dc 840  df-3or 1003  df-3an 1004  df-tru 1398  df-fal 1401  df-nf 1507  df-sb 1809  df-eu 2080  df-mo 2081  df-clab 2216  df-cleq 2222  df-clel 2225  df-nfc 2361  df-ne 2401  df-ral 2513  df-rex 2514  df-reu 2515  df-rab 2517  df-v 2802  df-sbc 3030  df-csb 3126  df-dif 3200  df-un 3202  df-in 3204  df-ss 3211  df-nul 3493  df-if 3604  df-pw 3652  df-sn 3673  df-pr 3674  df-op 3676  df-uni 3892  df-int 3927  df-iun 3970  df-br 4087  df-opab 4149  df-mpt 4150  df-tr 4186  df-id 4388  df-iord 4461  df-on 4463  df-suc 4466  df-iom 4687  df-xp 4729  df-rel 4730  df-cnv 4731  df-co 4732  df-dm 4733  df-rn 4734  df-res 4735  df-ima 4736  df-iota 5284  df-fun 5326  df-fn 5327  df-f 5328  df-f1 5329  df-fo 5330  df-f1o 5331  df-fv 5332  df-ov 6016  df-oprab 6017  df-mpo 6018  df-1o 6577  df-2o 6578  df-er 6697  df-map 6814  df-en 6905  df-fin 6907  df-nninf 7310
This theorem is referenced by:  nninfwlpoimlemdc  7367  nninfinfwlpolem  7368
  Copyright terms: Public domain W3C validator