HomeHome Metamath Proof Explorer < Previous   Next >
Related theorems
GIF version

Theorem aceq1 3552
Description: Equivalence of two versions of the Axiom of Choice ax-ac 1080. The proof uses neither AC nor the Axiom of Regularity. The right-hand side expresses our AC with the fewest number of different variables.
Assertion
Ref Expression
aceq1 (∃yzxwz ∃!vzuy (zuvu) ↔ ∃yzw((zwwx) → ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x)))
Distinct variable group(s):   x,y,z,w,v,u

Proof of Theorem aceq1
StepHypRef Expression
1 pm4.2i 149 . . . . . . 7 (w = t → (∃!vhuy (huvu) ↔ ∃!vhuy (huvu)))
21cbvralv 1333 . . . . . 6 (∀wh ∃!vhuy (huvu) ↔ ∀th ∃!vhuy (huvu))
3 eleq1 1149 . . . . . . . . . . 11 (v = z → (vuzu))
43anbi2d 468 . . . . . . . . . 10 (v = z → ((huvu) ↔ (huzu)))
54birexdv 1220 . . . . . . . . 9 (v = z → (∃uy (huvu) ↔ ∃uy (huzu)))
65cbvreuv 1335 . . . . . . . 8 (∃!vhuy (huvu) ↔ ∃!zhuy (huzu))
7 pm4.2 148 . . . . . . . 8 (∃!zhuy (huzu) ↔ ∃!zhuy (huzu))
86, 7bitr 151 . . . . . . 7 (∃!vhuy (huvu) ↔ ∃!zhuy (huzu))
98biral 1223 . . . . . 6 (∀th ∃!vhuy (huvu) ↔ ∀th ∃!zhuy (huzu))
102, 9bitr 151 . . . . 5 (∀wh ∃!vhuy (huvu) ↔ ∀th ∃!zhuy (huzu))
1110biral 1223 . . . 4 (∀hxwh ∃!vhuy (huvu) ↔ ∀hxth ∃!zhuy (huzu))
12 eleq1 1149 . . . . . . . . 9 (z = h → (zuhu))
1312anbi1d 469 . . . . . . . 8 (z = h → ((zuvu) ↔ (huvu)))
1413birexdv 1220 . . . . . . 7 (z = h → (∃uy (zuvu) ↔ ∃uy (huvu)))
1514reueqd 1329 . . . . . 6 (z = h → (∃!vzuy (zuvu) ↔ ∃!vhuy (huvu)))
1615raleqd 1327 . . . . 5 (z = h → (∀wz ∃!vzuy (zuvu) ↔ ∀wh ∃!vhuy (huvu)))
1716cbvralv 1333 . . . 4 (∀zxwz ∃!vzuy (zuvu) ↔ ∀hxwh ∃!vhuy (huvu))
18 eleq1 1149 . . . . . . . . 9 (w = h → (wuhu))
1918anbi1d 469 . . . . . . . 8 (w = h → ((wuzu) ↔ (huzu)))
2019birexdv 1220 . . . . . . 7 (w = h → (∃uy (wuzu) ↔ ∃uy (huzu)))
2120reueqd 1329 . . . . . 6 (w = h → (∃!zwuy (wuzu) ↔ ∃!zhuy (huzu)))
2221raleqd 1327 . . . . 5 (w = h → (∀tw ∃!zwuy (wuzu) ↔ ∀th ∃!zhuy (huzu)))
2322cbvralv 1333 . . . 4 (∀wxtw ∃!zwuy (wuzu) ↔ ∀hxth ∃!zhuy (huzu))
2411, 17, 233bitr4 158 . . 3 (∀zxwz ∃!vzuy (zuvu) ↔ ∀wxtw ∃!zwuy (wuzu))
2524biex 733 . 2 (∃yzxwz ∃!vzuy (zuvu) ↔ ∃ywxtw ∃!zwuy (wuzu))
26 19.21v 942 . . . . . 6 (∀z(wx → (zw → ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x))) ↔ (wx → ∀z(zw → ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x))))
27 impexp 276 . . . . . . . 8 (((zwwx) → ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x)) ↔ (zw → (wx → ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x))))
28 bi2.04 141 . . . . . . . 8 ((zw → (wx → ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x))) ↔ (wx → (zw → ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x))))
2927, 28bitr 151 . . . . . . 7 (((zwwx) → ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x)) ↔ (wx → (zw → ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x))))
3029bial 695 . . . . . 6 (∀z((zwwx) → ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x)) ↔ ∀z(wx → (zw → ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x))))
31 df-eu 1009 . . . . . . . . . . 11 (∃!z(zw ∧ ∃uy (wuzu)) ↔ ∃xz((zw ∧ ∃uy (wuzu)) ↔ z = x))
32 df-reu 1207 . . . . . . . . . . 11 (∃!zwuy (wuzu) ↔ ∃!z(zw ∧ ∃uy (wuzu)))
33 19.42v 966 . . . . . . . . . . . . . . 15 (∃x(zw ∧ (xy ∧ (wxzx))) ↔ (zw ∧ ∃x(xy ∧ (wxzx))))
34 an42 389 . . . . . . . . . . . . . . . . 17 (((zwxy) ∧ (wxzx)) ↔ ((zwwx) ∧ (zxxy)))
35 anass 336 . . . . . . . . . . . . . . . . 17 (((zwxy) ∧ (wxzx)) ↔ (zw ∧ (xy ∧ (wxzx))))
3634, 35bitr3 153 . . . . . . . . . . . . . . . 16 (((zwwx) ∧ (zxxy)) ↔ (zw ∧ (xy ∧ (wxzx))))
3736biex 733 . . . . . . . . . . . . . . 15 (∃x((zwwx) ∧ (zxxy)) ↔ ∃x(zw ∧ (xy ∧ (wxzx))))
38 df-rex 1206 . . . . . . . . . . . . . . . . 17 (∃uy (wuzu) ↔ ∃u(uy ∧ (wuzu)))
39 eleq1 1149 . . . . . . . . . . . . . . . . . . 19 (u = x → (uyxy))
40 eleq2 1150 . . . . . . . . . . . . . . . . . . . 20 (u = x → (wuwx))
41 eleq2 1150 . . . . . . . . . . . . . . . . . . . 20 (u = x → (zuzx))
4240, 41anbi12d 476 . . . . . . . . . . . . . . . . . . 19 (u = x → ((wuzu) ↔ (wxzx)))
4339, 42anbi12d 476 . . . . . . . . . . . . . . . . . 18 (u = x → ((uy ∧ (wuzu)) ↔ (xy ∧ (wxzx))))
4443cbvexv 973 . . . . . . . . . . . . . . . . 17 (∃u(uy ∧ (wuzu)) ↔ ∃x(xy ∧ (wxzx)))
4538, 44bitr 151 . . . . . . . . . . . . . . . 16 (∃uy (wuzu) ↔ ∃x(xy ∧ (wxzx)))
4645anbi2i 367 . . . . . . . . . . . . . . 15 ((zw ∧ ∃uy (wuzu)) ↔ (zw ∧ ∃x(xy ∧ (wxzx))))
4733, 37, 463bitr4 158 . . . . . . . . . . . . . 14 (∃x((zwwx) ∧ (zxxy)) ↔ (zw ∧ ∃uy (wuzu)))
4847bibi1i 461 . . . . . . . . . . . . 13 ((∃x((zwwx) ∧ (zxxy)) ↔ z = x) ↔ ((zw ∧ ∃uy (wuzu)) ↔ z = x))
4948bial 695 . . . . . . . . . . . 12 (∀z(∃x((zwwx) ∧ (zxxy)) ↔ z = x) ↔ ∀z((zw ∧ ∃uy (wuzu)) ↔ z = x))
5049biex 733 . . . . . . . . . . 11 (∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x) ↔ ∃xz((zw ∧ ∃uy (wuzu)) ↔ z = x))
5131, 32, 503bitr4 158 . . . . . . . . . 10 (∃!zwuy (wuzu) ↔ ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x))
5251imbi2i 160 . . . . . . . . 9 ((tw → ∃!zwuy (wuzu)) ↔ (tw → ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x)))
5352bial 695 . . . . . . . 8 (∀t(tw → ∃!zwuy (wuzu)) ↔ ∀t(tw → ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x)))
54 df-ral 1205 . . . . . . . 8 (∀tw ∃!zwuy (wuzu) ↔ ∀t(tw → ∃!zwuy (wuzu)))
55 ax-17 925 . . . . . . . . 9 ((zw → ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x)) → ∀t(zw → ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x)))
56 ax-17 925 . . . . . . . . . 10 (tw → ∀z tw)
57 hba1 698 . . . . . . . . . . 11 (∀z(∃x((zwwx) ∧ (zxxy)) ↔ z = x) → ∀zz(∃x((zwwx) ∧ (zxxy)) ↔ z = x))
5857hbex 701 . . . . . . . . . 10 (∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x) → ∀zxz(∃x((zwwx) ∧ (zxxy)) ↔ z = x))
5956, 58hbim 702 . . . . . . . . 9 ((tw → ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x)) → ∀z(tw → ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x)))
60 eleq1 1149 . . . . . . . . . 10 (z = t → (zwtw))
6160imbi1d 465 . . . . . . . . 9 (z = t → ((zw → ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x)) ↔ (tw → ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x))))
6255, 59, 61cbval 848 . . . . . . . 8 (∀z(zw → ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x)) ↔ ∀t(tw → ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x)))
6353, 54, 623bitr4 158 . . . . . . 7 (∀tw ∃!zwuy (wuzu) ↔ ∀z(zw → ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x)))
6463imbi2i 160 . . . . . 6 ((wx → ∀tw ∃!zwuy (wuzu)) ↔ (wx → ∀z(zw → ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x))))
6526, 30, 643bitr4 158 . . . . 5 (∀z((zwwx) → ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x)) ↔ (wx → ∀tw ∃!zwuy (wuzu)))
6665bial 695 . . . 4 (∀wz((zwwx) → ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x)) ↔ ∀w(wx → ∀tw ∃!zwuy (wuzu)))
67 alcom 715 . . . 4 (∀zw((zwwx) → ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x)) ↔ ∀wz((zwwx) → ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x)))
68 df-ral 1205 . . . 4 (∀wxtw ∃!zwuy (wuzu) ↔ ∀w(wx → ∀tw ∃!zwuy (wuzu)))
6966, 67, 683bitr4r 159 . . 3 (∀wxtw ∃!zwuy (wuzu) ↔ ∀zw((zwwx) → ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x)))
7069biex 733 . 2 (∃ywxtw ∃!zwuy (wuzu) ↔ ∃yzw((zwwx) → ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x)))
7125, 70bitr 151 1 (∃yzxwz ∃!vzuy (zuvu) ↔ ∃yzw((zwwx) → ∃xz(∃x((zwwx) ∧ (zxxy)) ↔ z = x)))
Colors of variables: wff set class
Syntax hints:   → wi 2   ↔ wb 127   ∧ wa 196  ∀wal 672  ∃wex 678   = weq 797   ∈ wel 803  ∃!weu 1007  ∀wral 1201  ∃wrex 1202  ∃!wreu 1203
This theorem is referenced by:  aceq0 3553
This theorem was proved from axioms:  ax-1 3  ax-2 4  ax-3 5  ax-mp 6  ax-4 673  ax-5 674  ax-6 675  ax-7 676  ax-gen 677  ax-8 798  ax-9 799  ax-10 800  ax-11 801  ax-12 802  ax-17 925  ax-ext 1074
This theorem depends on definitions:  df-bi 128  df-or 197  df-an 198  df-ex 679  df-sb 853  df-eu 1009  df-cleq 1097  df-clel 1099  df-ral 1205  df-rex 1206  df-reu 1207
metamath.org