Theorem zfcndrep 6561

Description: Axiom of Replacement ax-rep 3628, reproved from conditionless ZFC axioms.

Assertion

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

Distinct variable group:   x,y,z,w

Proof of Theorem zfcndrep

Step	Hyp	Ref	Expression
1		hbe1 1681	. . . . . 6 |- (E.yA.z(A.yph -> z = y) -> A.yE.yA.z(A.yph -> z = y))
2		ax-17 1634	. . . . . . . 8 |- (z e. w -> A.y z e. w)
3		ax-17 1634	. . . . . . . . . 10 |- (w e. x -> A.y w e. x)
4		hba1 1668	. . . . . . . . . 10 |- (A.yA.yph -> A.yA.yA.yph)
5	3, 4	hban 1674	. . . . . . . . 9 |- ((w e. x /\ A.yA.yph) -> A.y(w e. x /\ A.yA.yph))
6	5	hbex 1671	. . . . . . . 8 |- (E.w(w e. x /\ A.yA.yph) -> A.yE.w(w e. x /\ A.yA.yph))
7	2, 6	hbbi 1675	. . . . . . 7 |- ((z e. w <-> E.w(w e. x /\ A.yA.yph)) -> A.y(z e. w <-> E.w(w e. x /\ A.yA.yph)))
8	7	hbal 1670	. . . . . 6 |- (A.z(z e. w <-> E.w(w e. x /\ A.yA.yph)) -> A.yA.z(z e. w <-> E.w(w e. x /\ A.yA.yph)))
9	1, 8	hbim 1672	. . . . 5 |- ((E.yA.z(A.yph -> z = y) -> A.z(z e. w <-> E.w(w e. x /\ A.yA.yph))) -> A.y(E.yA.z(A.yph -> z = y) -> A.z(z e. w <-> E.w(w e. x /\ A.yA.yph))))
10	9	hbex 1671	. . . 4 |- (E.w(E.yA.z(A.yph -> z = y) -> A.z(z e. w <-> E.w(w e. x /\ A.yA.yph))) -> A.yE.w(E.yA.z(A.yph -> z = y) -> A.z(z e. w <-> E.w(w e. x /\ A.yA.yph))))
11		elequ2 1807	. . . . . . . . . 10 |- (y = x -> (w e. y <-> w e. x))
12	11	anbi1d 815	. . . . . . . . 9 |- (y = x -> ((w e. y /\ A.yA.yph) <-> (w e. x /\ A.yA.yph)))
13	12	exbidv 1955	. . . . . . . 8 |- (y = x -> (E.w(w e. y /\ A.yA.yph) <-> E.w(w e. x /\ A.yA.yph)))
14	13	bibi2d 382	. . . . . . 7 |- (y = x -> ((z e. w <-> E.w(w e. y /\ A.yA.yph)) <-> (z e. w <-> E.w(w e. x /\ A.yA.yph))))
15	14	albidv 1954	. . . . . 6 |- (y = x -> (A.z(z e. w <-> E.w(w e. y /\ A.yA.yph)) <-> A.z(z e. w <-> E.w(w e. x /\ A.yA.yph))))
16	15	imbi2d 380	. . . . 5 |- (y = x -> ((E.yA.z(A.yph -> z = y) -> A.z(z e. w <-> E.w(w e. y /\ A.yA.yph))) <-> (E.yA.z(A.yph -> z = y) -> A.z(z e. w <-> E.w(w e. x /\ A.yA.yph)))))
17	16	exbidv 1955	. . . 4 |- (y = x -> (E.w(E.yA.z(A.yph -> z = y) -> A.z(z e. w <-> E.w(w e. y /\ A.yA.yph))) <-> E.w(E.yA.z(A.yph -> z = y) -> A.z(z e. w <-> E.w(w e. x /\ A.yA.yph)))))
18		axrepnd 6541	. . . . 5 |- E.w(E.yA.z(A.yph -> z = y) -> A.z(A.y z e. w <-> E.w(A.z w e. y /\ A.yA.yph)))
19	2	19.3 1696	. . . . . . . . 9 |- (A.y z e. w <-> z e. w)
20		ax-17 1634	. . . . . . . . . . . 12 |- (w e. y -> A.z w e. y)
21	20	19.3 1696	. . . . . . . . . . 11 |- (A.z w e. y <-> w e. y)
22	21	anbi1i 805	. . . . . . . . . 10 |- ((A.z w e. y /\ A.yA.yph) <-> (w e. y /\ A.yA.yph))
23	22	exbii 1716	. . . . . . . . 9 |- (E.w(A.z w e. y /\ A.yA.yph) <-> E.w(w e. y /\ A.yA.yph))
24	19, 23	bibi12i 379	. . . . . . . 8 |- ((A.y z e. w <-> E.w(A.z w e. y /\ A.yA.yph)) <-> (z e. w <-> E.w(w e. y /\ A.yA.yph)))
25	24	albii 1664	. . . . . . 7 |- (A.z(A.y z e. w <-> E.w(A.z w e. y /\ A.yA.yph)) <-> A.z(z e. w <-> E.w(w e. y /\ A.yA.yph)))
26	25	imbi2i 373	. . . . . 6 |- ((E.yA.z(A.yph -> z = y) -> A.z(A.y z e. w <-> E.w(A.z w e. y /\ A.yA.yph))) <-> (E.yA.z(A.yph -> z = y) -> A.z(z e. w <-> E.w(w e. y /\ A.yA.yph))))
27	26	exbii 1716	. . . . 5 |- (E.w(E.yA.z(A.yph -> z = y) -> A.z(A.y z e. w <-> E.w(A.z w e. y /\ A.yA.yph))) <-> E.w(E.yA.z(A.yph -> z = y) -> A.z(z e. w <-> E.w(w e. y /\ A.yA.yph))))
28	18, 27	mpbi 254	. . . 4 |- E.w(E.yA.z(A.yph -> z = y) -> A.z(z e. w <-> E.w(w e. y /\ A.yA.yph)))
29	10, 17, 28	chvar 1839	. . 3 |- E.w(E.yA.z(A.yph -> z = y) -> A.z(z e. w <-> E.w(w e. x /\ A.yA.yph)))
30	29	19.35i 1742	. 2 |- (A.wE.yA.z(A.yph -> z = y) -> E.wA.z(z e. w <-> E.w(w e. x /\ A.yA.yph)))
31		ax-17 1634	. . . . 5 |- (z e. y -> A.w z e. y)
32		hbe1 1681	. . . . 5 |- (E.w(w e. x /\ A.yph) -> A.wE.w(w e. x /\ A.yph))
33	31, 32	hbbi 1675	. . . 4 |- ((z e. y <-> E.w(w e. x /\ A.yph)) -> A.w(z e. y <-> E.w(w e. x /\ A.yph)))
34	33	hbal 1670	. . 3 |- (A.z(z e. y <-> E.w(w e. x /\ A.yph)) -> A.wA.z(z e. y <-> E.w(w e. x /\ A.yph)))
35		elequ2 1807	. . . . 5 |- (w = y -> (z e. w <-> z e. y))
36		hba1 1668	. . . . . . . . 9 |- (A.yph -> A.yA.yph)
37	36	19.3 1696	. . . . . . . 8 |- (A.yA.yph <-> A.yph)
38	37	anbi2i 804	. . . . . . 7 |- ((w e. x /\ A.yA.yph) <-> (w e. x /\ A.yph))
39	38	exbii 1716	. . . . . 6 |- (E.w(w e. x /\ A.yA.yph) <-> E.w(w e. x /\ A.yph))
40	39	a1i 8	. . . . 5 |- (w = y -> (E.w(w e. x /\ A.yA.yph) <-> E.w(w e. x /\ A.yph)))
41	35, 40	bibi12d 385	. . . 4 |- (w = y -> ((z e. w <-> E.w(w e. x /\ A.yA.yph)) <-> (z e. y <-> E.w(w e. x /\ A.yph))))
42	41	albidv 1954	. . 3 |- (w = y -> (A.z(z e. w <-> E.w(w e. x /\ A.yA.yph)) <-> A.z(z e. y <-> E.w(w e. x /\ A.yph))))
43	8, 34, 42	cbvex 1838	. 2 |- (E.wA.z(z e. w <-> E.w(w e. x /\ A.yA.yph)) <-> E.yA.z(z e. y <-> E.w(w e. x /\ A.yph)))
44	30, 43	sylib 263	1 |- (A.wE.yA.z(A.yph -> z = y) -> E.yA.z(z e. y <-> E.w(w e. x /\ A.yph)))

Syntax hints:   -> wi 3   <-> wb 231   /\ wa 433  A.wal 1613   = wceq 1615   e. wcel 1617  E.wex 1644

This theorem was proved from axioms:  ax-1 4  ax-2 5  ax-3 6  ax-mp 7  ax-7 1621  ax-gen 1622  ax-8 1623  ax-9 1624  ax-10 1625  ax-11 1626  ax-12 1627  ax-13 1628  ax-14 1629  ax-17 1634  ax-4 1637  ax-5o 1639  ax-6o 1642  ax-9o 1792  ax-10o 1810  ax-16 1883  ax-11o 1893  ax-15 2044  ax-ext 2152  ax-rep 3628  ax-sep 3638  ax-nul 3645  ax-pow 3681  ax-reg 5972

This theorem depends on definitions:  df-bi 232  df-or 434  df-an 435  df-ex 1645  df-sb 1845  df-clab 2158  df-cleq 2163  df-clel 2166  df-ne 2297  df-ral 2389  df-rex 2390  df-v 2571  df-dif 2862  df-in 2866  df-ss 2868  df-nul 3115  df-pw 3261  df-sn 3274

Copyright terms: Public domain