Theorem aomclem8 43057

Description: Lemma for dfac11 43058. Perform variable substitutions. This is the most we can say without invoking regularity. (Contributed by Stefan O'Rear, 20-Jan-2015.)

Hypotheses

Ref	Expression
aomclem8.a	⊢ (𝜑 → 𝐴 ∈ On)
aomclem8.y	⊢ (𝜑 → ∀𝑎 ∈ 𝒫 (𝑅1‘𝐴)(𝑎 ≠ ∅ → (𝑦‘𝑎) ∈ ((𝒫 𝑎 ∩ Fin) ∖ {∅})))

Assertion

Ref	Expression
aomclem8	⊢ (𝜑 → ∃𝑏 𝑏 We (𝑅1‘𝐴))

Distinct variable groups:   𝜑,𝑏   𝐴,𝑎,𝑏   𝑦,𝑎,𝑏

Allowed substitution hints:   𝜑(𝑦,𝑎)   𝐴(𝑦)

Proof of Theorem aomclem8

Dummy variables 𝑐 𝑑 𝑒 𝑓 𝑔 ℎ 𝑖 𝑗 𝑙 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		elequ2 2124	. . . . . . 7 ⊢ (ℎ = 𝑏 → (𝑖 ∈ ℎ ↔ 𝑖 ∈ 𝑏))
2		elequ2 2124	. . . . . . . 8 ⊢ (𝑔 = 𝑐 → (𝑖 ∈ 𝑔 ↔ 𝑖 ∈ 𝑐))
3	2	notbid 318	. . . . . . 7 ⊢ (𝑔 = 𝑐 → (¬ 𝑖 ∈ 𝑔 ↔ ¬ 𝑖 ∈ 𝑐))
4	1, 3	bi2anan9r 639	. . . . . 6 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → ((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ↔ (𝑖 ∈ 𝑏 ∧ ¬ 𝑖 ∈ 𝑐)))
5		elequ2 2124	. . . . . . . . 9 ⊢ (𝑔 = 𝑐 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ 𝑐))
6		elequ2 2124	. . . . . . . . 9 ⊢ (ℎ = 𝑏 → (𝑗 ∈ ℎ ↔ 𝑗 ∈ 𝑏))
7	5, 6	bi2bian9 640	. . . . . . . 8 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → ((𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ) ↔ (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)))
8	7	imbi2d 340	. . . . . . 7 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → ((𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)) ↔ (𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏))))
9	8	ralbidv 3157	. . . . . 6 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)) ↔ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏))))
10	4, 9	anbi12d 632	. . . . 5 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))) ↔ ((𝑖 ∈ 𝑏 ∧ ¬ 𝑖 ∈ 𝑐) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)))))
11	10	rexbidv 3158	. . . 4 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))) ↔ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ 𝑏 ∧ ¬ 𝑖 ∈ 𝑐) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)))))
12		elequ1 2116	. . . . . . 7 ⊢ (𝑖 = 𝑑 → (𝑖 ∈ 𝑏 ↔ 𝑑 ∈ 𝑏))
13		elequ1 2116	. . . . . . . 8 ⊢ (𝑖 = 𝑑 → (𝑖 ∈ 𝑐 ↔ 𝑑 ∈ 𝑐))
14	13	notbid 318	. . . . . . 7 ⊢ (𝑖 = 𝑑 → (¬ 𝑖 ∈ 𝑐 ↔ ¬ 𝑑 ∈ 𝑐))
15	12, 14	anbi12d 632	. . . . . 6 ⊢ (𝑖 = 𝑑 → ((𝑖 ∈ 𝑏 ∧ ¬ 𝑖 ∈ 𝑐) ↔ (𝑑 ∈ 𝑏 ∧ ¬ 𝑑 ∈ 𝑐)))
16		breq2 5114	. . . . . . . . 9 ⊢ (𝑖 = 𝑑 → (𝑗(𝑒‘∪ dom 𝑒)𝑖 ↔ 𝑗(𝑒‘∪ dom 𝑒)𝑑))
17	16	imbi1d 341	. . . . . . . 8 ⊢ (𝑖 = 𝑑 → ((𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)) ↔ (𝑗(𝑒‘∪ dom 𝑒)𝑑 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏))))
18	17	ralbidv 3157	. . . . . . 7 ⊢ (𝑖 = 𝑑 → (∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)) ↔ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑑 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏))))
19		breq1 5113	. . . . . . . . 9 ⊢ (𝑗 = 𝑓 → (𝑗(𝑒‘∪ dom 𝑒)𝑑 ↔ 𝑓(𝑒‘∪ dom 𝑒)𝑑))
20		elequ1 2116	. . . . . . . . . 10 ⊢ (𝑗 = 𝑓 → (𝑗 ∈ 𝑐 ↔ 𝑓 ∈ 𝑐))
21		elequ1 2116	. . . . . . . . . 10 ⊢ (𝑗 = 𝑓 → (𝑗 ∈ 𝑏 ↔ 𝑓 ∈ 𝑏))
22	20, 21	bibi12d 345	. . . . . . . . 9 ⊢ (𝑗 = 𝑓 → ((𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏) ↔ (𝑓 ∈ 𝑐 ↔ 𝑓 ∈ 𝑏)))
23	19, 22	imbi12d 344	. . . . . . . 8 ⊢ (𝑗 = 𝑓 → ((𝑗(𝑒‘∪ dom 𝑒)𝑑 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)) ↔ (𝑓(𝑒‘∪ dom 𝑒)𝑑 → (𝑓 ∈ 𝑐 ↔ 𝑓 ∈ 𝑏))))
24	23	cbvralvw 3216	. . . . . . 7 ⊢ (∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑑 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)) ↔ ∀𝑓 ∈ (𝑅1‘∪ dom 𝑒)(𝑓(𝑒‘∪ dom 𝑒)𝑑 → (𝑓 ∈ 𝑐 ↔ 𝑓 ∈ 𝑏)))
25	18, 24	bitrdi 287	. . . . . 6 ⊢ (𝑖 = 𝑑 → (∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)) ↔ ∀𝑓 ∈ (𝑅1‘∪ dom 𝑒)(𝑓(𝑒‘∪ dom 𝑒)𝑑 → (𝑓 ∈ 𝑐 ↔ 𝑓 ∈ 𝑏))))
26	15, 25	anbi12d 632	. . . . 5 ⊢ (𝑖 = 𝑑 → (((𝑖 ∈ 𝑏 ∧ ¬ 𝑖 ∈ 𝑐) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏))) ↔ ((𝑑 ∈ 𝑏 ∧ ¬ 𝑑 ∈ 𝑐) ∧ ∀𝑓 ∈ (𝑅1‘∪ dom 𝑒)(𝑓(𝑒‘∪ dom 𝑒)𝑑 → (𝑓 ∈ 𝑐 ↔ 𝑓 ∈ 𝑏)))))
27	26	cbvrexvw 3217	. . . 4 ⊢ (∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ 𝑏 ∧ ¬ 𝑖 ∈ 𝑐) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏))) ↔ ∃𝑑 ∈ (𝑅1‘∪ dom 𝑒)((𝑑 ∈ 𝑏 ∧ ¬ 𝑑 ∈ 𝑐) ∧ ∀𝑓 ∈ (𝑅1‘∪ dom 𝑒)(𝑓(𝑒‘∪ dom 𝑒)𝑑 → (𝑓 ∈ 𝑐 ↔ 𝑓 ∈ 𝑏))))
28	11, 27	bitrdi 287	. . 3 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))) ↔ ∃𝑑 ∈ (𝑅1‘∪ dom 𝑒)((𝑑 ∈ 𝑏 ∧ ¬ 𝑑 ∈ 𝑐) ∧ ∀𝑓 ∈ (𝑅1‘∪ dom 𝑒)(𝑓(𝑒‘∪ dom 𝑒)𝑑 → (𝑓 ∈ 𝑐 ↔ 𝑓 ∈ 𝑏)))))
29	28	cbvopabv 5183	. 2 ⊢ {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))} = {⟨𝑐, 𝑏⟩ ∣ ∃𝑑 ∈ (𝑅1‘∪ dom 𝑒)((𝑑 ∈ 𝑏 ∧ ¬ 𝑑 ∈ 𝑐) ∧ ∀𝑓 ∈ (𝑅1‘∪ dom 𝑒)(𝑓(𝑒‘∪ dom 𝑒)𝑑 → (𝑓 ∈ 𝑐 ↔ 𝑓 ∈ 𝑏)))}
30		nfcv 2892	. . 3 ⊢ Ⅎ𝑐sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})
31		nfcv 2892	. . . 4 ⊢ Ⅎ𝑔(𝑦‘𝑐)
32		nfcv 2892	. . . 4 ⊢ Ⅎ𝑔(𝑅1‘dom 𝑒)
33		nfopab1 5180	. . . 4 ⊢ Ⅎ𝑔{⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}
34	31, 32, 33	nfsup 9409	. . 3 ⊢ Ⅎ𝑔sup((𝑦‘𝑐), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})
35		fveq2 6861	. . . 4 ⊢ (𝑔 = 𝑐 → (𝑦‘𝑔) = (𝑦‘𝑐))
36	35	supeq1d 9404	. . 3 ⊢ (𝑔 = 𝑐 → sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}) = sup((𝑦‘𝑐), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))
37	30, 34, 36	cbvmpt 5212	. 2 ⊢ (𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})) = (𝑐 ∈ V ↦ sup((𝑦‘𝑐), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))
38		nfcv 2892	. . . 4 ⊢ Ⅎ𝑐((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))
39		nffvmpt1 6872	. . . 4 ⊢ Ⅎ𝑔((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑐))
40		rneq 5903	. . . . . 6 ⊢ (𝑔 = 𝑐 → ran 𝑔 = ran 𝑐)
41	40	difeq2d 4092	. . . . 5 ⊢ (𝑔 = 𝑐 → ((𝑅1‘dom 𝑒) ∖ ran 𝑔) = ((𝑅1‘dom 𝑒) ∖ ran 𝑐))
42	41	fveq2d 6865	. . . 4 ⊢ (𝑔 = 𝑐 → ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)) = ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑐)))
43	38, 39, 42	cbvmpt 5212	. . 3 ⊢ (𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))) = (𝑐 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑐)))
44		recseq 8345	. . 3 ⊢ ((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))) = (𝑐 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑐))) → recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) = recs((𝑐 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑐)))))
45	43, 44	ax-mp 5	. 2 ⊢ recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) = recs((𝑐 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑐))))
46		nfv 1914	. . 3 ⊢ Ⅎ𝑐∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑔}) ∈ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {ℎ})
47		nfv 1914	. . 3 ⊢ Ⅎ𝑏∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑔}) ∈ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {ℎ})
48		nfmpt1 5209	. . . . . . . 8 ⊢ Ⅎ𝑔(𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))
49	48	nfrecs 8346	. . . . . . 7 ⊢ Ⅎ𝑔recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))))
50	49	nfcnv 5845	. . . . . 6 ⊢ Ⅎ𝑔◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))))
51		nfcv 2892	. . . . . 6 ⊢ Ⅎ𝑔{𝑐}
52	50, 51	nfima 6042	. . . . 5 ⊢ Ⅎ𝑔(◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐})
53	52	nfint 4923	. . . 4 ⊢ Ⅎ𝑔∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐})
54		nfcv 2892	. . . . . 6 ⊢ Ⅎ𝑔{𝑏}
55	50, 54	nfima 6042	. . . . 5 ⊢ Ⅎ𝑔(◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})
56	55	nfint 4923	. . . 4 ⊢ Ⅎ𝑔∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})
57	53, 56	nfel 2907	. . 3 ⊢ Ⅎ𝑔∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐}) ∈ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})
58		nfcv 2892	. . . . . . . . 9 ⊢ ℲℎV
59		nfcv 2892	. . . . . . . . . . . 12 ⊢ Ⅎℎ(𝑦‘𝑔)
60		nfcv 2892	. . . . . . . . . . . 12 ⊢ Ⅎℎ(𝑅1‘dom 𝑒)
61		nfopab2 5181	. . . . . . . . . . . 12 ⊢ Ⅎℎ{⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}
62	59, 60, 61	nfsup 9409	. . . . . . . . . . 11 ⊢ Ⅎℎsup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})
63	58, 62	nfmpt 5208	. . . . . . . . . 10 ⊢ Ⅎℎ(𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))
64		nfcv 2892	. . . . . . . . . 10 ⊢ Ⅎℎ((𝑅1‘dom 𝑒) ∖ ran 𝑔)
65	63, 64	nffv 6871	. . . . . . . . 9 ⊢ Ⅎℎ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))
66	58, 65	nfmpt 5208	. . . . . . . 8 ⊢ Ⅎℎ(𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))
67	66	nfrecs 8346	. . . . . . 7 ⊢ Ⅎℎrecs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))))
68	67	nfcnv 5845	. . . . . 6 ⊢ Ⅎℎ◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))))
69		nfcv 2892	. . . . . 6 ⊢ Ⅎℎ{𝑐}
70	68, 69	nfima 6042	. . . . 5 ⊢ Ⅎℎ(◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐})
71	70	nfint 4923	. . . 4 ⊢ Ⅎℎ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐})
72		nfcv 2892	. . . . . 6 ⊢ Ⅎℎ{𝑏}
73	68, 72	nfima 6042	. . . . 5 ⊢ Ⅎℎ(◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})
74	73	nfint 4923	. . . 4 ⊢ Ⅎℎ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})
75	71, 74	nfel 2907	. . 3 ⊢ Ⅎℎ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐}) ∈ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})
76		sneq 4602	. . . . . 6 ⊢ (𝑔 = 𝑐 → {𝑔} = {𝑐})
77	76	imaeq2d 6034	. . . . 5 ⊢ (𝑔 = 𝑐 → (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑔}) = (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐}))
78	77	inteqd 4918	. . . 4 ⊢ (𝑔 = 𝑐 → ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑔}) = ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐}))
79		sneq 4602	. . . . . 6 ⊢ (ℎ = 𝑏 → {ℎ} = {𝑏})
80	79	imaeq2d 6034	. . . . 5 ⊢ (ℎ = 𝑏 → (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {ℎ}) = (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏}))
81	80	inteqd 4918	. . . 4 ⊢ (ℎ = 𝑏 → ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {ℎ}) = ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏}))
82		eleq12 2819	. . . 4 ⊢ ((∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑔}) = ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐}) ∧ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {ℎ}) = ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})) → (∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑔}) ∈ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {ℎ}) ↔ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐}) ∈ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})))
83	78, 81, 82	syl2an 596	. . 3 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑔}) ∈ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {ℎ}) ↔ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐}) ∈ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})))
84	46, 47, 57, 75, 83	cbvopab 5182	. 2 ⊢ {⟨𝑔, ℎ⟩ ∣ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑔}) ∈ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {ℎ})} = {⟨𝑐, 𝑏⟩ ∣ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐}) ∈ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})}
85		fveq2 6861	. . . . 5 ⊢ (𝑔 = 𝑐 → (rank‘𝑔) = (rank‘𝑐))
86		fveq2 6861	. . . . 5 ⊢ (ℎ = 𝑏 → (rank‘ℎ) = (rank‘𝑏))
87	85, 86	breqan12d 5126	. . . 4 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → ((rank‘𝑔) E (rank‘ℎ) ↔ (rank‘𝑐) E (rank‘𝑏)))
88	85, 86	eqeqan12d 2744	. . . . 5 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → ((rank‘𝑔) = (rank‘ℎ) ↔ (rank‘𝑐) = (rank‘𝑏)))
89		simpl 482	. . . . . 6 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → 𝑔 = 𝑐)
90		suceq 6403	. . . . . . . . 9 ⊢ ((rank‘𝑔) = (rank‘𝑐) → suc (rank‘𝑔) = suc (rank‘𝑐))
91	85, 90	syl 17	. . . . . . . 8 ⊢ (𝑔 = 𝑐 → suc (rank‘𝑔) = suc (rank‘𝑐))
92	91	adantr 480	. . . . . . 7 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → suc (rank‘𝑔) = suc (rank‘𝑐))
93	92	fveq2d 6865	. . . . . 6 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (𝑒‘suc (rank‘𝑔)) = (𝑒‘suc (rank‘𝑐)))
94		simpr 484	. . . . . 6 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → ℎ = 𝑏)
95	89, 93, 94	breq123d 5124	. . . . 5 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (𝑔(𝑒‘suc (rank‘𝑔))ℎ ↔ 𝑐(𝑒‘suc (rank‘𝑐))𝑏))
96	88, 95	anbi12d 632	. . . 4 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ) ↔ ((rank‘𝑐) = (rank‘𝑏) ∧ 𝑐(𝑒‘suc (rank‘𝑐))𝑏)))
97	87, 96	orbi12d 918	. . 3 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ)) ↔ ((rank‘𝑐) E (rank‘𝑏) ∨ ((rank‘𝑐) = (rank‘𝑏) ∧ 𝑐(𝑒‘suc (rank‘𝑐))𝑏))))
98	97	cbvopabv 5183	. 2 ⊢ {⟨𝑔, ℎ⟩ ∣ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ))} = {⟨𝑐, 𝑏⟩ ∣ ((rank‘𝑐) E (rank‘𝑏) ∨ ((rank‘𝑐) = (rank‘𝑏) ∧ 𝑐(𝑒‘suc (rank‘𝑐))𝑏))}
99		eqid 2730	. 2 ⊢ (if(dom 𝑒 = ∪ dom 𝑒, {⟨𝑔, ℎ⟩ ∣ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ))}, {⟨𝑔, ℎ⟩ ∣ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑔}) ∈ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {ℎ})}) ∩ ((𝑅1‘dom 𝑒) × (𝑅1‘dom 𝑒))) = (if(dom 𝑒 = ∪ dom 𝑒, {⟨𝑔, ℎ⟩ ∣ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ))}, {⟨𝑔, ℎ⟩ ∣ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑔}) ∈ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {ℎ})}) ∩ ((𝑅1‘dom 𝑒) × (𝑅1‘dom 𝑒)))
100		dmeq 5870	. . . . . . 7 ⊢ (𝑙 = 𝑒 → dom 𝑙 = dom 𝑒)
101	100	unieqd 4887	. . . . . . 7 ⊢ (𝑙 = 𝑒 → ∪ dom 𝑙 = ∪ dom 𝑒)
102	100, 101	eqeq12d 2746	. . . . . 6 ⊢ (𝑙 = 𝑒 → (dom 𝑙 = ∪ dom 𝑙 ↔ dom 𝑒 = ∪ dom 𝑒))
103		fveq1 6860	. . . . . . . . . 10 ⊢ (𝑙 = 𝑒 → (𝑙‘suc (rank‘𝑔)) = (𝑒‘suc (rank‘𝑔)))
104	103	breqd 5121	. . . . . . . . 9 ⊢ (𝑙 = 𝑒 → (𝑔(𝑙‘suc (rank‘𝑔))ℎ ↔ 𝑔(𝑒‘suc (rank‘𝑔))ℎ))
105	104	anbi2d 630	. . . . . . . 8 ⊢ (𝑙 = 𝑒 → (((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑙‘suc (rank‘𝑔))ℎ) ↔ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ)))
106	105	orbi2d 915	. . . . . . 7 ⊢ (𝑙 = 𝑒 → (((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑙‘suc (rank‘𝑔))ℎ)) ↔ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ))))
107	106	opabbidv 5176	. . . . . 6 ⊢ (𝑙 = 𝑒 → {⟨𝑔, ℎ⟩ ∣ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑙‘suc (rank‘𝑔))ℎ))} = {⟨𝑔, ℎ⟩ ∣ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ))})
108		eqidd 2731	. . . . . . . . . . . . . . . 16 ⊢ (𝑙 = 𝑒 → (𝑦‘𝑔) = (𝑦‘𝑔))
109	100	fveq2d 6865	. . . . . . . . . . . . . . . 16 ⊢ (𝑙 = 𝑒 → (𝑅1‘dom 𝑙) = (𝑅1‘dom 𝑒))
110	101	fveq2d 6865	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑙 = 𝑒 → (𝑅1‘∪ dom 𝑙) = (𝑅1‘∪ dom 𝑒))
111		id 22	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑙 = 𝑒 → 𝑙 = 𝑒)
112	111, 101	fveq12d 6868	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑙 = 𝑒 → (𝑙‘∪ dom 𝑙) = (𝑒‘∪ dom 𝑒))
113	112	breqd 5121	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑙 = 𝑒 → (𝑗(𝑙‘∪ dom 𝑙)𝑖 ↔ 𝑗(𝑒‘∪ dom 𝑒)𝑖))
114	113	imbi1d 341	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑙 = 𝑒 → ((𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)) ↔ (𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))))
115	110, 114	raleqbidv 3321	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑙 = 𝑒 → (∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)) ↔ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))))
116	115	anbi2d 630	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑙 = 𝑒 → (((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))) ↔ ((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))))
117	110, 116	rexeqbidv 3322	. . . . . . . . . . . . . . . . 17 ⊢ (𝑙 = 𝑒 → (∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))) ↔ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))))
118	117	opabbidv 5176	. . . . . . . . . . . . . . . 16 ⊢ (𝑙 = 𝑒 → {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))} = {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})
119	108, 109, 118	supeq123d 9408	. . . . . . . . . . . . . . 15 ⊢ (𝑙 = 𝑒 → sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}) = sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))
120	119	mpteq2dv 5204	. . . . . . . . . . . . . 14 ⊢ (𝑙 = 𝑒 → (𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})) = (𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})))
121	109	difeq1d 4091	. . . . . . . . . . . . . 14 ⊢ (𝑙 = 𝑒 → ((𝑅1‘dom 𝑙) ∖ ran 𝑔) = ((𝑅1‘dom 𝑒) ∖ ran 𝑔))
122	120, 121	fveq12d 6868	. . . . . . . . . . . . 13 ⊢ (𝑙 = 𝑒 → ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑙) ∖ ran 𝑔)) = ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))
123	122	mpteq2dv 5204	. . . . . . . . . . . 12 ⊢ (𝑙 = 𝑒 → (𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑙) ∖ ran 𝑔))) = (𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))))
124		recseq 8345	. . . . . . . . . . . 12 ⊢ ((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑙) ∖ ran 𝑔))) = (𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))) → recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑙) ∖ ran 𝑔)))) = recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))))
125	123, 124	syl 17	. . . . . . . . . . 11 ⊢ (𝑙 = 𝑒 → recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑙) ∖ ran 𝑔)))) = recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))))
126	125	cnveqd 5842	. . . . . . . . . 10 ⊢ (𝑙 = 𝑒 → ◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑙) ∖ ran 𝑔)))) = ◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))))
127	126	imaeq1d 6033	. . . . . . . . 9 ⊢ (𝑙 = 𝑒 → (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑙) ∖ ran 𝑔)))) “ {𝑔}) = (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑔}))
128	127	inteqd 4918	. . . . . . . 8 ⊢ (𝑙 = 𝑒 → ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑙) ∖ ran 𝑔)))) “ {𝑔}) = ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑔}))
129	126	imaeq1d 6033	. . . . . . . . 9 ⊢ (𝑙 = 𝑒 → (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑙) ∖ ran 𝑔)))) “ {ℎ}) = (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {ℎ}))
130	129	inteqd 4918	. . . . . . . 8 ⊢ (𝑙 = 𝑒 → ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑙) ∖ ran 𝑔)))) “ {ℎ}) = ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {ℎ}))
131	128, 130	eleq12d 2823	. . . . . . 7 ⊢ (𝑙 = 𝑒 → (∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑙) ∖ ran 𝑔)))) “ {𝑔}) ∈ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑙) ∖ ran 𝑔)))) “ {ℎ}) ↔ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑔}) ∈ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {ℎ})))
132	131	opabbidv 5176	. . . . . 6 ⊢ (𝑙 = 𝑒 → {⟨𝑔, ℎ⟩ ∣ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑙) ∖ ran 𝑔)))) “ {𝑔}) ∈ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑙) ∖ ran 𝑔)))) “ {ℎ})} = {⟨𝑔, ℎ⟩ ∣ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑔}) ∈ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {ℎ})})
133	102, 107, 132	ifbieq12d 4520	. . . . 5 ⊢ (𝑙 = 𝑒 → if(dom 𝑙 = ∪ dom 𝑙, {⟨𝑔, ℎ⟩ ∣ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑙‘suc (rank‘𝑔))ℎ))}, {⟨𝑔, ℎ⟩ ∣ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑙) ∖ ran 𝑔)))) “ {𝑔}) ∈ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑙) ∖ ran 𝑔)))) “ {ℎ})}) = if(dom 𝑒 = ∪ dom 𝑒, {⟨𝑔, ℎ⟩ ∣ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ))}, {⟨𝑔, ℎ⟩ ∣ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑔}) ∈ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {ℎ})}))
134	109	sqxpeqd 5673	. . . . 5 ⊢ (𝑙 = 𝑒 → ((𝑅1‘dom 𝑙) × (𝑅1‘dom 𝑙)) = ((𝑅1‘dom 𝑒) × (𝑅1‘dom 𝑒)))
135	133, 134	ineq12d 4187	. . . 4 ⊢ (𝑙 = 𝑒 → (if(dom 𝑙 = ∪ dom 𝑙, {⟨𝑔, ℎ⟩ ∣ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑙‘suc (rank‘𝑔))ℎ))}, {⟨𝑔, ℎ⟩ ∣ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑙) ∖ ran 𝑔)))) “ {𝑔}) ∈ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑙) ∖ ran 𝑔)))) “ {ℎ})}) ∩ ((𝑅1‘dom 𝑙) × (𝑅1‘dom 𝑙))) = (if(dom 𝑒 = ∪ dom 𝑒, {⟨𝑔, ℎ⟩ ∣ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ))}, {⟨𝑔, ℎ⟩ ∣ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑔}) ∈ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {ℎ})}) ∩ ((𝑅1‘dom 𝑒) × (𝑅1‘dom 𝑒))))
136	135	cbvmptv 5214	. . 3 ⊢ (𝑙 ∈ V ↦ (if(dom 𝑙 = ∪ dom 𝑙, {⟨𝑔, ℎ⟩ ∣ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑙‘suc (rank‘𝑔))ℎ))}, {⟨𝑔, ℎ⟩ ∣ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑙) ∖ ran 𝑔)))) “ {𝑔}) ∈ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑙) ∖ ran 𝑔)))) “ {ℎ})}) ∩ ((𝑅1‘dom 𝑙) × (𝑅1‘dom 𝑙)))) = (𝑒 ∈ V ↦ (if(dom 𝑒 = ∪ dom 𝑒, {⟨𝑔, ℎ⟩ ∣ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ))}, {⟨𝑔, ℎ⟩ ∣ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑔}) ∈ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {ℎ})}) ∩ ((𝑅1‘dom 𝑒) × (𝑅1‘dom 𝑒))))
137		recseq 8345	. . 3 ⊢ ((𝑙 ∈ V ↦ (if(dom 𝑙 = ∪ dom 𝑙, {⟨𝑔, ℎ⟩ ∣ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑙‘suc (rank‘𝑔))ℎ))}, {⟨𝑔, ℎ⟩ ∣ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑙) ∖ ran 𝑔)))) “ {𝑔}) ∈ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑙) ∖ ran 𝑔)))) “ {ℎ})}) ∩ ((𝑅1‘dom 𝑙) × (𝑅1‘dom 𝑙)))) = (𝑒 ∈ V ↦ (if(dom 𝑒 = ∪ dom 𝑒, {⟨𝑔, ℎ⟩ ∣ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ))}, {⟨𝑔, ℎ⟩ ∣ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑔}) ∈ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {ℎ})}) ∩ ((𝑅1‘dom 𝑒) × (𝑅1‘dom 𝑒)))) → recs((𝑙 ∈ V ↦ (if(dom 𝑙 = ∪ dom 𝑙, {⟨𝑔, ℎ⟩ ∣ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑙‘suc (rank‘𝑔))ℎ))}, {⟨𝑔, ℎ⟩ ∣ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑙) ∖ ran 𝑔)))) “ {𝑔}) ∈ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑙) ∖ ran 𝑔)))) “ {ℎ})}) ∩ ((𝑅1‘dom 𝑙) × (𝑅1‘dom 𝑙))))) = recs((𝑒 ∈ V ↦ (if(dom 𝑒 = ∪ dom 𝑒, {⟨𝑔, ℎ⟩ ∣ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ))}, {⟨𝑔, ℎ⟩ ∣ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑔}) ∈ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {ℎ})}) ∩ ((𝑅1‘dom 𝑒) × (𝑅1‘dom 𝑒))))))
138	136, 137	ax-mp 5	. 2 ⊢ recs((𝑙 ∈ V ↦ (if(dom 𝑙 = ∪ dom 𝑙, {⟨𝑔, ℎ⟩ ∣ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑙‘suc (rank‘𝑔))ℎ))}, {⟨𝑔, ℎ⟩ ∣ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑙) ∖ ran 𝑔)))) “ {𝑔}) ∈ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑙) ∖ ran 𝑔)))) “ {ℎ})}) ∩ ((𝑅1‘dom 𝑙) × (𝑅1‘dom 𝑙))))) = recs((𝑒 ∈ V ↦ (if(dom 𝑒 = ∪ dom 𝑒, {⟨𝑔, ℎ⟩ ∣ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ))}, {⟨𝑔, ℎ⟩ ∣ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑔}) ∈ ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {ℎ})}) ∩ ((𝑅1‘dom 𝑒) × (𝑅1‘dom 𝑒)))))
139		aomclem8.a	. 2 ⊢ (𝜑 → 𝐴 ∈ On)
140		aomclem8.y	. . 3 ⊢ (𝜑 → ∀𝑎 ∈ 𝒫 (𝑅1‘𝐴)(𝑎 ≠ ∅ → (𝑦‘𝑎) ∈ ((𝒫 𝑎 ∩ Fin) ∖ {∅})))
141		neeq1 2988	. . . . 5 ⊢ (𝑎 = 𝑐 → (𝑎 ≠ ∅ ↔ 𝑐 ≠ ∅))
142		fveq2 6861	. . . . . 6 ⊢ (𝑎 = 𝑐 → (𝑦‘𝑎) = (𝑦‘𝑐))
143		pweq 4580	. . . . . . . 8 ⊢ (𝑎 = 𝑐 → 𝒫 𝑎 = 𝒫 𝑐)
144	143	ineq1d 4185	. . . . . . 7 ⊢ (𝑎 = 𝑐 → (𝒫 𝑎 ∩ Fin) = (𝒫 𝑐 ∩ Fin))
145	144	difeq1d 4091	. . . . . 6 ⊢ (𝑎 = 𝑐 → ((𝒫 𝑎 ∩ Fin) ∖ {∅}) = ((𝒫 𝑐 ∩ Fin) ∖ {∅}))
146	142, 145	eleq12d 2823	. . . . 5 ⊢ (𝑎 = 𝑐 → ((𝑦‘𝑎) ∈ ((𝒫 𝑎 ∩ Fin) ∖ {∅}) ↔ (𝑦‘𝑐) ∈ ((𝒫 𝑐 ∩ Fin) ∖ {∅})))
147	141, 146	imbi12d 344	. . . 4 ⊢ (𝑎 = 𝑐 → ((𝑎 ≠ ∅ → (𝑦‘𝑎) ∈ ((𝒫 𝑎 ∩ Fin) ∖ {∅})) ↔ (𝑐 ≠ ∅ → (𝑦‘𝑐) ∈ ((𝒫 𝑐 ∩ Fin) ∖ {∅}))))
148	147	cbvralvw 3216	. . 3 ⊢ (∀𝑎 ∈ 𝒫 (𝑅1‘𝐴)(𝑎 ≠ ∅ → (𝑦‘𝑎) ∈ ((𝒫 𝑎 ∩ Fin) ∖ {∅})) ↔ ∀𝑐 ∈ 𝒫 (𝑅1‘𝐴)(𝑐 ≠ ∅ → (𝑦‘𝑐) ∈ ((𝒫 𝑐 ∩ Fin) ∖ {∅})))
149	140, 148	sylib 218	. 2 ⊢ (𝜑 → ∀𝑐 ∈ 𝒫 (𝑅1‘𝐴)(𝑐 ≠ ∅ → (𝑦‘𝑐) ∈ ((𝒫 𝑐 ∩ Fin) ∖ {∅})))
150	29, 37, 45, 84, 98, 99, 138, 139, 149	aomclem7 43056	1 ⊢ (𝜑 → ∃𝑏 𝑏 We (𝑅1‘𝐴))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   ∨ wo 847   = wceq 1540  ∃wex 1779   ∈ wcel 2109   ≠ wne 2926  ∀wral 3045  ∃wrex 3054  Vcvv 3450   ∖ cdif 3914   ∩ cin 3916  ∅c0 4299  ifcif 4491  𝒫 cpw 4566  {csn 4592  ∪ cuni 4874  ∩ cint 4913   class class class wbr 5110  {copab 5172   ↦ cmpt 5191   E cep 5540   We wwe 5593   × cxp 5639  ^◡ccnv 5640  dom cdm 5641  ran crn 5642   “ cima 5644  Oncon0 6335  suc csuc 6337  ‘cfv 6514  recscrecs 8342  Fincfn 8921  supcsup 9398  𝑅₁cr1 9722  rankcrnk 9723

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2702  ax-rep 5237  ax-sep 5254  ax-nul 5264  ax-pow 5323  ax-pr 5390  ax-un 7714

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2534  df-eu 2563  df-clab 2709  df-cleq 2722  df-clel 2804  df-nfc 2879  df-ne 2927  df-ral 3046  df-rex 3055  df-rmo 3356  df-reu 3357  df-rab 3409  df-v 3452  df-sbc 3757  df-csb 3866  df-dif 3920  df-un 3922  df-in 3924  df-ss 3934  df-pss 3937  df-nul 4300  df-if 4492  df-pw 4568  df-sn 4593  df-pr 4595  df-tp 4597  df-op 4599  df-uni 4875  df-int 4914  df-iun 4960  df-br 5111  df-opab 5173  df-mpt 5192  df-tr 5218  df-id 5536  df-eprel 5541  df-po 5549  df-so 5550  df-fr 5594  df-we 5596  df-xp 5647  df-rel 5648  df-cnv 5649  df-co 5650  df-dm 5651  df-rn 5652  df-res 5653  df-ima 5654  df-pred 6277  df-ord 6338  df-on 6339  df-lim 6340  df-suc 6341  df-iota 6467  df-fun 6516  df-fn 6517  df-f 6518  df-f1 6519  df-fo 6520  df-f1o 6521  df-fv 6522  df-isom 6523  df-riota 7347  df-ov 7393  df-oprab 7394  df-mpo 7395  df-om 7846  df-1st 7971  df-2nd 7972  df-frecs 8263  df-wrecs 8294  df-recs 8343  df-rdg 8381  df-1o 8437  df-2o 8438  df-map 8804  df-en 8922  df-fin 8925  df-sup 9400  df-r1 9724  df-rank 9725

This theorem is referenced by:  dfac11  43058