Theorem axrep2 2750

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 1057	. . . . 5 |- (E.wA.z(A.yph -> z = w) -> A.wE.wA.z(A.yph -> z = w))
2		ax-17 1012	. . . . 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 1048	. . . 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 1047	. . 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 1179	. . . . . . . . 9 |- (w = y -> (x e. w <-> x e. y))
6	5	anbi1d 628	. . . . . . . 8 |- (w = y -> ((x e. w /\ A.yph) <-> (x e. y /\ A.yph)))
7	6	exbidv 1321	. . . . . . 7 |- (w = y -> (E.x(x e. w /\ A.yph) <-> E.x(x e. y /\ A.yph)))
8	7	bibi2d 629	. . . . . 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 1320	. . . . 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 623	. . . 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 1321	. . 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 2749	. . 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 1209	. 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 1014	. . . . . . . 8 |- (A.yph -> ph)
15	14	imim1i 16	. . . . . . 7 |- ((ph -> z = y) -> (A.yph -> z = y))
16	15	19.20i 1033	. . . . . 6 |- (A.z(ph -> z = y) -> A.z(A.yph -> z = y))
17	16	19.22i 1081	. . . . 5 |- (E.yA.z(ph -> z = y) -> E.yA.z(A.yph -> z = y))
18		ax-17 1012	. . . . . 6 |- (A.z(A.yph -> z = y) -> A.wA.z(A.yph -> z = y))
19		hba1 1044	. . . . . . . 8 |- (A.yph -> A.yA.yph)
20		ax-17 1012	. . . . . . . 8 |- (z = w -> A.y z = w)
21	19, 20	hbim 1048	. . . . . . 7 |- ((A.yph -> z = w) -> A.y(A.yph -> z = w))
22	21	hbal 1046	. . . . . 6 |- (A.z(A.yph -> z = w) -> A.yA.z(A.yph -> z = w))
23		equequ2 1177	. . . . . . . 8 |- (y = w -> (z = y <-> z = w))
24	23	imbi2d 623	. . . . . . 7 |- (y = w -> ((A.yph -> z = y) <-> (A.yph -> z = w)))
25	24	albidv 1320	. . . . . 6 |- (y = w -> (A.z(A.yph -> z = y) <-> A.z(A.yph -> z = w)))
26	18, 22, 25	cbvex 1208	. . . . 5 |- (E.yA.z(A.yph -> z = y) <-> E.wA.z(A.yph -> z = w))
27	17, 26	sylib 205	. . . 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 1081	. 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 153   /\ wa 230  A.wal 995   = wceq 997   e. wcel 999  E.wex 1021

This theorem is referenced by:  axrep3 2751  axrepndlem1 5009

This theorem was proved from axioms:  ax-1 4  ax-2 5  ax-3 6  ax-mp 7  ax-7 1003  ax-gen 1004  ax-8 1005  ax-12 1009  ax-14 1011  ax-17 1012  ax-4 1014  ax-5o 1016  ax-6o 1019  ax-9o 1164  ax-rep 2748

This theorem depends on definitions:  df-bi 154  df-an 232  df-ex 1022

Copyright terms: Public domain