Theorem axacndlem5 3757

Description: Lemma for the Axiom of Choice with no distinct variable conditions.

Assertion

Ref	Expression
axacndlem5	|- E.xA.yA.z(A.x(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(s):   z,w

Proof of Theorem axacndlem5

Step	Hyp	Ref	Expression
1		axacndlem4 3756	. . . 4 |- E.xA.vA.z(A.x(v e. z /\ z e. w) -> E.wA.v(E.w((v e. z /\ z e. w) /\ (v e. w /\ w e. x)) <-> v = w))
2		eq6 826	. . . . . 6 |- (-. A.y y = z -> A.x -. A.y y = z)
3		eq6 826	. . . . . . 7 |- (-. A.y y = x -> A.x -. A.y y = x)
4		eq6 826	. . . . . . 7 |- (-. A.y y = w -> A.x -. A.y y = w)
5	3, 4	hban 704	. . . . . 6 |- ((-. A.y y = x /\ -. A.y y = w) -> A.x(-. A.y y = x /\ -. A.y y = w))
6	2, 5	hban 704	. . . . 5 |- ((-. A.y y = z /\ (-. A.y y = x /\ -. A.y y = w)) -> A.x(-. A.y y = z /\ (-. A.y y = x /\ -. A.y y = w)))
7		eq6 826	. . . . . . 7 |- (-. A.y y = z -> A.y -. A.y y = z)
8		eq6 826	. . . . . . . 8 |- (-. A.y y = x -> A.y -. A.y y = x)
9		eq6 826	. . . . . . . 8 |- (-. A.y y = w -> A.y -. A.y y = w)
10	8, 9	hban 704	. . . . . . 7 |- ((-. A.y y = x /\ -. A.y y = w) -> A.y(-. A.y y = x /\ -. A.y y = w))
11	7, 10	hban 704	. . . . . 6 |- ((-. A.y y = z /\ (-. A.y y = x /\ -. A.y y = w)) -> A.y(-. A.y y = z /\ (-. A.y y = x /\ -. A.y y = w)))
12		eq6 826	. . . . . . . 8 |- (-. A.y y = z -> A.z -. A.y y = z)
13		eq6 826	. . . . . . . . 9 |- (-. A.y y = x -> A.z -. A.y y = x)
14		eq6 826	. . . . . . . . 9 |- (-. A.y y = w -> A.z -. A.y y = w)
15	13, 14	hban 704	. . . . . . . 8 |- ((-. A.y y = x /\ -. A.y y = w) -> A.z(-. A.y y = x /\ -. A.y y = w))
16	12, 15	hban 704	. . . . . . 7 |- ((-. A.y y = z /\ (-. A.y y = x /\ -. A.y y = w)) -> A.z(-. A.y y = z /\ (-. A.y y = x /\ -. A.y y = w)))
17		ddeel2 1004	. . . . . . . . . . 11 |- (-. A.y y = z -> (v e. z -> A.y v e. z))
18	17	adantr 306	. . . . . . . . . 10 |- ((-. A.y y = z /\ (-. A.y y = x /\ -. A.y y = w)) -> (v e. z -> A.y v e. z))
19		ax15 1006	. . . . . . . . . . . 12 |- (-. A.y y = z -> (-. A.y y = w -> (z e. w -> A.y z e. w)))
20	19	imp 277	. . . . . . . . . . 11 |- ((-. A.y y = z /\ -. A.y y = w) -> (z e. w -> A.y z e. w))
21	20	adantrl 311	. . . . . . . . . 10 |- ((-. A.y y = z /\ (-. A.y y = x /\ -. A.y y = w)) -> (z e. w -> A.y z e. w))
22	18, 21	hband 788	. . . . . . . . 9 |- ((-. A.y y = z /\ (-. A.y y = x /\ -. A.y y = w)) -> ((v e. z /\ z e. w) -> A.y(v e. z /\ z e. w)))
23	6, 22	hbald 790	. . . . . . . 8 |- ((-. A.y y = z /\ (-. A.y y = x /\ -. A.y y = w)) -> (A.x(v e. z /\ z e. w) -> A.yA.x(v e. z /\ z e. w)))
24		eq6 826	. . . . . . . . . 10 |- (-. A.y y = z -> A.w -. A.y y = z)
25		eq6 826	. . . . . . . . . . 11 |- (-. A.y y = x -> A.w -. A.y y = x)
26		eq6 826	. . . . . . . . . . 11 |- (-. A.y y = w -> A.w -. A.y y = w)
27	25, 26	hban 704	. . . . . . . . . 10 |- ((-. A.y y = x /\ -. A.y y = w) -> A.w(-. A.y y = x /\ -. A.y y = w))
28	24, 27	hban 704	. . . . . . . . 9 |- ((-. A.y y = z /\ (-. A.y y = x /\ -. A.y y = w)) -> A.w(-. A.y y = z /\ (-. A.y y = x /\ -. A.y y = w)))
29		ax-17 925	. . . . . . . . . 10 |- ((-. A.y y = z /\ (-. A.y y = x /\ -. A.y y = w)) -> A.v(-. A.y y = z /\ (-. A.y y = x /\ -. A.y y = w)))
30		ddeel2 1004	. . . . . . . . . . . . . . 15 |- (-. A.y y = w -> (v e. w -> A.y v e. w))
31	30	ad2antrr 323	. . . . . . . . . . . . . 14 |- ((-. A.y y = z /\ (-. A.y y = x /\ -. A.y y = w)) -> (v e. w -> A.y v e. w))
32		ax15 1006	. . . . . . . . . . . . . . . . 17 |- (-. A.y y = w -> (-. A.y y = x -> (w e. x -> A.y w e. x)))
33	32	com12 13	. . . . . . . . . . . . . . . 16 |- (-. A.y y = x -> (-. A.y y = w -> (w e. x -> A.y w e. x)))
34	33	imp 277	. . . . . . . . . . . . . . 15 |- ((-. A.y y = x /\ -. A.y y = w) -> (w e. x -> A.y w e. x))
35	34	adantl 305	. . . . . . . . . . . . . 14 |- ((-. A.y y = z /\ (-. A.y y = x /\ -. A.y y = w)) -> (w e. x -> A.y w e. x))
36	31, 35	hband 788	. . . . . . . . . . . . 13 |- ((-. A.y y = z /\ (-. A.y y = x /\ -. A.y y = w)) -> ((v e. w /\ w e. x) -> A.y(v e. w /\ w e. x)))
37	22, 36	hband 788	. . . . . . . . . . . 12 |- ((-. A.y y = z /\ (-. A.y y = x /\ -. A.y y = w)) -> (((v e. z /\ z e. w) /\ (v e. w /\ w e. x)) -> A.y((v e. z /\ z e. w) /\ (v e. w /\ w e. x))))
38	28, 37	hbexd 791	. . . . . . . . . . 11 |- ((-. A.y y = z /\ (-. A.y y = x /\ -. A.y y = w)) -> (E.w((v e. z /\ z e. w) /\ (v e. w /\ w e. x)) -> A.yE.w((v e. z /\ z e. w) /\ (v e. w /\ w e. x))))
39		ddeeq2 1002	. . . . . . . . . . . 12 |- (-. A.y y = w -> (v = w -> A.y v = w))
40	39	ad2antrr 323	. . . . . . . . . . 11 |- ((-. A.y y = z /\ (-. A.y y = x /\ -. A.y y = w)) -> (v = w -> A.y v = w))
41	11, 38, 40	hbbid 789	. . . . . . . . . 10 |- ((-. A.y y = z /\ (-. A.y y = x /\ -. A.y y = w)) -> ((E.w((v e. z /\ z e. w) /\ (v e. w /\ w e. x)) <-> v = w) -> A.y(E.w((v e. z /\ z e. w) /\ (v e. w /\ w e. x)) <-> v = w)))
42	29, 41	hbald 790	. . . . . . . . 9 |- ((-. A.y y = z /\ (-. A.y y = x /\ -. A.y y = w)) -> (A.v(E.w((v e. z /\ z e. w) /\ (v e. w /\ w e. x)) <-> v = w) -> A.yA.v(E.w((v e. z /\ z e. w) /\ (v e. w /\ w e. x)) <-> v = w)))
43	28, 42	hbexd 791	. . . . . . . 8 |- ((-. A.y y = z /\ (-. A.y y = x /\ -. A.y y = w)) -> (E.wA.v(E.w((v e. z /\ z e. w) /\ (v e. w /\ w e. x)) <-> v = w) -> A.yE.wA.v(E.w((v e. z /\ z e. w) /\ (v e. w /\ w e. x)) <-> v = w)))
44	11, 23, 43	hbimd 787	. . . . . . 7 |- ((-. A.y y = z /\ (-. A.y y = x /\ -. A.y y = w)) -> ((A.x(v e. z /\ z e. w) -> E.wA.v(E.w((v e. z /\ z e. w) /\ (v e. w /\ w e. x)) <-> v = w)) -> A.y(A.x(v e. z /\ z e. w) -> E.wA.v(E.w((v e. z /\ z e. w) /\ (v e. w /\ w e. x)) <-> v = w))))
45	16, 44	hbald 790	. . . . . 6 |- ((-. A.y y = z /\ (-. A.y y = x /\ -. A.y y = w)) -> (A.z(A.x(v e. z /\ z e. w) -> E.wA.v(E.w((v e. z /\ z e. w) /\ (v e. w /\ w e. x)) <-> v = w)) -> A.yA.z(A.x(v e. z /\ z e. w) -> E.wA.v(E.w((v e. z /\ z e. w) /\ (v e. w /\ w e. x)) <-> v = w))))
46		nd5 3736	. . . . . . . . . 10 |- (-. A.y y = z -> (v = y -> A.z v = y))
47	46	adantr 306	. . . . . . . . 9 |- ((-. A.y y = z /\ (-. A.y y = x /\ -. A.y y = w)) -> (v = y -> A.z v = y))
48	47	imdistani 340	. . . . . . . 8 |- (((-. A.y y = z /\ (-. A.y y = x /\ -. A.y y = w)) /\ v = y) -> ((-. A.y y = z /\ (-. A.y y = x /\ -. A.