fseq1p1m1 - Intuitionistic Logic Explorer

	Intuitionistic Logic Explorer		< Previous Next > Nearby theorems
Mirrors > Home > ILE Home > Th. List > fseq1p1m1		GIF version

Theorem fseq1p1m1 10428

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	⊢ 𝐻 = {⟨(𝑁 + 1), 𝐵⟩}

**Assertion**
Ref	Expression
fseq1p1m1	⊢ (𝑁 ∈ ℕ₀ → ((𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻)) ↔ (𝐺:(1...(𝑁 + 1))⟶𝐴 ∧ (𝐺‘(𝑁 + 1)) = 𝐵 ∧ 𝐹 = (𝐺 ↾ (1...𝑁)))))

**Proof of Theorem fseq1p1m1**
Step	Hyp	Ref	Expression
1		simpr1 1030	. . . . . 6 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → 𝐹:(1...𝑁)⟶𝐴)
2		nn0p1nn 9535	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ₀ → (𝑁 + 1) ∈ ℕ)
3	2	adantr 276	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → (𝑁 + 1) ∈ ℕ)
4		simpr2 1031	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → 𝐵 ∈ 𝐴)
5		fseq1p1m1.1	. . . . . . . . 9 ⊢ 𝐻 = {⟨(𝑁 + 1), 𝐵⟩}
6		fsng 5850	. . . . . . . . 9 ⊢ (((𝑁 + 1) ∈ ℕ ∧ 𝐵 ∈ 𝐴) → (𝐻:{(𝑁 + 1)}⟶{𝐵} ↔ 𝐻 = {⟨(𝑁 + 1), 𝐵⟩}))
7	5, 6	mpbiri 168	. . . . . . . 8 ⊢ (((𝑁 + 1) ∈ ℕ ∧ 𝐵 ∈ 𝐴) → 𝐻:{(𝑁 + 1)}⟶{𝐵})
8	3, 4, 7	syl2anc 411	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → 𝐻:{(𝑁 + 1)}⟶{𝐵})
9	4	snssd 3839	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → {𝐵} ⊆ 𝐴)
10	8, 9	fssd 5522	. . . . . 6 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → 𝐻:{(𝑁 + 1)}⟶𝐴)
11		fzp1disj 10414	. . . . . . 7 ⊢ ((1...𝑁) ∩ {(𝑁 + 1)}) = ∅
12	11	a1i 9	. . . . . 6 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → ((1...𝑁) ∩ {(𝑁 + 1)}) = ∅)
13		fun2 5537	. . . . . 6 ⊢ (((𝐹:(1...𝑁)⟶𝐴 ∧ 𝐻:{(𝑁 + 1)}⟶𝐴) ∧ ((1...𝑁) ∩ {(𝑁 + 1)}) = ∅) → (𝐹 ∪ 𝐻):((1...𝑁) ∪ {(𝑁 + 1)})⟶𝐴)
14	1, 10, 12, 13	syl21anc 1273	. . . . 5 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → (𝐹 ∪ 𝐻):((1...𝑁) ∪ {(𝑁 + 1)})⟶𝐴)
15		1z 9603	. . . . . . . 8 ⊢ 1 ∈ ℤ
16		simpl 109	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → 𝑁 ∈ ℕ₀)
17		nn0uz 9889	. . . . . . . . . 10 ⊢ ℕ₀ = (ℤ_≥‘0)
18		1m1e0 9306	. . . . . . . . . . 11 ⊢ (1 − 1) = 0
19	18	fveq2i 5673	. . . . . . . . . 10 ⊢ (ℤ_≥‘(1 − 1)) = (ℤ_≥‘0)
20	17, 19	eqtr4i 2256	. . . . . . . . 9 ⊢ ℕ₀ = (ℤ_≥‘(1 − 1))
21	16, 20	eleqtrdi 2325	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → 𝑁 ∈ (ℤ_≥‘(1 − 1)))
22		fzsuc2 10413	. . . . . . . 8 ⊢ ((1 ∈ ℤ ∧ 𝑁 ∈ (ℤ_≥‘(1 − 1))) → (1...(𝑁 + 1)) = ((1...𝑁) ∪ {(𝑁 + 1)}))
23	15, 21, 22	sylancr 414	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → (1...(𝑁 + 1)) = ((1...𝑁) ∪ {(𝑁 + 1)}))
24	23	eqcomd 2238	. . . . . 6 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → ((1...𝑁) ∪ {(𝑁 + 1)}) = (1...(𝑁 + 1)))
25	24	feq2d 5496	. . . . 5 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → ((𝐹 ∪ 𝐻):((1...𝑁) ∪ {(𝑁 + 1)})⟶𝐴 ↔ (𝐹 ∪ 𝐻):(1...(𝑁 + 1))⟶𝐴))
26	14, 25	mpbid 147	. . . 4 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → (𝐹 ∪ 𝐻):(1...(𝑁 + 1))⟶𝐴)
27		simpr3 1032	. . . . 5 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → 𝐺 = (𝐹 ∪ 𝐻))
28	27	feq1d 5495	. . . 4 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → (𝐺:(1...(𝑁 + 1))⟶𝐴 ↔ (𝐹 ∪ 𝐻):(1...(𝑁 + 1))⟶𝐴))
29	26, 28	mpbird 167	. . 3 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → 𝐺:(1...(𝑁 + 1))⟶𝐴)
30	27	reseq1d 5037	. . . . . 6 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → (𝐺 ↾ {(𝑁 + 1)}) = ((𝐹 ∪ 𝐻) ↾ {(𝑁 + 1)}))
31		ffn 5508	. . . . . . . . . 10 ⊢ (𝐹:(1...𝑁)⟶𝐴 → 𝐹 Fn (1...𝑁))
32		fnresdisj 5468	. . . . . . . . . 10 ⊢ (𝐹 Fn (1...𝑁) → (((1...𝑁) ∩ {(𝑁 + 1)}) = ∅ ↔ (𝐹 ↾ {(𝑁 + 1)}) = ∅))
33	1, 31, 32	3syl 17	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → (((1...𝑁) ∩ {(𝑁 + 1)}) = ∅ ↔ (𝐹 ↾ {(𝑁 + 1)}) = ∅))
34	12, 33	mpbid 147	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → (𝐹 ↾ {(𝑁 + 1)}) = ∅)
35	34	uneq1d 3372	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → ((𝐹 ↾ {(𝑁 + 1)}) ∪ (𝐻 ↾ {(𝑁 + 1)})) = (∅ ∪ (𝐻 ↾ {(𝑁 + 1)})))
36		resundir 5052	. . . . . . 7 ⊢ ((𝐹 ∪ 𝐻) ↾ {(𝑁 + 1)}) = ((𝐹 ↾ {(𝑁 + 1)}) ∪ (𝐻 ↾ {(𝑁 + 1)}))
37		uncom 3363	. . . . . . . 8 ⊢ (∅ ∪ (𝐻 ↾ {(𝑁 + 1)})) = ((𝐻 ↾ {(𝑁 + 1)}) ∪ ∅)
38		un0 3542	. . . . . . . 8 ⊢ ((𝐻 ↾ {(𝑁 + 1)}) ∪ ∅) = (𝐻 ↾ {(𝑁 + 1)})
39	37, 38	eqtr2i 2254	. . . . . . 7 ⊢ (𝐻 ↾ {(𝑁 + 1)}) = (∅ ∪ (𝐻 ↾ {(𝑁 + 1)}))
40	35, 36, 39	3eqtr4g 2290	. . . . . 6 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → ((𝐹 ∪ 𝐻) ↾ {(𝑁 + 1)}) = (𝐻 ↾ {(𝑁 + 1)}))
41		ffn 5508	. . . . . . 7 ⊢ (𝐻:{(𝑁 + 1)}⟶𝐴 → 𝐻 Fn {(𝑁 + 1)})
42		fnresdm 5467	. . . . . . 7 ⊢ (𝐻 Fn {(𝑁 + 1)} → (𝐻 ↾ {(𝑁 + 1)}) = 𝐻)
43	10, 41, 42	3syl 17	. . . . . 6 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → (𝐻 ↾ {(𝑁 + 1)}) = 𝐻)
44	30, 40, 43	3eqtrd 2269	. . . . 5 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → (𝐺 ↾ {(𝑁 + 1)}) = 𝐻)
45	44	fveq1d 5672	. . . 4 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → ((𝐺 ↾ {(𝑁 + 1)})‘(𝑁 + 1)) = (𝐻‘(𝑁 + 1)))
46	16	nn0zd 9698	. . . . . 6 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → 𝑁 ∈ ℤ)
47	46	peano2zd 9703	. . . . 5 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → (𝑁 + 1) ∈ ℤ)
48		snidg 3718	. . . . 5 ⊢ ((𝑁 + 1) ∈ ℤ → (𝑁 + 1) ∈ {(𝑁 + 1)})
49		fvres 5694	. . . . 5 ⊢ ((𝑁 + 1) ∈ {(𝑁 + 1)} → ((𝐺 ↾ {(𝑁 + 1)})‘(𝑁 + 1)) = (𝐺‘(𝑁 + 1)))
50	47, 48, 49	3syl 17	. . . 4 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → ((𝐺 ↾ {(𝑁 + 1)})‘(𝑁 + 1)) = (𝐺‘(𝑁 + 1)))
51	5	fveq1i 5671	. . . . . 6 ⊢ (𝐻‘(𝑁 + 1)) = ({⟨(𝑁 + 1), 𝐵⟩}‘(𝑁 + 1))
52		fvsng 5880	. . . . . 6 ⊢ (((𝑁 + 1) ∈ ℕ ∧ 𝐵 ∈ 𝐴) → ({⟨(𝑁 + 1), 𝐵⟩}‘(𝑁 + 1)) = 𝐵)
53	51, 52	eqtrid 2277	. . . . 5 ⊢ (((𝑁 + 1) ∈ ℕ ∧ 𝐵 ∈ 𝐴) → (𝐻‘(𝑁 + 1)) = 𝐵)
54	3, 4, 53	syl2anc 411	. . . 4 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → (𝐻‘(𝑁 + 1)) = 𝐵)
55	45, 50, 54	3eqtr3d 2273	. . 3 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → (𝐺‘(𝑁 + 1)) = 𝐵)
56	27	reseq1d 5037	. . . 4 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → (𝐺 ↾ (1...𝑁)) = ((𝐹 ∪ 𝐻) ↾ (1...𝑁)))
57		incom 3411	. . . . . . . 8 ⊢ ({(𝑁 + 1)} ∩ (1...𝑁)) = ((1...𝑁) ∩ {(𝑁 + 1)})
58	57, 12	eqtrid 2277	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → ({(𝑁 + 1)} ∩ (1...𝑁)) = ∅)
59		ffn 5508	. . . . . . . 8 ⊢ (𝐻:{(𝑁 + 1)}⟶{𝐵} → 𝐻 Fn {(𝑁 + 1)})
60		fnresdisj 5468	. . . . . . . 8 ⊢ (𝐻 Fn {(𝑁 + 1)} → (({(𝑁 + 1)} ∩ (1...𝑁)) = ∅ ↔ (𝐻 ↾ (1...𝑁)) = ∅))
61	8, 59, 60	3syl 17	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → (({(𝑁 + 1)} ∩ (1...𝑁)) = ∅ ↔ (𝐻 ↾ (1...𝑁)) = ∅))
62	58, 61	mpbid 147	. . . . . 6 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → (𝐻 ↾ (1...𝑁)) = ∅)
63	62	uneq2d 3373	. . . . 5 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → ((𝐹 ↾ (1...𝑁)) ∪ (𝐻 ↾ (1...𝑁))) = ((𝐹 ↾ (1...𝑁)) ∪ ∅))
64		resundir 5052	. . . . 5 ⊢ ((𝐹 ∪ 𝐻) ↾ (1...𝑁)) = ((𝐹 ↾ (1...𝑁)) ∪ (𝐻 ↾ (1...𝑁)))
65		un0 3542	. . . . . 6 ⊢ ((𝐹 ↾ (1...𝑁)) ∪ ∅) = (𝐹 ↾ (1...𝑁))
66	65	eqcomi 2236	. . . . 5 ⊢ (𝐹 ↾ (1...𝑁)) = ((𝐹 ↾ (1...𝑁)) ∪ ∅)
67	63, 64, 66	3eqtr4g 2290	. . . 4 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → ((𝐹 ∪ 𝐻) ↾ (1...𝑁)) = (𝐹 ↾ (1...𝑁)))
68		fnresdm 5467	. . . . 5 ⊢ (𝐹 Fn (1...𝑁) → (𝐹 ↾ (1...𝑁)) = 𝐹)
69	1, 31, 68	3syl 17	. . . 4 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → (𝐹 ↾ (1...𝑁)) = 𝐹)
70	56, 67, 69	3eqtrrd 2270	. . 3 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → 𝐹 = (𝐺 ↾ (1...𝑁)))
71	29, 55, 70	3jca 1204	. 2 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻))) → (𝐺:(1...(𝑁 + 1))⟶𝐴 ∧ (𝐺‘(𝑁 + 1)) = 𝐵 ∧ 𝐹 = (𝐺 ↾ (1...𝑁))))
72		simpr1 1030	. . . . 5 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐺:(1...(𝑁 + 1))⟶𝐴 ∧ (𝐺‘(𝑁 + 1)) = 𝐵 ∧ 𝐹 = (𝐺 ↾ (1...𝑁)))) → 𝐺:(1...(𝑁 + 1))⟶𝐴)
73		fzssp1 10401	. . . . 5 ⊢ (1...𝑁) ⊆ (1...(𝑁 + 1))
74		fssres 5540	. . . . 5 ⊢ ((𝐺:(1...(𝑁 + 1))⟶𝐴 ∧ (1...𝑁) ⊆ (1...(𝑁 + 1))) → (𝐺 ↾ (1...𝑁)):(1...𝑁)⟶𝐴)
75	72, 73, 74	sylancl 413	. . . 4 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐺:(1...(𝑁 + 1))⟶𝐴 ∧ (𝐺‘(𝑁 + 1)) = 𝐵 ∧ 𝐹 = (𝐺 ↾ (1...𝑁)))) → (𝐺 ↾ (1...𝑁)):(1...𝑁)⟶𝐴)
76		simpr3 1032	. . . . 5 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐺:(1...(𝑁 + 1))⟶𝐴 ∧ (𝐺‘(𝑁 + 1)) = 𝐵 ∧ 𝐹 = (𝐺 ↾ (1...𝑁)))) → 𝐹 = (𝐺 ↾ (1...𝑁)))
77	76	feq1d 5495	. . . 4 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐺:(1...(𝑁 + 1))⟶𝐴 ∧ (𝐺‘(𝑁 + 1)) = 𝐵 ∧ 𝐹 = (𝐺 ↾ (1...𝑁)))) → (𝐹:(1...𝑁)⟶𝐴 ↔ (𝐺 ↾ (1...𝑁)):(1...𝑁)⟶𝐴))
78	75, 77	mpbird 167	. . 3 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐺:(1...(𝑁 + 1))⟶𝐴 ∧ (𝐺‘(𝑁 + 1)) = 𝐵 ∧ 𝐹 = (𝐺 ↾ (1...𝑁)))) → 𝐹:(1...𝑁)⟶𝐴)
79		simpr2 1031	. . . 4 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐺:(1...(𝑁 + 1))⟶𝐴 ∧ (𝐺‘(𝑁 + 1)) = 𝐵 ∧ 𝐹 = (𝐺 ↾ (1...𝑁)))) → (𝐺‘(𝑁 + 1)) = 𝐵)
80	2	adantr 276	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐺:(1...(𝑁 + 1))⟶𝐴 ∧ (𝐺‘(𝑁 + 1)) = 𝐵 ∧ 𝐹 = (𝐺 ↾ (1...𝑁)))) → (𝑁 + 1) ∈ ℕ)
81		nnuz 9890	. . . . . . 7 ⊢ ℕ = (ℤ_≥‘1)
82	80, 81	eleqtrdi 2325	. . . . . 6 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐺:(1...(𝑁 + 1))⟶𝐴 ∧ (𝐺‘(𝑁 + 1)) = 𝐵 ∧ 𝐹 = (𝐺 ↾ (1...𝑁)))) → (𝑁 + 1) ∈ (ℤ_≥‘1))
83		eluzfz2 10366	. . . . . 6 ⊢ ((𝑁 + 1) ∈ (ℤ_≥‘1) → (𝑁 + 1) ∈ (1...(𝑁 + 1)))
84	82, 83	syl 14	. . . . 5 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐺:(1...(𝑁 + 1))⟶𝐴 ∧ (𝐺‘(𝑁 + 1)) = 𝐵 ∧ 𝐹 = (𝐺 ↾ (1...𝑁)))) → (𝑁 + 1) ∈ (1...(𝑁 + 1)))
85	72, 84	ffvelcdmd 5813	. . . 4 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐺:(1...(𝑁 + 1))⟶𝐴 ∧ (𝐺‘(𝑁 + 1)) = 𝐵 ∧ 𝐹 = (𝐺 ↾ (1...𝑁)))) → (𝐺‘(𝑁 + 1)) ∈ 𝐴)
86	79, 85	eqeltrrd 2310	. . 3 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐺:(1...(𝑁 + 1))⟶𝐴 ∧ (𝐺‘(𝑁 + 1)) = 𝐵 ∧ 𝐹 = (𝐺 ↾ (1...𝑁)))) → 𝐵 ∈ 𝐴)
87		ffn 5508	. . . . . . . . 9 ⊢ (𝐺:(1...(𝑁 + 1))⟶𝐴 → 𝐺 Fn (1...(𝑁 + 1)))
88	72, 87	syl 14	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐺:(1...(𝑁 + 1))⟶𝐴 ∧ (𝐺‘(𝑁 + 1)) = 𝐵 ∧ 𝐹 = (𝐺 ↾ (1...𝑁)))) → 𝐺 Fn (1...(𝑁 + 1)))
89		fnressn 5870	. . . . . . . 8 ⊢ ((𝐺 Fn (1...(𝑁 + 1)) ∧ (𝑁 + 1) ∈ (1...(𝑁 + 1))) → (𝐺 ↾ {(𝑁 + 1)}) = {⟨(𝑁 + 1), (𝐺‘(𝑁 + 1))⟩})
90	88, 84, 89	syl2anc 411	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐺:(1...(𝑁 + 1))⟶𝐴 ∧ (𝐺‘(𝑁 + 1)) = 𝐵 ∧ 𝐹 = (𝐺 ↾ (1...𝑁)))) → (𝐺 ↾ {(𝑁 + 1)}) = {⟨(𝑁 + 1), (𝐺‘(𝑁 + 1))⟩})
91		opeq2 3884	. . . . . . . . 9 ⊢ ((𝐺‘(𝑁 + 1)) = 𝐵 → ⟨(𝑁 + 1), (𝐺‘(𝑁 + 1))⟩ = ⟨(𝑁 + 1), 𝐵⟩)
92	91	sneqd 3702	. . . . . . . 8 ⊢ ((𝐺‘(𝑁 + 1)) = 𝐵 → {⟨(𝑁 + 1), (𝐺‘(𝑁 + 1))⟩} = {⟨(𝑁 + 1), 𝐵⟩})
93	79, 92	syl 14	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐺:(1...(𝑁 + 1))⟶𝐴 ∧ (𝐺‘(𝑁 + 1)) = 𝐵 ∧ 𝐹 = (𝐺 ↾ (1...𝑁)))) → {⟨(𝑁 + 1), (𝐺‘(𝑁 + 1))⟩} = {⟨(𝑁 + 1), 𝐵⟩})
94	90, 93	eqtrd 2265	. . . . . 6 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐺:(1...(𝑁 + 1))⟶𝐴 ∧ (𝐺‘(𝑁 + 1)) = 𝐵 ∧ 𝐹 = (𝐺 ↾ (1...𝑁)))) → (𝐺 ↾ {(𝑁 + 1)}) = {⟨(𝑁 + 1), 𝐵⟩})
95	5, 94	eqtr4id 2284	. . . . 5 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐺:(1...(𝑁 + 1))⟶𝐴 ∧ (𝐺‘(𝑁 + 1)) = 𝐵 ∧ 𝐹 = (𝐺 ↾ (1...𝑁)))) → 𝐻 = (𝐺 ↾ {(𝑁 + 1)}))
96	76, 95	uneq12d 3374	. . . 4 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐺:(1...(𝑁 + 1))⟶𝐴 ∧ (𝐺‘(𝑁 + 1)) = 𝐵 ∧ 𝐹 = (𝐺 ↾ (1...𝑁)))) → (𝐹 ∪ 𝐻) = ((𝐺 ↾ (1...𝑁)) ∪ (𝐺 ↾ {(𝑁 + 1)})))
97		simpl 109	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐺:(1...(𝑁 + 1))⟶𝐴 ∧ (𝐺‘(𝑁 + 1)) = 𝐵 ∧ 𝐹 = (𝐺 ↾ (1...𝑁)))) → 𝑁 ∈ ℕ₀)
98	97, 20	eleqtrdi 2325	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐺:(1...(𝑁 + 1))⟶𝐴 ∧ (𝐺‘(𝑁 + 1)) = 𝐵 ∧ 𝐹 = (𝐺 ↾ (1...𝑁)))) → 𝑁 ∈ (ℤ_≥‘(1 − 1)))
99	15, 98, 22	sylancr 414	. . . . . 6 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐺:(1...(𝑁 + 1))⟶𝐴 ∧ (𝐺‘(𝑁 + 1)) = 𝐵 ∧ 𝐹 = (𝐺 ↾ (1...𝑁)))) → (1...(𝑁 + 1)) = ((1...𝑁) ∪ {(𝑁 + 1)}))
100	99	reseq2d 5038	. . . . 5 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐺:(1...(𝑁 + 1))⟶𝐴 ∧ (𝐺‘(𝑁 + 1)) = 𝐵 ∧ 𝐹 = (𝐺 ↾ (1...𝑁)))) → (𝐺 ↾ (1...(𝑁 + 1))) = (𝐺 ↾ ((1...𝑁) ∪ {(𝑁 + 1)})))
101		resundi 5051	. . . . 5 ⊢ (𝐺 ↾ ((1...𝑁) ∪ {(𝑁 + 1)})) = ((𝐺 ↾ (1...𝑁)) ∪ (𝐺 ↾ {(𝑁 + 1)}))
102	100, 101	eqtr2di 2282	. . . 4 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐺:(1...(𝑁 + 1))⟶𝐴 ∧ (𝐺‘(𝑁 + 1)) = 𝐵 ∧ 𝐹 = (𝐺 ↾ (1...𝑁)))) → ((𝐺 ↾ (1...𝑁)) ∪ (𝐺 ↾ {(𝑁 + 1)})) = (𝐺 ↾ (1...(𝑁 + 1))))
103		fnresdm 5467	. . . . 5 ⊢ (𝐺 Fn (1...(𝑁 + 1)) → (𝐺 ↾ (1...(𝑁 + 1))) = 𝐺)
104	72, 87, 103	3syl 17	. . . 4 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐺:(1...(𝑁 + 1))⟶𝐴 ∧ (𝐺‘(𝑁 + 1)) = 𝐵 ∧ 𝐹 = (𝐺 ↾ (1...𝑁)))) → (𝐺 ↾ (1...(𝑁 + 1))) = 𝐺)
105	96, 102, 104	3eqtrrd 2270	. . 3 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐺:(1...(𝑁 + 1))⟶𝐴 ∧ (𝐺‘(𝑁 + 1)) = 𝐵 ∧ 𝐹 = (𝐺 ↾ (1...𝑁)))) → 𝐺 = (𝐹 ∪ 𝐻))
106	78, 86, 105	3jca 1204	. 2 ⊢ ((𝑁 ∈ ℕ₀ ∧ (𝐺:(1...(𝑁 + 1))⟶𝐴 ∧ (𝐺‘(𝑁 + 1)) = 𝐵 ∧ 𝐹 = (𝐺 ↾ (1...𝑁)))) → (𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻)))
107	71, 106	impbida 600	1 ⊢ (𝑁 ∈ ℕ₀ → ((𝐹:(1...𝑁)⟶𝐴 ∧ 𝐵 ∈ 𝐴 ∧ 𝐺 = (𝐹 ∪ 𝐻)) ↔ (𝐺:(1...(𝑁 + 1))⟶𝐴 ∧ (𝐺‘(𝑁 + 1)) = 𝐵 ∧ 𝐹 = (𝐺 ↾ (1...𝑁)))))

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 104 ↔ wb 105 ∧ w3a 1005 = wceq 1398 ∈ wcel 2203 ∪ cun 3209 ∩ cin 3210 ⊆ wss 3211 ∅c0 3508 {csn 3689 ⟨cop 3692 ↾ cres 4751 Fn wfn 5347 ⟶wf 5348 ‘cfv 5352 (class class class)co 6050 0cc0 8127 1c1 8128 + caddc 8130 − cmin 8444 ℕcn 9237 ℕ₀cn0 9496 ℤcz 9577 ℤ_≥cuz 9853 ...cfz 10342

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 619 ax-in2 620 ax-io 717 ax-5 1496 ax-7 1497 ax-gen 1498 ax-ie1 1542 ax-ie2 1543 ax-8 1553 ax-10 1554 ax-11 1555 ax-i12 1556 ax-bndl 1558 ax-4 1559 ax-17 1575 ax-i9 1579 ax-ial 1583 ax-i5r 1584 ax-13 2205 ax-14 2206 ax-ext 2214 ax-sep 4228 ax-pow 4287 ax-pr 4322 ax-un 4554 ax-setind 4659 ax-cnex 8218 ax-resscn 8219 ax-1cn 8220 ax-1re 8221 ax-icn 8222 ax-addcl 8223 ax-addrcl 8224 ax-mulcl 8225 ax-addcom 8227 ax-addass 8229 ax-distr 8231 ax-i2m1 8232 ax-0lt1 8233 ax-0id 8235 ax-rnegex 8236 ax-cnre 8238 ax-pre-ltirr 8239 ax-pre-ltwlin 8240 ax-pre-lttrn 8241 ax-pre-apti 8242 ax-pre-ltadd 8243

This theorem depends on definitions: df-bi 117 df-3or 1006 df-3an 1007 df-tru 1401 df-fal 1404 df-nf 1510 df-sb 1812 df-eu 2083 df-mo 2084 df-clab 2219 df-cleq 2225 df-clel 2228 df-nfc 2373 df-ne 2413 df-nel 2508 df-ral 2525 df-rex 2526 df-reu 2527 df-rab 2529 df-v 2815 df-sbc 3043 df-dif 3213 df-un 3215 df-in 3217 df-ss 3224 df-nul 3509 df-pw 3671 df-sn 3695 df-pr 3696 df-op 3698 df-uni 3915 df-int 3950 df-br 4110 df-opab 4172 df-mpt 4173 df-id 4414 df-xp 4755 df-rel 4756 df-cnv 4757 df-co 4758 df-dm 4759 df-rn 4760 df-res 4761 df-ima 4762 df-iota 5312 df-fun 5354 df-fn 5355 df-f 5356 df-f1 5357 df-fo 5358 df-f1o 5359 df-fv 5360 df-riota 6003 df-ov 6053 df-oprab 6054 df-mpo 6055 df-pnf 8310 df-mnf 8311 df-xr 8312 df-ltxr 8313 df-le 8314 df-sub 8446 df-neg 8447 df-inn 9238 df-n0 9497 df-z 9578 df-uz 9854 df-fz 10343

This theorem is referenced by: fseq1m1p1 10429

W3C validator