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

Theorem axprALT2 35287
Description: Alternate proof of axpr 5374, proved from predicate calculus, ax-rep 5226, and ax-inf2 9562. (Contributed by BTernaryTau, 26-Mar-2026.) (Proof modification is discouraged.) (New usage is discouraged.)
Assertion
Ref Expression
axprALT2 𝑧𝑤((𝑤 = 𝑥𝑤 = 𝑦) → 𝑤𝑧)
Distinct variable groups:   𝑥,𝑤,𝑧   𝑦,𝑤,𝑧

Proof of Theorem axprALT2
Dummy variables 𝑡 𝑝 𝑢 𝑣 𝑠 𝑛 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 axprlem3 5372 . . 3 𝑧𝑤(𝑤𝑧 ↔ ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦)))
2 elequ1 2121 . . . . . . . . . . . . 13 (𝑡 = 𝑠 → (𝑡𝑝𝑠𝑝))
3 elequ2 2129 . . . . . . . . . . . . 13 (𝑡 = 𝑠 → (𝑢𝑡𝑢𝑠))
42, 3anbi12d 633 . . . . . . . . . . . 12 (𝑡 = 𝑠 → ((𝑡𝑝𝑢𝑡) ↔ (𝑠𝑝𝑢𝑠)))
54cbvexvw 2039 . . . . . . . . . . 11 (∃𝑡(𝑡𝑝𝑢𝑡) ↔ ∃𝑠(𝑠𝑝𝑢𝑠))
6 elex2 2814 . . . . . . . . . . . . 13 (𝑢𝑠 → ∃𝑛 𝑛𝑠)
76anim2i 618 . . . . . . . . . . . 12 ((𝑠𝑝𝑢𝑠) → (𝑠𝑝 ∧ ∃𝑛 𝑛𝑠))
87eximi 1837 . . . . . . . . . . 11 (∃𝑠(𝑠𝑝𝑢𝑠) → ∃𝑠(𝑠𝑝 ∧ ∃𝑛 𝑛𝑠))
95, 8sylbi 217 . . . . . . . . . 10 (∃𝑡(𝑡𝑝𝑢𝑡) → ∃𝑠(𝑠𝑝 ∧ ∃𝑛 𝑛𝑠))
1093ad2ant3 1136 . . . . . . . . 9 ((𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → ∃𝑠(𝑠𝑝 ∧ ∃𝑛 𝑛𝑠))
1110exlimiv 1932 . . . . . . . 8 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → ∃𝑠(𝑠𝑝 ∧ ∃𝑛 𝑛𝑠))
12 ax-1 6 . . . . . . . . . 10 (𝑠𝑝 → (𝑤 = 𝑥𝑠𝑝))
13 ifptru 1075 . . . . . . . . . . 11 (∃𝑛 𝑛𝑠 → (if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦) ↔ 𝑤 = 𝑥))
1413biimprd 248 . . . . . . . . . 10 (∃𝑛 𝑛𝑠 → (𝑤 = 𝑥 → if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦)))
1512, 14anim12ii 619 . . . . . . . . 9 ((𝑠𝑝 ∧ ∃𝑛 𝑛𝑠) → (𝑤 = 𝑥 → (𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))))
1615eximi 1837 . . . . . . . 8 (∃𝑠(𝑠𝑝 ∧ ∃𝑛 𝑛𝑠) → ∃𝑠(𝑤 = 𝑥 → (𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))))
17 19.37imv 1949 . . . . . . . 8 (∃𝑠(𝑤 = 𝑥 → (𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))) → (𝑤 = 𝑥 → ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))))
1811, 16, 173syl 18 . . . . . . 7 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → (𝑤 = 𝑥 → ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))))
19 3simpa 1149 . . . . . . . . . 10 ((𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → (𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢))
2019eximi 1837 . . . . . . . . 9 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → ∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢))
21 elequ1 2121 . . . . . . . . . . . 12 (𝑢 = 𝑠 → (𝑢𝑝𝑠𝑝))
22 elequ2 2129 . . . . . . . . . . . . . . 15 (𝑢 = 𝑠 → (𝑡𝑢𝑡𝑠))
2322notbid 318 . . . . . . . . . . . . . 14 (𝑢 = 𝑠 → (¬ 𝑡𝑢 ↔ ¬ 𝑡𝑠))
2423albidv 1922 . . . . . . . . . . . . 13 (𝑢 = 𝑠 → (∀𝑡 ¬ 𝑡𝑢 ↔ ∀𝑡 ¬ 𝑡𝑠))
25 elequ1 2121 . . . . . . . . . . . . . . 15 (𝑡 = 𝑛 → (𝑡𝑠𝑛𝑠))
2625notbid 318 . . . . . . . . . . . . . 14 (𝑡 = 𝑛 → (¬ 𝑡𝑠 ↔ ¬ 𝑛𝑠))
2726cbvalvw 2038 . . . . . . . . . . . . 13 (∀𝑡 ¬ 𝑡𝑠 ↔ ∀𝑛 ¬ 𝑛𝑠)
2824, 27bitrdi 287 . . . . . . . . . . . 12 (𝑢 = 𝑠 → (∀𝑡 ¬ 𝑡𝑢 ↔ ∀𝑛 ¬ 𝑛𝑠))
2921, 28anbi12d 633 . . . . . . . . . . 11 (𝑢 = 𝑠 → ((𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢) ↔ (𝑠𝑝 ∧ ∀𝑛 ¬ 𝑛𝑠)))
3029cbvexvw 2039 . . . . . . . . . 10 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢) ↔ ∃𝑠(𝑠𝑝 ∧ ∀𝑛 ¬ 𝑛𝑠))
31 alnex 1783 . . . . . . . . . . . . 13 (∀𝑛 ¬ 𝑛𝑠 ↔ ¬ ∃𝑛 𝑛𝑠)
3231anbi2i 624 . . . . . . . . . . . 12 ((𝑠𝑝 ∧ ∀𝑛 ¬ 𝑛𝑠) ↔ (𝑠𝑝 ∧ ¬ ∃𝑛 𝑛𝑠))
3332biimpi 216 . . . . . . . . . . 11 ((𝑠𝑝 ∧ ∀𝑛 ¬ 𝑛𝑠) → (𝑠𝑝 ∧ ¬ ∃𝑛 𝑛𝑠))
3433eximi 1837 . . . . . . . . . 10 (∃𝑠(𝑠𝑝 ∧ ∀𝑛 ¬ 𝑛𝑠) → ∃𝑠(𝑠𝑝 ∧ ¬ ∃𝑛 𝑛𝑠))
3530, 34sylbi 217 . . . . . . . . 9 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢) → ∃𝑠(𝑠𝑝 ∧ ¬ ∃𝑛 𝑛𝑠))
3620, 35syl 17 . . . . . . . 8 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → ∃𝑠(𝑠𝑝 ∧ ¬ ∃𝑛 𝑛𝑠))
37 ax-1 6 . . . . . . . . . 10 (𝑠𝑝 → (𝑤 = 𝑦𝑠𝑝))
38 ifpfal 1076 . . . . . . . . . . 11 (¬ ∃𝑛 𝑛𝑠 → (if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦) ↔ 𝑤 = 𝑦))
3938biimprd 248 . . . . . . . . . 10 (¬ ∃𝑛 𝑛𝑠 → (𝑤 = 𝑦 → if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦)))
4037, 39anim12ii 619 . . . . . . . . 9 ((𝑠𝑝 ∧ ¬ ∃𝑛 𝑛𝑠) → (𝑤 = 𝑦 → (𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))))
4140eximi 1837 . . . . . . . 8 (∃𝑠(𝑠𝑝 ∧ ¬ ∃𝑛 𝑛𝑠) → ∃𝑠(𝑤 = 𝑦 → (𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))))
42 19.37imv 1949 . . . . . . . 8 (∃𝑠(𝑤 = 𝑦 → (𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))) → (𝑤 = 𝑦 → ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))))
4336, 41, 423syl 18 . . . . . . 7 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → (𝑤 = 𝑦 → ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))))
4418, 43jaod 860 . . . . . 6 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → ((𝑤 = 𝑥𝑤 = 𝑦) → ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))))
45 imbi2 348 . . . . . 6 ((𝑤𝑧 ↔ ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))) → (((𝑤 = 𝑥𝑤 = 𝑦) → 𝑤𝑧) ↔ ((𝑤 = 𝑥𝑤 = 𝑦) → ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦)))))
4644, 45syl5ibrcom 247 . . . . 5 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → ((𝑤𝑧 ↔ ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))) → ((𝑤 = 𝑥𝑤 = 𝑦) → 𝑤𝑧)))
4746alimdv 1918 . . . 4 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → (∀𝑤(𝑤𝑧 ↔ ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))) → ∀𝑤((𝑤 = 𝑥𝑤 = 𝑦) → 𝑤𝑧)))
4847eximdv 1919 . . 3 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → (∃𝑧𝑤(𝑤𝑧 ↔ ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))) → ∃𝑧𝑤((𝑤 = 𝑥𝑤 = 𝑦) → 𝑤𝑧)))
491, 48mpi 20 . 2 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → ∃𝑧𝑤((𝑤 = 𝑥𝑤 = 𝑦) → 𝑤𝑧))
50 ax-inf2 9562 . . . . 5 𝑝(∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢) ∧ ∀𝑢(𝑢𝑝 → ∃𝑡(𝑡𝑝 ∧ ∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢)))))
51 df-rex 3063 . . . . . 6 (∃𝑢𝑝𝑡 ¬ 𝑡𝑢 ↔ ∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢))
52 df-ral 3053 . . . . . . . 8 (∀𝑢𝑝𝑡(𝑡𝑝 ∧ ∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢))) ↔ ∀𝑢(𝑢𝑝 → ∃𝑡(𝑡𝑝 ∧ ∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢)))))
53 olc 869 . . . . . . . . . . . . . 14 (𝑣 = 𝑢 → (𝑣𝑢𝑣 = 𝑢))
54 biimpr 220 . . . . . . . . . . . . . 14 ((𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢)) → ((𝑣𝑢𝑣 = 𝑢) → 𝑣𝑡))
5553, 54syl5 34 . . . . . . . . . . . . 13 ((𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢)) → (𝑣 = 𝑢𝑣𝑡))
5655alimi 1813 . . . . . . . . . . . 12 (∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢)) → ∀𝑣(𝑣 = 𝑢𝑣𝑡))
57 elequ1 2121 . . . . . . . . . . . . 13 (𝑣 = 𝑢 → (𝑣𝑡𝑢𝑡))
5857equsalvw 2006 . . . . . . . . . . . 12 (∀𝑣(𝑣 = 𝑢𝑣𝑡) ↔ 𝑢𝑡)
5956, 58sylib 218 . . . . . . . . . . 11 (∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢)) → 𝑢𝑡)
6059anim2i 618 . . . . . . . . . 10 ((𝑡𝑝 ∧ ∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢))) → (𝑡𝑝𝑢𝑡))
6160eximi 1837 . . . . . . . . 9 (∃𝑡(𝑡𝑝 ∧ ∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢))) → ∃𝑡(𝑡𝑝𝑢𝑡))
6261ralimi 3075 . . . . . . . 8 (∀𝑢𝑝𝑡(𝑡𝑝 ∧ ∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢))) → ∀𝑢𝑝𝑡(𝑡𝑝𝑢𝑡))
6352, 62sylbir 235 . . . . . . 7 (∀𝑢(𝑢𝑝 → ∃𝑡(𝑡𝑝 ∧ ∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢)))) → ∀𝑢𝑝𝑡(𝑡𝑝𝑢𝑡))
6463anim2i 618 . . . . . 6 ((∃𝑢𝑝𝑡 ¬ 𝑡𝑢 ∧ ∀𝑢(𝑢𝑝 → ∃𝑡(𝑡𝑝 ∧ ∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢))))) → (∃𝑢𝑝𝑡 ¬ 𝑡𝑢 ∧ ∀𝑢𝑝𝑡(𝑡𝑝𝑢𝑡)))
6551, 64sylanbr 583 . . . . 5 ((∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢) ∧ ∀𝑢(𝑢𝑝 → ∃𝑡(𝑡𝑝 ∧ ∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢))))) → (∃𝑢𝑝𝑡 ¬ 𝑡𝑢 ∧ ∀𝑢𝑝𝑡(𝑡𝑝𝑢𝑡)))
6650, 65eximii 1839 . . . 4 𝑝(∃𝑢𝑝𝑡 ¬ 𝑡𝑢 ∧ ∀𝑢𝑝𝑡(𝑡𝑝𝑢𝑡))
67 r19.29r 3102 . . . 4 ((∃𝑢𝑝𝑡 ¬ 𝑡𝑢 ∧ ∀𝑢𝑝𝑡(𝑡𝑝𝑢𝑡)) → ∃𝑢𝑝 (∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)))
6866, 67eximii 1839 . . 3 𝑝𝑢𝑝 (∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡))
69 df-rex 3063 . . . 4 (∃𝑢𝑝 (∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) ↔ ∃𝑢(𝑢𝑝 ∧ (∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡))))
70 3anass 1095 . . . . 5 ((𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) ↔ (𝑢𝑝 ∧ (∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡))))
7170exbii 1850 . . . 4 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) ↔ ∃𝑢(𝑢𝑝 ∧ (∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡))))
7269, 71sylbb2 238 . . 3 (∃𝑢𝑝 (∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → ∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)))
7368, 72eximii 1839 . 2 𝑝𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡))
7449, 73exlimiiv 1933 1 𝑧𝑤((𝑤 = 𝑥𝑤 = 𝑦) → 𝑤𝑧)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395  wo 848  if-wif 1063  w3a 1087  wal 1540  wex 1781  wral 3052  wrex 3062
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-rep 5226  ax-inf2 9562
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-ifp 1064  df-3an 1089  df-ex 1782  df-clel 2812  df-ral 3053  df-rex 3063
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator