Theorem stoweidlem21 46408

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 7160	. . . . . . . 8 ⊢ ((𝑆 ∈ ℝ ∧ 𝑡 ∈ 𝑇) → ((𝑇 × {𝑆})‘𝑡) = 𝑆)
5	3, 4	sylan 581	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → ((𝑇 × {𝑆})‘𝑡) = 𝑆)
6	5	eqcomd 2743	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → 𝑆 = ((𝑇 × {𝑆})‘𝑡))
7	6	oveq2d 7386	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → ((𝐻‘𝑡) + 𝑆) = ((𝐻‘𝑡) + ((𝑇 × {𝑆})‘𝑡)))
8	2, 7	mpteq2da 5192	. . . 4 ⊢ (𝜑 → (𝑡 ∈ 𝑇 ↦ ((𝐻‘𝑡) + 𝑆)) = (𝑡 ∈ 𝑇 ↦ ((𝐻‘𝑡) + ((𝑇 × {𝑆})‘𝑡))))
9	1, 8	eqtrid 2784	. . 3 ⊢ (𝜑 → 𝐺 = (𝑡 ∈ 𝑇 ↦ ((𝐻‘𝑡) + ((𝑇 × {𝑆})‘𝑡))))
10		stoweidlem21.11	. . . 4 ⊢ (𝜑 → 𝐻 ∈ 𝐴)
11		fconstmpt 5696	. . . . . 6 ⊢ (𝑇 × {𝑆}) = (𝑠 ∈ 𝑇 ↦ 𝑆)
12		stoweidlem21.3	. . . . . . 7 ⊢ Ⅎ𝑡𝑆
13		nfcv 2899	. . . . . . 7 ⊢ Ⅎ𝑠𝑆
14		eqidd 2738	. . . . . . 7 ⊢ (𝑠 = 𝑡 → 𝑆 = 𝑆)
15	12, 13, 14	cbvmpt 5202	. . . . . 6 ⊢ (𝑠 ∈ 𝑇 ↦ 𝑆) = (𝑡 ∈ 𝑇 ↦ 𝑆)
16	11, 15	eqtri 2760	. . . . 5 ⊢ (𝑇 × {𝑆}) = (𝑡 ∈ 𝑇 ↦ 𝑆)
17	12	nfeq2 2917	. . . . . . . . . 10 ⊢ Ⅎ𝑡 𝑥 = 𝑆
18		simpl 482	. . . . . . . . . 10 ⊢ ((𝑥 = 𝑆 ∧ 𝑡 ∈ 𝑇) → 𝑥 = 𝑆)
19	17, 18	mpteq2da 5192	. . . . . . . . 9 ⊢ (𝑥 = 𝑆 → (𝑡 ∈ 𝑇 ↦ 𝑥) = (𝑡 ∈ 𝑇 ↦ 𝑆))
20	19	eleq1d 2822	. . . . . . . 8 ⊢ (𝑥 = 𝑆 → ((𝑡 ∈ 𝑇 ↦ 𝑥) ∈ 𝐴 ↔ (𝑡 ∈ 𝑇 ↦ 𝑆) ∈ 𝐴))
21	20	imbi2d 340	. . . . . . 7 ⊢ (𝑥 = 𝑆 → ((𝜑 → (𝑡 ∈ 𝑇 ↦ 𝑥) ∈ 𝐴) ↔ (𝜑 → (𝑡 ∈ 𝑇 ↦ 𝑆) ∈ 𝐴)))
22		stoweidlem21.9	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ ℝ) → (𝑡 ∈ 𝑇 ↦ 𝑥) ∈ 𝐴)
23	22	expcom 413	. . . . . . 7 ⊢ (𝑥 ∈ ℝ → (𝜑 → (𝑡 ∈ 𝑇 ↦ 𝑥) ∈ 𝐴))
24	21, 23	vtoclga 3534	. . . . . 6 ⊢ (𝑆 ∈ ℝ → (𝜑 → (𝑡 ∈ 𝑇 ↦ 𝑆) ∈ 𝐴))
25	3, 24	mpcom 38	. . . . 5 ⊢ (𝜑 → (𝑡 ∈ 𝑇 ↦ 𝑆) ∈ 𝐴)
26	16, 25	eqeltrid 2841	. . . 4 ⊢ (𝜑 → (𝑇 × {𝑆}) ∈ 𝐴)
27		stoweidlem21.8	. . . . 5 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐴 ∧ 𝑔 ∈ 𝐴) → (𝑡 ∈ 𝑇 ↦ ((𝑓‘𝑡) + (𝑔‘𝑡))) ∈ 𝐴)
28		stoweidlem21.2	. . . . 5 ⊢ Ⅎ𝑡𝐻
29		nfcv 2899	. . . . . 6 ⊢ Ⅎ𝑡𝑇
30	12	nfsn 4666	. . . . . 6 ⊢ Ⅎ𝑡{𝑆}
31	29, 30	nfxp 5667	. . . . 5 ⊢ Ⅎ𝑡(𝑇 × {𝑆})
32	27, 28, 31	stoweidlem8 46395	. . . 4 ⊢ ((𝜑 ∧ 𝐻 ∈ 𝐴 ∧ (𝑇 × {𝑆}) ∈ 𝐴) → (𝑡 ∈ 𝑇 ↦ ((𝐻‘𝑡) + ((𝑇 × {𝑆})‘𝑡))) ∈ 𝐴)
33	10, 26, 32	mpd3an23 1466	. . 3 ⊢ (𝜑 → (𝑡 ∈ 𝑇 ↦ ((𝐻‘𝑡) + ((𝑇 × {𝑆})‘𝑡))) ∈ 𝐴)
34	9, 33	eqeltrd 2837	. 2 ⊢ (𝜑 → 𝐺 ∈ 𝐴)
35		simpr 484	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → 𝑡 ∈ 𝑇)
36		stoweidlem21.10	. . . . . . . . . . . 12 ⊢ (𝜑 → ∀𝑓 ∈ 𝐴 𝑓:𝑇⟶ℝ)
37		feq1 6650	. . . . . . . . . . . . 13 ⊢ (𝑓 = 𝐻 → (𝑓:𝑇⟶ℝ ↔ 𝐻:𝑇⟶ℝ))
38	37	rspccva 3577	. . . . . . . . . . . 12 ⊢ ((∀𝑓 ∈ 𝐴 𝑓:𝑇⟶ℝ ∧ 𝐻 ∈ 𝐴) → 𝐻:𝑇⟶ℝ)
39	36, 10, 38	syl2anc 585	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐻:𝑇⟶ℝ)
40	39	ffvelcdmda 7040	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → (𝐻‘𝑡) ∈ ℝ)
41	3	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → 𝑆 ∈ ℝ)
42	40, 41	readdcld 11175	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → ((𝐻‘𝑡) + 𝑆) ∈ ℝ)
43	1	fvmpt2 6963	. . . . . . . . 9 ⊢ ((𝑡 ∈ 𝑇 ∧ ((𝐻‘𝑡) + 𝑆) ∈ ℝ) → (𝐺‘𝑡) = ((𝐻‘𝑡) + 𝑆))
44	35, 42, 43	syl2anc 585	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → (𝐺‘𝑡) = ((𝐻‘𝑡) + 𝑆))
45	44	oveq1d 7385	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → ((𝐺‘𝑡) − (𝐹‘𝑡)) = (((𝐻‘𝑡) + 𝑆) − (𝐹‘𝑡)))
46	40	recnd 11174	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → (𝐻‘𝑡) ∈ ℂ)
47		stoweidlem21.6	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹:𝑇⟶ℝ)
48	47	ffvelcdmda 7040	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → (𝐹‘𝑡) ∈ ℝ)
49	48	recnd 11174	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → (𝐹‘𝑡) ∈ ℂ)
50	3	recnd 11174	. . . . . . . . 9 ⊢ (𝜑 → 𝑆 ∈ ℂ)
51	50	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → 𝑆 ∈ ℂ)
52	46, 49, 51	subsub3d 11536	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → ((𝐻‘𝑡) − ((𝐹‘𝑡) − 𝑆)) = (((𝐻‘𝑡) + 𝑆) − (𝐹‘𝑡)))
53	45, 52	eqtr4d 2775	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → ((𝐺‘𝑡) − (𝐹‘𝑡)) = ((𝐻‘𝑡) − ((𝐹‘𝑡) − 𝑆)))
54	53	fveq2d 6848	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → (abs‘((𝐺‘𝑡) − (𝐹‘𝑡))) = (abs‘((𝐻‘𝑡) − ((𝐹‘𝑡) − 𝑆))))
55		stoweidlem21.12	. . . . . 6 ⊢ (𝜑 → ∀𝑡 ∈ 𝑇 (abs‘((𝐻‘𝑡) − ((𝐹‘𝑡) − 𝑆))) < 𝐸)
56	55	r19.21bi 3230	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → (abs‘((𝐻‘𝑡) − ((𝐹‘𝑡) − 𝑆))) < 𝐸)
57	54, 56	eqbrtrd 5122	. . . 4 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝑇) → (abs‘((𝐺‘𝑡) − (𝐹‘𝑡))) < 𝐸)
58	57	ex 412	. . 3 ⊢ (𝜑 → (𝑡 ∈ 𝑇 → (abs‘((𝐺‘𝑡) − (𝐹‘𝑡))) < 𝐸))
59	2, 58	ralrimi 3236	. 2 ⊢ (𝜑 → ∀𝑡 ∈ 𝑇 (abs‘((𝐺‘𝑡) − (𝐹‘𝑡))) < 𝐸)
60		stoweidlem21.1	. . . . 5 ⊢ Ⅎ𝑡𝐺
61	60	nfeq2 2917	. . . 4 ⊢ Ⅎ𝑡 𝑓 = 𝐺
62		fveq1 6843	. . . . . . 7 ⊢ (𝑓 = 𝐺 → (𝑓‘𝑡) = (𝐺‘𝑡))
63	62	oveq1d 7385	. . . . . 6 ⊢ (𝑓 = 𝐺 → ((𝑓‘𝑡) − (𝐹‘𝑡)) = ((𝐺‘𝑡) − (𝐹‘𝑡)))
64	63	fveq2d 6848	. . . . 5 ⊢ (𝑓 = 𝐺 → (abs‘((𝑓‘𝑡) − (𝐹‘𝑡))) = (abs‘((𝐺‘𝑡) − (𝐹‘𝑡))))
65	64	breq1d 5110	. . . 4 ⊢ (𝑓 = 𝐺 → ((abs‘((𝑓‘𝑡) − (𝐹‘𝑡))) < 𝐸 ↔ (abs‘((𝐺‘𝑡) − (𝐹‘𝑡))) < 𝐸))
66	61, 65	ralbid 3251	. . 3 ⊢ (𝑓 = 𝐺 → (∀𝑡 ∈ 𝑇 (abs‘((𝑓‘𝑡) − (𝐹‘𝑡))) < 𝐸 ↔ ∀𝑡 ∈ 𝑇 (abs‘((𝐺‘𝑡) − (𝐹‘𝑡))) < 𝐸))
67	66	rspcev 3578	. 2 ⊢ ((𝐺 ∈ 𝐴 ∧ ∀𝑡 ∈ 𝑇 (abs‘((𝐺‘𝑡) − (𝐹‘𝑡))) < 𝐸) → ∃𝑓 ∈ 𝐴 ∀𝑡 ∈ 𝑇 (abs‘((𝑓‘𝑡) − (𝐹‘𝑡))) < 𝐸)
68	34, 59, 67	syl2anc 585	1 ⊢ (𝜑 → ∃𝑓 ∈ 𝐴 ∀𝑡 ∈ 𝑇 (abs‘((𝑓‘𝑡) − (𝐹‘𝑡))) < 𝐸)

Syntax hints:   → wi 4   ∧ wa 395   ∧ w3a 1087   = wceq 1542  Ⅎwnf 1785   ∈ wcel 2114  Ⅎwnfc 2884  ∀wral 3052  ∃wrex 3062  {csn 4582   class class class wbr 5100   ↦ cmpt 5181   × cxp 5632  ⟶wf 6498  ‘cfv 6502  (class class class)co 7370  ℂcc 11038  ℝcr 11039   + caddc 11043   < clt 11180   − cmin 11378  abscabs 15171

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-sep 5245  ax-nul 5255  ax-pow 5314  ax-pr 5381  ax-un 7692  ax-resscn 11097  ax-1cn 11098  ax-icn 11099  ax-addcl 11100  ax-addrcl 11101  ax-mulcl 11102  ax-mulrcl 11103  ax-mulcom 11104  ax-addass 11105  ax-mulass 11106  ax-distr 11107  ax-i2m1 11108  ax-1ne0 11109  ax-1rid 11110  ax-rnegex 11111  ax-rrecex 11112  ax-cnre 11113  ax-pre-lttri 11114  ax-pre-lttrn 11115  ax-pre-ltadd 11116

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-reu 3353  df-rab 3402  df-v 3444  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-nul 4288  df-if 4482  df-pw 4558  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-br 5101  df-opab 5163  df-mpt 5182  df-id 5529  df-po 5542  df-so 5543  df-xp 5640  df-rel 5641  df-cnv 5642  df-co 5643  df-dm 5644  df-rn 5645  df-res 5646  df-ima 5647  df-iota 6458  df-fun 6504  df-fn 6505  df-f 6506  df-f1 6507  df-fo 6508  df-f1o 6509  df-fv 6510  df-riota 7327  df-ov 7373  df-oprab 7374  df-mpo 7375  df-er 8647  df-en 8898  df-dom 8899  df-sdom 8900  df-pnf 11182  df-mnf 11183  df-ltxr 11185  df-sub 11380

This theorem is referenced by:  stoweidlem62  46449