Theorem tfrcllemsucaccv 6368

Description: Lemma for tfrcl 6378. We can extend an acceptable function by one element to produce an acceptable function. (Contributed by Jim Kingdon, 24-Mar-2022.)

Hypotheses

Ref	Expression
tfrcl.f	⊢ 𝐹 = recs(𝐺)
tfrcl.g	⊢ (𝜑 → Fun 𝐺)
tfrcl.x	⊢ (𝜑 → Ord 𝑋)
tfrcl.ex	⊢ ((𝜑 ∧ 𝑥 ∈ 𝑋 ∧ 𝑓:𝑥⟶𝑆) → (𝐺‘𝑓) ∈ 𝑆)
tfrcllemsucfn.1	⊢ 𝐴 = {𝑓 ∣ ∃𝑥 ∈ 𝑋 (𝑓:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦)))}
tfrcllemsucaccv.yx	⊢ (𝜑 → 𝑌 ∈ 𝑋)
tfrcllemsucaccv.zy	⊢ (𝜑 → 𝑧 ∈ 𝑌)
tfrcllemsucaccv.u	⊢ ((𝜑 ∧ 𝑥 ∈ ∪ 𝑋) → suc 𝑥 ∈ 𝑋)
tfrcllemsucaccv.gfn	⊢ (𝜑 → 𝑔:𝑧⟶𝑆)
tfrcllemsucaccv.gacc	⊢ (𝜑 → 𝑔 ∈ 𝐴)

Assertion

Ref	Expression
tfrcllemsucaccv	⊢ (𝜑 → (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ∈ 𝐴)

Distinct variable groups:   𝑓,𝐺,𝑥,𝑦   𝑆,𝑓,𝑥   𝑓,𝑋,𝑥   𝑓,𝑔,𝑥,𝑦   𝜑,𝑓,𝑥,𝑦   𝑧,𝑓,𝑥,𝑦

Allowed substitution hints:   𝜑(𝑧,𝑔)   𝐴(𝑥,𝑦,𝑧,𝑓,𝑔)   𝑆(𝑦,𝑧,𝑔)   𝐹(𝑥,𝑦,𝑧,𝑓,𝑔)   𝐺(𝑧,𝑔)   𝑋(𝑦,𝑧,𝑔)   𝑌(𝑥,𝑦,𝑧,𝑓,𝑔)

Proof of Theorem tfrcllemsucaccv

Dummy variable 𝑤 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		suceq 4414	. . . . 5 ⊢ (𝑥 = 𝑧 → suc 𝑥 = suc 𝑧)
2	1	eleq1d 2256	. . . 4 ⊢ (𝑥 = 𝑧 → (suc 𝑥 ∈ 𝑋 ↔ suc 𝑧 ∈ 𝑋))
3		tfrcllemsucaccv.u	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ ∪ 𝑋) → suc 𝑥 ∈ 𝑋)
4	3	ralrimiva 2560	. . . 4 ⊢ (𝜑 → ∀𝑥 ∈ ∪ 𝑋 suc 𝑥 ∈ 𝑋)
5		tfrcllemsucaccv.zy	. . . . 5 ⊢ (𝜑 → 𝑧 ∈ 𝑌)
6		tfrcllemsucaccv.yx	. . . . 5 ⊢ (𝜑 → 𝑌 ∈ 𝑋)
7		elunii 3826	. . . . 5 ⊢ ((𝑧 ∈ 𝑌 ∧ 𝑌 ∈ 𝑋) → 𝑧 ∈ ∪ 𝑋)
8	5, 6, 7	syl2anc 411	. . . 4 ⊢ (𝜑 → 𝑧 ∈ ∪ 𝑋)
9	2, 4, 8	rspcdva 2858	. . 3 ⊢ (𝜑 → suc 𝑧 ∈ 𝑋)
10		tfrcl.f	. . . 4 ⊢ 𝐹 = recs(𝐺)
11		tfrcl.g	. . . 4 ⊢ (𝜑 → Fun 𝐺)
12		tfrcl.x	. . . 4 ⊢ (𝜑 → Ord 𝑋)
13		tfrcl.ex	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑋 ∧ 𝑓:𝑥⟶𝑆) → (𝐺‘𝑓) ∈ 𝑆)
14		tfrcllemsucfn.1	. . . 4 ⊢ 𝐴 = {𝑓 ∣ ∃𝑥 ∈ 𝑋 (𝑓:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦)))}
15	5, 6	jca 306	. . . . 5 ⊢ (𝜑 → (𝑧 ∈ 𝑌 ∧ 𝑌 ∈ 𝑋))
16		ordtr1 4400	. . . . 5 ⊢ (Ord 𝑋 → ((𝑧 ∈ 𝑌 ∧ 𝑌 ∈ 𝑋) → 𝑧 ∈ 𝑋))
17	12, 15, 16	sylc 62	. . . 4 ⊢ (𝜑 → 𝑧 ∈ 𝑋)
18		tfrcllemsucaccv.gfn	. . . 4 ⊢ (𝜑 → 𝑔:𝑧⟶𝑆)
19		tfrcllemsucaccv.gacc	. . . 4 ⊢ (𝜑 → 𝑔 ∈ 𝐴)
20	10, 11, 12, 13, 14, 17, 18, 19	tfrcllemsucfn 6367	. . 3 ⊢ (𝜑 → (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):suc 𝑧⟶𝑆)
21		vex 2752	. . . . . 6 ⊢ 𝑦 ∈ V
22	21	elsuc 4418	. . . . 5 ⊢ (𝑦 ∈ suc 𝑧 ↔ (𝑦 ∈ 𝑧 ∨ 𝑦 = 𝑧))
23		vex 2752	. . . . . . . . . . 11 ⊢ 𝑔 ∈ V
24		feq1 5360	. . . . . . . . . . . . 13 ⊢ (𝑓 = 𝑔 → (𝑓:𝑥⟶𝑆 ↔ 𝑔:𝑥⟶𝑆))
25		fveq1 5526	. . . . . . . . . . . . . . 15 ⊢ (𝑓 = 𝑔 → (𝑓‘𝑦) = (𝑔‘𝑦))
26		reseq1 4913	. . . . . . . . . . . . . . . 16 ⊢ (𝑓 = 𝑔 → (𝑓 ↾ 𝑦) = (𝑔 ↾ 𝑦))
27	26	fveq2d 5531	. . . . . . . . . . . . . . 15 ⊢ (𝑓 = 𝑔 → (𝐺‘(𝑓 ↾ 𝑦)) = (𝐺‘(𝑔 ↾ 𝑦)))
28	25, 27	eqeq12d 2202	. . . . . . . . . . . . . 14 ⊢ (𝑓 = 𝑔 → ((𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦)) ↔ (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))
29	28	ralbidv 2487	. . . . . . . . . . . . 13 ⊢ (𝑓 = 𝑔 → (∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦)) ↔ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))
30	24, 29	anbi12d 473	. . . . . . . . . . . 12 ⊢ (𝑓 = 𝑔 → ((𝑓:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦))) ↔ (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))))
31	30	rexbidv 2488	. . . . . . . . . . 11 ⊢ (𝑓 = 𝑔 → (∃𝑥 ∈ 𝑋 (𝑓:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦))) ↔ ∃𝑥 ∈ 𝑋 (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))))
32	23, 31, 14	elab2 2897	. . . . . . . . . 10 ⊢ (𝑔 ∈ 𝐴 ↔ ∃𝑥 ∈ 𝑋 (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))
33	19, 32	sylib 122	. . . . . . . . 9 ⊢ (𝜑 → ∃𝑥 ∈ 𝑋 (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))
34		simprrr 540	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))) → ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))
35		simprrl 539	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))) → 𝑔:𝑥⟶𝑆)
36		ffn 5377	. . . . . . . . . . . . 13 ⊢ (𝑔:𝑥⟶𝑆 → 𝑔 Fn 𝑥)
37	35, 36	syl 14	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))) → 𝑔 Fn 𝑥)
38	18	adantr 276	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))) → 𝑔:𝑧⟶𝑆)
39		ffn 5377	. . . . . . . . . . . . 13 ⊢ (𝑔:𝑧⟶𝑆 → 𝑔 Fn 𝑧)
40	38, 39	syl 14	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))) → 𝑔 Fn 𝑧)
41		fndmu 5329	. . . . . . . . . . . 12 ⊢ ((𝑔 Fn 𝑥 ∧ 𝑔 Fn 𝑧) → 𝑥 = 𝑧)
42	37, 40, 41	syl2anc 411	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))) → 𝑥 = 𝑧)
43	42	raleqdv 2689	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))) → (∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)) ↔ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))
44	34, 43	mpbid 147	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))) → ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))
45	33, 44	rexlimddv 2609	. . . . . . . 8 ⊢ (𝜑 → ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))
46	45	r19.21bi 2575	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))
47		ordelon 4395	. . . . . . . . . . . . 13 ⊢ ((Ord 𝑋 ∧ 𝑧 ∈ 𝑋) → 𝑧 ∈ On)
48	12, 17, 47	syl2anc 411	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑧 ∈ On)
49		onelon 4396	. . . . . . . . . . . 12 ⊢ ((𝑧 ∈ On ∧ 𝑦 ∈ 𝑧) → 𝑦 ∈ On)
50	48, 49	sylan 283	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → 𝑦 ∈ On)
51		eloni 4387	. . . . . . . . . . 11 ⊢ (𝑦 ∈ On → Ord 𝑦)
52		ordirr 4553	. . . . . . . . . . 11 ⊢ (Ord 𝑦 → ¬ 𝑦 ∈ 𝑦)
53	50, 51, 52	3syl 17	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → ¬ 𝑦 ∈ 𝑦)
54		elequ2 2163	. . . . . . . . . . . 12 ⊢ (𝑧 = 𝑦 → (𝑦 ∈ 𝑧 ↔ 𝑦 ∈ 𝑦))
55	54	biimpcd 159	. . . . . . . . . . 11 ⊢ (𝑦 ∈ 𝑧 → (𝑧 = 𝑦 → 𝑦 ∈ 𝑦))
56	55	adantl 277	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → (𝑧 = 𝑦 → 𝑦 ∈ 𝑦))
57	53, 56	mtod 664	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → ¬ 𝑧 = 𝑦)
58	57	neqned 2364	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → 𝑧 ≠ 𝑦)
59		fvunsng 5723	. . . . . . . 8 ⊢ ((𝑦 ∈ V ∧ 𝑧 ≠ 𝑦) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝑔‘𝑦))
60	21, 58, 59	sylancr 414	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝑔‘𝑦))
61		eloni 4387	. . . . . . . . . . . 12 ⊢ (𝑧 ∈ On → Ord 𝑧)
62	48, 61	syl 14	. . . . . . . . . . 11 ⊢ (𝜑 → Ord 𝑧)
63		ordelss 4391	. . . . . . . . . . 11 ⊢ ((Ord 𝑧 ∧ 𝑦 ∈ 𝑧) → 𝑦 ⊆ 𝑧)
64	62, 63	sylan 283	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → 𝑦 ⊆ 𝑧)
65		resabs1 4948	. . . . . . . . . 10 ⊢ (𝑦 ⊆ 𝑧 → (((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑧) ↾ 𝑦) = ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))
66	64, 65	syl 14	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → (((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑧) ↾ 𝑦) = ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))
67	18, 39	syl 14	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑔 Fn 𝑧)
68		ordirr 4553	. . . . . . . . . . . . 13 ⊢ (Ord 𝑧 → ¬ 𝑧 ∈ 𝑧)
69	62, 68	syl 14	. . . . . . . . . . . 12 ⊢ (𝜑 → ¬ 𝑧 ∈ 𝑧)
70		fsnunres 5731	. . . . . . . . . . . 12 ⊢ ((𝑔 Fn 𝑧 ∧ ¬ 𝑧 ∈ 𝑧) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑧) = 𝑔)
71	67, 69, 70	syl2anc 411	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑧) = 𝑔)
72	71	reseq1d 4918	. . . . . . . . . 10 ⊢ (𝜑 → (((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑧) ↾ 𝑦) = (𝑔 ↾ 𝑦))
73	72	adantr 276	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → (((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑧) ↾ 𝑦) = (𝑔 ↾ 𝑦))
74	66, 73	eqtr3d 2222	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦) = (𝑔 ↾ 𝑦))
75	74	fveq2d 5531	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)) = (𝐺‘(𝑔 ↾ 𝑦)))
76	46, 60, 75	3eqtr4d 2230	. . . . . 6 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))
77		feq2 5361	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑧 → (𝑓:𝑥⟶𝑆 ↔ 𝑓:𝑧⟶𝑆))
78	77	imbi1d 231	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑧 → ((𝑓:𝑥⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆) ↔ (𝑓:𝑧⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆)))
79	78	albidv 1834	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑧 → (∀𝑓(𝑓:𝑥⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆) ↔ ∀𝑓(𝑓:𝑧⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆)))
80	13	3expia 1206	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑋) → (𝑓:𝑥⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆))
81	80	alrimiv 1884	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑋) → ∀𝑓(𝑓:𝑥⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆))
82	81	ralrimiva 2560	. . . . . . . . . . 11 ⊢ (𝜑 → ∀𝑥 ∈ 𝑋 ∀𝑓(𝑓:𝑥⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆))
83	79, 82, 17	rspcdva 2858	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑓(𝑓:𝑧⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆))
84		feq1 5360	. . . . . . . . . . . 12 ⊢ (𝑓 = 𝑔 → (𝑓:𝑧⟶𝑆 ↔ 𝑔:𝑧⟶𝑆))
85		fveq2 5527	. . . . . . . . . . . . 13 ⊢ (𝑓 = 𝑔 → (𝐺‘𝑓) = (𝐺‘𝑔))
86	85	eleq1d 2256	. . . . . . . . . . . 12 ⊢ (𝑓 = 𝑔 → ((𝐺‘𝑓) ∈ 𝑆 ↔ (𝐺‘𝑔) ∈ 𝑆))
87	84, 86	imbi12d 234	. . . . . . . . . . 11 ⊢ (𝑓 = 𝑔 → ((𝑓:𝑧⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆) ↔ (𝑔:𝑧⟶𝑆 → (𝐺‘𝑔) ∈ 𝑆)))
88	87	spv 1870	. . . . . . . . . 10 ⊢ (∀𝑓(𝑓:𝑧⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆) → (𝑔:𝑧⟶𝑆 → (𝐺‘𝑔) ∈ 𝑆))
89	83, 18, 88	sylc 62	. . . . . . . . 9 ⊢ (𝜑 → (𝐺‘𝑔) ∈ 𝑆)
90		fndm 5327	. . . . . . . . . . 11 ⊢ (𝑔 Fn 𝑧 → dom 𝑔 = 𝑧)
91	67, 90	syl 14	. . . . . . . . . 10 ⊢ (𝜑 → dom 𝑔 = 𝑧)
92	69, 91	neleqtrrd 2286	. . . . . . . . 9 ⊢ (𝜑 → ¬ 𝑧 ∈ dom 𝑔)
93		fsnunfv 5730	. . . . . . . . 9 ⊢ ((𝑧 ∈ 𝑌 ∧ (𝐺‘𝑔) ∈ 𝑆 ∧ ¬ 𝑧 ∈ dom 𝑔) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑧) = (𝐺‘𝑔))
94	5, 89, 92, 93	syl3anc 1248	. . . . . . . 8 ⊢ (𝜑 → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑧) = (𝐺‘𝑔))
95	94	adantr 276	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 = 𝑧) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑧) = (𝐺‘𝑔))
96		simpr 110	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 = 𝑧) → 𝑦 = 𝑧)
97	96	fveq2d 5531	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 = 𝑧) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑧))
98		reseq2 4914	. . . . . . . . 9 ⊢ (𝑦 = 𝑧 → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦) = ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑧))
99	98, 71	sylan9eqr 2242	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 = 𝑧) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦) = 𝑔)
100	99	fveq2d 5531	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 = 𝑧) → (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)) = (𝐺‘𝑔))
101	95, 97, 100	3eqtr4d 2230	. . . . . 6 ⊢ ((𝜑 ∧ 𝑦 = 𝑧) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))
102	76, 101	jaodan 798	. . . . 5 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑧 ∨ 𝑦 = 𝑧)) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))
103	22, 102	sylan2b 287	. . . 4 ⊢ ((𝜑 ∧ 𝑦 ∈ suc 𝑧) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))
104	103	ralrimiva 2560	. . 3 ⊢ (𝜑 → ∀𝑦 ∈ suc 𝑧((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))
105		feq2 5361	. . . . . 6 ⊢ (𝑤 = suc 𝑧 → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑤⟶𝑆 ↔ (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):suc 𝑧⟶𝑆))
106		raleq 2683	. . . . . 6 ⊢ (𝑤 = suc 𝑧 → (∀𝑦 ∈ 𝑤 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)) ↔ ∀𝑦 ∈ suc 𝑧((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))))
107	105, 106	anbi12d 473	. . . . 5 ⊢ (𝑤 = suc 𝑧 → (((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑤⟶𝑆 ∧ ∀𝑦 ∈ 𝑤 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))) ↔ ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):suc 𝑧⟶𝑆 ∧ ∀𝑦 ∈ suc 𝑧((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))))
108	107	rspcev 2853	. . . 4 ⊢ ((suc 𝑧 ∈ 𝑋 ∧ ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):suc 𝑧⟶𝑆 ∧ ∀𝑦 ∈ suc 𝑧((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))) → ∃𝑤 ∈ 𝑋 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑤⟶𝑆 ∧ ∀𝑦 ∈ 𝑤 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))))
109		feq2 5361	. . . . . 6 ⊢ (𝑤 = 𝑥 → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑤⟶𝑆 ↔ (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑥⟶𝑆))
110		raleq 2683	. . . . . 6 ⊢ (𝑤 = 𝑥 → (∀𝑦 ∈ 𝑤 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)) ↔ ∀𝑦 ∈ 𝑥 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))))
111	109, 110	anbi12d 473	. . . . 5 ⊢ (𝑤 = 𝑥 → (((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑤⟶𝑆 ∧ ∀𝑦 ∈ 𝑤 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))) ↔ ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))))
112	111	cbvrexv 2716	. . . 4 ⊢ (∃𝑤 ∈ 𝑋 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑤⟶𝑆 ∧ ∀𝑦 ∈ 𝑤 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))) ↔ ∃𝑥 ∈ 𝑋 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))))
113	108, 112	sylib 122	. . 3 ⊢ ((suc 𝑧 ∈ 𝑋 ∧ ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):suc 𝑧⟶𝑆 ∧ ∀𝑦 ∈ suc 𝑧((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))) → ∃𝑥 ∈ 𝑋 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))))
114	9, 20, 104, 113	syl12anc 1246	. 2 ⊢ (𝜑 → ∃𝑥 ∈ 𝑋 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))))
115		vex 2752	. . . . . 6 ⊢ 𝑧 ∈ V
116		opexg 4240	. . . . . 6 ⊢ ((𝑧 ∈ V ∧ (𝐺‘𝑔) ∈ 𝑆) → ⟨𝑧, (𝐺‘𝑔)⟩ ∈ V)
117	115, 89, 116	sylancr 414	. . . . 5 ⊢ (𝜑 → ⟨𝑧, (𝐺‘𝑔)⟩ ∈ V)
118		snexg 4196	. . . . 5 ⊢ (⟨𝑧, (𝐺‘𝑔)⟩ ∈ V → {⟨𝑧, (𝐺‘𝑔)⟩} ∈ V)
119	117, 118	syl 14	. . . 4 ⊢ (𝜑 → {⟨𝑧, (𝐺‘𝑔)⟩} ∈ V)
120		unexg 4455	. . . 4 ⊢ ((𝑔 ∈ V ∧ {⟨𝑧, (𝐺‘𝑔)⟩} ∈ V) → (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ∈ V)
121	23, 119, 120	sylancr 414	. . 3 ⊢ (𝜑 → (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ∈ V)
122		feq1 5360	. . . . . 6 ⊢ (𝑓 = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) → (𝑓:𝑥⟶𝑆 ↔ (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑥⟶𝑆))
123		fveq1 5526	. . . . . . . 8 ⊢ (𝑓 = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) → (𝑓‘𝑦) = ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦))
124		reseq1 4913	. . . . . . . . 9 ⊢ (𝑓 = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) → (𝑓 ↾ 𝑦) = ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))
125	124	fveq2d 5531	. . . . . . . 8 ⊢ (𝑓 = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) → (𝐺‘(𝑓 ↾ 𝑦)) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))
126	123, 125	eqeq12d 2202	. . . . . . 7 ⊢ (𝑓 = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) → ((𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦)) ↔ ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))))
127	126	ralbidv 2487	. . . . . 6 ⊢ (𝑓 = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) → (∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦)) ↔ ∀𝑦 ∈ 𝑥 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))))
128	122, 127	anbi12d 473	. . . . 5 ⊢ (𝑓 = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) → ((𝑓:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦))) ↔ ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))))
129	128	rexbidv 2488	. . . 4 ⊢ (𝑓 = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) → (∃𝑥 ∈ 𝑋 (𝑓:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦))) ↔ ∃𝑥 ∈ 𝑋 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))))
130	129, 14	elab2g 2896	. . 3 ⊢ ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ∈ V → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ∈ 𝐴 ↔ ∃𝑥 ∈ 𝑋 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))))
131	121, 130	syl 14	. 2 ⊢ (𝜑 → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ∈ 𝐴 ↔ ∃𝑥 ∈ 𝑋 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))))
132	114, 131	mpbird 167	1 ⊢ (𝜑 → (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ∈ 𝐴)

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 104   ↔ wb 105   ∨ wo 709   ∧ w3a 979  ∀wal 1361   = wceq 1363   ∈ wcel 2158  {cab 2173   ≠ wne 2357  ∀wral 2465  ∃wrex 2466  Vcvv 2749   ∪ cun 3139   ⊆ wss 3141  {csn 3604  ⟨cop 3607  ∪ cuni 3821  Ord word 4374  Oncon0 4375  suc csuc 4377  dom cdm 4638   ↾ cres 4640  Fun wfun 5222   Fn wfn 5223  ⟶wf 5224  ‘cfv 5228  recscrecs 6318

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 615  ax-in2 616  ax-io 710  ax-5 1457  ax-7 1458  ax-gen 1459  ax-ie1 1503  ax-ie2 1504  ax-8 1514  ax-10 1515  ax-11 1516  ax-i12 1517  ax-bndl 1519  ax-4 1520  ax-17 1536  ax-i9 1540  ax-ial 1544  ax-i5r 1545  ax-13 2160  ax-14 2161  ax-ext 2169  ax-sep 4133  ax-pow 4186  ax-pr 4221  ax-un 4445  ax-setind 4548

This theorem depends on definitions:  df-bi 117  df-3an 981  df-tru 1366  df-fal 1369  df-nf 1471  df-sb 1773  df-eu 2039  df-mo 2040  df-clab 2174  df-cleq 2180  df-clel 2183  df-nfc 2318  df-ne 2358  df-ral 2470  df-rex 2471  df-v 2751  df-sbc 2975  df-dif 3143  df-un 3145  df-in 3147  df-ss 3154  df-nul 3435  df-pw 3589  df-sn 3610  df-pr 3611  df-op 3613  df-uni 3822  df-br 4016  df-opab 4077  df-tr 4114  df-id 4305  df-iord 4378  df-on 4380  df-suc 4383  df-xp 4644  df-rel 4645  df-cnv 4646  df-co 4647  df-dm 4648  df-rn 4649  df-res 4650  df-iota 5190  df-fun 5230  df-fn 5231  df-f 5232  df-f1 5233  df-fo 5234  df-f1o 5235  df-fv 5236

This theorem is referenced by:  tfrcllembacc  6369  tfrcllemres  6376