Theorem tfrcllemsucaccv 6259

Description: Lemma for tfrcl 6269. 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 4332	. . . . 5 ⊢ (𝑥 = 𝑧 → suc 𝑥 = suc 𝑧)
2	1	eleq1d 2209	. . . 4 ⊢ (𝑥 = 𝑧 → (suc 𝑥 ∈ 𝑋 ↔ suc 𝑧 ∈ 𝑋))
3		tfrcllemsucaccv.u	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ ∪ 𝑋) → suc 𝑥 ∈ 𝑋)
4	3	ralrimiva 2508	. . . 4 ⊢ (𝜑 → ∀𝑥 ∈ ∪ 𝑋 suc 𝑥 ∈ 𝑋)
5		tfrcllemsucaccv.zy	. . . . 5 ⊢ (𝜑 → 𝑧 ∈ 𝑌)
6		tfrcllemsucaccv.yx	. . . . 5 ⊢ (𝜑 → 𝑌 ∈ 𝑋)
7		elunii 3749	. . . . 5 ⊢ ((𝑧 ∈ 𝑌 ∧ 𝑌 ∈ 𝑋) → 𝑧 ∈ ∪ 𝑋)
8	5, 6, 7	syl2anc 409	. . . 4 ⊢ (𝜑 → 𝑧 ∈ ∪ 𝑋)
9	2, 4, 8	rspcdva 2798	. . 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 304	. . . . 5 ⊢ (𝜑 → (𝑧 ∈ 𝑌 ∧ 𝑌 ∈ 𝑋))
16		ordtr1 4318	. . . . 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 6258	. . 3 ⊢ (𝜑 → (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):suc 𝑧⟶𝑆)
21		vex 2692	. . . . . 6 ⊢ 𝑦 ∈ V
22	21	elsuc 4336	. . . . 5 ⊢ (𝑦 ∈ suc 𝑧 ↔ (𝑦 ∈ 𝑧 ∨ 𝑦 = 𝑧))
23		vex 2692	. . . . . . . . . . 11 ⊢ 𝑔 ∈ V
24		feq1 5263	. . . . . . . . . . . . 13 ⊢ (𝑓 = 𝑔 → (𝑓:𝑥⟶𝑆 ↔ 𝑔:𝑥⟶𝑆))
25		fveq1 5428	. . . . . . . . . . . . . . 15 ⊢ (𝑓 = 𝑔 → (𝑓‘𝑦) = (𝑔‘𝑦))
26		reseq1 4821	. . . . . . . . . . . . . . . 16 ⊢ (𝑓 = 𝑔 → (𝑓 ↾ 𝑦) = (𝑔 ↾ 𝑦))
27	26	fveq2d 5433	. . . . . . . . . . . . . . 15 ⊢ (𝑓 = 𝑔 → (𝐺‘(𝑓 ↾ 𝑦)) = (𝐺‘(𝑔 ↾ 𝑦)))
28	25, 27	eqeq12d 2155	. . . . . . . . . . . . . 14 ⊢ (𝑓 = 𝑔 → ((𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦)) ↔ (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))
29	28	ralbidv 2438	. . . . . . . . . . . . 13 ⊢ (𝑓 = 𝑔 → (∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦)) ↔ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))
30	24, 29	anbi12d 465	. . . . . . . . . . . 12 ⊢ (𝑓 = 𝑔 → ((𝑓:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦))) ↔ (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))))
31	30	rexbidv 2439	. . . . . . . . . . 11 ⊢ (𝑓 = 𝑔 → (∃𝑥 ∈ 𝑋 (𝑓:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦))) ↔ ∃𝑥 ∈ 𝑋 (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))))
32	23, 31, 14	elab2 2836	. . . . . . . . . 10 ⊢ (𝑔 ∈ 𝐴 ↔ ∃𝑥 ∈ 𝑋 (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))
33	19, 32	sylib 121	. . . . . . . . 9 ⊢ (𝜑 → ∃𝑥 ∈ 𝑋 (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))
34		simprrr 530	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))) → ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))
35		simprrl 529	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))) → 𝑔:𝑥⟶𝑆)
36		ffn 5280	. . . . . . . . . . . . 13 ⊢ (𝑔:𝑥⟶𝑆 → 𝑔 Fn 𝑥)
37	35, 36	syl 14	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))) → 𝑔 Fn 𝑥)
38	18	adantr 274	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))) → 𝑔:𝑧⟶𝑆)
39		ffn 5280	. . . . . . . . . . . . 13 ⊢ (𝑔:𝑧⟶𝑆 → 𝑔 Fn 𝑧)
40	38, 39	syl 14	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))) → 𝑔 Fn 𝑧)
41		fndmu 5232	. . . . . . . . . . . 12 ⊢ ((𝑔 Fn 𝑥 ∧ 𝑔 Fn 𝑧) → 𝑥 = 𝑧)
42	37, 40, 41	syl2anc 409	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))) → 𝑥 = 𝑧)
43	42	raleqdv 2635	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))) → (∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)) ↔ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))
44	34, 43	mpbid 146	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))) → ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))
45	33, 44	rexlimddv 2557	. . . . . . . 8 ⊢ (𝜑 → ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))
46	45	r19.21bi 2523	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))
47		ordelon 4313	. . . . . . . . . . . . 13 ⊢ ((Ord 𝑋 ∧ 𝑧 ∈ 𝑋) → 𝑧 ∈ On)
48	12, 17, 47	syl2anc 409	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑧 ∈ On)
49		onelon 4314	. . . . . . . . . . . 12 ⊢ ((𝑧 ∈ On ∧ 𝑦 ∈ 𝑧) → 𝑦 ∈ On)
50	48, 49	sylan 281	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → 𝑦 ∈ On)
51		eloni 4305	. . . . . . . . . . 11 ⊢ (𝑦 ∈ On → Ord 𝑦)
52		ordirr 4465	. . . . . . . . . . 11 ⊢ (Ord 𝑦 → ¬ 𝑦 ∈ 𝑦)
53	50, 51, 52	3syl 17	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → ¬ 𝑦 ∈ 𝑦)
54		elequ2 1692	. . . . . . . . . . . 12 ⊢ (𝑧 = 𝑦 → (𝑦 ∈ 𝑧 ↔ 𝑦 ∈ 𝑦))
55	54	biimpcd 158	. . . . . . . . . . 11 ⊢ (𝑦 ∈ 𝑧 → (𝑧 = 𝑦 → 𝑦 ∈ 𝑦))
56	55	adantl 275	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → (𝑧 = 𝑦 → 𝑦 ∈ 𝑦))
57	53, 56	mtod 653	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → ¬ 𝑧 = 𝑦)
58	57	neqned 2316	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → 𝑧 ≠ 𝑦)
59		fvunsng 5622	. . . . . . . 8 ⊢ ((𝑦 ∈ V ∧ 𝑧 ≠ 𝑦) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝑔‘𝑦))
60	21, 58, 59	sylancr 411	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝑔‘𝑦))
61		eloni 4305	. . . . . . . . . . . 12 ⊢ (𝑧 ∈ On → Ord 𝑧)
62	48, 61	syl 14	. . . . . . . . . . 11 ⊢ (𝜑 → Ord 𝑧)
63		ordelss 4309	. . . . . . . . . . 11 ⊢ ((Ord 𝑧 ∧ 𝑦 ∈ 𝑧) → 𝑦 ⊆ 𝑧)
64	62, 63	sylan 281	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → 𝑦 ⊆ 𝑧)
65		resabs1 4856	. . . . . . . . . 10 ⊢ (𝑦 ⊆ 𝑧 → (((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑧) ↾ 𝑦) = ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))
66	64, 65	syl 14	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → (((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑧) ↾ 𝑦) = ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))
67	18, 39	syl 14	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑔 Fn 𝑧)
68		ordirr 4465	. . . . . . . . . . . . 13 ⊢ (Ord 𝑧 → ¬ 𝑧 ∈ 𝑧)
69	62, 68	syl 14	. . . . . . . . . . . 12 ⊢ (𝜑 → ¬ 𝑧 ∈ 𝑧)
70		fsnunres 5630	. . . . . . . . . . . 12 ⊢ ((𝑔 Fn 𝑧 ∧ ¬ 𝑧 ∈ 𝑧) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑧) = 𝑔)
71	67, 69, 70	syl2anc 409	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑧) = 𝑔)
72	71	reseq1d 4826	. . . . . . . . . 10 ⊢ (𝜑 → (((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑧) ↾ 𝑦) = (𝑔 ↾ 𝑦))
73	72	adantr 274	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → (((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑧) ↾ 𝑦) = (𝑔 ↾ 𝑦))
74	66, 73	eqtr3d 2175	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦) = (𝑔 ↾ 𝑦))
75	74	fveq2d 5433	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)) = (𝐺‘(𝑔 ↾ 𝑦)))
76	46, 60, 75	3eqtr4d 2183	. . . . . 6 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑧) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))
77		feq2 5264	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑧 → (𝑓:𝑥⟶𝑆 ↔ 𝑓:𝑧⟶𝑆))
78	77	imbi1d 230	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑧 → ((𝑓:𝑥⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆) ↔ (𝑓:𝑧⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆)))
79	78	albidv 1797	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑧 → (∀𝑓(𝑓:𝑥⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆) ↔ ∀𝑓(𝑓:𝑧⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆)))
80	13	3expia 1184	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑋) → (𝑓:𝑥⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆))
81	80	alrimiv 1847	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑋) → ∀𝑓(𝑓:𝑥⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆))
82	81	ralrimiva 2508	. . . . . . . . . . 11 ⊢ (𝜑 → ∀𝑥 ∈ 𝑋 ∀𝑓(𝑓:𝑥⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆))
83	79, 82, 17	rspcdva 2798	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑓(𝑓:𝑧⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆))
84		feq1 5263	. . . . . . . . . . . 12 ⊢ (𝑓 = 𝑔 → (𝑓:𝑧⟶𝑆 ↔ 𝑔:𝑧⟶𝑆))
85		fveq2 5429	. . . . . . . . . . . . 13 ⊢ (𝑓 = 𝑔 → (𝐺‘𝑓) = (𝐺‘𝑔))
86	85	eleq1d 2209	. . . . . . . . . . . 12 ⊢ (𝑓 = 𝑔 → ((𝐺‘𝑓) ∈ 𝑆 ↔ (𝐺‘𝑔) ∈ 𝑆))
87	84, 86	imbi12d 233	. . . . . . . . . . 11 ⊢ (𝑓 = 𝑔 → ((𝑓:𝑧⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆) ↔ (𝑔:𝑧⟶𝑆 → (𝐺‘𝑔) ∈ 𝑆)))
88	87	spv 1833	. . . . . . . . . 10 ⊢ (∀𝑓(𝑓:𝑧⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆) → (𝑔:𝑧⟶𝑆 → (𝐺‘𝑔) ∈ 𝑆))
89	83, 18, 88	sylc 62	. . . . . . . . 9 ⊢ (𝜑 → (𝐺‘𝑔) ∈ 𝑆)
90		fndm 5230	. . . . . . . . . . 11 ⊢ (𝑔 Fn 𝑧 → dom 𝑔 = 𝑧)
91	67, 90	syl 14	. . . . . . . . . 10 ⊢ (𝜑 → dom 𝑔 = 𝑧)
92	69, 91	neleqtrrd 2239	. . . . . . . . 9 ⊢ (𝜑 → ¬ 𝑧 ∈ dom 𝑔)
93		fsnunfv 5629	. . . . . . . . 9 ⊢ ((𝑧 ∈ 𝑌 ∧ (𝐺‘𝑔) ∈ 𝑆 ∧ ¬ 𝑧 ∈ dom 𝑔) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑧) = (𝐺‘𝑔))
94	5, 89, 92, 93	syl3anc 1217	. . . . . . . 8 ⊢ (𝜑 → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑧) = (𝐺‘𝑔))
95	94	adantr 274	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 = 𝑧) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑧) = (𝐺‘𝑔))
96		simpr 109	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 = 𝑧) → 𝑦 = 𝑧)
97	96	fveq2d 5433	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 = 𝑧) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑧))
98		reseq2 4822	. . . . . . . . 9 ⊢ (𝑦 = 𝑧 → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦) = ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑧))
99	98, 71	sylan9eqr 2195	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 = 𝑧) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦) = 𝑔)
100	99	fveq2d 5433	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 = 𝑧) → (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)) = (𝐺‘𝑔))
101	95, 97, 100	3eqtr4d 2183	. . . . . 6 ⊢ ((𝜑 ∧ 𝑦 = 𝑧) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))
102	76, 101	jaodan 787	. . . . 5 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑧 ∨ 𝑦 = 𝑧)) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))
103	22, 102	sylan2b 285	. . . 4 ⊢ ((𝜑 ∧ 𝑦 ∈ suc 𝑧) → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))
104	103	ralrimiva 2508	. . 3 ⊢ (𝜑 → ∀𝑦 ∈ suc 𝑧((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))
105		feq2 5264	. . . . . 6 ⊢ (𝑤 = suc 𝑧 → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑤⟶𝑆 ↔ (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):suc 𝑧⟶𝑆))
106		raleq 2629	. . . . . 6 ⊢ (𝑤 = suc 𝑧 → (∀𝑦 ∈ 𝑤 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)) ↔ ∀𝑦 ∈ suc 𝑧((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))))
107	105, 106	anbi12d 465	. . . . 5 ⊢ (𝑤 = suc 𝑧 → (((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑤⟶𝑆 ∧ ∀𝑦 ∈ 𝑤 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))) ↔ ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):suc 𝑧⟶𝑆 ∧ ∀𝑦 ∈ suc 𝑧((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))))
108	107	rspcev 2793	. . . 4 ⊢ ((suc 𝑧 ∈ 𝑋 ∧ ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):suc 𝑧⟶𝑆 ∧ ∀𝑦 ∈ suc 𝑧((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))) → ∃𝑤 ∈ 𝑋 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑤⟶𝑆 ∧ ∀𝑦 ∈ 𝑤 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))))
109		feq2 5264	. . . . . 6 ⊢ (𝑤 = 𝑥 → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑤⟶𝑆 ↔ (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑥⟶𝑆))
110		raleq 2629	. . . . . 6 ⊢ (𝑤 = 𝑥 → (∀𝑦 ∈ 𝑤 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)) ↔ ∀𝑦 ∈ 𝑥 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))))
111	109, 110	anbi12d 465	. . . . 5 ⊢ (𝑤 = 𝑥 → (((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑤⟶𝑆 ∧ ∀𝑦 ∈ 𝑤 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))) ↔ ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))))
112	111	cbvrexv 2658	. . . 4 ⊢ (∃𝑤 ∈ 𝑋 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑤⟶𝑆 ∧ ∀𝑦 ∈ 𝑤 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))) ↔ ∃𝑥 ∈ 𝑋 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))))
113	108, 112	sylib 121	. . 3 ⊢ ((suc 𝑧 ∈ 𝑋 ∧ ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):suc 𝑧⟶𝑆 ∧ ∀𝑦 ∈ suc 𝑧((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))) → ∃𝑥 ∈ 𝑋 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))))
114	9, 20, 104, 113	syl12anc 1215	. 2 ⊢ (𝜑 → ∃𝑥 ∈ 𝑋 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))))
115		vex 2692	. . . . . 6 ⊢ 𝑧 ∈ V
116		opexg 4158	. . . . . 6 ⊢ ((𝑧 ∈ V ∧ (𝐺‘𝑔) ∈ 𝑆) → ⟨𝑧, (𝐺‘𝑔)⟩ ∈ V)
117	115, 89, 116	sylancr 411	. . . . 5 ⊢ (𝜑 → ⟨𝑧, (𝐺‘𝑔)⟩ ∈ V)
118		snexg 4116	. . . . 5 ⊢ (⟨𝑧, (𝐺‘𝑔)⟩ ∈ V → {⟨𝑧, (𝐺‘𝑔)⟩} ∈ V)
119	117, 118	syl 14	. . . 4 ⊢ (𝜑 → {⟨𝑧, (𝐺‘𝑔)⟩} ∈ V)
120		unexg 4372	. . . 4 ⊢ ((𝑔 ∈ V ∧ {⟨𝑧, (𝐺‘𝑔)⟩} ∈ V) → (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ∈ V)
121	23, 119, 120	sylancr 411	. . 3 ⊢ (𝜑 → (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ∈ V)
122		feq1 5263	. . . . . 6 ⊢ (𝑓 = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) → (𝑓:𝑥⟶𝑆 ↔ (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑥⟶𝑆))
123		fveq1 5428	. . . . . . . 8 ⊢ (𝑓 = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) → (𝑓‘𝑦) = ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦))
124		reseq1 4821	. . . . . . . . 9 ⊢ (𝑓 = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) → (𝑓 ↾ 𝑦) = ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))
125	124	fveq2d 5433	. . . . . . . 8 ⊢ (𝑓 = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) → (𝐺‘(𝑓 ↾ 𝑦)) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))
126	123, 125	eqeq12d 2155	. . . . . . 7 ⊢ (𝑓 = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) → ((𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦)) ↔ ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))))
127	126	ralbidv 2438	. . . . . 6 ⊢ (𝑓 = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) → (∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦)) ↔ ∀𝑦 ∈ 𝑥 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦))))
128	122, 127	anbi12d 465	. . . . 5 ⊢ (𝑓 = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) → ((𝑓:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦))) ↔ ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))))
129	128	rexbidv 2439	. . . 4 ⊢ (𝑓 = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) → (∃𝑥 ∈ 𝑋 (𝑓:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦))) ↔ ∃𝑥 ∈ 𝑋 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))))
130	129, 14	elab2g 2835	. . 3 ⊢ ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ∈ V → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ∈ 𝐴 ↔ ∃𝑥 ∈ 𝑋 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))))
131	121, 130	syl 14	. 2 ⊢ (𝜑 → ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ∈ 𝐴 ↔ ∃𝑥 ∈ 𝑋 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}):𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})‘𝑦) = (𝐺‘((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ↾ 𝑦)))))
132	114, 131	mpbird 166	1 ⊢ (𝜑 → (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ∈ 𝐴)

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 103   ↔ wb 104   ∨ wo 698   ∧ w3a 963  ∀wal 1330   = wceq 1332   ∈ wcel 1481  {cab 2126   ≠ wne 2309  ∀wral 2417  ∃wrex 2418  Vcvv 2689   ∪ cun 3074   ⊆ wss 3076  {csn 3532  ⟨cop 3535  ∪ cuni 3744  Ord word 4292  Oncon0 4293  suc csuc 4295  dom cdm 4547   ↾ cres 4549  Fun wfun 5125   Fn wfn 5126  ⟶wf 5127  ‘cfv 5131  recscrecs 6209

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 1424  ax-7 1425  ax-gen 1426  ax-ie1 1470  ax-ie2 1471  ax-8 1483  ax-10 1484  ax-11 1485  ax-i12 1486  ax-bndl 1487  ax-4 1488  ax-13 1492  ax-14 1493  ax-17 1507  ax-i9 1511  ax-ial 1515  ax-i5r 1516  ax-ext 2122  ax-sep 4054  ax-pow 4106  ax-pr 4139  ax-un 4363  ax-setind 4460

This theorem depends on definitions:  df-bi 116  df-3an 965  df-tru 1335  df-fal 1338  df-nf 1438  df-sb 1737  df-eu 2003  df-mo 2004  df-clab 2127  df-cleq 2133  df-clel 2136  df-nfc 2271  df-ne 2310  df-ral 2422  df-rex 2423  df-v 2691  df-sbc 2914  df-dif 3078  df-un 3080  df-in 3082  df-ss 3089  df-nul 3369  df-pw 3517  df-sn 3538  df-pr 3539  df-op 3541  df-uni 3745  df-br 3938  df-opab 3998  df-tr 4035  df-id 4223  df-iord 4296  df-on 4298  df-suc 4301  df-xp 4553  df-rel 4554  df-cnv 4555  df-co 4556  df-dm 4557  df-rn 4558  df-res 4559  df-iota 5096  df-fun 5133  df-fn 5134  df-f 5135  df-f1 5136  df-fo 5137  df-f1o 5138  df-fv 5139

This theorem is referenced by:  tfrcllembacc  6260  tfrcllemres  6267