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 35957
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 6879 . . . 4 (𝑦 = ∅ → (𝑆𝑦) = (𝑆‘∅))
21eleq2d 2846 . . 3 (𝑦 = ∅ → (𝑋 ∈ (𝑆𝑦) ↔ 𝑋 ∈ (𝑆‘∅)))
31eleq2d 2846 . . . . 5 (𝑦 = ∅ → (⟨𝑥, ∅⟩ ∈ (𝑆𝑦) ↔ ⟨𝑥, ∅⟩ ∈ (𝑆‘∅)))
43anbi2d 642 . . . 4 (𝑦 = ∅ → ((𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑦)) ↔ (𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘∅))))
54exbidv 1954 . . 3 (𝑦 = ∅ → (∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑦)) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘∅))))
62, 5bibi12d 348 . 2 (𝑦 = ∅ → ((𝑋 ∈ (𝑆𝑦) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑦))) ↔ (𝑋 ∈ (𝑆‘∅) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘∅)))))
7 fveq2 6879 . . . 4 (𝑦 = 𝑧 → (𝑆𝑦) = (𝑆𝑧))
87eleq2d 2846 . . 3 (𝑦 = 𝑧 → (𝑋 ∈ (𝑆𝑦) ↔ 𝑋 ∈ (𝑆𝑧)))
97eleq2d 2846 . . . . 5 (𝑦 = 𝑧 → (⟨𝑥, ∅⟩ ∈ (𝑆𝑦) ↔ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)))
109anbi2d 642 . . . 4 (𝑦 = 𝑧 → ((𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑦)) ↔ (𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧))))
1110exbidv 1954 . . 3 (𝑦 = 𝑧 → (∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑦)) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧))))
128, 11bibi12d 348 . 2 (𝑦 = 𝑧 → ((𝑋 ∈ (𝑆𝑦) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑦))) ↔ (𝑋 ∈ (𝑆𝑧) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)))))
13 fveq2 6879 . . . 4 (𝑦 = suc 𝑧 → (𝑆𝑦) = (𝑆‘suc 𝑧))
1413eleq2d 2846 . . 3 (𝑦 = suc 𝑧 → (𝑋 ∈ (𝑆𝑦) ↔ 𝑋 ∈ (𝑆‘suc 𝑧)))
1513eleq2d 2846 . . . . 5 (𝑦 = suc 𝑧 → (⟨𝑥, ∅⟩ ∈ (𝑆𝑦) ↔ ⟨𝑥, ∅⟩ ∈ (𝑆‘suc 𝑧)))
1615anbi2d 642 . . . 4 (𝑦 = suc 𝑧 → ((𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑦)) ↔ (𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘suc 𝑧))))
1716exbidv 1954 . . 3 (𝑦 = suc 𝑧 → (∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑦)) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘suc 𝑧))))
1814, 17bibi12d 348 . 2 (𝑦 = suc 𝑧 → ((𝑋 ∈ (𝑆𝑦) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑦))) ↔ (𝑋 ∈ (𝑆‘suc 𝑧) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘suc 𝑧)))))
19 fveq2 6879 . . . 4 (𝑦 = 𝑁 → (𝑆𝑦) = (𝑆𝑁))
2019eleq2d 2846 . . 3 (𝑦 = 𝑁 → (𝑋 ∈ (𝑆𝑦) ↔ 𝑋 ∈ (𝑆𝑁)))
2119eleq2d 2846 . . . . 5 (𝑦 = 𝑁 → (⟨𝑥, ∅⟩ ∈ (𝑆𝑦) ↔ ⟨𝑥, ∅⟩ ∈ (𝑆𝑁)))
2221anbi2d 642 . . . 4 (𝑦 = 𝑁 → ((𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑦)) ↔ (𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑁))))
2322exbidv 1954 . . 3 (𝑦 = 𝑁 → (∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑦)) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑁))))
2420, 23bibi12d 348 . 2 (𝑦 = 𝑁 → ((𝑋 ∈ (𝑆𝑦) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑦))) ↔ (𝑋 ∈ (𝑆𝑁) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑁)))))
25 satf0op.s . . . . . 6 𝑆 = (∅ Sat ∅)
2625fveq1i 6880 . . . . 5 (𝑆‘∅) = ((∅ Sat ∅)‘∅)
27 satf00 35954 . . . . 5 ((∅ Sat ∅)‘∅) = {⟨𝑥, 𝑦⟩ ∣ (𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))}
2826, 27eqtri 2783 . . . 4 (𝑆‘∅) = {⟨𝑥, 𝑦⟩ ∣ (𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))}
2928eleq2i 2852 . . 3 (𝑋 ∈ (𝑆‘∅) ↔ 𝑋 ∈ {⟨𝑥, 𝑦⟩ ∣ (𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))})
30 elopab 5505 . . 3 (𝑋 ∈ {⟨𝑥, 𝑦⟩ ∣ (𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))} ↔ ∃𝑥𝑦(𝑋 = ⟨𝑥, 𝑦⟩ ∧ (𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))))
31 opeq2 4834 . . . . . . . . . . 11 (𝑦 = ∅ → ⟨𝑥, 𝑦⟩ = ⟨𝑥, ∅⟩)
3231adantr 486 . . . . . . . . . 10 ((𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗)) → ⟨𝑥, 𝑦⟩ = ⟨𝑥, ∅⟩)
3332eqeq2d 2771 . . . . . . . . 9 ((𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗)) → (𝑋 = ⟨𝑥, 𝑦⟩ ↔ 𝑋 = ⟨𝑥, ∅⟩))
3433biimpd 232 . . . . . . . 8 ((𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗)) → (𝑋 = ⟨𝑥, 𝑦⟩ → 𝑋 = ⟨𝑥, ∅⟩))
3534impcom 413 . . . . . . 7 ((𝑋 = ⟨𝑥, 𝑦⟩ ∧ (𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))) → 𝑋 = ⟨𝑥, ∅⟩)
36 eqidd 2761 . . . . . . . . . 10 (𝑦 = ∅ → ∅ = ∅)
3736anim1i 627 . . . . . . . . 9 ((𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗)) → (∅ = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗)))
3837adantl 487 . . . . . . . 8 ((𝑋 = ⟨𝑥, 𝑦⟩ ∧ (𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))) → (∅ = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗)))
39 satf00 35954 . . . . . . . . . . 11 ((∅ Sat ∅)‘∅) = {⟨𝑦, 𝑧⟩ ∣ (𝑧 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑦 = (𝑖𝑔𝑗))}
4026, 39eqtri 2783 . . . . . . . . . 10 (𝑆‘∅) = {⟨𝑦, 𝑧⟩ ∣ (𝑧 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑦 = (𝑖𝑔𝑗))}
4140eleq2i 2852 . . . . . . . . 9 (⟨𝑥, ∅⟩ ∈ (𝑆‘∅) ↔ ⟨𝑥, ∅⟩ ∈ {⟨𝑦, 𝑧⟩ ∣ (𝑧 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑦 = (𝑖𝑔𝑗))})
42 vex 3454 . . . . . . . . . 10 𝑥 ∈ V
43 0ex 5264 . . . . . . . . . 10 ∅ ∈ V
44 eqeq1 2764 . . . . . . . . . . 11 (𝑧 = ∅ → (𝑧 = ∅ ↔ ∅ = ∅))
45 eqeq1 2764 . . . . . . . . . . . 12 (𝑦 = 𝑥 → (𝑦 = (𝑖𝑔𝑗) ↔ 𝑥 = (𝑖𝑔𝑗)))
46452rexbidv 3227 . . . . . . . . . . 11 (𝑦 = 𝑥 → (∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑦 = (𝑖𝑔𝑗) ↔ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗)))
4744, 46bi2anan9r 651 . . . . . . . . . 10 ((𝑦 = 𝑥𝑧 = ∅) → ((𝑧 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑦 = (𝑖𝑔𝑗)) ↔ (∅ = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))))
4842, 43, 47opelopaba 5514 . . . . . . . . 9 (⟨𝑥, ∅⟩ ∈ {⟨𝑦, 𝑧⟩ ∣ (𝑧 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑦 = (𝑖𝑔𝑗))} ↔ (∅ = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗)))
4941, 48bitri 278 . . . . . . . 8 (⟨𝑥, ∅⟩ ∈ (𝑆‘∅) ↔ (∅ = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗)))
5038, 49sylibr 237 . . . . . . 7 ((𝑋 = ⟨𝑥, 𝑦⟩ ∧ (𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))) → ⟨𝑥, ∅⟩ ∈ (𝑆‘∅))
5135, 50jca 521 . . . . . 6 ((𝑋 = ⟨𝑥, 𝑦⟩ ∧ (𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))) → (𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘∅)))
5251exlimiv 1963 . . . . 5 (∃𝑦(𝑋 = ⟨𝑥, 𝑦⟩ ∧ (𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))) → (𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘∅)))
5331eqeq2d 2771 . . . . . . . 8 (𝑦 = ∅ → (𝑋 = ⟨𝑥, 𝑦⟩ ↔ 𝑋 = ⟨𝑥, ∅⟩))
54 eqeq1 2764 . . . . . . . . 9 (𝑦 = ∅ → (𝑦 = ∅ ↔ ∅ = ∅))
5554anbi1d 643 . . . . . . . 8 (𝑦 = ∅ → ((𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗)) ↔ (∅ = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))))
5653, 55anbi12d 644 . . . . . . 7 (𝑦 = ∅ → ((𝑋 = ⟨𝑥, 𝑦⟩ ∧ (𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))) ↔ (𝑋 = ⟨𝑥, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗)))))
5743, 56spcev 3560 . . . . . 6 ((𝑋 = ⟨𝑥, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))) → ∃𝑦(𝑋 = ⟨𝑥, 𝑦⟩ ∧ (𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))))
5849, 57sylan2b 606 . . . . 5 ((𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘∅)) → ∃𝑦(𝑋 = ⟨𝑥, 𝑦⟩ ∧ (𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))))
5952, 58impbii 212 . . . 4 (∃𝑦(𝑋 = ⟨𝑥, 𝑦⟩ ∧ (𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))) ↔ (𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘∅)))
6059exbii 1881 . . 3 (∃𝑥𝑦(𝑋 = ⟨𝑥, 𝑦⟩ ∧ (𝑦 = ∅ ∧ ∃𝑖 ∈ ω ∃𝑗 ∈ ω 𝑥 = (𝑖𝑔𝑗))) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘∅)))
6129, 30, 603bitri 300 . 2 (𝑋 ∈ (𝑆‘∅) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘∅)))
6225satf0suc 35956 . . . . . . 7 (𝑧 ∈ ω → (𝑆‘suc 𝑧) = ((𝑆𝑧) ∪ {⟨𝑎, 𝑏⟩ ∣ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))}))
6362eleq2d 2846 . . . . . 6 (𝑧 ∈ ω → (𝑋 ∈ (𝑆‘suc 𝑧) ↔ 𝑋 ∈ ((𝑆𝑧) ∪ {⟨𝑎, 𝑏⟩ ∣ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))})))
64 elun 4100 . . . . . . 7 (𝑋 ∈ ((𝑆𝑧) ∪ {⟨𝑎, 𝑏⟩ ∣ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))}) ↔ (𝑋 ∈ (𝑆𝑧) ∨ 𝑋 ∈ {⟨𝑎, 𝑏⟩ ∣ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))}))
6564a1i 11 . . . . . 6 (𝑧 ∈ ω → (𝑋 ∈ ((𝑆𝑧) ∪ {⟨𝑎, 𝑏⟩ ∣ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))}) ↔ (𝑋 ∈ (𝑆𝑧) ∨ 𝑋 ∈ {⟨𝑎, 𝑏⟩ ∣ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))})))
66 elopab 5505 . . . . . . . 8 (𝑋 ∈ {⟨𝑎, 𝑏⟩ ∣ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))} ↔ ∃𝑎𝑏(𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))))
6766a1i 11 . . . . . . 7 (𝑧 ∈ ω → (𝑋 ∈ {⟨𝑎, 𝑏⟩ ∣ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))} ↔ ∃𝑎𝑏(𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢))))))
6867orbi2d 929 . . . . . 6 (𝑧 ∈ ω → ((𝑋 ∈ (𝑆𝑧) ∨ 𝑋 ∈ {⟨𝑎, 𝑏⟩ ∣ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))}) ↔ (𝑋 ∈ (𝑆𝑧) ∨ ∃𝑎𝑏(𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))))))
6963, 65, 683bitrd 308 . . . . 5 (𝑧 ∈ ω → (𝑋 ∈ (𝑆‘suc 𝑧) ↔ (𝑋 ∈ (𝑆𝑧) ∨ ∃𝑎𝑏(𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))))))
7069adantr 486 . . . 4 ((𝑧 ∈ ω ∧ (𝑋 ∈ (𝑆𝑧) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)))) → (𝑋 ∈ (𝑆‘suc 𝑧) ↔ (𝑋 ∈ (𝑆𝑧) ∨ ∃𝑎𝑏(𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))))))
71 simpr 490 . . . . . 6 ((𝑧 ∈ ω ∧ (𝑋 ∈ (𝑆𝑧) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)))) → (𝑋 ∈ (𝑆𝑧) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧))))
72 opeq2 4834 . . . . . . . . . . . . . . . . 17 (𝑏 = ∅ → ⟨𝑎, 𝑏⟩ = ⟨𝑎, ∅⟩)
7372eqeq2d 2771 . . . . . . . . . . . . . . . 16 (𝑏 = ∅ → (𝑋 = ⟨𝑎, 𝑏⟩ ↔ 𝑋 = ⟨𝑎, ∅⟩))
7473biimpd 232 . . . . . . . . . . . . . . 15 (𝑏 = ∅ → (𝑋 = ⟨𝑎, 𝑏⟩ → 𝑋 = ⟨𝑎, ∅⟩))
7574adantr 486 . . . . . . . . . . . . . 14 ((𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢))) → (𝑋 = ⟨𝑎, 𝑏⟩ → 𝑋 = ⟨𝑎, ∅⟩))
7675impcom 413 . . . . . . . . . . . . 13 ((𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))) → 𝑋 = ⟨𝑎, ∅⟩)
77 eqidd 2761 . . . . . . . . . . . . . 14 ((𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))) → ∅ = ∅)
78 simpr 490 . . . . . . . . . . . . . . 15 ((𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢))) → ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))
7978adantl 487 . . . . . . . . . . . . . 14 ((𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))) → ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))
8077, 79jca 521 . . . . . . . . . . . . 13 ((𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))) → (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢))))
8176, 80jca 521 . . . . . . . . . . . 12 ((𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))) → (𝑋 = ⟨𝑎, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))))
8281exlimiv 1963 . . . . . . . . . . 11 (∃𝑏(𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))) → (𝑋 = ⟨𝑎, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))))
83 eqeq1 2764 . . . . . . . . . . . . . 14 (𝑏 = ∅ → (𝑏 = ∅ ↔ ∅ = ∅))
8483anbi1d 643 . . . . . . . . . . . . 13 (𝑏 = ∅ → ((𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢))) ↔ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))))
8573, 84anbi12d 644 . . . . . . . . . . . 12 (𝑏 = ∅ → ((𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))) ↔ (𝑋 = ⟨𝑎, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢))))))
8643, 85spcev 3560 . . . . . . . . . . 11 ((𝑋 = ⟨𝑎, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))) → ∃𝑏(𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))))
8782, 86impbii 212 . . . . . . . . . 10 (∃𝑏(𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))) ↔ (𝑋 = ⟨𝑎, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))))
8887exbii 1881 . . . . . . . . 9 (∃𝑎𝑏(𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))) ↔ ∃𝑎(𝑋 = ⟨𝑎, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))))
8988a1i 11 . . . . . . . 8 (𝑧 ∈ ω → (∃𝑎𝑏(𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))) ↔ ∃𝑎(𝑋 = ⟨𝑎, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢))))))
90 opeq1 4833 . . . . . . . . . . 11 (𝑥 = 𝑎 → ⟨𝑥, ∅⟩ = ⟨𝑎, ∅⟩)
9190eqeq2d 2771 . . . . . . . . . 10 (𝑥 = 𝑎 → (𝑋 = ⟨𝑥, ∅⟩ ↔ 𝑋 = ⟨𝑎, ∅⟩))
92 eqeq1 2764 . . . . . . . . . . . . . 14 (𝑥 = 𝑎 → (𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ↔ 𝑎 = ((1st𝑢)⊼𝑔(1st𝑣))))
9392rexbidv 3186 . . . . . . . . . . . . 13 (𝑥 = 𝑎 → (∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ↔ ∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣))))
94 eqeq1 2764 . . . . . . . . . . . . . 14 (𝑥 = 𝑎 → (𝑥 = ∀𝑔𝑖(1st𝑢) ↔ 𝑎 = ∀𝑔𝑖(1st𝑢)))
9594rexbidv 3186 . . . . . . . . . . . . 13 (𝑥 = 𝑎 → (∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢) ↔ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))
9693, 95orbi12d 932 . . . . . . . . . . . 12 (𝑥 = 𝑎 → ((∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢)) ↔ (∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢))))
9796rexbidv 3186 . . . . . . . . . . 11 (𝑥 = 𝑎 → (∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢)) ↔ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢))))
9897anbi2d 642 . . . . . . . . . 10 (𝑥 = 𝑎 → ((∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))) ↔ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))))
9991, 98anbi12d 644 . . . . . . . . 9 (𝑥 = 𝑎 → ((𝑋 = ⟨𝑥, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢)))) ↔ (𝑋 = ⟨𝑎, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢))))))
10099cbvexvw 2070 . . . . . . . 8 (∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢)))) ↔ ∃𝑎(𝑋 = ⟨𝑎, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))))
10189, 100bitr4di 292 . . . . . . 7 (𝑧 ∈ ω → (∃𝑎𝑏(𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))))
102101adantr 486 . . . . . 6 ((𝑧 ∈ ω ∧ (𝑋 ∈ (𝑆𝑧) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)))) → (∃𝑎𝑏(𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))))
10371, 102orbi12d 932 . . . . 5 ((𝑧 ∈ ω ∧ (𝑋 ∈ (𝑆𝑧) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)))) → ((𝑋 ∈ (𝑆𝑧) ∨ ∃𝑎𝑏(𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢))))) ↔ (∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)) ∨ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢)))))))
104 19.43 1915 . . . . . 6 (∃𝑥((𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)) ∨ (𝑋 = ⟨𝑥, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))) ↔ (∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)) ∨ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))))
105 andi 1025 . . . . . . . 8 ((𝑋 = ⟨𝑥, ∅⟩ ∧ (⟨𝑥, ∅⟩ ∈ (𝑆𝑧) ∨ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))) ↔ ((𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)) ∨ (𝑋 = ⟨𝑥, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))))
106105bicomi 227 . . . . . . 7 (((𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)) ∨ (𝑋 = ⟨𝑥, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))) ↔ (𝑋 = ⟨𝑥, ∅⟩ ∧ (⟨𝑥, ∅⟩ ∈ (𝑆𝑧) ∨ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))))
107106exbii 1881 . . . . . 6 (∃𝑥((𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)) ∨ (𝑋 = ⟨𝑥, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ (⟨𝑥, ∅⟩ ∈ (𝑆𝑧) ∨ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))))
108104, 107bitr3i 280 . . . . 5 ((∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)) ∨ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ (⟨𝑥, ∅⟩ ∈ (𝑆𝑧) ∨ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))))
109103, 108bitrdi 290 . . . 4 ((𝑧 ∈ ω ∧ (𝑋 ∈ (𝑆𝑧) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)))) → ((𝑋 ∈ (𝑆𝑧) ∨ ∃𝑎𝑏(𝑋 = ⟨𝑎, 𝑏⟩ ∧ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢))))) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ (⟨𝑥, ∅⟩ ∈ (𝑆𝑧) ∨ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢)))))))
11062eleq2d 2846 . . . . . . . . 9 (𝑧 ∈ ω → (⟨𝑥, ∅⟩ ∈ (𝑆‘suc 𝑧) ↔ ⟨𝑥, ∅⟩ ∈ ((𝑆𝑧) ∪ {⟨𝑎, 𝑏⟩ ∣ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))})))
111 elun 4100 . . . . . . . . . 10 (⟨𝑥, ∅⟩ ∈ ((𝑆𝑧) ∪ {⟨𝑎, 𝑏⟩ ∣ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))}) ↔ (⟨𝑥, ∅⟩ ∈ (𝑆𝑧) ∨ ⟨𝑥, ∅⟩ ∈ {⟨𝑎, 𝑏⟩ ∣ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))}))
112 eqeq1 2764 . . . . . . . . . . . . . . . 16 (𝑎 = 𝑥 → (𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ↔ 𝑥 = ((1st𝑢)⊼𝑔(1st𝑣))))
113112rexbidv 3186 . . . . . . . . . . . . . . 15 (𝑎 = 𝑥 → (∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ↔ ∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣))))
114 eqeq1 2764 . . . . . . . . . . . . . . . 16 (𝑎 = 𝑥 → (𝑎 = ∀𝑔𝑖(1st𝑢) ↔ 𝑥 = ∀𝑔𝑖(1st𝑢)))
115114rexbidv 3186 . . . . . . . . . . . . . . 15 (𝑎 = 𝑥 → (∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢) ↔ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢)))
116113, 115orbi12d 932 . . . . . . . . . . . . . 14 (𝑎 = 𝑥 → ((∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)) ↔ (∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))
117116rexbidv 3186 . . . . . . . . . . . . 13 (𝑎 = 𝑥 → (∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)) ↔ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))
11883, 117bi2anan9r 651 . . . . . . . . . . . 12 ((𝑎 = 𝑥𝑏 = ∅) → ((𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢))) ↔ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢)))))
11942, 43, 118opelopaba 5514 . . . . . . . . . . 11 (⟨𝑥, ∅⟩ ∈ {⟨𝑎, 𝑏⟩ ∣ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))} ↔ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))
120119orbi2i 926 . . . . . . . . . 10 ((⟨𝑥, ∅⟩ ∈ (𝑆𝑧) ∨ ⟨𝑥, ∅⟩ ∈ {⟨𝑎, 𝑏⟩ ∣ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))}) ↔ (⟨𝑥, ∅⟩ ∈ (𝑆𝑧) ∨ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢)))))
121111, 120bitri 278 . . . . . . . . 9 (⟨𝑥, ∅⟩ ∈ ((𝑆𝑧) ∪ {⟨𝑎, 𝑏⟩ ∣ (𝑏 = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑎 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑎 = ∀𝑔𝑖(1st𝑢)))}) ↔ (⟨𝑥, ∅⟩ ∈ (𝑆𝑧) ∨ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢)))))
122110, 121bitrdi 290 . . . . . . . 8 (𝑧 ∈ ω → (⟨𝑥, ∅⟩ ∈ (𝑆‘suc 𝑧) ↔ (⟨𝑥, ∅⟩ ∈ (𝑆𝑧) ∨ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))))
123122anbi2d 642 . . . . . . 7 (𝑧 ∈ ω → ((𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘suc 𝑧)) ↔ (𝑋 = ⟨𝑥, ∅⟩ ∧ (⟨𝑥, ∅⟩ ∈ (𝑆𝑧) ∨ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢)))))))
124123exbidv 1954 . . . . . 6 (𝑧 ∈ ω → (∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘suc 𝑧)) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ (⟨𝑥, ∅⟩ ∈ (𝑆𝑧) ∨ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢)))))))
125124bicomd 226 . . . . 5 (𝑧 ∈ ω → (∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ (⟨𝑥, ∅⟩ ∈ (𝑆𝑧) ∨ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘suc 𝑧))))
126125adantr 486 . . . 4 ((𝑧 ∈ ω ∧ (𝑋 ∈ (𝑆𝑧) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)))) → (∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ (⟨𝑥, ∅⟩ ∈ (𝑆𝑧) ∨ (∅ = ∅ ∧ ∃𝑢 ∈ (𝑆𝑧)(∃𝑣 ∈ (𝑆𝑧)𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∨ ∃𝑖 ∈ ω 𝑥 = ∀𝑔𝑖(1st𝑢))))) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘suc 𝑧))))
12770, 109, 1263bitrd 308 . . 3 ((𝑧 ∈ ω ∧ (𝑋 ∈ (𝑆𝑧) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧)))) → (𝑋 ∈ (𝑆‘suc 𝑧) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘suc 𝑧))))
128127ex 418 . 2 (𝑧 ∈ ω → ((𝑋 ∈ (𝑆𝑧) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑧))) → (𝑋 ∈ (𝑆‘suc 𝑧) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆‘suc 𝑧)))))
1296, 12, 18, 24, 61, 128finds 7894 1 (𝑁 ∈ ω → (𝑋 ∈ (𝑆𝑁) ↔ ∃𝑥(𝑋 = ⟨𝑥, ∅⟩ ∧ ⟨𝑥, ∅⟩ ∈ (𝑆𝑁))))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  wi 4  wb 209  wa 401  wo 861   = wceq 1570  wex 1812  wcel 2145  wrex 3086  cun 3897  c0 4279  cop 4590  {copab 5167  suc csuc 6359  cfv 6533  (class class class)co 7414  ωcom 7863  1st c1st 7985  𝑔cgoe 35913  𝑔cgna 35914  𝑔cgol 35915   Sat csat 35916
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-rep 5232  ax-sep 5251  ax-nul 5263  ax-pow 5330  ax-pr 5398  ax-un 7737  ax-inf2 9621
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-ral 3077  df-rex 3087  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-iun 4953  df-br 5104  df-opab 5168  df-mpt 5187  df-tr 5213  df-id 5550  df-eprel 5555  df-po 5563  df-so 5564  df-fr 5608  df-we 5610  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-pred 6299  df-ord 6360  df-on 6361  df-lim 6362  df-suc 6363  df-iota 6489  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-ov 7417  df-oprab 7418  df-mpo 7419  df-om 7864  df-1st 7987  df-2nd 7988  df-frecs 8281  df-wrecs 8312  df-recs 8361  df-rdg 8400  df-map 8829  df-goel 35920  df-sat 35923
This theorem is used by:  fmlasuc  35966
  Copyright terms: Public domain W3C validator