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 47053
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 2761 . . . 4 (𝑡 ∈ 𝑇 ↦ Σ𝑖 ∈ (1...𝑀)((𝐺‘𝑖)‘𝑡)) = (𝑡 ∈ 𝑇 ↦ Σ𝑖 ∈ (1...𝑀)((𝐺‘𝑖)‘𝑡))
4 eqid 2761 . . . 4 (𝑡 ∈ 𝑇 ↦ (1 / 𝑀)) = (𝑡 ∈ 𝑇 ↦ (1 / 𝑀))
5 stoweidlem44.6 . . . 4 (𝜑 → 𝑀 ∈ ℕ)
65nnrecred 12389 . . . 4 (𝜑 → (1 / 𝑀) ∈ ℝ)
7 stoweidlem44.7 . . . . 5 (𝜑 → 𝐺:(1...𝑀)⟶𝑄)
8 stoweidlem44.4 . . . . . 6 𝑄 = {ℎ ∈ 𝐴 ∣ ((ℎ‘𝑍) = 0 ∧ ∀𝑡 ∈ 𝑇 (0 ≤ (ℎ‘𝑡) ∧ (ℎ‘𝑡) ≤ 1))}
9 ssrab2 4028 . . . . . 6 {ℎ ∈ 𝐴 ∣ ((ℎ‘𝑍) = 0 ∧ ∀𝑡 ∈ 𝑇 (0 ≤ (ℎ‘𝑡) ∧ (ℎ‘𝑡) ≤ 1))} ⊆ 𝐴
108, 9eqsstri 3977 . . . . 5 𝑄 ⊆ 𝐴
11 fss 6726 . . . . 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 2761 . . . . 5 (𝐽 Cn 𝐾) = (𝐽 Cn 𝐾)
19 stoweidlem44.10 . . . . . 6 (𝜑 → 𝐴 ⊆ (𝐽 Cn 𝐾))
2019sselda 3931 . . . . 5 ((𝜑 ∧ 𝑓 ∈ 𝐴) → 𝑓 ∈ (𝐽 Cn 𝐾))
2116, 17, 18, 20fcnre 46041 . . . 4 ((𝜑 ∧ 𝑓 ∈ 𝐴) → 𝑓:𝑇⟶ℝ)
221, 2, 3, 4, 5, 6, 12, 13, 14, 15, 21stoweidlem32 47041 . . 3 (𝜑 → 𝑃 ∈ 𝐴)
238, 2, 5, 7, 21stoweidlem38 47047 . . . . . 6 ((𝜑 ∧ 𝑡 ∈ 𝑇) → (0 ≤ (𝑃‘𝑡) ∧ (𝑃‘𝑡) ≤ 1))
2423ex 418 . . . . 5 (𝜑 → (𝑡 ∈ 𝑇 → (0 ≤ (𝑃‘𝑡) ∧ (𝑃‘𝑡) ≤ 1)))
251, 24ralrimi 3261 . . . 4 (𝜑 → ∀𝑡 ∈ 𝑇 (0 ≤ (𝑃‘𝑡) ∧ (𝑃‘𝑡) ≤ 1))
26 stoweidlem44.14 . . . . 5 (𝜑 → 𝑍 ∈ 𝑇)
278, 2, 5, 7, 21, 26stoweidlem37 47046 . . . 4 (𝜑 → (𝑃‘𝑍) = 0)
28 stoweidlem44.1 . . . . . . . . 9 Ⅎ𝑗𝜑
29 nfv 1947 . . . . . . . . 9 Ⅎ𝑗 𝑡 ∈ (𝑇 ∖ 𝑈)
3028, 29nfan 1932 . . . . . . . 8 Ⅎ𝑗(𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈))
31 nfv 1947 . . . . . . . 8 Ⅎ𝑗0 < ((1 / 𝑀) · Σ𝑖 ∈ (1...𝑀)((𝐺‘𝑖)‘𝑡))
32 stoweidlem44.8 . . . . . . . . . 10 (𝜑 → ∀𝑡 ∈ (𝑇 ∖ 𝑈)∃𝑗 ∈ (1...𝑀)0 < ((𝐺‘𝑗)‘𝑡))
3332r19.21bi 3255 . . . . . . . . 9 ((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) → ∃𝑗 ∈ (1...𝑀)0 < ((𝐺‘𝑗)‘𝑡))
34 df-rex 3088 . . . . . . . . 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 4078 . . . . . . . . . . 11 (𝑡 ∈ (𝑇 ∖ 𝑈) → 𝑡 ∈ 𝑇)
3938ad2antlr 740 . . . . . . . . . 10 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → 𝑡 ∈ 𝑇)
40 fzfid 14116 . . . . . . . . . . 11 ((𝜑 ∧ 𝑡 ∈ 𝑇) → (1...𝑀) ∈ Fin)
418, 7, 21stoweidlem15 47024 . . . . . . . . . . . . 13 (((𝜑 ∧ 𝑖 ∈ (1...𝑀)) ∧ 𝑡 ∈ 𝑇) → (((𝐺‘𝑖)‘𝑡) ∈ ℝ ∧ 0 ≤ ((𝐺‘𝑖)‘𝑡) ∧ ((𝐺‘𝑖)‘𝑡) ≤ 1))
4241an32s 665 . . . . . . . . . . . 12 (((𝜑 ∧ 𝑡 ∈ 𝑇) ∧ 𝑖 ∈ (1...𝑀)) → (((𝐺‘𝑖)‘𝑡) ∈ ℝ ∧ 0 ≤ ((𝐺‘𝑖)‘𝑡) ∧ ((𝐺‘𝑖)‘𝑡) ≤ 1))
4342simp1d 1160 . . . . . . . . . . 11 (((𝜑 ∧ 𝑡 ∈ 𝑇) ∧ 𝑖 ∈ (1...𝑀)) → ((𝐺‘𝑖)‘𝑡) ∈ ℝ)
4440, 43fsumrecl 15900 . . . . . . . . . 10 ((𝜑 ∧ 𝑡 ∈ 𝑇) → Σ𝑖 ∈ (1...𝑀)((𝐺‘𝑖)‘𝑡) ∈ ℝ)
4537, 39, 44syl2anc 596 . . . . . . . . 9 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → Σ𝑖 ∈ (1...𝑀)((𝐺‘𝑖)‘𝑡) ∈ ℝ)
465nnred 12350 . . . . . . . . . . 11 (𝜑 → 𝑀 ∈ ℝ)
475nngt0d 12387 . . . . . . . . . . 11 (𝜑 → 0 < 𝑀)
4846, 47recgt0d 12251 . . . . . . . . . 10 (𝜑 → 0 < (1 / 𝑀))
4948ad2antrr 739 . . . . . . . . 9 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → 0 < (1 / 𝑀))
50 0red 11311 . . . . . . . . . . 11 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → 0 ∈ ℝ)
51 simprl 783 . . . . . . . . . . . . . 14 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → 𝑗 ∈ (1...𝑀))
5237, 51, 393jca 1146 . . . . . . . . . . . . 13 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → (𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇))
53 snfi 9071 . . . . . . . . . . . . . . 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 2861 . . . . . . . . . . . . . . 15 (((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) ∧ 𝑖 ∈ {𝑗}) → 𝑖 ∈ (1...𝑀))
6155, 56, 60, 43syl21anc 851 . . . . . . . . . . . . . 14 (((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) ∧ 𝑖 ∈ {𝑗}) → ((𝐺‘𝑖)‘𝑡) ∈ ℝ)
6254, 61fsumrecl 15900 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) → Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡) ∈ ℝ)
6352, 62syl 18 . . . . . . . . . . . 12 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡) ∈ ℝ)
6450, 63readdcld 11338 . . . . . . . . . . 11 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → (0 + Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡)) ∈ ℝ)
65 fzfi 14115 . . . . . . . . . . . . . . 15 (1...𝑀) ∈ Fin
66 diffi 9190 . . . . . . . . . . . . . . 15 ((1...𝑀) ∈ Fin → ((1...𝑀) ∖ {𝑗}) ∈ Fin)
6765, 66mp1i 14 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝑡 ∈ 𝑇) → ((1...𝑀) ∖ {𝑗}) ∈ Fin)
68 eldifi 4078 . . . . . . . . . . . . . . 15 (𝑖 ∈ ((1...𝑀) ∖ {𝑗}) → 𝑖 ∈ (1...𝑀))
6968, 43sylan2 605 . . . . . . . . . . . . . 14 (((𝜑 ∧ 𝑡 ∈ 𝑇) ∧ 𝑖 ∈ ((1...𝑀) ∖ {𝑗})) → ((𝐺‘𝑖)‘𝑡) ∈ ℝ)
7067, 69fsumrecl 15900 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝑡 ∈ 𝑇) → Σ𝑖 ∈ ((1...𝑀) ∖ {𝑗})((𝐺‘𝑖)‘𝑡) ∈ ℝ)
7137, 39, 70syl2anc 596 . . . . . . . . . . . 12 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → Σ𝑖 ∈ ((1...𝑀) ∖ {𝑗})((𝐺‘𝑖)‘𝑡) ∈ ℝ)
7271, 63readdcld 11338 . . . . . . . . . . 11 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → (Σ𝑖 ∈ ((1...𝑀) ∖ {𝑗})((𝐺‘𝑖)‘𝑡) + Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡)) ∈ ℝ)
73 00id 11485 . . . . . . . . . . . 12 (0 + 0) = 0
74 simprr 785 . . . . . . . . . . . . . 14 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → 0 < ((𝐺‘𝑗)‘𝑡))
758, 7, 21stoweidlem15 47024 . . . . . . . . . . . . . . . . . 18 (((𝜑 ∧ 𝑗 ∈ (1...𝑀)) ∧ 𝑡 ∈ 𝑇) → (((𝐺‘𝑗)‘𝑡) ∈ ℝ ∧ 0 ≤ ((𝐺‘𝑗)‘𝑡) ∧ ((𝐺‘𝑗)‘𝑡) ≤ 1))
7675simp1d 1160 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ 𝑗 ∈ (1...𝑀)) ∧ 𝑡 ∈ 𝑇) → ((𝐺‘𝑗)‘𝑡) ∈ ℝ)
7737, 51, 39, 76syl21anc 851 . . . . . . . . . . . . . . . 16 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → ((𝐺‘𝑗)‘𝑡) ∈ ℝ)
7877recnd 11337 . . . . . . . . . . . . . . 15 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → ((𝐺‘𝑗)‘𝑡) ∈ ℂ)
79 fveq2 6885 . . . . . . . . . . . . . . . . 17 (𝑖 = 𝑗 → (𝐺‘𝑖) = (𝐺‘𝑗))
8079fveq1d 6887 . . . . . . . . . . . . . . . 16 (𝑖 = 𝑗 → ((𝐺‘𝑖)‘𝑡) = ((𝐺‘𝑗)‘𝑡))
8180sumsn 15912 . . . . . . . . . . . . . . 15 ((𝑗 ∈ (1...𝑀) ∧ ((𝐺‘𝑗)‘𝑡) ∈ ℂ) → Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡) = ((𝐺‘𝑗)‘𝑡))
8251, 78, 81syl2anc 596 . . . . . . . . . . . . . 14 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡) = ((𝐺‘𝑗)‘𝑡))
8374, 82breqtrrd 5133 . . . . . . . . . . . . 13 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → 0 < Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡))
8450, 63, 50, 83ltadd2dd 11469 . . . . . . . . . . . 12 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → (0 + 0) < (0 + Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡)))
8573, 84eqbrtrrid 5141 . . . . . . . . . . 11 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → 0 < (0 + Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡)))
86 0red 11311 . . . . . . . . . . . . 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 15962 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝑡 ∈ 𝑇) → 0 ≤ Σ𝑖 ∈ ((1...𝑀) ∖ {𝑗})((𝐺‘𝑖)‘𝑡))
94933adant2 1149 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) → 0 ≤ Σ𝑖 ∈ ((1...𝑀) ∖ {𝑗})((𝐺‘𝑖)‘𝑡))
9586, 87, 62, 94leadd1dd 11930 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) → (0 + Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡)) ≤ (Σ𝑖 ∈ ((1...𝑀) ∖ {𝑗})((𝐺‘𝑖)‘𝑡) + Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡)))
9652, 95syl 18 . . . . . . . . . . 11 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → (0 + Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡)) ≤ (Σ𝑖 ∈ ((1...𝑀) ∖ {𝑗})((𝐺‘𝑖)‘𝑡) + Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡)))
9750, 64, 72, 85, 96ltletrd 11470 . . . . . . . . . 10 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → 0 < (Σ𝑖 ∈ ((1...𝑀) ∖ {𝑗})((𝐺‘𝑖)‘𝑡) + Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡)))
98 eldifn 4079 . . . . . . . . . . . . . . . 16 (𝑥 ∈ ((1...𝑀) ∖ {𝑗}) → ¬ 𝑥 ∈ {𝑗})
99 imnan 405 . . . . . . . . . . . . . . . 16 ((𝑥 ∈ ((1...𝑀) ∖ {𝑗}) → ¬ 𝑥 ∈ {𝑗}) ↔ ¬ (𝑥 ∈ ((1...𝑀) ∖ {𝑗}) ∧ 𝑥 ∈ {𝑗}))
10098, 99mpbi 233 . . . . . . . . . . . . . . 15 ¬ (𝑥 ∈ ((1...𝑀) ∖ {𝑗}) ∧ 𝑥 ∈ {𝑗})
101 elin 3915 . . . . . . . . . . . . . . 15 (𝑥 ∈ (((1...𝑀) ∖ {𝑗}) ∩ {𝑗}) ↔ (𝑥 ∈ ((1...𝑀) ∖ {𝑗}) ∧ 𝑥 ∈ {𝑗}))
102100, 101mtbir 326 . . . . . . . . . . . . . 14 ¬ 𝑥 ∈ (((1...𝑀) ∖ {𝑗}) ∩ {𝑗})
103102nel0 4302 . . . . . . . . . . . . 13 (((1...𝑀) ∖ {𝑗}) ∩ {𝑗}) = ∅
104103a1i 11 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) → (((1...𝑀) ∖ {𝑗}) ∩ {𝑗}) = ∅)
105 undif1 4430 . . . . . . . . . . . . 13 (((1...𝑀) ∖ {𝑗}) ∪ {𝑗}) = ((1...𝑀) ∪ {𝑗})
106 snssi 4746 . . . . . . . . . . . . . . 15 (𝑗 ∈ (1...𝑀) → {𝑗} ⊆ (1...𝑀))
1071063ad2ant2 1152 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) → {𝑗} ⊆ (1...𝑀))
108 ssequn2 4135 . . . . . . . . . . . . . 14 ({𝑗} ⊆ (1...𝑀) ↔ ((1...𝑀) ∪ {𝑗}) = (1...𝑀))
109107, 108sylib 221 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) → ((1...𝑀) ∪ {𝑗}) = (1...𝑀))
110105, 109eqtr2id 2809 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) → (1...𝑀) = (((1...𝑀) ∖ {𝑗}) ∪ {𝑗}))
111 fzfid 14116 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) → (1...𝑀) ∈ Fin)
112433adantl2 1186 . . . . . . . . . . . . 13 (((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) ∧ 𝑖 ∈ (1...𝑀)) → ((𝐺‘𝑖)‘𝑡) ∈ ℝ)
113112recnd 11337 . . . . . . . . . . . 12 (((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) ∧ 𝑖 ∈ (1...𝑀)) → ((𝐺‘𝑖)‘𝑡) ∈ ℂ)
114104, 110, 111, 113fsumsplit 15907 . . . . . . . . . . 11 ((𝜑 ∧ 𝑗 ∈ (1...𝑀) ∧ 𝑡 ∈ 𝑇) → Σ𝑖 ∈ (1...𝑀)((𝐺‘𝑖)‘𝑡) = (Σ𝑖 ∈ ((1...𝑀) ∖ {𝑗})((𝐺‘𝑖)‘𝑡) + Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡)))
11552, 114syl 18 . . . . . . . . . 10 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → Σ𝑖 ∈ (1...𝑀)((𝐺‘𝑖)‘𝑡) = (Σ𝑖 ∈ ((1...𝑀) ∖ {𝑗})((𝐺‘𝑖)‘𝑡) + Σ𝑖 ∈ {𝑗} ((𝐺‘𝑖)‘𝑡)))
11697, 115breqtrrd 5133 . . . . . . . . 9 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → 0 < Σ𝑖 ∈ (1...𝑀)((𝐺‘𝑖)‘𝑡))
11736, 45, 49, 116mulgt0d 11465 . . . . . . . 8 (((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) ∧ (𝑗 ∈ (1...𝑀) ∧ 0 < ((𝐺‘𝑗)‘𝑡))) → 0 < ((1 / 𝑀) · Σ𝑖 ∈ (1...𝑀)((𝐺‘𝑖)‘𝑡)))
11830, 31, 35, 117exlimdd 2257 . . . . . . 7 ((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) → 0 < ((1 / 𝑀) · Σ𝑖 ∈ (1...𝑀)((𝐺‘𝑖)‘𝑡)))
1198, 2, 5, 7, 21stoweidlem30 47039 . . . . . . . 8 ((𝜑 ∧ 𝑡 ∈ 𝑇) → (𝑃‘𝑡) = ((1 / 𝑀) · Σ𝑖 ∈ (1...𝑀)((𝐺‘𝑖)‘𝑡)))
12038, 119sylan2 605 . . . . . . 7 ((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) → (𝑃‘𝑡) = ((1 / 𝑀) · Σ𝑖 ∈ (1...𝑀)((𝐺‘𝑖)‘𝑡)))
121118, 120breqtrrd 5133 . . . . . 6 ((𝜑 ∧ 𝑡 ∈ (𝑇 ∖ 𝑈)) → 0 < (𝑃‘𝑡))
122121ex 418 . . . . 5 (𝜑 → (𝑡 ∈ (𝑇 ∖ 𝑈) → 0 < (𝑃‘𝑡)))
1231, 122ralrimi 3261 . . . 4 (𝜑 → ∀𝑡 ∈ (𝑇 ∖ 𝑈)0 < (𝑃‘𝑡))
12425, 27, 1233jca 1146 . . 3 (𝜑 → (∀𝑡 ∈ 𝑇 (0 ≤ (𝑃‘𝑡) ∧ (𝑃‘𝑡) ≤ 1) ∧ (𝑃‘𝑍) = 0 ∧ ∀𝑡 ∈ (𝑇 ∖ 𝑈)0 < (𝑃‘𝑡)))
125 eleq1 2849 . . . . . 6 (𝑝 = 𝑃 → (𝑝 ∈ 𝐴 ↔ 𝑃 ∈ 𝐴))
126 nfmpt1 5204 . . . . . . . . . 10 Ⅎ𝑡(𝑡 ∈ 𝑇 ↦ ((1 / 𝑀) · Σ𝑖 ∈ (1...𝑀)((𝐺‘𝑖)‘𝑡)))
1272, 126nfcxfr 2921 . . . . . . . . 9 Ⅎ𝑡𝑃
128127nfeq2 2940 . . . . . . . 8 Ⅎ𝑡 𝑝 = 𝑃
129 fveq1 6884 . . . . . . . . . 10 (𝑝 = 𝑃 → (𝑝‘𝑡) = (𝑃‘𝑡))
130129breq2d 5115 . . . . . . . . 9 (𝑝 = 𝑃 → (0 ≤ (𝑝‘𝑡) ↔ 0 ≤ (𝑃‘𝑡)))
131129breq1d 5113 . . . . . . . . 9 (𝑝 = 𝑃 → ((𝑝‘𝑡) ≤ 1 ↔ (𝑃‘𝑡) ≤ 1))
132130, 131anbi12d 644 . . . . . . . 8 (𝑝 = 𝑃 → ((0 ≤ (𝑝‘𝑡) ∧ (𝑝‘𝑡) ≤ 1) ↔ (0 ≤ (𝑃‘𝑡) ∧ (𝑃‘𝑡) ≤ 1)))
133128, 132ralbid 3276 . . . . . . 7 (𝑝 = 𝑃 → (∀𝑡 ∈ 𝑇 (0 ≤ (𝑝‘𝑡) ∧ (𝑝‘𝑡) ≤ 1) ↔ ∀𝑡 ∈ 𝑇 (0 ≤ (𝑃‘𝑡) ∧ (𝑃‘𝑡) ≤ 1)))
134 fveq1 6884 . . . . . . . 8 (𝑝 = 𝑃 → (𝑝‘𝑍) = (𝑃‘𝑍))
135134eqeq1d 2763 . . . . . . 7 (𝑝 = 𝑃 → ((𝑝‘𝑍) = 0 ↔ (𝑃‘𝑍) = 0))
136129breq2d 5115 . . . . . . . 8 (𝑝 = 𝑃 → (0 < (𝑝‘𝑡) ↔ 0 < (𝑃‘𝑡)))
137128, 136ralbid 3276 . . . . . . 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 3552 . . . 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 3088 . 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 1570  ∃wex 1812  Ⅎwnf 1816   ∈ wcel 2145  ∀wral 3077  ∃wrex 3087  {crab 3413   ∖ cdif 3896   ∪ cun 3897   ∩ cin 3898   ⊆ wss 3899  ∅c0 4279  {csn 4584  ∪ cuni 4867   class class class wbr 5103   ↦ cmpt 5186  ran crn 5652  ⟶wf 6534  ‘cfv 6538  (class class class)co 7420  Fincfn 8973  ℂcc 11198  ℝcr 11199  0cc0 11200  1c1 11201   + caddc 11203   · cmul 11205   < clt 11343   ≤ cle 11344   / cdiv 11973  ℕcn 12335  (,)cioo 13476  ...cfz 13639  Σcsu 15853  topGenctg 17608   Cn ccn 23542
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2733  ax-rep 5232  ax-sep 5249  ax-nul 5260  ax-pow 5327  ax-pr 5391  ax-un 7751  ax-inf2 9642  ax-cnex 11256  ax-resscn 11257  ax-1cn 11258  ax-icn 11259  ax-addcl 11260  ax-addrcl 11261  ax-mulcl 11262  ax-mulrcl 11263  ax-mulcom 11264  ax-addass 11265  ax-mulass 11266  ax-distr 11267  ax-i2m1 11268  ax-1ne0 11269  ax-1rid 11270  ax-rnegex 11271  ax-rrecex 11272  ax-cnre 11273  ax-pre-lttri 11274  ax-pre-lttrn 11275  ax-pre-ltadd 11276  ax-pre-mulgt0 11277  ax-pre-sup 11278
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-nel 3063  df-ral 3078  df-rex 3088  df-rmo 3366  df-reu 3367  df-rab 3414  df-v 3453  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-int 4908  df-iun 4953  df-br 5104  df-opab 5168  df-mpt 5187  df-tr 5213  df-id 5546  df-eprel 5551  df-po 5559  df-so 5560  df-fr 5604  df-se 5605  df-we 5606  df-xp 5657  df-rel 5658  df-cnv 5659  df-co 5660  df-dm 5661  df-rn 5662  df-res 5663  df-ima 5664  df-pred 6304  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6494  df-fun 6540  df-fn 6541  df-f 6542  df-f1 6543  df-fo 6544  df-f1o 6545  df-fv 6546  df-isom 6547  df-riota 7377  df-ov 7423  df-oprab 7424  df-mpo 7425  df-om 7878  df-1st 8001  df-2nd 8002  df-frecs 8299  df-wrecs 8330  df-recs 8379  df-rdg 8418  df-1o 8476  df-er 8717  df-map 8849  df-en 8974  df-dom 8975  df-sdom 8976  df-fin 8977  df-sup 9434  df-oi 9504  df-card 10020  df-pnf 11345  df-mnf 11346  df-xr 11347  df-ltxr 11348  df-le 11349  df-sub 11543  df-neg 11544  df-div 11974  df-nn 12336  df-2 12405  df-3 12406  df-n0 12607  df-z 12694  df-uz 12966  df-rp 13121  df-ioo 13480  df-ico 13482  df-fz 13640  df-fzo 13789  df-seq 14145  df-exp 14205  df-hash 14475  df-cj 15266  df-re 15267  df-im 15268  df-sqrt 15402  df-abs 15403  df-clim 15655  df-sum 15854  df-topgen 17614  df-top 23212  df-topon 23229  df-bases 23264  df-cn 23545
This theorem is used by:  stoweidlem53  47062
  Copyright terms: Public domain W3C validator