Theorem aomclem8 43506

Description: Lemma for dfac11 43507. 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 2134	. . . . . . 7 ⊢ (ℎ = 𝑏 → (𝑖 ∈ ℎ ↔ 𝑖 ∈ 𝑏))
2		elequ2 2134	. . . . . . . 8 ⊢ (𝑔 = 𝑐 → (𝑖 ∈ 𝑔 ↔ 𝑖 ∈ 𝑐))
3	2	notbid 319	. . . . . . 7 ⊢ (𝑔 = 𝑐 → (¬ 𝑖 ∈ 𝑔 ↔ ¬ 𝑖 ∈ 𝑐))
4	1, 3	bi2anan9r 645	. . . . . 6 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → ((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ↔ (𝑖 ∈ 𝑏 ∧ ¬ 𝑖 ∈ 𝑐)))
5		elequ2 2134	. . . . . . . . 9 ⊢ (𝑔 = 𝑐 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ 𝑐))
6		elequ2 2134	. . . . . . . . 9 ⊢ (ℎ = 𝑏 → (𝑗 ∈ ℎ ↔ 𝑗 ∈ 𝑏))
7	5, 6	bi2bian9 646	. . . . . . . 8 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → ((𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ) ↔ (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)))
8	7	imbi2d 341	. . . . . . 7 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → ((𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)) ↔ (𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏))))
9	8	ralbidv 3162	. . . . . 6 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)) ↔ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏))))
10	4, 9	anbi12d 638	. . . . 5 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))) ↔ ((𝑖 ∈ 𝑏 ∧ ¬ 𝑖 ∈ 𝑐) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)))))
11	10	rexbidv 3163	. . . 4 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))) ↔ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ 𝑏 ∧ ¬ 𝑖 ∈ 𝑐) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)))))
12		elequ1 2126	. . . . . . 7 ⊢ (𝑖 = 𝑑 → (𝑖 ∈ 𝑏 ↔ 𝑑 ∈ 𝑏))
13		elequ1 2126	. . . . . . . 8 ⊢ (𝑖 = 𝑑 → (𝑖 ∈ 𝑐 ↔ 𝑑 ∈ 𝑐))
14	13	notbid 319	. . . . . . 7 ⊢ (𝑖 = 𝑑 → (¬ 𝑖 ∈ 𝑐 ↔ ¬ 𝑑 ∈ 𝑐))
15	12, 14	anbi12d 638	. . . . . 6 ⊢ (𝑖 = 𝑑 → ((𝑖 ∈ 𝑏 ∧ ¬ 𝑖 ∈ 𝑐) ↔ (𝑑 ∈ 𝑏 ∧ ¬ 𝑑 ∈ 𝑐)))
16		breq2 5076	. . . . . . . . 9 ⊢ (𝑖 = 𝑑 → (𝑗(𝑒‘∪ dom 𝑒)𝑖 ↔ 𝑗(𝑒‘∪ dom 𝑒)𝑑))
17	16	imbi1d 342	. . . . . . . 8 ⊢ (𝑖 = 𝑑 → ((𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)) ↔ (𝑗(𝑒‘∪ dom 𝑒)𝑑 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏))))
18	17	ralbidv 3162	. . . . . . 7 ⊢ (𝑖 = 𝑑 → (∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)) ↔ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑑 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏))))
19		breq1 5075	. . . . . . . . 9 ⊢ (𝑗 = 𝑓 → (𝑗(𝑒‘∪ dom 𝑒)𝑑 ↔ 𝑓(𝑒‘∪ dom 𝑒)𝑑))
20		elequ1 2126	. . . . . . . . . 10 ⊢ (𝑗 = 𝑓 → (𝑗 ∈ 𝑐 ↔ 𝑓 ∈ 𝑐))
21		elequ1 2126	. . . . . . . . . 10 ⊢ (𝑗 = 𝑓 → (𝑗 ∈ 𝑏 ↔ 𝑓 ∈ 𝑏))
22	20, 21	bibi12d 346	. . . . . . . . 9 ⊢ (𝑗 = 𝑓 → ((𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏) ↔ (𝑓 ∈ 𝑐 ↔ 𝑓 ∈ 𝑏)))
23	19, 22	imbi12d 345	. . . . . . . 8 ⊢ (𝑗 = 𝑓 → ((𝑗(𝑒‘∪ dom 𝑒)𝑑 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)) ↔ (𝑓(𝑒‘∪ dom 𝑒)𝑑 → (𝑓 ∈ 𝑐 ↔ 𝑓 ∈ 𝑏))))
24	23	cbvralvw 3217	. . . . . . 7 ⊢ (∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑑 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)) ↔ ∀𝑓 ∈ (𝑅1‘∪ dom 𝑒)(𝑓(𝑒‘∪ dom 𝑒)𝑑 → (𝑓 ∈ 𝑐 ↔ 𝑓 ∈ 𝑏)))
25	18, 24	bitrdi 288	. . . . . 6 ⊢ (𝑖 = 𝑑 → (∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)) ↔ ∀𝑓 ∈ (𝑅1‘∪ dom 𝑒)(𝑓(𝑒‘∪ dom 𝑒)𝑑 → (𝑓 ∈ 𝑐 ↔ 𝑓 ∈ 𝑏))))
26	15, 25	anbi12d 638	. . . . 5 ⊢ (𝑖 = 𝑑 → (((𝑖 ∈ 𝑏 ∧ ¬ 𝑖 ∈ 𝑐) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏))) ↔ ((𝑑 ∈ 𝑏 ∧ ¬ 𝑑 ∈ 𝑐) ∧ ∀𝑓 ∈ (𝑅1‘∪ dom 𝑒)(𝑓(𝑒‘∪ dom 𝑒)𝑑 → (𝑓 ∈ 𝑐 ↔ 𝑓 ∈ 𝑏)))))
27	26	cbvrexvw 3218	. . . 4 ⊢ (∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ 𝑏 ∧ ¬ 𝑖 ∈ 𝑐) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏))) ↔ ∃𝑑 ∈ (𝑅1‘∪ dom 𝑒)((𝑑 ∈ 𝑏 ∧ ¬ 𝑑 ∈ 𝑐) ∧ ∀𝑓 ∈ (𝑅1‘∪ dom 𝑒)(𝑓(𝑒‘∪ dom 𝑒)𝑑 → (𝑓 ∈ 𝑐 ↔ 𝑓 ∈ 𝑏))))
28	11, 27	bitrdi 288	. . 3 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))) ↔ ∃𝑑 ∈ (𝑅1‘∪ dom 𝑒)((𝑑 ∈ 𝑏 ∧ ¬ 𝑑 ∈ 𝑐) ∧ ∀𝑓 ∈ (𝑅1‘∪ dom 𝑒)(𝑓(𝑒‘∪ dom 𝑒)𝑑 → (𝑓 ∈ 𝑐 ↔ 𝑓 ∈ 𝑏)))))
29	28	cbvopabv 5145	. 2 ⊢ {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))} = {⟨𝑐, 𝑏⟩ ∣ ∃𝑑 ∈ (𝑅1‘∪ dom 𝑒)((𝑑 ∈ 𝑏 ∧ ¬ 𝑑 ∈ 𝑐) ∧ ∀𝑓 ∈ (𝑅1‘∪ dom 𝑒)(𝑓(𝑒‘∪ dom 𝑒)𝑑 → (𝑓 ∈ 𝑐 ↔ 𝑓 ∈ 𝑏)))}
30		nfcv 2901	. . 3 ⊢ Ⅎ𝑐sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})
31		nfcv 2901	. . . 4 ⊢ Ⅎ𝑔(𝑦‘𝑐)
32		nfcv 2901	. . . 4 ⊢ Ⅎ𝑔(𝑅1‘dom 𝑒)
33		nfopab1 5142	. . . 4 ⊢ Ⅎ𝑔{⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}
34	31, 32, 33	nfsup 9354	. . 3 ⊢ Ⅎ𝑔sup((𝑦‘𝑐), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})
35		fveq2 6827	. . . 4 ⊢ (𝑔 = 𝑐 → (𝑦‘𝑔) = (𝑦‘𝑐))
36	35	supeq1d 9349	. . 3 ⊢ (𝑔 = 𝑐 → sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}) = sup((𝑦‘𝑐), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))
37	30, 34, 36	cbvmpt 5174	. 2 ⊢ (𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})) = (𝑐 ∈ V ↦ sup((𝑦‘𝑐), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))
38		nfcv 2901	. . . 4 ⊢ Ⅎ𝑐((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))
39		nffvmpt1 6838	. . . 4 ⊢ Ⅎ𝑔((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑐))
40		rneq 5878	. . . . . 6 ⊢ (𝑔 = 𝑐 → ran 𝑔 = ran 𝑐)
41	40	difeq2d 4057	. . . . 5 ⊢ (𝑔 = 𝑐 → ((𝑅1‘dom 𝑒) ∖ ran 𝑔) = ((𝑅1‘dom 𝑒) ∖ ran 𝑐))
42	41	fveq2d 6831	. . . 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 5174	. . 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 1921	. . 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 1921	. . 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 5171	. . . . . . . 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 5820	. . . . . 6 ⊢ Ⅎ𝑔◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))))
51		nfcv 2901	. . . . . 6 ⊢ Ⅎ𝑔{𝑐}
52	50, 51	nfima 6020	. . . . 5 ⊢ Ⅎ𝑔(◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐})
53	52	nfint 4887	. . . 4 ⊢ Ⅎ𝑔∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐})
54		nfcv 2901	. . . . . 6 ⊢ Ⅎ𝑔{𝑏}
55	50, 54	nfima 6020	. . . . 5 ⊢ Ⅎ𝑔(◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})
56	55	nfint 4887	. . . 4 ⊢ Ⅎ𝑔∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})
57	53, 56	nfel 2915	. . 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 2901	. . . . . . . . 9 ⊢ ℲℎV
59		nfcv 2901	. . . . . . . . . . . 12 ⊢ Ⅎℎ(𝑦‘𝑔)
60		nfcv 2901	. . . . . . . . . . . 12 ⊢ Ⅎℎ(𝑅1‘dom 𝑒)
61		nfopab2 5143	. . . . . . . . . . . 12 ⊢ Ⅎℎ{⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}
62	59, 60, 61	nfsup 9354	. . . . . . . . . . 11 ⊢ Ⅎℎsup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})
63	58, 62	nfmpt 5170	. . . . . . . . . 10 ⊢ Ⅎℎ(𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))
64		nfcv 2901	. . . . . . . . . 10 ⊢ Ⅎℎ((𝑅1‘dom 𝑒) ∖ ran 𝑔)
65	63, 64	nffv 6837	. . . . . . . . 9 ⊢ Ⅎℎ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))
66	58, 65	nfmpt 5170	. . . . . . . 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 5820	. . . . . 6 ⊢ Ⅎℎ◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))))
69		nfcv 2901	. . . . . 6 ⊢ Ⅎℎ{𝑐}
70	68, 69	nfima 6020	. . . . 5 ⊢ Ⅎℎ(◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐})
71	70	nfint 4887	. . . 4 ⊢ Ⅎℎ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐})
72		nfcv 2901	. . . . . 6 ⊢ Ⅎℎ{𝑏}
73	68, 72	nfima 6020	. . . . 5 ⊢ Ⅎℎ(◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})
74	73	nfint 4887	. . . 4 ⊢ Ⅎℎ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})
75	71, 74	nfel 2915	. . 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 4565	. . . . . 6 ⊢ (𝑔 = 𝑐 → {𝑔} = {𝑐})
77	76	imaeq2d 6012	. . . . 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 4882	. . . 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 4565	. . . . . 6 ⊢ (ℎ = 𝑏 → {ℎ} = {𝑏})
80	79	imaeq2d 6012	. . . . 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 4882	. . . 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 2829	. . . 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 602	. . 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 5144	. 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 6827	. . . . 5 ⊢ (𝑔 = 𝑐 → (rank‘𝑔) = (rank‘𝑐))
86		fveq2 6827	. . . . 5 ⊢ (ℎ = 𝑏 → (rank‘ℎ) = (rank‘𝑏))
87	85, 86	breqan12d 5088	. . . 4 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → ((rank‘𝑔) E (rank‘ℎ) ↔ (rank‘𝑐) E (rank‘𝑏)))
88	85, 86	eqeqan12d 2753	. . . . 5 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → ((rank‘𝑔) = (rank‘ℎ) ↔ (rank‘𝑐) = (rank‘𝑏)))
89		simpl 483	. . . . . 6 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → 𝑔 = 𝑐)
90		suceq 6378	. . . . . . . . 9 ⊢ ((rank‘𝑔) = (rank‘𝑐) → suc (rank‘𝑔) = suc (rank‘𝑐))
91	85, 90	syl 17	. . . . . . . 8 ⊢ (𝑔 = 𝑐 → suc (rank‘𝑔) = suc (rank‘𝑐))
92	91	adantr 481	. . . . . . 7 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → suc (rank‘𝑔) = suc (rank‘𝑐))
93	92	fveq2d 6831	. . . . . 6 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (𝑒‘suc (rank‘𝑔)) = (𝑒‘suc (rank‘𝑐)))
94		simpr 485	. . . . . 6 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → ℎ = 𝑏)
95	89, 93, 94	breq123d 5086	. . . . 5 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (𝑔(𝑒‘suc (rank‘𝑔))ℎ ↔ 𝑐(𝑒‘suc (rank‘𝑐))𝑏))
96	88, 95	anbi12d 638	. . . 4 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ) ↔ ((rank‘𝑐) = (rank‘𝑏) ∧ 𝑐(𝑒‘suc (rank‘𝑐))𝑏)))
97	87, 96	orbi12d 924	. . 3 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ)) ↔ ((rank‘𝑐) E (rank‘𝑏) ∨ ((rank‘𝑐) = (rank‘𝑏) ∧ 𝑐(𝑒‘suc (rank‘𝑐))𝑏))))
98	97	cbvopabv 5145	. 2 ⊢ {⟨𝑔, ℎ⟩ ∣ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ))} = {⟨𝑐, 𝑏⟩ ∣ ((rank‘𝑐) E (rank‘𝑏) ∨ ((rank‘𝑐) = (rank‘𝑏) ∧ 𝑐(𝑒‘suc (rank‘𝑐))𝑏))}
99		eqid 2739	. 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 5845	. . . . . . 7 ⊢ (𝑙 = 𝑒 → dom 𝑙 = dom 𝑒)
101	100	unieqd 4851	. . . . . . 7 ⊢ (𝑙 = 𝑒 → ∪ dom 𝑙 = ∪ dom 𝑒)
102	100, 101	eqeq12d 2755	. . . . . 6 ⊢ (𝑙 = 𝑒 → (dom 𝑙 = ∪ dom 𝑙 ↔ dom 𝑒 = ∪ dom 𝑒))
103		fveq1 6826	. . . . . . . . . 10 ⊢ (𝑙 = 𝑒 → (𝑙‘suc (rank‘𝑔)) = (𝑒‘suc (rank‘𝑔)))
104	103	breqd 5083	. . . . . . . . 9 ⊢ (𝑙 = 𝑒 → (𝑔(𝑙‘suc (rank‘𝑔))ℎ ↔ 𝑔(𝑒‘suc (rank‘𝑔))ℎ))
105	104	anbi2d 636	. . . . . . . 8 ⊢ (𝑙 = 𝑒 → (((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑙‘suc (rank‘𝑔))ℎ) ↔ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ)))
106	105	orbi2d 921	. . . . . . 7 ⊢ (𝑙 = 𝑒 → (((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑙‘suc (rank‘𝑔))ℎ)) ↔ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ))))
107	106	opabbidv 5138	. . . . . 6 ⊢ (𝑙 = 𝑒 → {⟨𝑔, ℎ⟩ ∣ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑙‘suc (rank‘𝑔))ℎ))} = {⟨𝑔, ℎ⟩ ∣ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ))})
108		eqidd 2740	. . . . . . . . . . . . . . . 16 ⊢ (𝑙 = 𝑒 → (𝑦‘𝑔) = (𝑦‘𝑔))
109	100	fveq2d 6831	. . . . . . . . . . . . . . . 16 ⊢ (𝑙 = 𝑒 → (𝑅1‘dom 𝑙) = (𝑅1‘dom 𝑒))
110	101	fveq2d 6831	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑙 = 𝑒 → (𝑅1‘∪ dom 𝑙) = (𝑅1‘∪ dom 𝑒))
111		id 22	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑙 = 𝑒 → 𝑙 = 𝑒)
112	111, 101	fveq12d 6834	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑙 = 𝑒 → (𝑙‘∪ dom 𝑙) = (𝑒‘∪ dom 𝑒))
113	112	breqd 5083	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑙 = 𝑒 → (𝑗(𝑙‘∪ dom 𝑙)𝑖 ↔ 𝑗(𝑒‘∪ dom 𝑒)𝑖))
114	113	imbi1d 342	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑙 = 𝑒 → ((𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)) ↔ (𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))))
115	110, 114	raleqbidv 3313	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑙 = 𝑒 → (∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)) ↔ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))))
116	115	anbi2d 636	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑙 = 𝑒 → (((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))) ↔ ((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))))
117	110, 116	rexeqbidv 3314	. . . . . . . . . . . . . . . . 17 ⊢ (𝑙 = 𝑒 → (∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))) ↔ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))))
118	117	opabbidv 5138	. . . . . . . . . . . . . . . 16 ⊢ (𝑙 = 𝑒 → {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))} = {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})
119	108, 109, 118	supeq123d 9353	. . . . . . . . . . . . . . 15 ⊢ (𝑙 = 𝑒 → sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}) = sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))
120	119	mpteq2dv 5166	. . . . . . . . . . . . . 14 ⊢ (𝑙 = 𝑒 → (𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})) = (𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})))
121	109	difeq1d 4056	. . . . . . . . . . . . . 14 ⊢ (𝑙 = 𝑒 → ((𝑅1‘dom 𝑙) ∖ ran 𝑔) = ((𝑅1‘dom 𝑒) ∖ ran 𝑔))
122	120, 121	fveq12d 6834	. . . . . . . . . . . . 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 5166	. . . . . . . . . . . 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 5817	. . . . . . . . . 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 6011	. . . . . . . . 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 4882	. . . . . . . 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 6011	. . . . . . . . 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 4882	. . . . . . . 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 2833	. . . . . . 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 5138	. . . . . 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 4483	. . . . 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 5650	. . . . 5 ⊢ (𝑙 = 𝑒 → ((𝑅1‘dom 𝑙) × (𝑅1‘dom 𝑙)) = ((𝑅1‘dom 𝑒) × (𝑅1‘dom 𝑒)))
135	133, 134	ineq12d 4150	. . . 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 5176	. . 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 2996	. . . . 5 ⊢ (𝑎 = 𝑐 → (𝑎 ≠ ∅ ↔ 𝑐 ≠ ∅))
142		fveq2 6827	. . . . . 6 ⊢ (𝑎 = 𝑐 → (𝑦‘𝑎) = (𝑦‘𝑐))
143		pweq 4543	. . . . . . . 8 ⊢ (𝑎 = 𝑐 → 𝒫 𝑎 = 𝒫 𝑐)
144	143	ineq1d 4148	. . . . . . 7 ⊢ (𝑎 = 𝑐 → (𝒫 𝑎 ∩ Fin) = (𝒫 𝑐 ∩ Fin))
145	144	difeq1d 4056	. . . . . 6 ⊢ (𝑎 = 𝑐 → ((𝒫 𝑎 ∩ Fin) ∖ {∅}) = ((𝒫 𝑐 ∩ Fin) ∖ {∅}))
146	142, 145	eleq12d 2833	. . . . 5 ⊢ (𝑎 = 𝑐 → ((𝑦‘𝑎) ∈ ((𝒫 𝑎 ∩ Fin) ∖ {∅}) ↔ (𝑦‘𝑐) ∈ ((𝒫 𝑐 ∩ Fin) ∖ {∅})))
147	141, 146	imbi12d 345	. . . 4 ⊢ (𝑎 = 𝑐 → ((𝑎 ≠ ∅ → (𝑦‘𝑎) ∈ ((𝒫 𝑎 ∩ Fin) ∖ {∅})) ↔ (𝑐 ≠ ∅ → (𝑦‘𝑐) ∈ ((𝒫 𝑐 ∩ Fin) ∖ {∅}))))
148	147	cbvralvw 3217	. . 3 ⊢ (∀𝑎 ∈ 𝒫 (𝑅1‘𝐴)(𝑎 ≠ ∅ → (𝑦‘𝑎) ∈ ((𝒫 𝑎 ∩ Fin) ∖ {∅})) ↔ ∀𝑐 ∈ 𝒫 (𝑅1‘𝐴)(𝑐 ≠ ∅ → (𝑦‘𝑐) ∈ ((𝒫 𝑐 ∩ Fin) ∖ {∅})))
149	140, 148	sylib 219	. 2 ⊢ (𝜑 → ∀𝑐 ∈ 𝒫 (𝑅1‘𝐴)(𝑐 ≠ ∅ → (𝑦‘𝑐) ∈ ((𝒫 𝑐 ∩ Fin) ∖ {∅})))
150	29, 37, 45, 84, 98, 99, 138, 139, 149	aomclem7 43505	1 ⊢ (𝜑 → ∃𝑏 𝑏 We (𝑅1‘𝐴))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 207   ∧ wa 396   ∨ wo 853   = wceq 1547  ∃wex 1786   ∈ wcel 2119   ≠ wne 2934  ∀wral 3053  ∃wrex 3063  Vcvv 3431   ∖ cdif 3880   ∩ cin 3882  ∅c0 4261  ifcif 4454  𝒫 cpw 4529  {csn 4555  ∪ cuni 4838  ∩ cint 4877   class class class wbr 5072  {copab 5134   ↦ cmpt 5153   E cep 5517   We wwe 5570   × cxp 5616  ^◡ccnv 5617  dom cdm 5618  ran crn 5619   “ cima 5621  Oncon0 6310  suc csuc 6312  ‘cfv 6485  recscrecs 8300  Fincfn 8883  supcsup 9343  𝑅₁cr1 9677  rankcrnk 9678

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2711  ax-rep 5199  ax-sep 5218  ax-nul 5228  ax-pow 5294  ax-pr 5362  ax-un 7678

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3or 1093  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2718  df-cleq 2731  df-clel 2814  df-nfc 2888  df-ne 2935  df-ral 3054  df-rex 3064  df-rmo 3344  df-reu 3345  df-rab 3392  df-v 3433  df-sbc 3724  df-csb 3832  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-pss 3903  df-nul 4262  df-if 4455  df-pw 4531  df-sn 4556  df-pr 4558  df-tp 4560  df-op 4562  df-uni 4839  df-int 4878  df-iun 4923  df-br 5073  df-opab 5135  df-mpt 5154  df-tr 5180  df-id 5513  df-eprel 5518  df-po 5526  df-so 5527  df-fr 5571  df-we 5573  df-xp 5624  df-rel 5625  df-cnv 5626  df-co 5627  df-dm 5628  df-rn 5629  df-res 5630  df-ima 5631  df-pred 6252  df-ord 6313  df-on 6314  df-lim 6315  df-suc 6316  df-iota 6441  df-fun 6487  df-fn 6488  df-f 6489  df-f1 6490  df-fo 6491  df-f1o 6492  df-fv 6493  df-isom 6494  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 8765  df-en 8884  df-fin 8887  df-sup 9345  df-r1 9679  df-rank 9680

This theorem is referenced by:  dfac11  43507