Theorem tfrcllemsucaccv 6409

Description: Lemma for tfrcl 6419. 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 4434	. . . . 5 ⊢ (𝑥 = 𝑧 → suc 𝑥 = suc 𝑧)
2	1	eleq1d 2262	. . . 4 ⊢ (𝑥 = 𝑧 → (suc 𝑥 ∈ 𝑋 ↔ suc 𝑧 ∈ 𝑋))
3		tfrcllemsucaccv.u	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ ∪ 𝑋) → suc 𝑥 ∈ 𝑋)
4	3	ralrimiva 2567	. . . 4 ⊢ (𝜑 → ∀𝑥 ∈ ∪ 𝑋 suc 𝑥 ∈ 𝑋)
5		tfrcllemsucaccv.zy	. . . . 5 ⊢ (𝜑 → 𝑧 ∈ 𝑌)
6		tfrcllemsucaccv.yx	. . . . 5 ⊢ (𝜑 → 𝑌 ∈ 𝑋)
7		elunii 3841	. . . . 5 ⊢ ((𝑧 ∈ 𝑌 ∧ 𝑌 ∈ 𝑋) → 𝑧 ∈ ∪ 𝑋)
8	5, 6, 7	syl2anc 411	. . . 4 ⊢ (𝜑 → 𝑧 ∈ ∪ 𝑋)
9	2, 4, 8	rspcdva 2870	. . 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 4420	. . . . 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 6408	. . 3 ⊢ (𝜑 → (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):suc 𝑧⟶𝑆)
21		vex 2763	. . . . . 6 ⊢ 𝑦 ∈ V
22	21	elsuc 4438	. . . . 5 ⊢ (𝑦 ∈ suc 𝑧 ↔ (𝑦 ∈ 𝑧 ∨ 𝑦 = 𝑧))
23		vex 2763	. . . . . . . . . . 11 ⊢ 𝑔 ∈ V
24		feq1 5387	. . . . . . . . . . . . 13 ⊢ (𝑓 = 𝑔 → (𝑓:𝑥⟶𝑆 ↔ 𝑔:𝑥⟶𝑆))
25		fveq1 5554	. . . . . . . . . . . . . . 15 ⊢ (𝑓 = 𝑔 → (𝑓‘𝑦) = (𝑔‘𝑦))
26		reseq1 4937	. . . . . . . . . . . . . . . 16 ⊢ (𝑓 = 𝑔 → (𝑓 ↾ 𝑦) = (𝑔 ↾ 𝑦))
27	26	fveq2d 5559	. . . . . . . . . . . . . . 15 ⊢ (𝑓 = 𝑔 → (𝐺‘(𝑓 ↾ 𝑦)) = (𝐺‘(𝑔 ↾ 𝑦)))
28	25, 27	eqeq12d 2208	. . . . . . . . . . . . . 14 ⊢ (𝑓 = 𝑔 → ((𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦)) ↔ (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))
29	28	ralbidv 2494	. . . . . . . . . . . . 13 ⊢ (𝑓 = 𝑔 → (∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦)) ↔ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))
30	24, 29	anbi12d 473	. . . . . . . . . . . 12 ⊢ (𝑓 = 𝑔 → ((𝑓:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦))) ↔ (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))))
31	30	rexbidv 2495	. . . . . . . . . . 11 ⊢ (𝑓 = 𝑔 → (∃𝑥 ∈ 𝑋 (𝑓:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦))) ↔ ∃𝑥 ∈ 𝑋 (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))))
32	23, 31, 14	elab2 2909	. . . . . . . . . 10 ⊢ (𝑔 ∈ 𝐴 ↔ ∃𝑥 ∈ 𝑋 (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))
33	19, 32	sylib 122	. . . . . . . . 9 ⊢ (𝜑 → ∃𝑥 ∈ 𝑋 (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))
34		simprrr 540	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))) → ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))
35		simprrl 539	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))) → 𝑔:𝑥⟶𝑆)
36		ffn 5404	. . . . . . . . . . . . 13 ⊢ (𝑔:𝑥⟶𝑆 → 𝑔 Fn 𝑥)
37	35, 36	syl 14	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))) → 𝑔 Fn 𝑥)
38	18	adantr 276	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))) → 𝑔:𝑧⟶𝑆)
39		ffn 5404	. . . . . . . . . . . . 13 ⊢ (𝑔:𝑧⟶𝑆 → 𝑔 Fn 𝑧)
40	38, 39	syl 14	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))) → 𝑔 Fn 𝑧)
41		fndmu 5356	. . . . . . . . . . . 12 ⊢ ((𝑔 Fn 𝑥 ∧ 𝑔 Fn 𝑧) → 𝑥 = 𝑧)
42	37, 40, 41	syl2anc 411	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))) → 𝑥 = 𝑧)
43	42	raleqdv 2696	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))) → (∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)) ↔ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))
44	34, 43	mpbid 147	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))) → ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))
45	33, 44	rexlimddv 2616	. . . . . . . 8 ⊢ (𝜑 → ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))
46	45	r19.21bi 2582	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))
47		ordelon 4415	. . . . . . . . . . . . 13 ⊢ ((Ord 𝑋 ∧ 𝑧 ∈ 𝑋) → 𝑧 ∈ On)
48	12, 17, 47	syl2anc 411	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑧 ∈ On)
49		onelon 4416	. . . . . . . . . . . 12 ⊢ ((𝑧 ∈ On ∧ 𝑦 ∈ 𝑧) → 𝑦 ∈ On)
50	48, 49	sylan 283	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → 𝑦 ∈ On)
51		eloni 4407	. . . . . . . . . . 11 ⊢ (𝑦 ∈ On → Ord 𝑦)
52		ordirr 4575	. . . . . . . . . . 11 ⊢ (Ord 𝑦 → ¬ 𝑦 ∈ 𝑦)
53	50, 51, 52	3syl 17	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → ¬ 𝑦 ∈ 𝑦)
54		elequ2 2169	. . . . . . . . . . . 12 ⊢ (𝑧 = 𝑦 → (𝑦 ∈ 𝑧 ↔ 𝑦 ∈ 𝑦))
55	54	biimpcd 159	. . . . . . . . . . 11 ⊢ (𝑦 ∈ 𝑧 → (𝑧 = 𝑦 → 𝑦 ∈ 𝑦))
56	55	adantl 277	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → (𝑧 = 𝑦 → 𝑦 ∈ 𝑦))
57	53, 56	mtod 664	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → ¬ 𝑧 = 𝑦)
58	57	neqned 2371	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → 𝑧 ≠ 𝑦)
59		fvunsng 5753	. . . . . . . 8 ⊢ ((𝑦 ∈ V ∧ 𝑧 ≠ 𝑦) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝑔‘𝑦))
60	21, 58, 59	sylancr 414	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝑔‘𝑦))
61		eloni 4407	. . . . . . . . . . . 12 ⊢ (𝑧 ∈ On → Ord 𝑧)
62	48, 61	syl 14	. . . . . . . . . . 11 ⊢ (𝜑 → Ord 𝑧)
63		ordelss 4411	. . . . . . . . . . 11 ⊢ ((Ord 𝑧 ∧ 𝑦 ∈ 𝑧) → 𝑦 ⊆ 𝑧)
64	62, 63	sylan 283	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → 𝑦 ⊆ 𝑧)
65		resabs1 4972	. . . . . . . . . 10 ⊢ (𝑦 ⊆ 𝑧 → (((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑧) ↾ 𝑦) = ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))
66	64, 65	syl 14	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → (((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑧) ↾ 𝑦) = ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))
67	18, 39	syl 14	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑔 Fn 𝑧)
68		ordirr 4575	. . . . . . . . . . . . 13 ⊢ (Ord 𝑧 → ¬ 𝑧 ∈ 𝑧)
69	62, 68	syl 14	. . . . . . . . . . . 12 ⊢ (𝜑 → ¬ 𝑧 ∈ 𝑧)
70		fsnunres 5761	. . . . . . . . . . . 12 ⊢ ((𝑔 Fn 𝑧 ∧ ¬ 𝑧 ∈ 𝑧) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑧) = 𝑔)
71	67, 69, 70	syl2anc 411	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑧) = 𝑔)
72	71	reseq1d 4942	. . . . . . . . . 10 ⊢ (𝜑 → (((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑧) ↾ 𝑦) = (𝑔 ↾ 𝑦))
73	72	adantr 276	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → (((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑧) ↾ 𝑦) = (𝑔 ↾ 𝑦))
74	66, 73	eqtr3d 2228	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦) = (𝑔 ↾ 𝑦))
75	74	fveq2d 5559	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)) = (𝐺‘(𝑔 ↾ 𝑦)))
76	46, 60, 75	3eqtr4d 2236	. . . . . 6 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))
77		feq2 5388	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑧 → (𝑓:𝑥⟶𝑆 ↔ 𝑓:𝑧⟶𝑆))
78	77	imbi1d 231	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑧 → ((𝑓:𝑥⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆) ↔ (𝑓:𝑧⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆)))
79	78	albidv 1835	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑧 → (∀𝑓(𝑓:𝑥⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆) ↔ ∀𝑓(𝑓:𝑧⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆)))
80	13	3expia 1207	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑋) → (𝑓:𝑥⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆))
81	80	alrimiv 1885	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑋) → ∀𝑓(𝑓:𝑥⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆))
82	81	ralrimiva 2567	. . . . . . . . . . 11 ⊢ (𝜑 → ∀𝑥 ∈ 𝑋 ∀𝑓(𝑓:𝑥⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆))
83	79, 82, 17	rspcdva 2870	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑓(𝑓:𝑧⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆))
84		feq1 5387	. . . . . . . . . . . 12 ⊢ (𝑓 = 𝑔 → (𝑓:𝑧⟶𝑆 ↔ 𝑔:𝑧⟶𝑆))
85		fveq2 5555	. . . . . . . . . . . . 13 ⊢ (𝑓 = 𝑔 → (𝐺‘𝑓) = (𝐺‘𝑔))
86	85	eleq1d 2262	. . . . . . . . . . . 12 ⊢ (𝑓 = 𝑔 → ((𝐺‘𝑓) ∈ 𝑆 ↔ (𝐺‘𝑔) ∈ 𝑆))
87	84, 86	imbi12d 234	. . . . . . . . . . 11 ⊢ (𝑓 = 𝑔 → ((𝑓:𝑧⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆) ↔ (𝑔:𝑧⟶𝑆 → (𝐺‘𝑔) ∈ 𝑆)))
88	87	spv 1871	. . . . . . . . . 10 ⊢ (∀𝑓(𝑓:𝑧⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆) → (𝑔:𝑧⟶𝑆 → (𝐺‘𝑔) ∈ 𝑆))
89	83, 18, 88	sylc 62	. . . . . . . . 9 ⊢ (𝜑 → (𝐺‘𝑔) ∈ 𝑆)
90		fndm 5354	. . . . . . . . . . 11 ⊢ (𝑔 Fn 𝑧 → dom 𝑔 = 𝑧)
91	67, 90	syl 14	. . . . . . . . . 10 ⊢ (𝜑 → dom 𝑔 = 𝑧)
92	69, 91	neleqtrrd 2292	. . . . . . . . 9 ⊢ (𝜑 → ¬ 𝑧 ∈ dom 𝑔)
93		fsnunfv 5760	. . . . . . . . 9 ⊢ ((𝑧 ∈ 𝑌 ∧ (𝐺‘𝑔) ∈ 𝑆 ∧ ¬ 𝑧 ∈ dom 𝑔) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑧) = (𝐺‘𝑔))
94	5, 89, 92, 93	syl3anc 1249	. . . . . . . 8 ⊢ (𝜑 → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑧) = (𝐺‘𝑔))
95	94	adantr 276	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 = 𝑧) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑧) = (𝐺‘𝑔))
96		simpr 110	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 = 𝑧) → 𝑦 = 𝑧)
97	96	fveq2d 5559	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 = 𝑧) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑧))
98		reseq2 4938	. . . . . . . . 9 ⊢ (𝑦 = 𝑧 → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦) = ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑧))
99	98, 71	sylan9eqr 2248	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 = 𝑧) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦) = 𝑔)
100	99	fveq2d 5559	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 = 𝑧) → (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)) = (𝐺‘𝑔))
101	95, 97, 100	3eqtr4d 2236	. . . . . 6 ⊢ ((𝜑 ∧ 𝑦 = 𝑧) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))
102	76, 101	jaodan 798	. . . . 5 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑧 ∨ 𝑦 = 𝑧)) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))
103	22, 102	sylan2b 287	. . . 4 ⊢ ((𝜑 ∧ 𝑦 ∈ suc 𝑧) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))
104	103	ralrimiva 2567	. . 3 ⊢ (𝜑 → ∀𝑦 ∈ suc 𝑧((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))
105		feq2 5388	. . . . . 6 ⊢ (𝑤 = suc 𝑧 → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑤⟶𝑆 ↔ (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):suc 𝑧⟶𝑆))
106		raleq 2690	. . . . . 6 ⊢ (𝑤 = suc 𝑧 → (∀𝑦 ∈ 𝑤 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)) ↔ ∀𝑦 ∈ suc 𝑧((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))))
107	105, 106	anbi12d 473	. . . . 5 ⊢ (𝑤 = suc 𝑧 → (((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑤⟶𝑆 ∧ ∀𝑦 ∈ 𝑤 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))) ↔ ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):suc 𝑧⟶𝑆 ∧ ∀𝑦 ∈ suc 𝑧((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))))
108	107	rspcev 2865	. . . 4 ⊢ ((suc 𝑧 ∈ 𝑋 ∧ ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):suc 𝑧⟶𝑆 ∧ ∀𝑦 ∈ suc 𝑧((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))) → ∃𝑤 ∈ 𝑋 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑤⟶𝑆 ∧ ∀𝑦 ∈ 𝑤 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))))
109		feq2 5388	. . . . . 6 ⊢ (𝑤 = 𝑥 → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑤⟶𝑆 ↔ (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑥⟶𝑆))
110		raleq 2690	. . . . . 6 ⊢ (𝑤 = 𝑥 → (∀𝑦 ∈ 𝑤 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)) ↔ ∀𝑦 ∈ 𝑥 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))))
111	109, 110	anbi12d 473	. . . . 5 ⊢ (𝑤 = 𝑥 → (((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑤⟶𝑆 ∧ ∀𝑦 ∈ 𝑤 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))) ↔ ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))))
112	111	cbvrexv 2727	. . . 4 ⊢ (∃𝑤 ∈ 𝑋 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑤⟶𝑆 ∧ ∀𝑦 ∈ 𝑤 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))) ↔ ∃𝑥 ∈ 𝑋 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))))
113	108, 112	sylib 122	. . 3 ⊢ ((suc 𝑧 ∈ 𝑋 ∧ ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):suc 𝑧⟶𝑆 ∧ ∀𝑦 ∈ suc 𝑧((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))) → ∃𝑥 ∈ 𝑋 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))))
114	9, 20, 104, 113	syl12anc 1247	. 2 ⊢ (𝜑 → ∃𝑥 ∈ 𝑋 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))))
115		vex 2763	. . . . . 6 ⊢ 𝑧 ∈ V
116		opexg 4258	. . . . . 6 ⊢ ((𝑧 ∈ V ∧ (𝐺‘𝑔) ∈ 𝑆) → ⟨𝑧, (𝐺‘𝑔)⟩ ∈ V)
117	115, 89, 116	sylancr 414	. . . . 5 ⊢ (𝜑 → ⟨𝑧, (𝐺‘𝑔)⟩ ∈ V)
118		snexg 4214	. . . . 5 ⊢ (⟨𝑧, (𝐺‘𝑔)⟩ ∈ V → {⟨𝑧, (𝐺‘𝑔)⟩} ∈ V)
119	117, 118	syl 14	. . . 4 ⊢ (𝜑 → {⟨𝑧, (𝐺‘𝑔)⟩} ∈ V)
120		unexg 4475	. . . 4 ⊢ ((𝑔 ∈ V ∧ {⟨𝑧, (𝐺‘𝑔)⟩} ∈ V) → (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ∈ V)
121	23, 119, 120	sylancr 414	. . 3 ⊢ (𝜑 → (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ∈ V)
122		feq1 5387	. . . . . 6 ⊢ (𝑓 = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) → (𝑓:𝑥⟶𝑆 ↔ (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑥⟶𝑆))
123		fveq1 5554	. . . . . . . 8 ⊢ (𝑓 = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) → (𝑓‘𝑦) = ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦))
124		reseq1 4937	. . . . . . . . 9 ⊢ (𝑓 = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) → (𝑓 ↾ 𝑦) = ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))
125	124	fveq2d 5559	. . . . . . . 8 ⊢ (𝑓 = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) → (𝐺‘(𝑓 ↾ 𝑦)) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))
126	123, 125	eqeq12d 2208	. . . . . . 7 ⊢ (𝑓 = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) → ((𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦)) ↔ ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))))
127	126	ralbidv 2494	. . . . . 6 ⊢ (𝑓 = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) → (∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦)) ↔ ∀𝑦 ∈ 𝑥 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))))
128	122, 127	anbi12d 473	. . . . 5 ⊢ (𝑓 = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) → ((𝑓:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦))) ↔ ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))))
129	128	rexbidv 2495	. . . 4 ⊢ (𝑓 = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) → (∃𝑥 ∈ 𝑋 (𝑓:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦))) ↔ ∃𝑥 ∈ 𝑋 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))))
130	129, 14	elab2g 2908	. . 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 980  ∀wal 1362   = wceq 1364   ∈ wcel 2164  {cab 2179   ≠ wne 2364  ∀wral 2472  ∃wrex 2473  Vcvv 2760   ∪ cun 3152   ⊆ wss 3154  {csn 3619  ⟨cop 3622  ∪ cuni 3836  Ord word 4394  Oncon0 4395  suc csuc 4397  dom cdm 4660   ↾ cres 4662  Fun wfun 5249   Fn wfn 5250  ⟶wf 5251  ‘cfv 5255  recscrecs 6359

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 1458  ax-7 1459  ax-gen 1460  ax-ie1 1504  ax-ie2 1505  ax-8 1515  ax-10 1516  ax-11 1517  ax-i12 1518  ax-bndl 1520  ax-4 1521  ax-17 1537  ax-i9 1541  ax-ial 1545  ax-i5r 1546  ax-13 2166  ax-14 2167  ax-ext 2175  ax-sep 4148  ax-pow 4204  ax-pr 4239  ax-un 4465  ax-setind 4570

This theorem depends on definitions:  df-bi 117  df-3an 982  df-tru 1367  df-fal 1370  df-nf 1472  df-sb 1774  df-eu 2045  df-mo 2046  df-clab 2180  df-cleq 2186  df-clel 2189  df-nfc 2325  df-ne 2365  df-ral 2477  df-rex 2478  df-v 2762  df-sbc 2987  df-dif 3156  df-un 3158  df-in 3160  df-ss 3167  df-nul 3448  df-pw 3604  df-sn 3625  df-pr 3626  df-op 3628  df-uni 3837  df-br 4031  df-opab 4092  df-tr 4129  df-id 4325  df-iord 4398  df-on 4400  df-suc 4403  df-xp 4666  df-rel 4667  df-cnv 4668  df-co 4669  df-dm 4670  df-rn 4671  df-res 4672  df-iota 5216  df-fun 5257  df-fn 5258  df-f 5259  df-f1 5260  df-fo 5261  df-f1o 5262  df-fv 5263

This theorem is referenced by:  tfrcllembacc  6410  tfrcllemres  6417