Theorem grothprim 8722

Description: Grothendieck's Axiom ax-groth 8716 expanded into set theory primitives using 163 symbols. An open problem is whether a shorter equivalent exists (when expanded to primitives).

Assertion

Ref	Expression
grothprim	|- E.y(x e. y /\ A.z((z e. y -> E.v(v e. y /\ A.w(A.u(u e. w -> u e. z) -> (w e. y /\ w e. v)))) /\ E.w((w e. z -> w e. y) -> (A.v((v e. z -> E.tA.u(E.g(g e. w /\ A.h(h e. g <-> (h = v \/ h = u))) -> u = t)) /\ (v e. y -> (v e. z \/ E.u(u e. z /\ E.g(g e. w /\ A.h(h e. g <-> (h = u \/ h = v))))))) \/ z e. y))))

Distinct variable group:   x,y,z,w,v,u,t,h,g

Proof of Theorem grothprim

Step	Hyp	Ref	Expression
1		axgroth4 8719	. 2 |- E.y(x e. y /\ A.z e. y E.v e. y A.w(w (_ z -> w e. (y i^i v)) /\ A.z(z (_ y -> ((y \ z) ~<_ z \/ z e. y)))
2		3anass 777	. . . 4 |- ((x e. y /\ A.z e. y E.v e. y A.w(w (_ z -> w e. (y i^i v)) /\ A.z(z (_ y -> ((y \ z) ~<_ z \/ z e. y))) <-> (x e. y /\ (A.z e. y E.v e. y A.w(w (_ z -> w e. (y i^i v)) /\ A.z(z (_ y -> ((y \ z) ~<_ z \/ z e. y)))))
3		dfss2 2048	. . . . . . . . . . . . 13 |- (w (_ z <-> A.u(u e. w -> u e. z))
4		elin 2197	. . . . . . . . . . . . 13 |- (w e. (y i^i v) <-> (w e. y /\ w e. v))
5	3, 4	imbi12i 188	. . . . . . . . . . . 12 |- ((w (_ z -> w e. (y i^i v)) <-> (A.u(u e. w -> u e. z) -> (w e. y /\ w e. v)))
6	5	albii 996	. . . . . . . . . . 11 |- (A.w(w (_ z -> w e. (y i^i v)) <-> A.w(A.u(u e. w -> u e. z) -> (w e. y /\ w e. v)))
7	6	rexbii 1660	. . . . . . . . . 10 |- (E.v e. y A.w(w (_ z -> w e. (y i^i v)) <-> E.v e. y A.w(A.u(u e. w -> u e. z) -> (w e. y /\ w e. v)))
8		df-rex 1642	. . . . . . . . . 10 |- (E.v e. y A.w(A.u(u e. w -> u e. z) -> (w e. y /\ w e. v)) <-> E.v(v e. y /\ A.w(A.u(u e. w -> u e. z) -> (w e. y /\ w e. v))))
9	7, 8	bitr 173	. . . . . . . . 9 |- (E.v e. y A.w(w (_ z -> w e. (y i^i v)) <-> E.v(v e. y /\ A.w(A.u(u e. w -> u e. z) -> (w e. y /\ w e. v))))
10	9	ralbii 1659	. . . . . . . 8 |- (A.z e. y E.v e. y A.w(w (_ z -> w e. (y i^i v)) <-> A.z e. y E.v(v e. y /\ A.w(A.u(u e. w -> u e. z) -> (w e. y /\ w e. v))))
11		df-ral 1641	. . . . . . . 8 |- (A.z e. y E.v(v e. y /\ A.w(A.u(u e. w -> u e. z) -> (w e. y /\ w e. v))) <-> A.z(z e. y -> E.v(v e. y /\ A.w(A.u(u e. w -> u e. z) -> (w e. y /\ w e. v)))))
12	10, 11	bitr 173	. . . . . . 7 |- (A.z e. y E.v e. y A.w(w (_ z -> w e. (y i^i v)) <-> A.z(z e. y -> E.v(v e. y /\ A.w(A.u(u e. w -> u e. z) -> (w e. y /\ w e. v)))))
13		dfss2 2048	. . . . . . . . . 10 |- (z (_ y <-> A.w(w e. z -> w e. y))
14		visset 1804	. . . . . . . . . . . . . 14 |- y e. V
15		difexg 2712	. . . . . . . . . . . . . 14 |- (y e. V -> (y \ z) e. V)
16	14, 15	ax-mp 7	. . . . . . . . . . . . 13 |- (y \ z) e. V
17		visset 1804	. . . . . . . . . . . . 13 |- z e. V
18		incom 2198	. . . . . . . . . . . . . 14 |- ((y \ z) i^i z) = (z i^i (y \ z))
19		difdisj 2327	. . . . . . . . . . . . . 14 |- (z i^i (y \ z)) = (/)
20	18, 19	eqtr 1487	. . . . . . . . . . . . 13 |- ((y \ z) i^i z) = (/)
21	16, 17, 20	brdom6disj 4777	. . . . . . . . . . . 12 |- ((y \ z) ~<_ z <-> E.w(A.v e. z E*u{v, u} e. w /\ A.v e. (y \ z)E.u e. z {u, v} e. w))
22	21	orbi1i 256	. . . . . . . . . . 11 |- (((y \ z) ~<_ z \/ z e. y) <-> (E.w(A.v e. z E*u{v, u} e. w /\ A.v e. (y \ z)E.u e. z {u, v} e. w) \/ z e. y))
23		ax-17 968	. . . . . . . . . . . 12 |- (z e. y -> A.w z e. y)
24	23	19.44 1085	. . . . . . . . . . 11 |- (E.w((A.v e. z E*u{v, u} e. w /\ A.v e. (y \ z)E.u e. z {u, v} e. w) \/ z e. y) <-> (E.w(A.v e. z E*u{v, u} e. w /\ A.v e. (y \ z)E.u e. z {u, v} e. w) \/ z e. y))
25	22, 24	bitr4 176	. . . . . . . . . 10 |- (((y \ z) ~<_ z \/ z e. y) <-> E.w((A.v e. z E*u{v, u} e. w /\ A.v e. (y \ z)E.u e. z {u, v} e. w) \/ z e. y))
26	13, 25	imbi12i 188	. . . . . . . . 9 |- ((z (_ y -> ((y \ z) ~<_ z \/ z e. y)) <-> (A.w(w e. z -> w e. y) -> E.w((A.v e. z E*u{v, u} e. w /\ A.v e. (y \ z)E.u e. z {u, v} e. w) \/ z e. y)))
27		19.35 1071	. . . . . . . . 9 |- (E.w((w e. z -> w e. y) -> ((A.v e. z E*u{v, u} e. w /\ A.v e. (y \ z)E.u e. z {u, v} e. w) \/ z e. y)) <-> (A.w(w e. z -> w e. y) -> E.w((A.v e. z E*u{v, u} e. w /\ A.v e. (y \ z)E.u e. z {u, v} e. w) \/ z e. y)))
28		grothprimlem 8721	. . . . . . . . . . . . . . . . . 18 |- ({v, u} e. w <-> E.g(g e. w /\ A.h(h e. g <-> (h = v \/ h = u))))
29	28	mobii 1398	. . . . . . . . . . . . . . . . 17 |- (E*u{v, u} e. w <-> E*uE.g(g e. w /\ A.h(h e. g <-> (h = v \/ h = u))))
30		ax-17 968	. . . . . . . . . . . . . . . . . 18 |- (E.g(g e. w /\ A.h(h e. g <-> (h = v \/ h = u))) -> A.tE.g(g e. w /\ A.h(h e. g <-> (h = v \/ h = u))))
31	30	mo2 1393	. . . . . . . . . . . . . . . . 17 |- (E*uE.g(g e. w /\ A.h(h e. g <-> (h = v \/ h = u))) <-> E.tA.u(E.g(g e. w /\ A.h(h e. g <-> (h = v \/ h = u))) -> u = t))
32	29, 31	bitr 173	. . . . . . . . . . . . . . . 16 |- (E*u{v, u} e. w <-> E.tA.u(E.g(g e. w /\ A.h(h e. g <-> (h = v \/ h = u))) -> u = t))
33	32	ralbii 1659	. . . . . . . . . . . . . . 15 |- (A.v e. z E*u{v, u} e. w <-> A.v e. z E.tA.u(E.g(g e. w /\ A.h(h e. g <-> (h = v \/ h = u))) -> u = t))
34		df-ral 1641	. . . . . . . . . . . . . . 15 |- (A.v e. z E.tA.u(E.g(g e. w /\ A.h(h e. g <-> (h = v \/ h = u))) -> u = t) <-> A.v(v e. z -> E.tA.u(E.g(g e. w /\ A.h(h e. g <-> (h = v \/ h = u))) -> u = t)))
35	33, 34	bitr 173	. . . . . . . . . . . . . 14 |- (A.v e. z E*u{v, u} e. w <-> A.v(v e. z -> E.tA.u(E.g(g e. w /\ A.h(h e. g <-> (h = v \/ h = u))) -> u = t)))
36		df-ral 1641	. . . . . . . . . . . . . . 15 |- (A.v e. (y \ z)E.u e. z {u, v} e. w <-> A.v(v e. (y \ z) -> E.u e. z {u, v} e. w))
37		impexp 347	. . . . . . . . . . . . . . . . 17 |- (((v e. y /\ -. v e. z) -> E.u(u e. z /\ E.g(g e. w /\ A.h(h e. g <-> (h = u \/ h = v))))) <-> (v e. y -> (-. v e. z -> E.u(u e. z /\ E.g(g e. w /\ A.h(h e. g <-> (h = u \/ h = v)))))))
38		eldif 2047	. . . . . . . . . . . . . . . . . 18 |- (v e. (y \ z) <-> (v e. y /\ -. v e. z))
39		grothprimlem 8721	. . . . . . . . . . . . . . . . . . . 20 |- ({u, v} e. w <-> E.g(g e. w /\ A.h(h e. g <-> (h = u \/ h = v))))
40	39	rexbii 1660	. . . . . . . . . . . . . . . . . . 19 |- (E.u e. z {u, v} e. w <-> E.u e. z E.g