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

Theorem axac 4717
Description: Axiom of Choice expressed with fewest number of different variables. The penultimate step shows the logical equivalence to ax-ac 4716.
Assertion
Ref Expression
axac |- E.xA.yA.z((y e. z /\ z e. w) -> E.wA.y(E.w((y e. z /\ z e. w) /\ (y e. w /\ w e. x)) <-> y = w))
Distinct variable group:   x,y,z,w

Proof of Theorem axac
StepHypRef Expression
1 ax-ac 4716 . 2 |- E.xA.yA.z((y e. z /\ z e. w) -> E.vA.u(E.t((u e. z /\ z e. t) /\ (u e. t /\ t e. x)) <-> u = v))
2 equequ2 1131 . . . . . . . . . 10 |- (v = w -> (u = v <-> u = w))
32bibi2d 616 . . . . . . . . 9 |- (v = w -> ((E.t((u e. z /\ z e. t) /\ (u e. t /\ t e. x)) <-> u = v) <-> (E.t((u e. z /\ z e. t) /\ (u e. t /\ t e. x)) <-> u = w)))
4 elequ2 1133 . . . . . . . . . . . . 13 |- (t = w -> (z e. t <-> z e. w))
54anbi2d 614 . . . . . . . . . . . 12 |- (t = w -> ((u e. z /\ z e. t) <-> (u e. z /\ z e. w)))
6 elequ2 1133 . . . . . . . . . . . . 13 |- (t = w -> (u e. t <-> u e. w))
7 elequ1 1132 . . . . . . . . . . . . 13 |- (t = w -> (t e. x <-> w e. x))
86, 7anbi12d 626 . . . . . . . . . . . 12 |- (t = w -> ((u e. t /\ t e. x) <-> (u e. w /\ w e. x)))
95, 8anbi12d 626 . . . . . . . . . . 11 |- (t = w -> (((u e. z /\ z e. t) /\ (u e. t /\ t e. x)) <-> ((u e. z /\ z e. w) /\ (u e. w /\ w e. x))))
109cbvexv 1310 . . . . . . . . . 10 |- (E.t((u e. z /\ z e. t) /\ (u e. t /\ t e. x)) <-> E.w((u e. z /\ z e. w) /\ (u e. w /\ w e. x)))
1110bibi1i 607 . . . . . . . . 9 |- ((E.t((u e. z /\ z e. t) /\ (u e. t /\ t e. x)) <-> u = w) <-> (E.w((u e. z /\ z e. w) /\ (u e. w /\ w e. x)) <-> u = w))
123, 11syl6bb 534 . . . . . . . 8 |- (v = w -> ((E.t((u e. z /\ z e. t) /\ (u e. t /\ t e. x)) <-> u = v) <-> (E.w((u e. z /\ z e. w) /\ (u e. w /\ w e. x)) <-> u = w)))
1312albidv 1273 . . . . . . 7 |- (v = w -> (A.u(E.t((u e. z /\ z e. t) /\ (u e. t /\ t e. x)) <-> u = v) <-> A.u(E.w((u e. z /\ z e. w) /\ (u e. w /\ w e. x)) <-> u = w)))
14 elequ1 1132 . . . . . . . . . . . 12 |- (u = y -> (u e. z <-> y e. z))
1514anbi1d 615 . . . . . . . . . . 11 |- (u = y -> ((u e. z /\ z e. w) <-> (y e. z /\ z e. w)))
16 elequ1 1132 . . . . . . . . . . . 12 |- (u = y -> (u e. w <-> y e. w))
1716anbi1d 615 . . . . . . . . . . 11 |- (u = y -> ((u e. w /\ w e. x) <-> (y e. w /\ w e. x)))
1815, 17anbi12d 626 . . . . . . . . . 10 |- (u = y -> (((u e. z /\ z e. w) /\ (u e. w /\ w e. x)) <-> ((y e. z /\ z e. w) /\ (y e. w /\ w e. x))))
1918exbidv 1274 . . . . . . . . 9 |- (u = y -> (E.w((u e. z /\ z e. w) /\ (u e. w /\ w e. x)) <-> E.w((y e. z /\ z e. w) /\ (y e. w /\ w e. x))))
20 equequ1 1130 . . . . . . . . 9 |- (u = y -> (u = w <-> y = w))
2119, 20bibi12d 627 . . . . . . . 8 |- (u = y -> ((E.w((u e. z /\ z e. w) /\ (u e. w /\ w e. x)) <-> u = w) <-> (E.w((y e. z /\ z e. w) /\ (y e. w /\ w e. x)) <-> y = w)))
2221cbvalv 1309 . . . . . . 7 |- (A.u(E.w((u e. z /\ z e. w) /\ (u e. w /\ w e. x)) <-> u = w) <-> A.y(E.w((y e. z /\ z e. w) /\ (y e. w /\ w e. x)) <-> y = w))
2313, 22syl6bb 534 . . . . . 6 |- (v = w -> (A.u(E.t((u e. z /\ z e. t) /\ (u e. t /\ t e. x)) <-> u = v) <-> A.y(E.w((y e. z /\ z e. w) /\ (y e. w /\ w e. x)) <-> y = w)))
2423cbvexv 1310 . . . . 5 |- (E.vA.u(E.t((u e. z /\ z e. t) /\ (u e. t /\ t e. x)) <-> u = v) <-> E.wA.y(E.w((y e. z /\ z e. w) /\ (y e. w /\ w e. x)) <-> y = w))
2524imbi2i 185 . . . 4 |- (((y e. z /\ z e. w) -> E.vA.u(E.t((u e. z /\ z e. t) /\ (u e. t /\ t e. x)) <-> u = v)) <-> ((y e. z /\ z e. w) -> E.wA.y(E.w((y e. z /\ z e. w) /\ (y e. w /\ w e. x)) <-> y = w)))
26252albii 997 . . 3 |- (A.yA.z((y e. z /\ z e. w) -> E.vA.u(E.t((u e. z /\ z e. t) /\ (u e. t /\ t e. x)) <-> u = v)) <-> A.yA.z((y e. z /\ z e. w) -> E.wA.y(E.w((y e. z /\ z e. w) /\ (y e. w /\ w e. x)) <-> y = w)))
2726exbii 1047 . 2 |- (E.xA.yA.z((y e. z /\ z e. w) -> E.vA.u(E.t((u e. z /\ z e. t) /\ (u e. t /\ t e. x)) <-> u = v)) <-> E.xA.yA.z((y e. z /\ z e. w) -> E.wA.y(E.w((y e. z /\ z e. w) /\ (y e. w /\ w e. x)) <-> y = w)))
281, 27mpbi 189 1 |- E.xA.yA.z((y e. z /\ z e. w) -> E.wA.y(E.w((y e. z /\ z e. w) /\ (y e. w /\ w e. x)) <-> y = w))
Colors of variables: wff set class
Syntax hints:   -> wi 3   <-> wb 146   /\ wa 223  A.wal 951   = wceq 953   e. wcel 955  E.wex 977
This theorem is referenced by:  axacndlem4 4934
This theorem was proved from axioms:  ax-1 4  ax-2 5  ax-3 6  ax-mp 7  ax-7 959  ax-gen 960  ax-8 961  ax-12 965  ax-13 966  ax-14 967  ax-17 968  ax-4 970  ax-5o 972  ax-6o 975  ax-9o 1119  ax-ac 4716
This theorem depends on definitions:  df-bi 147  df-an 225  df-ex 978
Copyright terms: Public domain