Theorem ax11eq 1361

Description: Basis step for constructing a substitution instance of ax-11o 1216 without using ax-11o 1216. 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 1065	. . 3 |- (A.x(x = z /\ x = w) <-> (A.x x = z /\ A.x x = w))
2		equid 1124	. . . . . . . 8 |- x = x
3	2	a1i 8	. . . . . . 7 |- (x = y -> x = x)
4	3	ax-gen 961	. . . . . 6 |- A.x(x = y -> x = x)
5	4	a1i 8	. . . . 5 |- (x = x -> A.x(x = y -> x = x))
6		equequ1 1132	. . . . . . . . 9 |- (x = z -> (x = x <-> z = x))
7		equequ2 1133	. . . . . . . . 9 |- (x = w -> (z = x <-> z = w))
8	6, 7	sylan9bb 539	. . . . . . . 8 |- ((x = z /\ x = w) -> (x = x <-> z = w))
9	8	a4s 982	. . . . . . 7 |- (A.x(x = z /\ x = w) -> (x = x <-> z = w))
10		hba1 1001	. . . . . . . 8 |- (A.x(x = z /\ x = w) -> A.xA.x(x = z /\ x = w))
11	9	imbi2d 611	. . . . . . . 8 |- (A.x(x = z /\ x = w) -> ((x = y -> x = x) <-> (x = y -> z = w)))
12	10, 11	albid 1102	. . . . . . 7 |- (A.x(x = z /\ x = w) -> (A.x(x = y -> x = x) <-> A.x(x = y -> z = w)))
13	9, 12	imbi12d 625	. . . . . 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 389	. . . . 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 193	. . . 4 |- ((A.x(x = z /\ x = w) /\ (-. A.x x = y /\ x = y)) -> (z = w -> A.x(x = y -> z = w)))
16	15	exp32 377	. . 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 201	. 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 1132	. . . . . . 7 |- (x = y -> (x = w <-> y = w))
19	18	ad2antll 407	. . . . . 6 |- ((-. A.x x = w /\ (-. A.x x = y /\ x = y)) -> (x = w <-> y = w))
20		ax-12 966	. . . . . . . . 9 |- (-. A.x x = y -> (-. A.x x = w -> (y = w -> A.x y = w)))
21	20	impcom 351	. . . . . . . 8 |- ((-. A.x x = w /\ -. A.x x = y) -> (y = w -> A.x y = w))
22	21	adantrr 395	. . . . . . 7 |- ((-. A.x x = w /\ (-. A.x x = y /\ x = y)) -> (y = w -> A.x y = w))
23		equtrr 1130	. . . . . . . 8 |- (y = w -> (x = y -> x = w))
24	23	19.20i 990	. . . . . . 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 203	. . . . 5 |- ((-. A.x x = w /\ (-. A.x x = y /\ x = y)) -> (x = w -> A.x(x = y -> x = w)))
27	26	adantll 392	. . . 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 1132	. . . . . . 7 |- (x = z -> (x = w <-> z = w))
29	28	a4s 982	. . . . . 6 |- (A.x x = z -> (x = w <-> z = w))
30	29	imbi2d 611	. . . . . . 7 |- (A.x x = z -> ((x = y -> x = w) <-> (x = y -> z = w)))
31	30	dral2 1153	. . . . . 6 |- (A.x x = z -> (A.x(x = y -> x = w) <-> A.x(x = y -> z = w)))
32	29, 31	imbi12d 625	. . . . 5 |- (A.x x = z -> ((x = w -> A.x(x = y -> x = w)) <-> (z = w -> A.x(x = y -> z = w))))
33	32	ad2antrr 404	. . . 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 195	. . 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 377	. 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 1133	. . . . . . 7 |- (x = y -> (z = x <-> z = y))
37	36	ad2antll 407	. . . . . 6 |- ((-. A.x x = z /\ (-. A.x x = y /\ x = y)) -> (z = x <-> z = y))
38		ax-12 966	. . . . . . . . 9 |- (-. A.x x = z -> (-. A.x x = y -> (z = y -> A.x z = y)))
39	38	imp 350	. . . . . . . 8 |- ((-. A.x x = z /\ -. A.x x = y) -> (z = y -> A.x z = y))
40	39	adantrr 395	. . . . . . 7 |- ((-. A.x x = z /\ (-. A.x x = y /\ x = y)) -> (z = y -> A.x z = y))
41	36	biimprcd 156	. . . . . . . 8 |- (z = y -> (x = y -> z = x))
42	41	19.20i 990	. . . . . . 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 203	. . . . 5 |- ((-. A.x x = z /\ (-. A.x x = y /\ x = y)) -> (z = x -> A.x(x = y -> z = x)))
45	44	adantlr 393	. . . 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 982	. . . . . 6 |- (A.x x = w -> (z = x <-> z = w))
47	46	imbi2d 611	. . . . . . 7 |- (A.x x = w -> ((x = y -> z = x) <-> (x = y -> z = w)))
48	47	dral2 1153	. . . . . 6 |- (A.x x = w -> (A.x(x = y -> z = x) <-> A.x(x = y -> z = w)))
49	46, 48	imbi12d 625	. . . . 5 |- (A.x x = w -> ((z = x -> A.x(x = y -> z = x)) <-> (z = w -> A.x(x = y -> z = w))))
50	49	ad2antlr 405	. . . 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 195	. . 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 377	. 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 1123	. . . . 5 |- E.u u = w
54		a9e 1123	. . . . . . 7 |- E.v v = z
55		ax-1 4	. . . . . . . . . . 11 |- (v = u -> (x = y -> v = u))
56	55	19.21aiv 1284	. . . . . . . . . 10 |- (v = u -> A.x(x = y -> v = u))
57		equequ1 1132	. . . . . . . . . . . . 13 |- (v = z -> (v = u <-> z = u))
58		equequ2 1133	. . . . . . . . . . . . 13 |- (u = w -> (z = u <-> z = w))
59	57, 58	sylan9bb 539	. . . . . . . . . . . 12 |- ((v = z /\ u = w) -> (v = u <-> z = w))
60	59	adantl 388	. . . . . . . . . . 11 |- (((-. A.x x = z /\ -. A.x x = w) /\ (v = z /\ u = w)) -> (v = u <-> z = w))
61		dveeq2 1210	. . . . . . . . . . . . . . 15 |- (-. A.x x = z -> (v = z -> A.x v = z))
62		dveeq2 1210	. . . . . . . . . . . . . . 15 |- (-. A.x x = w -> (u = w -> A.x u = w))
63	61, 62	im2anan9 562	. . . . . . . . . . . . . 14 |- ((-. A.x x = z /\ -. A.x x = w) -> ((