Users' Mathboxes Mathbox for Stefan O'Rear < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  aomclem8 Structured version   Visualization version   GIF version

Theorem aomclem8 43049
Description: Lemma for dfac11 43050. 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.
StepHypRef Expression
1 elequ2 2120 . . . . . . 7 ( = 𝑏 → (𝑖𝑖𝑏))
2 elequ2 2120 . . . . . . . 8 (𝑔 = 𝑐 → (𝑖𝑔𝑖𝑐))
32notbid 318 . . . . . . 7 (𝑔 = 𝑐 → (¬ 𝑖𝑔 ↔ ¬ 𝑖𝑐))
41, 3bi2anan9r 639 . . . . . 6 ((𝑔 = 𝑐 = 𝑏) → ((𝑖 ∧ ¬ 𝑖𝑔) ↔ (𝑖𝑏 ∧ ¬ 𝑖𝑐)))
5 elequ2 2120 . . . . . . . . 9 (𝑔 = 𝑐 → (𝑗𝑔𝑗𝑐))
6 elequ2 2120 . . . . . . . . 9 ( = 𝑏 → (𝑗𝑗𝑏))
75, 6bi2bian9 640 . . . . . . . 8 ((𝑔 = 𝑐 = 𝑏) → ((𝑗𝑔𝑗) ↔ (𝑗𝑐𝑗𝑏)))
87imbi2d 340 . . . . . . 7 ((𝑔 = 𝑐 = 𝑏) → ((𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)) ↔ (𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑐𝑗𝑏))))
98ralbidv 3175 . . . . . 6 ((𝑔 = 𝑐 = 𝑏) → (∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)) ↔ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑐𝑗𝑏))))
104, 9anbi12d 632 . . . . 5 ((𝑔 = 𝑐 = 𝑏) → (((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗))) ↔ ((𝑖𝑏 ∧ ¬ 𝑖𝑐) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑐𝑗𝑏)))))
1110rexbidv 3176 . . . 4 ((𝑔 = 𝑐 = 𝑏) → (∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗))) ↔ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖𝑏 ∧ ¬ 𝑖𝑐) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑐𝑗𝑏)))))
12 elequ1 2112 . . . . . . 7 (𝑖 = 𝑑 → (𝑖𝑏𝑑𝑏))
13 elequ1 2112 . . . . . . . 8 (𝑖 = 𝑑 → (𝑖𝑐𝑑𝑐))
1413notbid 318 . . . . . . 7 (𝑖 = 𝑑 → (¬ 𝑖𝑐 ↔ ¬ 𝑑𝑐))
1512, 14anbi12d 632 . . . . . 6 (𝑖 = 𝑑 → ((𝑖𝑏 ∧ ¬ 𝑖𝑐) ↔ (𝑑𝑏 ∧ ¬ 𝑑𝑐)))
16 breq2 5151 . . . . . . . . 9 (𝑖 = 𝑑 → (𝑗(𝑒 dom 𝑒)𝑖𝑗(𝑒 dom 𝑒)𝑑))
1716imbi1d 341 . . . . . . . 8 (𝑖 = 𝑑 → ((𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑐𝑗𝑏)) ↔ (𝑗(𝑒 dom 𝑒)𝑑 → (𝑗𝑐𝑗𝑏))))
1817ralbidv 3175 . . . . . . 7 (𝑖 = 𝑑 → (∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑐𝑗𝑏)) ↔ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑑 → (𝑗𝑐𝑗𝑏))))
19 breq1 5150 . . . . . . . . 9 (𝑗 = 𝑓 → (𝑗(𝑒 dom 𝑒)𝑑𝑓(𝑒 dom 𝑒)𝑑))
20 elequ1 2112 . . . . . . . . . 10 (𝑗 = 𝑓 → (𝑗𝑐𝑓𝑐))
21 elequ1 2112 . . . . . . . . . 10 (𝑗 = 𝑓 → (𝑗𝑏𝑓𝑏))
2220, 21bibi12d 345 . . . . . . . . 9 (𝑗 = 𝑓 → ((𝑗𝑐𝑗𝑏) ↔ (𝑓𝑐𝑓𝑏)))
2319, 22imbi12d 344 . . . . . . . 8 (𝑗 = 𝑓 → ((𝑗(𝑒 dom 𝑒)𝑑 → (𝑗𝑐𝑗𝑏)) ↔ (𝑓(𝑒 dom 𝑒)𝑑 → (𝑓𝑐𝑓𝑏))))
2423cbvralvw 3234 . . . . . . 7 (∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑑 → (𝑗𝑐𝑗𝑏)) ↔ ∀𝑓 ∈ (𝑅1 dom 𝑒)(𝑓(𝑒 dom 𝑒)𝑑 → (𝑓𝑐𝑓𝑏)))
2518, 24bitrdi 287 . . . . . 6 (𝑖 = 𝑑 → (∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑐𝑗𝑏)) ↔ ∀𝑓 ∈ (𝑅1 dom 𝑒)(𝑓(𝑒 dom 𝑒)𝑑 → (𝑓𝑐𝑓𝑏))))
2615, 25anbi12d 632 . . . . 5 (𝑖 = 𝑑 → (((𝑖𝑏 ∧ ¬ 𝑖𝑐) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑐𝑗𝑏))) ↔ ((𝑑𝑏 ∧ ¬ 𝑑𝑐) ∧ ∀𝑓 ∈ (𝑅1 dom 𝑒)(𝑓(𝑒 dom 𝑒)𝑑 → (𝑓𝑐𝑓𝑏)))))
2726cbvrexvw 3235 . . . 4 (∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖𝑏 ∧ ¬ 𝑖𝑐) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑐𝑗𝑏))) ↔ ∃𝑑 ∈ (𝑅1 dom 𝑒)((𝑑𝑏 ∧ ¬ 𝑑𝑐) ∧ ∀𝑓 ∈ (𝑅1 dom 𝑒)(𝑓(𝑒 dom 𝑒)𝑑 → (𝑓𝑐𝑓𝑏))))
2811, 27bitrdi 287 . . 3 ((𝑔 = 𝑐 = 𝑏) → (∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗))) ↔ ∃𝑑 ∈ (𝑅1 dom 𝑒)((𝑑𝑏 ∧ ¬ 𝑑𝑐) ∧ ∀𝑓 ∈ (𝑅1 dom 𝑒)(𝑓(𝑒 dom 𝑒)𝑑 → (𝑓𝑐𝑓𝑏)))))
2928cbvopabv 5220 . 2 {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))} = {⟨𝑐, 𝑏⟩ ∣ ∃𝑑 ∈ (𝑅1 dom 𝑒)((𝑑𝑏 ∧ ¬ 𝑑𝑐) ∧ ∀𝑓 ∈ (𝑅1 dom 𝑒)(𝑓(𝑒 dom 𝑒)𝑑 → (𝑓𝑐𝑓𝑏)))}
30 nfcv 2902 . . 3 𝑐sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))})
31 nfcv 2902 . . . 4 𝑔(𝑦𝑐)
32 nfcv 2902 . . . 4 𝑔(𝑅1‘dom 𝑒)
33 nfopab1 5217 . . . 4 𝑔{⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}
3431, 32, 33nfsup 9488 . . 3 𝑔sup((𝑦𝑐), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))})
35 fveq2 6906 . . . 4 (𝑔 = 𝑐 → (𝑦𝑔) = (𝑦𝑐))
3635supeq1d 9483 . . 3 (𝑔 = 𝑐 → sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}) = sup((𝑦𝑐), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}))
3730, 34, 36cbvmpt 5258 . 2 (𝑔 ∈ V ↦ sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))})) = (𝑐 ∈ V ↦ sup((𝑦𝑐), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}))
38 nfcv 2902 . . . 4 𝑐((𝑔 ∈ V ↦ sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))
39 nffvmpt1 6917 . . . 4 𝑔((𝑔 ∈ V ↦ sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑐))
40 rneq 5949 . . . . . 6 (𝑔 = 𝑐 → ran 𝑔 = ran 𝑐)
4140difeq2d 4135 . . . . 5 (𝑔 = 𝑐 → ((𝑅1‘dom 𝑒) ∖ ran 𝑔) = ((𝑅1‘dom 𝑒) ∖ ran 𝑐))
4241fveq2d 6910 . . . 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 𝑐)))
4338, 39, 42cbvmpt 5258 . . 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 8412 . . 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 𝑐)))))
4543, 44ax-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 1911 . . 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 1911 . . 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 5255 . . . . . . . 8 𝑔(𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))
4948nfrecs 8413 . . . . . . 7 𝑔recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))))
5049nfcnv 5891 . . . . . 6 𝑔recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))))
51 nfcv 2902 . . . . . 6 𝑔{𝑐}
5250, 51nfima 6087 . . . . 5 𝑔(recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐})
5352nfint 4960 . . . 4 𝑔 (recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐})
54 nfcv 2902 . . . . . 6 𝑔{𝑏}
5550, 54nfima 6087 . . . . 5 𝑔(recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})
5655nfint 4960 . . . 4 𝑔 (recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})
5753, 56nfel 2917 . . 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 2902 . . . . . . . . 9 V
59 nfcv 2902 . . . . . . . . . . . 12 (𝑦𝑔)
60 nfcv 2902 . . . . . . . . . . . 12 (𝑅1‘dom 𝑒)
61 nfopab2 5218 . . . . . . . . . . . 12 {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}
6259, 60, 61nfsup 9488 . . . . . . . . . . 11 sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))})
6358, 62nfmpt 5254 . . . . . . . . . 10 (𝑔 ∈ V ↦ sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}))
64 nfcv 2902 . . . . . . . . . 10 ((𝑅1‘dom 𝑒) ∖ ran 𝑔)
6563, 64nffv 6916 . . . . . . . . 9 ((𝑔 ∈ V ↦ sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))
6658, 65nfmpt 5254 . . . . . . . 8 (𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))
6766nfrecs 8413 . . . . . . 7 recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))))
6867nfcnv 5891 . . . . . 6 recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔))))
69 nfcv 2902 . . . . . 6 {𝑐}
7068, 69nfima 6087 . . . . 5 (recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐})
7170nfint 4960 . . . 4 (recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐})
72 nfcv 2902 . . . . . 6 {𝑏}
7368, 72nfima 6087 . . . . 5 (recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})
7473nfint 4960 . . . 4 (recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})
7571, 74nfel 2917 . . 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 4640 . . . . . 6 (𝑔 = 𝑐 → {𝑔} = {𝑐})
7776imaeq2d 6079 . . . . 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 𝑔)))) “ {𝑐}))
7877inteqd 4955 . . . 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 4640 . . . . . 6 ( = 𝑏 → {} = {𝑏})
8079imaeq2d 6079 . . . . 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 𝑔)))) “ {𝑏}))
8180inteqd 4955 . . . 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 2828 . . . 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 𝑔)))) “ {𝑏})))
8378, 81, 82syl2an 596 . . 3 ((𝑔 = 𝑐 = 𝑏) → ( (recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑔}) ∈ (recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {}) ↔ (recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑐}) ∈ (recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑏})))
8446, 47, 57, 75, 83cbvopab 5219 . 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 6906 . . . . 5 (𝑔 = 𝑐 → (rank‘𝑔) = (rank‘𝑐))
86 fveq2 6906 . . . . 5 ( = 𝑏 → (rank‘) = (rank‘𝑏))
8785, 86breqan12d 5163 . . . 4 ((𝑔 = 𝑐 = 𝑏) → ((rank‘𝑔) E (rank‘) ↔ (rank‘𝑐) E (rank‘𝑏)))
8885, 86eqeqan12d 2748 . . . . 5 ((𝑔 = 𝑐 = 𝑏) → ((rank‘𝑔) = (rank‘) ↔ (rank‘𝑐) = (rank‘𝑏)))
89 simpl 482 . . . . . 6 ((𝑔 = 𝑐 = 𝑏) → 𝑔 = 𝑐)
90 suceq 6451 . . . . . . . . 9 ((rank‘𝑔) = (rank‘𝑐) → suc (rank‘𝑔) = suc (rank‘𝑐))
9185, 90syl 17 . . . . . . . 8 (𝑔 = 𝑐 → suc (rank‘𝑔) = suc (rank‘𝑐))
9291adantr 480 . . . . . . 7 ((𝑔 = 𝑐 = 𝑏) → suc (rank‘𝑔) = suc (rank‘𝑐))
9392fveq2d 6910 . . . . . 6 ((𝑔 = 𝑐 = 𝑏) → (𝑒‘suc (rank‘𝑔)) = (𝑒‘suc (rank‘𝑐)))
94 simpr 484 . . . . . 6 ((𝑔 = 𝑐 = 𝑏) → = 𝑏)
9589, 93, 94breq123d 5161 . . . . 5 ((𝑔 = 𝑐 = 𝑏) → (𝑔(𝑒‘suc (rank‘𝑔))𝑐(𝑒‘suc (rank‘𝑐))𝑏))
9688, 95anbi12d 632 . . . 4 ((𝑔 = 𝑐 = 𝑏) → (((rank‘𝑔) = (rank‘) ∧ 𝑔(𝑒‘suc (rank‘𝑔))) ↔ ((rank‘𝑐) = (rank‘𝑏) ∧ 𝑐(𝑒‘suc (rank‘𝑐))𝑏)))
9787, 96orbi12d 918 . . 3 ((𝑔 = 𝑐 = 𝑏) → (((rank‘𝑔) E (rank‘) ∨ ((rank‘𝑔) = (rank‘) ∧ 𝑔(𝑒‘suc (rank‘𝑔)))) ↔ ((rank‘𝑐) E (rank‘𝑏) ∨ ((rank‘𝑐) = (rank‘𝑏) ∧ 𝑐(𝑒‘suc (rank‘𝑐))𝑏))))
9897cbvopabv 5220 . 2 {⟨𝑔, ⟩ ∣ ((rank‘𝑔) E (rank‘) ∨ ((rank‘𝑔) = (rank‘) ∧ 𝑔(𝑒‘suc (rank‘𝑔))))} = {⟨𝑐, 𝑏⟩ ∣ ((rank‘𝑐) E (rank‘𝑏) ∨ ((rank‘𝑐) = (rank‘𝑏) ∧ 𝑐(𝑒‘suc (rank‘𝑐))𝑏))}
99 eqid 2734 . 2 (if(dom 𝑒 = dom 𝑒, {⟨𝑔, ⟩ ∣ ((rank‘𝑔) E (rank‘) ∨ ((rank‘𝑔) = (rank‘) ∧ 𝑔(𝑒‘suc (rank‘𝑔))))}, {⟨𝑔, ⟩ ∣ (recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑔}) ∈ (recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {})}) ∩ ((𝑅1‘dom 𝑒) × (𝑅1‘dom 𝑒))) = (if(dom 𝑒 = dom 𝑒, {⟨𝑔, ⟩ ∣ ((rank‘𝑔) E (rank‘) ∨ ((rank‘𝑔) = (rank‘) ∧ 𝑔(𝑒‘suc (rank‘𝑔))))}, {⟨𝑔, ⟩ ∣ (recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {𝑔}) ∈ (recs((𝑔 ∈ V ↦ ((𝑔 ∈ V ↦ sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}))‘((𝑅1‘dom 𝑒) ∖ ran 𝑔)))) “ {})}) ∩ ((𝑅1‘dom 𝑒) × (𝑅1‘dom 𝑒)))
100 dmeq 5916 . . . . . . 7 (𝑙 = 𝑒 → dom 𝑙 = dom 𝑒)
101100unieqd 4924 . . . . . . 7 (𝑙 = 𝑒 dom 𝑙 = dom 𝑒)
102100, 101eqeq12d 2750 . . . . . 6 (𝑙 = 𝑒 → (dom 𝑙 = dom 𝑙 ↔ dom 𝑒 = dom 𝑒))
103 fveq1 6905 . . . . . . . . . 10 (𝑙 = 𝑒 → (𝑙‘suc (rank‘𝑔)) = (𝑒‘suc (rank‘𝑔)))
104103breqd 5158 . . . . . . . . 9 (𝑙 = 𝑒 → (𝑔(𝑙‘suc (rank‘𝑔))𝑔(𝑒‘suc (rank‘𝑔))))
105104anbi2d 630 . . . . . . . 8 (𝑙 = 𝑒 → (((rank‘𝑔) = (rank‘) ∧ 𝑔(𝑙‘suc (rank‘𝑔))) ↔ ((rank‘𝑔) = (rank‘) ∧ 𝑔(𝑒‘suc (rank‘𝑔)))))
106105orbi2d 915 . . . . . . 7 (𝑙 = 𝑒 → (((rank‘𝑔) E (rank‘) ∨ ((rank‘𝑔) = (rank‘) ∧ 𝑔(𝑙‘suc (rank‘𝑔)))) ↔ ((rank‘𝑔) E (rank‘) ∨ ((rank‘𝑔) = (rank‘) ∧ 𝑔(𝑒‘suc (rank‘𝑔))))))
107106opabbidv 5213 . . . . . 6 (𝑙 = 𝑒 → {⟨𝑔, ⟩ ∣ ((rank‘𝑔) E (rank‘) ∨ ((rank‘𝑔) = (rank‘) ∧ 𝑔(𝑙‘suc (rank‘𝑔))))} = {⟨𝑔, ⟩ ∣ ((rank‘𝑔) E (rank‘) ∨ ((rank‘𝑔) = (rank‘) ∧ 𝑔(𝑒‘suc (rank‘𝑔))))})
108 eqidd 2735 . . . . . . . . . . . . . . . 16 (𝑙 = 𝑒 → (𝑦𝑔) = (𝑦𝑔))
109100fveq2d 6910 . . . . . . . . . . . . . . . 16 (𝑙 = 𝑒 → (𝑅1‘dom 𝑙) = (𝑅1‘dom 𝑒))
110101fveq2d 6910 . . . . . . . . . . . . . . . . . 18 (𝑙 = 𝑒 → (𝑅1 dom 𝑙) = (𝑅1 dom 𝑒))
111 id 22 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑙 = 𝑒𝑙 = 𝑒)
112111, 101fveq12d 6913 . . . . . . . . . . . . . . . . . . . . . 22 (𝑙 = 𝑒 → (𝑙 dom 𝑙) = (𝑒 dom 𝑒))
113112breqd 5158 . . . . . . . . . . . . . . . . . . . . 21 (𝑙 = 𝑒 → (𝑗(𝑙 dom 𝑙)𝑖𝑗(𝑒 dom 𝑒)𝑖))
114113imbi1d 341 . . . . . . . . . . . . . . . . . . . 20 (𝑙 = 𝑒 → ((𝑗(𝑙 dom 𝑙)𝑖 → (𝑗𝑔𝑗)) ↔ (𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗))))
115110, 114raleqbidv 3343 . . . . . . . . . . . . . . . . . . 19 (𝑙 = 𝑒 → (∀𝑗 ∈ (𝑅1 dom 𝑙)(𝑗(𝑙 dom 𝑙)𝑖 → (𝑗𝑔𝑗)) ↔ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗))))
116115anbi2d 630 . . . . . . . . . . . . . . . . . 18 (𝑙 = 𝑒 → (((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑙)(𝑗(𝑙 dom 𝑙)𝑖 → (𝑗𝑔𝑗))) ↔ ((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))))
117110, 116rexeqbidv 3344 . . . . . . . . . . . . . . . . 17 (𝑙 = 𝑒 → (∃𝑖 ∈ (𝑅1 dom 𝑙)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑙)(𝑗(𝑙 dom 𝑙)𝑖 → (𝑗𝑔𝑗))) ↔ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))))
118117opabbidv 5213 . . . . . . . . . . . . . . . 16 (𝑙 = 𝑒 → {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑙)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑙)(𝑗(𝑙 dom 𝑙)𝑖 → (𝑗𝑔𝑗)))} = {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))})
119108, 109, 118supeq123d 9487 . . . . . . . . . . . . . . 15 (𝑙 = 𝑒 → sup((𝑦𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑙)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑙)(𝑗(𝑙 dom 𝑙)𝑖 → (𝑗𝑔𝑗)))}) = sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))}))
120119mpteq2dv 5249 . . . . . . . . . . . . . 14 (𝑙 = 𝑒 → (𝑔 ∈ V ↦ sup((𝑦𝑔), (𝑅1‘dom 𝑙), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑙)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑙)(𝑗(𝑙 dom 𝑙)𝑖 → (𝑗𝑔𝑗)))})) = (𝑔 ∈ V ↦ sup((𝑦𝑔), (𝑅1‘dom 𝑒), {⟨𝑔, ⟩ ∣ ∃𝑖 ∈ (𝑅1 dom 𝑒)((𝑖 ∧ ¬ 𝑖𝑔) ∧ ∀𝑗 ∈ (𝑅1 dom 𝑒)(𝑗(𝑒 dom 𝑒)𝑖 → (𝑗𝑔𝑗)))})))
121109difeq1d 4134 . . . . . . . . . . . . . 14 (𝑙 = 𝑒 → ((𝑅1‘dom 𝑙) ∖ ran 𝑔) = ((𝑅1‘dom 𝑒) ∖ ran 𝑔))
122120, 121fveq12d 6913 . . . . . . . . . . . . 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 𝑔)))
123122mpteq2dv 5249 . . . . . . . . . . . 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 8412 . . . . . . . . . . . 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 𝑔)))))
125123, 124syl 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 𝑔)))))
126125cnveqd 5888 . . . . . . . . . 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 𝑔)))))
127126imaeq1d 6078 . . . . . . . . 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 𝑔)))) “ {𝑔}))
128127inteqd 4955 . . . . . . . 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 𝑔)))) “ {𝑔}))
129126imaeq1d 6078 . . . . . . . . 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 𝑔)))) “ {}))
130129inteqd 4955 . . . . . . . 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 𝑔)))) “ {}))
131128, 130eleq12d 2832 . . . . . . 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 𝑔)))) “ {})))
132131opabbidv 5213 . . . . . 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 𝑔)))) “ {})})
133102, 107, 132ifbieq12d 4558 . . . . 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 𝑔)))) “ {})}))
134109sqxpeqd 5720 . . . . 5 (𝑙 = 𝑒 → ((𝑅1‘dom 𝑙) × (𝑅1‘dom 𝑙)) = ((𝑅1‘dom 𝑒) × (𝑅1‘dom 𝑒)))
135133, 134ineq12d 4228 . . . 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 𝑒))))
136135cbvmptv 5260 . . 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 8412 . . 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 𝑒))))))
138136, 137ax-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 3000 . . . . 5 (𝑎 = 𝑐 → (𝑎 ≠ ∅ ↔ 𝑐 ≠ ∅))
142 fveq2 6906 . . . . . 6 (𝑎 = 𝑐 → (𝑦𝑎) = (𝑦𝑐))
143 pweq 4618 . . . . . . . 8 (𝑎 = 𝑐 → 𝒫 𝑎 = 𝒫 𝑐)
144143ineq1d 4226 . . . . . . 7 (𝑎 = 𝑐 → (𝒫 𝑎 ∩ Fin) = (𝒫 𝑐 ∩ Fin))
145144difeq1d 4134 . . . . . 6 (𝑎 = 𝑐 → ((𝒫 𝑎 ∩ Fin) ∖ {∅}) = ((𝒫 𝑐 ∩ Fin) ∖ {∅}))
146142, 145eleq12d 2832 . . . . 5 (𝑎 = 𝑐 → ((𝑦𝑎) ∈ ((𝒫 𝑎 ∩ Fin) ∖ {∅}) ↔ (𝑦𝑐) ∈ ((𝒫 𝑐 ∩ Fin) ∖ {∅})))
147141, 146imbi12d 344 . . . 4 (𝑎 = 𝑐 → ((𝑎 ≠ ∅ → (𝑦𝑎) ∈ ((𝒫 𝑎 ∩ Fin) ∖ {∅})) ↔ (𝑐 ≠ ∅ → (𝑦𝑐) ∈ ((𝒫 𝑐 ∩ Fin) ∖ {∅}))))
148147cbvralvw 3234 . . 3 (∀𝑎 ∈ 𝒫 (𝑅1𝐴)(𝑎 ≠ ∅ → (𝑦𝑎) ∈ ((𝒫 𝑎 ∩ Fin) ∖ {∅})) ↔ ∀𝑐 ∈ 𝒫 (𝑅1𝐴)(𝑐 ≠ ∅ → (𝑦𝑐) ∈ ((𝒫 𝑐 ∩ Fin) ∖ {∅})))
149140, 148sylib 218 . 2 (𝜑 → ∀𝑐 ∈ 𝒫 (𝑅1𝐴)(𝑐 ≠ ∅ → (𝑦𝑐) ∈ ((𝒫 𝑐 ∩ Fin) ∖ {∅})))
15029, 37, 45, 84, 98, 99, 138, 139, 149aomclem7 43048 1 (𝜑 → ∃𝑏 𝑏 We (𝑅1𝐴))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395  wo 847   = wceq 1536  wex 1775  wcel 2105  wne 2937  wral 3058  wrex 3067  Vcvv 3477  cdif 3959  cin 3961  c0 4338  ifcif 4530  𝒫 cpw 4604  {csn 4630   cuni 4911   cint 4950   class class class wbr 5147  {copab 5209  cmpt 5230   E cep 5587   We wwe 5639   × cxp 5686  ccnv 5687  dom cdm 5688  ran crn 5689  cima 5691  Oncon0 6385  suc csuc 6387  cfv 6562  recscrecs 8408  Fincfn 8983  supcsup 9477  𝑅1cr1 9799  rankcrnk 9800
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1791  ax-4 1805  ax-5 1907  ax-6 1964  ax-7 2004  ax-8 2107  ax-9 2115  ax-10 2138  ax-11 2154  ax-12 2174  ax-ext 2705  ax-rep 5284  ax-sep 5301  ax-nul 5311  ax-pow 5370  ax-pr 5437  ax-un 7753
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1539  df-fal 1549  df-ex 1776  df-nf 1780  df-sb 2062  df-mo 2537  df-eu 2566  df-clab 2712  df-cleq 2726  df-clel 2813  df-nfc 2889  df-ne 2938  df-ral 3059  df-rex 3068  df-rmo 3377  df-reu 3378  df-rab 3433  df-v 3479  df-sbc 3791  df-csb 3908  df-dif 3965  df-un 3967  df-in 3969  df-ss 3979  df-pss 3982  df-nul 4339  df-if 4531  df-pw 4606  df-sn 4631  df-pr 4633  df-tp 4635  df-op 4637  df-uni 4912  df-int 4951  df-iun 4997  df-br 5148  df-opab 5210  df-mpt 5231  df-tr 5265  df-id 5582  df-eprel 5588  df-po 5596  df-so 5597  df-fr 5640  df-we 5642  df-xp 5694  df-rel 5695  df-cnv 5696  df-co 5697  df-dm 5698  df-rn 5699  df-res 5700  df-ima 5701  df-pred 6322  df-ord 6388  df-on 6389  df-lim 6390  df-suc 6391  df-iota 6515  df-fun 6564  df-fn 6565  df-f 6566  df-f1 6567  df-fo 6568  df-f1o 6569  df-fv 6570  df-isom 6571  df-riota 7387  df-ov 7433  df-oprab 7434  df-mpo 7435  df-om 7887  df-1st 8012  df-2nd 8013  df-frecs 8304  df-wrecs 8335  df-recs 8409  df-rdg 8448  df-1o 8504  df-2o 8505  df-map 8866  df-en 8984  df-fin 8987  df-sup 9479  df-r1 9801  df-rank 9802
This theorem is referenced by:  dfac11  43050
  Copyright terms: Public domain W3C validator