Theorem zfcndrep 3760

Description: Axiom of Replacement, reproved from conditionless ZFC axioms. We use several results such as visset 1350 that depend on Extensionality, which was already proved in zfcndext 3759.

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(s):   x,y,z,w

Proof of Theorem zfcndrep

Step	Hyp	Ref	Expression
1		hbe1 709	. . . . . 6 |- (E.yA.z(A.yph -> z = y) -> A.yE.yA.z(A.yph -> z = y))
2		ax-17 925	. . . . . . . 8 |- (z e. w -> A.y z e. w)
3		ax-17 925	. . . . . . . . . 10 |- (w e. x -> A.y w e. x)
4		hba1 698	. . . . . . . . . 10 |- (A.yA.yph -> A.yA.yA.yph)
5	3, 4	hban 704	. . . . . . . . 9 |- ((w e. x /\ A.yA.yph) -> A.y(w e. x /\ A.yA.yph))
6	5	hbex 701	. . . . . . . 8 |- (E.w(w e. x /\ A.yA.yph) -> A.yE.w(w e. x /\ A.yA.yph))
7	2, 6	hbbi 705	. . . . . . 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 700	. . . . . 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 702	. . . . 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 701	. . . 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		visset 1350	. . . 4 |- x e. V
12		a14b 820	. . . . . . . . . 10 |- (y = x -> (w e. y <-> w e. x))
13	12	anbi1d 469	. . . . . . . . 9 |- (y = x -> ((w e. y /\ A.yA.yph) <-> (w e. x /\ A.yA.yph)))
14	13	biexdv 936	. . . . . . . 8 |- (y = x -> (E.w(w e. y /\ A.yA.yph) <-> E.w(w e. x /\ A.yA.yph)))
15	14	bibi2d 470	. . . . . . 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))))
16	15	bialdv 935	. . . . . 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))))
17	16	imbi2d 464	. . . . 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)))))
18	17	biexdv 936	. . . 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)))))
19		axrepnd 3740	. . . . 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)))
20	2	19.3r 714	. . . . . . . . 9 |- (z e. w <-> A.y z e. w)
21		ax-17 925	. . . . . . . . . . . 12 |- (w e. y -> A.z w e. y)
22	21	19.3r 714	. . . . . . . . . . 11 |- (w e. y <-> A.z w e. y)
23	22	anbi1i 368	. . . . . . . . . 10 |- ((w e. y /\ A.yA.yph) <-> (A.z w e. y /\ A.yA.yph))
24	23	biex 733	. . . . . . . . 9 |- (E.w(w e. y /\ A.yA.yph) <-> E.w(A.z w e. y /\ A.yA.yph))
25	20, 24	bibi12i 462	. . . . . . . 8 |- ((z e. w <-> E.w(w e. y /\ A.yA.yph)) <-> (A.y z e. w <-> E.w(A.z w e. y /\ A.yA.yph)))
26	25	bial 695	. . . . . . 7 |- (A.z(z e. w <-> E.w(w e. y /\ A.yA.yph)) <-> A.z(A.y z e. w <-> E.w(A.z w e. y /\ A.yA.yph)))
27	26	imbi2i 160	. . . . . 6 |- ((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(A.y z e. w <-> E.w(A.z w e. y /\ A.yA.yph))))
28	27	biex 733	. . . . 5 |- (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(A.y z e. w <-> E.w(A.z w e. y /\ A.yA.yph))))
29	19, 28	mpbir 165	. . . 4 |- E.w(E.yA.z(A.yph -> z = y) -> A.z(z e. w <-> E.w(w e. y /\ A.yA.yph)))
30	10, 11, 18, 29	vtoclf 1377	. . 3 |- E.w(E.yA.z(A.yph -> z = y) -> A.z(z e. w <-> E.w(w e. x /\ A.yA.yph)))
31	30	19.35i 755	. 2 |- (A.wE.yA.z(A.yph -> z = y) -> E.wA.z(z e. w <-> E.w(w e. x /\ A.yA.yph)))
32		ax-17 925	. . . . 5 |- (z e. y -> A.w z e. y)
33		hbe1 709	. . . . 5 |- (E.w(w e. x /\ A.yph) -> A.wE.w(w e. x /\ A.yph))
34	32, 33	hbbi 705	. . . 4 |- ((z e. y <-> E.w(w e. x /\ A.yph)) -> A.w(z e. y <-> E.w(w e. x /\ A.yph)))
35	34	hbal 700	. . 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)))
36		a14b 820	. . . . 5 |- (y = w -> (z e. y <-> z e. w))
37		hba1 698	. . . . . . . . 9 |- (A.yph -> A.yA.yph)
38	37	19.3r 714	. . . . . . . 8 |- (A.yph <-> A.yA.yph)
39	38	anbi2i 367	. . . . . . 7 |- ((w e. x /\ A.yph) <-> (w e. x /\ A.yA.yph))
40	39	biex 733	. . . . . 6 |- (E.w(w e. x /\ A.yph) <-> E.w(w e. x /\ A.yA.yph))
41	40	a1i 7	. . . . 5 |- (y = w -> (E.w(w e. x /\ A.yph) <-> E.w(w e. x /\ A.yA.yph)))
42	36, 41	bibi12d 477	. . . 4 |- (y = w -> ((z e. y <-> E.w(w e. x /\ A.yph)) <-> (z e. w <-> E.w(w e. x /\ A.yA.yph))))
43	42	bialdv 935	. . 3 |- (y = w -> (A.z(z e. y <-> E.w(w e. x /\ A.yph)) <-> A.z(z e. w <-> E.w(w e. x /\ A.yA.yph))))
44	35, 8, 43	cbvex 849	. 2 |- (E.yA.z(z e. y <-> E.w(w e. x /\ A.yph)) <-> E.wA.z(z e. w <-> E.w(w e. x /\ A.yA.yph)))
45	31, 44	sylibr 175	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 2   <-> wb 127   /\ wa 196  A.wal 672  E.wex 678   = weq 797   e. wel 803

This theorem was proved from axioms:  ax-1 3  ax-2 4  ax-3 5  ax-mp 6  ax-4 673  ax-5 674  ax-6 675  ax-7 676  ax-gen 677  ax-8 798  ax-9 799  ax-10 800  ax-11 801  ax-12 802  ax-13 804  ax-14 805  ax-16 922  ax-17 925  ax-ext 1074  ax-rep 1075  ax-pow 1077  ax-reg 1078

This theorem depends on definitions:  df-bi 128  df-or 197  df-an 198  df-ex 679  df-sb 853  df-clab 1093  df-cleq 1097  df-clel 1099  df-ral 1205  df-rex 1206  df-v 1349  df-dif 1489  df-un 1490  df-in 1491  df-ss 1492  df-nul 1708  df-pw 1799  df-sn 1811  df-pr 1812

metamath.org