Theorem ax11eq 1405

Description: Basis step for constructing a substitution instance of ax-11o 1260 without using ax-11o 1260. Atomic formula for equality predicate.

Assertion

Ref	Expression
ax11eq	|- (-. A.x x = y -> (x = y -> (z = w -> A.x(x = y -> z = w))))

Proof of Theorem ax11eq

Step	Hyp	Ref	Expression
1		19.26 1108	. . 3 |- (A.x(x = z /\ x = w) <-> (A.x x = z /\ A.x x = w))
2		equid 1167	. . . . . . . 8 |- x = x
3	2	a1i 8	. . . . . . 7 |- (x = y -> x = x)
4	3	ax-gen 1004	. . . . . 6 |- A.x(x = y -> x = x)
5	4	a1i 8	. . . . 5 |- (x = x -> A.x(x = y -> x = x))
6		equequ1 1176	. . . . . . . . 9 |- (x = z -> (x = x <-> z = x))
7		equequ2 1177	. . . . . . . . 9 |- (x = w -> (z = x <-> z = w))
8	6, 7	sylan9bb 551	. . . . . . . 8 |- ((x = z /\ x = w) -> (x = x <-> z = w))
9	8	a4s 1025	. . . . . . 7 |- (A.x(x = z /\ x = w) -> (x = x <-> z = w))
10		hba1 1044	. . . . . . . 8 |- (A.x(x = z /\ x = w) -> A.xA.x(x = z /\ x = w))
11	9	imbi2d 623	. . . . . . . 8 |- (A.x(x = z /\ x = w) -> ((x = y -> x = x) <-> (x = y -> z = w)))
12	10, 11	albid 1145	. . . . . . 7 |- (A.x(x = z /\ x = w) -> (A.x(x = y -> x = x) <-> A.x(x = y -> z = w)))
13	9, 12	imbi12d 637	. . . . . 6 |- (A.x(x = z /\ x = w) -> ((x = x -> A.x(x = y -> x = x)) <-> (z = w -> A.x(x = y -> z = w))))
14	13	adantr 398	. . . . 5 |- ((A.x(x = z /\ x = w) /\ (-. A.x x = y /\ x = y)) -> ((x = x -> A.x(x = y -> x = x)) <-> (z = w -> A.x(x = y -> z = w))))
15	5, 14	mpbii 200	. . . 4 |- ((A.x(x = z /\ x = w) /\ (-. A.x x = y /\ x = y)) -> (z = w -> A.x(x = y -> z = w)))
16	15	exp32 386	. . 3 |- (A.x(x = z /\ x = w) -> (-. A.x x = y -> (x = y -> (z = w -> A.x(x = y -> z = w)))))
17	1, 16	sylbir 208	. 2 |- ((A.x x = z /\ A.x x = w) -> (-. A.x x = y -> (x = y -> (z = w -> A.x(x = y -> z = w)))))
18		equequ1 1176	. . . . . . 7 |- (x = y -> (x = w <-> y = w))
19	18	ad2antll 416	. . . . . 6 |- ((-. A.x x = w /\ (-. A.x x = y /\ x = y)) -> (x = w <-> y = w))
20		ax-12 1009	. . . . . . . . 9 |- (-. A.x x = y -> (-. A.x x = w -> (y = w -> A.x y = w)))
21	20	impcom 358	. . . . . . . 8 |- ((-. A.x x = w /\ -. A.x x = y) -> (y = w -> A.x y = w))
22	21	adantrr 404	. . . . . . 7 |- ((-. A.x x = w /\ (-. A.x x = y /\ x = y)) -> (y = w -> A.x y = w))
23		equtrr 1174	. . . . . . . 8 |- (y = w -> (x = y -> x = w))
24	23	19.20i 1033	. . . . . . 7 |- (A.x y = w -> A.x(x = y -> x = w))
25	22, 24	syl6 22	. . . . . 6 |- ((-. A.x x = w /\ (-. A.x x = y /\ x = y)) -> (y = w -> A.x(x = y -> x = w)))
26	19, 25	sylbid 210	. . . . 5 |- ((-. A.x x = w /\ (-. A.x x = y /\ x = y)) -> (x = w -> A.x(x = y -> x = w)))
27	26	adantll 401	. . . 4 |- (((A.x x = z /\ -. A.x x = w) /\ (-. A.x x = y /\ x = y)) -> (x = w -> A.x(x = y -> x = w)))
28		equequ1 1176	. . . . . . 7 |- (x = z -> (x = w <-> z = w))
29	28	a4s 1025	. . . . . 6 |- (A.x x = z -> (x = w <-> z = w))
30	29	imbi2d 623	. . . . . . 7 |- (A.x x = z -> ((x = y -> x = w) <-> (x = y -> z = w)))
31	30	dral2 1197	. . . . . 6 |- (A.x x = z -> (A.x(x = y -> x = w) <-> A.x(x = y -> z = w)))
32	29, 31	imbi12d 637	. . . . 5 |- (A.x x = z -> ((x = w -> A.x(x = y -> x = w)) <-> (z = w -> A.x(x = y -> z = w))))
33	32	ad2antrr 413	. . . 4 |- (((A.x x = z /\ -. A.x x = w) /\ (-. A.x x = y /\ x = y)) -> ((x = w -> A.x(x = y -> x = w)) <-> (z = w -> A.x(x = y -> z = w))))
34	27, 33	mpbid 202	. . 3 |- (((A.x x = z /\ -. A.x x = w) /\ (-. A.x x = y /\ x = y)) -> (z = w -> A.x(x = y -> z = w)))
35	34	exp32 386	. 2 |- ((A.x x = z /\ -. A.x x = w) -> (-. A.x x = y -> (x = y -> (z = w -> A.x(x = y -> z = w)))))
36		equequ2 1177	. . . . . . 7 |- (x = y -> (z = x <-> z = y))
37	36	ad2antll 416	. . . . . 6 |- ((-. A.x x = z /\ (-. A.x x = y /\ x = y)) -> (z = x <-> z = y))
38		ax-12 1009	. . . . . . . . 9 |- (-. A.x x = z -> (-. A.x x = y -> (z = y -> A.x z = y)))
39	38	imp 357	. . . . . . . 8 |- ((-. A.x x = z /\ -. A.x x = y) -> (z = y -> A.x z = y))
40	39	adantrr 404	. . . . . . 7 |- ((-. A.x x = z /\ (-. A.x x = y /\ x = y)) -> (z = y -> A.x z = y))
41	36	biimprcd 163	. . . . . . . 8 |- (z = y -> (x = y -> z = x))
42	41	19.20i 1033	. . . . . . 7 |- (A.x z = y -> A.x(x = y -> z = x))
43	40, 42	syl6 22	. . . . . 6 |- ((-. A.x x = z /\ (-. A.x x = y /\ x = y)) -> (z = y -> A.x(x = y -> z = x)))
44	37, 43	sylbid 210	. . . . 5 |- ((-. A.x x = z /\ (-. A.x x = y /\ x = y)) -> (z = x -> A.x(x = y -> z = x)))
45	44	adantlr 402	. . . 4 |- (((-. A.x x = z /\ A.x x = w) /\ (-. A.x x = y /\ x = y)) -> (z = x -> A.x(x = y -> z = x)))
46	7	a4s 1025	. . . . . 6 |- (A.x x = w -> (z = x <-> z = w))
47	46	imbi2d 623	. . . . . . 7 |- (A.x x = w -> ((x = y -> z = x) <-> (x = y -> z = w)))
48	47	dral2 1197	. . . . . 6 |- (A.x x = w -> (A.x(x = y -> z = x) <-> A.x(x = y -> z = w)))
49	46, 48	imbi12d 637	. . . . 5 |- (A.x x = w -> ((z = x -> A.x(x = y -> z = x)) <-> (z = w -> A.x(x = y -> z = w))))
50	49	ad2antlr 414	. . . 4 |- (((-. A.x x = z /\ A.x x = w) /\ (-. A.x x = y /\ x = y)) -> ((z = x -> A.x(x = y -> z = x)) <-> (z = w -> A.x(x = y -> z = w))))
51	45, 50	mpbid 202	. . 3 |- (((-. A.x x = z /\ A.x x = w) /\ (-. A.x x = y /\ x = y)) -> (z = w -> A.x(x = y -> z = w)))
52	51	exp32 386	. 2 |- ((-. A.x x = z /\ A.x x = w) -> (-. A.x x = y -> (x = y -> (z = w -> A.x(x = y -> z = w)))))
53		a9e 1166	. . . . 5 |- E.u u = w
54		a9e 1166	. . . . . . 7 |- E.v v = z
55		ax-1 4	. . . . . . . . . . 11 |- (v = u -> (x = y -> v = u))
56	55	19.21aiv 1328	. . . . . . . . . 10 |- (v = u -> A.x(x = y -> v = u))
57		equequ1 1176	. . . . . . . . . . . . 13 |- (v = z -> (v = u <-> z = u))
58		equequ2 1177	. . . . . . . . . . . . 13 |- (u = w -> (z = u <-> z = w))
59	57, 58	sylan9bb 551	. . . . . . . . . . . 12 |- ((v = z /\ u = w) -> (v = u <-> z = w))
60	59	adantl 397	. . . . . . . . . . 11 |- (((-. A.x x = z /\ -. A.x x = w) /\ (v = z /\ u = w)) -> (v = u <-> z = w))
61		dveeq2 1254	. . . . . . . . . . . . . . 15 |- (-. A.x x = z -> (v = z -> A.x v = z))
62		dveeq2 1254	. . . . . . . . . . . . . . 15 |- (-. A.x x = w -> (u = w -> A.x u = w))
63	61, 62	im2anan9 574	. . . . . . . . . . . . . 14 |- ((-. A.x x = z /\ -. A.x x = w) -> (