Metamath Proof Explorer


Theorem axprALT2

Description: Alternate proof of axpr , proved from predicate calculus, ax-rep , and ax-inf2 . (Contributed by BTernaryTau, 26-Mar-2026) (Proof modification is discouraged.) (New usage is discouraged.)

Ref Expression
Assertion axprALT2 𝑧𝑤 ( ( 𝑤 = 𝑥𝑤 = 𝑦 ) → 𝑤𝑧 )

Proof

Step Hyp Ref Expression
1 axprlem3 𝑧𝑤 ( 𝑤𝑧 ↔ ∃ 𝑠 ( 𝑠𝑝 ∧ if- ( ∃ 𝑛 𝑛𝑠 , 𝑤 = 𝑥 , 𝑤 = 𝑦 ) ) )
2 elequ1 ( 𝑡 = 𝑠 → ( 𝑡𝑝𝑠𝑝 ) )
3 elequ2 ( 𝑡 = 𝑠 → ( 𝑢𝑡𝑢𝑠 ) )
4 2 3 anbi12d ( 𝑡 = 𝑠 → ( ( 𝑡𝑝𝑢𝑡 ) ↔ ( 𝑠𝑝𝑢𝑠 ) ) )
5 4 cbvexvw ( ∃ 𝑡 ( 𝑡𝑝𝑢𝑡 ) ↔ ∃ 𝑠 ( 𝑠𝑝𝑢𝑠 ) )
6 elex2 ( 𝑢𝑠 → ∃ 𝑛 𝑛𝑠 )
7 6 anim2i ( ( 𝑠𝑝𝑢𝑠 ) → ( 𝑠𝑝 ∧ ∃ 𝑛 𝑛𝑠 ) )
8 7 eximi ( ∃ 𝑠 ( 𝑠𝑝𝑢𝑠 ) → ∃ 𝑠 ( 𝑠𝑝 ∧ ∃ 𝑛 𝑛𝑠 ) )
9 5 8 sylbi ( ∃ 𝑡 ( 𝑡𝑝𝑢𝑡 ) → ∃ 𝑠 ( 𝑠𝑝 ∧ ∃ 𝑛 𝑛𝑠 ) )
10 9 3ad2ant3 ( ( 𝑢𝑝 ∧ ∀ 𝑡 ¬ 𝑡𝑢 ∧ ∃ 𝑡 ( 𝑡𝑝𝑢𝑡 ) ) → ∃ 𝑠 ( 𝑠𝑝 ∧ ∃ 𝑛 𝑛𝑠 ) )
11 10 exlimiv ( ∃ 𝑢 ( 𝑢𝑝 ∧ ∀ 𝑡 ¬ 𝑡𝑢 ∧ ∃ 𝑡 ( 𝑡𝑝𝑢𝑡 ) ) → ∃ 𝑠 ( 𝑠𝑝 ∧ ∃ 𝑛 𝑛𝑠 ) )
12 ax-1 ( 𝑠𝑝 → ( 𝑤 = 𝑥𝑠𝑝 ) )
13 ifptru ( ∃ 𝑛 𝑛𝑠 → ( if- ( ∃ 𝑛 𝑛𝑠 , 𝑤 = 𝑥 , 𝑤 = 𝑦 ) ↔ 𝑤 = 𝑥 ) )
14 13 biimprd ( ∃ 𝑛 𝑛𝑠 → ( 𝑤 = 𝑥 → if- ( ∃ 𝑛 𝑛𝑠 , 𝑤 = 𝑥 , 𝑤 = 𝑦 ) ) )
15 12 14 anim12ii ( ( 𝑠𝑝 ∧ ∃ 𝑛 𝑛𝑠 ) → ( 𝑤 = 𝑥 → ( 𝑠𝑝 ∧ if- ( ∃ 𝑛 𝑛𝑠 , 𝑤 = 𝑥 , 𝑤 = 𝑦 ) ) ) )
16 15 eximi ( ∃ 𝑠 ( 𝑠𝑝 ∧ ∃ 𝑛 𝑛𝑠 ) → ∃ 𝑠 ( 𝑤 = 𝑥 → ( 𝑠𝑝 ∧ if- ( ∃ 𝑛 𝑛𝑠 , 𝑤 = 𝑥 , 𝑤 = 𝑦 ) ) ) )
17 19.37imv ( ∃ 𝑠 ( 𝑤 = 𝑥 → ( 𝑠𝑝 ∧ if- ( ∃ 𝑛 𝑛𝑠 , 𝑤 = 𝑥 , 𝑤 = 𝑦 ) ) ) → ( 𝑤 = 𝑥 → ∃ 𝑠 ( 𝑠𝑝 ∧ if- ( ∃ 𝑛 𝑛𝑠 , 𝑤 = 𝑥 , 𝑤 = 𝑦 ) ) ) )
18 11 16 17 3syl ( ∃ 𝑢 ( 𝑢𝑝 ∧ ∀ 𝑡 ¬ 𝑡𝑢 ∧ ∃ 𝑡 ( 𝑡𝑝𝑢𝑡 ) ) → ( 𝑤 = 𝑥 → ∃ 𝑠 ( 𝑠𝑝 ∧ if- ( ∃ 𝑛 𝑛𝑠 , 𝑤 = 𝑥 , 𝑤 = 𝑦 ) ) ) )
19 3simpa ( ( 𝑢𝑝 ∧ ∀ 𝑡 ¬ 𝑡𝑢 ∧ ∃ 𝑡 ( 𝑡𝑝𝑢𝑡 ) ) → ( 𝑢𝑝 ∧ ∀ 𝑡 ¬ 𝑡𝑢 ) )
20 19 eximi ( ∃ 𝑢 ( 𝑢𝑝 ∧ ∀ 𝑡 ¬ 𝑡𝑢 ∧ ∃ 𝑡 ( 𝑡𝑝𝑢𝑡 ) ) → ∃ 𝑢 ( 𝑢𝑝 ∧ ∀ 𝑡 ¬ 𝑡𝑢 ) )
21 elequ1 ( 𝑢 = 𝑠 → ( 𝑢𝑝𝑠𝑝 ) )
22 elequ2 ( 𝑢 = 𝑠 → ( 𝑡𝑢𝑡𝑠 ) )
23 22 notbid ( 𝑢 = 𝑠 → ( ¬ 𝑡𝑢 ↔ ¬ 𝑡𝑠 ) )
24 23 albidv ( 𝑢 = 𝑠 → ( ∀ 𝑡 ¬ 𝑡𝑢 ↔ ∀ 𝑡 ¬ 𝑡𝑠 ) )
25 elequ1 ( 𝑡 = 𝑛 → ( 𝑡𝑠𝑛𝑠 ) )
26 25 notbid ( 𝑡 = 𝑛 → ( ¬ 𝑡𝑠 ↔ ¬ 𝑛𝑠 ) )
27 26 cbvalvw ( ∀ 𝑡 ¬ 𝑡𝑠 ↔ ∀ 𝑛 ¬ 𝑛𝑠 )
28 24 27 bitrdi ( 𝑢 = 𝑠 → ( ∀ 𝑡 ¬ 𝑡𝑢 ↔ ∀ 𝑛 ¬ 𝑛𝑠 ) )
29 21 28 anbi12d ( 𝑢 = 𝑠 → ( ( 𝑢𝑝 ∧ ∀ 𝑡 ¬ 𝑡𝑢 ) ↔ ( 𝑠𝑝 ∧ ∀ 𝑛 ¬ 𝑛𝑠 ) ) )
30 29 cbvexvw ( ∃ 𝑢 ( 𝑢𝑝 ∧ ∀ 𝑡 ¬ 𝑡𝑢 ) ↔ ∃ 𝑠 ( 𝑠𝑝 ∧ ∀ 𝑛 ¬ 𝑛𝑠 ) )
31 alnex ( ∀ 𝑛 ¬ 𝑛𝑠 ↔ ¬ ∃ 𝑛 𝑛𝑠 )
32 31 anbi2i ( ( 𝑠𝑝 ∧ ∀ 𝑛 ¬ 𝑛𝑠 ) ↔ ( 𝑠𝑝 ∧ ¬ ∃ 𝑛 𝑛𝑠 ) )
33 32 biimpi ( ( 𝑠𝑝 ∧ ∀ 𝑛 ¬ 𝑛𝑠 ) → ( 𝑠𝑝 ∧ ¬ ∃ 𝑛 𝑛𝑠 ) )
34 33 eximi ( ∃ 𝑠 ( 𝑠𝑝 ∧ ∀ 𝑛 ¬ 𝑛𝑠 ) → ∃ 𝑠 ( 𝑠𝑝 ∧ ¬ ∃ 𝑛 𝑛𝑠 ) )
35 30 34 sylbi ( ∃ 𝑢 ( 𝑢𝑝 ∧ ∀ 𝑡 ¬ 𝑡𝑢 ) → ∃ 𝑠 ( 𝑠𝑝 ∧ ¬ ∃ 𝑛 𝑛𝑠 ) )
36 20 35 syl ( ∃ 𝑢 ( 𝑢𝑝 ∧ ∀ 𝑡 ¬ 𝑡𝑢 ∧ ∃ 𝑡 ( 𝑡𝑝𝑢𝑡 ) ) → ∃ 𝑠 ( 𝑠𝑝 ∧ ¬ ∃ 𝑛 𝑛𝑠 ) )
37 ax-1 ( 𝑠𝑝 → ( 𝑤 = 𝑦𝑠𝑝 ) )
38 ifpfal ( ¬ ∃ 𝑛 𝑛𝑠 → ( if- ( ∃ 𝑛 𝑛𝑠 , 𝑤 = 𝑥 , 𝑤 = 𝑦 ) ↔ 𝑤 = 𝑦 ) )
39 38 biimprd ( ¬ ∃ 𝑛 𝑛𝑠 → ( 𝑤 = 𝑦 → if- ( ∃ 𝑛 𝑛𝑠 , 𝑤 = 𝑥 , 𝑤 = 𝑦 ) ) )
40 37 39 anim12ii ( ( 𝑠𝑝 ∧ ¬ ∃ 𝑛 𝑛𝑠 ) → ( 𝑤 = 𝑦 → ( 𝑠𝑝 ∧ if- ( ∃ 𝑛 𝑛𝑠 , 𝑤 = 𝑥 , 𝑤 = 𝑦 ) ) ) )
41 40 eximi ( ∃ 𝑠 ( 𝑠𝑝 ∧ ¬ ∃ 𝑛 𝑛𝑠 ) → ∃ 𝑠 ( 𝑤 = 𝑦 → ( 𝑠𝑝 ∧ if- ( ∃ 𝑛 𝑛𝑠 , 𝑤 = 𝑥 , 𝑤 = 𝑦 ) ) ) )
42 19.37imv ( ∃ 𝑠 ( 𝑤 = 𝑦 → ( 𝑠𝑝 ∧ if- ( ∃ 𝑛 𝑛𝑠 , 𝑤 = 𝑥 , 𝑤 = 𝑦 ) ) ) → ( 𝑤 = 𝑦 → ∃ 𝑠 ( 𝑠𝑝 ∧ if- ( ∃ 𝑛 𝑛𝑠 , 𝑤 = 𝑥 , 𝑤 = 𝑦 ) ) ) )
43 36 41 42 3syl ( ∃ 𝑢 ( 𝑢𝑝 ∧ ∀ 𝑡 ¬ 𝑡𝑢 ∧ ∃ 𝑡 ( 𝑡𝑝𝑢𝑡 ) ) → ( 𝑤 = 𝑦 → ∃ 𝑠 ( 𝑠𝑝 ∧ if- ( ∃ 𝑛 𝑛𝑠 , 𝑤 = 𝑥 , 𝑤 = 𝑦 ) ) ) )
44 18 43 jaod ( ∃ 𝑢 ( 𝑢𝑝 ∧ ∀ 𝑡 ¬ 𝑡𝑢 ∧ ∃ 𝑡 ( 𝑡𝑝𝑢𝑡 ) ) → ( ( 𝑤 = 𝑥𝑤 = 𝑦 ) → ∃ 𝑠 ( 𝑠𝑝 ∧ if- ( ∃ 𝑛 𝑛𝑠 , 𝑤 = 𝑥 , 𝑤 = 𝑦 ) ) ) )
45 imbi2 ( ( 𝑤𝑧 ↔ ∃ 𝑠 ( 𝑠𝑝 ∧ if- ( ∃ 𝑛 𝑛𝑠 , 𝑤 = 𝑥 , 𝑤 = 𝑦 ) ) ) → ( ( ( 𝑤 = 𝑥𝑤 = 𝑦 ) → 𝑤𝑧 ) ↔ ( ( 𝑤 = 𝑥𝑤 = 𝑦 ) → ∃ 𝑠 ( 𝑠𝑝 ∧ if- ( ∃ 𝑛 𝑛𝑠 , 𝑤 = 𝑥 , 𝑤 = 𝑦 ) ) ) ) )
46 44 45 syl5ibrcom ( ∃ 𝑢 ( 𝑢𝑝 ∧ ∀ 𝑡 ¬ 𝑡𝑢 ∧ ∃ 𝑡 ( 𝑡𝑝𝑢𝑡 ) ) → ( ( 𝑤𝑧 ↔ ∃ 𝑠 ( 𝑠𝑝 ∧ if- ( ∃ 𝑛 𝑛𝑠 , 𝑤 = 𝑥 , 𝑤 = 𝑦 ) ) ) → ( ( 𝑤 = 𝑥𝑤 = 𝑦 ) → 𝑤𝑧 ) ) )
47 46 alimdv ( ∃ 𝑢 ( 𝑢𝑝 ∧ ∀ 𝑡 ¬ 𝑡𝑢 ∧ ∃ 𝑡 ( 𝑡𝑝𝑢𝑡 ) ) → ( ∀ 𝑤 ( 𝑤𝑧 ↔ ∃ 𝑠 ( 𝑠𝑝 ∧ if- ( ∃ 𝑛 𝑛𝑠 , 𝑤 = 𝑥 , 𝑤 = 𝑦 ) ) ) → ∀ 𝑤 ( ( 𝑤 = 𝑥𝑤 = 𝑦 ) → 𝑤𝑧 ) ) )
48 47 eximdv ( ∃ 𝑢 ( 𝑢𝑝 ∧ ∀ 𝑡 ¬ 𝑡𝑢 ∧ ∃ 𝑡 ( 𝑡𝑝𝑢𝑡 ) ) → ( ∃ 𝑧𝑤 ( 𝑤𝑧 ↔ ∃ 𝑠 ( 𝑠𝑝 ∧ if- ( ∃ 𝑛 𝑛𝑠 , 𝑤 = 𝑥 , 𝑤 = 𝑦 ) ) ) → ∃ 𝑧𝑤 ( ( 𝑤 = 𝑥𝑤 = 𝑦 ) → 𝑤𝑧 ) ) )
49 1 48 mpi ( ∃ 𝑢 ( 𝑢𝑝 ∧ ∀ 𝑡 ¬ 𝑡𝑢 ∧ ∃ 𝑡 ( 𝑡𝑝𝑢𝑡 ) ) → ∃ 𝑧𝑤 ( ( 𝑤 = 𝑥𝑤 = 𝑦 ) → 𝑤𝑧 ) )
50 ax-inf2 𝑝 ( ∃ 𝑢 ( 𝑢𝑝 ∧ ∀ 𝑡 ¬ 𝑡𝑢 ) ∧ ∀ 𝑢 ( 𝑢𝑝 → ∃ 𝑡 ( 𝑡𝑝 ∧ ∀ 𝑣 ( 𝑣𝑡 ↔ ( 𝑣𝑢𝑣 = 𝑢 ) ) ) ) )
51 df-rex ( ∃ 𝑢𝑝𝑡 ¬ 𝑡𝑢 ↔ ∃ 𝑢 ( 𝑢𝑝 ∧ ∀ 𝑡 ¬ 𝑡𝑢 ) )
52 df-ral ( ∀ 𝑢𝑝𝑡 ( 𝑡𝑝 ∧ ∀ 𝑣 ( 𝑣𝑡 ↔ ( 𝑣𝑢𝑣 = 𝑢 ) ) ) ↔ ∀ 𝑢 ( 𝑢𝑝 → ∃ 𝑡 ( 𝑡𝑝 ∧ ∀ 𝑣 ( 𝑣𝑡 ↔ ( 𝑣𝑢𝑣 = 𝑢 ) ) ) ) )
53 olc ( 𝑣 = 𝑢 → ( 𝑣𝑢𝑣 = 𝑢 ) )
54 biimpr ( ( 𝑣𝑡 ↔ ( 𝑣𝑢𝑣 = 𝑢 ) ) → ( ( 𝑣𝑢𝑣 = 𝑢 ) → 𝑣𝑡 ) )
55 53 54 syl5 ( ( 𝑣𝑡 ↔ ( 𝑣𝑢𝑣 = 𝑢 ) ) → ( 𝑣 = 𝑢𝑣𝑡 ) )
56 55 alimi ( ∀ 𝑣 ( 𝑣𝑡 ↔ ( 𝑣𝑢𝑣 = 𝑢 ) ) → ∀ 𝑣 ( 𝑣 = 𝑢𝑣𝑡 ) )
57 elequ1 ( 𝑣 = 𝑢 → ( 𝑣𝑡𝑢𝑡 ) )
58 57 equsalvw ( ∀ 𝑣 ( 𝑣 = 𝑢𝑣𝑡 ) ↔ 𝑢𝑡 )
59 56 58 sylib ( ∀ 𝑣 ( 𝑣𝑡 ↔ ( 𝑣𝑢𝑣 = 𝑢 ) ) → 𝑢𝑡 )
60 59 anim2i ( ( 𝑡𝑝 ∧ ∀ 𝑣 ( 𝑣𝑡 ↔ ( 𝑣𝑢𝑣 = 𝑢 ) ) ) → ( 𝑡𝑝𝑢𝑡 ) )
61 60 eximi ( ∃ 𝑡 ( 𝑡𝑝 ∧ ∀ 𝑣 ( 𝑣𝑡 ↔ ( 𝑣𝑢𝑣 = 𝑢 ) ) ) → ∃ 𝑡 ( 𝑡𝑝𝑢𝑡 ) )
62 61 ralimi ( ∀ 𝑢𝑝𝑡 ( 𝑡𝑝 ∧ ∀ 𝑣 ( 𝑣𝑡 ↔ ( 𝑣𝑢𝑣 = 𝑢 ) ) ) → ∀ 𝑢𝑝𝑡 ( 𝑡𝑝𝑢𝑡 ) )
63 52 62 sylbir ( ∀ 𝑢 ( 𝑢𝑝 → ∃ 𝑡 ( 𝑡𝑝 ∧ ∀ 𝑣 ( 𝑣𝑡 ↔ ( 𝑣𝑢𝑣 = 𝑢 ) ) ) ) → ∀ 𝑢𝑝𝑡 ( 𝑡𝑝𝑢𝑡 ) )
64 63 anim2i ( ( ∃ 𝑢𝑝𝑡 ¬ 𝑡𝑢 ∧ ∀ 𝑢 ( 𝑢𝑝 → ∃ 𝑡 ( 𝑡𝑝 ∧ ∀ 𝑣 ( 𝑣𝑡 ↔ ( 𝑣𝑢𝑣 = 𝑢 ) ) ) ) ) → ( ∃ 𝑢𝑝𝑡 ¬ 𝑡𝑢 ∧ ∀ 𝑢𝑝𝑡 ( 𝑡𝑝𝑢𝑡 ) ) )
65 51 64 sylanbr ( ( ∃ 𝑢 ( 𝑢𝑝 ∧ ∀ 𝑡 ¬ 𝑡𝑢 ) ∧ ∀ 𝑢 ( 𝑢𝑝 → ∃ 𝑡 ( 𝑡𝑝 ∧ ∀ 𝑣 ( 𝑣𝑡 ↔ ( 𝑣𝑢𝑣 = 𝑢 ) ) ) ) ) → ( ∃ 𝑢𝑝𝑡 ¬ 𝑡𝑢 ∧ ∀ 𝑢𝑝𝑡 ( 𝑡𝑝𝑢𝑡 ) ) )
66 50 65 eximii 𝑝 ( ∃ 𝑢𝑝𝑡 ¬ 𝑡𝑢 ∧ ∀ 𝑢𝑝𝑡 ( 𝑡𝑝𝑢𝑡 ) )
67 r19.29r ( ( ∃ 𝑢𝑝𝑡 ¬ 𝑡𝑢 ∧ ∀ 𝑢𝑝𝑡 ( 𝑡𝑝𝑢𝑡 ) ) → ∃ 𝑢𝑝 ( ∀ 𝑡 ¬ 𝑡𝑢 ∧ ∃ 𝑡 ( 𝑡𝑝𝑢𝑡 ) ) )
68 66 67 eximii 𝑝𝑢𝑝 ( ∀ 𝑡 ¬ 𝑡𝑢 ∧ ∃ 𝑡 ( 𝑡𝑝𝑢𝑡 ) )
69 df-rex ( ∃ 𝑢𝑝 ( ∀ 𝑡 ¬ 𝑡𝑢 ∧ ∃ 𝑡 ( 𝑡𝑝𝑢𝑡 ) ) ↔ ∃ 𝑢 ( 𝑢𝑝 ∧ ( ∀ 𝑡 ¬ 𝑡𝑢 ∧ ∃ 𝑡 ( 𝑡𝑝𝑢𝑡 ) ) ) )
70 3anass ( ( 𝑢𝑝 ∧ ∀ 𝑡 ¬ 𝑡𝑢 ∧ ∃ 𝑡 ( 𝑡𝑝𝑢𝑡 ) ) ↔ ( 𝑢𝑝 ∧ ( ∀ 𝑡 ¬ 𝑡𝑢 ∧ ∃ 𝑡 ( 𝑡𝑝𝑢𝑡 ) ) ) )
71 70 exbii ( ∃ 𝑢 ( 𝑢𝑝 ∧ ∀ 𝑡 ¬ 𝑡𝑢 ∧ ∃ 𝑡 ( 𝑡𝑝𝑢𝑡 ) ) ↔ ∃ 𝑢 ( 𝑢𝑝 ∧ ( ∀ 𝑡 ¬ 𝑡𝑢 ∧ ∃ 𝑡 ( 𝑡𝑝𝑢𝑡 ) ) ) )
72 69 71 sylbb2 ( ∃ 𝑢𝑝 ( ∀ 𝑡 ¬ 𝑡𝑢 ∧ ∃ 𝑡 ( 𝑡𝑝𝑢𝑡 ) ) → ∃ 𝑢 ( 𝑢𝑝 ∧ ∀ 𝑡 ¬ 𝑡𝑢 ∧ ∃ 𝑡 ( 𝑡𝑝𝑢𝑡 ) ) )
73 68 72 eximii 𝑝𝑢 ( 𝑢𝑝 ∧ ∀ 𝑡 ¬ 𝑡𝑢 ∧ ∃ 𝑡 ( 𝑡𝑝𝑢𝑡 ) )
74 49 73 exlimiiv 𝑧𝑤 ( ( 𝑤 = 𝑥𝑤 = 𝑦 ) → 𝑤𝑧 )