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 35441
Description: Alternate proof of axpr 5396, proved from predicate calculus, ax-rep 5239, and ax-inf2 9606. (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 5394 . . 3 𝑧𝑤(𝑤𝑧 ↔ ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦)))
2 elequ1 2156 . . . . . . . . . . . . 13 (𝑡 = 𝑠 → (𝑡𝑝𝑠𝑝))
3 elequ2 2164 . . . . . . . . . . . . 13 (𝑡 = 𝑠 → (𝑢𝑡𝑢𝑠))
42, 3anbi12d 643 . . . . . . . . . . . 12 (𝑡 = 𝑠 → ((𝑡𝑝𝑢𝑡) ↔ (𝑠𝑝𝑢𝑠)))
54cbvexvw 2064 . . . . . . . . . . 11 (∃𝑡(𝑡𝑝𝑢𝑡) ↔ ∃𝑠(𝑠𝑝𝑢𝑠))
6 elex2 2846 . . . . . . . . . . . . 13 (𝑢𝑠 → ∃𝑛 𝑛𝑠)
76anim2i 628 . . . . . . . . . . . 12 ((𝑠𝑝𝑢𝑠) → (𝑠𝑝 ∧ ∃𝑛 𝑛𝑠))
87eximi 1862 . . . . . . . . . . 11 (∃𝑠(𝑠𝑝𝑢𝑠) → ∃𝑠(𝑠𝑝 ∧ ∃𝑛 𝑛𝑠))
95, 8sylbi 220 . . . . . . . . . 10 (∃𝑡(𝑡𝑝𝑢𝑡) → ∃𝑠(𝑠𝑝 ∧ ∃𝑛 𝑛𝑠))
1093ad2ant3 1151 . . . . . . . . 9 ((𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → ∃𝑠(𝑠𝑝 ∧ ∃𝑛 𝑛𝑠))
1110exlimiv 1957 . . . . . . . 8 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → ∃𝑠(𝑠𝑝 ∧ ∃𝑛 𝑛𝑠))
12 ax-1 6 . . . . . . . . . 10 (𝑠𝑝 → (𝑤 = 𝑥𝑠𝑝))
13 ifptru 1089 . . . . . . . . . . 11 (∃𝑛 𝑛𝑠 → (if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦) ↔ 𝑤 = 𝑥))
1413biimprd 251 . . . . . . . . . 10 (∃𝑛 𝑛𝑠 → (𝑤 = 𝑥 → if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦)))
1512, 14anim12ii 629 . . . . . . . . 9 ((𝑠𝑝 ∧ ∃𝑛 𝑛𝑠) → (𝑤 = 𝑥 → (𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))))
1615eximi 1862 . . . . . . . 8 (∃𝑠(𝑠𝑝 ∧ ∃𝑛 𝑛𝑠) → ∃𝑠(𝑤 = 𝑥 → (𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))))
17 19.37imv 1974 . . . . . . . 8 (∃𝑠(𝑤 = 𝑥 → (𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))) → (𝑤 = 𝑥 → ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))))
1811, 16, 173syl 19 . . . . . . 7 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → (𝑤 = 𝑥 → ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))))
19 3simpa 1164 . . . . . . . . . 10 ((𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → (𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢))
2019eximi 1862 . . . . . . . . 9 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → ∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢))
21 elequ1 2156 . . . . . . . . . . . 12 (𝑢 = 𝑠 → (𝑢𝑝𝑠𝑝))
22 elequ2 2164 . . . . . . . . . . . . . . 15 (𝑢 = 𝑠 → (𝑡𝑢𝑡𝑠))
2322notbid 321 . . . . . . . . . . . . . 14 (𝑢 = 𝑠 → (¬ 𝑡𝑢 ↔ ¬ 𝑡𝑠))
2423albidv 1947 . . . . . . . . . . . . 13 (𝑢 = 𝑠 → (∀𝑡 ¬ 𝑡𝑢 ↔ ∀𝑡 ¬ 𝑡𝑠))
25 elequ1 2156 . . . . . . . . . . . . . . 15 (𝑡 = 𝑛 → (𝑡𝑠𝑛𝑠))
2625notbid 321 . . . . . . . . . . . . . 14 (𝑡 = 𝑛 → (¬ 𝑡𝑠 ↔ ¬ 𝑛𝑠))
2726cbvalvw 2063 . . . . . . . . . . . . 13 (∀𝑡 ¬ 𝑡𝑠 ↔ ∀𝑛 ¬ 𝑛𝑠)
2824, 27bitrdi 290 . . . . . . . . . . . 12 (𝑢 = 𝑠 → (∀𝑡 ¬ 𝑡𝑢 ↔ ∀𝑛 ¬ 𝑛𝑠))
2921, 28anbi12d 643 . . . . . . . . . . 11 (𝑢 = 𝑠 → ((𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢) ↔ (𝑠𝑝 ∧ ∀𝑛 ¬ 𝑛𝑠)))
3029cbvexvw 2064 . . . . . . . . . 10 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢) ↔ ∃𝑠(𝑠𝑝 ∧ ∀𝑛 ¬ 𝑛𝑠))
31 alnex 1808 . . . . . . . . . . . . 13 (∀𝑛 ¬ 𝑛𝑠 ↔ ¬ ∃𝑛 𝑛𝑠)
3231anbi2i 634 . . . . . . . . . . . 12 ((𝑠𝑝 ∧ ∀𝑛 ¬ 𝑛𝑠) ↔ (𝑠𝑝 ∧ ¬ ∃𝑛 𝑛𝑠))
3332biimpi 219 . . . . . . . . . . 11 ((𝑠𝑝 ∧ ∀𝑛 ¬ 𝑛𝑠) → (𝑠𝑝 ∧ ¬ ∃𝑛 𝑛𝑠))
3433eximi 1862 . . . . . . . . . 10 (∃𝑠(𝑠𝑝 ∧ ∀𝑛 ¬ 𝑛𝑠) → ∃𝑠(𝑠𝑝 ∧ ¬ ∃𝑛 𝑛𝑠))
3530, 34sylbi 220 . . . . . . . . 9 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢) → ∃𝑠(𝑠𝑝 ∧ ¬ ∃𝑛 𝑛𝑠))
3620, 35syl 18 . . . . . . . 8 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → ∃𝑠(𝑠𝑝 ∧ ¬ ∃𝑛 𝑛𝑠))
37 ax-1 6 . . . . . . . . . 10 (𝑠𝑝 → (𝑤 = 𝑦𝑠𝑝))
38 ifpfal 1090 . . . . . . . . . . 11 (¬ ∃𝑛 𝑛𝑠 → (if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦) ↔ 𝑤 = 𝑦))
3938biimprd 251 . . . . . . . . . 10 (¬ ∃𝑛 𝑛𝑠 → (𝑤 = 𝑦 → if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦)))
4037, 39anim12ii 629 . . . . . . . . 9 ((𝑠𝑝 ∧ ¬ ∃𝑛 𝑛𝑠) → (𝑤 = 𝑦 → (𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))))
4140eximi 1862 . . . . . . . 8 (∃𝑠(𝑠𝑝 ∧ ¬ ∃𝑛 𝑛𝑠) → ∃𝑠(𝑤 = 𝑦 → (𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))))
42 19.37imv 1974 . . . . . . . 8 (∃𝑠(𝑤 = 𝑦 → (𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))) → (𝑤 = 𝑦 → ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))))
4336, 41, 423syl 19 . . . . . . 7 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → (𝑤 = 𝑦 → ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))))
4418, 43jaod 872 . . . . . 6 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → ((𝑤 = 𝑥𝑤 = 𝑦) → ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))))
45 imbi2 351 . . . . . 6 ((𝑤𝑧 ↔ ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))) → (((𝑤 = 𝑥𝑤 = 𝑦) → 𝑤𝑧) ↔ ((𝑤 = 𝑥𝑤 = 𝑦) → ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦)))))
4644, 45syl5ibrcom 250 . . . . 5 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → ((𝑤𝑧 ↔ ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))) → ((𝑤 = 𝑥𝑤 = 𝑦) → 𝑤𝑧)))
4746alimdv 1943 . . . 4 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → (∀𝑤(𝑤𝑧 ↔ ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))) → ∀𝑤((𝑤 = 𝑥𝑤 = 𝑦) → 𝑤𝑧)))
4847eximdv 1944 . . 3 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → (∃𝑧𝑤(𝑤𝑧 ↔ ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))) → ∃𝑧𝑤((𝑤 = 𝑥𝑤 = 𝑦) → 𝑤𝑧)))
491, 48mpi 21 . 2 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → ∃𝑧𝑤((𝑤 = 𝑥𝑤 = 𝑦) → 𝑤𝑧))
50 ax-inf2 9606 . . . . 5 𝑝(∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢) ∧ ∀𝑢(𝑢𝑝 → ∃𝑡(𝑡𝑝 ∧ ∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢)))))
51 df-rex 3096 . . . . . 6 (∃𝑢𝑝𝑡 ¬ 𝑡𝑢 ↔ ∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢))
52 df-ral 3086 . . . . . . . 8 (∀𝑢𝑝𝑡(𝑡𝑝 ∧ ∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢))) ↔ ∀𝑢(𝑢𝑝 → ∃𝑡(𝑡𝑝 ∧ ∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢)))))
53 olc 881 . . . . . . . . . . . . . 14 (𝑣 = 𝑢 → (𝑣𝑢𝑣 = 𝑢))
54 biimpr 223 . . . . . . . . . . . . . 14 ((𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢)) → ((𝑣𝑢𝑣 = 𝑢) → 𝑣𝑡))
5553, 54syl5 35 . . . . . . . . . . . . 13 ((𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢)) → (𝑣 = 𝑢𝑣𝑡))
5655alimi 1838 . . . . . . . . . . . 12 (∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢)) → ∀𝑣(𝑣 = 𝑢𝑣𝑡))
57 elequ1 2156 . . . . . . . . . . . . 13 (𝑣 = 𝑢 → (𝑣𝑡𝑢𝑡))
5857equsalvw 2031 . . . . . . . . . . . 12 (∀𝑣(𝑣 = 𝑢𝑣𝑡) ↔ 𝑢𝑡)
5956, 58sylib 221 . . . . . . . . . . 11 (∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢)) → 𝑢𝑡)
6059anim2i 628 . . . . . . . . . 10 ((𝑡𝑝 ∧ ∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢))) → (𝑡𝑝𝑢𝑡))
6160eximi 1862 . . . . . . . . 9 (∃𝑡(𝑡𝑝 ∧ ∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢))) → ∃𝑡(𝑡𝑝𝑢𝑡))
6261ralimi 3108 . . . . . . . 8 (∀𝑢𝑝𝑡(𝑡𝑝 ∧ ∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢))) → ∀𝑢𝑝𝑡(𝑡𝑝𝑢𝑡))
6352, 62sylbir 238 . . . . . . 7 (∀𝑢(𝑢𝑝 → ∃𝑡(𝑡𝑝 ∧ ∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢)))) → ∀𝑢𝑝𝑡(𝑡𝑝𝑢𝑡))
6463anim2i 628 . . . . . 6 ((∃𝑢𝑝𝑡 ¬ 𝑡𝑢 ∧ ∀𝑢(𝑢𝑝 → ∃𝑡(𝑡𝑝 ∧ ∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢))))) → (∃𝑢𝑝𝑡 ¬ 𝑡𝑢 ∧ ∀𝑢𝑝𝑡(𝑡𝑝𝑢𝑡)))
6551, 64sylanbr 593 . . . . 5 ((∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢) ∧ ∀𝑢(𝑢𝑝 → ∃𝑡(𝑡𝑝 ∧ ∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢))))) → (∃𝑢𝑝𝑡 ¬ 𝑡𝑢 ∧ ∀𝑢𝑝𝑡(𝑡𝑝𝑢𝑡)))
6650, 65eximii 1864 . . . 4 𝑝(∃𝑢𝑝𝑡 ¬ 𝑡𝑢 ∧ ∀𝑢𝑝𝑡(𝑡𝑝𝑢𝑡))
67 r19.29r 3135 . . . 4 ((∃𝑢𝑝𝑡 ¬ 𝑡𝑢 ∧ ∀𝑢𝑝𝑡(𝑡𝑝𝑢𝑡)) → ∃𝑢𝑝 (∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)))
6866, 67eximii 1864 . . 3 𝑝𝑢𝑝 (∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡))
69 df-rex 3096 . . . 4 (∃𝑢𝑝 (∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) ↔ ∃𝑢(𝑢𝑝 ∧ (∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡))))
70 3anass 1109 . . . . 5 ((𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) ↔ (𝑢𝑝 ∧ (∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡))))
7170exbii 1875 . . . 4 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) ↔ ∃𝑢(𝑢𝑝 ∧ (∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡))))
7269, 71sylbb2 241 . . 3 (∃𝑢𝑝 (∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → ∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)))
7368, 72eximii 1864 . 2 𝑝𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡))
7449, 73exlimiiv 1958 1 𝑧𝑤((𝑤 = 𝑥𝑤 = 𝑦) → 𝑤𝑧)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 209  wa 400  wo 860  if-wif 1076  w3a 1101  wal 1565  wex 1806  wral 3085  wrex 3095
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-rep 5239  ax-inf2 9606
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-ifp 1077  df-3an 1103  df-ex 1807  df-clel 2844  df-ral 3086  df-rex 3096
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator