Theorem efifolem2 8723

Description: Lemma for efifo 8729.

Hypotheses

Ref	Expression
efifolem2.1	|- A e. (0(,)(2 x. pi))
efifolem2.2	|- X e. RR
efifolem2.3	|- Y e. RR

Assertion

Ref	Expression
efifolem2	|- ((((X^2) + (Y^2)) = 1 /\ X = (cos` A)) -> E.a e. (0(,)(2 x. pi))(X = (cos` a) /\ Y = (sin` a)))

Distinct variable groups:   A,a   X,a   Y,a

Proof of Theorem efifolem2

Step	Hyp	Ref	Expression
1		ax1cn 5269	. . . . . . . . . . 11 |- 1 e. CC
2		efifolem2.2	. . . . . . . . . . . . 13 |- X e. RR
3	2	recn 5314	. . . . . . . . . . . 12 |- X e. CC
4	3	sqcl 6615	. . . . . . . . . . 11 |- (X^2) e. CC
5		efifolem2.3	. . . . . . . . . . . . 13 |- Y e. RR
6	5	recn 5314	. . . . . . . . . . . 12 |- Y e. CC
7	6	sqcl 6615	. . . . . . . . . . 11 |- (Y^2) e. CC
8	1, 4, 7	subadd 5371	. . . . . . . . . 10 |- ((1 - (X^2)) = (Y^2) <-> ((X^2) + (Y^2)) = 1)
9	8	biimpr 152	. . . . . . . . 9 |- (((X^2) + (Y^2)) = 1 -> (1 - (X^2)) = (Y^2))
10		opreq1 3968	. . . . . . . . . 10 |- (X = (cos` A) -> (X^2) = ((cos` A)^2))
11	10	opreq2d 3976	. . . . . . . . 9 |- (X = (cos` A) -> (1 - (X^2)) = (1 - ((cos` A)^2)))
12	9, 11	sylan9req 1528	. . . . . . . 8 |- ((((X^2) + (Y^2)) = 1 /\ X = (cos` A)) -> (Y^2) = (1 - ((cos` A)^2)))
13		efifolem2.1	. . . . . . . . . . . . 13 |- A e. (0(,)(2 x. pi))
14		0re 5440	. . . . . . . . . . . . . 14 |- 0 e. RR
15		2re 5979	. . . . . . . . . . . . . . 15 |- 2 e. RR
16		pire 8677	. . . . . . . . . . . . . . 15 |- pi e. RR
17	15, 16	remulcl 5335	. . . . . . . . . . . . . 14 |- (2 x. pi) e. RR
18		elioo2t 6379	. . . . . . . . . . . . . . 15 |- ((0 e. RR* /\ (2 x. pi) e. RR*) -> (A e. (0(,)(2 x. pi)) <-> (A e. RR /\ 0 < A /\ A < (2 x. pi))))
19		rexrt 5499	. . . . . . . . . . . . . . 15 |- (0 e. RR -> 0 e. RR*)
20		rexrt 5499	. . . . . . . . . . . . . . 15 |- ((2 x. pi) e. RR -> (2 x. pi) e. RR*)
21	18, 19, 20	syl2an 454	. . . . . . . . . . . . . 14 |- ((0 e. RR /\ (2 x. pi) e. RR) -> (A e. (0(,)(2 x. pi)) <-> (A e. RR /\ 0 < A /\ A < (2 x. pi))))
22	14, 17, 21	mp2an 697	. . . . . . . . . . . . 13 |- (A e. (0(,)(2 x. pi)) <-> (A e. RR /\ 0 < A /\ A < (2 x. pi)))
23	13, 22	mpbi 189	. . . . . . . . . . . 12 |- (A e. RR /\ 0 < A /\ A < (2 x. pi))
24	23	3simp1i 791	. . . . . . . . . . 11 |- A e. RR
25	24	recn 5314	. . . . . . . . . 10 |- A e. CC
26		sincossqt 7461	. . . . . . . . . 10 |- (A e. CC -> (((sin` A)^2) + ((cos` A)^2)) = 1)
27	25, 26	ax-mp 7	. . . . . . . . 9 |- (((sin` A)^2) + ((cos` A)^2)) = 1
28		cosclt 7432	. . . . . . . . . . . 12 |- (A e. CC -> (cos` A) e. CC)
29	25, 28	ax-mp 7	. . . . . . . . . . 11 |- (cos` A) e. CC
30	29	sqcl 6615	. . . . . . . . . 10 |- ((cos` A)^2) e. CC
31		sinclt 7431	. . . . . . . . . . . 12 |- (A e. CC -> (sin` A) e. CC)
32	25, 31	ax-mp 7	. . . . . . . . . . 11 |- (sin` A) e. CC
33	32	sqcl 6615	. . . . . . . . . 10 |- ((sin` A)^2) e. CC
34	1, 30, 33	subadd2 5373	. . . . . . . . 9 |- ((1 - ((cos` A)^2)) = ((sin` A)^2) <-> (((sin` A)^2) + ((cos` A)^2)) = 1)
35	27, 34	mpbir 190	. . . . . . . 8 |- (1 - ((cos` A)^2)) = ((sin` A)^2)
36	12, 35	syl6eq 1523	. . . . . . 7 |- ((((X^2) + (Y^2)) = 1 /\ X = (cos` A)) -> (Y^2) = ((sin` A)^2))
37	6, 32	sqeqor 6647	. . . . . . 7 |- ((Y^2) = ((sin` A)^2) <-> (Y = (sin` A) \/ Y = -u(sin` A)))
38	36, 37	sylib 198	. . . . . 6 |- ((((X^2) + (Y^2)) = 1 /\ X = (cos` A)) -> (Y = (sin` A) \/ Y = -u(sin` A)))
39	38	ex 373	. . . . 5 |- (((X^2) + (Y^2)) = 1 -> (X = (cos` A) -> (Y = (sin` A) \/ Y = -u(sin` A))))
40	39	ancld 298	. . . 4 |- (((X^2) + (Y^2)) = 1 -> (X = (cos` A) -> (X = (cos` A) /\ (Y = (sin` A) \/ Y = -u(sin` A)))))
41	40	imp 350	. . 3 |- ((((X^2) + (Y^2)) = 1 /\ X = (cos` A)) -> (X = (cos` A) /\ (Y = (sin` A) \/ Y = -u(sin` A))))
42		andi 604	. . 3 |- ((X = (cos` A) /\ (Y = (sin` A) \/ Y = -u(sin` A))) <-> ((X = (cos` A) /\ Y = (sin` A)) \/ (X = (cos` A) /\ Y = -u(sin` A))))
43	41, 42	sylib 198	. 2 |- ((((X^2) + (Y^2)) = 1 /\ X = (cos` A)) -> ((X = (cos` A) /\ Y = (sin` A)) \/ (X = (cos` A) /\ Y = -u(sin` A))))
44		fveq2 3724	. . . . . . 7 |- (a = A -> (cos` a) = (cos` A))
45	44	eqeq2d 1486	. . . . . 6 |- (a = A -> (X = (cos` a) <-> X = (cos` A)))
46		fveq2 3724	. . . . . . 7 |- (a = A -> (sin` a) = (sin` A))
47	46	eqeq2d 1486	. . . . . 6 |- (a = A -> (Y = (sin` a) <-> Y = (sin` A)))
48	45, 47	anbi12d 628	. . . . 5 |- (a = A -> ((X = (cos` a) /\ Y = (sin` a)) <-> (X = (cos` A) /\ Y = (sin` A))))
49	48	rcla4ev 1877	. . . 4 |- ((A e. (0(,)(2 x. pi)) /\ (X = (cos` A) /\ Y = (sin` A))) -> E.a e. (0(,)(2 x. pi))(X = (cos` a) /\ Y = (sin` a)))
50	13, 49	mpan 695	. . 3 |- ((X = (cos` A) /\ Y = (sin` A)) -> E.a e. (0(,)(2 x. pi))(X = (cos` a) /\ Y = (sin` a)))
51		3ancomb 783	. . . . . . . 8 |- ((A e. RR /\ A < (2 x. pi) /\ 0 < A) <-> (A e. RR /\ 0 < A /\ A < (2 x. pi)))
52	17, 24	resubcl 5439	. . . . . . . . . 10 |- ((2 x. pi) - A) e. RR
53	24, 52	2th 718	. . . . . . . . 9 |- (A e. RR <-> ((2 x. pi) - A) e. RR)
54	24, 17	posdif 5665	. . . . . . . . 9 |- (A < (2 x. pi) <-> 0 < ((2 x. pi) - A))
55		ltsubpost 5653	. . . . . . . . . 10 |- ((A e. RR /\ (2 x. pi) e. RR) -> (0 < A <-> ((2 x. pi) - A) < (2 x. pi)))
56	24, 17, 55	mp2an 697	. . . . . . . . 9 |- (0 < A <-> ((2 x. pi) - A) < (2 x. pi))
57	53, 54, 56	3anbi123i 822	. . . . . . . 8 |- ((A e. RR /\ A < (2 x. pi) /\ 0 < A) <-> (((2 x. pi) - A) e. RR /\ 0 < ((2 x. pi) - A) /\ ((2 x. pi) - A) < (2 x. pi)))
58	51, 57	bitr3 175	. . . . . . 7 |- ((A e. RR /\ 0 < A /\ A < (2 x. pi)) <-> (((2 x. pi) - A) e. RR /\ 0 < ((2 x. pi) - A) /\ ((2 x. pi) - A) < (2 x. pi)))
59		elioo2t 6379	. . . . . . . . 9 |- ((0 e. RR* /\ (2 x. pi) e. RR*) -> (((2 x. pi) - A) e. (0(,)(2 x. pi)) <-> (((2 x. pi) - A) e. RR /\ 0 < ((2 x. pi) - A) /\ ((2 x. pi) - A) < (2 x. pi))))
60	59, 19, 20	syl2an 454	. . . . . . . 8 |- ((0 e. RR /\ (2 x. pi) e. RR) -> (((2 x. pi) - A) e. (0(,)(2 x. pi)) <-> (((2 x. pi) - A) e. RR /\ 0 < ((2 x. pi) - A) /\ ((2 x. pi) - A) < (2 x. pi))))
61	14, 17, 60	mp2an 697	. . . . . . 7 |- (((2 x. pi) - A) e. (0(,)(2 x. pi)) <-> (((2 x. pi) - A) e. RR /\ 0 < ((2 x. pi) - A) /\ ((2 x. pi) - A) < (2 x. pi)))
62	58, 22, 61	3bitr4 183	. . . . . 6 |- (A e. (0(,)(2 x. pi)) <-> ((2 x. pi) - A) e. (0(,)(2 x. pi)))
63	13, 62	mpbi 189	. . . . 5 |- ((2 x. pi) - A) e. (0(,)(2 x. pi))
64		fveq2 3724	. . . . . . . 8 |- (a = ((2 x. pi) - A) -> (cos` a) = (cos` ((2 x. pi) - A)))
65	64	eqeq2d 1486	. . . . . . 7 |- (a = ((2 x. pi) - A) -> (X = (cos` a) <-> X = (cos` ((2 x. pi) - A))))
66		fveq2 3724	. . . . . . . 8 |- (