Users' Mathboxes Mathbox for Mario Carneiro < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  satf0op Structured version   Visualization version   GIF version

Theorem satf0op 35345
Description: An element of a value of the satisfaction predicate as function over wff codes in the empty model and the empty binary relation expressed as ordered pair. (Contributed by AV, 19-Sep-2023.)
Hypothesis
Ref Expression
satf0op.s 𝑆 = (∅ Sat ∅)
Assertion
Ref Expression
satf0op (𝑁 ∈ ω → (𝑋 ∈ (𝑆𝑁) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑁))))
Distinct variable groups:   𝑥,𝑁   𝑥,𝑆   𝑥,𝑋

Proof of Theorem satf0op
Dummy variables 𝑖 𝑗 𝑦 𝑧 𝑎 𝑏 𝑢 𝑣 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fveq2 6920 . . . 4 (𝑦 = ∅ → (𝑆𝑦) = (𝑆‘∅))
21eleq2d 2830 . . 3 (𝑦 = ∅ → (𝑋 ∈ (𝑆𝑦) ↔ 𝑋 ∈ (𝑆‘∅)))
31eleq2d 2830 . . . . 5 (𝑦 = ∅ → (⟨𝑥, ∅⟩ ∈ (𝑆𝑦) ↔ ⟨𝑥, ∅⟩ ∈ (𝑆‘∅)))
43anbi2d 629 . . . 4 (𝑦 = ∅ → ((𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑦)) ↔ (𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘∅))))
54exbidv 1920 . . 3 (𝑦 = ∅ → (∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑦)) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘∅))))
62, 5bibi12d 345 . 2 (𝑦 = ∅ → ((𝑋 ∈ (𝑆𝑦) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑦))) ↔ (𝑋 ∈ (𝑆‘∅) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘∅)))))
7 fveq2 6920 . . . 4 (𝑦 = 𝑧 → (𝑆𝑦) = (𝑆𝑧))
87eleq2d 2830 . . 3 (𝑦 = 𝑧 → (𝑋 ∈ (𝑆𝑦) ↔ 𝑋 ∈ (𝑆𝑧)))
97eleq2d 2830 . . . . 5 (𝑦 = 𝑧 → (⟨𝑥, ∅⟩ ∈ (𝑆𝑦) ↔ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)))
109anbi2d 629 . . . 4 (𝑦 = 𝑧 → ((𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑦)) ↔ (𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧))))
1110exbidv 1920 . . 3 (𝑦 = 𝑧 → (∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑦)) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧))))
128, 11bibi12d 345 . 2 (𝑦 = 𝑧 → ((𝑋 ∈ (𝑆𝑦) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑦))) ↔ (𝑋 ∈ (𝑆𝑧) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)))))
13 fveq2 6920 . . . 4 (𝑦 = suc 𝑧 → (𝑆𝑦) = (𝑆‘suc 𝑧))
1413eleq2d 2830 . . 3 (𝑦 = suc 𝑧 → (𝑋 ∈ (𝑆𝑦) ↔ 𝑋 ∈ (𝑆‘suc 𝑧)))
1513eleq2d 2830 . . . . 5 (𝑦 = suc 𝑧 → (⟨𝑥, ∅⟩ ∈ (𝑆𝑦) ↔ ⟨𝑥, ∅⟩ ∈ (𝑆‘suc 𝑧)))
1615anbi2d 629 . . . 4 (𝑦 = suc 𝑧 → ((𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑦)) ↔ (𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘suc 𝑧))))
1716exbidv 1920 . . 3 (𝑦 = suc 𝑧 → (∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑦)) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘suc 𝑧))))
1814, 17bibi12d 345 . 2 (𝑦 = suc 𝑧 → ((𝑋 ∈ (𝑆𝑦) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑦))) ↔ (𝑋 ∈ (𝑆‘suc 𝑧) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘suc 𝑧)))))
19 fveq2 6920 . . . 4 (𝑦 = 𝑁 → (𝑆𝑦) = (𝑆𝑁))
2019eleq2d 2830 . . 3 (𝑦 = 𝑁 → (𝑋 ∈ (𝑆𝑦) ↔ 𝑋 ∈ (𝑆𝑁)))
2119eleq2d 2830 . . . . 5 (𝑦 = 𝑁 → (⟨𝑥, ∅⟩ ∈ (𝑆𝑦) ↔ ⟨𝑥, ∅⟩ ∈ (𝑆𝑁)))
2221anbi2d 629 . . . 4 (𝑦 = 𝑁 → ((𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑦)) ↔ (𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑁))))
2322exbidv 1920 . . 3 (𝑦 = 𝑁 → (∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑦)) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑁))))
2420, 23bibi12d 345 . 2 (𝑦 = 𝑁 → ((𝑋 ∈ (𝑆𝑦) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑦))) ↔ (𝑋 ∈ (𝑆𝑁) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑁)))))
25 satf0op.s . . . . . 6 𝑆 = (∅ Sat ∅)
2625fveq1i 6921 . . . . 5 (𝑆‘∅) = ((∅ Sat ∅)‘∅)
27 satf00 35342 . . . . 5 ((∅ Sat ∅)‘∅) = {⟨𝑥, 𝑦⟩ ∣ (𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))}
2826, 27eqtri 2768 . . . 4 (𝑆‘∅) = {⟨𝑥, 𝑦⟩ ∣ (𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))}
2928eleq2i 2836 . . 3 (𝑋 ∈ (𝑆‘∅) ↔ 𝑋 ∈ {⟨𝑥, 𝑦⟩ ∣ (𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))})
30 elopab 5546 . . 3 (𝑋 ∈ {⟨𝑥, 𝑦⟩ ∣ (𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))} ↔ ∃𝑥𝑦(𝑋 = ⟨𝑥, 𝑦⟩ ∧ (𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))))
31 opeq2 4898 . . . . . . . . . . 11 (𝑦 = ∅ → ⟨𝑥, 𝑦⟩ = ⟨𝑥, ∅⟩)
3231adantr 480 . . . . . . . . . 10 ((𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗)) → ⟨𝑥, 𝑦⟩ = ⟨𝑥, ∅⟩)
3332eqeq2d 2751 . . . . . . . . 9 ((𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗)) → (𝑋 = ⟨𝑥, 𝑦⟩ ↔ 𝑋 = ⟨𝑥, ∅⟩))
3433biimpd 229 . . . . . . . 8 ((𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗)) → (𝑋 = ⟨𝑥, 𝑦⟩ → 𝑋 = ⟨𝑥, ∅⟩))
3534impcom 407 . . . . . . 7 ((𝑋 = ⟨𝑥, 𝑦⟩ ∧ (𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))) → 𝑋 = ⟨𝑥, ∅⟩)
36 eqidd 2741 . . . . . . . . . 10 (𝑦 = ∅ → ∅ = ∅)
3736anim1i 614 . . . . . . . . 9 ((𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗)) → (∅ = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗)))
3837adantl 481 . . . . . . . 8 ((𝑋 = ⟨𝑥, 𝑦⟩ ∧ (𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))) → (∅ = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗)))
39 satf00 35342 . . . . . . . . . . 11 ((∅ Sat ∅)‘∅) = {⟨𝑦, 𝑧⟩ ∣ (𝑧 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑦 = (𝑖𝑔𝑗))}
4026, 39eqtri 2768 . . . . . . . . . 10 (𝑆‘∅) = {⟨𝑦, 𝑧⟩ ∣ (𝑧 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑦 = (𝑖𝑔𝑗))}
4140eleq2i 2836 . . . . . . . . 9 (⟨𝑥, ∅⟩ ∈ (𝑆‘∅) ↔ ⟨𝑥, ∅⟩ ∈ {⟨𝑦, 𝑧⟩ ∣ (𝑧 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑦 = (𝑖𝑔𝑗))})
42 vex 3492 . . . . . . . . . 10 𝑥 ∈ V
43 0ex 5325 . . . . . . . . . 10 ∅ ∈ V
44 eqeq1 2744 . . . . . . . . . . 11 (𝑧 = ∅ → (𝑧 = ∅ ↔ ∅ = ∅))
45 eqeq1 2744 . . . . . . . . . . . 12 (𝑦 = 𝑥 → (𝑦 = (𝑖𝑔𝑗) ↔ 𝑥 = (𝑖𝑔𝑗)))
46452rexbidv 3228 . . . . . . . . . . 11 (𝑦 = 𝑥 → (∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑦 = (𝑖𝑔𝑗) ↔ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗)))
4744, 46bi2anan9r 638 . . . . . . . . . 10 ((𝑦 = 𝑥𝑧 = ∅) → ((𝑧 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑦 = (𝑖𝑔𝑗)) ↔ (∅ = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))))
4842, 43, 47opelopaba 5555 . . . . . . . . 9 (⟨𝑥, ∅⟩ ∈ {⟨𝑦, 𝑧⟩ ∣ (𝑧 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑦 = (𝑖𝑔𝑗))} ↔ (∅ = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗)))
4941, 48bitri 275 . . . . . . . 8 (⟨𝑥, ∅⟩ ∈ (𝑆‘∅) ↔ (∅ = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗)))
5038, 49sylibr 234 . . . . . . 7 ((𝑋 = ⟨𝑥, 𝑦⟩ ∧ (𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))) → ⟨𝑥, ∅⟩ ∈ (𝑆‘∅))
5135, 50jca 511 . . . . . 6 ((𝑋 = ⟨𝑥, 𝑦⟩ ∧ (𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))) → (𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘∅)))
5251exlimiv 1929 . . . . 5 (∃𝑦(𝑋 = ⟨𝑥, 𝑦⟩ ∧ (𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))) → (𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘∅)))
5331eqeq2d 2751 . . . . . . . 8 (𝑦 = ∅ → (𝑋 = ⟨𝑥, 𝑦⟩ ↔ 𝑋 = ⟨𝑥, ∅⟩))
54 eqeq1 2744 . . . . . . . . 9 (𝑦 = ∅ → (𝑦 = ∅ ↔ ∅ = ∅))
5554anbi1d 630 . . . . . . . 8 (𝑦 = ∅ → ((𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗)) ↔ (∅ = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))))
5653, 55anbi12d 631 . . . . . . 7 (𝑦 = ∅ → ((𝑋 = ⟨𝑥, 𝑦⟩ ∧ (𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))) ↔ (𝑋 = ⟨𝑥, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗)))))
5743, 56spcev 3619 . . . . . 6 ((𝑋 = ⟨𝑥, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))) → ∃𝑦(𝑋 = ⟨𝑥, 𝑦⟩ ∧ (𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))))
5849, 57sylan2b 593 . . . . 5 ((𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘∅)) → ∃𝑦(𝑋 = ⟨𝑥, 𝑦⟩ ∧ (𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))))
5952, 58impbii 209 . . . 4 (∃𝑦(𝑋 = ⟨𝑥, 𝑦⟩ ∧ (𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))) ↔ (𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘∅)))
6059exbii 1846 . . 3 (∃𝑥𝑦(𝑋 = ⟨𝑥, 𝑦⟩ ∧ (𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘∅)))
6129, 30, 603bitri 297 . 2 (𝑋 ∈ (𝑆‘∅) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘∅)))
6225satf0suc 35344 . . . . . . 7 (𝑧 ∈ ω → (𝑆‘suc 𝑧) = ((𝑆𝑧) ∪ {⟨𝑎, 𝑏⟩ ∣ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))}))
6362eleq2d 2830 . . . . . 6 (𝑧 ∈ ω → (𝑋 ∈ (𝑆‘suc 𝑧) ↔ 𝑋 ∈ ((𝑆𝑧) ∪ {⟨𝑎, 𝑏⟩ ∣ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))})))
64 elun 4176 . . . . . . 7 (𝑋 ∈ ((𝑆𝑧) ∪ {⟨𝑎, 𝑏⟩ ∣ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))}) ↔ (𝑋 ∈ (𝑆𝑧) ∨ 𝑋 ∈ {⟨𝑎, 𝑏⟩ ∣ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))}))
6564a1i 11 . . . . . 6 (𝑧 ∈ ω → (𝑋 ∈ ((𝑆𝑧) ∪ {⟨𝑎, 𝑏⟩ ∣ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))}) ↔ (𝑋 ∈ (𝑆𝑧) ∨ 𝑋 ∈ {⟨𝑎, 𝑏⟩ ∣ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))})))
66 elopab 5546 . . . . . . . 8 (𝑋 ∈ {⟨𝑎, 𝑏⟩ ∣ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))} ↔ ∃𝑎𝑏(𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))))
6766a1i 11 . . . . . . 7 (𝑧 ∈ ω → (𝑋 ∈ {⟨𝑎, 𝑏⟩ ∣ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))} ↔ ∃𝑎𝑏(𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢))))))
6867orbi2d 914 . . . . . 6 (𝑧 ∈ ω → ((𝑋 ∈ (𝑆𝑧) ∨ 𝑋 ∈ {⟨𝑎, 𝑏⟩ ∣ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))}) ↔ (𝑋 ∈ (𝑆𝑧) ∨ ∃𝑎𝑏(𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))))))
6963, 65, 683bitrd 305 . . . . 5 (𝑧 ∈ ω → (𝑋 ∈ (𝑆‘suc 𝑧) ↔ (𝑋 ∈ (𝑆𝑧) ∨ ∃𝑎𝑏(𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))))))
7069adantr 480 . . . 4 ((𝑧 ∈ ω ∧ (𝑋 ∈ (𝑆𝑧) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)))) → (𝑋 ∈ (𝑆‘suc 𝑧) ↔ (𝑋 ∈ (𝑆𝑧) ∨ ∃𝑎𝑏(𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))))))
71 simpr 484 . . . . . 6 ((𝑧 ∈ ω ∧ (𝑋 ∈ (𝑆𝑧) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)))) → (𝑋 ∈ (𝑆𝑧) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧))))
72 opeq2 4898 . . . . . . . . . . . . . . . . 17 (𝑏 = ∅ → ⟨𝑎, 𝑏⟩ = ⟨𝑎, ∅⟩)
7372eqeq2d 2751 . . . . . . . . . . . . . . . 16 (𝑏 = ∅ → (𝑋 = ⟨𝑎, 𝑏⟩ ↔ 𝑋 = ⟨𝑎, ∅⟩))
7473biimpd 229 . . . . . . . . . . . . . . 15 (𝑏 = ∅ → (𝑋 = ⟨𝑎, 𝑏⟩ → 𝑋 = ⟨𝑎, ∅⟩))
7574adantr 480 . . . . . . . . . . . . . 14 ((𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢))) → (𝑋 = ⟨𝑎, 𝑏⟩ → 𝑋 = ⟨𝑎, ∅⟩))
7675impcom 407 . . . . . . . . . . . . 13 ((𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))) → 𝑋 = ⟨𝑎, ∅⟩)
77 eqidd 2741 . . . . . . . . . . . . . 14 ((𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))) → ∅ = ∅)
78 simpr 484 . . . . . . . . . . . . . . 15 ((𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢))) → ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))
7978adantl 481 . . . . . . . . . . . . . 14 ((𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))) → ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))
8077, 79jca 511 . . . . . . . . . . . . 13 ((𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))) → (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢))))
8176, 80jca 511 . . . . . . . . . . . 12 ((𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))) → (𝑋 = ⟨𝑎, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))))
8281exlimiv 1929 . . . . . . . . . . 11 (∃𝑏(𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))) → (𝑋 = ⟨𝑎, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))))
83 eqeq1 2744 . . . . . . . . . . . . . 14 (𝑏 = ∅ → (𝑏 = ∅ ↔ ∅ = ∅))
8483anbi1d 630 . . . . . . . . . . . . 13 (𝑏 = ∅ → ((𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢))) ↔ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))))
8573, 84anbi12d 631 . . . . . . . . . . . 12 (𝑏 = ∅ → ((𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))) ↔ (𝑋 = ⟨𝑎, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢))))))
8643, 85spcev 3619 . . . . . . . . . . 11 ((𝑋 = ⟨𝑎, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))) → ∃𝑏(𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))))
8782, 86impbii 209 . . . . . . . . . 10 (∃𝑏(𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))) ↔ (𝑋 = ⟨𝑎, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))))
8887exbii 1846 . . . . . . . . 9 (∃𝑎𝑏(𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))) ↔ ∃𝑎(𝑋 = ⟨𝑎, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))))
8988a1i 11 . . . . . . . 8 (𝑧 ∈ ω → (∃𝑎𝑏(𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))) ↔ ∃𝑎(𝑋 = ⟨𝑎, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢))))))
90 opeq1 4897 . . . . . . . . . . 11 (𝑥 = 𝑎 → ⟨𝑥, ∅⟩ = ⟨𝑎, ∅⟩)
9190eqeq2d 2751 . . . . . . . . . 10 (𝑥 = 𝑎 → (𝑋 = ⟨𝑥, ∅⟩ ↔ 𝑋 = ⟨𝑎, ∅⟩))
92 eqeq1 2744 . . . . . . . . . . . . . 14 (𝑥 = 𝑎 → (𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ↔ 𝑎 = ((1st𝑢)⊼𝑔(1st𝑣))))
9392rexbidv 3185 . . . . . . . . . . . . 13 (𝑥 = 𝑎 → (∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ↔ ∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣))))
94 eqeq1 2744 . . . . . . . . . . . . . 14 (𝑥 = 𝑎 → (𝑥 = ∀𝑔𝑖(1st𝑢) ↔ 𝑎 = ∀𝑔𝑖(1st𝑢)))
9594rexbidv 3185 . . . . . . . . . . . . 13 (𝑥 = 𝑎 → (∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢) ↔ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))
9693, 95orbi12d 917 . . . . . . . . . . . 12 (𝑥 = 𝑎 → ((∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢)) ↔ (∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢))))
9796rexbidv 3185 . . . . . . . . . . 11 (𝑥 = 𝑎 → (∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢)) ↔ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢))))
9897anbi2d 629 . . . . . . . . . 10 (𝑥 = 𝑎 → ((∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))) ↔ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))))
9991, 98anbi12d 631 . . . . . . . . 9 (𝑥 = 𝑎 → ((𝑋 = ⟨𝑥, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢)))) ↔ (𝑋 = ⟨𝑎, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢))))))
10099cbvexvw 2036 . . . . . . . 8 (∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢)))) ↔ ∃𝑎(𝑋 = ⟨𝑎, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))))
10189, 100bitr4di 289 . . . . . . 7 (𝑧 ∈ ω → (∃𝑎𝑏(𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))))
102101adantr 480 . . . . . 6 ((𝑧 ∈ ω ∧ (𝑋 ∈ (𝑆𝑧) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)))) → (∃𝑎𝑏(𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))))
10371, 102orbi12d 917 . . . . 5 ((𝑧 ∈ ω ∧ (𝑋 ∈ (𝑆𝑧) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)))) → ((𝑋 ∈ (𝑆𝑧) ∨ ∃𝑎𝑏(𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢))))) ↔ (∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)) ∨ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢)))))))
104 19.43 1881 . . . . . 6 (∃𝑥((𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)) ∨ (𝑋 = ⟨𝑥, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))) ↔ (∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)) ∨ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))))
105 andi 1008 . . . . . . . 8 ((𝑋 = ⟨𝑥, ∅⟩ ∧ (⟨𝑥, ∅⟩ ∈ (𝑆𝑧) ∨ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))) ↔ ((𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)) ∨ (𝑋 = ⟨𝑥, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))))
106105bicomi 224 . . . . . . 7 (((𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)) ∨ (𝑋 = ⟨𝑥, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))) ↔ (𝑋 = ⟨𝑥, ∅⟩ ∧ (⟨𝑥, ∅⟩ ∈ (𝑆𝑧) ∨ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))))
107106exbii 1846 . . . . . 6 (∃𝑥((𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)) ∨ (𝑋 = ⟨𝑥, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ (⟨𝑥, ∅⟩ ∈ (𝑆𝑧) ∨ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))))
108104, 107bitr3i 277 . . . . 5 ((∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)) ∨ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ (⟨𝑥, ∅⟩ ∈ (𝑆𝑧) ∨ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))))
109103, 108bitrdi 287 . . . 4 ((𝑧 ∈ ω ∧ (𝑋 ∈ (𝑆𝑧) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)))) → ((𝑋 ∈ (𝑆𝑧) ∨ ∃𝑎𝑏(𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢))))) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ (⟨𝑥, ∅⟩ ∈ (𝑆𝑧) ∨ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢)))))))
11062eleq2d 2830 . . . . . . . . 9 (𝑧 ∈ ω → (⟨𝑥, ∅⟩ ∈ (𝑆‘suc 𝑧) ↔ ⟨𝑥, ∅⟩ ∈ ((𝑆𝑧) ∪ {⟨𝑎, 𝑏⟩ ∣ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))})))
111 elun 4176 . . . . . . . . . 10 (⟨𝑥, ∅⟩ ∈ ((𝑆𝑧) ∪ {⟨𝑎, 𝑏⟩ ∣ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))}) ↔ (⟨𝑥, ∅⟩ ∈ (𝑆𝑧) ∨ ⟨𝑥, ∅⟩ ∈ {⟨𝑎, 𝑏⟩ ∣ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))}))
112 eqeq1 2744 . . . . . . . . . . . . . . . 16 (𝑎 = 𝑥 → (𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ↔ 𝑥 = ((1st𝑢)⊼𝑔(1st𝑣))))
113112rexbidv 3185 . . . . . . . . . . . . . . 15 (𝑎 = 𝑥 → (∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ↔ ∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣))))
114 eqeq1 2744 . . . . . . . . . . . . . . . 16 (𝑎 = 𝑥 → (𝑎 = ∀𝑔𝑖(1st𝑢) ↔ 𝑥 = ∀𝑔𝑖(1st𝑢)))
115114rexbidv 3185 . . . . . . . . . . . . . . 15 (𝑎 = 𝑥 → (∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢) ↔ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢)))
116113, 115orbi12d 917 . . . . . . . . . . . . . 14 (𝑎 = 𝑥 → ((∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)) ↔ (∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))
117116rexbidv 3185 . . . . . . . . . . . . 13 (𝑎 = 𝑥 → (∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)) ↔ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))
11883, 117bi2anan9r 638 . . . . . . . . . . . 12 ((𝑎 = 𝑥𝑏 = ∅) → ((𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢))) ↔ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢)))))
11942, 43, 118opelopaba 5555 . . . . . . . . . . 11 (⟨𝑥, ∅⟩ ∈ {⟨𝑎, 𝑏⟩ ∣ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))} ↔ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))
120119orbi2i 911 . . . . . . . . . 10 ((⟨𝑥, ∅⟩ ∈ (𝑆𝑧) ∨ ⟨𝑥, ∅⟩ ∈ {⟨𝑎, 𝑏⟩ ∣ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))}) ↔ (⟨𝑥, ∅⟩ ∈ (𝑆𝑧) ∨ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢)))))
121111, 120bitri 275 . . . . . . . . 9 (⟨𝑥, ∅⟩ ∈ ((𝑆𝑧) ∪ {⟨𝑎, 𝑏⟩ ∣ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))}) ↔ (⟨𝑥, ∅⟩ ∈ (𝑆𝑧) ∨ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢)))))
122110, 121bitrdi 287 . . . . . . . 8 (𝑧 ∈ ω → (⟨𝑥, ∅⟩ ∈ (𝑆‘suc 𝑧) ↔ (⟨𝑥, ∅⟩ ∈ (𝑆𝑧) ∨ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))))
123122anbi2d 629 . . . . . . 7 (𝑧 ∈ ω → ((𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘suc 𝑧)) ↔ (𝑋 = ⟨𝑥, ∅⟩ ∧ (⟨𝑥, ∅⟩ ∈ (𝑆𝑧) ∨ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢)))))))
124123exbidv 1920 . . . . . 6 (𝑧 ∈ ω → (∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘suc 𝑧)) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ (⟨𝑥, ∅⟩ ∈ (𝑆𝑧) ∨ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢)))))))
125124bicomd 223 . . . . 5 (𝑧 ∈ ω → (∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ (⟨𝑥, ∅⟩ ∈ (𝑆𝑧) ∨ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘suc 𝑧))))
126125adantr 480 . . . 4 ((𝑧 ∈ ω ∧ (𝑋 ∈ (𝑆𝑧) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)))) → (∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ (⟨𝑥, ∅⟩ ∈ (𝑆𝑧) ∨ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘suc 𝑧))))
12770, 109, 1263bitrd 305 . . 3 ((𝑧 ∈ ω ∧ (𝑋 ∈ (𝑆𝑧) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)))) → (𝑋 ∈ (𝑆‘suc 𝑧) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘suc 𝑧))))
128127ex 412 . 2 (𝑧 ∈ ω → ((𝑋 ∈ (𝑆𝑧) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧))) → (𝑋 ∈ (𝑆‘suc 𝑧) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘suc 𝑧)))))
1296, 12, 18, 24, 61, 128finds 7936 1 (𝑁 ∈ ω → (𝑋 ∈ (𝑆𝑁) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑁))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395  wo 846   = wceq 1537  wex 1777  wcel 2108  wrex 3076  cun 3974  c0 4352  cop 4654  {copab 5228  suc csuc 6397  cfv 6573  (class class class)co 7448  ωcom 7903  1st c1st 8028  𝑔cgoe 35301  𝑔cgna 35302  𝑔cgol 35303   Sat csat 35304
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2158  ax-12 2178  ax-ext 2711  ax-rep 5303  ax-sep 5317  ax-nul 5324  ax-pow 5383  ax-pr 5447  ax-un 7770  ax-inf2 9710
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3or 1088  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-nf 1782  df-sb 2065  df-mo 2543  df-eu 2572  df-clab 2718  df-cleq 2732  df-clel 2819  df-nfc 2895  df-ne 2947  df-ral 3068  df-rex 3077  df-reu 3389  df-rab 3444  df-v 3490  df-sbc 3805  df-csb 3922  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-pss 3996  df-nul 4353  df-if 4549  df-pw 4624  df-sn 4649  df-pr 4651  df-op 4655  df-uni 4932  df-iun 5017  df-br 5167  df-opab 5229  df-mpt 5250  df-tr 5284  df-id 5593  df-eprel 5599  df-po 5607  df-so 5608  df-fr 5652  df-we 5654  df-xp 5706  df-rel 5707  df-cnv 5708  df-co 5709  df-dm 5710  df-rn 5711  df-res 5712  df-ima 5713  df-pred 6332  df-ord 6398  df-on 6399  df-lim 6400  df-suc 6401  df-iota 6525  df-fun 6575  df-fn 6576  df-f 6577  df-f1 6578  df-fo 6579  df-f1o 6580  df-fv 6581  df-ov 7451  df-oprab 7452  df-mpo 7453  df-om 7904  df-1st 8030  df-2nd 8031  df-frecs 8322  df-wrecs 8353  df-recs 8427  df-rdg 8466  df-map 8886  df-goel 35308  df-sat 35311
This theorem is referenced by:  fmlasuc  35354
  Copyright terms: Public domain W3C validator