Theorem axrep2 2685

Description: Axiom of Replacement expressed with the fewest number of different variables and without any restrictions on ph.

Assertion

Ref	Expression
axrep2	|- E.x(E.yA.z(ph -> z = y) -> A.z(z e. x <-> E.x(x e. y /\ A.yph)))

Distinct variable group:   x,y,z

Proof of Theorem axrep2

Step	Hyp	Ref	Expression
1		hbe1 1012	. . . . 5 |- (E.wA.z(A.yph -> z = w) -> A.wE.wA.z(A.yph -> z = w))
2		ax-17 968	. . . . 5 |- (A.z(z e. x <-> E.x(x e. y /\ A.yph)) -> A.wA.z(z e. x <-> E.x(x e. y /\ A.yph)))
3	1, 2	hbim 1004	. . . 4 |- ((E.wA.z(A.yph -> z = w) -> A.z(z e. x <-> E.x(x e. y /\ A.yph))) -> A.w(E.wA.z(A.yph -> z = w) -> A.z(z e. x <-> E.x(x e. y /\ A.yph))))
4	3	hbex 1003	. . 3 |- (E.x(E.wA.z(A.yph -> z = w) -> A.z(z e. x <-> E.x(x e. y /\ A.yph))) -> A.wE.x(E.wA.z(A.yph -> z = w) -> A.z(z e. x <-> E.x(x e. y /\ A.yph))))
5		elequ2 1133	. . . . . . . . 9 |- (w = y -> (x e. w <-> x e. y))
6	5	anbi1d 615	. . . . . . . 8 |- (w = y -> ((x e. w /\ A.yph) <-> (x e. y /\ A.yph)))
7	6	exbidv 1274	. . . . . . 7 |- (w = y -> (E.x(x e. w /\ A.yph) <-> E.x(x e. y /\ A.yph)))
8	7	bibi2d 616	. . . . . 6 |- (w = y -> ((z e. x <-> E.x(x e. w /\ A.yph)) <-> (z e. x <-> E.x(x e. y /\ A.yph))))
9	8	albidv 1273	. . . . 5 |- (w = y -> (A.z(z e. x <-> E.x(x e. w /\ A.yph)) <-> A.z(z e. x <-> E.x(x e. y /\ A.yph))))
10	9	imbi2d 610	. . . 4 |- (w = y -> ((E.wA.z(A.yph -> z = w) -> A.z(z e. x <-> E.x(x e. w /\ A.yph))) <-> (E.wA.z(A.yph -> z = w) -> A.z(z e. x <-> E.x(x e. y /\ A.yph)))))
11	10	exbidv 1274	. . 3 |- (w = y -> (E.x(E.wA.z(A.yph -> z = w) -> A.z(z e. x <-> E.x(x e. w /\ A.yph))) <-> E.x(E.wA.z(A.yph -> z = w) -> A.z(z e. x <-> E.x(x e. y /\ A.yph)))))
12		axrep1 2684	. . 3 |- E.x(E.wA.z(A.yph -> z = w) -> A.z(z e. x <-> E.x(x e. w /\ A.yph)))
13	4, 11, 12	chvar 1163	. 2 |- E.x(E.wA.z(A.yph -> z = w) -> A.z(z e. x <-> E.x(x e. y /\ A.yph)))
14		ax-4 970	. . . . . . . 8 |- (A.yph -> ph)
15	14	imim1i 16	. . . . . . 7 |- ((ph -> z = y) -> (A.yph -> z = y))
16	15	19.20i 989	. . . . . 6 |- (A.z(ph -> z = y) -> A.z(A.yph -> z = y))
17	16	19.22i 1036	. . . . 5 |- (E.yA.z(ph -> z = y) -> E.yA.z(A.yph -> z = y))
18		ax-17 968	. . . . . 6 |- (A.z(A.yph -> z = y) -> A.wA.z(A.yph -> z = y))
19		hba1 1000	. . . . . . . 8 |- (A.yph -> A.yA.yph)
20		ax-17 968	. . . . . . . 8 |- (z = w -> A.y z = w)
21	19, 20	hbim 1004	. . . . . . 7 |- ((A.yph -> z = w) -> A.y(A.yph -> z = w))
22	21	hbal 1002	. . . . . 6 |- (A.z(A.yph -> z = w) -> A.yA.z(A.yph -> z = w))
23		equequ2 1131	. . . . . . . 8 |- (y = w -> (z = y <-> z = w))
24	23	imbi2d 610	. . . . . . 7 |- (y = w -> ((A.yph -> z = y) <-> (A.yph -> z = w)))
25	24	albidv 1273	. . . . . 6 |- (y = w -> (A.z(A.yph -> z = y) <-> A.z(A.yph -> z = w)))
26	18, 22, 25	cbvex 1162	. . . . 5 |- (E.yA.z(A.yph -> z = y) <-> E.wA.z(A.yph -> z = w))
27	17, 26	sylib 198	. . . 4 |- (E.yA.z(ph -> z = y) -> E.wA.z(A.yph -> z = w))
28	27	imim1i 16	. . 3 |- ((E.wA.z(A.yph -> z = w) -> A.z(z e. x <-> E.x(x e. y /\ A.yph))) -> (E.yA.z(ph -> z = y) -> A.z(z e. x <-> E.x(x e. y /\ A.yph))))
29	28	19.22i 1036	. 2 |- (E.x(E.wA.z(A.yph -> z = w) -> A.z(z e. x <-> E.x(x e. y /\ A.yph))) -> E.x(E.yA.z(ph -> z = y) -> A.z(z e. x <-> E.x(x e. y /\ A.yph))))
30	13, 29	ax-mp 7	1 |- E.x(E.yA.z(ph -> z = y) -> A.z(z e. x <-> E.x(x e. y /\ A.yph)))

Syntax hints:   -> wi 3   <-> wb 146   /\ wa 223  A.wal 951   = wceq 953   e. wcel 955  E.wex 977

This theorem is referenced by:  axrep3 2686  axrepndlem1 4916

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-14 967  ax-17 968  ax-4 970  ax-5o 972  ax-6o 975  ax-9o 1119  ax-rep 2683

This theorem depends on definitions:  df-bi 147  df-an 225  df-ex 978

Copyright terms: Public domain