Theorem stoweidlem21 46050

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 7194	. . . . . . . 8 ⊢ ((𝑆 ∈ ℝ ∧ 𝑡 ∈ 𝑇) → ((𝑇 × {𝑆})‘𝑡) = 𝑆)
5	3, 4	sylan 580	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → ((𝑇 × {𝑆})‘𝑡) = 𝑆)
6	5	eqcomd 2741	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → 𝑆 = ((𝑇 × {𝑆})‘𝑡))
7	6	oveq2d 7421	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → ((𝐻‘𝑡) + 𝑆) = ((𝐻‘𝑡) + ((𝑇 × {𝑆})‘𝑡)))
8	2, 7	mpteq2da 5213	. . . 4 ⊢ (𝜑 → (𝑡 ∈ 𝑇 ↦ ((𝐻‘𝑡) + 𝑆)) = (𝑡 ∈ 𝑇 ↦ ((𝐻‘𝑡) + ((𝑇 × {𝑆})‘𝑡))))
9	1, 8	eqtrid 2782	. . 3 ⊢ (𝜑 → 𝐺 = (𝑡 ∈ 𝑇 ↦ ((𝐻‘𝑡) + ((𝑇 × {𝑆})‘𝑡))))
10		stoweidlem21.11	. . . 4 ⊢ (𝜑 → 𝐻 ∈ 𝐴)
11		fconstmpt 5716	. . . . . 6 ⊢ (𝑇 × {𝑆}) = (𝑠 ∈ 𝑇 ↦ 𝑆)
12		stoweidlem21.3	. . . . . . 7 ⊢ Ⅎ𝑡𝑆
13		nfcv 2898	. . . . . . 7 ⊢ Ⅎ𝑠𝑆
14		eqidd 2736	. . . . . . 7 ⊢ (𝑠 = 𝑡 → 𝑆 = 𝑆)
15	12, 13, 14	cbvmpt 5223	. . . . . 6 ⊢ (𝑠 ∈ 𝑇 ↦ 𝑆) = (𝑡 ∈ 𝑇 ↦ 𝑆)
16	11, 15	eqtri 2758	. . . . 5 ⊢ (𝑇 × {𝑆}) = (𝑡 ∈ 𝑇 ↦ 𝑆)
17	12	nfeq2 2916	. . . . . . . . . 10 ⊢ Ⅎ𝑡 𝑥 = 𝑆
18		simpl 482	. . . . . . . . . 10 ⊢ ((𝑥 = 𝑆 ∧ 𝑡 ∈ 𝑇) → 𝑥 = 𝑆)
19	17, 18	mpteq2da 5213	. . . . . . . . 9 ⊢ (𝑥 = 𝑆 → (𝑡 ∈ 𝑇 ↦ 𝑥) = (𝑡 ∈ 𝑇 ↦ 𝑆))
20	19	eleq1d 2819	. . . . . . . 8 ⊢ (𝑥 = 𝑆 → ((𝑡 ∈ 𝑇 ↦ 𝑥) ∈ 𝐴 ↔ (𝑡 ∈ 𝑇 ↦ 𝑆) ∈ 𝐴))
21	20	imbi2d 340	. . . . . . 7 ⊢ (𝑥 = 𝑆 → ((𝜑 → (𝑡 ∈ 𝑇 ↦ 𝑥) ∈ 𝐴) ↔ (𝜑 → (𝑡 ∈ 𝑇 ↦ 𝑆) ∈ 𝐴)))
22		stoweidlem21.9	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ ℝ) → (𝑡 ∈ 𝑇 ↦ 𝑥) ∈ 𝐴)
23	22	expcom 413	. . . . . . 7 ⊢ (𝑥 ∈ ℝ → (𝜑 → (𝑡 ∈ 𝑇 ↦ 𝑥) ∈ 𝐴))
24	21, 23	vtoclga 3556	. . . . . 6 ⊢ (𝑆 ∈ ℝ → (𝜑 → (𝑡 ∈ 𝑇 ↦ 𝑆) ∈ 𝐴))
25	3, 24	mpcom 38	. . . . 5 ⊢ (𝜑 → (𝑡 ∈ 𝑇 ↦ 𝑆) ∈ 𝐴)
26	16, 25	eqeltrid 2838	. . . 4 ⊢ (𝜑 → (𝑇 × {𝑆}) ∈ 𝐴)
27		stoweidlem21.8	. . . . 5 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐴 ∧ 𝑔 ∈ 𝐴) → (𝑡 ∈ 𝑇 ↦ ((𝑓‘𝑡) + (𝑔‘𝑡))) ∈ 𝐴)
28		stoweidlem21.2	. . . . 5 ⊢ Ⅎ𝑡𝐻
29		nfcv 2898	. . . . . 6 ⊢ Ⅎ𝑡𝑇
30	12	nfsn 4683	. . . . . 6 ⊢ Ⅎ𝑡{𝑆}
31	29, 30	nfxp 5687	. . . . 5 ⊢ Ⅎ𝑡(𝑇 × {𝑆})
32	27, 28, 31	stoweidlem8 46037	. . . 4 ⊢ ((𝜑 ∧ 𝐻 ∈ 𝐴 ∧ (𝑇 × {𝑆}) ∈ 𝐴) → (𝑡 ∈ 𝑇 ↦ ((𝐻‘𝑡) + ((𝑇 × {𝑆})‘𝑡))) ∈ 𝐴)
33	10, 26, 32	mpd3an23 1465	. . 3 ⊢ (𝜑 → (𝑡 ∈ 𝑇 ↦ ((𝐻‘𝑡) + ((𝑇 × {𝑆})‘𝑡))) ∈ 𝐴)
34	9, 33	eqeltrd 2834	. 2 ⊢ (𝜑 → 𝐺 ∈ 𝐴)
35		simpr 484	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → 𝑡 ∈ 𝑇)
36		stoweidlem21.10	. . . . . . . . . . . 12 ⊢ (𝜑 → ∀𝑓 ∈ 𝐴 𝑓:𝑇⟶ℝ)
37		feq1 6686	. . . . . . . . . . . . 13 ⊢ (𝑓 = 𝐻 → (𝑓:𝑇⟶ℝ ↔ 𝐻:𝑇⟶ℝ))
38	37	rspccva 3600	. . . . . . . . . . . 12 ⊢ ((∀𝑓 ∈ 𝐴 𝑓:𝑇⟶ℝ ∧ 𝐻 ∈ 𝐴) → 𝐻:𝑇⟶ℝ)
39	36, 10, 38	syl2anc 584	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐻:𝑇⟶ℝ)
40	39	ffvelcdmda 7074	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → (𝐻‘𝑡) ∈ ℝ)
41	3	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → 𝑆 ∈ ℝ)
42	40, 41	readdcld 11264	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → ((𝐻‘𝑡) + 𝑆) ∈ ℝ)
43	1	fvmpt2 6997	. . . . . . . . 9 ⊢ ((𝑡 ∈ 𝑇 ∧ ((𝐻‘𝑡) + 𝑆) ∈ ℝ) → (𝐺‘𝑡) = ((𝐻‘𝑡) + 𝑆))
44	35, 42, 43	syl2anc 584	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → (𝐺‘𝑡) = ((𝐻‘𝑡) + 𝑆))
45	44	oveq1d 7420	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → ((𝐺‘𝑡) − (𝐹‘𝑡)) = (((𝐻‘𝑡) + 𝑆) − (𝐹‘𝑡)))
46	40	recnd 11263	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → (𝐻‘𝑡) ∈ ℂ)
47		stoweidlem21.6	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹:𝑇⟶ℝ)
48	47	ffvelcdmda 7074	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → (𝐹‘𝑡) ∈ ℝ)
49	48	recnd 11263	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → (𝐹‘𝑡) ∈ ℂ)
50	3	recnd 11263	. . . . . . . . 9 ⊢ (𝜑 → 𝑆 ∈ ℂ)
51	50	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → 𝑆 ∈ ℂ)
52	46, 49, 51	subsub3d 11624	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → ((𝐻‘𝑡) − ((𝐹‘𝑡) − 𝑆)) = (((𝐻‘𝑡) + 𝑆) − (𝐹‘𝑡)))
53	45, 52	eqtr4d 2773	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → ((𝐺‘𝑡) − (𝐹‘𝑡)) = ((𝐻‘𝑡) − ((𝐹‘𝑡) − 𝑆)))
54	53	fveq2d 6880	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → (abs‘((𝐺‘𝑡) − (𝐹‘𝑡))) = (abs‘((𝐻‘𝑡) − ((𝐹‘𝑡) − 𝑆))))
55		stoweidlem21.12	. . . . . 6 ⊢ (𝜑 → ∀𝑡 ∈ 𝑇 (abs‘((𝐻‘𝑡) − ((𝐹‘𝑡) − 𝑆))) < 𝐸)
56	55	r19.21bi 3234	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → (abs‘((𝐻‘𝑡) − ((𝐹‘𝑡) − 𝑆))) < 𝐸)
57	54, 56	eqbrtrd 5141	. . . 4 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → (abs‘((𝐺‘𝑡) − (𝐹‘𝑡))) < 𝐸)
58	57	ex 412	. . 3 ⊢ (𝜑 → (𝑡 ∈ 𝑇 → (abs‘((𝐺‘𝑡) − (𝐹‘𝑡))) < 𝐸))
59	2, 58	ralrimi 3240	. 2 ⊢ (𝜑 → ∀𝑡 ∈ 𝑇 (abs‘((𝐺‘𝑡) − (𝐹‘𝑡))) < 𝐸)
60		stoweidlem21.1	. . . . 5 ⊢ Ⅎ𝑡𝐺
61	60	nfeq2 2916	. . . 4 ⊢ Ⅎ𝑡 𝑓 = 𝐺
62		fveq1 6875	. . . . . . 7 ⊢ (𝑓 = 𝐺 → (𝑓‘𝑡) = (𝐺‘𝑡))
63	62	oveq1d 7420	. . . . . 6 ⊢ (𝑓 = 𝐺 → ((𝑓‘𝑡) − (𝐹‘𝑡)) = ((𝐺‘𝑡) − (𝐹‘𝑡)))
64	63	fveq2d 6880	. . . . 5 ⊢ (𝑓 = 𝐺 → (abs‘((𝑓‘𝑡) − (𝐹‘𝑡))) = (abs‘((𝐺‘𝑡) − (𝐹‘𝑡))))
65	64	breq1d 5129	. . . 4 ⊢ (𝑓 = 𝐺 → ((abs‘((𝑓‘𝑡) − (𝐹‘𝑡))) < 𝐸 ↔ (abs‘((𝐺‘𝑡) − (𝐹‘𝑡))) < 𝐸))
66	61, 65	ralbid 3255	. . 3 ⊢ (𝑓 = 𝐺 → (∀𝑡 ∈ 𝑇 (abs‘((𝑓‘𝑡) − (𝐹‘𝑡))) < 𝐸 ↔ ∀𝑡 ∈ 𝑇 (abs‘((𝐺‘𝑡) − (𝐹‘𝑡))) < 𝐸))
67	66	rspcev 3601	. 2 ⊢ ((𝐺 ∈ 𝐴 ∧ ∀𝑡 ∈ 𝑇 (abs‘((𝐺‘𝑡) − (𝐹‘𝑡))) < 𝐸) → ∃𝑓 ∈ 𝐴 ∀𝑡 ∈ 𝑇 (abs‘((𝑓‘𝑡) − (𝐹‘𝑡))) < 𝐸)
68	34, 59, 67	syl2anc 584	1 ⊢ (𝜑 → ∃𝑓 ∈ 𝐴 ∀𝑡 ∈ 𝑇 (abs‘((𝑓‘𝑡) − (𝐹‘𝑡))) < 𝐸)

Syntax hints:   → wi 4   ∧ wa 395   ∧ w3a 1086   = wceq 1540  Ⅎwnf 1783   ∈ wcel 2108  Ⅎwnfc 2883  ∀wral 3051  ∃wrex 3060  {csn 4601   class class class wbr 5119   ↦ cmpt 5201   × cxp 5652  ⟶wf 6527  ‘cfv 6531  (class class class)co 7405  ℂcc 11127  ℝcr 11128   + caddc 11132   < clt 11269   − cmin 11466  abscabs 15253

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2157  ax-12 2177  ax-ext 2707  ax-sep 5266  ax-nul 5276  ax-pow 5335  ax-pr 5402  ax-un 7729  ax-resscn 11186  ax-1cn 11187  ax-icn 11188  ax-addcl 11189  ax-addrcl 11190  ax-mulcl 11191  ax-mulrcl 11192  ax-mulcom 11193  ax-addass 11194  ax-mulass 11195  ax-distr 11196  ax-i2m1 11197  ax-1ne0 11198  ax-1rid 11199  ax-rnegex 11200  ax-rrecex 11201  ax-cnre 11202  ax-pre-lttri 11203  ax-pre-lttrn 11204  ax-pre-ltadd 11205

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2065  df-mo 2539  df-eu 2568  df-clab 2714  df-cleq 2727  df-clel 2809  df-nfc 2885  df-ne 2933  df-nel 3037  df-ral 3052  df-rex 3061  df-reu 3360  df-rab 3416  df-v 3461  df-sbc 3766  df-csb 3875  df-dif 3929  df-un 3931  df-in 3933  df-ss 3943  df-nul 4309  df-if 4501  df-pw 4577  df-sn 4602  df-pr 4604  df-op 4608  df-uni 4884  df-br 5120  df-opab 5182  df-mpt 5202  df-id 5548  df-po 5561  df-so 5562  df-xp 5660  df-rel 5661  df-cnv 5662  df-co 5663  df-dm 5664  df-rn 5665  df-res 5666  df-ima 5667  df-iota 6484  df-fun 6533  df-fn 6534  df-f 6535  df-f1 6536  df-fo 6537  df-f1o 6538  df-fv 6539  df-riota 7362  df-ov 7408  df-oprab 7409  df-mpo 7410  df-er 8719  df-en 8960  df-dom 8961  df-sdom 8962  df-pnf 11271  df-mnf 11272  df-ltxr 11274  df-sub 11468

This theorem is referenced by:  stoweidlem62  46091