Theorem ennnfonelemkh 12345

Description: Lemma for ennnfone 12358. Because we add zero or one entries for each new index, the length of each sequence is no greater than its index. (Contributed by Jim Kingdon, 19-Jul-2023.)

Hypotheses

Ref	Expression
ennnfonelemh.dceq	|- ( ph -> A. x e. A A. y e. A DECID x = y )
ennnfonelemh.f	|- ( ph -> F : om -onto-> A )
ennnfonelemh.ne	|- ( ph -> A. n e. om E. k e. om A. j e. suc n ( F ` k ) =/= ( F ` j ) )
ennnfonelemh.g	|- G = ( x e. ( A ^pm om ) , y e. om |-> if ( ( F ` y ) e. ( F " y ) , x , ( x u. { <. dom x , ( F ` y ) >. } ) ) )
ennnfonelemh.n	|- N = frec ( ( x e. ZZ |-> ( x + 1 ) ) , 0 )
ennnfonelemh.j	|- J = ( x e. NN0 |-> if ( x = 0 , (/) , ( `' N ` ( x - 1 ) ) ) )
ennnfonelemh.h	|- H = seq 0 ( G , J )
ennnfonelemkh.p	|- ( ph -> P e. NN0 )

Assertion

Ref	Expression
ennnfonelemkh	|- ( ph -> dom ( H ` P ) C_ ( `' N ` P ) )

Distinct variable groups:   A, j, x, y   x, F, y   j, G   j, H, x, y   j, J   j, N, x, y   ph, j, x, y

Allowed substitution hints:   ph( k, n)   A( k, n)   P( x, y, j, k, n)   F( j, k, n)   G( x, y, k, n)   H( k, n)   J( x, y, k, n)   N( k, n)

Proof of Theorem ennnfonelemkh

Dummy variables m w are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		ennnfonelemkh.p	. 2 |- ( ph -> P e. NN0 )
2		fveq2 5486	. . . . . . 7 |- ( w = 0 -> ( H ` w ) = ( H ` 0 ) )
3	2	dmeqd 4806	. . . . . 6 |- ( w = 0 -> dom ( H ` w ) = dom ( H ` 0 ) )
4		fveq2 5486	. . . . . 6 |- ( w = 0 -> ( `' N ` w ) = ( `' N ` 0 ) )
5	3, 4	sseq12d 3173	. . . . 5 |- ( w = 0 -> ( dom ( H ` w ) C_ ( `' N ` w ) <-> dom ( H ` 0 ) C_ ( `' N ` 0 ) ) )
6	5	imbi2d 229	. . . 4 |- ( w = 0 -> ( ( ph -> dom ( H ` w ) C_ ( `' N ` w ) ) <-> ( ph -> dom ( H ` 0 ) C_ ( `' N ` 0 ) ) ) )
7		fveq2 5486	. . . . . . 7 |- ( w = m -> ( H ` w ) = ( H ` m ) )
8	7	dmeqd 4806	. . . . . 6 |- ( w = m -> dom ( H ` w ) = dom ( H ` m ) )
9		fveq2 5486	. . . . . 6 |- ( w = m -> ( `' N ` w ) = ( `' N ` m ) )
10	8, 9	sseq12d 3173	. . . . 5 |- ( w = m -> ( dom ( H ` w ) C_ ( `' N ` w ) <-> dom ( H ` m ) C_ ( `' N ` m ) ) )
11	10	imbi2d 229	. . . 4 |- ( w = m -> ( ( ph -> dom ( H ` w ) C_ ( `' N ` w ) ) <-> ( ph -> dom ( H ` m ) C_ ( `' N ` m ) ) ) )
12		fveq2 5486	. . . . . . 7 |- ( w = ( m + 1 ) -> ( H ` w ) = ( H ` ( m + 1 ) ) )
13	12	dmeqd 4806	. . . . . 6 |- ( w = ( m + 1 ) -> dom ( H ` w ) = dom ( H ` ( m + 1 ) ) )
14		fveq2 5486	. . . . . 6 |- ( w = ( m + 1 ) -> ( `' N ` w ) = ( `' N ` ( m + 1 ) ) )
15	13, 14	sseq12d 3173	. . . . 5 |- ( w = ( m + 1 ) -> ( dom ( H ` w ) C_ ( `' N ` w ) <-> dom ( H ` ( m + 1 ) ) C_ ( `' N ` ( m + 1 ) ) ) )
16	15	imbi2d 229	. . . 4 |- ( w = ( m + 1 ) -> ( ( ph -> dom ( H ` w ) C_ ( `' N ` w ) ) <-> ( ph -> dom ( H ` ( m + 1 ) ) C_ ( `' N ` ( m + 1 ) ) ) ) )
17		fveq2 5486	. . . . . . 7 |- ( w = P -> ( H ` w ) = ( H ` P ) )
18	17	dmeqd 4806	. . . . . 6 |- ( w = P -> dom ( H ` w ) = dom ( H ` P ) )
19		fveq2 5486	. . . . . 6 |- ( w = P -> ( `' N ` w ) = ( `' N ` P ) )
20	18, 19	sseq12d 3173	. . . . 5 |- ( w = P -> ( dom ( H ` w ) C_ ( `' N ` w ) <-> dom ( H ` P ) C_ ( `' N ` P ) ) )
21	20	imbi2d 229	. . . 4 |- ( w = P -> ( ( ph -> dom ( H ` w ) C_ ( `' N ` w ) ) <-> ( ph -> dom ( H ` P ) C_ ( `' N ` P ) ) ) )
22		ennnfonelemh.dceq	. . . . . . . . 9 |- ( ph -> A. x e. A A. y e. A DECID x = y )
23		ennnfonelemh.f	. . . . . . . . 9 |- ( ph -> F : om -onto-> A )
24		ennnfonelemh.ne	. . . . . . . . 9 |- ( ph -> A. n e. om E. k e. om A. j e. suc n ( F ` k ) =/= ( F ` j ) )
25		ennnfonelemh.g	. . . . . . . . 9 |- G = ( x e. ( A ^pm om ) , y e. om |-> if ( ( F ` y ) e. ( F " y ) , x , ( x u. { <. dom x , ( F ` y ) >. } ) ) )
26		ennnfonelemh.n	. . . . . . . . 9 |- N = frec ( ( x e. ZZ |-> ( x + 1 ) ) , 0 )
27		ennnfonelemh.j	. . . . . . . . 9 |- J = ( x e. NN0 |-> if ( x = 0 , (/) , ( `' N ` ( x - 1 ) ) ) )
28		ennnfonelemh.h	. . . . . . . . 9 |- H = seq 0 ( G , J )
29	22, 23, 24, 25, 26, 27, 28	ennnfonelem0 12338	. . . . . . . 8 |- ( ph -> ( H ` 0 ) = (/) )
30	29	dmeqd 4806	. . . . . . 7 |- ( ph -> dom ( H ` 0 ) = dom (/) )
31		dm0 4818	. . . . . . 7 |- dom (/) = (/)
32	30, 31	eqtrdi 2215	. . . . . 6 |- ( ph -> dom ( H ` 0 ) = (/) )
33		0ss 3447	. . . . . 6 |- (/) C_ ( `' N ` 0 )
34	32, 33	eqsstrdi 3194	. . . . 5 |- ( ph -> dom ( H ` 0 ) C_ ( `' N ` 0 ) )
35	34	a1i 9	. . . 4 |- ( 0 e. ZZ -> ( ph -> dom ( H ` 0 ) C_ ( `' N ` 0 ) ) )
36	26	frechashgf1o 10363	. . . . . . . . . . . . . 14 |- N : om -1-1-onto-> NN0
37		f1of 5432	. . . . . . . . . . . . . 14 |- ( N : om -1-1-onto-> NN0 -> N : om --> NN0 )
38	36, 37	mp1i 10	. . . . . . . . . . . . 13 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> N : om --> NN0 )
39	22	ad2antrr 480	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) -> A. x e. A A. y e. A DECID x = y )
40	23	ad2antrr 480	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) -> F : om -onto-> A )
41	24	ad2antrr 480	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) -> A. n e. om E. k e. om A. j e. suc n ( F ` k ) =/= ( F ` j ) )
42		simplr 520	. . . . . . . . . . . . . . . . 17 |- ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) -> m e. ( ZZ>= ` 0 ) )
43		nn0uz 9500	. . . . . . . . . . . . . . . . 17 |- NN0 = ( ZZ>= ` 0 )
44	42, 43	eleqtrrdi 2260	. . . . . . . . . . . . . . . 16 |- ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) -> m e. NN0 )
45		peano2nn0 9154	. . . . . . . . . . . . . . . 16 |- ( m e. NN0 -> ( m + 1 ) e. NN0 )
46	44, 45	syl 14	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) -> ( m + 1 ) e. NN0 )
47	39, 40, 41, 25, 26, 27, 28, 46	ennnfonelemom 12341	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) -> dom ( H ` ( m + 1 ) ) e. om )
48	47	adantr 274	. . . . . . . . . . . . 13 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> dom ( H ` ( m + 1 ) ) e. om )
49	38, 48	ffvelrnd 5621	. . . . . . . . . . . 12 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> ( N ` dom ( H ` ( m + 1 ) ) ) e. NN0 )
50	49	nn0red 9168	. . . . . . . . . . 11 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> ( N ` dom ( H ` ( m + 1 ) ) ) e. RR )
51	44	nn0red 9168	. . . . . . . . . . . 12 |- ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) -> m e. RR )
52	51	adantr 274	. . . . . . . . . . 11 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> m e. RR )
53		peano2re 8034	. . . . . . . . . . . 12 |- ( m e. RR -> ( m + 1 ) e. RR )
54	52, 53	syl 14	. . . . . . . . . . 11 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> ( m + 1 ) e. RR )
55	39, 40, 41, 25, 26, 27, 28, 44	ennnfonelemp1 12339	. . . . . . . . . . . . . . . 16 |- ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) -> ( H ` ( m + 1 ) ) = if ( ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) , ( H ` m ) , ( ( H ` m ) u. { <. dom ( H ` m ) , ( F ` ( `' N ` m ) ) >. } ) ) )
56	55	adantr 274	. . . . . . . . . . . . . . 15 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> ( H ` ( m + 1 ) ) = if ( ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) , ( H ` m ) , ( ( H ` m ) u. { <. dom ( H ` m ) , ( F ` ( `' N ` m ) ) >. } ) ) )
57		simpr 109	. . . . . . . . . . . . . . . 16 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) )
58	57	iftrued 3527	. . . . . . . . . . . . . . 15 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> if ( ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) , ( H ` m ) , ( ( H ` m ) u. { <. dom ( H ` m ) , ( F ` ( `' N ` m ) ) >. } ) ) = ( H ` m ) )
59	56, 58	eqtrd 2198	. . . . . . . . . . . . . 14 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> ( H ` ( m + 1 ) ) = ( H ` m ) )
60	59	dmeqd 4806	. . . . . . . . . . . . 13 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> dom ( H ` ( m + 1 ) ) = dom ( H ` m ) )
61	60	fveq2d 5490	. . . . . . . . . . . 12 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> ( N ` dom ( H ` ( m + 1 ) ) ) = ( N ` dom ( H ` m ) ) )
62		simpr 109	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) -> dom ( H ` m ) C_ ( `' N ` m ) )
63		0zd 9203	. . . . . . . . . . . . . . . 16 |- ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) -> 0 e. ZZ )
64	39, 40, 41, 25, 26, 27, 28, 44	ennnfonelemom 12341	. . . . . . . . . . . . . . . 16 |- ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) -> dom ( H ` m ) e. om )
65		f1ocnv 5445	. . . . . . . . . . . . . . . . . . . 20 |- ( N : om -1-1-onto-> NN0 -> `' N : NN0 -1-1-onto-> om )
66	36, 65	ax-mp 5	. . . . . . . . . . . . . . . . . . 19 |- `' N : NN0 -1-1-onto-> om
67		f1of 5432	. . . . . . . . . . . . . . . . . . 19 |- ( `' N : NN0 -1-1-onto-> om -> `' N : NN0 --> om )
68	66, 67	mp1i 10	. . . . . . . . . . . . . . . . . 18 |- ( m e. NN0 -> `' N : NN0 --> om )
69		id 19	. . . . . . . . . . . . . . . . . 18 |- ( m e. NN0 -> m e. NN0 )
70	68, 69	ffvelrnd 5621	. . . . . . . . . . . . . . . . 17 |- ( m e. NN0 -> ( `' N ` m ) e. om )
71	44, 70	syl 14	. . . . . . . . . . . . . . . 16 |- ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) -> ( `' N ` m ) e. om )
72	63, 26, 64, 71	frec2uzled 10364	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) -> ( dom ( H ` m ) C_ ( `' N ` m ) <-> ( N ` dom ( H ` m ) ) <_ ( N ` ( `' N ` m ) ) ) )
73	62, 72	mpbid 146	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) -> ( N ` dom ( H ` m ) ) <_ ( N ` ( `' N ` m ) ) )
74		f1ocnvfv2 5746	. . . . . . . . . . . . . . 15 |- ( ( N : om -1-1-onto-> NN0 /\ m e. NN0 ) -> ( N ` ( `' N ` m ) ) = m )
75	36, 44, 74	sylancr 411	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) -> ( N ` ( `' N ` m ) ) = m )
76	73, 75	breqtrd 4008	. . . . . . . . . . . . 13 |- ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) -> ( N ` dom ( H ` m ) ) <_ m )
77	76	adantr 274	. . . . . . . . . . . 12 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> ( N ` dom ( H ` m ) ) <_ m )
78	61, 77	eqbrtrd 4004	. . . . . . . . . . 11 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> ( N ` dom ( H ` ( m + 1 ) ) ) <_ m )
79	52	lep1d 8826	. . . . . . . . . . 11 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> m <_ ( m + 1 ) )
80	50, 52, 54, 78, 79	letrd 8022	. . . . . . . . . 10 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> ( N ` dom ( H ` ( m + 1 ) ) ) <_ ( m + 1 ) )
81		f1ocnvfv2 5746	. . . . . . . . . . . 12 |- ( ( N : om -1-1-onto-> NN0 /\ ( m + 1 ) e. NN0 ) -> ( N ` ( `' N ` ( m + 1 ) ) ) = ( m + 1 ) )
82	36, 46, 81	sylancr 411	. . . . . . . . . . 11 |- ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) -> ( N ` ( `' N ` ( m + 1 ) ) ) = ( m + 1 ) )
83	82	adantr 274	. . . . . . . . . 10 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> ( N ` ( `' N ` ( m + 1 ) ) ) = ( m + 1 ) )
84	80, 83	breqtrrd 4010	. . . . . . . . 9 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> ( N ` dom ( H ` ( m + 1 ) ) ) <_ ( N ` ( `' N ` ( m + 1 ) ) ) )
85	66, 67	mp1i 10	. . . . . . . . . . . 12 |- ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) -> `' N : NN0 --> om )
86	85, 46	ffvelrnd 5621	. . . . . . . . . . 11 |- ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) -> ( `' N ` ( m + 1 ) ) e. om )
87	63, 26, 47, 86	frec2uzled 10364	. . . . . . . . . 10 |- ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) -> ( dom ( H ` ( m + 1 ) ) C_ ( `' N ` ( m + 1 ) ) <-> ( N ` dom ( H ` ( m + 1 ) ) ) <_ ( N ` ( `' N ` ( m + 1 ) ) ) ) )
88	87	adantr 274	. . . . . . . . 9 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> ( dom ( H ` ( m + 1 ) ) C_ ( `' N ` ( m + 1 ) ) <-> ( N ` dom ( H ` ( m + 1 ) ) ) <_ ( N ` ( `' N ` ( m + 1 ) ) ) ) )
89	84, 88	mpbird 166	. . . . . . . 8 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> dom ( H ` ( m + 1 ) ) C_ ( `' N ` ( m + 1 ) ) )
90	55	adantr 274	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> ( H ` ( m + 1 ) ) = if ( ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) , ( H ` m ) , ( ( H ` m ) u. { <. dom ( H ` m ) , ( F ` ( `' N ` m ) ) >. } ) ) )
91		simpr 109	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) )
92	91	iffalsed 3530	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> if ( ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) , ( H ` m ) , ( ( H ` m ) u. { <. dom ( H ` m ) , ( F ` ( `' N ` m ) ) >. } ) ) = ( ( H ` m ) u. { <. dom ( H ` m ) , ( F ` ( `' N ` m ) ) >. } ) )
93	90, 92	eqtrd 2198	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> ( H ` ( m + 1 ) ) = ( ( H ` m ) u. { <. dom ( H ` m ) , ( F ` ( `' N ` m ) ) >. } ) )
94	93	dmeqd 4806	. . . . . . . . . . . . . . . 16 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> dom ( H ` ( m + 1 ) ) = dom ( ( H ` m ) u. { <. dom ( H ` m ) , ( F ` ( `' N ` m ) ) >. } ) )
95		dmun 4811	. . . . . . . . . . . . . . . 16 |- dom ( ( H ` m ) u. { <. dom ( H ` m ) , ( F ` ( `' N ` m ) ) >. } ) = ( dom ( H ` m ) u. dom { <. dom ( H ` m ) , ( F ` ( `' N ` m ) ) >. } )
96	94, 95	eqtrdi 2215	. . . . . . . . . . . . . . 15 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> dom ( H ` ( m + 1 ) ) = ( dom ( H ` m ) u. dom { <. dom ( H ` m ) , ( F ` ( `' N ` m ) ) >. } ) )
97		fof 5410	. . . . . . . . . . . . . . . . . . . 20 |- ( F : om -onto-> A -> F : om --> A )
98	40, 97	syl 14	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) -> F : om --> A )
99	98, 71	ffvelrnd 5621	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) -> ( F ` ( `' N ` m ) ) e. A )
100	99	adantr 274	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> ( F ` ( `' N ` m ) ) e. A )
101		dmsnopg 5075	. . . . . . . . . . . . . . . . 17 |- ( ( F ` ( `' N ` m ) ) e. A -> dom { <. dom ( H ` m ) , ( F ` ( `' N ` m ) ) >. } = { dom ( H ` m ) } )
102	100, 101	syl 14	. . . . . . . . . . . . . . . 16 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> dom { <. dom ( H ` m ) , ( F ` ( `' N ` m ) ) >. } = { dom ( H ` m ) } )
103	102	uneq2d 3276	. . . . . . . . . . . . . . 15 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> ( dom ( H ` m ) u. dom { <. dom ( H ` m ) , ( F ` ( `' N ` m ) ) >. } ) = ( dom ( H ` m ) u. { dom ( H ` m ) } ) )
104	96, 103	eqtrd 2198	. . . . . . . . . . . . . 14 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> dom ( H ` ( m + 1 ) ) = ( dom ( H ` m ) u. { dom ( H ` m ) } ) )
105		df-suc 4349	. . . . . . . . . . . . . 14 |- suc dom ( H ` m ) = ( dom ( H ` m ) u. { dom ( H ` m ) } )
106	104, 105	eqtr4di 2217	. . . . . . . . . . . . 13 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> dom ( H ` ( m + 1 ) ) = suc dom ( H ` m ) )
107		simplr 520	. . . . . . . . . . . . . 14 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> dom ( H ` m ) C_ ( `' N ` m ) )
108	71	adantr 274	. . . . . . . . . . . . . . 15 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> ( `' N ` m ) e. om )
109		nnsucsssuc 6460	. . . . . . . . . . . . . . 15 |- ( ( dom ( H ` m ) e. om /\ ( `' N ` m ) e. om ) -> ( dom ( H ` m ) C_ ( `' N ` m ) <-> suc dom ( H ` m ) C_ suc ( `' N ` m ) ) )
110	64, 108, 109	syl2an2r 585	. . . . . . . . . . . . . 14 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> ( dom ( H ` m ) C_ ( `' N ` m ) <-> suc dom ( H ` m ) C_ suc ( `' N ` m ) ) )
111	107, 110	mpbid 146	. . . . . . . . . . . . 13 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> suc dom ( H ` m ) C_ suc ( `' N ` m ) )
112	106, 111	eqsstrd 3178	. . . . . . . . . . . 12 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> dom ( H ` ( m + 1 ) ) C_ suc ( `' N ` m ) )
113		0zd 9203	. . . . . . . . . . . . 13 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> 0 e. ZZ )
114	47	adantr 274	. . . . . . . . . . . . 13 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> dom ( H ` ( m + 1 ) ) e. om )
115		peano2 4572	. . . . . . . . . . . . . 14 |- ( ( `' N ` m ) e. om -> suc ( `' N ` m ) e. om )
116	108, 115	syl 14	. . . . . . . . . . . . 13 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> suc ( `' N ` m ) e. om )
117	113, 26, 114, 116	frec2uzled 10364	. . . . . . . . . . . 12 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> ( dom ( H ` ( m + 1 ) ) C_ suc ( `' N ` m ) <-> ( N ` dom ( H ` ( m + 1 ) ) ) <_ ( N ` suc ( `' N ` m ) ) ) )
118	112, 117	mpbid 146	. . . . . . . . . . 11 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> ( N ` dom ( H ` ( m + 1 ) ) ) <_ ( N ` suc ( `' N ` m ) ) )
119	113, 26, 108	frec2uzsucd 10336	. . . . . . . . . . . 12 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> ( N ` suc ( `' N ` m ) ) = ( ( N ` ( `' N ` m ) ) + 1 ) )
120	75	adantr 274	. . . . . . . . . . . . 13 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> ( N ` ( `' N ` m ) ) = m )
121	120	oveq1d 5857	. . . . . . . . . . . 12 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> ( ( N ` ( `' N ` m ) ) + 1 ) = ( m + 1 ) )
122	119, 121	eqtrd 2198	. . . . . . . . . . 11 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> ( N ` suc ( `' N ` m ) ) = ( m + 1 ) )
123	118, 122	breqtrd 4008	. . . . . . . . . 10 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> ( N ` dom ( H ` ( m + 1 ) ) ) <_ ( m + 1 ) )
124	82	adantr 274	. . . . . . . . . 10 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> ( N ` ( `' N ` ( m + 1 ) ) ) = ( m + 1 ) )
125	123, 124	breqtrrd 4010	. . . . . . . . 9 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> ( N ` dom ( H ` ( m + 1 ) ) ) <_ ( N ` ( `' N ` ( m + 1 ) ) ) )
126	86	adantr 274	. . . . . . . . . 10 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> ( `' N ` ( m + 1 ) ) e. om )
127	113, 26, 114, 126	frec2uzled 10364	. . . . . . . . 9 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> ( dom ( H ` ( m + 1 ) ) C_ ( `' N ` ( m + 1 ) ) <-> ( N ` dom ( H ` ( m + 1 ) ) ) <_ ( N ` ( `' N ` ( m + 1 ) ) ) ) )
128	125, 127	mpbird 166	. . . . . . . 8 |- ( ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) /\ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) -> dom ( H ` ( m + 1 ) ) C_ ( `' N ` ( m + 1 ) ) )
129	39, 40, 71	ennnfonelemdc 12332	. . . . . . . . 9 |- ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) -> DECID ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) )
130		exmiddc 826	. . . . . . . . 9 |- (DECID ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) -> ( ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) \/ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) )
131	129, 130	syl 14	. . . . . . . 8 |- ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) -> ( ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) \/ -. ( F ` ( `' N ` m ) ) e. ( F " ( `' N ` m ) ) ) )
132	89, 128, 131	mpjaodan 788	. . . . . . 7 |- ( ( ( ph /\ m e. ( ZZ>= ` 0 ) ) /\ dom ( H ` m ) C_ ( `' N ` m ) ) -> dom ( H ` ( m + 1 ) ) C_ ( `' N ` ( m + 1 ) ) )
133	132	ex 114	. . . . . 6 |- ( ( ph /\ m e. ( ZZ>= ` 0 ) ) -> ( dom ( H ` m ) C_ ( `' N ` m ) -> dom ( H ` ( m + 1 ) ) C_ ( `' N ` ( m + 1 ) ) ) )
134	133	expcom 115	. . . . 5 |- ( m e. ( ZZ>= ` 0 ) -> ( ph -> ( dom ( H ` m ) C_ ( `' N ` m ) -> dom ( H ` ( m + 1 ) ) C_ ( `' N ` ( m + 1 ) ) ) ) )
135	134	a2d 26	. . . 4 |- ( m e. ( ZZ>= ` 0 ) -> ( ( ph -> dom ( H ` m ) C_ ( `' N ` m ) ) -> ( ph -> dom ( H ` ( m + 1 ) ) C_ ( `' N ` ( m + 1 ) ) ) ) )
136	6, 11, 16, 21, 35, 135	uzind4 9526	. . 3 |- ( P e. ( ZZ>= ` 0 ) -> ( ph -> dom ( H ` P ) C_ ( `' N ` P ) ) )
137	136, 43	eleq2s 2261	. 2 |- ( P e. NN0 -> ( ph -> dom ( H ` P ) C_ ( `' N ` P ) ) )
138	1, 137	mpcom 36	1 |- ( ph -> dom ( H ` P ) C_ ( `' N ` P ) )

Syntax hints:   -. wn 3   -> wi 4   /\ wa 103   <-> wb 104   \/ wo 698  DECID wdc 824   = wceq 1343   e. wcel 2136   =/= wne 2336   A.wral 2444   E.wrex 2445   u. cun 3114   C_ wss 3116   (/)c0 3409   ifcif 3520   {csn 3576   <.cop 3579   class class class wbr 3982   |-> cmpt 4043   suc csuc 4343   omcom 4567   `'ccnv 4603   dom cdm 4604   "cima 4607   -->wf 5184   -onto->wfo 5186   -1-1-onto->wf1o 5187   ` cfv 5188  (class class class)co 5842   e. cmpo 5844  freccfrec 6358   ^pm cpm 6615   RRcr 7752   0cc0 7753   1c1 7754   + caddc 7756   <_ cle 7934   - cmin 8069   NN0cn0 9114   ZZcz 9191   ZZ>=cuz 9466   seqcseq 10380

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 604  ax-in2 605  ax-io 699  ax-5 1435  ax-7 1436  ax-gen 1437  ax-ie1 1481  ax-ie2 1482  ax-8 1492  ax-10 1493  ax-11 1494  ax-i12 1495  ax-bndl 1497  ax-4 1498  ax-17 1514  ax-i9 1518  ax-ial 1522  ax-i5r 1523  ax-13 2138  ax-14 2139  ax-ext 2147  ax-coll 4097  ax-sep 4100  ax-nul 4108  ax-pow 4153  ax-pr 4187  ax-un 4411  ax-setind 4514  ax-iinf 4565  ax-cnex 7844  ax-resscn 7845  ax-1cn 7846  ax-1re 7847  ax-icn 7848  ax-addcl 7849  ax-addrcl 7850  ax-mulcl 7851  ax-addcom 7853  ax-addass 7855  ax-distr 7857  ax-i2m1 7858  ax-0lt1 7859  ax-0id 7861  ax-rnegex 7862  ax-cnre 7864  ax-pre-ltirr 7865  ax-pre-ltwlin 7866  ax-pre-lttrn 7867  ax-pre-ltadd 7869

This theorem depends on definitions:  df-bi 116  df-dc 825  df-3or 969  df-3an 970  df-tru 1346  df-fal 1349  df-nf 1449  df-sb 1751  df-eu 2017  df-mo 2018  df-clab 2152  df-cleq 2158  df-clel 2161  df-nfc 2297  df-ne 2337  df-nel 2432  df-ral 2449  df-rex 2450  df-reu 2451  df-rab 2453  df-v 2728  df-sbc 2952  df-csb 3046  df-dif 3118  df-un 3120  df-in 3122  df-ss 3129  df-nul 3410  df-if 3521  df-pw 3561  df-sn 3582  df-pr 3583  df-op 3585  df-uni 3790  df-int 3825  df-iun 3868  df-br 3983  df-opab 4044  df-mpt 4045  df-tr 4081  df-id 4271  df-iord 4344  df-on 4346  df-ilim 4347  df-suc 4349  df-iom 4568  df-xp 4610  df-rel 4611  df-cnv 4612  df-co 4613  df-dm 4614  df-rn 4615  df-res 4616  df-ima 4617  df-iota 5153  df-fun 5190  df-fn 5191  df-f 5192  df-f1 5193  df-fo 5194  df-f1o 5195  df-fv 5196  df-riota 5798  df-ov 5845  df-oprab 5846  df-mpo 5847  df-1st 6108  df-2nd 6109  df-recs 6273  df-frec 6359  df-pm 6617  df-pnf 7935  df-mnf 7936  df-xr 7937  df-ltxr 7938  df-le 7939  df-sub 8071  df-neg 8072  df-inn 8858  df-n0 9115  df-z 9192  df-uz 9467  df-seqfrec 10381

This theorem is referenced by: (None)