Theorem aomclem8 36649

Description: Lemma for dfac11 36650. 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 1991	. . . . . . 7 ⊢ (ℎ = 𝑏 → (𝑖 ∈ ℎ ↔ 𝑖 ∈ 𝑏))
2		elequ2 1991	. . . . . . . 8 ⊢ (𝑔 = 𝑐 → (𝑖 ∈ 𝑔 ↔ 𝑖 ∈ 𝑐))
3	2	notbid 307	. . . . . . 7 ⊢ (𝑔 = 𝑐 → (¬ 𝑖 ∈ 𝑔 ↔ ¬ 𝑖 ∈ 𝑐))
4	1, 3	bi2anan9r 914	. . . . . 6 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → ((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ↔ (𝑖 ∈ 𝑏 ∧ ¬ 𝑖 ∈ 𝑐)))
5		elequ2 1991	. . . . . . . . 9 ⊢ (𝑔 = 𝑐 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ 𝑐))
6		elequ2 1991	. . . . . . . . 9 ⊢ (ℎ = 𝑏 → (𝑗 ∈ ℎ ↔ 𝑗 ∈ 𝑏))
7	5, 6	bi2bian9 915	. . . . . . . 8 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → ((𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ) ↔ (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)))
8	7	imbi2d 329	. . . . . . 7 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → ((𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)) ↔ (𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏))))
9	8	ralbidv 2969	. . . . . 6 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)) ↔ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏))))
10	4, 9	anbi12d 743	. . . . 5 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))) ↔ ((𝑖 ∈ 𝑏 ∧ ¬ 𝑖 ∈ 𝑐) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)))))
11	10	rexbidv 3034	. . . 4 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))) ↔ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ 𝑏 ∧ ¬ 𝑖 ∈ 𝑐) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)))))
12		elequ1 1984	. . . . . . 7 ⊢ (𝑖 = 𝑑 → (𝑖 ∈ 𝑏 ↔ 𝑑 ∈ 𝑏))
13		elequ1 1984	. . . . . . . 8 ⊢ (𝑖 = 𝑑 → (𝑖 ∈ 𝑐 ↔ 𝑑 ∈ 𝑐))
14	13	notbid 307	. . . . . . 7 ⊢ (𝑖 = 𝑑 → (¬ 𝑖 ∈ 𝑐 ↔ ¬ 𝑑 ∈ 𝑐))
15	12, 14	anbi12d 743	. . . . . 6 ⊢ (𝑖 = 𝑑 → ((𝑖 ∈ 𝑏 ∧ ¬ 𝑖 ∈ 𝑐) ↔ (𝑑 ∈ 𝑏 ∧ ¬ 𝑑 ∈ 𝑐)))
16		breq2 4587	. . . . . . . . 9 ⊢ (𝑖 = 𝑑 → (𝑗(𝑒‘∪ dom 𝑒)𝑖 ↔ 𝑗(𝑒‘∪ dom 𝑒)𝑑))
17	16	imbi1d 330	. . . . . . . 8 ⊢ (𝑖 = 𝑑 → ((𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)) ↔ (𝑗(𝑒‘∪ dom 𝑒)𝑑 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏))))
18	17	ralbidv 2969	. . . . . . 7 ⊢ (𝑖 = 𝑑 → (∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)) ↔ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑑 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏))))
19		breq1 4586	. . . . . . . . 9 ⊢ (𝑗 = 𝑓 → (𝑗(𝑒‘∪ dom 𝑒)𝑑 ↔ 𝑓(𝑒‘∪ dom 𝑒)𝑑))
20		elequ1 1984	. . . . . . . . . 10 ⊢ (𝑗 = 𝑓 → (𝑗 ∈ 𝑐 ↔ 𝑓 ∈ 𝑐))
21		elequ1 1984	. . . . . . . . . 10 ⊢ (𝑗 = 𝑓 → (𝑗 ∈ 𝑏 ↔ 𝑓 ∈ 𝑏))
22	20, 21	bibi12d 334	. . . . . . . . 9 ⊢ (𝑗 = 𝑓 → ((𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏) ↔ (𝑓 ∈ 𝑐 ↔ 𝑓 ∈ 𝑏)))
23	19, 22	imbi12d 333	. . . . . . . 8 ⊢ (𝑗 = 𝑓 → ((𝑗(𝑒‘∪ dom 𝑒)𝑑 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)) ↔ (𝑓(𝑒‘∪ dom 𝑒)𝑑 → (𝑓 ∈ 𝑐 ↔ 𝑓 ∈ 𝑏))))
24	23	cbvralv 3147	. . . . . . 7 ⊢ (∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑑 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)) ↔ ∀𝑓 ∈ (𝑅1‘∪ dom 𝑒)(𝑓(𝑒‘∪ dom 𝑒)𝑑 → (𝑓 ∈ 𝑐 ↔ 𝑓 ∈ 𝑏)))
25	18, 24	syl6bb 275	. . . . . 6 ⊢ (𝑖 = 𝑑 → (∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏)) ↔ ∀𝑓 ∈ (𝑅1‘∪ dom 𝑒)(𝑓(𝑒‘∪ dom 𝑒)𝑑 → (𝑓 ∈ 𝑐 ↔ 𝑓 ∈ 𝑏))))
26	15, 25	anbi12d 743	. . . . 5 ⊢ (𝑖 = 𝑑 → (((𝑖 ∈ 𝑏 ∧ ¬ 𝑖 ∈ 𝑐) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏))) ↔ ((𝑑 ∈ 𝑏 ∧ ¬ 𝑑 ∈ 𝑐) ∧ ∀𝑓 ∈ (𝑅1‘∪ dom 𝑒)(𝑓(𝑒‘∪ dom 𝑒)𝑑 → (𝑓 ∈ 𝑐 ↔ 𝑓 ∈ 𝑏)))))
27	26	cbvrexv 3148	. . . 4 ⊢ (∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ 𝑏 ∧ ¬ 𝑖 ∈ 𝑐) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑐 ↔ 𝑗 ∈ 𝑏))) ↔ ∃𝑑 ∈ (𝑅1‘∪ dom 𝑒)((𝑑 ∈ 𝑏 ∧ ¬ 𝑑 ∈ 𝑐) ∧ ∀𝑓 ∈ (𝑅1‘∪ dom 𝑒)(𝑓(𝑒‘∪ dom 𝑒)𝑑 → (𝑓 ∈ 𝑐 ↔ 𝑓 ∈ 𝑏))))
28	11, 27	syl6bb 275	. . 3 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))) ↔ ∃𝑑 ∈ (𝑅1‘∪ dom 𝑒)((𝑑 ∈ 𝑏 ∧ ¬ 𝑑 ∈ 𝑐) ∧ ∀𝑓 ∈ (𝑅1‘∪ dom 𝑒)(𝑓(𝑒‘∪ dom 𝑒)𝑑 → (𝑓 ∈ 𝑐 ↔ 𝑓 ∈ 𝑏)))))
29	28	cbvopabv 4654	. 2 ⊢ {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))} = {⟨𝑐, 𝑏⟩ ∣ ∃𝑑 ∈ (𝑅1‘∪ dom 𝑒)((𝑑 ∈ 𝑏 ∧ ¬ 𝑑 ∈ 𝑐) ∧ ∀𝑓 ∈ (𝑅1‘∪ dom 𝑒)(𝑓(𝑒‘∪ dom 𝑒)𝑑 → (𝑓 ∈ 𝑐 ↔ 𝑓 ∈ 𝑏)))}
30		nfcv 2751	. . 3 ⊢ Ⅎ𝑐sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})
31		nfcv 2751	. . . 4 ⊢ Ⅎ𝑔(𝑦‘𝑐)
32		nfcv 2751	. . . 4 ⊢ Ⅎ𝑔(𝑅1‘dom 𝑒)
33		nfopab1 4651	. . . 4 ⊢ Ⅎ𝑔{⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}
34	31, 32, 33	nfsup 8240	. . 3 ⊢ Ⅎ𝑔sup((𝑦‘𝑐), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})
35		fveq2 6103	. . . 4 ⊢ (𝑔 = 𝑐 → (𝑦‘𝑔) = (𝑦‘𝑐))
36	35	supeq1d 8235	. . 3 ⊢ (𝑔 = 𝑐 → sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}) = sup((𝑦‘𝑐), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))
37	30, 34, 36	cbvmpt 4677	. 2 ⊢ (𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})) = (𝑐 ∈ V ↦ sup((𝑦‘𝑐), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))
38		nfcv 2751	. . . 4 ⊢ Ⅎ𝑐((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))
39		nffvmpt1 6111	. . . 4 ⊢ Ⅎ𝑔((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑐))
40		rneq 5272	. . . . . 6 ⊢ (𝑔 = 𝑐 → ran 𝑔 = ran 𝑐)
41	40	difeq2d 3690	. . . . 5 ⊢ (𝑔 = 𝑐 → ((𝑅1‘dom 𝑒) ∖ ran 𝑔) = ((𝑅1‘dom 𝑒) ∖ ran 𝑐))
42	41	fveq2d 6107	. . . 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 4677	. . 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 7357	. . 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 1830	. . 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 1830	. . 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 4675	. . . . . . . 8 ⊢ Ⅎ𝑔(𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))
49	48	nfrecs 7358	. . . . . . 7 ⊢ Ⅎ𝑔recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))))
50	49	nfcnv 5223	. . . . . 6 ⊢ Ⅎ𝑔◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))))
51		nfcv 2751	. . . . . 6 ⊢ Ⅎ𝑔{𝑐}
52	50, 51	nfima 5393	. . . . 5 ⊢ Ⅎ𝑔(◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐})
53	52	nfint 4421	. . . 4 ⊢ Ⅎ𝑔∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐})
54		nfcv 2751	. . . . . 6 ⊢ Ⅎ𝑔{𝑏}
55	50, 54	nfima 5393	. . . . 5 ⊢ Ⅎ𝑔(◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})
56	55	nfint 4421	. . . 4 ⊢ Ⅎ𝑔∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})
57	53, 56	nfel 2763	. . 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 2751	. . . . . . . . 9 ⊢ ℲℎV
59		nfcv 2751	. . . . . . . . . . . 12 ⊢ Ⅎℎ(𝑦‘𝑔)
60		nfcv 2751	. . . . . . . . . . . 12 ⊢ Ⅎℎ(𝑅1‘dom 𝑒)
61		nfopab2 4652	. . . . . . . . . . . 12 ⊢ Ⅎℎ{⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}
62	59, 60, 61	nfsup 8240	. . . . . . . . . . 11 ⊢ Ⅎℎsup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})
63	58, 62	nfmpt 4674	. . . . . . . . . 10 ⊢ Ⅎℎ(𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))
64		nfcv 2751	. . . . . . . . . 10 ⊢ Ⅎℎ((𝑅1‘dom 𝑒) ∖ ran 𝑔)
65	63, 64	nffv 6110	. . . . . . . . 9 ⊢ Ⅎℎ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))
66	58, 65	nfmpt 4674	. . . . . . . 8 ⊢ Ⅎℎ(𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))
67	66	nfrecs 7358	. . . . . . 7 ⊢ Ⅎℎrecs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))))
68	67	nfcnv 5223	. . . . . 6 ⊢ Ⅎℎ◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))))
69		nfcv 2751	. . . . . 6 ⊢ Ⅎℎ{𝑐}
70	68, 69	nfima 5393	. . . . 5 ⊢ Ⅎℎ(◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐})
71	70	nfint 4421	. . . 4 ⊢ Ⅎℎ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐})
72		nfcv 2751	. . . . . 6 ⊢ Ⅎℎ{𝑏}
73	68, 72	nfima 5393	. . . . 5 ⊢ Ⅎℎ(◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})
74	73	nfint 4421	. . . 4 ⊢ Ⅎℎ∩ (◡recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})
75	71, 74	nfel 2763	. . 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 4135	. . . . . 6 ⊢ (𝑔 = 𝑐 → {𝑔} = {𝑐})
77	76	imaeq2d 5385	. . . . 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 4415	. . . 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 4135	. . . . . 6 ⊢ (ℎ = 𝑏 → {ℎ} = {𝑏})
80	79	imaeq2d 5385	. . . . 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 4415	. . . 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 2678	. . . 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 493	. . 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 4653	. 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 6103	. . . . 5 ⊢ (𝑔 = 𝑐 → (rank‘𝑔) = (rank‘𝑐))
86		fveq2 6103	. . . . 5 ⊢ (ℎ = 𝑏 → (rank‘ℎ) = (rank‘𝑏))
87	85, 86	breqan12d 4599	. . . 4 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → ((rank‘𝑔) E (rank‘ℎ) ↔ (rank‘𝑐) E (rank‘𝑏)))
88	85, 86	eqeqan12d 2626	. . . . 5 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → ((rank‘𝑔) = (rank‘ℎ) ↔ (rank‘𝑐) = (rank‘𝑏)))
89		simpl 472	. . . . . 6 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → 𝑔 = 𝑐)
90		suceq 5707	. . . . . . . . 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 6107	. . . . . 6 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (𝑒‘suc (rank‘𝑔)) = (𝑒‘suc (rank‘𝑐)))
94		simpr 476	. . . . . 6 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → ℎ = 𝑏)
95	89, 93, 94	breq123d 4597	. . . . 5 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (𝑔(𝑒‘suc (rank‘𝑔))ℎ ↔ 𝑐(𝑒‘suc (rank‘𝑐))𝑏))
96	88, 95	anbi12d 743	. . . 4 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ) ↔ ((rank‘𝑐) = (rank‘𝑏) ∧ 𝑐(𝑒‘suc (rank‘𝑐))𝑏)))
97	87, 96	orbi12d 742	. . 3 ⊢ ((𝑔 = 𝑐 ∧ ℎ = 𝑏) → (((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ)) ↔ ((rank‘𝑐) E (rank‘𝑏) ∨ ((rank‘𝑐) = (rank‘𝑏) ∧ 𝑐(𝑒‘suc (rank‘𝑐))𝑏))))
98	97	cbvopabv 4654	. 2 ⊢ {⟨𝑔, ℎ⟩ ∣ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ))} = {⟨𝑐, 𝑏⟩ ∣ ((rank‘𝑐) E (rank‘𝑏) ∨ ((rank‘𝑐) = (rank‘𝑏) ∧ 𝑐(𝑒‘suc (rank‘𝑐))𝑏))}
99		eqid 2610	. 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 5246	. . . . . . 7 ⊢ (𝑙 = 𝑒 → dom 𝑙 = dom 𝑒)
101	100	unieqd 4382	. . . . . . 7 ⊢ (𝑙 = 𝑒 → ∪ dom 𝑙 = ∪ dom 𝑒)
102	100, 101	eqeq12d 2625	. . . . . 6 ⊢ (𝑙 = 𝑒 → (dom 𝑙 = ∪ dom 𝑙 ↔ dom 𝑒 = ∪ dom 𝑒))
103		fveq1 6102	. . . . . . . . . 10 ⊢ (𝑙 = 𝑒 → (𝑙‘suc (rank‘𝑔)) = (𝑒‘suc (rank‘𝑔)))
104	103	breqd 4594	. . . . . . . . 9 ⊢ (𝑙 = 𝑒 → (𝑔(𝑙‘suc (rank‘𝑔))ℎ ↔ 𝑔(𝑒‘suc (rank‘𝑔))ℎ))
105	104	anbi2d 736	. . . . . . . 8 ⊢ (𝑙 = 𝑒 → (((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑙‘suc (rank‘𝑔))ℎ) ↔ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ)))
106	105	orbi2d 734	. . . . . . 7 ⊢ (𝑙 = 𝑒 → (((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑙‘suc (rank‘𝑔))ℎ)) ↔ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ))))
107	106	opabbidv 4648	. . . . . 6 ⊢ (𝑙 = 𝑒 → {⟨𝑔, ℎ⟩ ∣ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑙‘suc (rank‘𝑔))ℎ))} = {⟨𝑔, ℎ⟩ ∣ ((rank‘𝑔) E (rank‘ℎ) ∨ ((rank‘𝑔) = (rank‘ℎ) ∧ 𝑔(𝑒‘suc (rank‘𝑔))ℎ))})
108		eqidd 2611	. . . . . . . . . . . . . . . 16 ⊢ (𝑙 = 𝑒 → (𝑦‘𝑔) = (𝑦‘𝑔))
109	100	fveq2d 6107	. . . . . . . . . . . . . . . 16 ⊢ (𝑙 = 𝑒 → (𝑅1‘dom 𝑙) = (𝑅1‘dom 𝑒))
110	101	fveq2d 6107	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑙 = 𝑒 → (𝑅1‘∪ dom 𝑙) = (𝑅1‘∪ dom 𝑒))
111		id 22	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑙 = 𝑒 → 𝑙 = 𝑒)
112	111, 101	fveq12d 6109	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑙 = 𝑒 → (𝑙‘∪ dom 𝑙) = (𝑒‘∪ dom 𝑒))
113	112	breqd 4594	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑙 = 𝑒 → (𝑗(𝑙‘∪ dom 𝑙)𝑖 ↔ 𝑗(𝑒‘∪ dom 𝑒)𝑖))
114	113	imbi1d 330	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑙 = 𝑒 → ((𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)) ↔ (𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))))
115	110, 114	raleqbidv 3129	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑙 = 𝑒 → (∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)) ↔ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))))
116	115	anbi2d 736	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑙 = 𝑒 → (((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))) ↔ ((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))))
117	110, 116	rexeqbidv 3130	. . . . . . . . . . . . . . . . 17 ⊢ (𝑙 = 𝑒 → (∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ))) ↔ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))))
118	117	opabbidv 4648	. . . . . . . . . . . . . . . 16 ⊢ (𝑙 = 𝑒 → {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))} = {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})
119	108, 109, 118	supeq123d 8239	. . . . . . . . . . . . . . 15 ⊢ (𝑙 = 𝑒 → sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}) = sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))}))
120	119	mpteq2dv 4673	. . . . . . . . . . . . . 14 ⊢ (𝑙 = 𝑒 → (𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑙)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑙)(𝑗(𝑙‘∪ dom 𝑙)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})) = (𝑔 ∈ V ↦ sup((𝑦‘𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ℎ⟩ ∣ ∃𝑖 ∈ (𝑅1‘∪ dom 𝑒)((𝑖 ∈ ℎ ∧ ¬ 𝑖 ∈ 𝑔) ∧ ∀𝑗 ∈ (𝑅1‘∪ dom 𝑒)(𝑗(𝑒‘∪ dom 𝑒)𝑖 → (𝑗 ∈ 𝑔 ↔ 𝑗 ∈ ℎ)))})))
121	109	difeq1d 3689	. . . . . . . . . . . . . 14 ⊢ (𝑙 = 𝑒 → ((𝑅1‘dom 𝑙) ∖ ran 𝑔) = ((𝑅1‘dom 𝑒) ∖ ran 𝑔))
122	120, 121	fveq12d 6109	. . . . . . . . . . . . 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 4673	. . . . . . . . . . . 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 7357	. . . . . . . . . . . 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 5220	. . . . . . . . . 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 5384	. . . . . . . . 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 4415	. . . . . . . 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 5384	. . . . . . . . 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 4415	. . . . . . . 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 2682	. . . . . . 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 4648	. . . . . 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 4063	. . . . 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 5065	. . . . 5 ⊢ (𝑙 = 𝑒 → ((𝑅1‘dom 𝑙) × (𝑅1‘dom 𝑙)) = ((𝑅1‘dom 𝑒) × (𝑅1‘dom 𝑒)))
135	133, 134	ineq12d 3777	. . . 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 4678	. . 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 7357	. . 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 2844	. . . . 5 ⊢ (𝑎 = 𝑐 → (𝑎 ≠ ∅ ↔ 𝑐 ≠ ∅))
142		fveq2 6103	. . . . . 6 ⊢ (𝑎 = 𝑐 → (𝑦‘𝑎) = (𝑦‘𝑐))
143		pweq 4111	. . . . . . . 8 ⊢ (𝑎 = 𝑐 → 𝒫 𝑎 = 𝒫 𝑐)
144	143	ineq1d 3775	. . . . . . 7 ⊢ (𝑎 = 𝑐 → (𝒫 𝑎 ∩ Fin) = (𝒫 𝑐 ∩ Fin))
145	144	difeq1d 3689	. . . . . 6 ⊢ (𝑎 = 𝑐 → ((𝒫 𝑎 ∩ Fin) ∖ {∅}) = ((𝒫 𝑐 ∩ Fin) ∖ {∅}))
146	142, 145	eleq12d 2682	. . . . 5 ⊢ (𝑎 = 𝑐 → ((𝑦‘𝑎) ∈ ((𝒫 𝑎 ∩ Fin) ∖ {∅}) ↔ (𝑦‘𝑐) ∈ ((𝒫 𝑐 ∩ Fin) ∖ {∅})))
147	141, 146	imbi12d 333	. . . 4 ⊢ (𝑎 = 𝑐 → ((𝑎 ≠ ∅ → (𝑦‘𝑎) ∈ ((𝒫 𝑎 ∩ Fin) ∖ {∅})) ↔ (𝑐 ≠ ∅ → (𝑦‘𝑐) ∈ ((𝒫 𝑐 ∩ Fin) ∖ {∅}))))
148	147	cbvralv 3147	. . 3 ⊢ (∀𝑎 ∈ 𝒫 (𝑅1‘𝐴)(𝑎 ≠ ∅ → (𝑦‘𝑎) ∈ ((𝒫 𝑎 ∩ Fin) ∖ {∅})) ↔ ∀𝑐 ∈ 𝒫 (𝑅1‘𝐴)(𝑐 ≠ ∅ → (𝑦‘𝑐) ∈ ((𝒫 𝑐 ∩ Fin) ∖ {∅})))
149	140, 148	sylib 207	. 2 ⊢ (𝜑 → ∀𝑐 ∈ 𝒫 (𝑅1‘𝐴)(𝑐 ≠ ∅ → (𝑦‘𝑐) ∈ ((𝒫 𝑐 ∩ Fin) ∖ {∅})))
150	29, 37, 45, 84, 98, 99, 138, 139, 149	aomclem7 36648	1 ⊢ (𝜑 → ∃𝑏 𝑏 We (𝑅1‘𝐴))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 195   ∨ wo 382   ∧ wa 383   = wceq 1475  ∃wex 1695   ∈ wcel 1977   ≠ wne 2780  ∀wral 2896  ∃wrex 2897  Vcvv 3173   ∖ cdif 3537   ∩ cin 3539  ∅c0 3874  ifcif 4036  𝒫 cpw 4108  {csn 4125  ∪ cuni 4372  ∩ cint 4410   class class class wbr 4583  {copab 4642   ↦ cmpt 4643   E cep 4947   We wwe 4996   × cxp 5036  ^◡ccnv 5037  dom cdm 5038  ran crn 5039   “ cima 5041  Oncon0 5640  suc csuc 5642  ‘cfv 5804  recscrecs 7354  Fincfn 7841  supcsup 8229  𝑅₁cr1 8508  rankcrnk 8509

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-8 1979  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-rep 4699  ax-sep 4709  ax-nul 4717  ax-pow 4769  ax-pr 4833  ax-un 6847

This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3or 1032  df-3an 1033  df-tru 1478  df-fal 1481  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ne 2782  df-ral 2901  df-rex 2902  df-reu 2903  df-rmo 2904  df-rab 2905  df-v 3175  df-sbc 3403  df-csb 3500  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-pss 3556  df-nul 3875  df-if 4037  df-pw 4110  df-sn 4126  df-pr 4128  df-tp 4130  df-op 4132  df-uni 4373  df-int 4411  df-iun 4457  df-br 4584  df-opab 4644  df-mpt 4645  df-tr 4681  df-eprel 4949  df-id 4953  df-po 4959  df-so 4960  df-fr 4997  df-we 4999  df-xp 5044  df-rel 5045  df-cnv 5046  df-co 5047  df-dm 5048  df-rn 5049  df-res 5050  df-ima 5051  df-pred 5597  df-ord 5643  df-on 5644  df-lim 5645  df-suc 5646  df-iota 5768  df-fun 5806  df-fn 5807  df-f 5808  df-f1 5809  df-fo 5810  df-f1o 5811  df-fv 5812  df-isom 5813  df-riota 6511  df-ov 6552  df-oprab 6553  df-mpt2 6554  df-om 6958  df-1st 7059  df-2nd 7060  df-wrecs 7294  df-recs 7355  df-rdg 7393  df-1o 7447  df-2o 7448  df-er 7629  df-map 7746  df-en 7842  df-fin 7845  df-sup 8231  df-r1 8510  df-rank 8511

This theorem is referenced by:  dfac11  36650