cosordlem - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > cosordlem		Structured version Visualization version GIF version

Theorem cosordlem 25695

Description: Lemma for cosord 25696. (Contributed by Mario Carneiro, 10-May-2014.)

**Hypotheses**
Ref	Expression
cosord.1	⊢ (𝜑 → 𝐴 ∈ (0[,]π))
cosord.2	⊢ (𝜑 → 𝐵 ∈ (0[,]π))
cosord.3	⊢ (𝜑 → 𝐴 < 𝐵)

**Assertion**
Ref	Expression
cosordlem	⊢ (𝜑 → (cos‘𝐵) < (cos‘𝐴))

**Proof of Theorem cosordlem**
Step	Hyp	Ref	Expression
1		cosord.2	. . . . . . 7 ⊢ (𝜑 → 𝐵 ∈ (0[,]π))
2		0re 10986	. . . . . . . 8 ⊢ 0 ∈ ℝ
3		pire 25624	. . . . . . . 8 ⊢ π ∈ ℝ
4	2, 3	elicc2i 13154	. . . . . . 7 ⊢ (𝐵 ∈ (0[,]π) ↔ (𝐵 ∈ ℝ ∧ 0 ≤ 𝐵 ∧ 𝐵 ≤ π))
5	1, 4	sylib 217	. . . . . 6 ⊢ (𝜑 → (𝐵 ∈ ℝ ∧ 0 ≤ 𝐵 ∧ 𝐵 ≤ π))
6	5	simp1d 1141	. . . . 5 ⊢ (𝜑 → 𝐵 ∈ ℝ)
7	6	recnd 11012	. . . 4 ⊢ (𝜑 → 𝐵 ∈ ℂ)
8		cosord.1	. . . . . . 7 ⊢ (𝜑 → 𝐴 ∈ (0[,]π))
9	2, 3	elicc2i 13154	. . . . . . 7 ⊢ (𝐴 ∈ (0[,]π) ↔ (𝐴 ∈ ℝ ∧ 0 ≤ 𝐴 ∧ 𝐴 ≤ π))
10	8, 9	sylib 217	. . . . . 6 ⊢ (𝜑 → (𝐴 ∈ ℝ ∧ 0 ≤ 𝐴 ∧ 𝐴 ≤ π))
11	10	simp1d 1141	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ ℝ)
12	11	recnd 11012	. . . 4 ⊢ (𝜑 → 𝐴 ∈ ℂ)
13		subcos 15893	. . . 4 ⊢ ((𝐵 ∈ ℂ ∧ 𝐴 ∈ ℂ) → ((cos‘𝐴) − (cos‘𝐵)) = (2 · ((sin‘((𝐵 + 𝐴) / 2)) · (sin‘((𝐵 − 𝐴) / 2)))))
14	7, 12, 13	syl2anc 584	. . 3 ⊢ (𝜑 → ((cos‘𝐴) − (cos‘𝐵)) = (2 · ((sin‘((𝐵 + 𝐴) / 2)) · (sin‘((𝐵 − 𝐴) / 2)))))
15		2rp 12744	. . . 4 ⊢ 2 ∈ ℝ⁺
16	6, 11	readdcld 11013	. . . . . . . 8 ⊢ (𝜑 → (𝐵 + 𝐴) ∈ ℝ)
17	16	rehalfcld 12229	. . . . . . 7 ⊢ (𝜑 → ((𝐵 + 𝐴) / 2) ∈ ℝ)
18	17	resincld 15861	. . . . . 6 ⊢ (𝜑 → (sin‘((𝐵 + 𝐴) / 2)) ∈ ℝ)
19	2	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → 0 ∈ ℝ)
20	10	simp2d 1142	. . . . . . . . . . 11 ⊢ (𝜑 → 0 ≤ 𝐴)
21		cosord.3	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐴 < 𝐵)
22	19, 11, 6, 20, 21	lelttrd 11142	. . . . . . . . . 10 ⊢ (𝜑 → 0 < 𝐵)
23	6, 11, 22, 20	addgtge0d 11558	. . . . . . . . 9 ⊢ (𝜑 → 0 < (𝐵 + 𝐴))
24		2re 12056	. . . . . . . . . 10 ⊢ 2 ∈ ℝ
25		2pos 12085	. . . . . . . . . 10 ⊢ 0 < 2
26		divgt0 11852	. . . . . . . . . 10 ⊢ ((((𝐵 + 𝐴) ∈ ℝ ∧ 0 < (𝐵 + 𝐴)) ∧ (2 ∈ ℝ ∧ 0 < 2)) → 0 < ((𝐵 + 𝐴) / 2))
27	24, 25, 26	mpanr12 702	. . . . . . . . 9 ⊢ (((𝐵 + 𝐴) ∈ ℝ ∧ 0 < (𝐵 + 𝐴)) → 0 < ((𝐵 + 𝐴) / 2))
28	16, 23, 27	syl2anc 584	. . . . . . . 8 ⊢ (𝜑 → 0 < ((𝐵 + 𝐴) / 2))
29	3	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → π ∈ ℝ)
30	11, 6, 6, 21	ltadd2dd 11143	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐵 + 𝐴) < (𝐵 + 𝐵))
31	7	2timesd 12225	. . . . . . . . . . 11 ⊢ (𝜑 → (2 · 𝐵) = (𝐵 + 𝐵))
32	30, 31	breqtrrd 5103	. . . . . . . . . 10 ⊢ (𝜑 → (𝐵 + 𝐴) < (2 · 𝐵))
33	24	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → 2 ∈ ℝ)
34	25	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → 0 < 2)
35		ltdivmul 11859	. . . . . . . . . . 11 ⊢ (((𝐵 + 𝐴) ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (2 ∈ ℝ ∧ 0 < 2)) → (((𝐵 + 𝐴) / 2) < 𝐵 ↔ (𝐵 + 𝐴) < (2 · 𝐵)))
36	16, 6, 33, 34, 35	syl112anc 1373	. . . . . . . . . 10 ⊢ (𝜑 → (((𝐵 + 𝐴) / 2) < 𝐵 ↔ (𝐵 + 𝐴) < (2 · 𝐵)))
37	32, 36	mpbird 256	. . . . . . . . 9 ⊢ (𝜑 → ((𝐵 + 𝐴) / 2) < 𝐵)
38	5	simp3d 1143	. . . . . . . . 9 ⊢ (𝜑 → 𝐵 ≤ π)
39	17, 6, 29, 37, 38	ltletrd 11144	. . . . . . . 8 ⊢ (𝜑 → ((𝐵 + 𝐴) / 2) < π)
40		0xr 11031	. . . . . . . . 9 ⊢ 0 ∈ ℝ^*
41	3	rexri 11042	. . . . . . . . 9 ⊢ π ∈ ℝ^*
42		elioo2 13129	. . . . . . . . 9 ⊢ ((0 ∈ ℝ^* ∧ π ∈ ℝ^*) → (((𝐵 + 𝐴) / 2) ∈ (0(,)π) ↔ (((𝐵 + 𝐴) / 2) ∈ ℝ ∧ 0 < ((𝐵 + 𝐴) / 2) ∧ ((𝐵 + 𝐴) / 2) < π)))
43	40, 41, 42	mp2an 689	. . . . . . . 8 ⊢ (((𝐵 + 𝐴) / 2) ∈ (0(,)π) ↔ (((𝐵 + 𝐴) / 2) ∈ ℝ ∧ 0 < ((𝐵 + 𝐴) / 2) ∧ ((𝐵 + 𝐴) / 2) < π))
44	17, 28, 39, 43	syl3anbrc 1342	. . . . . . 7 ⊢ (𝜑 → ((𝐵 + 𝐴) / 2) ∈ (0(,)π))
45		sinq12gt0 25673	. . . . . . 7 ⊢ (((𝐵 + 𝐴) / 2) ∈ (0(,)π) → 0 < (sin‘((𝐵 + 𝐴) / 2)))
46	44, 45	syl 17	. . . . . 6 ⊢ (𝜑 → 0 < (sin‘((𝐵 + 𝐴) / 2)))
47	18, 46	elrpd 12778	. . . . 5 ⊢ (𝜑 → (sin‘((𝐵 + 𝐴) / 2)) ∈ ℝ⁺)
48	6, 11	resubcld 11412	. . . . . . . 8 ⊢ (𝜑 → (𝐵 − 𝐴) ∈ ℝ)
49	48	rehalfcld 12229	. . . . . . 7 ⊢ (𝜑 → ((𝐵 − 𝐴) / 2) ∈ ℝ)
50	49	resincld 15861	. . . . . 6 ⊢ (𝜑 → (sin‘((𝐵 − 𝐴) / 2)) ∈ ℝ)
51	11, 6	posdifd 11571	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴 < 𝐵 ↔ 0 < (𝐵 − 𝐴)))
52	21, 51	mpbid 231	. . . . . . . . 9 ⊢ (𝜑 → 0 < (𝐵 − 𝐴))
53		divgt0 11852	. . . . . . . . . 10 ⊢ ((((𝐵 − 𝐴) ∈ ℝ ∧ 0 < (𝐵 − 𝐴)) ∧ (2 ∈ ℝ ∧ 0 < 2)) → 0 < ((𝐵 − 𝐴) / 2))
54	24, 25, 53	mpanr12 702	. . . . . . . . 9 ⊢ (((𝐵 − 𝐴) ∈ ℝ ∧ 0 < (𝐵 − 𝐴)) → 0 < ((𝐵 − 𝐴) / 2))
55	48, 52, 54	syl2anc 584	. . . . . . . 8 ⊢ (𝜑 → 0 < ((𝐵 − 𝐴) / 2))
56		rehalfcl 12208	. . . . . . . . . 10 ⊢ (π ∈ ℝ → (π / 2) ∈ ℝ)
57	3, 56	mp1i 13	. . . . . . . . 9 ⊢ (𝜑 → (π / 2) ∈ ℝ)
58	6, 11	subge02d 11576	. . . . . . . . . . . 12 ⊢ (𝜑 → (0 ≤ 𝐴 ↔ (𝐵 − 𝐴) ≤ 𝐵))
59	20, 58	mpbid 231	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐵 − 𝐴) ≤ 𝐵)
60	48, 6, 29, 59, 38	letrd 11141	. . . . . . . . . 10 ⊢ (𝜑 → (𝐵 − 𝐴) ≤ π)
61		lediv1 11849	. . . . . . . . . . 11 ⊢ (((𝐵 − 𝐴) ∈ ℝ ∧ π ∈ ℝ ∧ (2 ∈ ℝ ∧ 0 < 2)) → ((𝐵 − 𝐴) ≤ π ↔ ((𝐵 − 𝐴) / 2) ≤ (π / 2)))
62	48, 29, 33, 34, 61	syl112anc 1373	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐵 − 𝐴) ≤ π ↔ ((𝐵 − 𝐴) / 2) ≤ (π / 2)))
63	60, 62	mpbid 231	. . . . . . . . 9 ⊢ (𝜑 → ((𝐵 − 𝐴) / 2) ≤ (π / 2))
64		pirp 25627	. . . . . . . . . 10 ⊢ π ∈ ℝ⁺
65		rphalflt 12768	. . . . . . . . . 10 ⊢ (π ∈ ℝ⁺ → (π / 2) < π)
66	64, 65	mp1i 13	. . . . . . . . 9 ⊢ (𝜑 → (π / 2) < π)
67	49, 57, 29, 63, 66	lelttrd 11142	. . . . . . . 8 ⊢ (𝜑 → ((𝐵 − 𝐴) / 2) < π)
68		elioo2 13129	. . . . . . . . 9 ⊢ ((0 ∈ ℝ^* ∧ π ∈ ℝ^*) → (((𝐵 − 𝐴) / 2) ∈ (0(,)π) ↔ (((𝐵 − 𝐴) / 2) ∈ ℝ ∧ 0 < ((𝐵 − 𝐴) / 2) ∧ ((𝐵 − 𝐴) / 2) < π)))
69	40, 41, 68	mp2an 689	. . . . . . . 8 ⊢ (((𝐵 − 𝐴) / 2) ∈ (0(,)π) ↔ (((𝐵 − 𝐴) / 2) ∈ ℝ ∧ 0 < ((𝐵 − 𝐴) / 2) ∧ ((𝐵 − 𝐴) / 2) < π))
70	49, 55, 67, 69	syl3anbrc 1342	. . . . . . 7 ⊢ (𝜑 → ((𝐵 − 𝐴) / 2) ∈ (0(,)π))
71		sinq12gt0 25673	. . . . . . 7 ⊢ (((𝐵 − 𝐴) / 2) ∈ (0(,)π) → 0 < (sin‘((𝐵 − 𝐴) / 2)))
72	70, 71	syl 17	. . . . . 6 ⊢ (𝜑 → 0 < (sin‘((𝐵 − 𝐴) / 2)))
73	50, 72	elrpd 12778	. . . . 5 ⊢ (𝜑 → (sin‘((𝐵 − 𝐴) / 2)) ∈ ℝ⁺)
74	47, 73	rpmulcld 12797	. . . 4 ⊢ (𝜑 → ((sin‘((𝐵 + 𝐴) / 2)) · (sin‘((𝐵 − 𝐴) / 2))) ∈ ℝ⁺)
75		rpmulcl 12762	. . . 4 ⊢ ((2 ∈ ℝ⁺ ∧ ((sin‘((𝐵 + 𝐴) / 2)) · (sin‘((𝐵 − 𝐴) / 2))) ∈ ℝ⁺) → (2 · ((sin‘((𝐵 + 𝐴) / 2)) · (sin‘((𝐵 − 𝐴) / 2)))) ∈ ℝ⁺)
76	15, 74, 75	sylancr 587	. . 3 ⊢ (𝜑 → (2 · ((sin‘((𝐵 + 𝐴) / 2)) · (sin‘((𝐵 − 𝐴) / 2)))) ∈ ℝ⁺)
77	14, 76	eqeltrd 2840	. 2 ⊢ (𝜑 → ((cos‘𝐴) − (cos‘𝐵)) ∈ ℝ⁺)
78	6	recoscld 15862	. . 3 ⊢ (𝜑 → (cos‘𝐵) ∈ ℝ)
79	11	recoscld 15862	. . 3 ⊢ (𝜑 → (cos‘𝐴) ∈ ℝ)
80		difrp 12777	. . 3 ⊢ (((cos‘𝐵) ∈ ℝ ∧ (cos‘𝐴) ∈ ℝ) → ((cos‘𝐵) < (cos‘𝐴) ↔ ((cos‘𝐴) − (cos‘𝐵)) ∈ ℝ⁺))
81	78, 79, 80	syl2anc 584	. 2 ⊢ (𝜑 → ((cos‘𝐵) < (cos‘𝐴) ↔ ((cos‘𝐴) − (cos‘𝐵)) ∈ ℝ⁺))
82	77, 81	mpbird 256	1 ⊢ (𝜑 → (cos‘𝐵) < (cos‘𝐴))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 205 ∧ wa 396 ∧ w3a 1086 = wceq 1539 ∈ wcel 2107 class class class wbr 5075 ‘cfv 6437 (class class class)co 7284 ℂcc 10878 ℝcr 10879 0cc0 10880 + caddc 10883 · cmul 10885 ℝ^*cxr 11017 < clt 11018 ≤ cle 11019 − cmin 11214 / cdiv 11641 2c2 12037 ℝ⁺crp 12739 (,)cioo 13088 [,]cicc 13091 sincsin 15782 cosccos 15783 πcpi 15785

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1798 ax-4 1812 ax-5 1914 ax-6 1972 ax-7 2012 ax-8 2109 ax-9 2117 ax-10 2138 ax-11 2155 ax-12 2172 ax-ext 2710 ax-rep 5210 ax-sep 5224 ax-nul 5231 ax-pow 5289 ax-pr 5353 ax-un 7597 ax-inf2 9408 ax-cnex 10936 ax-resscn 10937 ax-1cn 10938 ax-icn 10939 ax-addcl 10940 ax-addrcl 10941 ax-mulcl 10942 ax-mulrcl 10943 ax-mulcom 10944 ax-addass 10945 ax-mulass 10946 ax-distr 10947 ax-i2m1 10948 ax-1ne0 10949 ax-1rid 10950 ax-rnegex 10951 ax-rrecex 10952 ax-cnre 10953 ax-pre-lttri 10954 ax-pre-lttrn 10955 ax-pre-ltadd 10956 ax-pre-mulgt0 10957 ax-pre-sup 10958 ax-addf 10959 ax-mulf 10960

This theorem depends on definitions: df-bi 206 df-an 397 df-or 845 df-3or 1087 df-3an 1088 df-tru 1542 df-fal 1552 df-ex 1783 df-nf 1787 df-sb 2069 df-mo 2541 df-eu 2570 df-clab 2717 df-cleq 2731 df-clel 2817 df-nfc 2890 df-ne 2945 df-nel 3051 df-ral 3070 df-rex 3071 df-rmo 3072 df-reu 3073 df-rab 3074 df-v 3435 df-sbc 3718 df-csb 3834 df-dif 3891 df-un 3893 df-in 3895 df-ss 3905 df-pss 3907 df-nul 4258 df-if 4461 df-pw 4536 df-sn 4563 df-pr 4565 df-tp 4567 df-op 4569 df-uni 4841 df-int 4881 df-iun 4927 df-iin 4928 df-br 5076 df-opab 5138 df-mpt 5159 df-tr 5193 df-id 5490 df-eprel 5496 df-po 5504 df-so 5505 df-fr 5545 df-se 5546 df-we 5547 df-xp 5596 df-rel 5597 df-cnv 5598 df-co 5599 df-dm 5600 df-rn 5601 df-res 5602 df-ima 5603 df-pred 6206 df-ord 6273 df-on 6274 df-lim 6275 df-suc 6276 df-iota 6395 df-fun 6439 df-fn 6440 df-f 6441 df-f1 6442 df-fo 6443 df-f1o 6444 df-fv 6445 df-isom 6446 df-riota 7241 df-ov 7287 df-oprab 7288 df-mpo 7289 df-of 7542 df-om 7722 df-1st 7840 df-2nd 7841 df-supp 7987 df-frecs 8106 df-wrecs 8137 df-recs 8211 df-rdg 8250 df-1o 8306 df-2o 8307 df-er 8507 df-map 8626 df-pm 8627 df-ixp 8695 df-en 8743 df-dom 8744 df-sdom 8745 df-fin 8746 df-fsupp 9138 df-fi 9179 df-sup 9210 df-inf 9211 df-oi 9278 df-card 9706 df-pnf 11020 df-mnf 11021 df-xr 11022 df-ltxr 11023 df-le 11024 df-sub 11216 df-neg 11217 df-div 11642 df-nn 11983 df-2 12045 df-3 12046 df-4 12047 df-5 12048 df-6 12049 df-7 12050 df-8 12051 df-9 12052 df-n0 12243 df-z 12329 df-dec 12447 df-uz 12592 df-q 12698 df-rp 12740 df-xneg 12857 df-xadd 12858 df-xmul 12859 df-ioo 13092 df-ioc 13093 df-ico 13094 df-icc 13095 df-fz 13249 df-fzo 13392 df-fl 13521 df-seq 13731 df-exp 13792 df-fac 13997 df-bc 14026 df-hash 14054 df-shft 14787 df-cj 14819 df-re 14820 df-im 14821 df-sqrt 14955 df-abs 14956 df-limsup 15189 df-clim 15206 df-rlim 15207 df-sum 15407 df-ef 15786 df-sin 15788 df-cos 15789 df-pi 15791 df-struct 16857 df-sets 16874 df-slot 16892 df-ndx 16904 df-base 16922 df-ress 16951 df-plusg 16984 df-mulr 16985 df-starv 16986 df-sca 16987 df-vsca 16988 df-ip 16989 df-tset 16990 df-ple 16991 df-ds 16993 df-unif 16994 df-hom 16995 df-cco 16996 df-rest 17142 df-topn 17143 df-0g 17161 df-gsum 17162 df-topgen 17163 df-pt 17164 df-prds 17167 df-xrs 17222 df-qtop 17227 df-imas 17228 df-xps 17230 df-mre 17304 df-mrc 17305 df-acs 17307 df-mgm 18335 df-sgrp 18384 df-mnd 18395 df-submnd 18440 df-mulg 18710 df-cntz 18932 df-cmn 19397 df-psmet 20598 df-xmet 20599 df-met 20600 df-bl 20601 df-mopn 20602 df-fbas 20603 df-fg 20604 df-cnfld 20607 df-top 22052 df-topon 22069 df-topsp 22091 df-bases 22105 df-cld 22179 df-ntr 22180 df-cls 22181 df-nei 22258 df-lp 22296 df-perf 22297 df-cn 22387 df-cnp 22388 df-haus 22475 df-tx 22722 df-hmeo 22915 df-fil 23006 df-fm 23098 df-flim 23099 df-flf 23100 df-xms 23482 df-ms 23483 df-tms 23484 df-cncf 24050 df-limc 25039 df-dv 25040

This theorem is referenced by: cosord 25696 cos0pilt1 25697

W3C validator