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 35290
Description: Alternate proof of axpr 5356, proved from predicate calculus, ax-rep 5199, and ax-inf2 9553. (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 5354 . . 3 𝑧𝑤(𝑤𝑧 ↔ ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦)))
2 elequ1 2126 . . . . . . . . . . . . 13 (𝑡 = 𝑠 → (𝑡𝑝𝑠𝑝))
3 elequ2 2134 . . . . . . . . . . . . 13 (𝑡 = 𝑠 → (𝑢𝑡𝑢𝑠))
42, 3anbi12d 638 . . . . . . . . . . . 12 (𝑡 = 𝑠 → ((𝑡𝑝𝑢𝑡) ↔ (𝑠𝑝𝑢𝑠)))
54cbvexvw 2044 . . . . . . . . . . 11 (∃𝑡(𝑡𝑝𝑢𝑡) ↔ ∃𝑠(𝑠𝑝𝑢𝑠))
6 elex2 2816 . . . . . . . . . . . . 13 (𝑢𝑠 → ∃𝑛 𝑛𝑠)
76anim2i 623 . . . . . . . . . . . 12 ((𝑠𝑝𝑢𝑠) → (𝑠𝑝 ∧ ∃𝑛 𝑛𝑠))
87eximi 1842 . . . . . . . . . . 11 (∃𝑠(𝑠𝑝𝑢𝑠) → ∃𝑠(𝑠𝑝 ∧ ∃𝑛 𝑛𝑠))
95, 8sylbi 218 . . . . . . . . . 10 (∃𝑡(𝑡𝑝𝑢𝑡) → ∃𝑠(𝑠𝑝 ∧ ∃𝑛 𝑛𝑠))
1093ad2ant3 1141 . . . . . . . . 9 ((𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → ∃𝑠(𝑠𝑝 ∧ ∃𝑛 𝑛𝑠))
1110exlimiv 1937 . . . . . . . 8 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → ∃𝑠(𝑠𝑝 ∧ ∃𝑛 𝑛𝑠))
12 ax-1 6 . . . . . . . . . 10 (𝑠𝑝 → (𝑤 = 𝑥𝑠𝑝))
13 ifptru 1080 . . . . . . . . . . 11 (∃𝑛 𝑛𝑠 → (if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦) ↔ 𝑤 = 𝑥))
1413biimprd 249 . . . . . . . . . 10 (∃𝑛 𝑛𝑠 → (𝑤 = 𝑥 → if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦)))
1512, 14anim12ii 624 . . . . . . . . 9 ((𝑠𝑝 ∧ ∃𝑛 𝑛𝑠) → (𝑤 = 𝑥 → (𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))))
1615eximi 1842 . . . . . . . 8 (∃𝑠(𝑠𝑝 ∧ ∃𝑛 𝑛𝑠) → ∃𝑠(𝑤 = 𝑥 → (𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))))
17 19.37imv 1954 . . . . . . . 8 (∃𝑠(𝑤 = 𝑥 → (𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))) → (𝑤 = 𝑥 → ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))))
1811, 16, 173syl 18 . . . . . . 7 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → (𝑤 = 𝑥 → ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))))
19 3simpa 1154 . . . . . . . . . 10 ((𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → (𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢))
2019eximi 1842 . . . . . . . . 9 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → ∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢))
21 elequ1 2126 . . . . . . . . . . . 12 (𝑢 = 𝑠 → (𝑢𝑝𝑠𝑝))
22 elequ2 2134 . . . . . . . . . . . . . . 15 (𝑢 = 𝑠 → (𝑡𝑢𝑡𝑠))
2322notbid 319 . . . . . . . . . . . . . 14 (𝑢 = 𝑠 → (¬ 𝑡𝑢 ↔ ¬ 𝑡𝑠))
2423albidv 1927 . . . . . . . . . . . . 13 (𝑢 = 𝑠 → (∀𝑡 ¬ 𝑡𝑢 ↔ ∀𝑡 ¬ 𝑡𝑠))
25 elequ1 2126 . . . . . . . . . . . . . . 15 (𝑡 = 𝑛 → (𝑡𝑠𝑛𝑠))
2625notbid 319 . . . . . . . . . . . . . 14 (𝑡 = 𝑛 → (¬ 𝑡𝑠 ↔ ¬ 𝑛𝑠))
2726cbvalvw 2043 . . . . . . . . . . . . 13 (∀𝑡 ¬ 𝑡𝑠 ↔ ∀𝑛 ¬ 𝑛𝑠)
2824, 27bitrdi 288 . . . . . . . . . . . 12 (𝑢 = 𝑠 → (∀𝑡 ¬ 𝑡𝑢 ↔ ∀𝑛 ¬ 𝑛𝑠))
2921, 28anbi12d 638 . . . . . . . . . . 11 (𝑢 = 𝑠 → ((𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢) ↔ (𝑠𝑝 ∧ ∀𝑛 ¬ 𝑛𝑠)))
3029cbvexvw 2044 . . . . . . . . . 10 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢) ↔ ∃𝑠(𝑠𝑝 ∧ ∀𝑛 ¬ 𝑛𝑠))
31 alnex 1788 . . . . . . . . . . . . 13 (∀𝑛 ¬ 𝑛𝑠 ↔ ¬ ∃𝑛 𝑛𝑠)
3231anbi2i 629 . . . . . . . . . . . 12 ((𝑠𝑝 ∧ ∀𝑛 ¬ 𝑛𝑠) ↔ (𝑠𝑝 ∧ ¬ ∃𝑛 𝑛𝑠))
3332biimpi 217 . . . . . . . . . . 11 ((𝑠𝑝 ∧ ∀𝑛 ¬ 𝑛𝑠) → (𝑠𝑝 ∧ ¬ ∃𝑛 𝑛𝑠))
3433eximi 1842 . . . . . . . . . 10 (∃𝑠(𝑠𝑝 ∧ ∀𝑛 ¬ 𝑛𝑠) → ∃𝑠(𝑠𝑝 ∧ ¬ ∃𝑛 𝑛𝑠))
3530, 34sylbi 218 . . . . . . . . 9 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢) → ∃𝑠(𝑠𝑝 ∧ ¬ ∃𝑛 𝑛𝑠))
3620, 35syl 17 . . . . . . . 8 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → ∃𝑠(𝑠𝑝 ∧ ¬ ∃𝑛 𝑛𝑠))
37 ax-1 6 . . . . . . . . . 10 (𝑠𝑝 → (𝑤 = 𝑦𝑠𝑝))
38 ifpfal 1081 . . . . . . . . . . 11 (¬ ∃𝑛 𝑛𝑠 → (if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦) ↔ 𝑤 = 𝑦))
3938biimprd 249 . . . . . . . . . 10 (¬ ∃𝑛 𝑛𝑠 → (𝑤 = 𝑦 → if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦)))
4037, 39anim12ii 624 . . . . . . . . 9 ((𝑠𝑝 ∧ ¬ ∃𝑛 𝑛𝑠) → (𝑤 = 𝑦 → (𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))))
4140eximi 1842 . . . . . . . 8 (∃𝑠(𝑠𝑝 ∧ ¬ ∃𝑛 𝑛𝑠) → ∃𝑠(𝑤 = 𝑦 → (𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))))
42 19.37imv 1954 . . . . . . . 8 (∃𝑠(𝑤 = 𝑦 → (𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))) → (𝑤 = 𝑦 → ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))))
4336, 41, 423syl 18 . . . . . . 7 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → (𝑤 = 𝑦 → ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))))
4418, 43jaod 865 . . . . . 6 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → ((𝑤 = 𝑥𝑤 = 𝑦) → ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))))
45 imbi2 349 . . . . . 6 ((𝑤𝑧 ↔ ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))) → (((𝑤 = 𝑥𝑤 = 𝑦) → 𝑤𝑧) ↔ ((𝑤 = 𝑥𝑤 = 𝑦) → ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦)))))
4644, 45syl5ibrcom 248 . . . . 5 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → ((𝑤𝑧 ↔ ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))) → ((𝑤 = 𝑥𝑤 = 𝑦) → 𝑤𝑧)))
4746alimdv 1923 . . . 4 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → (∀𝑤(𝑤𝑧 ↔ ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))) → ∀𝑤((𝑤 = 𝑥𝑤 = 𝑦) → 𝑤𝑧)))
4847eximdv 1924 . . 3 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → (∃𝑧𝑤(𝑤𝑧 ↔ ∃𝑠(𝑠𝑝 ∧ if-(∃𝑛 𝑛𝑠, 𝑤 = 𝑥, 𝑤 = 𝑦))) → ∃𝑧𝑤((𝑤 = 𝑥𝑤 = 𝑦) → 𝑤𝑧)))
491, 48mpi 20 . 2 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → ∃𝑧𝑤((𝑤 = 𝑥𝑤 = 𝑦) → 𝑤𝑧))
50 ax-inf2 9553 . . . . 5 𝑝(∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢) ∧ ∀𝑢(𝑢𝑝 → ∃𝑡(𝑡𝑝 ∧ ∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢)))))
51 df-rex 3064 . . . . . 6 (∃𝑢𝑝𝑡 ¬ 𝑡𝑢 ↔ ∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢))
52 df-ral 3054 . . . . . . . 8 (∀𝑢𝑝𝑡(𝑡𝑝 ∧ ∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢))) ↔ ∀𝑢(𝑢𝑝 → ∃𝑡(𝑡𝑝 ∧ ∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢)))))
53 olc 874 . . . . . . . . . . . . . 14 (𝑣 = 𝑢 → (𝑣𝑢𝑣 = 𝑢))
54 biimpr 221 . . . . . . . . . . . . . 14 ((𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢)) → ((𝑣𝑢𝑣 = 𝑢) → 𝑣𝑡))
5553, 54syl5 34 . . . . . . . . . . . . 13 ((𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢)) → (𝑣 = 𝑢𝑣𝑡))
5655alimi 1818 . . . . . . . . . . . 12 (∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢)) → ∀𝑣(𝑣 = 𝑢𝑣𝑡))
57 elequ1 2126 . . . . . . . . . . . . 13 (𝑣 = 𝑢 → (𝑣𝑡𝑢𝑡))
5857equsalvw 2011 . . . . . . . . . . . 12 (∀𝑣(𝑣 = 𝑢𝑣𝑡) ↔ 𝑢𝑡)
5956, 58sylib 219 . . . . . . . . . . 11 (∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢)) → 𝑢𝑡)
6059anim2i 623 . . . . . . . . . 10 ((𝑡𝑝 ∧ ∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢))) → (𝑡𝑝𝑢𝑡))
6160eximi 1842 . . . . . . . . 9 (∃𝑡(𝑡𝑝 ∧ ∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢))) → ∃𝑡(𝑡𝑝𝑢𝑡))
6261ralimi 3076 . . . . . . . 8 (∀𝑢𝑝𝑡(𝑡𝑝 ∧ ∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢))) → ∀𝑢𝑝𝑡(𝑡𝑝𝑢𝑡))
6352, 62sylbir 236 . . . . . . 7 (∀𝑢(𝑢𝑝 → ∃𝑡(𝑡𝑝 ∧ ∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢)))) → ∀𝑢𝑝𝑡(𝑡𝑝𝑢𝑡))
6463anim2i 623 . . . . . 6 ((∃𝑢𝑝𝑡 ¬ 𝑡𝑢 ∧ ∀𝑢(𝑢𝑝 → ∃𝑡(𝑡𝑝 ∧ ∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢))))) → (∃𝑢𝑝𝑡 ¬ 𝑡𝑢 ∧ ∀𝑢𝑝𝑡(𝑡𝑝𝑢𝑡)))
6551, 64sylanbr 588 . . . . 5 ((∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢) ∧ ∀𝑢(𝑢𝑝 → ∃𝑡(𝑡𝑝 ∧ ∀𝑣(𝑣𝑡 ↔ (𝑣𝑢𝑣 = 𝑢))))) → (∃𝑢𝑝𝑡 ¬ 𝑡𝑢 ∧ ∀𝑢𝑝𝑡(𝑡𝑝𝑢𝑡)))
6650, 65eximii 1844 . . . 4 𝑝(∃𝑢𝑝𝑡 ¬ 𝑡𝑢 ∧ ∀𝑢𝑝𝑡(𝑡𝑝𝑢𝑡))
67 r19.29r 3103 . . . 4 ((∃𝑢𝑝𝑡 ¬ 𝑡𝑢 ∧ ∀𝑢𝑝𝑡(𝑡𝑝𝑢𝑡)) → ∃𝑢𝑝 (∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)))
6866, 67eximii 1844 . . 3 𝑝𝑢𝑝 (∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡))
69 df-rex 3064 . . . 4 (∃𝑢𝑝 (∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) ↔ ∃𝑢(𝑢𝑝 ∧ (∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡))))
70 3anass 1100 . . . . 5 ((𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) ↔ (𝑢𝑝 ∧ (∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡))))
7170exbii 1855 . . . 4 (∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) ↔ ∃𝑢(𝑢𝑝 ∧ (∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡))))
7269, 71sylbb2 239 . . 3 (∃𝑢𝑝 (∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)) → ∃𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡)))
7368, 72eximii 1844 . 2 𝑝𝑢(𝑢𝑝 ∧ ∀𝑡 ¬ 𝑡𝑢 ∧ ∃𝑡(𝑡𝑝𝑢𝑡))
7449, 73exlimiiv 1938 1 𝑧𝑤((𝑤 = 𝑥𝑤 = 𝑦) → 𝑤𝑧)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 207  wa 396  wo 853  if-wif 1068  w3a 1092  wal 1545  wex 1786  wral 3053  wrex 3063
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-rep 5199  ax-inf2 9553
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-ifp 1069  df-3an 1094  df-ex 1787  df-clel 2814  df-ral 3054  df-rex 3064
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator