Theorem aomclem8 43245

Description: Lemma for dfac11 43246. 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 2128	. . . . . . 7 ⊢ (ℎ = 𝑏 → (𝑖 ∈ ℎ ↔ 𝑖 ∈ 𝑏))
2		elequ2 2128	. . . . . . . 8 ⊢ (𝑔 = 𝑐 → (𝑖 ∈ 𝑔 ↔ 𝑖 ∈ 𝑐))
3	2	notbid 318	. . . . . . 7 ⊢ (𝑔 = 𝑐 → (¬ 𝑖 ∈ 𝑔 ↔ ¬ 𝑖 ∈ 𝑐))
4	1, 3	bi2anan9r 639	. . . . . 6 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → ((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ↔ (𝑖 ∈ 𝑏 ∧ ¬ 𝑖 ∈ 𝑐)))
5		elequ2 2128	. . . . . . . . 9 ⊢ (𝑔 = 𝑐 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ 𝑐))
6		elequ2 2128	. . . . . . . . 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 2120	. . . . . . 7 ⊢ (𝑖 = 𝑑 → (𝑖 ∈ 𝑏 ↔ 𝑑 ∈ 𝑏))
13		elequ1 2120	. . . . . . . 8 ⊢ (𝑖 = 𝑑 → (𝑖 ∈ 𝑐 ↔ 𝑑 ∈ 𝑐))
14	13	notbid 318	. . . . . . 7 ⊢ (𝑖 = 𝑑 → (¬ 𝑖 ∈ 𝑐 ↔ ¬ 𝑑 ∈ 𝑐))
15	12, 14	anbi12d 632	. . . . . 6 ⊢ (𝑖 = 𝑑 → ((𝑖 ∈ 𝑏 ∧ ¬ 𝑖 ∈ 𝑐) ↔ (𝑑 ∈ 𝑏 ∧ ¬ 𝑑 ∈ 𝑐)))
16		breq2 5100	. . . . . . . . 9 ⊢ (𝑖 = 𝑑 → (𝑗(𝑒‘∪ dom 𝑒)𝑖 ↔ 𝑗(𝑒‘∪ dom 𝑒)𝑑))
17	16	imbi1d 341	. . . . . . . 8 ⊢ (𝑖 = 𝑑 → ((𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)) ↔ (𝑗(𝑒‘∪ dom 𝑒)𝑑 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏))))
18	17	ralbidv 3157	. . . . . . 7 ⊢ (𝑖 = 𝑑 → (∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)) ↔ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑑 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏))))
19		breq1 5099	. . . . . . . . 9 ⊢ (𝑗 = 𝑓 → (𝑗(𝑒‘∪ dom 𝑒)𝑑 ↔ 𝑓(𝑒‘∪ dom 𝑒)𝑑))
20		elequ1 2120	. . . . . . . . . 10 ⊢ (𝑗 = 𝑓 → (𝑗 ∈ 𝑐 ↔ 𝑓 ∈ 𝑐))
21		elequ1 2120	. . . . . . . . . 10 ⊢ (𝑗 = 𝑓 → (𝑗 ∈ 𝑏 ↔ 𝑓 ∈ 𝑏))
22	20, 21	bibi12d 345	. . . . . . . . 9 ⊢ (𝑗 = 𝑓 → ((𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏) ↔ (𝑓 ∈ 𝑐 ↔ 𝑓 ∈ 𝑏)))
23	19, 22	imbi12d 344	. . . . . . . 8 ⊢ (𝑗 = 𝑓 → ((𝑗(𝑒‘∪ dom 𝑒)𝑑 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)) ↔ (𝑓(𝑒‘∪ dom 𝑒)𝑑 → (𝑓 ∈ 𝑐 ↔ 𝑓 ∈ 𝑏))))
24	23	cbvralvw 3212	. . . . . . 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 3213	. . . 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 5169	. 2 ⊢ {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))} = {⟨𝑐, 𝑏⟩ ∣ ∃𝑑 ∈ (𝑅1‘∪ dom 𝑒)((𝑑 ∈ 𝑏 ∧ ¬ 𝑑 ∈ 𝑐) ∧ ∀𝑓 ∈ (𝑅1‘∪ dom 𝑒)(𝑓(𝑒‘∪ dom 𝑒)𝑑 → (𝑓 ∈ 𝑐 ↔ 𝑓 ∈ 𝑏)))}
30		nfcv 2896	. . 3 ⊢ Ⅎ𝑐sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})
31		nfcv 2896	. . . 4 ⊢ Ⅎ𝑔(𝑦‘𝑐)
32		nfcv 2896	. . . 4 ⊢ Ⅎ𝑔(𝑅1‘dom 𝑒)
33		nfopab1 5166	. . . 4 ⊢ Ⅎ𝑔{⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}
34	31, 32, 33	nfsup 9352	. . 3 ⊢ Ⅎ𝑔sup((𝑦‘𝑐), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})
35		fveq2 6832	. . . 4 ⊢ (𝑔 = 𝑐 → (𝑦‘𝑔) = (𝑦‘𝑐))
36	35	supeq1d 9347	. . 3 ⊢ (𝑔 = 𝑐 → sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}) = sup((𝑦‘𝑐), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))
37	30, 34, 36	cbvmpt 5198	. 2 ⊢ (𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})) = (𝑐 ∈ V ↦ sup((𝑦‘𝑐), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))
38		nfcv 2896	. . . 4 ⊢ Ⅎ𝑐((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))
39		nffvmpt1 6843	. . . 4 ⊢ Ⅎ𝑔((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑐))
40		rneq 5883	. . . . . 6 ⊢ (𝑔 = 𝑐 → ran 𝑔 = ran 𝑐)
41	40	difeq2d 4076	. . . . 5 ⊢ (𝑔 = 𝑐 → ((𝑅1‘dom 𝑒) ∖ ran 𝑔) = ((𝑅1‘dom 𝑒) ∖ ran 𝑐))
42	41	fveq2d 6836	. . . 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 5198	. . 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 8303	. . 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 1915	. . 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 1915	. . 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 5195	. . . . . . . 8 ⊢ Ⅎ𝑔(𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))
49	48	nfrecs 8304	. . . . . . 7 ⊢ Ⅎ𝑔recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))))
50	49	nfcnv 5825	. . . . . 6 ⊢ Ⅎ𝑔◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))))
51		nfcv 2896	. . . . . 6 ⊢ Ⅎ𝑔{𝑐}
52	50, 51	nfima 6025	. . . . 5 ⊢ Ⅎ𝑔(◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐})
53	52	nfint 4910	. . . 4 ⊢ Ⅎ𝑔∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐})
54		nfcv 2896	. . . . . 6 ⊢ Ⅎ𝑔{𝑏}
55	50, 54	nfima 6025	. . . . 5 ⊢ Ⅎ𝑔(◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})
56	55	nfint 4910	. . . 4 ⊢ Ⅎ𝑔∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})
57	53, 56	nfel 2911	. . 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 2896	. . . . . . . . 9 ⊢ ℲℎV
59		nfcv 2896	. . . . . . . . . . . 12 ⊢ Ⅎℎ(𝑦‘𝑔)
60		nfcv 2896	. . . . . . . . . . . 12 ⊢ Ⅎℎ(𝑅1‘dom 𝑒)
61		nfopab2 5167	. . . . . . . . . . . 12 ⊢ Ⅎℎ{⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}
62	59, 60, 61	nfsup 9352	. . . . . . . . . . 11 ⊢ Ⅎℎsup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})
63	58, 62	nfmpt 5194	. . . . . . . . . 10 ⊢ Ⅎℎ(𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))
64		nfcv 2896	. . . . . . . . . 10 ⊢ Ⅎℎ((𝑅1‘dom 𝑒) ∖ ran 𝑔)
65	63, 64	nffv 6842	. . . . . . . . 9 ⊢ Ⅎℎ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))
66	58, 65	nfmpt 5194	. . . . . . . 8 ⊢ Ⅎℎ(𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))
67	66	nfrecs 8304	. . . . . . 7 ⊢ Ⅎℎrecs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))))
68	67	nfcnv 5825	. . . . . 6 ⊢ Ⅎℎ◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))))
69		nfcv 2896	. . . . . 6 ⊢ Ⅎℎ{𝑐}
70	68, 69	nfima 6025	. . . . 5 ⊢ Ⅎℎ(◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐})
71	70	nfint 4910	. . . 4 ⊢ Ⅎℎ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐})
72		nfcv 2896	. . . . . 6 ⊢ Ⅎℎ{𝑏}
73	68, 72	nfima 6025	. . . . 5 ⊢ Ⅎℎ(◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})
74	73	nfint 4910	. . . 4 ⊢ Ⅎℎ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})
75	71, 74	nfel 2911	. . 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 4588	. . . . . 6 ⊢ (𝑔 = 𝑐 → {𝑔} = {𝑐})
77	76	imaeq2d 6017	. . . . 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 4905	. . . 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 4588	. . . . . 6 ⊢ (ℎ = 𝑏 → {ℎ} = {𝑏})
80	79	imaeq2d 6017	. . . . 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 4905	. . . 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 2824	. . . 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 5168	. 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 6832	. . . . 5 ⊢ (𝑔 = 𝑐 → (rank‘𝑔) = (rank‘𝑐))
86		fveq2 6832	. . . . 5 ⊢ (ℎ = 𝑏 → (rank‘ℎ) = (rank‘𝑏))
87	85, 86	breqan12d 5112	. . . 4 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → ((rank‘𝑔) E (rank‘ℎ) ↔ (rank‘𝑐) E (rank‘𝑏)))
88	85, 86	eqeqan12d 2748	. . . . 5 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → ((rank‘𝑔) = (rank‘ℎ) ↔ (rank‘𝑐) = (rank‘𝑏)))
89		simpl 482	. . . . . 6 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → 𝑔 = 𝑐)
90		suceq 6383	. . . . . . . . 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 6836	. . . . . 6 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (𝑒‘suc (rank‘𝑔)) = (𝑒‘suc (rank‘𝑐)))
94		simpr 484	. . . . . 6 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → ℎ = 𝑏)
95	89, 93, 94	breq123d 5110	. . . . 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 5169	. 2 ⊢ {⟨𝑔, ℎ⟩ ∣ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ))} = {⟨𝑐, 𝑏⟩ ∣ ((rank‘𝑐) E (rank‘𝑏) ∨ ((rank‘𝑐) = (rank‘𝑏) ∧ 𝑐(𝑒‘suc (rank‘𝑐))𝑏))}
99		eqid 2734	. 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 5850	. . . . . . 7 ⊢ (𝑙 = 𝑒 → dom 𝑙 = dom 𝑒)
101	100	unieqd 4874	. . . . . . 7 ⊢ (𝑙 = 𝑒 → ∪ dom 𝑙 = ∪ dom 𝑒)
102	100, 101	eqeq12d 2750	. . . . . 6 ⊢ (𝑙 = 𝑒 → (dom 𝑙 = ∪ dom 𝑙 ↔ dom 𝑒 = ∪ dom 𝑒))
103		fveq1 6831	. . . . . . . . . 10 ⊢ (𝑙 = 𝑒 → (𝑙‘suc (rank‘𝑔)) = (𝑒‘suc (rank‘𝑔)))
104	103	breqd 5107	. . . . . . . . 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 5162	. . . . . 6 ⊢ (𝑙 = 𝑒 → {⟨𝑔, ℎ⟩ ∣ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑙‘suc (rank‘𝑔))ℎ))} = {⟨𝑔, ℎ⟩ ∣ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ))})
108		eqidd 2735	. . . . . . . . . . . . . . . 16 ⊢ (𝑙 = 𝑒 → (𝑦‘𝑔) = (𝑦‘𝑔))
109	100	fveq2d 6836	. . . . . . . . . . . . . . . 16 ⊢ (𝑙 = 𝑒 → (𝑅1‘dom 𝑙) = (𝑅1‘dom 𝑒))
110	101	fveq2d 6836	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑙 = 𝑒 → (𝑅1‘∪ dom 𝑙) = (𝑅1‘∪ dom 𝑒))
111		id 22	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑙 = 𝑒 → 𝑙 = 𝑒)
112	111, 101	fveq12d 6839	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑙 = 𝑒 → (𝑙‘∪ dom 𝑙) = (𝑒‘∪ dom 𝑒))
113	112	breqd 5107	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑙 = 𝑒 → (𝑗(𝑙‘∪ dom 𝑙)𝑖 ↔ 𝑗(𝑒‘∪ dom 𝑒)𝑖))
114	113	imbi1d 341	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑙 = 𝑒 → ((𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)) ↔ (𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))))
115	110, 114	raleqbidv 3314	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑙 = 𝑒 → (∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)) ↔ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))))
116	115	anbi2d 630	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑙 = 𝑒 → (((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))) ↔ ((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))))
117	110, 116	rexeqbidv 3315	. . . . . . . . . . . . . . . . 17 ⊢ (𝑙 = 𝑒 → (∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))) ↔ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))))
118	117	opabbidv 5162	. . . . . . . . . . . . . . . 16 ⊢ (𝑙 = 𝑒 → {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))} = {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})
119	108, 109, 118	supeq123d 9351	. . . . . . . . . . . . . . 15 ⊢ (𝑙 = 𝑒 → sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}) = sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))
120	119	mpteq2dv 5190	. . . . . . . . . . . . . 14 ⊢ (𝑙 = 𝑒 → (𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})) = (𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})))
121	109	difeq1d 4075	. . . . . . . . . . . . . 14 ⊢ (𝑙 = 𝑒 → ((𝑅1‘dom 𝑙) ∖ ran 𝑔) = ((𝑅1‘dom 𝑒) ∖ ran 𝑔))
122	120, 121	fveq12d 6839	. . . . . . . . . . . . 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 5190	. . . . . . . . . . . 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 8303	. . . . . . . . . . . 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 5822	. . . . . . . . . 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 6016	. . . . . . . . 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 4905	. . . . . . . 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 6016	. . . . . . . . 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 4905	. . . . . . . 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 2828	. . . . . . 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 5162	. . . . . 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 4506	. . . . 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 5654	. . . . 5 ⊢ (𝑙 = 𝑒 → ((𝑅1‘dom 𝑙) × (𝑅1‘dom 𝑙)) = ((𝑅1‘dom 𝑒) × (𝑅1‘dom 𝑒)))
135	133, 134	ineq12d 4171	. . . 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 5200	. . 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 8303	. . 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 2992	. . . . 5 ⊢ (𝑎 = 𝑐 → (𝑎 ≠ ∅ ↔ 𝑐 ≠ ∅))
142		fveq2 6832	. . . . . 6 ⊢ (𝑎 = 𝑐 → (𝑦‘𝑎) = (𝑦‘𝑐))
143		pweq 4566	. . . . . . . 8 ⊢ (𝑎 = 𝑐 → 𝒫 𝑎 = 𝒫 𝑐)
144	143	ineq1d 4169	. . . . . . 7 ⊢ (𝑎 = 𝑐 → (𝒫 𝑎 ∩ Fin) = (𝒫 𝑐 ∩ Fin))
145	144	difeq1d 4075	. . . . . 6 ⊢ (𝑎 = 𝑐 → ((𝒫 𝑎 ∩ Fin) ∖ {∅}) = ((𝒫 𝑐 ∩ Fin) ∖ {∅}))
146	142, 145	eleq12d 2828	. . . . 5 ⊢ (𝑎 = 𝑐 → ((𝑦‘𝑎) ∈ ((𝒫 𝑎 ∩ Fin) ∖ {∅}) ↔ (𝑦‘𝑐) ∈ ((𝒫 𝑐 ∩ Fin) ∖ {∅})))
147	141, 146	imbi12d 344	. . . 4 ⊢ (𝑎 = 𝑐 → ((𝑎 ≠ ∅ → (𝑦‘𝑎) ∈ ((𝒫 𝑎 ∩ Fin) ∖ {∅})) ↔ (𝑐 ≠ ∅ → (𝑦‘𝑐) ∈ ((𝒫 𝑐 ∩ Fin) ∖ {∅}))))
148	147	cbvralvw 3212	. . 3 ⊢ (∀𝑎 ∈ 𝒫 (𝑅1‘𝐴)(𝑎 ≠ ∅ → (𝑦‘𝑎) ∈ ((𝒫 𝑎 ∩ Fin) ∖ {∅})) ↔ ∀𝑐 ∈ 𝒫 (𝑅1‘𝐴)(𝑐 ≠ ∅ → (𝑦‘𝑐) ∈ ((𝒫 𝑐 ∩ Fin) ∖ {∅})))
149	140, 148	sylib 218	. 2 ⊢ (𝜑 → ∀𝑐 ∈ 𝒫 (𝑅1‘𝐴)(𝑐 ≠ ∅ → (𝑦‘𝑐) ∈ ((𝒫 𝑐 ∩ Fin) ∖ {∅})))
150	29, 37, 45, 84, 98, 99, 138, 139, 149	aomclem7 43244	1 ⊢ (𝜑 → ∃𝑏 𝑏 We (𝑅1‘𝐴))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   ∨ wo 847   = wceq 1541  ∃wex 1780   ∈ wcel 2113   ≠ wne 2930  ∀wral 3049  ∃wrex 3058  Vcvv 3438   ∖ cdif 3896   ∩ cin 3898  ∅c0 4283  ifcif 4477  𝒫 cpw 4552  {csn 4578  ∪ cuni 4861  ∩ cint 4900   class class class wbr 5096  {copab 5158   ↦ cmpt 5177   E cep 5521   We wwe 5574   × cxp 5620  ^◡ccnv 5621  dom cdm 5622  ran crn 5623   “ cima 5625  Oncon0 6315  suc csuc 6317  ‘cfv 6490  recscrecs 8300  Fincfn 8881  supcsup 9341  𝑅₁cr1 9672  rankcrnk 9673

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2182  ax-ext 2706  ax-rep 5222  ax-sep 5239  ax-nul 5249  ax-pow 5308  ax-pr 5375  ax-un 7678

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2537  df-eu 2567  df-clab 2713  df-cleq 2726  df-clel 2809  df-nfc 2883  df-ne 2931  df-ral 3050  df-rex 3059  df-rmo 3348  df-reu 3349  df-rab 3398  df-v 3440  df-sbc 3739  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4284  df-if 4478  df-pw 4554  df-sn 4579  df-pr 4581  df-tp 4583  df-op 4585  df-uni 4862  df-int 4901  df-iun 4946  df-br 5097  df-opab 5159  df-mpt 5178  df-tr 5204  df-id 5517  df-eprel 5522  df-po 5530  df-so 5531  df-fr 5575  df-we 5577  df-xp 5628  df-rel 5629  df-cnv 5630  df-co 5631  df-dm 5632  df-rn 5633  df-res 5634  df-ima 5635  df-pred 6257  df-ord 6318  df-on 6319  df-lim 6320  df-suc 6321  df-iota 6446  df-fun 6492  df-fn 6493  df-f 6494  df-f1 6495  df-fo 6496  df-f1o 6497  df-fv 6498  df-isom 6499  df-riota 7313  df-ov 7359  df-oprab 7360  df-mpo 7361  df-om 7807  df-1st 7931  df-2nd 7932  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-1o 8395  df-2o 8396  df-map 8763  df-en 8882  df-fin 8885  df-sup 9343  df-r1 9674  df-rank 9675

This theorem is referenced by:  dfac11  43246