Users' Mathboxes Mathbox for Glauco Siliprandi < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  fourierdlem10 Structured version   Visualization version   GIF version

Theorem fourierdlem10 46545
Description: Condition on the bounds of a nonempty subinterval. (Contributed by Glauco Siliprandi, 11-Dec-2019.)
Hypotheses
Ref Expression
fourierdlem10.1 (𝜑𝐴 ∈ ℝ)
fourierdlem10.2 (𝜑𝐵 ∈ ℝ)
fourierdlem10.3 (𝜑𝐶 ∈ ℝ)
fourierdlem10.4 (𝜑𝐷 ∈ ℝ)
fourierdlem10.5 (𝜑𝐶 < 𝐷)
fourierdlem10.6 (𝜑 → (𝐶(,)𝐷) ⊆ (𝐴(,)𝐵))
Assertion
Ref Expression
fourierdlem10 (𝜑 → (𝐴𝐶𝐷𝐵))

Proof of Theorem fourierdlem10
StepHypRef Expression
1 fourierdlem10.1 . . 3 (𝜑𝐴 ∈ ℝ)
2 fourierdlem10.3 . . 3 (𝜑𝐶 ∈ ℝ)
3 fourierdlem10.6 . . . . 5 (𝜑 → (𝐶(,)𝐷) ⊆ (𝐴(,)𝐵))
43adantr 480 . . . 4 ((𝜑𝐶 < 𝐴) → (𝐶(,)𝐷) ⊆ (𝐴(,)𝐵))
52rexrd 11195 . . . . . . 7 (𝜑𝐶 ∈ ℝ*)
65adantr 480 . . . . . 6 ((𝜑𝐶 < 𝐴) → 𝐶 ∈ ℝ*)
7 fourierdlem10.4 . . . . . . . 8 (𝜑𝐷 ∈ ℝ)
87rexrd 11195 . . . . . . 7 (𝜑𝐷 ∈ ℝ*)
98adantr 480 . . . . . 6 ((𝜑𝐶 < 𝐴) → 𝐷 ∈ ℝ*)
102, 1readdcld 11174 . . . . . . . . 9 (𝜑 → (𝐶 + 𝐴) ∈ ℝ)
1110rehalfcld 12424 . . . . . . . 8 (𝜑 → ((𝐶 + 𝐴) / 2) ∈ ℝ)
122, 7readdcld 11174 . . . . . . . . 9 (𝜑 → (𝐶 + 𝐷) ∈ ℝ)
1312rehalfcld 12424 . . . . . . . 8 (𝜑 → ((𝐶 + 𝐷) / 2) ∈ ℝ)
1411, 13ifcld 4513 . . . . . . 7 (𝜑 → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∈ ℝ)
1514adantr 480 . . . . . 6 ((𝜑𝐶 < 𝐴) → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∈ ℝ)
16 simplr 769 . . . . . . . . 9 (((𝜑𝐶 < 𝐴) ∧ 𝐴𝐷) → 𝐶 < 𝐴)
172ad2antrr 727 . . . . . . . . . 10 (((𝜑𝐶 < 𝐴) ∧ 𝐴𝐷) → 𝐶 ∈ ℝ)
181ad2antrr 727 . . . . . . . . . 10 (((𝜑𝐶 < 𝐴) ∧ 𝐴𝐷) → 𝐴 ∈ ℝ)
19 avglt1 12415 . . . . . . . . . 10 ((𝐶 ∈ ℝ ∧ 𝐴 ∈ ℝ) → (𝐶 < 𝐴𝐶 < ((𝐶 + 𝐴) / 2)))
2017, 18, 19syl2anc 585 . . . . . . . . 9 (((𝜑𝐶 < 𝐴) ∧ 𝐴𝐷) → (𝐶 < 𝐴𝐶 < ((𝐶 + 𝐴) / 2)))
2116, 20mpbid 232 . . . . . . . 8 (((𝜑𝐶 < 𝐴) ∧ 𝐴𝐷) → 𝐶 < ((𝐶 + 𝐴) / 2))
22 iftrue 4472 . . . . . . . . 9 (𝐴𝐷 → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) = ((𝐶 + 𝐴) / 2))
2322adantl 481 . . . . . . . 8 (((𝜑𝐶 < 𝐴) ∧ 𝐴𝐷) → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) = ((𝐶 + 𝐴) / 2))
2421, 23breqtrrd 5113 . . . . . . 7 (((𝜑𝐶 < 𝐴) ∧ 𝐴𝐷) → 𝐶 < if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)))
25 fourierdlem10.5 . . . . . . . . . . 11 (𝜑𝐶 < 𝐷)
2625adantr 480 . . . . . . . . . 10 ((𝜑 ∧ ¬ 𝐴𝐷) → 𝐶 < 𝐷)
272adantr 480 . . . . . . . . . . 11 ((𝜑 ∧ ¬ 𝐴𝐷) → 𝐶 ∈ ℝ)
287adantr 480 . . . . . . . . . . 11 ((𝜑 ∧ ¬ 𝐴𝐷) → 𝐷 ∈ ℝ)
29 avglt1 12415 . . . . . . . . . . 11 ((𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ) → (𝐶 < 𝐷𝐶 < ((𝐶 + 𝐷) / 2)))
3027, 28, 29syl2anc 585 . . . . . . . . . 10 ((𝜑 ∧ ¬ 𝐴𝐷) → (𝐶 < 𝐷𝐶 < ((𝐶 + 𝐷) / 2)))
3126, 30mpbid 232 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝐴𝐷) → 𝐶 < ((𝐶 + 𝐷) / 2))
32 iffalse 4475 . . . . . . . . . . 11 𝐴𝐷 → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) = ((𝐶 + 𝐷) / 2))
3332eqcomd 2742 . . . . . . . . . 10 𝐴𝐷 → ((𝐶 + 𝐷) / 2) = if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)))
3433adantl 481 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝐴𝐷) → ((𝐶 + 𝐷) / 2) = if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)))
3531, 34breqtrd 5111 . . . . . . . 8 ((𝜑 ∧ ¬ 𝐴𝐷) → 𝐶 < if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)))
3635adantlr 716 . . . . . . 7 (((𝜑𝐶 < 𝐴) ∧ ¬ 𝐴𝐷) → 𝐶 < if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)))
3724, 36pm2.61dan 813 . . . . . 6 ((𝜑𝐶 < 𝐴) → 𝐶 < if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)))
3822adantl 481 . . . . . . . . . 10 ((𝜑𝐴𝐷) → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) = ((𝐶 + 𝐴) / 2))
3910adantr 480 . . . . . . . . . . 11 ((𝜑𝐴𝐷) → (𝐶 + 𝐴) ∈ ℝ)
4012adantr 480 . . . . . . . . . . 11 ((𝜑𝐴𝐷) → (𝐶 + 𝐷) ∈ ℝ)
41 2rp 12947 . . . . . . . . . . . 12 2 ∈ ℝ+
4241a1i 11 . . . . . . . . . . 11 ((𝜑𝐴𝐷) → 2 ∈ ℝ+)
431adantr 480 . . . . . . . . . . . 12 ((𝜑𝐴𝐷) → 𝐴 ∈ ℝ)
447adantr 480 . . . . . . . . . . . 12 ((𝜑𝐴𝐷) → 𝐷 ∈ ℝ)
452adantr 480 . . . . . . . . . . . 12 ((𝜑𝐴𝐷) → 𝐶 ∈ ℝ)
46 simpr 484 . . . . . . . . . . . 12 ((𝜑𝐴𝐷) → 𝐴𝐷)
4743, 44, 45, 46leadd2dd 11765 . . . . . . . . . . 11 ((𝜑𝐴𝐷) → (𝐶 + 𝐴) ≤ (𝐶 + 𝐷))
4839, 40, 42, 47lediv1dd 13044 . . . . . . . . . 10 ((𝜑𝐴𝐷) → ((𝐶 + 𝐴) / 2) ≤ ((𝐶 + 𝐷) / 2))
4938, 48eqbrtrd 5107 . . . . . . . . 9 ((𝜑𝐴𝐷) → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ≤ ((𝐶 + 𝐷) / 2))
5032adantl 481 . . . . . . . . . 10 ((𝜑 ∧ ¬ 𝐴𝐷) → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) = ((𝐶 + 𝐷) / 2))
5113leidd 11716 . . . . . . . . . . 11 (𝜑 → ((𝐶 + 𝐷) / 2) ≤ ((𝐶 + 𝐷) / 2))
5251adantr 480 . . . . . . . . . 10 ((𝜑 ∧ ¬ 𝐴𝐷) → ((𝐶 + 𝐷) / 2) ≤ ((𝐶 + 𝐷) / 2))
5350, 52eqbrtrd 5107 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝐴𝐷) → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ≤ ((𝐶 + 𝐷) / 2))
5449, 53pm2.61dan 813 . . . . . . . 8 (𝜑 → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ≤ ((𝐶 + 𝐷) / 2))
55 avglt2 12416 . . . . . . . . . 10 ((𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ) → (𝐶 < 𝐷 ↔ ((𝐶 + 𝐷) / 2) < 𝐷))
562, 7, 55syl2anc 585 . . . . . . . . 9 (𝜑 → (𝐶 < 𝐷 ↔ ((𝐶 + 𝐷) / 2) < 𝐷))
5725, 56mpbid 232 . . . . . . . 8 (𝜑 → ((𝐶 + 𝐷) / 2) < 𝐷)
5814, 13, 7, 54, 57lelttrd 11304 . . . . . . 7 (𝜑 → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) < 𝐷)
5958adantr 480 . . . . . 6 ((𝜑𝐶 < 𝐴) → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) < 𝐷)
606, 9, 15, 37, 59eliood 45928 . . . . 5 ((𝜑𝐶 < 𝐴) → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∈ (𝐶(,)𝐷))
611adantr 480 . . . . . . . 8 ((𝜑𝐶 < 𝐴) → 𝐴 ∈ ℝ)
6211adantr 480 . . . . . . . . 9 ((𝜑𝐶 < 𝐴) → ((𝐶 + 𝐴) / 2) ∈ ℝ)
6314adantr 480 . . . . . . . . . . . 12 ((𝜑𝐴𝐷) → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∈ ℝ)
6463, 38eqled 11249 . . . . . . . . . . 11 ((𝜑𝐴𝐷) → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ≤ ((𝐶 + 𝐴) / 2))
6514adantr 480 . . . . . . . . . . . 12 ((𝜑 ∧ ¬ 𝐴𝐷) → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∈ ℝ)
6611adantr 480 . . . . . . . . . . . 12 ((𝜑 ∧ ¬ 𝐴𝐷) → ((𝐶 + 𝐴) / 2) ∈ ℝ)
67 simpr 484 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ¬ 𝐴𝐷) → ¬ 𝐴𝐷)
681adantr 480 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ¬ 𝐴𝐷) → 𝐴 ∈ ℝ)
6928, 68ltnled 11293 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ¬ 𝐴𝐷) → (𝐷 < 𝐴 ↔ ¬ 𝐴𝐷))
7067, 69mpbird 257 . . . . . . . . . . . . . 14 ((𝜑 ∧ ¬ 𝐴𝐷) → 𝐷 < 𝐴)
7112adantr 480 . . . . . . . . . . . . . . 15 ((𝜑𝐷 < 𝐴) → (𝐶 + 𝐷) ∈ ℝ)
7210adantr 480 . . . . . . . . . . . . . . 15 ((𝜑𝐷 < 𝐴) → (𝐶 + 𝐴) ∈ ℝ)
7341a1i 11 . . . . . . . . . . . . . . 15 ((𝜑𝐷 < 𝐴) → 2 ∈ ℝ+)
747adantr 480 . . . . . . . . . . . . . . . 16 ((𝜑𝐷 < 𝐴) → 𝐷 ∈ ℝ)
751adantr 480 . . . . . . . . . . . . . . . 16 ((𝜑𝐷 < 𝐴) → 𝐴 ∈ ℝ)
762adantr 480 . . . . . . . . . . . . . . . 16 ((𝜑𝐷 < 𝐴) → 𝐶 ∈ ℝ)
77 simpr 484 . . . . . . . . . . . . . . . 16 ((𝜑𝐷 < 𝐴) → 𝐷 < 𝐴)
7874, 75, 76, 77ltadd2dd 11305 . . . . . . . . . . . . . . 15 ((𝜑𝐷 < 𝐴) → (𝐶 + 𝐷) < (𝐶 + 𝐴))
7971, 72, 73, 78ltdiv1dd 13043 . . . . . . . . . . . . . 14 ((𝜑𝐷 < 𝐴) → ((𝐶 + 𝐷) / 2) < ((𝐶 + 𝐴) / 2))
8070, 79syldan 592 . . . . . . . . . . . . 13 ((𝜑 ∧ ¬ 𝐴𝐷) → ((𝐶 + 𝐷) / 2) < ((𝐶 + 𝐴) / 2))
8150, 80eqbrtrd 5107 . . . . . . . . . . . 12 ((𝜑 ∧ ¬ 𝐴𝐷) → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) < ((𝐶 + 𝐴) / 2))
8265, 66, 81ltled 11294 . . . . . . . . . . 11 ((𝜑 ∧ ¬ 𝐴𝐷) → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ≤ ((𝐶 + 𝐴) / 2))
8364, 82pm2.61dan 813 . . . . . . . . . 10 (𝜑 → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ≤ ((𝐶 + 𝐴) / 2))
8483adantr 480 . . . . . . . . 9 ((𝜑𝐶 < 𝐴) → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ≤ ((𝐶 + 𝐴) / 2))
85 simpr 484 . . . . . . . . . 10 ((𝜑𝐶 < 𝐴) → 𝐶 < 𝐴)
862adantr 480 . . . . . . . . . . 11 ((𝜑𝐶 < 𝐴) → 𝐶 ∈ ℝ)
87 avglt2 12416 . . . . . . . . . . 11 ((𝐶 ∈ ℝ ∧ 𝐴 ∈ ℝ) → (𝐶 < 𝐴 ↔ ((𝐶 + 𝐴) / 2) < 𝐴))
8886, 61, 87syl2anc 585 . . . . . . . . . 10 ((𝜑𝐶 < 𝐴) → (𝐶 < 𝐴 ↔ ((𝐶 + 𝐴) / 2) < 𝐴))
8985, 88mpbid 232 . . . . . . . . 9 ((𝜑𝐶 < 𝐴) → ((𝐶 + 𝐴) / 2) < 𝐴)
9015, 62, 61, 84, 89lelttrd 11304 . . . . . . . 8 ((𝜑𝐶 < 𝐴) → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) < 𝐴)
9115, 61, 90ltnsymd 11295 . . . . . . 7 ((𝜑𝐶 < 𝐴) → ¬ 𝐴 < if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)))
9291intn3an2d 1483 . . . . . 6 ((𝜑𝐶 < 𝐴) → ¬ (if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∈ ℝ ∧ 𝐴 < if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∧ if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) < 𝐵))
931rexrd 11195 . . . . . . . 8 (𝜑𝐴 ∈ ℝ*)
9493adantr 480 . . . . . . 7 ((𝜑𝐶 < 𝐴) → 𝐴 ∈ ℝ*)
95 fourierdlem10.2 . . . . . . . . 9 (𝜑𝐵 ∈ ℝ)
9695rexrd 11195 . . . . . . . 8 (𝜑𝐵 ∈ ℝ*)
9796adantr 480 . . . . . . 7 ((𝜑𝐶 < 𝐴) → 𝐵 ∈ ℝ*)
98 elioo2 13339 . . . . . . 7 ((𝐴 ∈ ℝ*𝐵 ∈ ℝ*) → (if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∈ (𝐴(,)𝐵) ↔ (if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∈ ℝ ∧ 𝐴 < if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∧ if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) < 𝐵)))
9994, 97, 98syl2anc 585 . . . . . 6 ((𝜑𝐶 < 𝐴) → (if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∈ (𝐴(,)𝐵) ↔ (if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∈ ℝ ∧ 𝐴 < if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∧ if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) < 𝐵)))
10092, 99mtbird 325 . . . . 5 ((𝜑𝐶 < 𝐴) → ¬ if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∈ (𝐴(,)𝐵))
101 nelss 3987 . . . . 5 ((if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∈ (𝐶(,)𝐷) ∧ ¬ if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∈ (𝐴(,)𝐵)) → ¬ (𝐶(,)𝐷) ⊆ (𝐴(,)𝐵))
10260, 100, 101syl2anc 585 . . . 4 ((𝜑𝐶 < 𝐴) → ¬ (𝐶(,)𝐷) ⊆ (𝐴(,)𝐵))
1034, 102pm2.65da 817 . . 3 (𝜑 → ¬ 𝐶 < 𝐴)
1041, 2, 103nltled 11296 . 2 (𝜑𝐴𝐶)
1053adantr 480 . . . 4 ((𝜑𝐵 < 𝐷) → (𝐶(,)𝐷) ⊆ (𝐴(,)𝐵))
1065adantr 480 . . . . . 6 ((𝜑𝐵 < 𝐷) → 𝐶 ∈ ℝ*)
1078adantr 480 . . . . . 6 ((𝜑𝐵 < 𝐷) → 𝐷 ∈ ℝ*)
10895, 7readdcld 11174 . . . . . . . . 9 (𝜑 → (𝐵 + 𝐷) ∈ ℝ)
109108rehalfcld 12424 . . . . . . . 8 (𝜑 → ((𝐵 + 𝐷) / 2) ∈ ℝ)
110109, 13ifcld 4513 . . . . . . 7 (𝜑 → if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) ∈ ℝ)
111110adantr 480 . . . . . 6 ((𝜑𝐵 < 𝐷) → if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) ∈ ℝ)
1122adantr 480 . . . . . . . . 9 ((𝜑𝐶𝐵) → 𝐶 ∈ ℝ)
11313adantr 480 . . . . . . . . 9 ((𝜑𝐶𝐵) → ((𝐶 + 𝐷) / 2) ∈ ℝ)
114110adantr 480 . . . . . . . . 9 ((𝜑𝐶𝐵) → if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) ∈ ℝ)
1152, 7, 29syl2anc 585 . . . . . . . . . . 11 (𝜑 → (𝐶 < 𝐷𝐶 < ((𝐶 + 𝐷) / 2)))
11625, 115mpbid 232 . . . . . . . . . 10 (𝜑𝐶 < ((𝐶 + 𝐷) / 2))
117116adantr 480 . . . . . . . . 9 ((𝜑𝐶𝐵) → 𝐶 < ((𝐶 + 𝐷) / 2))
11812adantr 480 . . . . . . . . . . 11 ((𝜑𝐶𝐵) → (𝐶 + 𝐷) ∈ ℝ)
119108adantr 480 . . . . . . . . . . 11 ((𝜑𝐶𝐵) → (𝐵 + 𝐷) ∈ ℝ)
12041a1i 11 . . . . . . . . . . 11 ((𝜑𝐶𝐵) → 2 ∈ ℝ+)
12195adantr 480 . . . . . . . . . . . 12 ((𝜑𝐶𝐵) → 𝐵 ∈ ℝ)
1227adantr 480 . . . . . . . . . . . 12 ((𝜑𝐶𝐵) → 𝐷 ∈ ℝ)
123 simpr 484 . . . . . . . . . . . 12 ((𝜑𝐶𝐵) → 𝐶𝐵)
124112, 121, 122, 123leadd1dd 11764 . . . . . . . . . . 11 ((𝜑𝐶𝐵) → (𝐶 + 𝐷) ≤ (𝐵 + 𝐷))
125118, 119, 120, 124lediv1dd 13044 . . . . . . . . . 10 ((𝜑𝐶𝐵) → ((𝐶 + 𝐷) / 2) ≤ ((𝐵 + 𝐷) / 2))
126 iftrue 4472 . . . . . . . . . . 11 (𝐶𝐵 → if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) = ((𝐵 + 𝐷) / 2))
127126adantl 481 . . . . . . . . . 10 ((𝜑𝐶𝐵) → if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) = ((𝐵 + 𝐷) / 2))
128125, 127breqtrrd 5113 . . . . . . . . 9 ((𝜑𝐶𝐵) → ((𝐶 + 𝐷) / 2) ≤ if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)))
129112, 113, 114, 117, 128ltletrd 11306 . . . . . . . 8 ((𝜑𝐶𝐵) → 𝐶 < if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)))
130116adantr 480 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝐶𝐵) → 𝐶 < ((𝐶 + 𝐷) / 2))
131 iffalse 4475 . . . . . . . . . . 11 𝐶𝐵 → if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) = ((𝐶 + 𝐷) / 2))
132131eqcomd 2742 . . . . . . . . . 10 𝐶𝐵 → ((𝐶 + 𝐷) / 2) = if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)))
133132adantl 481 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝐶𝐵) → ((𝐶 + 𝐷) / 2) = if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)))
134130, 133breqtrd 5111 . . . . . . . 8 ((𝜑 ∧ ¬ 𝐶𝐵) → 𝐶 < if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)))
135129, 134pm2.61dan 813 . . . . . . 7 (𝜑𝐶 < if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)))
136135adantr 480 . . . . . 6 ((𝜑𝐵 < 𝐷) → 𝐶 < if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)))
137126adantl 481 . . . . . . . 8 (((𝜑𝐵 < 𝐷) ∧ 𝐶𝐵) → if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) = ((𝐵 + 𝐷) / 2))
138 simpr 484 . . . . . . . . . 10 ((𝜑𝐵 < 𝐷) → 𝐵 < 𝐷)
13995adantr 480 . . . . . . . . . . 11 ((𝜑𝐵 < 𝐷) → 𝐵 ∈ ℝ)
1407adantr 480 . . . . . . . . . . 11 ((𝜑𝐵 < 𝐷) → 𝐷 ∈ ℝ)
141 avglt2 12416 . . . . . . . . . . 11 ((𝐵 ∈ ℝ ∧ 𝐷 ∈ ℝ) → (𝐵 < 𝐷 ↔ ((𝐵 + 𝐷) / 2) < 𝐷))
142139, 140, 141syl2anc 585 . . . . . . . . . 10 ((𝜑𝐵 < 𝐷) → (𝐵 < 𝐷 ↔ ((𝐵 + 𝐷) / 2) < 𝐷))
143138, 142mpbid 232 . . . . . . . . 9 ((𝜑𝐵 < 𝐷) → ((𝐵 + 𝐷) / 2) < 𝐷)
144143adantr 480 . . . . . . . 8 (((𝜑𝐵 < 𝐷) ∧ 𝐶𝐵) → ((𝐵 + 𝐷) / 2) < 𝐷)
145137, 144eqbrtrd 5107 . . . . . . 7 (((𝜑𝐵 < 𝐷) ∧ 𝐶𝐵) → if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) < 𝐷)
146131adantl 481 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝐶𝐵) → if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) = ((𝐶 + 𝐷) / 2))
14757adantr 480 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝐶𝐵) → ((𝐶 + 𝐷) / 2) < 𝐷)
148146, 147eqbrtrd 5107 . . . . . . . 8 ((𝜑 ∧ ¬ 𝐶𝐵) → if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) < 𝐷)
149148adantlr 716 . . . . . . 7 (((𝜑𝐵 < 𝐷) ∧ ¬ 𝐶𝐵) → if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) < 𝐷)
150145, 149pm2.61dan 813 . . . . . 6 ((𝜑𝐵 < 𝐷) → if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) < 𝐷)
151106, 107, 111, 136, 150eliood 45928 . . . . 5 ((𝜑𝐵 < 𝐷) → if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) ∈ (𝐶(,)𝐷))
152109adantr 480 . . . . . . . . . . . 12 ((𝜑𝐵 < 𝐷) → ((𝐵 + 𝐷) / 2) ∈ ℝ)
153 avglt1 12415 . . . . . . . . . . . . . 14 ((𝐵 ∈ ℝ ∧ 𝐷 ∈ ℝ) → (𝐵 < 𝐷𝐵 < ((𝐵 + 𝐷) / 2)))
154139, 140, 153syl2anc 585 . . . . . . . . . . . . 13 ((𝜑𝐵 < 𝐷) → (𝐵 < 𝐷𝐵 < ((𝐵 + 𝐷) / 2)))
155138, 154mpbid 232 . . . . . . . . . . . 12 ((𝜑𝐵 < 𝐷) → 𝐵 < ((𝐵 + 𝐷) / 2))
156139, 152, 155ltled 11294 . . . . . . . . . . 11 ((𝜑𝐵 < 𝐷) → 𝐵 ≤ ((𝐵 + 𝐷) / 2))
157156adantr 480 . . . . . . . . . 10 (((𝜑𝐵 < 𝐷) ∧ 𝐶𝐵) → 𝐵 ≤ ((𝐵 + 𝐷) / 2))
158157, 137breqtrrd 5113 . . . . . . . . 9 (((𝜑𝐵 < 𝐷) ∧ 𝐶𝐵) → 𝐵 ≤ if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)))
15995adantr 480 . . . . . . . . . . . 12 ((𝜑 ∧ ¬ 𝐶𝐵) → 𝐵 ∈ ℝ)
16013adantr 480 . . . . . . . . . . . 12 ((𝜑 ∧ ¬ 𝐶𝐵) → ((𝐶 + 𝐷) / 2) ∈ ℝ)
1612adantr 480 . . . . . . . . . . . . 13 ((𝜑 ∧ ¬ 𝐶𝐵) → 𝐶 ∈ ℝ)
162 simpr 484 . . . . . . . . . . . . . 14 ((𝜑 ∧ ¬ 𝐶𝐵) → ¬ 𝐶𝐵)
163159, 161ltnled 11293 . . . . . . . . . . . . . 14 ((𝜑 ∧ ¬ 𝐶𝐵) → (𝐵 < 𝐶 ↔ ¬ 𝐶𝐵))
164162, 163mpbird 257 . . . . . . . . . . . . 13 ((𝜑 ∧ ¬ 𝐶𝐵) → 𝐵 < 𝐶)
165159, 161, 160, 164, 130lttrd 11307 . . . . . . . . . . . 12 ((𝜑 ∧ ¬ 𝐶𝐵) → 𝐵 < ((𝐶 + 𝐷) / 2))
166159, 160, 165ltled 11294 . . . . . . . . . . 11 ((𝜑 ∧ ¬ 𝐶𝐵) → 𝐵 ≤ ((𝐶 + 𝐷) / 2))
167166, 133breqtrd 5111 . . . . . . . . . 10 ((𝜑 ∧ ¬ 𝐶𝐵) → 𝐵 ≤ if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)))
168167adantlr 716 . . . . . . . . 9 (((𝜑𝐵 < 𝐷) ∧ ¬ 𝐶𝐵) → 𝐵 ≤ if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)))
169158, 168pm2.61dan 813 . . . . . . . 8 ((𝜑𝐵 < 𝐷) → 𝐵 ≤ if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)))
170139, 111, 169lensymd 11297 . . . . . . 7 ((𝜑𝐵 < 𝐷) → ¬ if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) < 𝐵)
171170intn3an3d 1484 . . . . . 6 ((𝜑𝐵 < 𝐷) → ¬ (if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) ∈ ℝ ∧ 𝐴 < if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) ∧ if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) < 𝐵))
17293adantr 480 . . . . . . 7 ((𝜑𝐵 < 𝐷) → 𝐴 ∈ ℝ*)
17396adantr 480 . . . . . . 7 ((𝜑𝐵 < 𝐷) → 𝐵 ∈ ℝ*)
174 elioo2 13339 . . . . . . 7 ((𝐴 ∈ ℝ*𝐵 ∈ ℝ*) → (if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) ∈ (𝐴(,)𝐵) ↔ (if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) ∈ ℝ ∧ 𝐴 < if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) ∧ if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) < 𝐵)))
175172, 173, 174syl2anc 585 . . . . . 6 ((𝜑𝐵 < 𝐷) → (if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) ∈ (𝐴(,)𝐵) ↔ (if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) ∈ ℝ ∧ 𝐴 < if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) ∧ if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) < 𝐵)))
176171, 175mtbird 325 . . . . 5 ((𝜑𝐵 < 𝐷) → ¬ if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) ∈ (𝐴(,)𝐵))
177 nelss 3987 . . . . 5 ((if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) ∈ (𝐶(,)𝐷) ∧ ¬ if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) ∈ (𝐴(,)𝐵)) → ¬ (𝐶(,)𝐷) ⊆ (𝐴(,)𝐵))
178151, 176, 177syl2anc 585 . . . 4 ((𝜑𝐵 < 𝐷) → ¬ (𝐶(,)𝐷) ⊆ (𝐴(,)𝐵))
179105, 178pm2.65da 817 . . 3 (𝜑 → ¬ 𝐵 < 𝐷)
1807, 95, 179nltled 11296 . 2 (𝜑𝐷𝐵)
181104, 180jca 511 1 (𝜑 → (𝐴𝐶𝐷𝐵))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395  w3a 1087   = wceq 1542  wcel 2114  wss 3889  ifcif 4466   class class class wbr 5085  (class class class)co 7367  cr 11037   + caddc 11041  *cxr 11178   < clt 11179  cle 11180   / cdiv 11807  2c2 12236  +crp 12942  (,)cioo 13298
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2708  ax-sep 5231  ax-nul 5241  ax-pow 5307  ax-pr 5375  ax-un 7689  ax-cnex 11094  ax-resscn 11095  ax-1cn 11096  ax-icn 11097  ax-addcl 11098  ax-addrcl 11099  ax-mulcl 11100  ax-mulrcl 11101  ax-mulcom 11102  ax-addass 11103  ax-mulass 11104  ax-distr 11105  ax-i2m1 11106  ax-1ne0 11107  ax-1rid 11108  ax-rnegex 11109  ax-rrecex 11110  ax-cnre 11111  ax-pre-lttri 11112  ax-pre-lttrn 11113  ax-pre-ltadd 11114  ax-pre-mulgt0 11115
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2539  df-eu 2569  df-clab 2715  df-cleq 2728  df-clel 2811  df-nfc 2885  df-ne 2933  df-nel 3037  df-ral 3052  df-rex 3062  df-rmo 3342  df-reu 3343  df-rab 3390  df-v 3431  df-sbc 3729  df-csb 3838  df-dif 3892  df-un 3894  df-in 3896  df-ss 3906  df-pss 3909  df-nul 4274  df-if 4467  df-pw 4543  df-sn 4568  df-pr 4570  df-op 4574  df-uni 4851  df-iun 4935  df-br 5086  df-opab 5148  df-mpt 5167  df-tr 5193  df-id 5526  df-eprel 5531  df-po 5539  df-so 5540  df-fr 5584  df-we 5586  df-xp 5637  df-rel 5638  df-cnv 5639  df-co 5640  df-dm 5641  df-rn 5642  df-res 5643  df-ima 5644  df-pred 6265  df-ord 6326  df-on 6327  df-lim 6328  df-suc 6329  df-iota 6454  df-fun 6500  df-fn 6501  df-f 6502  df-f1 6503  df-fo 6504  df-f1o 6505  df-fv 6506  df-riota 7324  df-ov 7370  df-oprab 7371  df-mpo 7372  df-om 7818  df-1st 7942  df-2nd 7943  df-frecs 8231  df-wrecs 8262  df-recs 8311  df-rdg 8349  df-er 8643  df-en 8894  df-dom 8895  df-sdom 8896  df-pnf 11181  df-mnf 11182  df-xr 11183  df-ltxr 11184  df-le 11185  df-sub 11379  df-neg 11380  df-div 11808  df-nn 12175  df-2 12244  df-rp 12943  df-ioo 13302
This theorem is referenced by:  fourierdlem32  46567  fourierdlem33  46568  fourierdlem46  46580  fourierdlem50  46584  fourierdlem72  46606  fourierdlem76  46610  fourierdlem89  46623  fourierdlem91  46625  fourierdlem103  46637  fourierdlem104  46638
  Copyright terms: Public domain W3C validator