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

Theorem stoweidlem44 47199
Description: This lemma is used to prove the existence of a function p as in Lemma 1 of [BrosowskiDeutsh] p. 90: p is in the subalgebra, such that 0 <= p <= 1, p_(t0) = 0, and p > 0 on T - U. Z is used to represent t0 in the paper. (Contributed by Glauco Siliprandi, 20-Apr-2017.)
Hypotheses
Ref Expression
stoweidlem44.1 Ⅎ𝑗𝜑
stoweidlem44.2 Ⅎ𝑡𝜑
stoweidlem44.3 𝐾 = (topGen‘ran (,))
stoweidlem44.4 𝑄 = {ℎ ∈ 𝐴 ∣ ((ℎ‘𝑍) = 0 ∧ ∀𝑡 ∈ 𝑇 (0 ≤ (ℎ‘𝑡) ∧ (ℎ‘𝑡) ≤ 1))}
stoweidlem44.5 𝑃 = (𝑡 ∈ 𝑇 ↦ ((1 / 𝑀) · Σ𝑖 ∈ (1...𝑀)((𝐺‘𝑖)‘𝑡)))
stoweidlem44.6 (𝜑 → 𝑀 ∈ ℕ)
stoweidlem44.7 (𝜑 → 𝐺:(1...𝑀)⟶𝑄)
stoweidlem44.8 (𝜑 → ∀𝑡 ∈ (𝑇 ∖ 𝑈)∃𝑗 ∈ (1...𝑀)0 < ((𝐺‘𝑗)‘𝑡))
stoweidlem44.9 𝑇 = ∪ 𝐽
stoweidlem44.10 (𝜑 → 𝐴 ⊆ (𝐽 Cn 𝐾))
stoweidlem44.11 ((𝜑 ∧ 𝑓 ∈ 𝐴 ∧ 𝑔 ∈ 𝐴) → (𝑡 ∈ 𝑇 ↦ ((𝑓‘𝑡) + (𝑔‘𝑡))) ∈ 𝐴)
stoweidlem44.12 ((𝜑 ∧ 𝑓 ∈ 𝐴 ∧ 𝑔 ∈ 𝐴) → (𝑡 ∈ 𝑇 ↦ ((𝑓‘𝑡) · (𝑔‘𝑡))) ∈ 𝐴)
stoweidlem44.13 ((𝜑 ∧ 𝑥 ∈ ℝ) → (𝑡 ∈ 𝑇 ↦ 𝑥) ∈ 𝐴)
stoweidlem44.14 (𝜑 → 𝑍 ∈ 𝑇)
Assertion
Ref Expression
stoweidlem44 (𝜑 → ∃𝑝 ∈ 𝐴 (∀𝑡 ∈ 𝑇 (0 ≤ (𝑝‘𝑡) ∧ (𝑝‘𝑡) ≤ 1) ∧ (𝑝‘𝑍) = 0 ∧ ∀𝑡 ∈ (𝑇 ∖ 𝑈)0 < (𝑝‘𝑡)))
Distinct variable groups:   𝑓,𝑔,𝑖,𝑡,𝐺   𝑓,𝑗,𝑖,𝑡,𝐺   𝐴,𝑓,𝑔   𝑓,𝑀,𝑔,𝑖,𝑡   𝑇,𝑓,𝑔,𝑖,𝑡   𝜑,𝑓,𝑔,𝑖   ℎ,𝑖,𝑗,𝑡,𝐺   𝐴,ℎ   𝑇,ℎ,𝑗   ℎ,𝑍,𝑖,𝑡   𝑥,𝑗,𝑀,𝑡   𝑈,𝑗   𝑡,𝑝,𝑇   𝐴,𝑝   𝑃,𝑝   𝑈,𝑝   𝑍,𝑝   𝑥,𝐴   𝑥,𝑇   𝜑,𝑥
Allowed substitution hints:   𝜑(𝑡, ℎ, 𝑗, 𝑝)   𝐴(𝑡, 𝑖, 𝑗)   𝑃(𝑥, 𝑡, 𝑓, 𝑔, ℎ, 𝑖, 𝑗)   𝑄(𝑥, 𝑡, 𝑓, 𝑔, ℎ, 𝑖, 𝑗, 𝑝)   𝑈(𝑥, 𝑡, 𝑓, 𝑔, ℎ, 𝑖)   𝐺(𝑥, 𝑝)   𝐽(𝑥, 𝑡, 𝑓, 𝑔, ℎ, 𝑖, 𝑗, 𝑝)   𝐾(𝑥, 𝑡, 𝑓, 𝑔, ℎ, 𝑖, 𝑗, 𝑝)   𝑀(ℎ, 𝑝)   𝑍(𝑥, 𝑓, 𝑔, 𝑗)

Proof of Theorem stoweidlem44
StepHypRef Expression
1 stoweidlem44.2 . . . 4 Ⅎ𝑡𝜑
2 stoweidlem44.5 . . . 4 𝑃 = (𝑡 ∈ 𝑇 ↦ ((1 / 𝑀) · Σ𝑖 ∈ (1...𝑀)((𝐺‘𝑖)‘𝑡)))
3 eqid 2763 . . . 4 (𝑡 ∈ 𝑇 ↦ Σ𝑖 ∈ (1...𝑀)((𝐺‘𝑖)‘𝑡)) = (𝑡 ∈ 𝑇 ↦ Σ𝑖 ∈ (1...𝑀)((𝐺‘𝑖)‘𝑡))
4 eqid 2763 . . . 4 (𝑡 ∈ 𝑇 ↦ (1 / 𝑀)) = (𝑡 ∈ 𝑇 ↦ (1 / 𝑀))
5 stoweidlem44.6 . . . 4 (𝜑 → 𝑀 ∈ ℕ)
65nnrecred 12402 . . . 4 (𝜑 → (1 / 𝑀) ∈ ℝ)
7 stoweidlem44.7 . . . . 5 (𝜑 → 𝐺:(1...𝑀)⟶𝑄)
8 stoweidlem44.4 . . . . . 6 𝑄 = {ℎ ∈ 𝐴 ∣ ((ℎ‘𝑍) = 0 ∧ ∀𝑡 ∈ 𝑇 (0 ≤ (ℎ‘𝑡) ∧ (ℎ‘𝑡) ≤ 1))}
9 ssrab2 4008 . . . . . 6 {ℎ ∈ 𝐴 ∣ ((ℎ‘𝑍) = 0 ∧ ∀𝑡 ∈ 𝑇 (0 ≤ (ℎ‘𝑡) ∧ (ℎ‘𝑡) ≤ 1))} ⊆ 𝐴
108, 9eqsstri 3959 . . . . 5 𝑄 ⊆ 𝐴
11 fss 6737 . . . . 5 ((𝐺:(1...𝑀)⟶𝑄 ∧ 𝑄 ⊆ 𝐴) → 𝐺:(1...𝑀)⟶𝐴)
127, 10, 11sylancl 598 . . . 4 (𝜑 → 𝐺:(1...𝑀)⟶𝐴)
13 stoweidlem44.11 . . . 4 ((𝜑 ∧ 𝑓 ∈ 𝐴 ∧ 𝑔 ∈ 𝐴) → (𝑡 ∈ 𝑇 ↦ ((𝑓‘𝑡) + (𝑔‘𝑡))) ∈ 𝐴)
14 stoweidlem44.12 . . . 4 ((𝜑 ∧ 𝑓 ∈ 𝐴 ∧ 𝑔 ∈ 𝐴) → (𝑡 ∈ 𝑇 ↦ ((𝑓‘𝑡) · (𝑔‘𝑡))) ∈ 𝐴)
15 stoweidlem44.13 . . . 4 ((𝜑 ∧ 𝑥 ∈ ℝ) → (𝑡 ∈ 𝑇 ↦ 𝑥) ∈ 𝐴)
16 stoweidlem44.3 . . . . 5 𝐾 = (topGen‘ran (,))
17 stoweidlem44.9 . . . . 5 𝑇 = ∪ 𝐽
18 eqid 2763 . . . . 5 (𝐽 Cn 𝐾) = (𝐽 Cn 𝐾)
19 stoweidlem44.10 . . . . . 6 (𝜑 → 𝐴 ⊆ (𝐽 Cn 𝐾))
2019sselda 3913 . . . . 5 ((𝜑 ∧ 𝑓 ∈ 𝐴) → 𝑓 ∈ (𝐽 Cn 𝐾))
2116, 17, 18, 20fcnre 46187 . . . 4 ((𝜑 ∧ 𝑓 ∈ 𝐴) → 𝑓:𝑇⟶ℝ)
221, 2, 3, 4, 5, 6, 12, 13, 14, 15, 21stoweidlem32 47187 . . 3 (𝜑 → 𝑃 ∈ 𝐴)
238, 2, 5, 7, 21stoweidlem38 47193 . . . . . 6 ((𝜑 ∧ 𝑡 ∈ 𝑇) → (0 ≤ (𝑃‘𝑡) ∧ (𝑃‘𝑡) ≤ 1))
2423ex 418 . . . . 5 (𝜑 → (𝑡 ∈ 𝑇 → (0 ≤ (𝑃‘𝑡) ∧ (𝑃‘𝑡) ≤ 1)))
251, 24ralrimi 3264 . . . 4 (𝜑 → ∀𝑡 ∈ 𝑇 (0 ≤ (𝑃‘𝑡) ∧ (𝑃‘𝑡) ≤ 1))
26 stoweidlem44.14 . . . . 5 (𝜑 → 𝑍 ∈ 𝑇)
278, 2, 5, 7, 21, 26stoweidlem37 47192 . . . 4 (𝜑 → (𝑃‘𝑍) = 0)
28 stoweidlem44.1 . . . . . . . . 9 Ⅎ𝑗𝜑
29 nfv 1948 . . . . . . . . 9 Ⅎ𝑗 𝑡 ∈ (𝑇 ∖ 𝑈)
3028, 29nfan 1933 . . . . . . . 8 Ⅎ𝑗(𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈))
31 nfv 1948 . . . . . . . 8 Ⅎ𝑗0 < ((1 / 𝑀) · Σ𝑖 ∈ (1...𝑀)((𝐺‘𝑖)‘𝑡))
32 stoweidlem44.8 . . . . . . . . . 10 (𝜑 → ∀𝑡 ∈ (𝑇 ∖ 𝑈)∃𝑗 ∈ (1...𝑀)0 < ((𝐺‘𝑗)‘𝑡))
3332r19.21bi 3258 . . . . . . . . 9 ((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) → ∃𝑗 ∈ (1...𝑀)0 < ((𝐺‘𝑗)‘𝑡))
34 df-rex 3091 . . . . . . . . 9 (∃𝑗 ∈ (1...𝑀)0 < ((𝐺‘𝑗)‘𝑡) ↔ ∃𝑗(𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡)))
3533, 34sylib 221 . . . . . . . 8 ((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) → ∃𝑗(𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡)))
366ad2antrr 739 . . . . . . . . 9 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → (1 / 𝑀) ∈ ℝ)
37 simpll 779 . . . . . . . . . 10 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → 𝜑)
38 eldifi 4070 . . . . . . . . . . 11 (𝑡 ∈ (𝑇 ∖ 𝑈) → 𝑡 ∈ 𝑇)
3938ad2antlr 740 . . . . . . . . . 10 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → 𝑡 ∈ 𝑇)
40 fzfid 14129 . . . . . . . . . . 11 ((𝜑 ∧ 𝑡 ∈ 𝑇) → (1...𝑀) ∈ Fin)
418, 7, 21stoweidlem15 47170 . . . . . . . . . . . . 13 (((𝜑 ∧ 𝑖 ∈ (1...𝑀)) ∧ 𝑡 ∈ 𝑇) → (((𝐺‘𝑖)‘𝑡) ∈ ℝ ∧ 0 ≤ ((𝐺‘𝑖)‘𝑡) ∧ ((𝐺‘𝑖)‘𝑡) ≤ 1))
4241an32s 665 . . . . . . . . . . . 12 (((𝜑 ∧ 𝑡 ∈ 𝑇) ∧ 𝑖 ∈ (1...𝑀)) → (((𝐺‘𝑖)‘𝑡) ∈ ℝ ∧ 0 ≤ ((𝐺‘𝑖)‘𝑡) ∧ ((𝐺‘𝑖)‘𝑡) ≤ 1))
4342simp1d 1160 . . . . . . . . . . 11 (((𝜑 ∧ 𝑡 ∈ 𝑇) ∧ 𝑖 ∈ (1...𝑀)) → ((𝐺‘𝑖)‘𝑡) ∈ ℝ)
4440, 43fsumrecl 15915 . . . . . . . . . 10 ((𝜑 ∧ 𝑡 ∈ 𝑇) → Σ𝑖 ∈ (1...𝑀)((𝐺‘𝑖)‘𝑡) ∈ ℝ)
4537, 39, 44syl2anc 596 . . . . . . . . 9 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → Σ𝑖 ∈ (1...𝑀)((𝐺‘𝑖)‘𝑡) ∈ ℝ)
465nnred 12363 . . . . . . . . . . 11 (𝜑 → 𝑀 ∈ ℝ)
475nngt0d 12400 . . . . . . . . . . 11 (𝜑 → 0 < 𝑀)
4846, 47recgt0d 12264 . . . . . . . . . 10 (𝜑 → 0 < (1 / 𝑀))
4948ad2antrr 739 . . . . . . . . 9 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → 0 < (1 / 𝑀))
50 0red 11324 . . . . . . . . . . 11 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → 0 ∈ ℝ)
51 simprl 783 . . . . . . . . . . . . . 14 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → 𝑗 ∈ (1...𝑀))
5237, 51, 393jca 1146 . . . . . . . . . . . . 13 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → (𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇))
53 snfi 9085 . . . . . . . . . . . . . . 15 {𝑗} ∈ Fin
5453a1i 11 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) → {𝑗} ∈ Fin)
55 simpl1 1210 . . . . . . . . . . . . . . 15 (((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) ∧ 𝑖 ∈ {𝑗}) → 𝜑)
56 simpl3 1212 . . . . . . . . . . . . . . 15 (((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) ∧ 𝑖 ∈ {𝑗}) → 𝑡 ∈ 𝑇)
57 elsni 4601 . . . . . . . . . . . . . . . . 17 (𝑖 ∈ {𝑗} → 𝑖 = 𝑗)
5857adantl 487 . . . . . . . . . . . . . . . 16 (((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) ∧ 𝑖 ∈ {𝑗}) → 𝑖 = 𝑗)
59 simpl2 1211 . . . . . . . . . . . . . . . 16 (((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) ∧ 𝑖 ∈ {𝑗}) → 𝑗 ∈ (1...𝑀))
6058, 59eqeltrd 2864 . . . . . . . . . . . . . . 15 (((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) ∧ 𝑖 ∈ {𝑗}) → 𝑖 ∈ (1...𝑀))
6155, 56, 60, 43syl21anc 851 . . . . . . . . . . . . . 14 (((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) ∧ 𝑖 ∈ {𝑗}) → ((𝐺‘𝑖)‘𝑡) ∈ ℝ)
6254, 61fsumrecl 15915 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) → Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡) ∈ ℝ)
6352, 62syl 18 . . . . . . . . . . . 12 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡) ∈ ℝ)
6450, 63readdcld 11351 . . . . . . . . . . 11 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → (0 + Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡)) ∈ ℝ)
65 fzfi 14128 . . . . . . . . . . . . . . 15 (1...𝑀) ∈ Fin
66 diffi 9204 . . . . . . . . . . . . . . 15 ((1...𝑀) ∈ Fin → ((1...𝑀) ∖ {𝑗}) ∈ Fin)
6765, 66mp1i 14 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝑡 ∈ 𝑇) → ((1...𝑀) ∖ {𝑗}) ∈ Fin)
68 eldifi 4070 . . . . . . . . . . . . . . 15 (𝑖 ∈ ((1...𝑀) ∖ {𝑗}) → 𝑖 ∈ (1...𝑀))
6968, 43sylan2 605 . . . . . . . . . . . . . 14 (((𝜑 ∧ 𝑡 ∈ 𝑇) ∧ 𝑖 ∈ ((1...𝑀) ∖ {𝑗})) → ((𝐺‘𝑖)‘𝑡) ∈ ℝ)
7067, 69fsumrecl 15915 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝑡 ∈ 𝑇) → Σ𝑖 ∈ ((1...𝑀) ∖ {𝑗})((𝐺‘𝑖)‘𝑡) ∈ ℝ)
7137, 39, 70syl2anc 596 . . . . . . . . . . . 12 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → Σ𝑖 ∈ ((1...𝑀) ∖ {𝑗})((𝐺‘𝑖)‘𝑡) ∈ ℝ)
7271, 63readdcld 11351 . . . . . . . . . . 11 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → (Σ𝑖 ∈ ((1...𝑀) ∖ {𝑗})((𝐺‘𝑖)‘𝑡) + Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡)) ∈ ℝ)
73 00id 11498 . . . . . . . . . . . 12 (0 + 0) = 0
74 simprr 785 . . . . . . . . . . . . . 14 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → 0 < ((𝐺‘𝑗)‘𝑡))
758, 7, 21stoweidlem15 47170 . . . . . . . . . . . . . . . . . 18 (((𝜑 ∧ 𝑗 ∈ (1...𝑀)) ∧ 𝑡 ∈ 𝑇) → (((𝐺‘𝑗)‘𝑡) ∈ ℝ ∧ 0 ≤ ((𝐺‘𝑗)‘𝑡) ∧ ((𝐺‘𝑗)‘𝑡) ≤ 1))
7675simp1d 1160 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ 𝑗 ∈ (1...𝑀)) ∧ 𝑡 ∈ 𝑇) → ((𝐺‘𝑗)‘𝑡) ∈ ℝ)
7737, 51, 39, 76syl21anc 851 . . . . . . . . . . . . . . . 16 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → ((𝐺‘𝑗)‘𝑡) ∈ ℝ)
7877recnd 11350 . . . . . . . . . . . . . . 15 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → ((𝐺‘𝑗)‘𝑡) ∈ ℂ)
79 fveq2 6896 . . . . . . . . . . . . . . . . 17 (𝑖 = 𝑗 → (𝐺‘𝑖) = (𝐺‘𝑗))
8079fveq1d 6898 . . . . . . . . . . . . . . . 16 (𝑖 = 𝑗 → ((𝐺‘𝑖)‘𝑡) = ((𝐺‘𝑗)‘𝑡))
8180sumsn 15927 . . . . . . . . . . . . . . 15 ((𝑗 ∈ (1...𝑀) ∧ ((𝐺‘𝑗)‘𝑡) ∈ ℂ) → Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡) = ((𝐺‘𝑗)‘𝑡))
8251, 78, 81syl2anc 596 . . . . . . . . . . . . . 14 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡) = ((𝐺‘𝑗)‘𝑡))
8374, 82breqtrrd 5136 . . . . . . . . . . . . 13 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → 0 < Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡))
8450, 63, 50, 83ltadd2dd 11482 . . . . . . . . . . . 12 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → (0 + 0) < (0 + Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡)))
8573, 84eqbrtrrid 5144 . . . . . . . . . . 11 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → 0 < (0 + Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡)))
86 0red 11324 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) → 0 ∈ ℝ)
87703adant2 1149 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) → Σ𝑖 ∈ ((1...𝑀) ∖ {𝑗})((𝐺‘𝑖)‘𝑡) ∈ ℝ)
88 simpll 779 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ 𝑡 ∈ 𝑇) ∧ 𝑖 ∈ ((1...𝑀) ∖ {𝑗})) → 𝜑)
8968adantl 487 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ 𝑡 ∈ 𝑇) ∧ 𝑖 ∈ ((1...𝑀) ∖ {𝑗})) → 𝑖 ∈ (1...𝑀))
90 simplr 781 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ 𝑡 ∈ 𝑇) ∧ 𝑖 ∈ ((1...𝑀) ∖ {𝑗})) → 𝑡 ∈ 𝑇)
9188, 89, 90, 41syl21anc 851 . . . . . . . . . . . . . . . 16 (((𝜑 ∧ 𝑡 ∈ 𝑇) ∧ 𝑖 ∈ ((1...𝑀) ∖ {𝑗})) → (((𝐺‘𝑖)‘𝑡) ∈ ℝ ∧ 0 ≤ ((𝐺‘𝑖)‘𝑡) ∧ ((𝐺‘𝑖)‘𝑡) ≤ 1))
9291simp2d 1161 . . . . . . . . . . . . . . 15 (((𝜑 ∧ 𝑡 ∈ 𝑇) ∧ 𝑖 ∈ ((1...𝑀) ∖ {𝑗})) → 0 ≤ ((𝐺‘𝑖)‘𝑡))
9367, 69, 92fsumge0 15977 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝑡 ∈ 𝑇) → 0 ≤ Σ𝑖 ∈ ((1...𝑀) ∖ {𝑗})((𝐺‘𝑖)‘𝑡))
94933adant2 1149 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) → 0 ≤ Σ𝑖 ∈ ((1...𝑀) ∖ {𝑗})((𝐺‘𝑖)‘𝑡))
9586, 87, 62, 94leadd1dd 11943 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) → (0 + Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡)) ≤ (Σ𝑖 ∈ ((1...𝑀) ∖ {𝑗})((𝐺‘𝑖)‘𝑡) + Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡)))
9652, 95syl 18 . . . . . . . . . . 11 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → (0 + Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡)) ≤ (Σ𝑖 ∈ ((1...𝑀) ∖ {𝑗})((𝐺‘𝑖)‘𝑡) + Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡)))
9750, 64, 72, 85, 96ltletrd 11483 . . . . . . . . . 10 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → 0 < (Σ𝑖 ∈ ((1...𝑀) ∖ {𝑗})((𝐺‘𝑖)‘𝑡) + Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡)))
98 eldifn 4071 . . . . . . . . . . . . . . . 16 (𝑥 ∈ ((1...𝑀) ∖ {𝑗}) → ¬ 𝑥 ∈ {𝑗})
99 imnan 405 . . . . . . . . . . . . . . . 16 ((𝑥 ∈ ((1...𝑀) ∖ {𝑗}) → ¬ 𝑥 ∈ {𝑗}) ↔ ¬ (𝑥 ∈ ((1...𝑀) ∖ {𝑗}) ∧ 𝑥 ∈ {𝑗}))
10098, 99mpbi 233 . . . . . . . . . . . . . . 15 ¬ (𝑥 ∈ ((1...𝑀) ∖ {𝑗}) ∧ 𝑥 ∈ {𝑗})
101 elin 4096 . . . . . . . . . . . . . . 15 (𝑥 ∈ (((1...𝑀) ∖ {𝑗}) ∩ {𝑗}) ↔ (𝑥 ∈ ((1...𝑀) ∖ {𝑗}) ∧ 𝑥 ∈ {𝑗}))
102100, 101mtbir 326 . . . . . . . . . . . . . 14 ¬ 𝑥 ∈ (((1...𝑀) ∖ {𝑗}) ∩ {𝑗})
103102nel0 4305 . . . . . . . . . . . . 13 (((1...𝑀) ∖ {𝑗}) ∩ {𝑗}) = ∅
104103a1i 11 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) → (((1...𝑀) ∖ {𝑗}) ∩ {𝑗}) = ∅)
105 undif1 4433 . . . . . . . . . . . . 13 (((1...𝑀) ∖ {𝑗}) ∪ {𝑗}) = ((1...𝑀) ∪ {𝑗})
106 snssi 4746 . . . . . . . . . . . . . . 15 (𝑗 ∈ (1...𝑀) → {𝑗} ⊆ (1...𝑀))
1071063ad2ant2 1152 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) → {𝑗} ⊆ (1...𝑀))
108 ssequn2 4190 . . . . . . . . . . . . . 14 ({𝑗} ⊆ (1...𝑀) ↔ ((1...𝑀) ∪ {𝑗}) = (1...𝑀))
109107, 108sylib 221 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) → ((1...𝑀) ∪ {𝑗}) = (1...𝑀))
110105, 109eqtr2id 2811 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) → (1...𝑀) = (((1...𝑀) ∖ {𝑗}) ∪ {𝑗}))
111 fzfid 14129 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) → (1...𝑀) ∈ Fin)
112433adantl2 1186 . . . . . . . . . . . . 13 (((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) ∧ 𝑖 ∈ (1...𝑀)) → ((𝐺‘𝑖)‘𝑡) ∈ ℝ)
113112recnd 11350 . . . . . . . . . . . 12 (((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) ∧ 𝑖 ∈ (1...𝑀)) → ((𝐺‘𝑖)‘𝑡) ∈ ℂ)
114104, 110, 111, 113fsumsplit 15922 . . . . . . . . . . 11 ((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) → Σ𝑖 ∈ (1...𝑀)((𝐺‘𝑖)‘𝑡) = (Σ𝑖 ∈ ((1...𝑀) ∖ {𝑗})((𝐺‘𝑖)‘𝑡) + Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡)))
11552, 114syl 18 . . . . . . . . . 10 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → Σ𝑖 ∈ (1...𝑀)((𝐺‘𝑖)‘𝑡) = (Σ𝑖 ∈ ((1...𝑀) ∖ {𝑗})((𝐺‘𝑖)‘𝑡) + Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡)))
11697, 115breqtrrd 5136 . . . . . . . . 9 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → 0 < Σ𝑖 ∈ (1...𝑀)((𝐺‘𝑖)‘𝑡))
11736, 45, 49, 116mulgt0d 11478 . . . . . . . 8 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → 0 < ((1 / 𝑀) · Σ𝑖 ∈ (1...𝑀)((𝐺‘𝑖)‘𝑡)))
11830, 31, 35, 117exlimdd 2259 . . . . . . 7 ((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) → 0 < ((1 / 𝑀) · Σ𝑖 ∈ (1...𝑀)((𝐺‘𝑖)‘𝑡)))
1198, 2, 5, 7, 21stoweidlem30 47185 . . . . . . . 8 ((𝜑 ∧ 𝑡 ∈ 𝑇) → (𝑃‘𝑡) = ((1 / 𝑀) · Σ𝑖 ∈ (1...𝑀)((𝐺‘𝑖)‘𝑡)))
12038, 119sylan2 605 . . . . . . 7 ((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) → (𝑃‘𝑡) = ((1 / 𝑀) · Σ𝑖 ∈ (1...𝑀)((𝐺‘𝑖)‘𝑡)))
121118, 120breqtrrd 5136 . . . . . 6 ((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) → 0 < (𝑃‘𝑡))
122121ex 418 . . . . 5 (𝜑 → (𝑡 ∈ (𝑇 ∖ 𝑈) → 0 < (𝑃‘𝑡)))
1231, 122ralrimi 3264 . . . 4 (𝜑 → ∀𝑡 ∈ (𝑇 ∖ 𝑈)0 < (𝑃‘𝑡))
12425, 27, 1233jca 1146 . . 3 (𝜑 → (∀𝑡 ∈ 𝑇 (0 ≤ (𝑃‘𝑡) ∧ (𝑃‘𝑡) ≤ 1) ∧ (𝑃‘𝑍) = 0 ∧ ∀𝑡 ∈ (𝑇 ∖ 𝑈)0 < (𝑃‘𝑡)))
125 eleq1 2852 . . . . . 6 (𝑝 = 𝑃 → (𝑝 ∈ 𝐴 ↔ 𝑃 ∈ 𝐴))
126 nfmpt1 5207 . . . . . . . . . 10 Ⅎ𝑡(𝑡 ∈ 𝑇 ↦ ((1 / 𝑀) · Σ𝑖 ∈ (1...𝑀)((𝐺‘𝑖)‘𝑡)))
1272, 126nfcxfr 2924 . . . . . . . . 9 Ⅎ𝑡𝑃
128127nfeq2 2943 . . . . . . . 8 Ⅎ𝑡 𝑝 = 𝑃
129 fveq1 6895 . . . . . . . . . 10 (𝑝 = 𝑃 → (𝑝‘𝑡) = (𝑃‘𝑡))
130129breq2d 5118 . . . . . . . . 9 (𝑝 = 𝑃 → (0 ≤ (𝑝‘𝑡) ↔ 0 ≤ (𝑃‘𝑡)))
131129breq1d 5116 . . . . . . . . 9 (𝑝 = 𝑃 → ((𝑝‘𝑡) ≤ 1 ↔ (𝑃‘𝑡) ≤ 1))
132130, 131anbi12d 644 . . . . . . . 8 (𝑝 = 𝑃 → ((0 ≤ (𝑝‘𝑡) ∧ (𝑝‘𝑡) ≤ 1) ↔ (0 ≤ (𝑃‘𝑡) ∧ (𝑃‘𝑡) ≤ 1)))
133128, 132ralbid 3279 . . . . . . 7 (𝑝 = 𝑃 → (∀𝑡 ∈ 𝑇 (0 ≤ (𝑝‘𝑡) ∧ (𝑝‘𝑡) ≤ 1) ↔ ∀𝑡 ∈ 𝑇 (0 ≤ (𝑃‘𝑡) ∧ (𝑃‘𝑡) ≤ 1)))
134 fveq1 6895 . . . . . . . 8 (𝑝 = 𝑃 → (𝑝‘𝑍) = (𝑃‘𝑍))
135134eqeq1d 2765 . . . . . . 7 (𝑝 = 𝑃 → ((𝑝‘𝑍) = 0 ↔ (𝑃‘𝑍) = 0))
136129breq2d 5118 . . . . . . . 8 (𝑝 = 𝑃 → (0 < (𝑝‘𝑡) ↔ 0 < (𝑃‘𝑡)))
137128, 136ralbid 3279 . . . . . . 7 (𝑝 = 𝑃 → (∀𝑡 ∈ (𝑇 ∖ 𝑈)0 < (𝑝‘𝑡) ↔ ∀𝑡 ∈ (𝑇 ∖ 𝑈)0 < (𝑃‘𝑡)))
138133, 135, 1373anbi123d 1464 . . . . . 6 (𝑝 = 𝑃 → ((∀𝑡 ∈ 𝑇 (0 ≤ (𝑝‘𝑡) ∧ (𝑝‘𝑡) ≤ 1) ∧ (𝑝‘𝑍) = 0 ∧ ∀𝑡 ∈ (𝑇 ∖ 𝑈)0 < (𝑝‘𝑡)) ↔ (∀𝑡 ∈ 𝑇 (0 ≤ (𝑃‘𝑡) ∧ (𝑃‘𝑡) ≤ 1) ∧ (𝑃‘𝑍) = 0 ∧ ∀𝑡 ∈ (𝑇 ∖ 𝑈)0 < (𝑃‘𝑡))))
139125, 138anbi12d 644 . . . . 5 (𝑝 = 𝑃 → ((𝑝 ∈ 𝐴 ∧ (∀𝑡 ∈ 𝑇 (0 ≤ (𝑝‘𝑡) ∧ (𝑝‘𝑡) ≤ 1) ∧ (𝑝‘𝑍) = 0 ∧ ∀𝑡 ∈ (𝑇 ∖ 𝑈)0 < (𝑝‘𝑡))) ↔ (𝑃 ∈ 𝐴 ∧ (∀𝑡 ∈ 𝑇 (0 ≤ (𝑃‘𝑡) ∧ (𝑃‘𝑡) ≤ 1) ∧ (𝑃‘𝑍) = 0 ∧ ∀𝑡 ∈ (𝑇 ∖ 𝑈)0 < (𝑃‘𝑡)))))
140139spcegv 3555 . . . 4 (𝑃 ∈ 𝐴 → ((𝑃 ∈ 𝐴 ∧ (∀𝑡 ∈ 𝑇 (0 ≤ (𝑃‘𝑡) ∧ (𝑃‘𝑡) ≤ 1) ∧ (𝑃‘𝑍) = 0 ∧ ∀𝑡 ∈ (𝑇 ∖ 𝑈)0 < (𝑃‘𝑡))) → ∃𝑝(𝑝 ∈ 𝐴 ∧ (∀𝑡 ∈ 𝑇 (0 ≤ (𝑝‘𝑡) ∧ (𝑝‘𝑡) ≤ 1) ∧ (𝑝‘𝑍) = 0 ∧ ∀𝑡 ∈ (𝑇 ∖ 𝑈)0 < (𝑝‘𝑡)))))
14122, 140syl 18 . . 3 (𝜑 → ((𝑃 ∈ 𝐴 ∧ (∀𝑡 ∈ 𝑇 (0 ≤ (𝑃‘𝑡) ∧ (𝑃‘𝑡) ≤ 1) ∧ (𝑃‘𝑍) = 0 ∧ ∀𝑡 ∈ (𝑇 ∖ 𝑈)0 < (𝑃‘𝑡))) → ∃𝑝(𝑝 ∈ 𝐴 ∧ (∀𝑡 ∈ 𝑇 (0 ≤ (𝑝‘𝑡) ∧ (𝑝‘𝑡) ≤ 1) ∧ (𝑝‘𝑍) = 0 ∧ ∀𝑡 ∈ (𝑇 ∖ 𝑈)0 < (𝑝‘𝑡)))))
14222, 124, 141mp2and 712 . 2 (𝜑 → ∃𝑝(𝑝 ∈ 𝐴 ∧ (∀𝑡 ∈ 𝑇 (0 ≤ (𝑝‘𝑡) ∧ (𝑝‘𝑡) ≤ 1) ∧ (𝑝‘𝑍) = 0 ∧ ∀𝑡 ∈ (𝑇 ∖ 𝑈)0 < (𝑝‘𝑡))))
143 df-rex 3091 . 2 (∃𝑝 ∈ 𝐴 (∀𝑡 ∈ 𝑇 (0 ≤ (𝑝‘𝑡) ∧ (𝑝‘𝑡) ≤ 1) ∧ (𝑝‘𝑍) = 0 ∧ ∀𝑡 ∈ (𝑇 ∖ 𝑈)0 < (𝑝‘𝑡)) ↔ ∃𝑝(𝑝 ∈ 𝐴 ∧ (∀𝑡 ∈ 𝑇 (0 ≤ (𝑝‘𝑡) ∧ (𝑝‘𝑡) ≤ 1) ∧ (𝑝‘𝑍) = 0 ∧ ∀𝑡 ∈ (𝑇 ∖ 𝑈)0 < (𝑝‘𝑡))))
144142, 143sylibr 237 1 (𝜑 → ∃𝑝 ∈ 𝐴 (∀𝑡 ∈ 𝑇 (0 ≤ (𝑝‘𝑡) ∧ (𝑝‘𝑡) ≤ 1) ∧ (𝑝‘𝑍) = 0 ∧ ∀𝑡 ∈ (𝑇 ∖ 𝑈)0 < (𝑝‘𝑡)))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ∧ wa 401   ∧ w3a 1103   = wceq 1569  ∃wex 1811  Ⅎwnf 1815   ∈ wcel 2146  ∀wral 3080  ∃wrex 3090  {crab 3416   ⊆ wss 3900   ∖ cdif 4048   ∩ cin 4092   ∪ cun 4152  ∅c0 4281  {csn 4588  ∪ cuni 4870   class class class wbr 5106   ↦ cmpt 5189  ran crn 5656  ⟶wf 6543  ‘cfv 6547  (class class class)co 7430  Fincfn 8987  ℂcc 11211  ℝcr 11212  0cc0 11213  1c1 11214   + caddc 11216   · cmul 11218   < clt 11356   ≤ cle 11357   / cdiv 11986  ℕcn 12348  (,)cioo 13489  ...cfz 13652  Σcsu 15868  topGenctg 17623   Cn ccn 23557
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1944  ax-6 2001  ax-7 2042  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2196  ax-12 2215  ax-ext 2735  ax-rep 5235  ax-sep 5252  ax-nul 5263  ax-pow 5331  ax-pr 5395  ax-un 7761  ax-inf2 9655  ax-cnex 11269  ax-resscn 11270  ax-1cn 11271  ax-icn 11272  ax-addcl 11273  ax-addrcl 11274  ax-mulcl 11275  ax-mulrcl 11276  ax-mulcom 11277  ax-addass 11278  ax-mulass 11279  ax-distr 11280  ax-i2m1 11281  ax-1ne0 11282  ax-1rid 11283  ax-rnegex 11284  ax-rrecex 11285  ax-cnre 11286  ax-pre-lttri 11287  ax-pre-lttrn 11288  ax-pre-ltadd 11289  ax-pre-mulgt0 11290  ax-pre-sup 11291
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2101  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-nel 3066  df-ral 3081  df-rex 3091  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-pss 4017  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-op 4839  df-uni 4871  df-int 4911  df-iun 4956  df-br 5107  df-opab 5171  df-mpt 5190  df-tr 5216  df-id 5550  df-eprel 5555  df-po 5563  df-so 5564  df-fr 5608  df-se 5609  df-we 5610  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-pred 6311  df-ord 6372  df-on 6373  df-lim 6374  df-suc 6375  df-iota 6501  df-fun 6549  df-fn 6550  df-f 6551  df-f1 6552  df-fo 6553  df-f1o 6554  df-fv 6555  df-isom 6556  df-riota 7387  df-ov 7433  df-oprab 7434  df-mpo 7435  df-om 7888  df-1st 8011  df-2nd 8012  df-frecs 8313  df-wrecs 8344  df-recs 8393  df-rdg 8432  df-1o 8490  df-er 8731  df-map 8863  df-en 8988  df-dom 8989  df-sdom 8990  df-fin 8991  df-sup 9447  df-oi 9517  df-card 10033  df-pnf 11358  df-mnf 11359  df-xr 11360  df-ltxr 11361  df-le 11362  df-sub 11556  df-neg 11557  df-div 11987  df-nn 12349  df-2 12418  df-3 12419  df-n0 12620  df-z 12707  df-uz 12979  df-rp 13134  df-ioo 13493  df-ico 13495  df-fz 13653  df-fzo 13802  df-seq 14158  df-exp 14218  df-hash 14488  df-cj 15281  df-re 15282  df-im 15283  df-sqrt 15417  df-abs 15418  df-clim 15670  df-sum 15869  df-topgen 17629  df-top 23227  df-topon 23244  df-bases 23279  df-cn 23560
This theorem is used by:  stoweidlem53  47208
  Copyright terms: Public domain W3C validator