Theorem aomclem8 43422

Description: Lemma for dfac11 43423. 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 2129	. . . . . . 7 ⊢ (ℎ = 𝑏 → (𝑖 ∈ ℎ ↔ 𝑖 ∈ 𝑏))
2		elequ2 2129	. . . . . . . 8 ⊢ (𝑔 = 𝑐 → (𝑖 ∈ 𝑔 ↔ 𝑖 ∈ 𝑐))
3	2	notbid 318	. . . . . . 7 ⊢ (𝑔 = 𝑐 → (¬ 𝑖 ∈ 𝑔 ↔ ¬ 𝑖 ∈ 𝑐))
4	1, 3	bi2anan9r 640	. . . . . 6 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → ((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ↔ (𝑖 ∈ 𝑏 ∧ ¬ 𝑖 ∈ 𝑐)))
5		elequ2 2129	. . . . . . . . 9 ⊢ (𝑔 = 𝑐 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ 𝑐))
6		elequ2 2129	. . . . . . . . 9 ⊢ (ℎ = 𝑏 → (𝑗 ∈ ℎ ↔ 𝑗 ∈ 𝑏))
7	5, 6	bi2bian9 641	. . . . . . . 8 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → ((𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ) ↔ (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)))
8	7	imbi2d 340	. . . . . . 7 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → ((𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)) ↔ (𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏))))
9	8	ralbidv 3161	. . . . . 6 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)) ↔ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏))))
10	4, 9	anbi12d 633	. . . . 5 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))) ↔ ((𝑖 ∈ 𝑏 ∧ ¬ 𝑖 ∈ 𝑐) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)))))
11	10	rexbidv 3162	. . . 4 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))) ↔ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ 𝑏 ∧ ¬ 𝑖 ∈ 𝑐) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)))))
12		elequ1 2121	. . . . . . 7 ⊢ (𝑖 = 𝑑 → (𝑖 ∈ 𝑏 ↔ 𝑑 ∈ 𝑏))
13		elequ1 2121	. . . . . . . 8 ⊢ (𝑖 = 𝑑 → (𝑖 ∈ 𝑐 ↔ 𝑑 ∈ 𝑐))
14	13	notbid 318	. . . . . . 7 ⊢ (𝑖 = 𝑑 → (¬ 𝑖 ∈ 𝑐 ↔ ¬ 𝑑 ∈ 𝑐))
15	12, 14	anbi12d 633	. . . . . 6 ⊢ (𝑖 = 𝑑 → ((𝑖 ∈ 𝑏 ∧ ¬ 𝑖 ∈ 𝑐) ↔ (𝑑 ∈ 𝑏 ∧ ¬ 𝑑 ∈ 𝑐)))
16		breq2 5104	. . . . . . . . 9 ⊢ (𝑖 = 𝑑 → (𝑗(𝑒‘∪ dom 𝑒)𝑖 ↔ 𝑗(𝑒‘∪ dom 𝑒)𝑑))
17	16	imbi1d 341	. . . . . . . 8 ⊢ (𝑖 = 𝑑 → ((𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)) ↔ (𝑗(𝑒‘∪ dom 𝑒)𝑑 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏))))
18	17	ralbidv 3161	. . . . . . 7 ⊢ (𝑖 = 𝑑 → (∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)) ↔ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑑 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏))))
19		breq1 5103	. . . . . . . . 9 ⊢ (𝑗 = 𝑓 → (𝑗(𝑒‘∪ dom 𝑒)𝑑 ↔ 𝑓(𝑒‘∪ dom 𝑒)𝑑))
20		elequ1 2121	. . . . . . . . . 10 ⊢ (𝑗 = 𝑓 → (𝑗 ∈ 𝑐 ↔ 𝑓 ∈ 𝑐))
21		elequ1 2121	. . . . . . . . . 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 633	. . . . 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 5173	. 2 ⊢ {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))} = {⟨𝑐, 𝑏⟩ ∣ ∃𝑑 ∈ (𝑅1‘∪ dom 𝑒)((𝑑 ∈ 𝑏 ∧ ¬ 𝑑 ∈ 𝑐) ∧ ∀𝑓 ∈ (𝑅1‘∪ dom 𝑒)(𝑓(𝑒‘∪ dom 𝑒)𝑑 → (𝑓 ∈ 𝑐 ↔ 𝑓 ∈ 𝑏)))}
30		nfcv 2899	. . 3 ⊢ Ⅎ𝑐sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})
31		nfcv 2899	. . . 4 ⊢ Ⅎ𝑔(𝑦‘𝑐)
32		nfcv 2899	. . . 4 ⊢ Ⅎ𝑔(𝑅1‘dom 𝑒)
33		nfopab1 5170	. . . 4 ⊢ Ⅎ𝑔{⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}
34	31, 32, 33	nfsup 9366	. . 3 ⊢ Ⅎ𝑔sup((𝑦‘𝑐), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})
35		fveq2 6842	. . . 4 ⊢ (𝑔 = 𝑐 → (𝑦‘𝑔) = (𝑦‘𝑐))
36	35	supeq1d 9361	. . 3 ⊢ (𝑔 = 𝑐 → sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}) = sup((𝑦‘𝑐), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))
37	30, 34, 36	cbvmpt 5202	. 2 ⊢ (𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})) = (𝑐 ∈ V ↦ sup((𝑦‘𝑐), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))
38		nfcv 2899	. . . 4 ⊢ Ⅎ𝑐((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))
39		nffvmpt1 6853	. . . 4 ⊢ Ⅎ𝑔((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑐))
40		rneq 5893	. . . . . 6 ⊢ (𝑔 = 𝑐 → ran 𝑔 = ran 𝑐)
41	40	difeq2d 4080	. . . . 5 ⊢ (𝑔 = 𝑐 → ((𝑅1‘dom 𝑒) ∖ ran 𝑔) = ((𝑅1‘dom 𝑒) ∖ ran 𝑐))
42	41	fveq2d 6846	. . . 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 5202	. . 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 8315	. . 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 1916	. . 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 1916	. . 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 5199	. . . . . . . 8 ⊢ Ⅎ𝑔(𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))
49	48	nfrecs 8316	. . . . . . 7 ⊢ Ⅎ𝑔recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))))
50	49	nfcnv 5835	. . . . . 6 ⊢ Ⅎ𝑔◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))))
51		nfcv 2899	. . . . . 6 ⊢ Ⅎ𝑔{𝑐}
52	50, 51	nfima 6035	. . . . 5 ⊢ Ⅎ𝑔(◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐})
53	52	nfint 4914	. . . 4 ⊢ Ⅎ𝑔∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐})
54		nfcv 2899	. . . . . 6 ⊢ Ⅎ𝑔{𝑏}
55	50, 54	nfima 6035	. . . . 5 ⊢ Ⅎ𝑔(◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})
56	55	nfint 4914	. . . 4 ⊢ Ⅎ𝑔∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})
57	53, 56	nfel 2914	. . 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 2899	. . . . . . . . 9 ⊢ ℲℎV
59		nfcv 2899	. . . . . . . . . . . 12 ⊢ Ⅎℎ(𝑦‘𝑔)
60		nfcv 2899	. . . . . . . . . . . 12 ⊢ Ⅎℎ(𝑅1‘dom 𝑒)
61		nfopab2 5171	. . . . . . . . . . . 12 ⊢ Ⅎℎ{⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}
62	59, 60, 61	nfsup 9366	. . . . . . . . . . 11 ⊢ Ⅎℎsup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})
63	58, 62	nfmpt 5198	. . . . . . . . . 10 ⊢ Ⅎℎ(𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))
64		nfcv 2899	. . . . . . . . . 10 ⊢ Ⅎℎ((𝑅1‘dom 𝑒) ∖ ran 𝑔)
65	63, 64	nffv 6852	. . . . . . . . 9 ⊢ Ⅎℎ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))
66	58, 65	nfmpt 5198	. . . . . . . 8 ⊢ Ⅎℎ(𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))
67	66	nfrecs 8316	. . . . . . 7 ⊢ Ⅎℎrecs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))))
68	67	nfcnv 5835	. . . . . 6 ⊢ Ⅎℎ◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))))
69		nfcv 2899	. . . . . 6 ⊢ Ⅎℎ{𝑐}
70	68, 69	nfima 6035	. . . . 5 ⊢ Ⅎℎ(◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐})
71	70	nfint 4914	. . . 4 ⊢ Ⅎℎ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐})
72		nfcv 2899	. . . . . 6 ⊢ Ⅎℎ{𝑏}
73	68, 72	nfima 6035	. . . . 5 ⊢ Ⅎℎ(◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})
74	73	nfint 4914	. . . 4 ⊢ Ⅎℎ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})
75	71, 74	nfel 2914	. . 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 4592	. . . . . 6 ⊢ (𝑔 = 𝑐 → {𝑔} = {𝑐})
77	76	imaeq2d 6027	. . . . 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 4909	. . . 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 4592	. . . . . 6 ⊢ (ℎ = 𝑏 → {ℎ} = {𝑏})
80	79	imaeq2d 6027	. . . . 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 4909	. . . 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 2827	. . . 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 597	. . 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 5172	. 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 6842	. . . . 5 ⊢ (𝑔 = 𝑐 → (rank‘𝑔) = (rank‘𝑐))
86		fveq2 6842	. . . . 5 ⊢ (ℎ = 𝑏 → (rank‘ℎ) = (rank‘𝑏))
87	85, 86	breqan12d 5116	. . . 4 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → ((rank‘𝑔) E (rank‘ℎ) ↔ (rank‘𝑐) E (rank‘𝑏)))
88	85, 86	eqeqan12d 2751	. . . . 5 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → ((rank‘𝑔) = (rank‘ℎ) ↔ (rank‘𝑐) = (rank‘𝑏)))
89		simpl 482	. . . . . 6 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → 𝑔 = 𝑐)
90		suceq 6393	. . . . . . . . 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 6846	. . . . . 6 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (𝑒‘suc (rank‘𝑔)) = (𝑒‘suc (rank‘𝑐)))
94		simpr 484	. . . . . 6 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → ℎ = 𝑏)
95	89, 93, 94	breq123d 5114	. . . . 5 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (𝑔(𝑒‘suc (rank‘𝑔))ℎ ↔ 𝑐(𝑒‘suc (rank‘𝑐))𝑏))
96	88, 95	anbi12d 633	. . . 4 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ) ↔ ((rank‘𝑐) = (rank‘𝑏) ∧ 𝑐(𝑒‘suc (rank‘𝑐))𝑏)))
97	87, 96	orbi12d 919	. . 3 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ)) ↔ ((rank‘𝑐) E (rank‘𝑏) ∨ ((rank‘𝑐) = (rank‘𝑏) ∧ 𝑐(𝑒‘suc (rank‘𝑐))𝑏))))
98	97	cbvopabv 5173	. 2 ⊢ {⟨𝑔, ℎ⟩ ∣ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ))} = {⟨𝑐, 𝑏⟩ ∣ ((rank‘𝑐) E (rank‘𝑏) ∨ ((rank‘𝑐) = (rank‘𝑏) ∧ 𝑐(𝑒‘suc (rank‘𝑐))𝑏))}
99		eqid 2737	. 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 5860	. . . . . . 7 ⊢ (𝑙 = 𝑒 → dom 𝑙 = dom 𝑒)
101	100	unieqd 4878	. . . . . . 7 ⊢ (𝑙 = 𝑒 → ∪ dom 𝑙 = ∪ dom 𝑒)
102	100, 101	eqeq12d 2753	. . . . . 6 ⊢ (𝑙 = 𝑒 → (dom 𝑙 = ∪ dom 𝑙 ↔ dom 𝑒 = ∪ dom 𝑒))
103		fveq1 6841	. . . . . . . . . 10 ⊢ (𝑙 = 𝑒 → (𝑙‘suc (rank‘𝑔)) = (𝑒‘suc (rank‘𝑔)))
104	103	breqd 5111	. . . . . . . . 9 ⊢ (𝑙 = 𝑒 → (𝑔(𝑙‘suc (rank‘𝑔))ℎ ↔ 𝑔(𝑒‘suc (rank‘𝑔))ℎ))
105	104	anbi2d 631	. . . . . . . 8 ⊢ (𝑙 = 𝑒 → (((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑙‘suc (rank‘𝑔))ℎ) ↔ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ)))
106	105	orbi2d 916	. . . . . . 7 ⊢ (𝑙 = 𝑒 → (((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑙‘suc (rank‘𝑔))ℎ)) ↔ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ))))
107	106	opabbidv 5166	. . . . . 6 ⊢ (𝑙 = 𝑒 → {⟨𝑔, ℎ⟩ ∣ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑙‘suc (rank‘𝑔))ℎ))} = {⟨𝑔, ℎ⟩ ∣ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ))})
108		eqidd 2738	. . . . . . . . . . . . . . . 16 ⊢ (𝑙 = 𝑒 → (𝑦‘𝑔) = (𝑦‘𝑔))
109	100	fveq2d 6846	. . . . . . . . . . . . . . . 16 ⊢ (𝑙 = 𝑒 → (𝑅1‘dom 𝑙) = (𝑅1‘dom 𝑒))
110	101	fveq2d 6846	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑙 = 𝑒 → (𝑅1‘∪ dom 𝑙) = (𝑅1‘∪ dom 𝑒))
111		id 22	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑙 = 𝑒 → 𝑙 = 𝑒)
112	111, 101	fveq12d 6849	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑙 = 𝑒 → (𝑙‘∪ dom 𝑙) = (𝑒‘∪ dom 𝑒))
113	112	breqd 5111	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑙 = 𝑒 → (𝑗(𝑙‘∪ dom 𝑙)𝑖 ↔ 𝑗(𝑒‘∪ dom 𝑒)𝑖))
114	113	imbi1d 341	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑙 = 𝑒 → ((𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)) ↔ (𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))))
115	110, 114	raleqbidv 3318	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑙 = 𝑒 → (∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)) ↔ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))))
116	115	anbi2d 631	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑙 = 𝑒 → (((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))) ↔ ((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))))
117	110, 116	rexeqbidv 3319	. . . . . . . . . . . . . . . . 17 ⊢ (𝑙 = 𝑒 → (∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))) ↔ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))))
118	117	opabbidv 5166	. . . . . . . . . . . . . . . 16 ⊢ (𝑙 = 𝑒 → {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))} = {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})
119	108, 109, 118	supeq123d 9365	. . . . . . . . . . . . . . 15 ⊢ (𝑙 = 𝑒 → sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}) = sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))
120	119	mpteq2dv 5194	. . . . . . . . . . . . . 14 ⊢ (𝑙 = 𝑒 → (𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})) = (𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})))
121	109	difeq1d 4079	. . . . . . . . . . . . . 14 ⊢ (𝑙 = 𝑒 → ((𝑅1‘dom 𝑙) ∖ ran 𝑔) = ((𝑅1‘dom 𝑒) ∖ ran 𝑔))
122	120, 121	fveq12d 6849	. . . . . . . . . . . . 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 5194	. . . . . . . . . . . 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 8315	. . . . . . . . . . . 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 5832	. . . . . . . . . 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 6026	. . . . . . . . 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 4909	. . . . . . . 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 6026	. . . . . . . . 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 4909	. . . . . . . 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 2831	. . . . . . 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 5166	. . . . . 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 4510	. . . . 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 5664	. . . . 5 ⊢ (𝑙 = 𝑒 → ((𝑅1‘dom 𝑙) × (𝑅1‘dom 𝑙)) = ((𝑅1‘dom 𝑒) × (𝑅1‘dom 𝑒)))
135	133, 134	ineq12d 4175	. . . 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 5204	. . 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 8315	. . 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 2995	. . . . 5 ⊢ (𝑎 = 𝑐 → (𝑎 ≠ ∅ ↔ 𝑐 ≠ ∅))
142		fveq2 6842	. . . . . 6 ⊢ (𝑎 = 𝑐 → (𝑦‘𝑎) = (𝑦‘𝑐))
143		pweq 4570	. . . . . . . 8 ⊢ (𝑎 = 𝑐 → 𝒫 𝑎 = 𝒫 𝑐)
144	143	ineq1d 4173	. . . . . . 7 ⊢ (𝑎 = 𝑐 → (𝒫 𝑎 ∩ Fin) = (𝒫 𝑐 ∩ Fin))
145	144	difeq1d 4079	. . . . . 6 ⊢ (𝑎 = 𝑐 → ((𝒫 𝑎 ∩ Fin) ∖ {∅}) = ((𝒫 𝑐 ∩ Fin) ∖ {∅}))
146	142, 145	eleq12d 2831	. . . . 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 43421	1 ⊢ (𝜑 → ∃𝑏 𝑏 We (𝑅1‘𝐴))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   ∨ wo 848   = wceq 1542  ∃wex 1781   ∈ wcel 2114   ≠ wne 2933  ∀wral 3052  ∃wrex 3062  Vcvv 3442   ∖ cdif 3900   ∩ cin 3902  ∅c0 4287  ifcif 4481  𝒫 cpw 4556  {csn 4582  ∪ cuni 4865  ∩ cint 4904   class class class wbr 5100  {copab 5162   ↦ cmpt 5181   E cep 5531   We wwe 5584   × cxp 5630  ^◡ccnv 5631  dom cdm 5632  ran crn 5633   “ cima 5635  Oncon0 6325  suc csuc 6327  ‘cfv 6500  recscrecs 8312  Fincfn 8895  supcsup 9355  𝑅₁cr1 9686  rankcrnk 9687

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 2709  ax-rep 5226  ax-sep 5243  ax-nul 5253  ax-pow 5312  ax-pr 5379  ax-un 7690

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 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3063  df-rmo 3352  df-reu 3353  df-rab 3402  df-v 3444  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-pss 3923  df-nul 4288  df-if 4482  df-pw 4558  df-sn 4583  df-pr 4585  df-tp 4587  df-op 4589  df-uni 4866  df-int 4905  df-iun 4950  df-br 5101  df-opab 5163  df-mpt 5182  df-tr 5208  df-id 5527  df-eprel 5532  df-po 5540  df-so 5541  df-fr 5585  df-we 5587  df-xp 5638  df-rel 5639  df-cnv 5640  df-co 5641  df-dm 5642  df-rn 5643  df-res 5644  df-ima 5645  df-pred 6267  df-ord 6328  df-on 6329  df-lim 6330  df-suc 6331  df-iota 6456  df-fun 6502  df-fn 6503  df-f 6504  df-f1 6505  df-fo 6506  df-f1o 6507  df-fv 6508  df-isom 6509  df-riota 7325  df-ov 7371  df-oprab 7372  df-mpo 7373  df-om 7819  df-1st 7943  df-2nd 7944  df-frecs 8233  df-wrecs 8264  df-recs 8313  df-rdg 8351  df-1o 8407  df-2o 8408  df-map 8777  df-en 8896  df-fin 8899  df-sup 9357  df-r1 9688  df-rank 9689

This theorem is referenced by:  dfac11  43423