Theorem stoweidlem21 46763

Description: Once the Stone Weierstrass theorem has been proven for approximating nonnegative functions, then this lemma is used to extend the result to functions with (possibly) negative values. (Contributed by Glauco Siliprandi, 20-Apr-2017.)

Hypotheses

Ref	Expression
stoweidlem21.1	⊢ Ⅎ𝑡𝐺
stoweidlem21.2	⊢ Ⅎ𝑡𝐻
stoweidlem21.3	⊢ Ⅎ𝑡𝑆
stoweidlem21.4	⊢ Ⅎ𝑡𝜑
stoweidlem21.5	⊢ 𝐺 = (𝑡 ∈ 𝑇 ↦ ((𝐻‘𝑡) + 𝑆))
stoweidlem21.6	⊢ (𝜑 → 𝐹:𝑇⟶ℝ)
stoweidlem21.7	⊢ (𝜑 → 𝑆 ∈ ℝ)
stoweidlem21.8	⊢ ((𝜑 ∧ 𝑓 ∈ 𝐴 ∧ 𝑔 ∈ 𝐴) → (𝑡 ∈ 𝑇 ↦ ((𝑓‘𝑡) + (𝑔‘𝑡))) ∈ 𝐴)
stoweidlem21.9	⊢ ((𝜑 ∧ 𝑥 ∈ ℝ) → (𝑡 ∈ 𝑇 ↦ 𝑥) ∈ 𝐴)
stoweidlem21.10	⊢ (𝜑 → ∀𝑓 ∈ 𝐴 𝑓:𝑇⟶ℝ)
stoweidlem21.11	⊢ (𝜑 → 𝐻 ∈ 𝐴)
stoweidlem21.12	⊢ (𝜑 → ∀𝑡 ∈ 𝑇 (abs‘((𝐻‘𝑡) − ((𝐹‘𝑡) − 𝑆))) < 𝐸)

Assertion

Ref	Expression
stoweidlem21	⊢ (𝜑 → ∃𝑓 ∈ 𝐴 ∀𝑡 ∈ 𝑇 (abs‘((𝑓‘𝑡) − (𝐹‘𝑡))) < 𝐸)

Distinct variable groups:   𝑓,𝑔,𝑡,𝑇   𝐴,𝑓,𝑔   𝑓,𝐸,𝑔   𝑓,𝐹,𝑔   𝑓,𝐺,𝑔   𝑓,𝐻,𝑔   𝜑,𝑓,𝑔   𝑆,𝑔   𝑥,𝑡,𝑇   𝑥,𝐴   𝑥,𝑆   𝜑,𝑥

Allowed substitution hints:   𝜑(𝑡)   𝐴(𝑡)   𝑆(𝑡, 𝑓)   𝐸(𝑥, 𝑡)   𝐹(𝑥, 𝑡)   𝐺(𝑥, 𝑡)   𝐻(𝑥, 𝑡)

Proof of Theorem stoweidlem21

Dummy variable 𝑠 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		stoweidlem21.5	. . . 4 ⊢ 𝐺 = (𝑡 ∈ 𝑇 ↦ ((𝐻‘𝑡) + 𝑆))
2		stoweidlem21.4	. . . . 5 ⊢ Ⅎ𝑡𝜑
3		stoweidlem21.7	. . . . . . . 8 ⊢ (𝜑 → 𝑆 ∈ ℝ)
4		fvconst2g 7200	. . . . . . . 8 ⊢ ((𝑆 ∈ ℝ ∧ 𝑡 ∈ 𝑇) → ((𝑇 × {𝑆})‘𝑡) = 𝑆)
5	3, 4	sylan 591	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → ((𝑇 × {𝑆})‘𝑡) = 𝑆)
6	5	eqcomd 2769	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → 𝑆 = ((𝑇 × {𝑆})‘𝑡))
7	6	oveq2d 7426	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → ((𝐻‘𝑡) + 𝑆) = ((𝐻‘𝑡) + ((𝑇 × {𝑆})‘𝑡)))
8	2, 7	mpteq2da 5203	. . . 4 ⊢ (𝜑 → (𝑡 ∈ 𝑇 ↦ ((𝐻‘𝑡) + 𝑆)) = (𝑡 ∈ 𝑇 ↦ ((𝐻‘𝑡) + ((𝑇 × {𝑆})‘𝑡))))
9	1, 8	eqtrid 2810	. . 3 ⊢ (𝜑 → 𝐺 = (𝑡 ∈ 𝑇 ↦ ((𝐻‘𝑡) + ((𝑇 × {𝑆})‘𝑡))))
10		stoweidlem21.11	. . . 4 ⊢ (𝜑 → 𝐻 ∈ 𝐴)
11		fconstmpt 5723	. . . . . 6 ⊢ (𝑇 × {𝑆}) = (𝑠 ∈ 𝑇 ↦ 𝑆)
12		stoweidlem21.3	. . . . . . 7 ⊢ Ⅎ𝑡𝑆
13		nfcv 2925	. . . . . . 7 ⊢ Ⅎ𝑠𝑆
14		eqidd 2764	. . . . . . 7 ⊢ (𝑠 = 𝑡 → 𝑆 = 𝑆)
15	12, 13, 14	cbvmpt 5213	. . . . . 6 ⊢ (𝑠 ∈ 𝑇 ↦ 𝑆) = (𝑡 ∈ 𝑇 ↦ 𝑆)
16	11, 15	eqtri 2786	. . . . 5 ⊢ (𝑇 × {𝑆}) = (𝑡 ∈ 𝑇 ↦ 𝑆)
17	12	nfeq2 2942	. . . . . . . . . 10 ⊢ Ⅎ𝑡 𝑥 = 𝑆
18		simpl 487	. . . . . . . . . 10 ⊢ ((𝑥 = 𝑆 ∧ 𝑡 ∈ 𝑇) → 𝑥 = 𝑆)
19	17, 18	mpteq2da 5203	. . . . . . . . 9 ⊢ (𝑥 = 𝑆 → (𝑡 ∈ 𝑇 ↦ 𝑥) = (𝑡 ∈ 𝑇 ↦ 𝑆))
20	19	eleq1d 2848	. . . . . . . 8 ⊢ (𝑥 = 𝑆 → ((𝑡 ∈ 𝑇 ↦ 𝑥) ∈ 𝐴 ↔ (𝑡 ∈ 𝑇 ↦ 𝑆) ∈ 𝐴))
21	20	imbi2d 343	. . . . . . 7 ⊢ (𝑥 = 𝑆 → ((𝜑 → (𝑡 ∈ 𝑇 ↦ 𝑥) ∈ 𝐴) ↔ (𝜑 → (𝑡 ∈ 𝑇 ↦ 𝑆) ∈ 𝐴)))
22		stoweidlem21.9	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ ℝ) → (𝑡 ∈ 𝑇 ↦ 𝑥) ∈ 𝐴)
23	22	expcom 418	. . . . . . 7 ⊢ (𝑥 ∈ ℝ → (𝜑 → (𝑡 ∈ 𝑇 ↦ 𝑥) ∈ 𝐴))
24	21, 23	vtoclga 3541	. . . . . 6 ⊢ (𝑆 ∈ ℝ → (𝜑 → (𝑡 ∈ 𝑇 ↦ 𝑆) ∈ 𝐴))
25	3, 24	mpcom 39	. . . . 5 ⊢ (𝜑 → (𝑡 ∈ 𝑇 ↦ 𝑆) ∈ 𝐴)
26	16, 25	eqeltrid 2867	. . . 4 ⊢ (𝜑 → (𝑇 × {𝑆}) ∈ 𝐴)
27		stoweidlem21.8	. . . . 5 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐴 ∧ 𝑔 ∈ 𝐴) → (𝑡 ∈ 𝑇 ↦ ((𝑓‘𝑡) + (𝑔‘𝑡))) ∈ 𝐴)
28		stoweidlem21.2	. . . . 5 ⊢ Ⅎ𝑡𝐻
29		nfcv 2925	. . . . . 6 ⊢ Ⅎ𝑡𝑇
30	12	nfsn 4673	. . . . . 6 ⊢ Ⅎ𝑡{𝑆}
31	29, 30	nfxp 5694	. . . . 5 ⊢ Ⅎ𝑡(𝑇 × {𝑆})
32	27, 28, 31	stoweidlem8 46750	. . . 4 ⊢ ((𝜑 ∧ 𝐻 ∈ 𝐴 ∧ (𝑇 × {𝑆}) ∈ 𝐴) → (𝑡 ∈ 𝑇 ↦ ((𝐻‘𝑡) + ((𝑇 × {𝑆})‘𝑡))) ∈ 𝐴)
33	10, 26, 32	mpd3an23 1492	. . 3 ⊢ (𝜑 → (𝑡 ∈ 𝑇 ↦ ((𝐻‘𝑡) + ((𝑇 × {𝑆})‘𝑡))) ∈ 𝐴)
34	9, 33	eqeltrd 2863	. 2 ⊢ (𝜑 → 𝐺 ∈ 𝐴)
35		simpr 489	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → 𝑡 ∈ 𝑇)
36		stoweidlem21.10	. . . . . . . . . . . 12 ⊢ (𝜑 → ∀𝑓 ∈ 𝐴 𝑓:𝑇⟶ℝ)
37		feq1 6683	. . . . . . . . . . . . 13 ⊢ (𝑓 = 𝐻 → (𝑓:𝑇⟶ℝ ↔ 𝐻:𝑇⟶ℝ))
38	37	rspccva 3580	. . . . . . . . . . . 12 ⊢ ((∀𝑓 ∈ 𝐴 𝑓:𝑇⟶ℝ ∧ 𝐻 ∈ 𝐴) → 𝐻:𝑇⟶ℝ)
39	36, 10, 38	syl2anc 595	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐻:𝑇⟶ℝ)
40	39	ffvelcdmda 7079	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → (𝐻‘𝑡) ∈ ℝ)
41	3	adantr 485	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → 𝑆 ∈ ℝ)
42	40, 41	readdcld 11242	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → ((𝐻‘𝑡) + 𝑆) ∈ ℝ)
43	1	fvmpt2 7001	. . . . . . . . 9 ⊢ ((𝑡 ∈ 𝑇 ∧ ((𝐻‘𝑡) + 𝑆) ∈ ℝ) → (𝐺‘𝑡) = ((𝐻‘𝑡) + 𝑆))
44	35, 42, 43	syl2anc 595	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → (𝐺‘𝑡) = ((𝐻‘𝑡) + 𝑆))
45	44	oveq1d 7425	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → ((𝐺‘𝑡) − (𝐹‘𝑡)) = (((𝐻‘𝑡) + 𝑆) − (𝐹‘𝑡)))
46	40	recnd 11241	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → (𝐻‘𝑡) ∈ ℂ)
47		stoweidlem21.6	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹:𝑇⟶ℝ)
48	47	ffvelcdmda 7079	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → (𝐹‘𝑡) ∈ ℝ)
49	48	recnd 11241	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → (𝐹‘𝑡) ∈ ℂ)
50	3	recnd 11241	. . . . . . . . 9 ⊢ (𝜑 → 𝑆 ∈ ℂ)
51	50	adantr 485	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → 𝑆 ∈ ℂ)
52	46, 49, 51	subsub3d 11603	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → ((𝐻‘𝑡) − ((𝐹‘𝑡) − 𝑆)) = (((𝐻‘𝑡) + 𝑆) − (𝐹‘𝑡)))
53	45, 52	eqtr4d 2801	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → ((𝐺‘𝑡) − (𝐹‘𝑡)) = ((𝐻‘𝑡) − ((𝐹‘𝑡) − 𝑆)))
54	53	fveq2d 6885	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → (abs‘((𝐺‘𝑡) − (𝐹‘𝑡))) = (abs‘((𝐻‘𝑡) − ((𝐹‘𝑡) − 𝑆))))
55		stoweidlem21.12	. . . . . 6 ⊢ (𝜑 → ∀𝑡 ∈ 𝑇 (abs‘((𝐻‘𝑡) − ((𝐹‘𝑡) − 𝑆))) < 𝐸)
56	55	r19.21bi 3257	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → (abs‘((𝐻‘𝑡) − ((𝐹‘𝑡) − 𝑆))) < 𝐸)
57	54, 56	eqbrtrd 5133	. . . 4 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → (abs‘((𝐺‘𝑡) − (𝐹‘𝑡))) < 𝐸)
58	57	ex 417	. . 3 ⊢ (𝜑 → (𝑡 ∈ 𝑇 → (abs‘((𝐺‘𝑡) − (𝐹‘𝑡))) < 𝐸))
59	2, 58	ralrimi 3263	. 2 ⊢ (𝜑 → ∀𝑡 ∈ 𝑇 (abs‘((𝐺‘𝑡) − (𝐹‘𝑡))) < 𝐸)
60		stoweidlem21.1	. . . . 5 ⊢ Ⅎ𝑡𝐺
61	60	nfeq2 2942	. . . 4 ⊢ Ⅎ𝑡 𝑓 = 𝐺
62		fveq1 6880	. . . . . . 7 ⊢ (𝑓 = 𝐺 → (𝑓‘𝑡) = (𝐺‘𝑡))
63	62	oveq1d 7425	. . . . . 6 ⊢ (𝑓 = 𝐺 → ((𝑓‘𝑡) − (𝐹‘𝑡)) = ((𝐺‘𝑡) − (𝐹‘𝑡)))
64	63	fveq2d 6885	. . . . 5 ⊢ (𝑓 = 𝐺 → (abs‘((𝑓‘𝑡) − (𝐹‘𝑡))) = (abs‘((𝐺‘𝑡) − (𝐹‘𝑡))))
65	64	breq1d 5119	. . . 4 ⊢ (𝑓 = 𝐺 → ((abs‘((𝑓‘𝑡) − (𝐹‘𝑡))) < 𝐸 ↔ (abs‘((𝐺‘𝑡) − (𝐹‘𝑡))) < 𝐸))
66	61, 65	ralbid 3278	. . 3 ⊢ (𝑓 = 𝐺 → (∀𝑡 ∈ 𝑇 (abs‘((𝑓‘𝑡) − (𝐹‘𝑡))) < 𝐸 ↔ ∀𝑡 ∈ 𝑇 (abs‘((𝐺‘𝑡) − (𝐹‘𝑡))) < 𝐸))
67	66	rspcev 3581	. 2 ⊢ ((𝐺 ∈ 𝐴 ∧ ∀𝑡 ∈ 𝑇 (abs‘((𝐺‘𝑡) − (𝐹‘𝑡))) < 𝐸) → ∃𝑓 ∈ 𝐴 ∀𝑡 ∈ 𝑇 (abs‘((𝑓‘𝑡) − (𝐹‘𝑡))) < 𝐸)
68	34, 59, 67	syl2anc 595	1 ⊢ (𝜑 → ∃𝑓 ∈ 𝐴 ∀𝑡 ∈ 𝑇 (abs‘((𝑓‘𝑡) − (𝐹‘𝑡))) < 𝐸)

This proof depends on syntax axioms:   → wi 4   ∧ wa 400   ∧ w3a 1103   = wceq 1570  Ⅎwnf 1813   ∈ wcel 2143  Ⅎwnfc 2910  ∀wral 3079  ∃wrex 3089  {csn 4589   class class class wbr 5109   ↦ cmpt 5192   × cxp 5659  ⟶wf 6532  ‘cfv 6536  (class class class)co 7410  ℂcc 11102  ℝcr 11103   + caddc 11107   < clt 11247   − cmin 11445  abscabs 15290

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-sep 5257  ax-nul 5269  ax-pow 5336  ax-pr 5404  ax-un 7732  ax-resscn 11161  ax-1cn 11162  ax-icn 11163  ax-addcl 11164  ax-addrcl 11165  ax-mulcl 11166  ax-mulrcl 11167  ax-mulcom 11168  ax-addass 11169  ax-mulass 11170  ax-distr 11171  ax-i2m1 11172  ax-1ne0 11173  ax-1rid 11174  ax-rnegex 11175  ax-rrecex 11176  ax-cnre 11177  ax-pre-lttri 11178  ax-pre-lttrn 11179  ax-pre-ltadd 11180

This proof depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-nel 3065  df-ral 3080  df-rex 3090  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3745  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-nul 4287  df-if 4488  df-pw 4564  df-sn 4590  df-pr 4592  df-op 4596  df-uni 4873  df-br 5110  df-opab 5174  df-mpt 5193  df-id 5556  df-po 5569  df-so 5570  df-xp 5667  df-rel 5668  df-cnv 5669  df-co 5670  df-dm 5671  df-rn 5672  df-res 5673  df-ima 5674  df-iota 6492  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-riota 7367  df-ov 7413  df-oprab 7414  df-mpo 7415  df-er 8690  df-en 8940  df-dom 8941  df-sdom 8942  df-pnf 11249  df-mnf 11250  df-ltxr 11252  df-sub 11447

This theorem is used by:  stoweidlem62  46804