Theorem ttrclselem2 9647

Description: Lemma for ttrclse 9648. Show that a suc 𝑁 element long chain gives membership in the 𝑁-th predecessor class and vice-versa. (Contributed by Scott Fenton, 31-Oct-2024.)

Hypothesis

Ref	Expression
ttrclselem.1	⊢ 𝐹 = rec((𝑏 ∈ V ↦ ∪ 𝑤 ∈ 𝑏 Pred(𝑅, 𝐴, 𝑤)), Pred(𝑅, 𝐴, 𝑋))

Assertion

Ref	Expression
ttrclselem2	⊢ ((𝑁 ∈ ω ∧ 𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) → (∃𝑓(𝑓 Fn suc suc 𝑁 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑁) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑁(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ 𝑦 ∈ (𝐹‘𝑁)))

Distinct variable groups:   𝐴,𝑎,𝑏,𝑓,𝑤,𝑦   𝑦,𝐹   𝑁,𝑎,𝑓,𝑦   𝑅,𝑎,𝑏,𝑓,𝑤,𝑦   𝑋,𝑏,𝑓,𝑦

Allowed substitution hints:   𝐹(𝑤,𝑓,𝑎,𝑏)   𝑁(𝑤,𝑏)   𝑋(𝑤,𝑎)

Proof of Theorem ttrclselem2

Dummy variables 𝑐 𝑔 𝑚 𝑛 𝑥 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		suceq 6391	. . . . . . . . . . . 12 ⊢ (𝑚 = ∅ → suc 𝑚 = suc ∅)
2		df-1o 8405	. . . . . . . . . . . 12 ⊢ 1o = suc ∅
3	1, 2	eqtr4di 2789	. . . . . . . . . . 11 ⊢ (𝑚 = ∅ → suc 𝑚 = 1o)
4		suceq 6391	. . . . . . . . . . 11 ⊢ (suc 𝑚 = 1o → suc suc 𝑚 = suc 1o)
5	3, 4	syl 17	. . . . . . . . . 10 ⊢ (𝑚 = ∅ → suc suc 𝑚 = suc 1o)
6	5	fneq2d 6592	. . . . . . . . 9 ⊢ (𝑚 = ∅ → (𝑓 Fn suc suc 𝑚 ↔ 𝑓 Fn suc 1o))
7	3	fveqeq2d 6848	. . . . . . . . . 10 ⊢ (𝑚 = ∅ → ((𝑓‘suc 𝑚) = 𝑋 ↔ (𝑓‘1o) = 𝑋))
8	7	anbi2d 631	. . . . . . . . 9 ⊢ (𝑚 = ∅ → (((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑚) = 𝑋) ↔ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋)))
9		df1o2 8412	. . . . . . . . . . . 12 ⊢ 1o = {∅}
10	3, 9	eqtrdi 2787	. . . . . . . . . . 11 ⊢ (𝑚 = ∅ → suc 𝑚 = {∅})
11	10	raleqdv 3295	. . . . . . . . . 10 ⊢ (𝑚 = ∅ → (∀𝑎 ∈ suc 𝑚(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎) ↔ ∀𝑎 ∈ {∅} (𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)))
12		0ex 5242	. . . . . . . . . . 11 ⊢ ∅ ∈ V
13		fveq2 6840	. . . . . . . . . . . 12 ⊢ (𝑎 = ∅ → (𝑓‘𝑎) = (𝑓‘∅))
14		suceq 6391	. . . . . . . . . . . . . 14 ⊢ (𝑎 = ∅ → suc 𝑎 = suc ∅)
15	14, 2	eqtr4di 2789	. . . . . . . . . . . . 13 ⊢ (𝑎 = ∅ → suc 𝑎 = 1o)
16	15	fveq2d 6844	. . . . . . . . . . . 12 ⊢ (𝑎 = ∅ → (𝑓‘suc 𝑎) = (𝑓‘1o))
17	13, 16	breq12d 5098	. . . . . . . . . . 11 ⊢ (𝑎 = ∅ → ((𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎) ↔ (𝑓‘∅)(𝑅 ↾ 𝐴)(𝑓‘1o)))
18	12, 17	ralsn 4625	. . . . . . . . . 10 ⊢ (∀𝑎 ∈ {∅} (𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎) ↔ (𝑓‘∅)(𝑅 ↾ 𝐴)(𝑓‘1o))
19	11, 18	bitrdi 287	. . . . . . . . 9 ⊢ (𝑚 = ∅ → (∀𝑎 ∈ suc 𝑚(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎) ↔ (𝑓‘∅)(𝑅 ↾ 𝐴)(𝑓‘1o)))
20	6, 8, 19	3anbi123d 1439	. . . . . . . 8 ⊢ (𝑚 = ∅ → ((𝑓 Fn suc suc 𝑚 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑚) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑚(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ (𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋) ∧ (𝑓‘∅)(𝑅 ↾ 𝐴)(𝑓‘1o))))
21	20	exbidv 1923	. . . . . . 7 ⊢ (𝑚 = ∅ → (∃𝑓(𝑓 Fn suc suc 𝑚 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑚) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑚(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ ∃𝑓(𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋) ∧ (𝑓‘∅)(𝑅 ↾ 𝐴)(𝑓‘1o))))
22		fveq2 6840	. . . . . . . 8 ⊢ (𝑚 = ∅ → (𝐹‘𝑚) = (𝐹‘∅))
23	22	eleq2d 2822	. . . . . . 7 ⊢ (𝑚 = ∅ → (𝑦 ∈ (𝐹‘𝑚) ↔ 𝑦 ∈ (𝐹‘∅)))
24	21, 23	bibi12d 345	. . . . . 6 ⊢ (𝑚 = ∅ → ((∃𝑓(𝑓 Fn suc suc 𝑚 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑚) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑚(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ 𝑦 ∈ (𝐹‘𝑚)) ↔ (∃𝑓(𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋) ∧ (𝑓‘∅)(𝑅 ↾ 𝐴)(𝑓‘1o)) ↔ 𝑦 ∈ (𝐹‘∅))))
25	24	albidv 1922	. . . . 5 ⊢ (𝑚 = ∅ → (∀𝑦(∃𝑓(𝑓 Fn suc suc 𝑚 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑚) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑚(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ 𝑦 ∈ (𝐹‘𝑚)) ↔ ∀𝑦(∃𝑓(𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋) ∧ (𝑓‘∅)(𝑅 ↾ 𝐴)(𝑓‘1o)) ↔ 𝑦 ∈ (𝐹‘∅))))
26	25	imbi2d 340	. . . 4 ⊢ (𝑚 = ∅ → (((𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) → ∀𝑦(∃𝑓(𝑓 Fn suc suc 𝑚 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑚) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑚(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ 𝑦 ∈ (𝐹‘𝑚))) ↔ ((𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) → ∀𝑦(∃𝑓(𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋) ∧ (𝑓‘∅)(𝑅 ↾ 𝐴)(𝑓‘1o)) ↔ 𝑦 ∈ (𝐹‘∅)))))
27		suceq 6391	. . . . . . . . . . . . 13 ⊢ (𝑚 = 𝑛 → suc 𝑚 = suc 𝑛)
28		suceq 6391	. . . . . . . . . . . . 13 ⊢ (suc 𝑚 = suc 𝑛 → suc suc 𝑚 = suc suc 𝑛)
29	27, 28	syl 17	. . . . . . . . . . . 12 ⊢ (𝑚 = 𝑛 → suc suc 𝑚 = suc suc 𝑛)
30	29	fneq2d 6592	. . . . . . . . . . 11 ⊢ (𝑚 = 𝑛 → (𝑓 Fn suc suc 𝑚 ↔ 𝑓 Fn suc suc 𝑛))
31	27	fveqeq2d 6848	. . . . . . . . . . . 12 ⊢ (𝑚 = 𝑛 → ((𝑓‘suc 𝑚) = 𝑋 ↔ (𝑓‘suc 𝑛) = 𝑋))
32	31	anbi2d 631	. . . . . . . . . . 11 ⊢ (𝑚 = 𝑛 → (((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑚) = 𝑋) ↔ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑛) = 𝑋)))
33	27	raleqdv 3295	. . . . . . . . . . . 12 ⊢ (𝑚 = 𝑛 → (∀𝑎 ∈ suc 𝑚(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎) ↔ ∀𝑎 ∈ suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)))
34		fveq2 6840	. . . . . . . . . . . . . 14 ⊢ (𝑎 = 𝑐 → (𝑓‘𝑎) = (𝑓‘𝑐))
35		suceq 6391	. . . . . . . . . . . . . . 15 ⊢ (𝑎 = 𝑐 → suc 𝑎 = suc 𝑐)
36	35	fveq2d 6844	. . . . . . . . . . . . . 14 ⊢ (𝑎 = 𝑐 → (𝑓‘suc 𝑎) = (𝑓‘suc 𝑐))
37	34, 36	breq12d 5098	. . . . . . . . . . . . 13 ⊢ (𝑎 = 𝑐 → ((𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎) ↔ (𝑓‘𝑐)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑐)))
38	37	cbvralvw 3215	. . . . . . . . . . . 12 ⊢ (∀𝑎 ∈ suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎) ↔ ∀𝑐 ∈ suc 𝑛(𝑓‘𝑐)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑐))
39	33, 38	bitrdi 287	. . . . . . . . . . 11 ⊢ (𝑚 = 𝑛 → (∀𝑎 ∈ suc 𝑚(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎) ↔ ∀𝑐 ∈ suc 𝑛(𝑓‘𝑐)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑐)))
40	30, 32, 39	3anbi123d 1439	. . . . . . . . . 10 ⊢ (𝑚 = 𝑛 → ((𝑓 Fn suc suc 𝑚 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑚) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑚(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ (𝑓 Fn suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑓‘𝑐)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑐))))
41	40	exbidv 1923	. . . . . . . . 9 ⊢ (𝑚 = 𝑛 → (∃𝑓(𝑓 Fn suc suc 𝑚 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑚) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑚(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ ∃𝑓(𝑓 Fn suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑓‘𝑐)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑐))))
42		fneq1 6589	. . . . . . . . . . 11 ⊢ (𝑓 = 𝑔 → (𝑓 Fn suc suc 𝑛 ↔ 𝑔 Fn suc suc 𝑛))
43		fveq1 6839	. . . . . . . . . . . . 13 ⊢ (𝑓 = 𝑔 → (𝑓‘∅) = (𝑔‘∅))
44	43	eqeq1d 2738	. . . . . . . . . . . 12 ⊢ (𝑓 = 𝑔 → ((𝑓‘∅) = 𝑦 ↔ (𝑔‘∅) = 𝑦))
45		fveq1 6839	. . . . . . . . . . . . 13 ⊢ (𝑓 = 𝑔 → (𝑓‘suc 𝑛) = (𝑔‘suc 𝑛))
46	45	eqeq1d 2738	. . . . . . . . . . . 12 ⊢ (𝑓 = 𝑔 → ((𝑓‘suc 𝑛) = 𝑋 ↔ (𝑔‘suc 𝑛) = 𝑋))
47	44, 46	anbi12d 633	. . . . . . . . . . 11 ⊢ (𝑓 = 𝑔 → (((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑛) = 𝑋) ↔ ((𝑔‘∅) = 𝑦 ∧ (𝑔‘suc 𝑛) = 𝑋)))
48		fveq1 6839	. . . . . . . . . . . . 13 ⊢ (𝑓 = 𝑔 → (𝑓‘𝑐) = (𝑔‘𝑐))
49		fveq1 6839	. . . . . . . . . . . . 13 ⊢ (𝑓 = 𝑔 → (𝑓‘suc 𝑐) = (𝑔‘suc 𝑐))
50	48, 49	breq12d 5098	. . . . . . . . . . . 12 ⊢ (𝑓 = 𝑔 → ((𝑓‘𝑐)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑐) ↔ (𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)))
51	50	ralbidv 3160	. . . . . . . . . . 11 ⊢ (𝑓 = 𝑔 → (∀𝑐 ∈ suc 𝑛(𝑓‘𝑐)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑐) ↔ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)))
52	42, 47, 51	3anbi123d 1439	. . . . . . . . . 10 ⊢ (𝑓 = 𝑔 → ((𝑓 Fn suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑓‘𝑐)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑐)) ↔ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑦 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐))))
53	52	cbvexvw 2039	. . . . . . . . 9 ⊢ (∃𝑓(𝑓 Fn suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑓‘𝑐)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑐)) ↔ ∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑦 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)))
54	41, 53	bitrdi 287	. . . . . . . 8 ⊢ (𝑚 = 𝑛 → (∃𝑓(𝑓 Fn suc suc 𝑚 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑚) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑚(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ ∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑦 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐))))
55		fveq2 6840	. . . . . . . . 9 ⊢ (𝑚 = 𝑛 → (𝐹‘𝑚) = (𝐹‘𝑛))
56	55	eleq2d 2822	. . . . . . . 8 ⊢ (𝑚 = 𝑛 → (𝑦 ∈ (𝐹‘𝑚) ↔ 𝑦 ∈ (𝐹‘𝑛)))
57	54, 56	bibi12d 345	. . . . . . 7 ⊢ (𝑚 = 𝑛 → ((∃𝑓(𝑓 Fn suc suc 𝑚 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑚) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑚(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ 𝑦 ∈ (𝐹‘𝑚)) ↔ (∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑦 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ↔ 𝑦 ∈ (𝐹‘𝑛))))
58	57	albidv 1922	. . . . . 6 ⊢ (𝑚 = 𝑛 → (∀𝑦(∃𝑓(𝑓 Fn suc suc 𝑚 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑚) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑚(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ 𝑦 ∈ (𝐹‘𝑚)) ↔ ∀𝑦(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑦 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ↔ 𝑦 ∈ (𝐹‘𝑛))))
59		eqeq2 2748	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑧 → ((𝑔‘∅) = 𝑦 ↔ (𝑔‘∅) = 𝑧))
60	59	anbi1d 632	. . . . . . . . . 10 ⊢ (𝑦 = 𝑧 → (((𝑔‘∅) = 𝑦 ∧ (𝑔‘suc 𝑛) = 𝑋) ↔ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋)))
61	60	3anbi2d 1444	. . . . . . . . 9 ⊢ (𝑦 = 𝑧 → ((𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑦 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ↔ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐))))
62	61	exbidv 1923	. . . . . . . 8 ⊢ (𝑦 = 𝑧 → (∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑦 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ↔ ∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐))))
63		eleq1 2824	. . . . . . . 8 ⊢ (𝑦 = 𝑧 → (𝑦 ∈ (𝐹‘𝑛) ↔ 𝑧 ∈ (𝐹‘𝑛)))
64	62, 63	bibi12d 345	. . . . . . 7 ⊢ (𝑦 = 𝑧 → ((∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑦 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ↔ 𝑦 ∈ (𝐹‘𝑛)) ↔ (∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ↔ 𝑧 ∈ (𝐹‘𝑛))))
65	64	cbvalvw 2038	. . . . . 6 ⊢ (∀𝑦(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑦 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ↔ 𝑦 ∈ (𝐹‘𝑛)) ↔ ∀𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ↔ 𝑧 ∈ (𝐹‘𝑛)))
66	58, 65	bitrdi 287	. . . . 5 ⊢ (𝑚 = 𝑛 → (∀𝑦(∃𝑓(𝑓 Fn suc suc 𝑚 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑚) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑚(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ 𝑦 ∈ (𝐹‘𝑚)) ↔ ∀𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ↔ 𝑧 ∈ (𝐹‘𝑛))))
67	66	imbi2d 340	. . . 4 ⊢ (𝑚 = 𝑛 → (((𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) → ∀𝑦(∃𝑓(𝑓 Fn suc suc 𝑚 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑚) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑚(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ 𝑦 ∈ (𝐹‘𝑚))) ↔ ((𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) → ∀𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ↔ 𝑧 ∈ (𝐹‘𝑛)))))
68		suceq 6391	. . . . . . . . . . 11 ⊢ (𝑚 = suc 𝑛 → suc 𝑚 = suc suc 𝑛)
69		suceq 6391	. . . . . . . . . . 11 ⊢ (suc 𝑚 = suc suc 𝑛 → suc suc 𝑚 = suc suc suc 𝑛)
70	68, 69	syl 17	. . . . . . . . . 10 ⊢ (𝑚 = suc 𝑛 → suc suc 𝑚 = suc suc suc 𝑛)
71	70	fneq2d 6592	. . . . . . . . 9 ⊢ (𝑚 = suc 𝑛 → (𝑓 Fn suc suc 𝑚 ↔ 𝑓 Fn suc suc suc 𝑛))
72	68	fveqeq2d 6848	. . . . . . . . . 10 ⊢ (𝑚 = suc 𝑛 → ((𝑓‘suc 𝑚) = 𝑋 ↔ (𝑓‘suc suc 𝑛) = 𝑋))
73	72	anbi2d 631	. . . . . . . . 9 ⊢ (𝑚 = suc 𝑛 → (((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑚) = 𝑋) ↔ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑋)))
74	68	raleqdv 3295	. . . . . . . . 9 ⊢ (𝑚 = suc 𝑛 → (∀𝑎 ∈ suc 𝑚(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎) ↔ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)))
75	71, 73, 74	3anbi123d 1439	. . . . . . . 8 ⊢ (𝑚 = suc 𝑛 → ((𝑓 Fn suc suc 𝑚 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑚) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑚(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ (𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑋) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))))
76	75	exbidv 1923	. . . . . . 7 ⊢ (𝑚 = suc 𝑛 → (∃𝑓(𝑓 Fn suc suc 𝑚 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑚) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑚(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ ∃𝑓(𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑋) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))))
77		fveq2 6840	. . . . . . . 8 ⊢ (𝑚 = suc 𝑛 → (𝐹‘𝑚) = (𝐹‘suc 𝑛))
78	77	eleq2d 2822	. . . . . . 7 ⊢ (𝑚 = suc 𝑛 → (𝑦 ∈ (𝐹‘𝑚) ↔ 𝑦 ∈ (𝐹‘suc 𝑛)))
79	76, 78	bibi12d 345	. . . . . 6 ⊢ (𝑚 = suc 𝑛 → ((∃𝑓(𝑓 Fn suc suc 𝑚 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑚) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑚(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ 𝑦 ∈ (𝐹‘𝑚)) ↔ (∃𝑓(𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑋) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ 𝑦 ∈ (𝐹‘suc 𝑛))))
80	79	albidv 1922	. . . . 5 ⊢ (𝑚 = suc 𝑛 → (∀𝑦(∃𝑓(𝑓 Fn suc suc 𝑚 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑚) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑚(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ 𝑦 ∈ (𝐹‘𝑚)) ↔ ∀𝑦(∃𝑓(𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑋) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ 𝑦 ∈ (𝐹‘suc 𝑛))))
81	80	imbi2d 340	. . . 4 ⊢ (𝑚 = suc 𝑛 → (((𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) → ∀𝑦(∃𝑓(𝑓 Fn suc suc 𝑚 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑚) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑚(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ 𝑦 ∈ (𝐹‘𝑚))) ↔ ((𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) → ∀𝑦(∃𝑓(𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑋) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ 𝑦 ∈ (𝐹‘suc 𝑛)))))
82		suceq 6391	. . . . . . . . . . 11 ⊢ (𝑚 = 𝑁 → suc 𝑚 = suc 𝑁)
83		suceq 6391	. . . . . . . . . . 11 ⊢ (suc 𝑚 = suc 𝑁 → suc suc 𝑚 = suc suc 𝑁)
84	82, 83	syl 17	. . . . . . . . . 10 ⊢ (𝑚 = 𝑁 → suc suc 𝑚 = suc suc 𝑁)
85	84	fneq2d 6592	. . . . . . . . 9 ⊢ (𝑚 = 𝑁 → (𝑓 Fn suc suc 𝑚 ↔ 𝑓 Fn suc suc 𝑁))
86	82	fveqeq2d 6848	. . . . . . . . . 10 ⊢ (𝑚 = 𝑁 → ((𝑓‘suc 𝑚) = 𝑋 ↔ (𝑓‘suc 𝑁) = 𝑋))
87	86	anbi2d 631	. . . . . . . . 9 ⊢ (𝑚 = 𝑁 → (((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑚) = 𝑋) ↔ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑁) = 𝑋)))
88	82	raleqdv 3295	. . . . . . . . 9 ⊢ (𝑚 = 𝑁 → (∀𝑎 ∈ suc 𝑚(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎) ↔ ∀𝑎 ∈ suc 𝑁(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)))
89	85, 87, 88	3anbi123d 1439	. . . . . . . 8 ⊢ (𝑚 = 𝑁 → ((𝑓 Fn suc suc 𝑚 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑚) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑚(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ (𝑓 Fn suc suc 𝑁 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑁) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑁(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))))
90	89	exbidv 1923	. . . . . . 7 ⊢ (𝑚 = 𝑁 → (∃𝑓(𝑓 Fn suc suc 𝑚 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑚) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑚(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ ∃𝑓(𝑓 Fn suc suc 𝑁 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑁) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑁(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))))
91		fveq2 6840	. . . . . . . 8 ⊢ (𝑚 = 𝑁 → (𝐹‘𝑚) = (𝐹‘𝑁))
92	91	eleq2d 2822	. . . . . . 7 ⊢ (𝑚 = 𝑁 → (𝑦 ∈ (𝐹‘𝑚) ↔ 𝑦 ∈ (𝐹‘𝑁)))
93	90, 92	bibi12d 345	. . . . . 6 ⊢ (𝑚 = 𝑁 → ((∃𝑓(𝑓 Fn suc suc 𝑚 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑚) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑚(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ 𝑦 ∈ (𝐹‘𝑚)) ↔ (∃𝑓(𝑓 Fn suc suc 𝑁 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑁) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑁(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ 𝑦 ∈ (𝐹‘𝑁))))
94	93	albidv 1922	. . . . 5 ⊢ (𝑚 = 𝑁 → (∀𝑦(∃𝑓(𝑓 Fn suc suc 𝑚 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑚) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑚(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ 𝑦 ∈ (𝐹‘𝑚)) ↔ ∀𝑦(∃𝑓(𝑓 Fn suc suc 𝑁 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑁) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑁(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ 𝑦 ∈ (𝐹‘𝑁))))
95	94	imbi2d 340	. . . 4 ⊢ (𝑚 = 𝑁 → (((𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) → ∀𝑦(∃𝑓(𝑓 Fn suc suc 𝑚 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑚) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑚(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ 𝑦 ∈ (𝐹‘𝑚))) ↔ ((𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) → ∀𝑦(∃𝑓(𝑓 Fn suc suc 𝑁 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑁) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑁(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ 𝑦 ∈ (𝐹‘𝑁)))))
96		eqeq2 2748	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑋 → ((𝑓‘1o) = 𝑥 ↔ (𝑓‘1o) = 𝑋))
97	96	anbi2d 631	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑋 → (((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑥) ↔ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋)))
98	97	anbi2d 631	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑋 → ((𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑥)) ↔ (𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋))))
99	98	exbidv 1923	. . . . . . . . . 10 ⊢ (𝑥 = 𝑋 → (∃𝑓(𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑥)) ↔ ∃𝑓(𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋))))
100		vex 3433	. . . . . . . . . . . . 13 ⊢ 𝑦 ∈ V
101		vex 3433	. . . . . . . . . . . . 13 ⊢ 𝑥 ∈ V
102	100, 101	ifex 4517	. . . . . . . . . . . 12 ⊢ if(𝑏 = ∅, 𝑦, 𝑥) ∈ V
103		eqid 2736	. . . . . . . . . . . 12 ⊢ (𝑏 ∈ suc 1o ↦ if(𝑏 = ∅, 𝑦, 𝑥)) = (𝑏 ∈ suc 1o ↦ if(𝑏 = ∅, 𝑦, 𝑥))
104	102, 103	fnmpti 6641	. . . . . . . . . . 11 ⊢ (𝑏 ∈ suc 1o ↦ if(𝑏 = ∅, 𝑦, 𝑥)) Fn suc 1o
105		equid 2014	. . . . . . . . . . . 12 ⊢ 𝑦 = 𝑦
106		equid 2014	. . . . . . . . . . . 12 ⊢ 𝑥 = 𝑥
107	105, 106	pm3.2i 470	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑦 ∧ 𝑥 = 𝑥)
108		1oex 8415	. . . . . . . . . . . . . 14 ⊢ 1o ∈ V
109	108	sucex 7760	. . . . . . . . . . . . 13 ⊢ suc 1o ∈ V
110	109	mptex 7178	. . . . . . . . . . . 12 ⊢ (𝑏 ∈ suc 1o ↦ if(𝑏 = ∅, 𝑦, 𝑥)) ∈ V
111		fneq1 6589	. . . . . . . . . . . . 13 ⊢ (𝑓 = (𝑏 ∈ suc 1o ↦ if(𝑏 = ∅, 𝑦, 𝑥)) → (𝑓 Fn suc 1o ↔ (𝑏 ∈ suc 1o ↦ if(𝑏 = ∅, 𝑦, 𝑥)) Fn suc 1o))
112		fveq1 6839	. . . . . . . . . . . . . . . 16 ⊢ (𝑓 = (𝑏 ∈ suc 1o ↦ if(𝑏 = ∅, 𝑦, 𝑥)) → (𝑓‘∅) = ((𝑏 ∈ suc 1o ↦ if(𝑏 = ∅, 𝑦, 𝑥))‘∅))
113		1on 8417	. . . . . . . . . . . . . . . . . 18 ⊢ 1o ∈ On
114	113	onordi 6436	. . . . . . . . . . . . . . . . 17 ⊢ Ord 1o
115		0elsuc 7786	. . . . . . . . . . . . . . . . 17 ⊢ (Ord 1o → ∅ ∈ suc 1o)
116		iftrue 4472	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑏 = ∅ → if(𝑏 = ∅, 𝑦, 𝑥) = 𝑦)
117	116, 103, 100	fvmpt 6947	. . . . . . . . . . . . . . . . 17 ⊢ (∅ ∈ suc 1o → ((𝑏 ∈ suc 1o ↦ if(𝑏 = ∅, 𝑦, 𝑥))‘∅) = 𝑦)
118	114, 115, 117	mp2b 10	. . . . . . . . . . . . . . . 16 ⊢ ((𝑏 ∈ suc 1o ↦ if(𝑏 = ∅, 𝑦, 𝑥))‘∅) = 𝑦
119	112, 118	eqtrdi 2787	. . . . . . . . . . . . . . 15 ⊢ (𝑓 = (𝑏 ∈ suc 1o ↦ if(𝑏 = ∅, 𝑦, 𝑥)) → (𝑓‘∅) = 𝑦)
120	119	eqeq1d 2738	. . . . . . . . . . . . . 14 ⊢ (𝑓 = (𝑏 ∈ suc 1o ↦ if(𝑏 = ∅, 𝑦, 𝑥)) → ((𝑓‘∅) = 𝑦 ↔ 𝑦 = 𝑦))
121		fveq1 6839	. . . . . . . . . . . . . . . 16 ⊢ (𝑓 = (𝑏 ∈ suc 1o ↦ if(𝑏 = ∅, 𝑦, 𝑥)) → (𝑓‘1o) = ((𝑏 ∈ suc 1o ↦ if(𝑏 = ∅, 𝑦, 𝑥))‘1o))
122	108	sucid 6407	. . . . . . . . . . . . . . . . 17 ⊢ 1o ∈ suc 1o
123		eqeq1 2740	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑏 = 1o → (𝑏 = ∅ ↔ 1o = ∅))
124	123	ifbid 4490	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑏 = 1o → if(𝑏 = ∅, 𝑦, 𝑥) = if(1o = ∅, 𝑦, 𝑥))
125		1n0 8423	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 1o ≠ ∅
126	125	neii 2934	. . . . . . . . . . . . . . . . . . . 20 ⊢ ¬ 1o = ∅
127	126	iffalsei 4476	. . . . . . . . . . . . . . . . . . 19 ⊢ if(1o = ∅, 𝑦, 𝑥) = 𝑥
128	124, 127	eqtrdi 2787	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑏 = 1o → if(𝑏 = ∅, 𝑦, 𝑥) = 𝑥)
129	128, 103, 101	fvmpt 6947	. . . . . . . . . . . . . . . . 17 ⊢ (1o ∈ suc 1o → ((𝑏 ∈ suc 1o ↦ if(𝑏 = ∅, 𝑦, 𝑥))‘1o) = 𝑥)
130	122, 129	ax-mp 5	. . . . . . . . . . . . . . . 16 ⊢ ((𝑏 ∈ suc 1o ↦ if(𝑏 = ∅, 𝑦, 𝑥))‘1o) = 𝑥
131	121, 130	eqtrdi 2787	. . . . . . . . . . . . . . 15 ⊢ (𝑓 = (𝑏 ∈ suc 1o ↦ if(𝑏 = ∅, 𝑦, 𝑥)) → (𝑓‘1o) = 𝑥)
132	131	eqeq1d 2738	. . . . . . . . . . . . . 14 ⊢ (𝑓 = (𝑏 ∈ suc 1o ↦ if(𝑏 = ∅, 𝑦, 𝑥)) → ((𝑓‘1o) = 𝑥 ↔ 𝑥 = 𝑥))
133	120, 132	anbi12d 633	. . . . . . . . . . . . 13 ⊢ (𝑓 = (𝑏 ∈ suc 1o ↦ if(𝑏 = ∅, 𝑦, 𝑥)) → (((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑥) ↔ (𝑦 = 𝑦 ∧ 𝑥 = 𝑥)))
134	111, 133	anbi12d 633	. . . . . . . . . . . 12 ⊢ (𝑓 = (𝑏 ∈ suc 1o ↦ if(𝑏 = ∅, 𝑦, 𝑥)) → ((𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑥)) ↔ ((𝑏 ∈ suc 1o ↦ if(𝑏 = ∅, 𝑦, 𝑥)) Fn suc 1o ∧ (𝑦 = 𝑦 ∧ 𝑥 = 𝑥))))
135	110, 134	spcev 3548	. . . . . . . . . . 11 ⊢ (((𝑏 ∈ suc 1o ↦ if(𝑏 = ∅, 𝑦, 𝑥)) Fn suc 1o ∧ (𝑦 = 𝑦 ∧ 𝑥 = 𝑥)) → ∃𝑓(𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑥)))
136	104, 107, 135	mp2an 693	. . . . . . . . . 10 ⊢ ∃𝑓(𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑥))
137	99, 136	vtoclg 3499	. . . . . . . . 9 ⊢ (𝑋 ∈ 𝐴 → ∃𝑓(𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋)))
138	137	adantl 481	. . . . . . . 8 ⊢ ((𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) → ∃𝑓(𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋)))
139	138	biantrurd 532	. . . . . . 7 ⊢ ((𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) → ((𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑋) ↔ (∃𝑓(𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋)) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑋))))
140	100	elpred 6282	. . . . . . . 8 ⊢ (𝑋 ∈ 𝐴 → (𝑦 ∈ Pred(𝑅, 𝐴, 𝑋) ↔ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑋)))
141	140	adantl 481	. . . . . . 7 ⊢ ((𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) → (𝑦 ∈ Pred(𝑅, 𝐴, 𝑋) ↔ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑋)))
142		brres 5951	. . . . . . . . 9 ⊢ (𝑋 ∈ 𝐴 → (𝑦(𝑅 ↾ 𝐴)𝑋 ↔ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑋)))
143	142	adantl 481	. . . . . . . 8 ⊢ ((𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) → (𝑦(𝑅 ↾ 𝐴)𝑋 ↔ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑋)))
144	143	anbi2d 631	. . . . . . 7 ⊢ ((𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) → ((∃𝑓(𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑋) ↔ (∃𝑓(𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋)) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑋))))
145	139, 141, 144	3bitr4rd 312	. . . . . 6 ⊢ ((𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) → ((∃𝑓(𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑋) ↔ 𝑦 ∈ Pred(𝑅, 𝐴, 𝑋)))
146		df-3an 1089	. . . . . . . . . 10 ⊢ ((𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋) ∧ (𝑓‘∅)(𝑅 ↾ 𝐴)(𝑓‘1o)) ↔ ((𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋)) ∧ (𝑓‘∅)(𝑅 ↾ 𝐴)(𝑓‘1o)))
147		breq12 5090	. . . . . . . . . . . 12 ⊢ (((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋) → ((𝑓‘∅)(𝑅 ↾ 𝐴)(𝑓‘1o) ↔ 𝑦(𝑅 ↾ 𝐴)𝑋))
148	147	adantl 481	. . . . . . . . . . 11 ⊢ ((𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋)) → ((𝑓‘∅)(𝑅 ↾ 𝐴)(𝑓‘1o) ↔ 𝑦(𝑅 ↾ 𝐴)𝑋))
149	148	pm5.32i 574	. . . . . . . . . 10 ⊢ (((𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋)) ∧ (𝑓‘∅)(𝑅 ↾ 𝐴)(𝑓‘1o)) ↔ ((𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑋))
150	146, 149	bitri 275	. . . . . . . . 9 ⊢ ((𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋) ∧ (𝑓‘∅)(𝑅 ↾ 𝐴)(𝑓‘1o)) ↔ ((𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑋))
151	150	exbii 1850	. . . . . . . 8 ⊢ (∃𝑓(𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋) ∧ (𝑓‘∅)(𝑅 ↾ 𝐴)(𝑓‘1o)) ↔ ∃𝑓((𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑋))
152		19.41v 1951	. . . . . . . 8 ⊢ (∃𝑓((𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑋) ↔ (∃𝑓(𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑋))
153	151, 152	bitri 275	. . . . . . 7 ⊢ (∃𝑓(𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋) ∧ (𝑓‘∅)(𝑅 ↾ 𝐴)(𝑓‘1o)) ↔ (∃𝑓(𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑋))
154	153	a1i 11	. . . . . 6 ⊢ ((𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) → (∃𝑓(𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋) ∧ (𝑓‘∅)(𝑅 ↾ 𝐴)(𝑓‘1o)) ↔ (∃𝑓(𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑋)))
155		ttrclselem.1	. . . . . . . . 9 ⊢ 𝐹 = rec((𝑏 ∈ V ↦ ∪ 𝑤 ∈ 𝑏 Pred(𝑅, 𝐴, 𝑤)), Pred(𝑅, 𝐴, 𝑋))
156	155	fveq1i 6841	. . . . . . . 8 ⊢ (𝐹‘∅) = (rec((𝑏 ∈ V ↦ ∪ 𝑤 ∈ 𝑏 Pred(𝑅, 𝐴, 𝑤)), Pred(𝑅, 𝐴, 𝑋))‘∅)
157		setlikespec 6289	. . . . . . . . . 10 ⊢ ((𝑋 ∈ 𝐴 ∧ 𝑅 Se 𝐴) → Pred(𝑅, 𝐴, 𝑋) ∈ V)
158	157	ancoms 458	. . . . . . . . 9 ⊢ ((𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) → Pred(𝑅, 𝐴, 𝑋) ∈ V)
159		rdg0g 8366	. . . . . . . . 9 ⊢ (Pred(𝑅, 𝐴, 𝑋) ∈ V → (rec((𝑏 ∈ V ↦ ∪ 𝑤 ∈ 𝑏 Pred(𝑅, 𝐴, 𝑤)), Pred(𝑅, 𝐴, 𝑋))‘∅) = Pred(𝑅, 𝐴, 𝑋))
160	158, 159	syl 17	. . . . . . . 8 ⊢ ((𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) → (rec((𝑏 ∈ V ↦ ∪ 𝑤 ∈ 𝑏 Pred(𝑅, 𝐴, 𝑤)), Pred(𝑅, 𝐴, 𝑋))‘∅) = Pred(𝑅, 𝐴, 𝑋))
161	156, 160	eqtrid 2783	. . . . . . 7 ⊢ ((𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) → (𝐹‘∅) = Pred(𝑅, 𝐴, 𝑋))
162	161	eleq2d 2822	. . . . . 6 ⊢ ((𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) → (𝑦 ∈ (𝐹‘∅) ↔ 𝑦 ∈ Pred(𝑅, 𝐴, 𝑋)))
163	145, 154, 162	3bitr4d 311	. . . . 5 ⊢ ((𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) → (∃𝑓(𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋) ∧ (𝑓‘∅)(𝑅 ↾ 𝐴)(𝑓‘1o)) ↔ 𝑦 ∈ (𝐹‘∅)))
164	163	alrimiv 1929	. . . 4 ⊢ ((𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) → ∀𝑦(∃𝑓(𝑓 Fn suc 1o ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘1o) = 𝑋) ∧ (𝑓‘∅)(𝑅 ↾ 𝐴)(𝑓‘1o)) ↔ 𝑦 ∈ (𝐹‘∅)))
165		eliun 4937	. . . . . . . . . 10 ⊢ (𝑦 ∈ ∪ 𝑧 ∈ (𝐹‘𝑛)Pred(𝑅, 𝐴, 𝑧) ↔ ∃𝑧 ∈ (𝐹‘𝑛)𝑦 ∈ Pred(𝑅, 𝐴, 𝑧))
166		df-rex 3062	. . . . . . . . . 10 ⊢ (∃𝑧 ∈ (𝐹‘𝑛)𝑦 ∈ Pred(𝑅, 𝐴, 𝑧) ↔ ∃𝑧(𝑧 ∈ (𝐹‘𝑛) ∧ 𝑦 ∈ Pred(𝑅, 𝐴, 𝑧)))
167	165, 166	bitri 275	. . . . . . . . 9 ⊢ (𝑦 ∈ ∪ 𝑧 ∈ (𝐹‘𝑛)Pred(𝑅, 𝐴, 𝑧) ↔ ∃𝑧(𝑧 ∈ (𝐹‘𝑛) ∧ 𝑦 ∈ Pred(𝑅, 𝐴, 𝑧)))
168	100	elpred 6282	. . . . . . . . . . . . . 14 ⊢ (𝑧 ∈ V → (𝑦 ∈ Pred(𝑅, 𝐴, 𝑧) ↔ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑧)))
169	168	elv 3434	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ Pred(𝑅, 𝐴, 𝑧) ↔ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑧))
170	169	anbi2i 624	. . . . . . . . . . . 12 ⊢ ((𝑧 ∈ (𝐹‘𝑛) ∧ 𝑦 ∈ Pred(𝑅, 𝐴, 𝑧)) ↔ (𝑧 ∈ (𝐹‘𝑛) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑧)))
171		anbi1 634	. . . . . . . . . . . 12 ⊢ ((∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ↔ 𝑧 ∈ (𝐹‘𝑛)) → ((∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑧)) ↔ (𝑧 ∈ (𝐹‘𝑛) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑧))))
172	170, 171	bitr4id 290	. . . . . . . . . . 11 ⊢ ((∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ↔ 𝑧 ∈ (𝐹‘𝑛)) → ((𝑧 ∈ (𝐹‘𝑛) ∧ 𝑦 ∈ Pred(𝑅, 𝐴, 𝑧)) ↔ (∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑧))))
173	172	alexbii 1835	. . . . . . . . . 10 ⊢ (∀𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ↔ 𝑧 ∈ (𝐹‘𝑛)) → (∃𝑧(𝑧 ∈ (𝐹‘𝑛) ∧ 𝑦 ∈ Pred(𝑅, 𝐴, 𝑧)) ↔ ∃𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑧))))
174	173	3ad2ant3 1136	. . . . . . . . 9 ⊢ ((𝑛 ∈ ω ∧ (𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) ∧ ∀𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ↔ 𝑧 ∈ (𝐹‘𝑛))) → (∃𝑧(𝑧 ∈ (𝐹‘𝑛) ∧ 𝑦 ∈ Pred(𝑅, 𝐴, 𝑧)) ↔ ∃𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑧))))
175	167, 174	bitrid 283	. . . . . . . 8 ⊢ ((𝑛 ∈ ω ∧ (𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) ∧ ∀𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ↔ 𝑧 ∈ (𝐹‘𝑛))) → (𝑦 ∈ ∪ 𝑧 ∈ (𝐹‘𝑛)Pred(𝑅, 𝐴, 𝑧) ↔ ∃𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑧))))
176		nnon 7823	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ω → 𝑛 ∈ On)
177		fvex 6853	. . . . . . . . . . . 12 ⊢ (𝐹‘𝑛) ∈ V
178	155	ttrclselem1 9646	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ω → (𝐹‘𝑛) ⊆ 𝐴)
179	178	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝑛 ∈ ω ∧ 𝑅 Se 𝐴) → (𝐹‘𝑛) ⊆ 𝐴)
180		dfse3 6300	. . . . . . . . . . . . . . . 16 ⊢ (𝑅 Se 𝐴 ↔ ∀𝑧 ∈ 𝐴 Pred(𝑅, 𝐴, 𝑧) ∈ V)
181	180	biimpi 216	. . . . . . . . . . . . . . 15 ⊢ (𝑅 Se 𝐴 → ∀𝑧 ∈ 𝐴 Pred(𝑅, 𝐴, 𝑧) ∈ V)
182	181	adantl 481	. . . . . . . . . . . . . 14 ⊢ ((𝑛 ∈ ω ∧ 𝑅 Se 𝐴) → ∀𝑧 ∈ 𝐴 Pred(𝑅, 𝐴, 𝑧) ∈ V)
183		ssralv 3990	. . . . . . . . . . . . . 14 ⊢ ((𝐹‘𝑛) ⊆ 𝐴 → (∀𝑧 ∈ 𝐴 Pred(𝑅, 𝐴, 𝑧) ∈ V → ∀𝑧 ∈ (𝐹‘𝑛)Pred(𝑅, 𝐴, 𝑧) ∈ V))
184	179, 182, 183	sylc 65	. . . . . . . . . . . . 13 ⊢ ((𝑛 ∈ ω ∧ 𝑅 Se 𝐴) → ∀𝑧 ∈ (𝐹‘𝑛)Pred(𝑅, 𝐴, 𝑧) ∈ V)
185	184	adantrr 718	. . . . . . . . . . . 12 ⊢ ((𝑛 ∈ ω ∧ (𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴)) → ∀𝑧 ∈ (𝐹‘𝑛)Pred(𝑅, 𝐴, 𝑧) ∈ V)
186		iunexg 7916	. . . . . . . . . . . 12 ⊢ (((𝐹‘𝑛) ∈ V ∧ ∀𝑧 ∈ (𝐹‘𝑛)Pred(𝑅, 𝐴, 𝑧) ∈ V) → ∪ 𝑧 ∈ (𝐹‘𝑛)Pred(𝑅, 𝐴, 𝑧) ∈ V)
187	177, 185, 186	sylancr 588	. . . . . . . . . . 11 ⊢ ((𝑛 ∈ ω ∧ (𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴)) → ∪ 𝑧 ∈ (𝐹‘𝑛)Pred(𝑅, 𝐴, 𝑧) ∈ V)
188		nfcv 2898	. . . . . . . . . . . 12 ⊢ Ⅎ𝑏Pred(𝑅, 𝐴, 𝑋)
189		nfcv 2898	. . . . . . . . . . . 12 ⊢ Ⅎ𝑏𝑛
190		nfmpt1 5184	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑏(𝑏 ∈ V ↦ ∪ 𝑤 ∈ 𝑏 Pred(𝑅, 𝐴, 𝑤))
191	190, 188	nfrdg 8353	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑏rec((𝑏 ∈ V ↦ ∪ 𝑤 ∈ 𝑏 Pred(𝑅, 𝐴, 𝑤)), Pred(𝑅, 𝐴, 𝑋))
192	155, 191	nfcxfr 2896	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑏𝐹
193	192, 189	nffv 6850	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑏(𝐹‘𝑛)
194		nfcv 2898	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑏Pred(𝑅, 𝐴, 𝑧)
195	193, 194	nfiun 4965	. . . . . . . . . . . 12 ⊢ Ⅎ𝑏∪ 𝑧 ∈ (𝐹‘𝑛)Pred(𝑅, 𝐴, 𝑧)
196		predeq3 6269	. . . . . . . . . . . . . 14 ⊢ (𝑤 = 𝑧 → Pred(𝑅, 𝐴, 𝑤) = Pred(𝑅, 𝐴, 𝑧))
197	196	cbviunv 4981	. . . . . . . . . . . . 13 ⊢ ∪ 𝑤 ∈ 𝑏 Pred(𝑅, 𝐴, 𝑤) = ∪ 𝑧 ∈ 𝑏 Pred(𝑅, 𝐴, 𝑧)
198		iuneq1 4950	. . . . . . . . . . . . 13 ⊢ (𝑏 = (𝐹‘𝑛) → ∪ 𝑧 ∈ 𝑏 Pred(𝑅, 𝐴, 𝑧) = ∪ 𝑧 ∈ (𝐹‘𝑛)Pred(𝑅, 𝐴, 𝑧))
199	197, 198	eqtrid 2783	. . . . . . . . . . . 12 ⊢ (𝑏 = (𝐹‘𝑛) → ∪ 𝑤 ∈ 𝑏 Pred(𝑅, 𝐴, 𝑤) = ∪ 𝑧 ∈ (𝐹‘𝑛)Pred(𝑅, 𝐴, 𝑧))
200	188, 189, 195, 155, 199	rdgsucmptf 8367	. . . . . . . . . . 11 ⊢ ((𝑛 ∈ On ∧ ∪ 𝑧 ∈ (𝐹‘𝑛)Pred(𝑅, 𝐴, 𝑧) ∈ V) → (𝐹‘suc 𝑛) = ∪ 𝑧 ∈ (𝐹‘𝑛)Pred(𝑅, 𝐴, 𝑧))
201	176, 187, 200	syl2an2r 686	. . . . . . . . . 10 ⊢ ((𝑛 ∈ ω ∧ (𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴)) → (𝐹‘suc 𝑛) = ∪ 𝑧 ∈ (𝐹‘𝑛)Pred(𝑅, 𝐴, 𝑧))
202	201	3adant3 1133	. . . . . . . . 9 ⊢ ((𝑛 ∈ ω ∧ (𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) ∧ ∀𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ↔ 𝑧 ∈ (𝐹‘𝑛))) → (𝐹‘suc 𝑛) = ∪ 𝑧 ∈ (𝐹‘𝑛)Pred(𝑅, 𝐴, 𝑧))
203	202	eleq2d 2822	. . . . . . . 8 ⊢ ((𝑛 ∈ ω ∧ (𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) ∧ ∀𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ↔ 𝑧 ∈ (𝐹‘𝑛))) → (𝑦 ∈ (𝐹‘suc 𝑛) ↔ 𝑦 ∈ ∪ 𝑧 ∈ (𝐹‘𝑛)Pred(𝑅, 𝐴, 𝑧)))
204		eqeq2 2748	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑋 → ((𝑓‘suc suc 𝑛) = 𝑥 ↔ (𝑓‘suc suc 𝑛) = 𝑋))
205	204	anbi2d 631	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑋 → (((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ↔ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑋)))
206	205	3anbi2d 1444	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 𝑋 → ((𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ (𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑋) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))))
207	206	exbidv 1923	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑋 → (∃𝑓(𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ ∃𝑓(𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑋) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))))
208		eqeq2 2748	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑋 → ((𝑔‘suc 𝑛) = 𝑥 ↔ (𝑔‘suc 𝑛) = 𝑋))
209	208	anbi2d 631	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑋 → (((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ↔ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋)))
210	209	3anbi2d 1444	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑋 → ((𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ↔ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐))))
211	210	exbidv 1923	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑋 → (∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ↔ ∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐))))
212	211	anbi1d 632	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 𝑋 → ((∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑧)) ↔ (∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑧))))
213	212	exbidv 1923	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑋 → (∃𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑧)) ↔ ∃𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑧))))
214	207, 213	bibi12d 345	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑋 → ((∃𝑓(𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ ∃𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑧))) ↔ (∃𝑓(𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑋) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ ∃𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑧)))))
215	214	imbi2d 340	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑋 → ((𝑛 ∈ ω → (∃𝑓(𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ ∃𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑧)))) ↔ (𝑛 ∈ ω → (∃𝑓(𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑋) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ ∃𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑧))))))
216		fvex 6853	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑓‘suc 𝑏) ∈ V
217		eqid 2736	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏)) = (𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))
218	216, 217	fnmpti 6641	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏)) Fn suc suc 𝑛
219	218	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑛 ∈ ω ∧ (𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))) → (𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏)) Fn suc suc 𝑛)
220		peano2 7841	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑛 ∈ ω → suc 𝑛 ∈ ω)
221	220	adantr 480	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑛 ∈ ω ∧ (𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))) → suc 𝑛 ∈ ω)
222		nnord 7825	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (suc 𝑛 ∈ ω → Ord suc 𝑛)
223	221, 222	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑛 ∈ ω ∧ (𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))) → Ord suc 𝑛)
224		0elsuc 7786	. . . . . . . . . . . . . . . . . . . 20 ⊢ (Ord suc 𝑛 → ∅ ∈ suc suc 𝑛)
225	223, 224	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑛 ∈ ω ∧ (𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))) → ∅ ∈ suc suc 𝑛)
226		suceq 6391	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑏 = ∅ → suc 𝑏 = suc ∅)
227	226	fveq2d 6844	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑏 = ∅ → (𝑓‘suc 𝑏) = (𝑓‘suc ∅))
228		fvex 6853	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑓‘suc ∅) ∈ V
229	227, 217, 228	fvmpt 6947	. . . . . . . . . . . . . . . . . . 19 ⊢ (∅ ∈ suc suc 𝑛 → ((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘∅) = (𝑓‘suc ∅))
230	225, 229	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑛 ∈ ω ∧ (𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))) → ((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘∅) = (𝑓‘suc ∅))
231		vex 3433	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ 𝑛 ∈ V
232	231	sucex 7760	. . . . . . . . . . . . . . . . . . . . 21 ⊢ suc 𝑛 ∈ V
233	232	sucid 6407	. . . . . . . . . . . . . . . . . . . 20 ⊢ suc 𝑛 ∈ suc suc 𝑛
234		suceq 6391	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑏 = suc 𝑛 → suc 𝑏 = suc suc 𝑛)
235	234	fveq2d 6844	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑏 = suc 𝑛 → (𝑓‘suc 𝑏) = (𝑓‘suc suc 𝑛))
236		fvex 6853	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑓‘suc suc 𝑛) ∈ V
237	235, 217, 236	fvmpt 6947	. . . . . . . . . . . . . . . . . . . 20 ⊢ (suc 𝑛 ∈ suc suc 𝑛 → ((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘suc 𝑛) = (𝑓‘suc suc 𝑛))
238	233, 237	mp1i 13	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑛 ∈ ω ∧ (𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))) → ((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘suc 𝑛) = (𝑓‘suc suc 𝑛))
239		simpr2r 1235	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑛 ∈ ω ∧ (𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))) → (𝑓‘suc suc 𝑛) = 𝑥)
240	238, 239	eqtrd 2771	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑛 ∈ ω ∧ (𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))) → ((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘suc 𝑛) = 𝑥)
241		fveq2 6840	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑎 = suc 𝑐 → (𝑓‘𝑎) = (𝑓‘suc 𝑐))
242		suceq 6391	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑎 = suc 𝑐 → suc 𝑎 = suc suc 𝑐)
243	242	fveq2d 6844	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑎 = suc 𝑐 → (𝑓‘suc 𝑎) = (𝑓‘suc suc 𝑐))
244	241, 243	breq12d 5098	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑎 = suc 𝑐 → ((𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎) ↔ (𝑓‘suc 𝑐)(𝑅 ↾ 𝐴)(𝑓‘suc suc 𝑐)))
245		simplr3 1219	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑛 ∈ ω ∧ (𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))) ∧ 𝑐 ∈ suc 𝑛) → ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))
246		ordsucelsuc 7773	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (Ord suc 𝑛 → (𝑐 ∈ suc 𝑛 ↔ suc 𝑐 ∈ suc suc 𝑛))
247	223, 246	syl 17	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑛 ∈ ω ∧ (𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))) → (𝑐 ∈ suc 𝑛 ↔ suc 𝑐 ∈ suc suc 𝑛))
248	247	biimpa 476	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑛 ∈ ω ∧ (𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))) ∧ 𝑐 ∈ suc 𝑛) → suc 𝑐 ∈ suc suc 𝑛)
249	244, 245, 248	rspcdva 3565	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑛 ∈ ω ∧ (𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))) ∧ 𝑐 ∈ suc 𝑛) → (𝑓‘suc 𝑐)(𝑅 ↾ 𝐴)(𝑓‘suc suc 𝑐))
250		elelsuc 6398	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑐 ∈ suc 𝑛 → 𝑐 ∈ suc suc 𝑛)
251		suceq 6391	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑏 = 𝑐 → suc 𝑏 = suc 𝑐)
252	251	fveq2d 6844	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑏 = 𝑐 → (𝑓‘suc 𝑏) = (𝑓‘suc 𝑐))
253		fvex 6853	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑓‘suc 𝑐) ∈ V
254	252, 217, 253	fvmpt 6947	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑐 ∈ suc suc 𝑛 → ((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘𝑐) = (𝑓‘suc 𝑐))
255	250, 254	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑐 ∈ suc 𝑛 → ((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘𝑐) = (𝑓‘suc 𝑐))
256	255	adantl 481	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑛 ∈ ω ∧ (𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))) ∧ 𝑐 ∈ suc 𝑛) → ((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘𝑐) = (𝑓‘suc 𝑐))
257		suceq 6391	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑏 = suc 𝑐 → suc 𝑏 = suc suc 𝑐)
258	257	fveq2d 6844	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑏 = suc 𝑐 → (𝑓‘suc 𝑏) = (𝑓‘suc suc 𝑐))
259		fvex 6853	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑓‘suc suc 𝑐) ∈ V
260	258, 217, 259	fvmpt 6947	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (suc 𝑐 ∈ suc suc 𝑛 → ((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘suc 𝑐) = (𝑓‘suc suc 𝑐))
261	248, 260	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑛 ∈ ω ∧ (𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))) ∧ 𝑐 ∈ suc 𝑛) → ((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘suc 𝑐) = (𝑓‘suc suc 𝑐))
262	249, 256, 261	3brtr4d 5117	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑛 ∈ ω ∧ (𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))) ∧ 𝑐 ∈ suc 𝑛) → ((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘𝑐)(𝑅 ↾ 𝐴)((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘suc 𝑐))
263	262	ralrimiva 3129	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑛 ∈ ω ∧ (𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))) → ∀𝑐 ∈ suc 𝑛((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘𝑐)(𝑅 ↾ 𝐴)((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘suc 𝑐))
264	232	sucex 7760	. . . . . . . . . . . . . . . . . . . 20 ⊢ suc suc 𝑛 ∈ V
265	264	mptex 7178	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏)) ∈ V
266		fneq1 6589	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑔 = (𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏)) → (𝑔 Fn suc suc 𝑛 ↔ (𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏)) Fn suc suc 𝑛))
267		fveq1 6839	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑔 = (𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏)) → (𝑔‘∅) = ((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘∅))
268	267	eqeq1d 2738	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑔 = (𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏)) → ((𝑔‘∅) = (𝑓‘suc ∅) ↔ ((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘∅) = (𝑓‘suc ∅)))
269		fveq1 6839	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑔 = (𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏)) → (𝑔‘suc 𝑛) = ((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘suc 𝑛))
270	269	eqeq1d 2738	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑔 = (𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏)) → ((𝑔‘suc 𝑛) = 𝑥 ↔ ((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘suc 𝑛) = 𝑥))
271	268, 270	anbi12d 633	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑔 = (𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏)) → (((𝑔‘∅) = (𝑓‘suc ∅) ∧ (𝑔‘suc 𝑛) = 𝑥) ↔ (((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘∅) = (𝑓‘suc ∅) ∧ ((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘suc 𝑛) = 𝑥)))
272		fveq1 6839	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑔 = (𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏)) → (𝑔‘𝑐) = ((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘𝑐))
273		fveq1 6839	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑔 = (𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏)) → (𝑔‘suc 𝑐) = ((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘suc 𝑐))
274	272, 273	breq12d 5098	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑔 = (𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏)) → ((𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐) ↔ ((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘𝑐)(𝑅 ↾ 𝐴)((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘suc 𝑐)))
275	274	ralbidv 3160	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑔 = (𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏)) → (∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐) ↔ ∀𝑐 ∈ suc 𝑛((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘𝑐)(𝑅 ↾ 𝐴)((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘suc 𝑐)))
276	266, 271, 275	3anbi123d 1439	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑔 = (𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏)) → ((𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = (𝑓‘suc ∅) ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ↔ ((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏)) Fn suc suc 𝑛 ∧ (((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘∅) = (𝑓‘suc ∅) ∧ ((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘𝑐)(𝑅 ↾ 𝐴)((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘suc 𝑐))))
277	265, 276	spcev 3548	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏)) Fn suc suc 𝑛 ∧ (((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘∅) = (𝑓‘suc ∅) ∧ ((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘𝑐)(𝑅 ↾ 𝐴)((𝑏 ∈ suc suc 𝑛 ↦ (𝑓‘suc 𝑏))‘suc 𝑐)) → ∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = (𝑓‘suc ∅) ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)))
278	219, 230, 240, 263, 277	syl121anc 1378	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑛 ∈ ω ∧ (𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))) → ∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = (𝑓‘suc ∅) ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)))
279		simpr2l 1234	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑛 ∈ ω ∧ (𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))) → (𝑓‘∅) = 𝑦)
280	14	fveq2d 6844	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑎 = ∅ → (𝑓‘suc 𝑎) = (𝑓‘suc ∅))
281	13, 280	breq12d 5098	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑎 = ∅ → ((𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎) ↔ (𝑓‘∅)(𝑅 ↾ 𝐴)(𝑓‘suc ∅)))
282		simpr3 1198	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑛 ∈ ω ∧ (𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))) → ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))
283	281, 282, 225	rspcdva 3565	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑛 ∈ ω ∧ (𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))) → (𝑓‘∅)(𝑅 ↾ 𝐴)(𝑓‘suc ∅))
284	279, 283	eqbrtrrd 5109	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑛 ∈ ω ∧ (𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))) → 𝑦(𝑅 ↾ 𝐴)(𝑓‘suc ∅))
285		eqeq2 2748	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑧 = (𝑓‘suc ∅) → ((𝑔‘∅) = 𝑧 ↔ (𝑔‘∅) = (𝑓‘suc ∅)))
286	285	anbi1d 632	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑧 = (𝑓‘suc ∅) → (((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ↔ ((𝑔‘∅) = (𝑓‘suc ∅) ∧ (𝑔‘suc 𝑛) = 𝑥)))
287	286	3anbi2d 1444	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑧 = (𝑓‘suc ∅) → ((𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ↔ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = (𝑓‘suc ∅) ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐))))
288	287	exbidv 1923	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑧 = (𝑓‘suc ∅) → (∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ↔ ∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = (𝑓‘suc ∅) ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐))))
289		breq2 5089	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑧 = (𝑓‘suc ∅) → (𝑦(𝑅 ↾ 𝐴)𝑧 ↔ 𝑦(𝑅 ↾ 𝐴)(𝑓‘suc ∅)))
290	288, 289	anbi12d 633	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑧 = (𝑓‘suc ∅) → ((∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ↔ (∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = (𝑓‘suc ∅) ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)(𝑓‘suc ∅))))
291	228, 290	spcev 3548	. . . . . . . . . . . . . . . . 17 ⊢ ((∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = (𝑓‘suc ∅) ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)(𝑓‘suc ∅)) → ∃𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧))
292	278, 284, 291	syl2anc 585	. . . . . . . . . . . . . . . 16 ⊢ ((𝑛 ∈ ω ∧ (𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))) → ∃𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧))
293	292	ex 412	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ω → ((𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) → ∃𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧)))
294	293	exlimdv 1935	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ω → (∃𝑓(𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) → ∃𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧)))
295		fvex 6853	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑔‘∪ 𝑏) ∈ V
296	100, 295	ifex 4517	. . . . . . . . . . . . . . . . . . . . 21 ⊢ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)) ∈ V
297		eqid 2736	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏))) = (𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))
298	296, 297	fnmpti 6641	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏))) Fn suc suc suc 𝑛
299	298	a1i 11	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) → (𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏))) Fn suc suc suc 𝑛)
300		peano2 7841	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (suc 𝑛 ∈ ω → suc suc 𝑛 ∈ ω)
301	220, 300	syl 17	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑛 ∈ ω → suc suc 𝑛 ∈ ω)
302	301	3ad2ant1 1134	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) → suc suc 𝑛 ∈ ω)
303		nnord 7825	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (suc suc 𝑛 ∈ ω → Ord suc suc 𝑛)
304	302, 303	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) → Ord suc suc 𝑛)
305		0elsuc 7786	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (Ord suc suc 𝑛 → ∅ ∈ suc suc suc 𝑛)
306	304, 305	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) → ∅ ∈ suc suc suc 𝑛)
307		iftrue 4472	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑏 = ∅ → if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)) = 𝑦)
308	307, 297, 100	fvmpt 6947	. . . . . . . . . . . . . . . . . . . 20 ⊢ (∅ ∈ suc suc suc 𝑛 → ((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘∅) = 𝑦)
309	306, 308	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) → ((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘∅) = 𝑦)
310	264	sucid 6407	. . . . . . . . . . . . . . . . . . . . 21 ⊢ suc suc 𝑛 ∈ suc suc suc 𝑛
311		eqeq1 2740	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑏 = suc suc 𝑛 → (𝑏 = ∅ ↔ suc suc 𝑛 = ∅))
312		unieq 4861	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑏 = suc suc 𝑛 → ∪ 𝑏 = ∪ suc suc 𝑛)
313	312	fveq2d 6844	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑏 = suc suc 𝑛 → (𝑔‘∪ 𝑏) = (𝑔‘∪ suc suc 𝑛))
314	311, 313	ifbieq2d 4493	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑏 = suc suc 𝑛 → if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)) = if(suc suc 𝑛 = ∅, 𝑦, (𝑔‘∪ suc suc 𝑛)))
315		nsuceq0 6408	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ suc suc 𝑛 ≠ ∅
316	315	neii 2934	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ¬ suc suc 𝑛 = ∅
317	316	iffalsei 4476	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ if(suc suc 𝑛 = ∅, 𝑦, (𝑔‘∪ suc suc 𝑛)) = (𝑔‘∪ suc suc 𝑛)
318	314, 317	eqtrdi 2787	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑏 = suc suc 𝑛 → if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)) = (𝑔‘∪ suc suc 𝑛))
319		fvex 6853	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑔‘∪ suc suc 𝑛) ∈ V
320	318, 297, 319	fvmpt 6947	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (suc suc 𝑛 ∈ suc suc suc 𝑛 → ((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘suc suc 𝑛) = (𝑔‘∪ suc suc 𝑛))
321	310, 320	mp1i 13	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) → ((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘suc suc 𝑛) = (𝑔‘∪ suc suc 𝑛))
322	220	3ad2ant1 1134	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) → suc 𝑛 ∈ ω)
323	322, 222	syl 17	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) → Ord suc 𝑛)
324		ordunisuc 7783	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (Ord suc 𝑛 → ∪ suc suc 𝑛 = suc 𝑛)
325	323, 324	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) → ∪ suc suc 𝑛 = suc 𝑛)
326	325	fveq2d 6844	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) → (𝑔‘∪ suc suc 𝑛) = (𝑔‘suc 𝑛))
327		simp22r 1295	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) → (𝑔‘suc 𝑛) = 𝑥)
328	321, 326, 327	3eqtrd 2775	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) → ((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘suc suc 𝑛) = 𝑥)
329		simpl3 1195	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ∧ 𝑎 = ∅) → 𝑦(𝑅 ↾ 𝐴)𝑧)
330		iftrue 4472	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑎 = ∅ → if(𝑎 = ∅, 𝑦, (𝑔‘∪ 𝑎)) = 𝑦)
331	330	adantl 481	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ∧ 𝑎 = ∅) → if(𝑎 = ∅, 𝑦, (𝑔‘∪ 𝑎)) = 𝑦)
332		fveq2 6840	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑎 = ∅ → (𝑔‘𝑎) = (𝑔‘∅))
333		simp22l 1294	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) → (𝑔‘∅) = 𝑧)
334	332, 333	sylan9eqr 2793	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ∧ 𝑎 = ∅) → (𝑔‘𝑎) = 𝑧)
335	329, 331, 334	3brtr4d 5117	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ∧ 𝑎 = ∅) → if(𝑎 = ∅, 𝑦, (𝑔‘∪ 𝑎))(𝑅 ↾ 𝐴)(𝑔‘𝑎))
336	335	ex 412	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) → (𝑎 = ∅ → if(𝑎 = ∅, 𝑦, (𝑔‘∪ 𝑎))(𝑅 ↾ 𝐴)(𝑔‘𝑎)))
337	336	adantr 480	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ∧ 𝑎 ∈ suc suc 𝑛) → (𝑎 = ∅ → if(𝑎 = ∅, 𝑦, (𝑔‘∪ 𝑎))(𝑅 ↾ 𝐴)(𝑔‘𝑎)))
338		ordsucelsuc 7773	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (Ord suc 𝑛 → (𝑏 ∈ suc 𝑛 ↔ suc 𝑏 ∈ suc suc 𝑛))
339	323, 338	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) → (𝑏 ∈ suc 𝑛 ↔ suc 𝑏 ∈ suc suc 𝑛))
340		elnn 7828	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ ((𝑏 ∈ suc 𝑛 ∧ suc 𝑛 ∈ ω) → 𝑏 ∈ ω)
341	322, 340	sylan2 594	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((𝑏 ∈ suc 𝑛 ∧ (𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧)) → 𝑏 ∈ ω)
342	341	ancoms 458	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ∧ 𝑏 ∈ suc 𝑛) → 𝑏 ∈ ω)
343		nnord 7825	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑏 ∈ ω → Ord 𝑏)
344	342, 343	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ∧ 𝑏 ∈ suc 𝑛) → Ord 𝑏)
345		ordunisuc 7783	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (Ord 𝑏 → ∪ suc 𝑏 = 𝑏)
346	344, 345	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ∧ 𝑏 ∈ suc 𝑛) → ∪ suc 𝑏 = 𝑏)
347	346	fveq2d 6844	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ∧ 𝑏 ∈ suc 𝑛) → (𝑔‘∪ suc 𝑏) = (𝑔‘𝑏))
348		simp23 1210	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) → ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐))
349		fveq2 6840	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑐 = 𝑏 → (𝑔‘𝑐) = (𝑔‘𝑏))
350		suceq 6391	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝑐 = 𝑏 → suc 𝑐 = suc 𝑏)
351	350	fveq2d 6844	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑐 = 𝑏 → (𝑔‘suc 𝑐) = (𝑔‘suc 𝑏))
352	349, 351	breq12d 5098	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑐 = 𝑏 → ((𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐) ↔ (𝑔‘𝑏)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑏)))
353	352	rspcv 3560	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑏 ∈ suc 𝑛 → (∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐) → (𝑔‘𝑏)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑏)))
354	348, 353	mpan9 506	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ∧ 𝑏 ∈ suc 𝑛) → (𝑔‘𝑏)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑏))
355	347, 354	eqbrtrd 5107	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ∧ 𝑏 ∈ suc 𝑛) → (𝑔‘∪ suc 𝑏)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑏))
356	355	ex 412	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) → (𝑏 ∈ suc 𝑛 → (𝑔‘∪ suc 𝑏)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑏)))
357	339, 356	sylbird 260	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) → (suc 𝑏 ∈ suc suc 𝑛 → (𝑔‘∪ suc 𝑏)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑏)))
358	357	imp 406	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ∧ suc 𝑏 ∈ suc suc 𝑛) → (𝑔‘∪ suc 𝑏)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑏))
359		eleq1 2824	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑎 = suc 𝑏 → (𝑎 ∈ suc suc 𝑛 ↔ suc 𝑏 ∈ suc suc 𝑛))
360	359	anbi2d 631	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑎 = suc 𝑏 → (((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ∧ 𝑎 ∈ suc suc 𝑛) ↔ ((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ∧ suc 𝑏 ∈ suc suc 𝑛)))
361		eqeq1 2740	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑎 = suc 𝑏 → (𝑎 = ∅ ↔ suc 𝑏 = ∅))
362		unieq 4861	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑎 = suc 𝑏 → ∪ 𝑎 = ∪ suc 𝑏)
363	362	fveq2d 6844	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑎 = suc 𝑏 → (𝑔‘∪ 𝑎) = (𝑔‘∪ suc 𝑏))
364	361, 363	ifbieq2d 4493	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑎 = suc 𝑏 → if(𝑎 = ∅, 𝑦, (𝑔‘∪ 𝑎)) = if(suc 𝑏 = ∅, 𝑦, (𝑔‘∪ suc 𝑏)))
365		nsuceq0 6408	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ suc 𝑏 ≠ ∅
366	365	neii 2934	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ¬ suc 𝑏 = ∅
367	366	iffalsei 4476	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ if(suc 𝑏 = ∅, 𝑦, (𝑔‘∪ suc 𝑏)) = (𝑔‘∪ suc 𝑏)
368	364, 367	eqtrdi 2787	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑎 = suc 𝑏 → if(𝑎 = ∅, 𝑦, (𝑔‘∪ 𝑎)) = (𝑔‘∪ suc 𝑏))
369		fveq2 6840	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑎 = suc 𝑏 → (𝑔‘𝑎) = (𝑔‘suc 𝑏))
370	368, 369	breq12d 5098	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑎 = suc 𝑏 → (if(𝑎 = ∅, 𝑦, (𝑔‘∪ 𝑎))(𝑅 ↾ 𝐴)(𝑔‘𝑎) ↔ (𝑔‘∪ suc 𝑏)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑏)))
371	360, 370	imbi12d 344	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑎 = suc 𝑏 → ((((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ∧ 𝑎 ∈ suc suc 𝑛) → if(𝑎 = ∅, 𝑦, (𝑔‘∪ 𝑎))(𝑅 ↾ 𝐴)(𝑔‘𝑎)) ↔ (((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ∧ suc 𝑏 ∈ suc suc 𝑛) → (𝑔‘∪ suc 𝑏)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑏))))
372	358, 371	mpbiri 258	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑎 = suc 𝑏 → (((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ∧ 𝑎 ∈ suc suc 𝑛) → if(𝑎 = ∅, 𝑦, (𝑔‘∪ 𝑎))(𝑅 ↾ 𝐴)(𝑔‘𝑎)))
373	372	com12 32	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ∧ 𝑎 ∈ suc suc 𝑛) → (𝑎 = suc 𝑏 → if(𝑎 = ∅, 𝑦, (𝑔‘∪ 𝑎))(𝑅 ↾ 𝐴)(𝑔‘𝑎)))
374	373	rexlimdvw 3143	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ∧ 𝑎 ∈ suc suc 𝑛) → (∃𝑏 ∈ ω 𝑎 = suc 𝑏 → if(𝑎 = ∅, 𝑦, (𝑔‘∪ 𝑎))(𝑅 ↾ 𝐴)(𝑔‘𝑎)))
375		elnn 7828	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑎 ∈ suc suc 𝑛 ∧ suc suc 𝑛 ∈ ω) → 𝑎 ∈ ω)
376	375	ancoms 458	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((suc suc 𝑛 ∈ ω ∧ 𝑎 ∈ suc suc 𝑛) → 𝑎 ∈ ω)
377	302, 376	sylan 581	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ∧ 𝑎 ∈ suc suc 𝑛) → 𝑎 ∈ ω)
378		nn0suc 7845	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑎 ∈ ω → (𝑎 = ∅ ∨ ∃𝑏 ∈ ω 𝑎 = suc 𝑏))
379	377, 378	syl 17	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ∧ 𝑎 ∈ suc suc 𝑛) → (𝑎 = ∅ ∨ ∃𝑏 ∈ ω 𝑎 = suc 𝑏))
380	337, 374, 379	mpjaod 861	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ∧ 𝑎 ∈ suc suc 𝑛) → if(𝑎 = ∅, 𝑦, (𝑔‘∪ 𝑎))(𝑅 ↾ 𝐴)(𝑔‘𝑎))
381		elelsuc 6398	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑎 ∈ suc suc 𝑛 → 𝑎 ∈ suc suc suc 𝑛)
382		eqeq1 2740	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑏 = 𝑎 → (𝑏 = ∅ ↔ 𝑎 = ∅))
383		unieq 4861	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑏 = 𝑎 → ∪ 𝑏 = ∪ 𝑎)
384	383	fveq2d 6844	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑏 = 𝑎 → (𝑔‘∪ 𝑏) = (𝑔‘∪ 𝑎))
385	382, 384	ifbieq2d 4493	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑏 = 𝑎 → if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)) = if(𝑎 = ∅, 𝑦, (𝑔‘∪ 𝑎)))
386		fvex 6853	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑔‘∪ 𝑎) ∈ V
387	100, 386	ifex 4517	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ if(𝑎 = ∅, 𝑦, (𝑔‘∪ 𝑎)) ∈ V
388	385, 297, 387	fvmpt 6947	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑎 ∈ suc suc suc 𝑛 → ((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘𝑎) = if(𝑎 = ∅, 𝑦, (𝑔‘∪ 𝑎)))
389	381, 388	syl 17	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑎 ∈ suc suc 𝑛 → ((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘𝑎) = if(𝑎 = ∅, 𝑦, (𝑔‘∪ 𝑎)))
390	389	adantl 481	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ∧ 𝑎 ∈ suc suc 𝑛) → ((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘𝑎) = if(𝑎 = ∅, 𝑦, (𝑔‘∪ 𝑎)))
391		ordsucelsuc 7773	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (Ord suc suc 𝑛 → (𝑎 ∈ suc suc 𝑛 ↔ suc 𝑎 ∈ suc suc suc 𝑛))
392	304, 391	syl 17	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) → (𝑎 ∈ suc suc 𝑛 ↔ suc 𝑎 ∈ suc suc suc 𝑛))
393	392	biimpa 476	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ∧ 𝑎 ∈ suc suc 𝑛) → suc 𝑎 ∈ suc suc suc 𝑛)
394		eqeq1 2740	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑏 = suc 𝑎 → (𝑏 = ∅ ↔ suc 𝑎 = ∅))
395		unieq 4861	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑏 = suc 𝑎 → ∪ 𝑏 = ∪ suc 𝑎)
396	395	fveq2d 6844	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑏 = suc 𝑎 → (𝑔‘∪ 𝑏) = (𝑔‘∪ suc 𝑎))
397	394, 396	ifbieq2d 4493	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑏 = suc 𝑎 → if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)) = if(suc 𝑎 = ∅, 𝑦, (𝑔‘∪ suc 𝑎)))
398		nsuceq0 6408	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ suc 𝑎 ≠ ∅
399	398	neii 2934	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ¬ suc 𝑎 = ∅
400	399	iffalsei 4476	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ if(suc 𝑎 = ∅, 𝑦, (𝑔‘∪ suc 𝑎)) = (𝑔‘∪ suc 𝑎)
401	397, 400	eqtrdi 2787	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑏 = suc 𝑎 → if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)) = (𝑔‘∪ suc 𝑎))
402		fvex 6853	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑔‘∪ suc 𝑎) ∈ V
403	401, 297, 402	fvmpt 6947	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (suc 𝑎 ∈ suc suc suc 𝑛 → ((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘suc 𝑎) = (𝑔‘∪ suc 𝑎))
404	393, 403	syl 17	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ∧ 𝑎 ∈ suc suc 𝑛) → ((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘suc 𝑎) = (𝑔‘∪ suc 𝑎))
405		nnord 7825	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑎 ∈ ω → Ord 𝑎)
406	377, 405	syl 17	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ∧ 𝑎 ∈ suc suc 𝑛) → Ord 𝑎)
407		ordunisuc 7783	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (Ord 𝑎 → ∪ suc 𝑎 = 𝑎)
408	406, 407	syl 17	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ∧ 𝑎 ∈ suc suc 𝑛) → ∪ suc 𝑎 = 𝑎)
409	408	fveq2d 6844	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ∧ 𝑎 ∈ suc suc 𝑛) → (𝑔‘∪ suc 𝑎) = (𝑔‘𝑎))
410	404, 409	eqtrd 2771	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ∧ 𝑎 ∈ suc suc 𝑛) → ((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘suc 𝑎) = (𝑔‘𝑎))
411	380, 390, 410	3brtr4d 5117	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ∧ 𝑎 ∈ suc suc 𝑛) → ((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘𝑎)(𝑅 ↾ 𝐴)((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘suc 𝑎))
412	411	ralrimiva 3129	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) → ∀𝑎 ∈ suc suc 𝑛((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘𝑎)(𝑅 ↾ 𝐴)((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘suc 𝑎))
413	264	sucex 7760	. . . . . . . . . . . . . . . . . . . . 21 ⊢ suc suc suc 𝑛 ∈ V
414	413	mptex 7178	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏))) ∈ V
415		fneq1 6589	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑓 = (𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏))) → (𝑓 Fn suc suc suc 𝑛 ↔ (𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏))) Fn suc suc suc 𝑛))
416		fveq1 6839	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑓 = (𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏))) → (𝑓‘∅) = ((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘∅))
417	416	eqeq1d 2738	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑓 = (𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏))) → ((𝑓‘∅) = 𝑦 ↔ ((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘∅) = 𝑦))
418		fveq1 6839	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑓 = (𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏))) → (𝑓‘suc suc 𝑛) = ((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘suc suc 𝑛))
419	418	eqeq1d 2738	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑓 = (𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏))) → ((𝑓‘suc suc 𝑛) = 𝑥 ↔ ((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘suc suc 𝑛) = 𝑥))
420	417, 419	anbi12d 633	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑓 = (𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏))) → (((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ↔ (((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘∅) = 𝑦 ∧ ((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘suc suc 𝑛) = 𝑥)))
421		fveq1 6839	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑓 = (𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏))) → (𝑓‘𝑎) = ((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘𝑎))
422		fveq1 6839	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑓 = (𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏))) → (𝑓‘suc 𝑎) = ((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘suc 𝑎))
423	421, 422	breq12d 5098	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑓 = (𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏))) → ((𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎) ↔ ((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘𝑎)(𝑅 ↾ 𝐴)((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘suc 𝑎)))
424	423	ralbidv 3160	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑓 = (𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏))) → (∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎) ↔ ∀𝑎 ∈ suc suc 𝑛((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘𝑎)(𝑅 ↾ 𝐴)((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘suc 𝑎)))
425	415, 420, 424	3anbi123d 1439	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑓 = (𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏))) → ((𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ ((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏))) Fn suc suc suc 𝑛 ∧ (((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘∅) = 𝑦 ∧ ((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘𝑎)(𝑅 ↾ 𝐴)((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘suc 𝑎))))
426	414, 425	spcev 3548	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏))) Fn suc suc suc 𝑛 ∧ (((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘∅) = 𝑦 ∧ ((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘𝑎)(𝑅 ↾ 𝐴)((𝑏 ∈ suc suc suc 𝑛 ↦ if(𝑏 = ∅, 𝑦, (𝑔‘∪ 𝑏)))‘suc 𝑎)) → ∃𝑓(𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)))
427	299, 309, 328, 412, 426	syl121anc 1378	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑛 ∈ ω ∧ (𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) → ∃𝑓(𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)))
428	427	3exp 1120	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ω → ((𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) → (𝑦(𝑅 ↾ 𝐴)𝑧 → ∃𝑓(𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)))))
429	428	exlimdv 1935	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ω → (∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) → (𝑦(𝑅 ↾ 𝐴)𝑧 → ∃𝑓(𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)))))
430	429	impd 410	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ω → ((∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) → ∃𝑓(𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))))
431	430	exlimdv 1935	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ω → (∃𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) → ∃𝑓(𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎))))
432	294, 431	impbid 212	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ω → (∃𝑓(𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ ∃𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧)))
433		vex 3433	. . . . . . . . . . . . . . . 16 ⊢ 𝑧 ∈ V
434	433	brresi 5953	. . . . . . . . . . . . . . 15 ⊢ (𝑦(𝑅 ↾ 𝐴)𝑧 ↔ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑧))
435	434	anbi2i 624	. . . . . . . . . . . . . 14 ⊢ ((∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ↔ (∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑧)))
436	435	exbii 1850	. . . . . . . . . . . . 13 ⊢ (∃𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ 𝑦(𝑅 ↾ 𝐴)𝑧) ↔ ∃𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑧)))
437	432, 436	bitrdi 287	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ω → (∃𝑓(𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑥) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ ∃𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑥) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑧))))
438	215, 437	vtoclg 3499	. . . . . . . . . . 11 ⊢ (𝑋 ∈ 𝐴 → (𝑛 ∈ ω → (∃𝑓(𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑋) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ ∃𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑧)))))
439	438	impcom 407	. . . . . . . . . 10 ⊢ ((𝑛 ∈ ω ∧ 𝑋 ∈ 𝐴) → (∃𝑓(𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑋) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ ∃𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑧))))
440	439	adantrl 717	. . . . . . . . 9 ⊢ ((𝑛 ∈ ω ∧ (𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴)) → (∃𝑓(𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑋) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ ∃𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑧))))
441	440	3adant3 1133	. . . . . . . 8 ⊢ ((𝑛 ∈ ω ∧ (𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) ∧ ∀𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ↔ 𝑧 ∈ (𝐹‘𝑛))) → (∃𝑓(𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑋) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ ∃𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦𝑅𝑧))))
442	175, 203, 441	3bitr4rd 312	. . . . . . 7 ⊢ ((𝑛 ∈ ω ∧ (𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) ∧ ∀𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ↔ 𝑧 ∈ (𝐹‘𝑛))) → (∃𝑓(𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑋) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ 𝑦 ∈ (𝐹‘suc 𝑛)))
443	442	alrimiv 1929	. . . . . 6 ⊢ ((𝑛 ∈ ω ∧ (𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) ∧ ∀𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ↔ 𝑧 ∈ (𝐹‘𝑛))) → ∀𝑦(∃𝑓(𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑋) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ 𝑦 ∈ (𝐹‘suc 𝑛)))
444	443	3exp 1120	. . . . 5 ⊢ (𝑛 ∈ ω → ((𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) → (∀𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ↔ 𝑧 ∈ (𝐹‘𝑛)) → ∀𝑦(∃𝑓(𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑋) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ 𝑦 ∈ (𝐹‘suc 𝑛)))))
445	444	a2d 29	. . . 4 ⊢ (𝑛 ∈ ω → (((𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) → ∀𝑧(∃𝑔(𝑔 Fn suc suc 𝑛 ∧ ((𝑔‘∅) = 𝑧 ∧ (𝑔‘suc 𝑛) = 𝑋) ∧ ∀𝑐 ∈ suc 𝑛(𝑔‘𝑐)(𝑅 ↾ 𝐴)(𝑔‘suc 𝑐)) ↔ 𝑧 ∈ (𝐹‘𝑛))) → ((𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) → ∀𝑦(∃𝑓(𝑓 Fn suc suc suc 𝑛 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc suc 𝑛) = 𝑋) ∧ ∀𝑎 ∈ suc suc 𝑛(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ 𝑦 ∈ (𝐹‘suc 𝑛)))))
446	26, 67, 81, 95, 164, 445	finds 7847	. . 3 ⊢ (𝑁 ∈ ω → ((𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) → ∀𝑦(∃𝑓(𝑓 Fn suc suc 𝑁 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑁) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑁(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ 𝑦 ∈ (𝐹‘𝑁))))
447	446	3impib 1117	. 2 ⊢ ((𝑁 ∈ ω ∧ 𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) → ∀𝑦(∃𝑓(𝑓 Fn suc suc 𝑁 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑁) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑁(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ 𝑦 ∈ (𝐹‘𝑁)))
448	447	19.21bi 2197	1 ⊢ ((𝑁 ∈ ω ∧ 𝑅 Se 𝐴 ∧ 𝑋 ∈ 𝐴) → (∃𝑓(𝑓 Fn suc suc 𝑁 ∧ ((𝑓‘∅) = 𝑦 ∧ (𝑓‘suc 𝑁) = 𝑋) ∧ ∀𝑎 ∈ suc 𝑁(𝑓‘𝑎)(𝑅 ↾ 𝐴)(𝑓‘suc 𝑎)) ↔ 𝑦 ∈ (𝐹‘𝑁)))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∨ wo 848   ∧ w3a 1087  ∀wal 1540   = wceq 1542  ∃wex 1781   ∈ wcel 2114  ∀wral 3051  ∃wrex 3061  Vcvv 3429   ⊆ wss 3889  ∅c0 4273  ifcif 4466  {csn 4567  ∪ cuni 4850  ∪ ciun 4933   class class class wbr 5085   ↦ cmpt 5166   Se wse 5582   ↾ cres 5633  Predcpred 6264  Ord word 6322  Oncon0 6323  suc csuc 6325   Fn wfn 6493  ‘cfv 6498  ωcom 7817  reccrdg 8348  1_oc1o 8398

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2708  ax-rep 5212  ax-sep 5231  ax-nul 5241  ax-pr 5375  ax-un 7689

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2539  df-eu 2569  df-clab 2715  df-cleq 2728  df-clel 2811  df-nfc 2885  df-ne 2933  df-ral 3052  df-rex 3062  df-reu 3343  df-rab 3390  df-v 3431  df-sbc 3729  df-csb 3838  df-dif 3892  df-un 3894  df-in 3896  df-ss 3906  df-pss 3909  df-nul 4274  df-if 4467  df-pw 4543  df-sn 4568  df-pr 4570  df-op 4574  df-uni 4851  df-iun 4935  df-br 5086  df-opab 5148  df-mpt 5167  df-tr 5193  df-id 5526  df-eprel 5531  df-po 5539  df-so 5540  df-fr 5584  df-se 5585  df-we 5586  df-xp 5637  df-rel 5638  df-cnv 5639  df-co 5640  df-dm 5641  df-rn 5642  df-res 5643  df-ima 5644  df-pred 6265  df-ord 6326  df-on 6327  df-lim 6328  df-suc 6329  df-iota 6454  df-fun 6500  df-fn 6501  df-f 6502  df-f1 6503  df-fo 6504  df-f1o 6505  df-fv 6506  df-ov 7370  df-om 7818  df-2nd 7943  df-frecs 8231  df-wrecs 8262  df-recs 8311  df-rdg 8349  df-1o 8405

This theorem is referenced by:  ttrclse  9648