Theorem axcnre 5298

Description: A complex number can be expressed in terms of two reals. Definition 10-1.1(v) of [Gleason] p. 130. Axiom 20 of 25 for real and complex numbers, derived from ZF set theory.

Assertion

Ref	Expression
axcnre	|- (A e. CC -> E.x e. RR E.y e. RR A = (x + (i x. y)))

Distinct variable group:   x,y,A

Proof of Theorem axcnre

Step	Hyp	Ref	Expression
1		df-c 5252	. 2 |- CC = (R. X. R.)
2		eqeq1 1484	. . 3 |- (<.z, w>. = A -> (<.z, w>. = (x + (i x. y)) <-> A = (x + (i x. y))))
3	2	2rexbidv 1684	. 2 |- (<.z, w>. = A -> (E.x e. RR E.y e. RR <.z, w>. = (x + (i x. y)) <-> E.x e. RR E.y e. RR A = (x + (i x. y))))
4		opex 2788	. . . . 5 |- <.z, 0R>. e. V
5		opex 2788	. . . . 5 |- <.w, 0R>. e. V
6		eleq1 1537	. . . . . . 7 |- (x = <.z, 0R>. -> (x e. RR <-> <.z, 0R>. e. RR))
7		eleq1 1537	. . . . . . 7 |- (y = <.w, 0R>. -> (y e. RR <-> <.w, 0R>. e. RR))
8	6, 7	bi2anan9 634	. . . . . 6 |- ((x = <.z, 0R>. /\ y = <.w, 0R>.) -> ((x e. RR /\ y e. RR) <-> (<.z, 0R>. e. RR /\ <.w, 0R>. e. RR)))
9		opreq1 3974	. . . . . . . 8 |- (x = <.z, 0R>. -> (x + (i x. y)) = (<.z, 0R>. + (i x. y)))
10		opreq2 3975	. . . . . . . . 9 |- (y = <.w, 0R>. -> (i x. y) = (i x. <.w, 0R>.))
11	10	opreq2d 3982	. . . . . . . 8 |- (y = <.w, 0R>. -> (<.z, 0R>. + (i x. y)) = (<.z, 0R>. + (i x. <.w, 0R>.)))
12	9, 11	sylan9eq 1530	. . . . . . 7 |- ((x = <.z, 0R>. /\ y = <.w, 0R>.) -> (x + (i x. y)) = (<.z, 0R>. + (i x. <.w, 0R>.)))
13	12	eqeq2d 1489	. . . . . 6 |- ((x = <.z, 0R>. /\ y = <.w, 0R>.) -> (<.z, w>. = (x + (i x. y)) <-> <.z, w>. = (<.z, 0R>. + (i x. <.w, 0R>.))))
14	8, 13	anbi12d 630	. . . . 5 |- ((x = <.z, 0R>. /\ y = <.w, 0R>.) -> (((x e. RR /\ y e. RR) /\ <.z, w>. = (x + (i x. y))) <-> ((<.z, 0R>. e. RR /\ <.w, 0R>. e. RR) /\ <.z, w>. = (<.z, 0R>. + (i x. <.w, 0R>.)))))
15	4, 5, 14	cla42ev 1873	. . . 4 |- (((<.z, 0R>. e. RR /\ <.w, 0R>. e. RR) /\ <.z, w>. = (<.z, 0R>. + (i x. <.w, 0R>.))) -> E.xE.y((x e. RR /\ y e. RR) /\ <.z, w>. = (x + (i x. y))))
16		opelreal 5261	. . . . . 6 |- (<.z, 0R>. e. RR <-> z e. R.)
17		opelreal 5261	. . . . . 6 |- (<.w, 0R>. e. RR <-> w e. R.)
18	16, 17	anbi12i 484	. . . . 5 |- ((<.z, 0R>. e. RR /\ <.w, 0R>. e. RR) <-> (z e. R. /\ w e. R.))
19	18	biimpr 152	. . . 4 |- ((z e. R. /\ w e. R.) -> (<.z, 0R>. e. RR /\ <.w, 0R>. e. RR))
20		0r 5201	. . . . . . . . . 10 |- 0R e. R.
21		1r 5202	. . . . . . . . . . . 12 |- 1R e. R.
22	20, 21	pm3.2i 285	. . . . . . . . . . 11 |- (0R e. R. /\ 1R e. R.)
23		mulcnsr 5266	. . . . . . . . . . 11 |- (((0R e. R. /\ 1R e. R.) /\ (w e. R. /\ 0R e. R.)) -> (<.0R, 1R>. x. <.w, 0R>.) = <.((0R .R w) +R (-1R .R (1R .R 0R))), ((1R .R w) +R (0R .R 0R))>.)
24	22, 23	mpan 697	. . . . . . . . . 10 |- ((w e. R. /\ 0R e. R.) -> (<.0R, 1R>. x. <.w, 0R>.) = <.((0R .R w) +R (-1R .R (1R .R 0R))), ((1R .R w) +R (0R .R 0R))>.)
25	20, 24	mpan2 698	. . . . . . . . 9 |- (w e. R. -> (<.0R, 1R>. x. <.w, 0R>.) = <.((0R .R w) +R (-1R .R (1R .R 0R))), ((1R .R w) +R (0R .R 0R))>.)
26		00sr 5220	. . . . . . . . . . . . 13 |- (w e. R. -> (w .R 0R) = 0R)
27	20	elisseti 1821	. . . . . . . . . . . . . 14 |- 0R e. V
28		visset 1816	. . . . . . . . . . . . . 14 |- w e. V
29	27, 28	mulcomsr 5210	. . . . . . . . . . . . 13 |- (0R .R w) = (w .R 0R)
30	26, 29	syl5eq 1522	. . . . . . . . . . . 12 |- (w e. R. -> (0R .R w) = 0R)
31	30	opreq1d 3981	. . . . . . . . . . 11 |- (w e. R. -> ((0R .R w) +R (-1R .R (1R .R 0R))) = (0R +R (-1R .R (1R .R 0R))))
32		00sr 5220	. . . . . . . . . . . . . . . 16 |- (1R e. R. -> (1R .R 0R) = 0R)
33	21, 32	ax-mp 7	. . . . . . . . . . . . . . 15 |- (1R .R 0R) = 0R
34	33	opreq2i 3978	. . . . . . . . . . . . . 14 |- (-1R .R (1R .R 0R)) = (-1R .R 0R)
35		m1r 5203	. . . . . . . . . . . . . . 15 |- -1R e. R.
36		00sr 5220	. . . . . . . . . . . . . . 15 |- (-1R e. R. -> (-1R .R 0R) = 0R)
37	35, 36	ax-mp 7	. . . . . . . . . . . . . 14 |- (-1R .R 0R) = 0R
38	34, 37	eqtr 1498	. . . . . . . . . . . . 13 |- (-1R .R (1R .R 0R)) = 0R
39	38	opreq2i 3978	. . . . . . . . . . . 12 |- (0R +R (-1R .R (1R .R 0R))) = (0R +R 0R)
40		0idsr 5218	. . . . . . . . . . . . 13 |- (0R e. R. -> (0R +R 0R) = 0R)
41	20, 40	ax-mp 7	. . . . . . . . . . . 12 |- (0R +R 0R) = 0R
42	39, 41	eqtr 1498	. . . . . . . . . . 11 |- (0R +R (-1R .R (1R .R 0R))) = 0R
43	31, 42	syl6eq 1526	. . . . . . . . . 10 |- (w e. R. -> ((0R .R w) +R (-1R .R (1R .R 0R))) = 0R)
44		1idsr 5219	. . . . . . . . . . . . 13 |- (w e. R. -> (w .R 1R) = w)
45	21	elisseti 1821	. . . . . . . . . . . . . 14 |- 1R e. V
46	45, 28	mulcomsr 5210	. . . . . . . . . . . . 13 |- (1R .R w) = (w .R 1R)
47	44, 46	syl5eq 1522	. . . . . . . . . . . 12 |- (w e. R. -> (1R .R w) = w)
48	47	opreq1d 3981	. . . . . . . . . . 11 |- (w e. R. -> ((1R .R w) +R (0R .R 0R)) = (w +R (0R .R 0R)))
49		0idsr 5218	. . . . . . . . . . . 12 |- (w e. R. -> (w +R 0R) = w)
50		00sr 5220	. . . . . . . . . . . . . 14 |- (0R e. R. -> (0R .R 0R) = 0R)
51	20, 50	ax-mp 7	. . . . . . . . . . . . 13 |- (0R .R 0R) = 0R
52	51	opreq2i 3978	. . . . . . . . . . . 12 |- (w +R (0R .R 0R)) = (w +R 0R)
53	49, 52	syl5eq 1522	. . . . . . . . . . 11 |- (w e. R. -> (w +R (0R .R 0R)) = w)
54	48, 53	eqtrd 1510	. . . . . . . . . 10 |- (w e. R. -> ((1R .R w) +R (0R .R 0R)) = w)
55	43, 54	opeq12d 2499	. . . . . . . . 9 |- (w e. R. -> <.((0R .R w) +R (-1R .R (1R .R 0R))), ((1R .R w) +R (0R .R 0R))>. = <.0R, w>.)
56	25, 55	eqtrd 1510	. . . . . . . 8 |- (w e. R. -> (<.0R, 1R>. x. <.w, 0R>.) = <.0R, w>.)
57		df-i 5255	. . . . . . . . 9 |- i = <.0R, 1R>.
58	57	opreq1i 3977	. . . . . . . 8 |- (i x. <.w, 0R>.) = (<.0R, 1R>. x. <.w, 0R>.)
59	56, 58	syl5eq 1522	. . . . . . 7 |- (w e. R. -> (i x. <.w, 0R>.) = <.0R, w>.)
60	59	opreq2d 3982	. . . . . 6 |- (w e. R. -> (<.z, 0R>. + (i x. <.w, 0R>.)) = (<.z, 0R>. + <.0R, w>.))
61	60	adantl 390	. . . . 5 |- ((z e. R. /\ w e. R.) -> (<.z, 0R>. + (i x. <.w, 0R>.)) = (<.z, 0R>. + <.0R, w>.))
62		addcnsr 5265	. . . . . . 7 |- (((z e. R. /\ 0R e. R.) /\ (0R e. R. /\ w e. R.)) -> (<.z, 0R>. + <.0R, w>.) = <.(z +R 0R), (0R +R w)>.)
63	20, 62	mpanl2 709	. . . . . 6 |- ((z e. R. /\ (0R e. R. /\ w e. R.)) -> (<.z, 0R>. + <.0R, w>.) = <.(z +R 0R), (0R +R w)>.)
64	20, 63	mpanr1 711	. . . . 5 |- ((z e. R. /\ w e. R.) -> (<.z, 0R>. + <.0R, w>.) = <.(z +R 0R), (0R +R w)>.)
65		opeq12 2493	. . . . . 6 |- (((z +R 0R) = z /\ (0R +R w) = w) -> <.(z +R 0R), (0R +R w)>. = <.z, w>.)
66		0idsr 5218	. . . . . 6 |- (z e. R. -> (z +R 0R) = z)
67	27, 28	addcomsr 5208	. . . . . . 7 |- (0R +R w) = (w +R 0R)
68	49, 67	syl5eq 1522	. . . . . 6 |- (w e. R. -> (0R +R w) = w)
69	65, 66, 68	syl2an 456	. . . . 5 |- ((z e. R. /\ w e. R.) -> <.(z +R 0R), (0R +R w)>. = <.z, w>.)
70	61, 64, 69	3eqtrrd 1515	. . . 4 |- ((z e. R. /\ w e. R.) -> <.z, w>. = (<.z, 0R>. + (i x. <.w, 0R>.)))
71	15, 19, 70	sylanc 473	. . 3 |- ((z e. R. /\ w e. R.) -> E.xE.y((x e. RR /\ y e. RR) /\ <.z, w>. = (x + (i x. y))))
72		r2ex 1694	. . 3 |- (E.x e. RR E.y e. RR <.z, w>. = (x + (i x. y)) <-> E.xE.y((x e. RR /\ y e. RR) /\ <.z, w>. = (x + (i x. y))))
73	71, 72	sylibr 200	. 2 |-