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 46718
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 485 . . . 4 ((𝜑𝐶 < 𝐴) → (𝐶(,)𝐷) ⊆ (𝐴(,)𝐵))
52rexrd 11255 . . . . . . 7 (𝜑𝐶 ∈ ℝ*)
65adantr 485 . . . . . 6 ((𝜑𝐶 < 𝐴) → 𝐶 ∈ ℝ*)
7 fourierdlem10.4 . . . . . . . 8 (𝜑𝐷 ∈ ℝ)
87rexrd 11255 . . . . . . 7 (𝜑𝐷 ∈ ℝ*)
98adantr 485 . . . . . 6 ((𝜑𝐶 < 𝐴) → 𝐷 ∈ ℝ*)
102, 1readdcld 11234 . . . . . . . . 9 (𝜑 → (𝐶 + 𝐴) ∈ ℝ)
1110rehalfcld 12487 . . . . . . . 8 (𝜑 → ((𝐶 + 𝐴) / 2) ∈ ℝ)
122, 7readdcld 11234 . . . . . . . . 9 (𝜑 → (𝐶 + 𝐷) ∈ ℝ)
1312rehalfcld 12487 . . . . . . . 8 (𝜑 → ((𝐶 + 𝐷) / 2) ∈ ℝ)
1411, 13ifcld 4536 . . . . . . 7 (𝜑 → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∈ ℝ)
1514adantr 485 . . . . . 6 ((𝜑𝐶 < 𝐴) → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∈ ℝ)
16 simplr 780 . . . . . . . . 9 (((𝜑𝐶 < 𝐴) ∧ 𝐴𝐷) → 𝐶 < 𝐴)
172ad2antrr 738 . . . . . . . . . 10 (((𝜑𝐶 < 𝐴) ∧ 𝐴𝐷) → 𝐶 ∈ ℝ)
181ad2antrr 738 . . . . . . . . . 10 (((𝜑𝐶 < 𝐴) ∧ 𝐴𝐷) → 𝐴 ∈ ℝ)
19 avglt1 12478 . . . . . . . . . 10 ((𝐶 ∈ ℝ ∧ 𝐴 ∈ ℝ) → (𝐶 < 𝐴𝐶 < ((𝐶 + 𝐴) / 2)))
2017, 18, 19syl2anc 595 . . . . . . . . 9 (((𝜑𝐶 < 𝐴) ∧ 𝐴𝐷) → (𝐶 < 𝐴𝐶 < ((𝐶 + 𝐴) / 2)))
2116, 20mpbid 235 . . . . . . . 8 (((𝜑𝐶 < 𝐴) ∧ 𝐴𝐷) → 𝐶 < ((𝐶 + 𝐴) / 2))
22 iftrue 4495 . . . . . . . . 9 (𝐴𝐷 → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) = ((𝐶 + 𝐴) / 2))
2322adantl 486 . . . . . . . 8 (((𝜑𝐶 < 𝐴) ∧ 𝐴𝐷) → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) = ((𝐶 + 𝐴) / 2))
2421, 23breqtrrd 5140 . . . . . . 7 (((𝜑𝐶 < 𝐴) ∧ 𝐴𝐷) → 𝐶 < if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)))
25 fourierdlem10.5 . . . . . . . . . . 11 (𝜑𝐶 < 𝐷)
2625adantr 485 . . . . . . . . . 10 ((𝜑 ∧ ¬ 𝐴𝐷) → 𝐶 < 𝐷)
272adantr 485 . . . . . . . . . . 11 ((𝜑 ∧ ¬ 𝐴𝐷) → 𝐶 ∈ ℝ)
287adantr 485 . . . . . . . . . . 11 ((𝜑 ∧ ¬ 𝐴𝐷) → 𝐷 ∈ ℝ)
29 avglt1 12478 . . . . . . . . . . 11 ((𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ) → (𝐶 < 𝐷𝐶 < ((𝐶 + 𝐷) / 2)))
3027, 28, 29syl2anc 595 . . . . . . . . . 10 ((𝜑 ∧ ¬ 𝐴𝐷) → (𝐶 < 𝐷𝐶 < ((𝐶 + 𝐷) / 2)))
3126, 30mpbid 235 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝐴𝐷) → 𝐶 < ((𝐶 + 𝐷) / 2))
32 iffalse 4498 . . . . . . . . . . 11 𝐴𝐷 → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) = ((𝐶 + 𝐷) / 2))
3332eqcomd 2775 . . . . . . . . . 10 𝐴𝐷 → ((𝐶 + 𝐷) / 2) = if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)))
3433adantl 486 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝐴𝐷) → ((𝐶 + 𝐷) / 2) = if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)))
3531, 34breqtrd 5138 . . . . . . . 8 ((𝜑 ∧ ¬ 𝐴𝐷) → 𝐶 < if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)))
3635adantlr 727 . . . . . . 7 (((𝜑𝐶 < 𝐴) ∧ ¬ 𝐴𝐷) → 𝐶 < if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)))
3724, 36pm2.61dan 824 . . . . . 6 ((𝜑𝐶 < 𝐴) → 𝐶 < if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)))
3822adantl 486 . . . . . . . . . 10 ((𝜑𝐴𝐷) → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) = ((𝐶 + 𝐴) / 2))
3910adantr 485 . . . . . . . . . . 11 ((𝜑𝐴𝐷) → (𝐶 + 𝐴) ∈ ℝ)
4012adantr 485 . . . . . . . . . . 11 ((𝜑𝐴𝐷) → (𝐶 + 𝐷) ∈ ℝ)
41 2rp 13017 . . . . . . . . . . . 12 2 ∈ ℝ+
4241a1i 11 . . . . . . . . . . 11 ((𝜑𝐴𝐷) → 2 ∈ ℝ+)
431adantr 485 . . . . . . . . . . . 12 ((𝜑𝐴𝐷) → 𝐴 ∈ ℝ)
447adantr 485 . . . . . . . . . . . 12 ((𝜑𝐴𝐷) → 𝐷 ∈ ℝ)
452adantr 485 . . . . . . . . . . . 12 ((𝜑𝐴𝐷) → 𝐶 ∈ ℝ)
46 simpr 489 . . . . . . . . . . . 12 ((𝜑𝐴𝐷) → 𝐴𝐷)
4743, 44, 45, 46leadd2dd 11825 . . . . . . . . . . 11 ((𝜑𝐴𝐷) → (𝐶 + 𝐴) ≤ (𝐶 + 𝐷))
4839, 40, 42, 47lediv1dd 13114 . . . . . . . . . 10 ((𝜑𝐴𝐷) → ((𝐶 + 𝐴) / 2) ≤ ((𝐶 + 𝐷) / 2))
4938, 48eqbrtrd 5134 . . . . . . . . 9 ((𝜑𝐴𝐷) → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ≤ ((𝐶 + 𝐷) / 2))
5032adantl 486 . . . . . . . . . 10 ((𝜑 ∧ ¬ 𝐴𝐷) → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) = ((𝐶 + 𝐷) / 2))
5113leidd 11776 . . . . . . . . . . 11 (𝜑 → ((𝐶 + 𝐷) / 2) ≤ ((𝐶 + 𝐷) / 2))
5251adantr 485 . . . . . . . . . 10 ((𝜑 ∧ ¬ 𝐴𝐷) → ((𝐶 + 𝐷) / 2) ≤ ((𝐶 + 𝐷) / 2))
5350, 52eqbrtrd 5134 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝐴𝐷) → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ≤ ((𝐶 + 𝐷) / 2))
5449, 53pm2.61dan 824 . . . . . . . 8 (𝜑 → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ≤ ((𝐶 + 𝐷) / 2))
55 avglt2 12479 . . . . . . . . . 10 ((𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ) → (𝐶 < 𝐷 ↔ ((𝐶 + 𝐷) / 2) < 𝐷))
562, 7, 55syl2anc 595 . . . . . . . . 9 (𝜑 → (𝐶 < 𝐷 ↔ ((𝐶 + 𝐷) / 2) < 𝐷))
5725, 56mpbid 235 . . . . . . . 8 (𝜑 → ((𝐶 + 𝐷) / 2) < 𝐷)
5814, 13, 7, 54, 57lelttrd 11364 . . . . . . 7 (𝜑 → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) < 𝐷)
5958adantr 485 . . . . . 6 ((𝜑𝐶 < 𝐴) → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) < 𝐷)
606, 9, 15, 37, 59eliood 46101 . . . . 5 ((𝜑𝐶 < 𝐴) → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∈ (𝐶(,)𝐷))
611adantr 485 . . . . . . . 8 ((𝜑𝐶 < 𝐴) → 𝐴 ∈ ℝ)
6211adantr 485 . . . . . . . . 9 ((𝜑𝐶 < 𝐴) → ((𝐶 + 𝐴) / 2) ∈ ℝ)
6314adantr 485 . . . . . . . . . . . 12 ((𝜑𝐴𝐷) → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∈ ℝ)
6463, 38eqled 11309 . . . . . . . . . . 11 ((𝜑𝐴𝐷) → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ≤ ((𝐶 + 𝐴) / 2))
6514adantr 485 . . . . . . . . . . . 12 ((𝜑 ∧ ¬ 𝐴𝐷) → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∈ ℝ)
6611adantr 485 . . . . . . . . . . . 12 ((𝜑 ∧ ¬ 𝐴𝐷) → ((𝐶 + 𝐴) / 2) ∈ ℝ)
67 simpr 489 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ¬ 𝐴𝐷) → ¬ 𝐴𝐷)
681adantr 485 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ¬ 𝐴𝐷) → 𝐴 ∈ ℝ)
6928, 68ltnled 11353 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ¬ 𝐴𝐷) → (𝐷 < 𝐴 ↔ ¬ 𝐴𝐷))
7067, 69mpbird 260 . . . . . . . . . . . . . 14 ((𝜑 ∧ ¬ 𝐴𝐷) → 𝐷 < 𝐴)
7112adantr 485 . . . . . . . . . . . . . . 15 ((𝜑𝐷 < 𝐴) → (𝐶 + 𝐷) ∈ ℝ)
7210adantr 485 . . . . . . . . . . . . . . 15 ((𝜑𝐷 < 𝐴) → (𝐶 + 𝐴) ∈ ℝ)
7341a1i 11 . . . . . . . . . . . . . . 15 ((𝜑𝐷 < 𝐴) → 2 ∈ ℝ+)
747adantr 485 . . . . . . . . . . . . . . . 16 ((𝜑𝐷 < 𝐴) → 𝐷 ∈ ℝ)
751adantr 485 . . . . . . . . . . . . . . . 16 ((𝜑𝐷 < 𝐴) → 𝐴 ∈ ℝ)
762adantr 485 . . . . . . . . . . . . . . . 16 ((𝜑𝐷 < 𝐴) → 𝐶 ∈ ℝ)
77 simpr 489 . . . . . . . . . . . . . . . 16 ((𝜑𝐷 < 𝐴) → 𝐷 < 𝐴)
7874, 75, 76, 77ltadd2dd 11365 . . . . . . . . . . . . . . 15 ((𝜑𝐷 < 𝐴) → (𝐶 + 𝐷) < (𝐶 + 𝐴))
7971, 72, 73, 78ltdiv1dd 13113 . . . . . . . . . . . . . 14 ((𝜑𝐷 < 𝐴) → ((𝐶 + 𝐷) / 2) < ((𝐶 + 𝐴) / 2))
8070, 79syldan 602 . . . . . . . . . . . . 13 ((𝜑 ∧ ¬ 𝐴𝐷) → ((𝐶 + 𝐷) / 2) < ((𝐶 + 𝐴) / 2))
8150, 80eqbrtrd 5134 . . . . . . . . . . . 12 ((𝜑 ∧ ¬ 𝐴𝐷) → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) < ((𝐶 + 𝐴) / 2))
8265, 66, 81ltled 11354 . . . . . . . . . . 11 ((𝜑 ∧ ¬ 𝐴𝐷) → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ≤ ((𝐶 + 𝐴) / 2))
8364, 82pm2.61dan 824 . . . . . . . . . 10 (𝜑 → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ≤ ((𝐶 + 𝐴) / 2))
8483adantr 485 . . . . . . . . 9 ((𝜑𝐶 < 𝐴) → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ≤ ((𝐶 + 𝐴) / 2))
85 simpr 489 . . . . . . . . . 10 ((𝜑𝐶 < 𝐴) → 𝐶 < 𝐴)
862adantr 485 . . . . . . . . . . 11 ((𝜑𝐶 < 𝐴) → 𝐶 ∈ ℝ)
87 avglt2 12479 . . . . . . . . . . 11 ((𝐶 ∈ ℝ ∧ 𝐴 ∈ ℝ) → (𝐶 < 𝐴 ↔ ((𝐶 + 𝐴) / 2) < 𝐴))
8886, 61, 87syl2anc 595 . . . . . . . . . 10 ((𝜑𝐶 < 𝐴) → (𝐶 < 𝐴 ↔ ((𝐶 + 𝐴) / 2) < 𝐴))
8985, 88mpbid 235 . . . . . . . . 9 ((𝜑𝐶 < 𝐴) → ((𝐶 + 𝐴) / 2) < 𝐴)
9015, 62, 61, 84, 89lelttrd 11364 . . . . . . . 8 ((𝜑𝐶 < 𝐴) → if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) < 𝐴)
9115, 61, 90ltnsymd 11355 . . . . . . 7 ((𝜑𝐶 < 𝐴) → ¬ 𝐴 < if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)))
9291intn3an2d 1508 . . . . . 6 ((𝜑𝐶 < 𝐴) → ¬ (if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∈ ℝ ∧ 𝐴 < if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∧ if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) < 𝐵))
931rexrd 11255 . . . . . . . 8 (𝜑𝐴 ∈ ℝ*)
9493adantr 485 . . . . . . 7 ((𝜑𝐶 < 𝐴) → 𝐴 ∈ ℝ*)
95 fourierdlem10.2 . . . . . . . . 9 (𝜑𝐵 ∈ ℝ)
9695rexrd 11255 . . . . . . . 8 (𝜑𝐵 ∈ ℝ*)
9796adantr 485 . . . . . . 7 ((𝜑𝐶 < 𝐴) → 𝐵 ∈ ℝ*)
98 elioo2 13409 . . . . . . 7 ((𝐴 ∈ ℝ*𝐵 ∈ ℝ*) → (if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∈ (𝐴(,)𝐵) ↔ (if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∈ ℝ ∧ 𝐴 < if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∧ if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) < 𝐵)))
9994, 97, 98syl2anc 595 . . . . . 6 ((𝜑𝐶 < 𝐴) → (if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∈ (𝐴(,)𝐵) ↔ (if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∈ ℝ ∧ 𝐴 < if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∧ if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) < 𝐵)))
10092, 99mtbird 328 . . . . 5 ((𝜑𝐶 < 𝐴) → ¬ if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∈ (𝐴(,)𝐵))
101 nelss 4011 . . . . 5 ((if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∈ (𝐶(,)𝐷) ∧ ¬ if(𝐴𝐷, ((𝐶 + 𝐴) / 2), ((𝐶 + 𝐷) / 2)) ∈ (𝐴(,)𝐵)) → ¬ (𝐶(,)𝐷) ⊆ (𝐴(,)𝐵))
10260, 100, 101syl2anc 595 . . . 4 ((𝜑𝐶 < 𝐴) → ¬ (𝐶(,)𝐷) ⊆ (𝐴(,)𝐵))
1034, 102pm2.65da 828 . . 3 (𝜑 → ¬ 𝐶 < 𝐴)
1041, 2, 103nltled 11356 . 2 (𝜑𝐴𝐶)
1053adantr 485 . . . 4 ((𝜑𝐵 < 𝐷) → (𝐶(,)𝐷) ⊆ (𝐴(,)𝐵))
1065adantr 485 . . . . . 6 ((𝜑𝐵 < 𝐷) → 𝐶 ∈ ℝ*)
1078adantr 485 . . . . . 6 ((𝜑𝐵 < 𝐷) → 𝐷 ∈ ℝ*)
10895, 7readdcld 11234 . . . . . . . . 9 (𝜑 → (𝐵 + 𝐷) ∈ ℝ)
109108rehalfcld 12487 . . . . . . . 8 (𝜑 → ((𝐵 + 𝐷) / 2) ∈ ℝ)
110109, 13ifcld 4536 . . . . . . 7 (𝜑 → if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) ∈ ℝ)
111110adantr 485 . . . . . 6 ((𝜑𝐵 < 𝐷) → if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) ∈ ℝ)
1122adantr 485 . . . . . . . . 9 ((𝜑𝐶𝐵) → 𝐶 ∈ ℝ)
11313adantr 485 . . . . . . . . 9 ((𝜑𝐶𝐵) → ((𝐶 + 𝐷) / 2) ∈ ℝ)
114110adantr 485 . . . . . . . . 9 ((𝜑𝐶𝐵) → if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) ∈ ℝ)
1152, 7, 29syl2anc 595 . . . . . . . . . . 11 (𝜑 → (𝐶 < 𝐷𝐶 < ((𝐶 + 𝐷) / 2)))
11625, 115mpbid 235 . . . . . . . . . 10 (𝜑𝐶 < ((𝐶 + 𝐷) / 2))
117116adantr 485 . . . . . . . . 9 ((𝜑𝐶𝐵) → 𝐶 < ((𝐶 + 𝐷) / 2))
11812adantr 485 . . . . . . . . . . 11 ((𝜑𝐶𝐵) → (𝐶 + 𝐷) ∈ ℝ)
119108adantr 485 . . . . . . . . . . 11 ((𝜑𝐶𝐵) → (𝐵 + 𝐷) ∈ ℝ)
12041a1i 11 . . . . . . . . . . 11 ((𝜑𝐶𝐵) → 2 ∈ ℝ+)
12195adantr 485 . . . . . . . . . . . 12 ((𝜑𝐶𝐵) → 𝐵 ∈ ℝ)
1227adantr 485 . . . . . . . . . . . 12 ((𝜑𝐶𝐵) → 𝐷 ∈ ℝ)
123 simpr 489 . . . . . . . . . . . 12 ((𝜑𝐶𝐵) → 𝐶𝐵)
124112, 121, 122, 123leadd1dd 11824 . . . . . . . . . . 11 ((𝜑𝐶𝐵) → (𝐶 + 𝐷) ≤ (𝐵 + 𝐷))
125118, 119, 120, 124lediv1dd 13114 . . . . . . . . . 10 ((𝜑𝐶𝐵) → ((𝐶 + 𝐷) / 2) ≤ ((𝐵 + 𝐷) / 2))
126 iftrue 4495 . . . . . . . . . . 11 (𝐶𝐵 → if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) = ((𝐵 + 𝐷) / 2))
127126adantl 486 . . . . . . . . . 10 ((𝜑𝐶𝐵) → if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) = ((𝐵 + 𝐷) / 2))
128125, 127breqtrrd 5140 . . . . . . . . 9 ((𝜑𝐶𝐵) → ((𝐶 + 𝐷) / 2) ≤ if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)))
129112, 113, 114, 117, 128ltletrd 11366 . . . . . . . 8 ((𝜑𝐶𝐵) → 𝐶 < if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)))
130116adantr 485 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝐶𝐵) → 𝐶 < ((𝐶 + 𝐷) / 2))
131 iffalse 4498 . . . . . . . . . . 11 𝐶𝐵 → if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) = ((𝐶 + 𝐷) / 2))
132131eqcomd 2775 . . . . . . . . . 10 𝐶𝐵 → ((𝐶 + 𝐷) / 2) = if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)))
133132adantl 486 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝐶𝐵) → ((𝐶 + 𝐷) / 2) = if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)))
134130, 133breqtrd 5138 . . . . . . . 8 ((𝜑 ∧ ¬ 𝐶𝐵) → 𝐶 < if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)))
135129, 134pm2.61dan 824 . . . . . . 7 (𝜑𝐶 < if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)))
136135adantr 485 . . . . . 6 ((𝜑𝐵 < 𝐷) → 𝐶 < if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)))
137126adantl 486 . . . . . . . 8 (((𝜑𝐵 < 𝐷) ∧ 𝐶𝐵) → if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) = ((𝐵 + 𝐷) / 2))
138 simpr 489 . . . . . . . . . 10 ((𝜑𝐵 < 𝐷) → 𝐵 < 𝐷)
13995adantr 485 . . . . . . . . . . 11 ((𝜑𝐵 < 𝐷) → 𝐵 ∈ ℝ)
1407adantr 485 . . . . . . . . . . 11 ((𝜑𝐵 < 𝐷) → 𝐷 ∈ ℝ)
141 avglt2 12479 . . . . . . . . . . 11 ((𝐵 ∈ ℝ ∧ 𝐷 ∈ ℝ) → (𝐵 < 𝐷 ↔ ((𝐵 + 𝐷) / 2) < 𝐷))
142139, 140, 141syl2anc 595 . . . . . . . . . 10 ((𝜑𝐵 < 𝐷) → (𝐵 < 𝐷 ↔ ((𝐵 + 𝐷) / 2) < 𝐷))
143138, 142mpbid 235 . . . . . . . . 9 ((𝜑𝐵 < 𝐷) → ((𝐵 + 𝐷) / 2) < 𝐷)
144143adantr 485 . . . . . . . 8 (((𝜑𝐵 < 𝐷) ∧ 𝐶𝐵) → ((𝐵 + 𝐷) / 2) < 𝐷)
145137, 144eqbrtrd 5134 . . . . . . 7 (((𝜑𝐵 < 𝐷) ∧ 𝐶𝐵) → if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) < 𝐷)
146131adantl 486 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝐶𝐵) → if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) = ((𝐶 + 𝐷) / 2))
14757adantr 485 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝐶𝐵) → ((𝐶 + 𝐷) / 2) < 𝐷)
148146, 147eqbrtrd 5134 . . . . . . . 8 ((𝜑 ∧ ¬ 𝐶𝐵) → if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) < 𝐷)
149148adantlr 727 . . . . . . 7 (((𝜑𝐵 < 𝐷) ∧ ¬ 𝐶𝐵) → if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) < 𝐷)
150145, 149pm2.61dan 824 . . . . . 6 ((𝜑𝐵 < 𝐷) → if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) < 𝐷)
151106, 107, 111, 136, 150eliood 46101 . . . . 5 ((𝜑𝐵 < 𝐷) → if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) ∈ (𝐶(,)𝐷))
152109adantr 485 . . . . . . . . . . . 12 ((𝜑𝐵 < 𝐷) → ((𝐵 + 𝐷) / 2) ∈ ℝ)
153 avglt1 12478 . . . . . . . . . . . . . 14 ((𝐵 ∈ ℝ ∧ 𝐷 ∈ ℝ) → (𝐵 < 𝐷𝐵 < ((𝐵 + 𝐷) / 2)))
154139, 140, 153syl2anc 595 . . . . . . . . . . . . 13 ((𝜑𝐵 < 𝐷) → (𝐵 < 𝐷𝐵 < ((𝐵 + 𝐷) / 2)))
155138, 154mpbid 235 . . . . . . . . . . . 12 ((𝜑𝐵 < 𝐷) → 𝐵 < ((𝐵 + 𝐷) / 2))
156139, 152, 155ltled 11354 . . . . . . . . . . 11 ((𝜑𝐵 < 𝐷) → 𝐵 ≤ ((𝐵 + 𝐷) / 2))
157156adantr 485 . . . . . . . . . 10 (((𝜑𝐵 < 𝐷) ∧ 𝐶𝐵) → 𝐵 ≤ ((𝐵 + 𝐷) / 2))
158157, 137breqtrrd 5140 . . . . . . . . 9 (((𝜑𝐵 < 𝐷) ∧ 𝐶𝐵) → 𝐵 ≤ if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)))
15995adantr 485 . . . . . . . . . . . 12 ((𝜑 ∧ ¬ 𝐶𝐵) → 𝐵 ∈ ℝ)
16013adantr 485 . . . . . . . . . . . 12 ((𝜑 ∧ ¬ 𝐶𝐵) → ((𝐶 + 𝐷) / 2) ∈ ℝ)
1612adantr 485 . . . . . . . . . . . . 13 ((𝜑 ∧ ¬ 𝐶𝐵) → 𝐶 ∈ ℝ)
162 simpr 489 . . . . . . . . . . . . . 14 ((𝜑 ∧ ¬ 𝐶𝐵) → ¬ 𝐶𝐵)
163159, 161ltnled 11353 . . . . . . . . . . . . . 14 ((𝜑 ∧ ¬ 𝐶𝐵) → (𝐵 < 𝐶 ↔ ¬ 𝐶𝐵))
164162, 163mpbird 260 . . . . . . . . . . . . 13 ((𝜑 ∧ ¬ 𝐶𝐵) → 𝐵 < 𝐶)
165159, 161, 160, 164, 130lttrd 11367 . . . . . . . . . . . 12 ((𝜑 ∧ ¬ 𝐶𝐵) → 𝐵 < ((𝐶 + 𝐷) / 2))
166159, 160, 165ltled 11354 . . . . . . . . . . 11 ((𝜑 ∧ ¬ 𝐶𝐵) → 𝐵 ≤ ((𝐶 + 𝐷) / 2))
167166, 133breqtrd 5138 . . . . . . . . . 10 ((𝜑 ∧ ¬ 𝐶𝐵) → 𝐵 ≤ if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)))
168167adantlr 727 . . . . . . . . 9 (((𝜑𝐵 < 𝐷) ∧ ¬ 𝐶𝐵) → 𝐵 ≤ if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)))
169158, 168pm2.61dan 824 . . . . . . . 8 ((𝜑𝐵 < 𝐷) → 𝐵 ≤ if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)))
170139, 111, 169lensymd 11357 . . . . . . 7 ((𝜑𝐵 < 𝐷) → ¬ if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) < 𝐵)
171170intn3an3d 1509 . . . . . 6 ((𝜑𝐵 < 𝐷) → ¬ (if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) ∈ ℝ ∧ 𝐴 < if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) ∧ if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) < 𝐵))
17293adantr 485 . . . . . . 7 ((𝜑𝐵 < 𝐷) → 𝐴 ∈ ℝ*)
17396adantr 485 . . . . . . 7 ((𝜑𝐵 < 𝐷) → 𝐵 ∈ ℝ*)
174 elioo2 13409 . . . . . . 7 ((𝐴 ∈ ℝ*𝐵 ∈ ℝ*) → (if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) ∈ (𝐴(,)𝐵) ↔ (if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) ∈ ℝ ∧ 𝐴 < if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) ∧ if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) < 𝐵)))
175172, 173, 174syl2anc 595 . . . . . 6 ((𝜑𝐵 < 𝐷) → (if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) ∈ (𝐴(,)𝐵) ↔ (if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) ∈ ℝ ∧ 𝐴 < if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) ∧ if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) < 𝐵)))
176171, 175mtbird 328 . . . . 5 ((𝜑𝐵 < 𝐷) → ¬ if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) ∈ (𝐴(,)𝐵))
177 nelss 4011 . . . . 5 ((if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) ∈ (𝐶(,)𝐷) ∧ ¬ if(𝐶𝐵, ((𝐵 + 𝐷) / 2), ((𝐶 + 𝐷) / 2)) ∈ (𝐴(,)𝐵)) → ¬ (𝐶(,)𝐷) ⊆ (𝐴(,)𝐵))
178151, 176, 177syl2anc 595 . . . 4 ((𝜑𝐵 < 𝐷) → ¬ (𝐶(,)𝐷) ⊆ (𝐴(,)𝐵))
179105, 178pm2.65da 828 . . 3 (𝜑 → ¬ 𝐵 < 𝐷)
1807, 95, 179nltled 11356 . 2 (𝜑𝐷𝐵)
181104, 180jca 520 1 (𝜑 → (𝐴𝐶𝐷𝐵))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 209  wa 400  w3a 1101   = wceq 1567  wcel 2149  wss 3913  ifcif 4489   class class class wbr 5110  (class class class)co 7408  cr 11095   + caddc 11099  *cxr 11238   < clt 11239  cle 11240   / cdiv 11867  2c2 12291  +crp 13012  (,)cioo 13368
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-sep 5258  ax-nul 5268  ax-pow 5334  ax-pr 5402  ax-un 7730  ax-cnex 11152  ax-resscn 11153  ax-1cn 11154  ax-icn 11155  ax-addcl 11156  ax-addrcl 11157  ax-mulcl 11158  ax-mulrcl 11159  ax-mulcom 11160  ax-addass 11161  ax-mulass 11162  ax-distr 11163  ax-i2m1 11164  ax-1ne0 11165  ax-1rid 11166  ax-rnegex 11167  ax-rrecex 11168  ax-cnre 11169  ax-pre-lttri 11170  ax-pre-lttrn 11171  ax-pre-ltadd 11172  ax-pre-mulgt0 11173
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-nel 3071  df-ral 3086  df-rex 3096  df-rmo 3376  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3933  df-nul 4295  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4874  df-iun 4959  df-br 5111  df-opab 5175  df-mpt 5194  df-tr 5220  df-id 5554  df-eprel 5559  df-po 5567  df-so 5568  df-fr 5612  df-we 5614  df-xp 5665  df-rel 5666  df-cnv 5667  df-co 5668  df-dm 5669  df-rn 5670  df-res 5671  df-ima 5672  df-pred 6300  df-ord 6361  df-on 6362  df-lim 6363  df-suc 6364  df-iota 6490  df-fun 6536  df-fn 6537  df-f 6538  df-f1 6539  df-fo 6540  df-f1o 6541  df-fv 6542  df-riota 7365  df-ov 7411  df-oprab 7412  df-mpo 7413  df-om 7859  df-1st 7982  df-2nd 7983  df-frecs 8274  df-wrecs 8305  df-recs 8354  df-rdg 8393  df-er 8690  df-en 8940  df-dom 8941  df-sdom 8942  df-pnf 11241  df-mnf 11242  df-xr 11243  df-ltxr 11244  df-le 11245  df-sub 11439  df-neg 11440  df-div 11868  df-nn 12230  df-2 12299  df-rp 13013  df-ioo 13372
This theorem is referenced by:  fourierdlem32  46740  fourierdlem33  46741  fourierdlem46  46753  fourierdlem50  46757  fourierdlem72  46779  fourierdlem76  46783  fourierdlem89  46796  fourierdlem91  46798  fourierdlem103  46810  fourierdlem104  46811
  Copyright terms: Public domain W3C validator