Theorem fseq1p1m1 11546

Description: Add/remove an item to/from the end of a finite sequence. (Contributed by Paul Chapman, 17-Nov-2012.) (Revised by Mario Carneiro, 7-Mar-2014.)

Hypothesis

Ref	Expression
fseq1p1m1.1	|- H = { <. ( N + 1 ) , B >. }

Assertion

Ref	Expression
fseq1p1m1	|- ( N e. NN0 -> ( ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) <-> ( G : ( 1 ... ( N + 1 ) ) --> A /\ ( G ` ( N + 1 ) ) = B /\ F = ( G |` ( 1 ... N ) ) ) ) )

Proof of Theorem fseq1p1m1

Step	Hyp	Ref	Expression
1		simpr1 994	. . . . . 6 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> F : ( 1 ... N ) --> A )
2		nn0p1nn 10631	. . . . . . . . 9 |- ( N e. NN0 -> ( N + 1 ) e. NN )
3	2	adantr 465	. . . . . . . 8 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> ( N + 1 ) e. NN )
4		simpr2 995	. . . . . . . 8 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> B e. A )
5		fseq1p1m1.1	. . . . . . . . 9 |- H = { <. ( N + 1 ) , B >. }
6		fsng 5894	. . . . . . . . 9 |- ( ( ( N + 1 ) e. NN /\ B e. A ) -> ( H : { ( N + 1 ) } --> { B } <-> H = { <. ( N + 1 ) , B >. } ) )
7	5, 6	mpbiri 233	. . . . . . . 8 |- ( ( ( N + 1 ) e. NN /\ B e. A ) -> H : { ( N + 1 ) } --> { B } )
8	3, 4, 7	syl2anc 661	. . . . . . 7 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> H : { ( N + 1 ) } --> { B } )
9	4	snssd 4030	. . . . . . 7 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> { B } C_ A )
10		fss 5579	. . . . . . 7 |- ( ( H : { ( N + 1 ) } --> { B } /\ { B } C_ A ) -> H : { ( N + 1 ) } --> A )
11	8, 9, 10	syl2anc 661	. . . . . 6 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> H : { ( N + 1 ) } --> A )
12		fzp1disj 11527	. . . . . . 7 |- ( ( 1 ... N ) i^i { ( N + 1 ) } ) = (/)
13	12	a1i 11	. . . . . 6 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> ( ( 1 ... N ) i^i { ( N + 1 ) } ) = (/) )
14		fun2 5588	. . . . . 6 |- ( ( ( F : ( 1 ... N ) --> A /\ H : { ( N + 1 ) } --> A ) /\ ( ( 1 ... N ) i^i { ( N + 1 ) } ) = (/) ) -> ( F u. H ) : ( ( 1 ... N ) u. { ( N + 1 ) } ) --> A )
15	1, 11, 13, 14	syl21anc 1217	. . . . 5 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> ( F u. H ) : ( ( 1 ... N ) u. { ( N + 1 ) } ) --> A )
16		1z 10688	. . . . . . . 8 |- 1 e. ZZ
17		simpl 457	. . . . . . . . 9 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> N e. NN0 )
18		nn0uz 10907	. . . . . . . . . 10 |- NN0 = ( ZZ>= ` 0 )
19		1m1e0 10402	. . . . . . . . . . 11 |- ( 1 - 1 ) = 0
20	19	fveq2i 5706	. . . . . . . . . 10 |- ( ZZ>= ` ( 1 - 1 ) ) = ( ZZ>= ` 0 )
21	18, 20	eqtr4i 2466	. . . . . . . . 9 |- NN0 = ( ZZ>= ` ( 1 - 1 ) )
22	17, 21	syl6eleq 2533	. . . . . . . 8 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> N e. ( ZZ>= ` ( 1 - 1 ) ) )
23		fzsuc2 11526	. . . . . . . 8 |- ( ( 1 e. ZZ /\ N e. ( ZZ>= ` ( 1 - 1 ) ) ) -> ( 1 ... ( N + 1 ) ) = ( ( 1 ... N ) u. { ( N + 1 ) } ) )
24	16, 22, 23	sylancr 663	. . . . . . 7 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> ( 1 ... ( N + 1 ) ) = ( ( 1 ... N ) u. { ( N + 1 ) } ) )
25	24	eqcomd 2448	. . . . . 6 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> ( ( 1 ... N ) u. { ( N + 1 ) } ) = ( 1 ... ( N + 1 ) ) )
26	25	feq2d 5559	. . . . 5 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> ( ( F u. H ) : ( ( 1 ... N ) u. { ( N + 1 ) } ) --> A <-> ( F u. H ) : ( 1 ... ( N + 1 ) ) --> A ) )
27	15, 26	mpbid 210	. . . 4 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> ( F u. H ) : ( 1 ... ( N + 1 ) ) --> A )
28		simpr3 996	. . . . 5 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> G = ( F u. H ) )
29	28	feq1d 5558	. . . 4 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> ( G : ( 1 ... ( N + 1 ) ) --> A <-> ( F u. H ) : ( 1 ... ( N + 1 ) ) --> A ) )
30	27, 29	mpbird 232	. . 3 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> G : ( 1 ... ( N + 1 ) ) --> A )
31		ovex 6128	. . . . . 6 |- ( N + 1 ) e. _V
32	31	snid 3917	. . . . 5 |- ( N + 1 ) e. { ( N + 1 ) }
33		fvres 5716	. . . . 5 |- ( ( N + 1 ) e. { ( N + 1 ) } -> ( ( G |` { ( N + 1 ) } ) ` ( N + 1 ) ) = ( G ` ( N + 1 ) ) )
34	32, 33	ax-mp 5	. . . 4 |- ( ( G |` { ( N + 1 ) } ) ` ( N + 1 ) ) = ( G ` ( N + 1 ) )
35	28	reseq1d 5121	. . . . . . 7 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> ( G |` { ( N + 1 ) } ) = ( ( F u. H ) |` { ( N + 1 ) } ) )
36		ffn 5571	. . . . . . . . . . 11 |- ( F : ( 1 ... N ) --> A -> F Fn ( 1 ... N ) )
37		fnresdisj 5533	. . . . . . . . . . 11 |- ( F Fn ( 1 ... N ) -> ( ( ( 1 ... N ) i^i { ( N + 1 ) } ) = (/) <-> ( F |` { ( N + 1 ) } ) = (/) ) )
38	1, 36, 37	3syl 20	. . . . . . . . . 10 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> ( ( ( 1 ... N ) i^i { ( N + 1 ) } ) = (/) <-> ( F |` { ( N + 1 ) } ) = (/) ) )
39	13, 38	mpbid 210	. . . . . . . . 9 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> ( F |` { ( N + 1 ) } ) = (/) )
40	39	uneq1d 3521	. . . . . . . 8 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> ( ( F |` { ( N + 1 ) } ) u. ( H |` { ( N + 1 ) } ) ) = ( (/) u. ( H |` { ( N + 1 ) } ) ) )
41		resundir 5137	. . . . . . . 8 |- ( ( F u. H ) |` { ( N + 1 ) } ) = ( ( F |` { ( N + 1 ) } ) u. ( H |` { ( N + 1 ) } ) )
42		uncom 3512	. . . . . . . . 9 |- ( (/) u. ( H |` { ( N + 1 ) } ) ) = ( ( H |` { ( N + 1 ) } ) u. (/) )
43		un0 3674	. . . . . . . . 9 |- ( ( H |` { ( N + 1 ) } ) u. (/) ) = ( H |` { ( N + 1 ) } )
44	42, 43	eqtr2i 2464	. . . . . . . 8 |- ( H |` { ( N + 1 ) } ) = ( (/) u. ( H |` { ( N + 1 ) } ) )
45	40, 41, 44	3eqtr4g 2500	. . . . . . 7 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> ( ( F u. H ) |` { ( N + 1 ) } ) = ( H |` { ( N + 1 ) } ) )
46		ffn 5571	. . . . . . . 8 |- ( H : { ( N + 1 ) } --> A -> H Fn { ( N + 1 ) } )
47		fnresdm 5532	. . . . . . . 8 |- ( H Fn { ( N + 1 ) } -> ( H |` { ( N + 1 ) } ) = H )
48	11, 46, 47	3syl 20	. . . . . . 7 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> ( H |` { ( N + 1 ) } ) = H )
49	35, 45, 48	3eqtrd 2479	. . . . . 6 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> ( G |` { ( N + 1 ) } ) = H )
50	49	fveq1d 5705	. . . . 5 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> ( ( G |` { ( N + 1 ) } ) ` ( N + 1 ) ) = ( H ` ( N + 1 ) ) )
51	5	fveq1i 5704	. . . . . . 7 |- ( H ` ( N + 1 ) ) = ( { <. ( N + 1 ) , B >. } ` ( N + 1 ) )
52		fvsng 5924	. . . . . . 7 |- ( ( ( N + 1 ) e. NN /\ B e. A ) -> ( { <. ( N + 1 ) , B >. } ` ( N + 1 ) ) = B )
53	51, 52	syl5eq 2487	. . . . . 6 |- ( ( ( N + 1 ) e. NN /\ B e. A ) -> ( H ` ( N + 1 ) ) = B )
54	3, 4, 53	syl2anc 661	. . . . 5 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> ( H ` ( N + 1 ) ) = B )
55	50, 54	eqtrd 2475	. . . 4 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> ( ( G |` { ( N + 1 ) } ) ` ( N + 1 ) ) = B )
56	34, 55	syl5eqr 2489	. . 3 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> ( G ` ( N + 1 ) ) = B )
57	28	reseq1d 5121	. . . 4 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> ( G |` ( 1 ... N ) ) = ( ( F u. H ) |` ( 1 ... N ) ) )
58		incom 3555	. . . . . . . 8 |- ( { ( N + 1 ) } i^i ( 1 ... N ) ) = ( ( 1 ... N ) i^i { ( N + 1 ) } )
59	58, 13	syl5eq 2487	. . . . . . 7 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> ( { ( N + 1 ) } i^i ( 1 ... N ) ) = (/) )
60		ffn 5571	. . . . . . . 8 |- ( H : { ( N + 1 ) } --> { B } -> H Fn { ( N + 1 ) } )
61		fnresdisj 5533	. . . . . . . 8 |- ( H Fn { ( N + 1 ) } -> ( ( { ( N + 1 ) } i^i ( 1 ... N ) ) = (/) <-> ( H |` ( 1 ... N ) ) = (/) ) )
62	8, 60, 61	3syl 20	. . . . . . 7 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> ( ( { ( N + 1 ) } i^i ( 1 ... N ) ) = (/) <-> ( H |` ( 1 ... N ) ) = (/) ) )
63	59, 62	mpbid 210	. . . . . 6 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> ( H |` ( 1 ... N ) ) = (/) )
64	63	uneq2d 3522	. . . . 5 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> ( ( F |` ( 1 ... N ) ) u. ( H |` ( 1 ... N ) ) ) = ( ( F |` ( 1 ... N ) ) u. (/) ) )
65		resundir 5137	. . . . 5 |- ( ( F u. H ) |` ( 1 ... N ) ) = ( ( F |` ( 1 ... N ) ) u. ( H |` ( 1 ... N ) ) )
66		un0 3674	. . . . . 6 |- ( ( F |` ( 1 ... N ) ) u. (/) ) = ( F |` ( 1 ... N ) )
67	66	eqcomi 2447	. . . . 5 |- ( F |` ( 1 ... N ) ) = ( ( F |` ( 1 ... N ) ) u. (/) )
68	64, 65, 67	3eqtr4g 2500	. . . 4 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> ( ( F u. H ) |` ( 1 ... N ) ) = ( F |` ( 1 ... N ) ) )
69		fnresdm 5532	. . . . 5 |- ( F Fn ( 1 ... N ) -> ( F |` ( 1 ... N ) ) = F )
70	1, 36, 69	3syl 20	. . . 4 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> ( F |` ( 1 ... N ) ) = F )
71	57, 68, 70	3eqtrrd 2480	. . 3 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> F = ( G |` ( 1 ... N ) ) )
72	30, 56, 71	3jca 1168	. 2 |- ( ( N e. NN0 /\ ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) ) -> ( G : ( 1 ... ( N + 1 ) ) --> A /\ ( G ` ( N + 1 ) ) = B /\ F = ( G |` ( 1 ... N ) ) ) )
73		simpr1 994	. . . . 5 |- ( ( N e. NN0 /\ ( G : ( 1 ... ( N + 1 ) ) --> A /\ ( G ` ( N + 1 ) ) = B /\ F = ( G |` ( 1 ... N ) ) ) ) -> G : ( 1 ... ( N + 1 ) ) --> A )
74		fzssp1 11513	. . . . 5 |- ( 1 ... N ) C_ ( 1 ... ( N + 1 ) )
75		fssres 5590	. . . . 5 |- ( ( G : ( 1 ... ( N + 1 ) ) --> A /\ ( 1 ... N ) C_ ( 1 ... ( N + 1 ) ) ) -> ( G |` ( 1 ... N ) ) : ( 1 ... N ) --> A )
76	73, 74, 75	sylancl 662	. . . 4 |- ( ( N e. NN0 /\ ( G : ( 1 ... ( N + 1 ) ) --> A /\ ( G ` ( N + 1 ) ) = B /\ F = ( G |` ( 1 ... N ) ) ) ) -> ( G |` ( 1 ... N ) ) : ( 1 ... N ) --> A )
77		simpr3 996	. . . . 5 |- ( ( N e. NN0 /\ ( G : ( 1 ... ( N + 1 ) ) --> A /\ ( G ` ( N + 1 ) ) = B /\ F = ( G |` ( 1 ... N ) ) ) ) -> F = ( G |` ( 1 ... N ) ) )
78	77	feq1d 5558	. . . 4 |- ( ( N e. NN0 /\ ( G : ( 1 ... ( N + 1 ) ) --> A /\ ( G ` ( N + 1 ) ) = B /\ F = ( G |` ( 1 ... N ) ) ) ) -> ( F : ( 1 ... N ) --> A <-> ( G |` ( 1 ... N ) ) : ( 1 ... N ) --> A ) )
79	76, 78	mpbird 232	. . 3 |- ( ( N e. NN0 /\ ( G : ( 1 ... ( N + 1 ) ) --> A /\ ( G ` ( N + 1 ) ) = B /\ F = ( G |` ( 1 ... N ) ) ) ) -> F : ( 1 ... N ) --> A )
80		simpr2 995	. . . 4 |- ( ( N e. NN0 /\ ( G : ( 1 ... ( N + 1 ) ) --> A /\ ( G ` ( N + 1 ) ) = B /\ F = ( G |` ( 1 ... N ) ) ) ) -> ( G ` ( N + 1 ) ) = B )
81	2	adantr 465	. . . . . . 7 |- ( ( N e. NN0 /\ ( G : ( 1 ... ( N + 1 ) ) --> A /\ ( G ` ( N + 1 ) ) = B /\ F = ( G |` ( 1 ... N ) ) ) ) -> ( N + 1 ) e. NN )
82		nnuz 10908	. . . . . . 7 |- NN = ( ZZ>= ` 1 )
83	81, 82	syl6eleq 2533	. . . . . 6 |- ( ( N e. NN0 /\ ( G : ( 1 ... ( N + 1 ) ) --> A /\ ( G ` ( N + 1 ) ) = B /\ F = ( G |` ( 1 ... N ) ) ) ) -> ( N + 1 ) e. ( ZZ>= ` 1 ) )
84		eluzfz2 11471	. . . . . 6 |- ( ( N + 1 ) e. ( ZZ>= ` 1 ) -> ( N + 1 ) e. ( 1 ... ( N + 1 ) ) )
85	83, 84	syl 16	. . . . 5 |- ( ( N e. NN0 /\ ( G : ( 1 ... ( N + 1 ) ) --> A /\ ( G ` ( N + 1 ) ) = B /\ F = ( G |` ( 1 ... N ) ) ) ) -> ( N + 1 ) e. ( 1 ... ( N + 1 ) ) )
86	73, 85	ffvelrnd 5856	. . . 4 |- ( ( N e. NN0 /\ ( G : ( 1 ... ( N + 1 ) ) --> A /\ ( G ` ( N + 1 ) ) = B /\ F = ( G |` ( 1 ... N ) ) ) ) -> ( G ` ( N + 1 ) ) e. A )
87	80, 86	eqeltrrd 2518	. . 3 |- ( ( N e. NN0 /\ ( G : ( 1 ... ( N + 1 ) ) --> A /\ ( G ` ( N + 1 ) ) = B /\ F = ( G |` ( 1 ... N ) ) ) ) -> B e. A )
88		ffn 5571	. . . . . . . . 9 |- ( G : ( 1 ... ( N + 1 ) ) --> A -> G Fn ( 1 ... ( N + 1 ) ) )
89	73, 88	syl 16	. . . . . . . 8 |- ( ( N e. NN0 /\ ( G : ( 1 ... ( N + 1 ) ) --> A /\ ( G ` ( N + 1 ) ) = B /\ F = ( G |` ( 1 ... N ) ) ) ) -> G Fn ( 1 ... ( N + 1 ) ) )
90		fnressn 5906	. . . . . . . 8 |- ( ( G Fn ( 1 ... ( N + 1 ) ) /\ ( N + 1 ) e. ( 1 ... ( N + 1 ) ) ) -> ( G |` { ( N + 1 ) } ) = { <. ( N + 1 ) , ( G ` ( N + 1 ) ) >. } )
91	89, 85, 90	syl2anc 661	. . . . . . 7 |- ( ( N e. NN0 /\ ( G : ( 1 ... ( N + 1 ) ) --> A /\ ( G ` ( N + 1 ) ) = B /\ F = ( G |` ( 1 ... N ) ) ) ) -> ( G |` { ( N + 1 ) } ) = { <. ( N + 1 ) , ( G ` ( N + 1 ) ) >. } )
92		opeq2 4072	. . . . . . . . 9 |- ( ( G ` ( N + 1 ) ) = B -> <. ( N + 1 ) , ( G ` ( N + 1 ) ) >. = <. ( N + 1 ) , B >. )
93	92	sneqd 3901	. . . . . . . 8 |- ( ( G ` ( N + 1 ) ) = B -> { <. ( N + 1 ) , ( G ` ( N + 1 ) ) >. } = { <. ( N + 1 ) , B >. } )
94	80, 93	syl 16	. . . . . . 7 |- ( ( N e. NN0 /\ ( G : ( 1 ... ( N + 1 ) ) --> A /\ ( G ` ( N + 1 ) ) = B /\ F = ( G |` ( 1 ... N ) ) ) ) -> { <. ( N + 1 ) , ( G ` ( N + 1 ) ) >. } = { <. ( N + 1 ) , B >. } )
95	91, 94	eqtrd 2475	. . . . . 6 |- ( ( N e. NN0 /\ ( G : ( 1 ... ( N + 1 ) ) --> A /\ ( G ` ( N + 1 ) ) = B /\ F = ( G |` ( 1 ... N ) ) ) ) -> ( G |` { ( N + 1 ) } ) = { <. ( N + 1 ) , B >. } )
96	95, 5	syl6reqr 2494	. . . . 5 |- ( ( N e. NN0 /\ ( G : ( 1 ... ( N + 1 ) ) --> A /\ ( G ` ( N + 1 ) ) = B /\ F = ( G |` ( 1 ... N ) ) ) ) -> H = ( G |` { ( N + 1 ) } ) )
97	77, 96	uneq12d 3523	. . . 4 |- ( ( N e. NN0 /\ ( G : ( 1 ... ( N + 1 ) ) --> A /\ ( G ` ( N + 1 ) ) = B /\ F = ( G |` ( 1 ... N ) ) ) ) -> ( F u. H ) = ( ( G |` ( 1 ... N ) ) u. ( G |` { ( N + 1 ) } ) ) )
98		simpl 457	. . . . . . . 8 |- ( ( N e. NN0 /\ ( G : ( 1 ... ( N + 1 ) ) --> A /\ ( G ` ( N + 1 ) ) = B /\ F = ( G |` ( 1 ... N ) ) ) ) -> N e. NN0 )
99	98, 21	syl6eleq 2533	. . . . . . 7 |- ( ( N e. NN0 /\ ( G : ( 1 ... ( N + 1 ) ) --> A /\ ( G ` ( N + 1 ) ) = B /\ F = ( G |` ( 1 ... N ) ) ) ) -> N e. ( ZZ>= ` ( 1 - 1 ) ) )
100	16, 99, 23	sylancr 663	. . . . . 6 |- ( ( N e. NN0 /\ ( G : ( 1 ... ( N + 1 ) ) --> A /\ ( G ` ( N + 1 ) ) = B /\ F = ( G |` ( 1 ... N ) ) ) ) -> ( 1 ... ( N + 1 ) ) = ( ( 1 ... N ) u. { ( N + 1 ) } ) )
101	100	reseq2d 5122	. . . . 5 |- ( ( N e. NN0 /\ ( G : ( 1 ... ( N + 1 ) ) --> A /\ ( G ` ( N + 1 ) ) = B /\ F = ( G |` ( 1 ... N ) ) ) ) -> ( G |` ( 1 ... ( N + 1 ) ) ) = ( G |` ( ( 1 ... N ) u. { ( N + 1 ) } ) ) )
102		resundi 5136	. . . . 5 |- ( G |` ( ( 1 ... N ) u. { ( N + 1 ) } ) ) = ( ( G |` ( 1 ... N ) ) u. ( G |` { ( N + 1 ) } ) )
103	101, 102	syl6req 2492	. . . 4 |- ( ( N e. NN0 /\ ( G : ( 1 ... ( N + 1 ) ) --> A /\ ( G ` ( N + 1 ) ) = B /\ F = ( G |` ( 1 ... N ) ) ) ) -> ( ( G |` ( 1 ... N ) ) u. ( G |` { ( N + 1 ) } ) ) = ( G |` ( 1 ... ( N + 1 ) ) ) )
104		fnresdm 5532	. . . . 5 |- ( G Fn ( 1 ... ( N + 1 ) ) -> ( G |` ( 1 ... ( N + 1 ) ) ) = G )
105	73, 88, 104	3syl 20	. . . 4 |- ( ( N e. NN0 /\ ( G : ( 1 ... ( N + 1 ) ) --> A /\ ( G ` ( N + 1 ) ) = B /\ F = ( G |` ( 1 ... N ) ) ) ) -> ( G |` ( 1 ... ( N + 1 ) ) ) = G )
106	97, 103, 105	3eqtrrd 2480	. . 3 |- ( ( N e. NN0 /\ ( G : ( 1 ... ( N + 1 ) ) --> A /\ ( G ` ( N + 1 ) ) = B /\ F = ( G |` ( 1 ... N ) ) ) ) -> G = ( F u. H ) )
107	79, 87, 106	3jca 1168	. 2 |- ( ( N e. NN0 /\ ( G : ( 1 ... ( N + 1 ) ) --> A /\ ( G ` ( N + 1 ) ) = B /\ F = ( G |` ( 1 ... N ) ) ) ) -> ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) )
108	72, 107	impbida 828	1 |- ( N e. NN0 -> ( ( F : ( 1 ... N ) --> A /\ B e. A /\ G = ( F u. H ) ) <-> ( G : ( 1 ... ( N + 1 ) ) --> A /\ ( G ` ( N + 1 ) ) = B /\ F = ( G |` ( 1 ... N ) ) ) ) )

Syntax hints:   -> wi 4   <-> wb 184   /\ wa 369   /\ w3a 965   = wceq 1369   e. wcel 1756   u. cun 3338   i^i cin 3339   C_ wss 3340   (/)c0 3649   {csn 3889   <.cop 3895   |` cres 4854   Fn wfn 5425   -->wf 5426   ` cfv 5430  (class class class)co 6103   0cc0 9294   1c1 9295   + caddc 9297   - cmin 9607   NNcn 10334   NN0cn0 10591   ZZcz 10658   ZZ>=cuz 10873   ...cfz 11449

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1591  ax-4 1602  ax-5 1670  ax-6 1708  ax-7 1728  ax-8 1758  ax-9 1760  ax-10 1775  ax-11 1780  ax-12 1792  ax-13 1943  ax-ext 2423  ax-sep 4425  ax-nul 4433  ax-pow 4482  ax-pr 4543  ax-un 6384  ax-cnex 9350  ax-resscn 9351  ax-1cn 9352  ax-icn 9353  ax-addcl 9354  ax-addrcl 9355  ax-mulcl 9356  ax-mulrcl 9357  ax-mulcom 9358  ax-addass 9359  ax-mulass 9360  ax-distr 9361  ax-i2m1 9362  ax-1ne0 9363  ax-1rid 9364  ax-rnegex 9365  ax-rrecex 9366  ax-cnre 9367  ax-pre-lttri 9368  ax-pre-lttrn 9369  ax-pre-ltadd 9370  ax-pre-mulgt0 9371

This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 966  df-3an 967  df-tru 1372  df-ex 1587  df-nf 1590  df-sb 1701  df-eu 2257  df-mo 2258  df-clab 2430  df-cleq 2436  df-clel 2439  df-nfc 2577  df-ne 2620  df-nel 2621  df-ral 2732  df-rex 2733  df-reu 2734  df-rab 2736  df-v 2986  df-sbc 3199  df-csb 3301  df-dif 3343  df-un 3345  df-in 3347  df-ss 3354  df-pss 3356  df-nul 3650  df-if 3804  df-pw 3874  df-sn 3890  df-pr 3892  df-tp 3894  df-op 3896  df-uni 4104  df-iun 4185  df-br 4305  df-opab 4363  df-mpt 4364  df-tr 4398  df-eprel 4644  df-id 4648  df-po 4653  df-so 4654  df-fr 4691  df-we 4693  df-ord 4734  df-on 4735  df-lim 4736  df-suc 4737  df-xp 4858  df-rel 4859  df-cnv 4860  df-co 4861  df-dm 4862  df-rn 4863  df-res 4864  df-ima 4865  df-iota 5393  df-fun 5432  df-fn 5433  df-f 5434  df-f1 5435  df-fo 5436  df-f1o 5437  df-fv 5438  df-riota 6064  df-ov 6106  df-oprab 6107  df-mpt2 6108  df-om 6489  df-1st 6589  df-2nd 6590  df-recs 6844  df-rdg 6878  df-er 7113  df-en 7323  df-dom 7324  df-sdom 7325  df-pnf 9432  df-mnf 9433  df-xr 9434  df-ltxr 9435  df-le 9436  df-sub 9609  df-neg 9610  df-nn 10335  df-n0 10592  df-z 10659  df-uz 10874  df-fz 11450

This theorem is referenced by:  fseq1m1p1  11547