Theorem psercnlem1 25007

Description: Lemma for psercn 25008. (Contributed by Mario Carneiro, 18-Mar-2015.)

Hypotheses

Ref	Expression
pserf.g	⊢ 𝐺 = (𝑥 ∈ ℂ ↦ (𝑛 ∈ ℕ0 ↦ ((𝐴‘𝑛) · (𝑥↑𝑛))))
pserf.f	⊢ 𝐹 = (𝑦 ∈ 𝑆 ↦ Σ𝑗 ∈ ℕ0 ((𝐺‘𝑦)‘𝑗))
pserf.a	⊢ (𝜑 → 𝐴:ℕ0⟶ℂ)
pserf.r	⊢ 𝑅 = sup({𝑟 ∈ ℝ ∣ seq0( + , (𝐺‘𝑟)) ∈ dom ⇝ }, ℝ*, < )
psercn.s	⊢ 𝑆 = (◡abs “ (0[,)𝑅))
psercn.m	⊢ 𝑀 = if(𝑅 ∈ ℝ, (((abs‘𝑎) + 𝑅) / 2), ((abs‘𝑎) + 1))

Assertion

Ref	Expression
psercnlem1	⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → (𝑀 ∈ ℝ+ ∧ (abs‘𝑎) < 𝑀 ∧ 𝑀 < 𝑅))

Distinct variable groups:   𝑗,𝑎,𝑛,𝑟,𝑥,𝑦,𝐴   𝑗,𝑀,𝑦   𝑗,𝐺,𝑟,𝑦   𝑆,𝑎,𝑗,𝑦   𝐹,𝑎   𝜑,𝑎,𝑗,𝑦

Allowed substitution hints:   𝜑(𝑥,𝑛,𝑟)   𝑅(𝑥,𝑦,𝑗,𝑛,𝑟,𝑎)   𝑆(𝑥,𝑛,𝑟)   𝐹(𝑥,𝑦,𝑗,𝑛,𝑟)   𝐺(𝑥,𝑛,𝑎)   𝑀(𝑥,𝑛,𝑟,𝑎)

Proof of Theorem psercnlem1

Step	Hyp	Ref	Expression
1		psercn.m	. . . 4 ⊢ 𝑀 = if(𝑅 ∈ ℝ, (((abs‘𝑎) + 𝑅) / 2), ((abs‘𝑎) + 1))
2		psercn.s	. . . . . . . . . . 11 ⊢ 𝑆 = (◡abs “ (0[,)𝑅))
3		cnvimass 5943	. . . . . . . . . . . 12 ⊢ (◡abs “ (0[,)𝑅)) ⊆ dom abs
4		absf 14691	. . . . . . . . . . . . 13 ⊢ abs:ℂ⟶ℝ
5	4	fdmi 6518	. . . . . . . . . . . 12 ⊢ dom abs = ℂ
6	3, 5	sseqtri 4002	. . . . . . . . . . 11 ⊢ (◡abs “ (0[,)𝑅)) ⊆ ℂ
7	2, 6	eqsstri 4000	. . . . . . . . . 10 ⊢ 𝑆 ⊆ ℂ
8	7	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → 𝑆 ⊆ ℂ)
9	8	sselda 3966	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → 𝑎 ∈ ℂ)
10	9	abscld 14790	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → (abs‘𝑎) ∈ ℝ)
11		readdcl 10614	. . . . . . 7 ⊢ (((abs‘𝑎) ∈ ℝ ∧ 𝑅 ∈ ℝ) → ((abs‘𝑎) + 𝑅) ∈ ℝ)
12	10, 11	sylan 582	. . . . . 6 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ 𝑅 ∈ ℝ) → ((abs‘𝑎) + 𝑅) ∈ ℝ)
13	12	rehalfcld 11878	. . . . 5 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ 𝑅 ∈ ℝ) → (((abs‘𝑎) + 𝑅) / 2) ∈ ℝ)
14		peano2re 10807	. . . . . . 7 ⊢ ((abs‘𝑎) ∈ ℝ → ((abs‘𝑎) + 1) ∈ ℝ)
15	10, 14	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → ((abs‘𝑎) + 1) ∈ ℝ)
16	15	adantr 483	. . . . 5 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ ¬ 𝑅 ∈ ℝ) → ((abs‘𝑎) + 1) ∈ ℝ)
17	13, 16	ifclda 4500	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → if(𝑅 ∈ ℝ, (((abs‘𝑎) + 𝑅) / 2), ((abs‘𝑎) + 1)) ∈ ℝ)
18	1, 17	eqeltrid 2917	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → 𝑀 ∈ ℝ)
19		0re 10637	. . . . 5 ⊢ 0 ∈ ℝ
20	19	a1i 11	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → 0 ∈ ℝ)
21	9	absge0d 14798	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → 0 ≤ (abs‘𝑎))
22		breq2 5062	. . . . . 6 ⊢ ((((abs‘𝑎) + 𝑅) / 2) = if(𝑅 ∈ ℝ, (((abs‘𝑎) + 𝑅) / 2), ((abs‘𝑎) + 1)) → ((abs‘𝑎) < (((abs‘𝑎) + 𝑅) / 2) ↔ (abs‘𝑎) < if(𝑅 ∈ ℝ, (((abs‘𝑎) + 𝑅) / 2), ((abs‘𝑎) + 1))))
23		breq2 5062	. . . . . 6 ⊢ (((abs‘𝑎) + 1) = if(𝑅 ∈ ℝ, (((abs‘𝑎) + 𝑅) / 2), ((abs‘𝑎) + 1)) → ((abs‘𝑎) < ((abs‘𝑎) + 1) ↔ (abs‘𝑎) < if(𝑅 ∈ ℝ, (((abs‘𝑎) + 𝑅) / 2), ((abs‘𝑎) + 1))))
24		simpr 487	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → 𝑎 ∈ 𝑆)
25	24, 2	eleqtrdi 2923	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → 𝑎 ∈ (◡abs “ (0[,)𝑅)))
26		ffn 6508	. . . . . . . . . . . . 13 ⊢ (abs:ℂ⟶ℝ → abs Fn ℂ)
27		elpreima 6822	. . . . . . . . . . . . 13 ⊢ (abs Fn ℂ → (𝑎 ∈ (◡abs “ (0[,)𝑅)) ↔ (𝑎 ∈ ℂ ∧ (abs‘𝑎) ∈ (0[,)𝑅))))
28	4, 26, 27	mp2b 10	. . . . . . . . . . . 12 ⊢ (𝑎 ∈ (◡abs “ (0[,)𝑅)) ↔ (𝑎 ∈ ℂ ∧ (abs‘𝑎) ∈ (0[,)𝑅)))
29	25, 28	sylib 220	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → (𝑎 ∈ ℂ ∧ (abs‘𝑎) ∈ (0[,)𝑅)))
30	29	simprd 498	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → (abs‘𝑎) ∈ (0[,)𝑅))
31		iccssxr 12813	. . . . . . . . . . . 12 ⊢ (0[,]+∞) ⊆ ℝ*
32		pserf.g	. . . . . . . . . . . . . 14 ⊢ 𝐺 = (𝑥 ∈ ℂ ↦ (𝑛 ∈ ℕ0 ↦ ((𝐴‘𝑛) · (𝑥↑𝑛))))
33		pserf.a	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐴:ℕ0⟶ℂ)
34		pserf.r	. . . . . . . . . . . . . 14 ⊢ 𝑅 = sup({𝑟 ∈ ℝ ∣ seq0( + , (𝐺‘𝑟)) ∈ dom ⇝ }, ℝ*, < )
35	32, 33, 34	radcnvcl 24999	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑅 ∈ (0[,]+∞))
36	35	adantr 483	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → 𝑅 ∈ (0[,]+∞))
37	31, 36	sseldi 3964	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → 𝑅 ∈ ℝ*)
38		elico2 12794	. . . . . . . . . . 11 ⊢ ((0 ∈ ℝ ∧ 𝑅 ∈ ℝ*) → ((abs‘𝑎) ∈ (0[,)𝑅) ↔ ((abs‘𝑎) ∈ ℝ ∧ 0 ≤ (abs‘𝑎) ∧ (abs‘𝑎) < 𝑅)))
39	19, 37, 38	sylancr 589	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → ((abs‘𝑎) ∈ (0[,)𝑅) ↔ ((abs‘𝑎) ∈ ℝ ∧ 0 ≤ (abs‘𝑎) ∧ (abs‘𝑎) < 𝑅)))
40	30, 39	mpbid 234	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → ((abs‘𝑎) ∈ ℝ ∧ 0 ≤ (abs‘𝑎) ∧ (abs‘𝑎) < 𝑅))
41	40	simp3d 1140	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → (abs‘𝑎) < 𝑅)
42	41	adantr 483	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ 𝑅 ∈ ℝ) → (abs‘𝑎) < 𝑅)
43		avglt1 11869	. . . . . . . 8 ⊢ (((abs‘𝑎) ∈ ℝ ∧ 𝑅 ∈ ℝ) → ((abs‘𝑎) < 𝑅 ↔ (abs‘𝑎) < (((abs‘𝑎) + 𝑅) / 2)))
44	10, 43	sylan 582	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ 𝑅 ∈ ℝ) → ((abs‘𝑎) < 𝑅 ↔ (abs‘𝑎) < (((abs‘𝑎) + 𝑅) / 2)))
45	42, 44	mpbid 234	. . . . . 6 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ 𝑅 ∈ ℝ) → (abs‘𝑎) < (((abs‘𝑎) + 𝑅) / 2))
46	10	ltp1d 11564	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → (abs‘𝑎) < ((abs‘𝑎) + 1))
47	46	adantr 483	. . . . . 6 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ ¬ 𝑅 ∈ ℝ) → (abs‘𝑎) < ((abs‘𝑎) + 1))
48	22, 23, 45, 47	ifbothda 4503	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → (abs‘𝑎) < if(𝑅 ∈ ℝ, (((abs‘𝑎) + 𝑅) / 2), ((abs‘𝑎) + 1)))
49	48, 1	breqtrrdi 5100	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → (abs‘𝑎) < 𝑀)
50	20, 10, 18, 21, 49	lelttrd 10792	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → 0 < 𝑀)
51	18, 50	elrpd 12422	. 2 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → 𝑀 ∈ ℝ+)
52		breq1 5061	. . . 4 ⊢ ((((abs‘𝑎) + 𝑅) / 2) = if(𝑅 ∈ ℝ, (((abs‘𝑎) + 𝑅) / 2), ((abs‘𝑎) + 1)) → ((((abs‘𝑎) + 𝑅) / 2) < 𝑅 ↔ if(𝑅 ∈ ℝ, (((abs‘𝑎) + 𝑅) / 2), ((abs‘𝑎) + 1)) < 𝑅))
53		breq1 5061	. . . 4 ⊢ (((abs‘𝑎) + 1) = if(𝑅 ∈ ℝ, (((abs‘𝑎) + 𝑅) / 2), ((abs‘𝑎) + 1)) → (((abs‘𝑎) + 1) < 𝑅 ↔ if(𝑅 ∈ ℝ, (((abs‘𝑎) + 𝑅) / 2), ((abs‘𝑎) + 1)) < 𝑅))
54		avglt2 11870	. . . . . 6 ⊢ (((abs‘𝑎) ∈ ℝ ∧ 𝑅 ∈ ℝ) → ((abs‘𝑎) < 𝑅 ↔ (((abs‘𝑎) + 𝑅) / 2) < 𝑅))
55	10, 54	sylan 582	. . . . 5 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ 𝑅 ∈ ℝ) → ((abs‘𝑎) < 𝑅 ↔ (((abs‘𝑎) + 𝑅) / 2) < 𝑅))
56	42, 55	mpbid 234	. . . 4 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ 𝑅 ∈ ℝ) → (((abs‘𝑎) + 𝑅) / 2) < 𝑅)
57	15	rexrd 10685	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → ((abs‘𝑎) + 1) ∈ ℝ*)
58	37, 57	xrlenltd 10701	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → (𝑅 ≤ ((abs‘𝑎) + 1) ↔ ¬ ((abs‘𝑎) + 1) < 𝑅))
59		0xr 10682	. . . . . . . . . . . . 13 ⊢ 0 ∈ ℝ*
60		pnfxr 10689	. . . . . . . . . . . . 13 ⊢ +∞ ∈ ℝ*
61		elicc1 12776	. . . . . . . . . . . . 13 ⊢ ((0 ∈ ℝ* ∧ +∞ ∈ ℝ*) → (𝑅 ∈ (0[,]+∞) ↔ (𝑅 ∈ ℝ* ∧ 0 ≤ 𝑅 ∧ 𝑅 ≤ +∞)))
62	59, 60, 61	mp2an 690	. . . . . . . . . . . 12 ⊢ (𝑅 ∈ (0[,]+∞) ↔ (𝑅 ∈ ℝ* ∧ 0 ≤ 𝑅 ∧ 𝑅 ≤ +∞))
63	35, 62	sylib 220	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑅 ∈ ℝ* ∧ 0 ≤ 𝑅 ∧ 𝑅 ≤ +∞))
64	63	simp2d 1139	. . . . . . . . . 10 ⊢ (𝜑 → 0 ≤ 𝑅)
65	64	adantr 483	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → 0 ≤ 𝑅)
66		ge0gtmnf 12559	. . . . . . . . 9 ⊢ ((𝑅 ∈ ℝ* ∧ 0 ≤ 𝑅) → -∞ < 𝑅)
67	37, 65, 66	syl2anc 586	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → -∞ < 𝑅)
68		xrre 12556	. . . . . . . . 9 ⊢ (((𝑅 ∈ ℝ* ∧ ((abs‘𝑎) + 1) ∈ ℝ) ∧ (-∞ < 𝑅 ∧ 𝑅 ≤ ((abs‘𝑎) + 1))) → 𝑅 ∈ ℝ)
69	68	expr 459	. . . . . . . 8 ⊢ (((𝑅 ∈ ℝ* ∧ ((abs‘𝑎) + 1) ∈ ℝ) ∧ -∞ < 𝑅) → (𝑅 ≤ ((abs‘𝑎) + 1) → 𝑅 ∈ ℝ))
70	37, 15, 67, 69	syl21anc 835	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → (𝑅 ≤ ((abs‘𝑎) + 1) → 𝑅 ∈ ℝ))
71	58, 70	sylbird 262	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → (¬ ((abs‘𝑎) + 1) < 𝑅 → 𝑅 ∈ ℝ))
72	71	con1d 147	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → (¬ 𝑅 ∈ ℝ → ((abs‘𝑎) + 1) < 𝑅))
73	72	imp 409	. . . 4 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ ¬ 𝑅 ∈ ℝ) → ((abs‘𝑎) + 1) < 𝑅)
74	52, 53, 56, 73	ifbothda 4503	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → if(𝑅 ∈ ℝ, (((abs‘𝑎) + 𝑅) / 2), ((abs‘𝑎) + 1)) < 𝑅)
75	1, 74	eqbrtrid 5093	. 2 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → 𝑀 < 𝑅)
76	51, 49, 75	3jca 1124	1 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → (𝑀 ∈ ℝ+ ∧ (abs‘𝑎) < 𝑀 ∧ 𝑀 < 𝑅))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 208   ∧ wa 398   ∧ w3a 1083   = wceq 1533   ∈ wcel 2110  {crab 3142   ⊆ wss 3935  ifcif 4466   class class class wbr 5058   ↦ cmpt 5138  ^◡ccnv 5548  dom cdm 5549   “ cima 5552   Fn wfn 6344  ⟶wf 6345  ‘cfv 6349  (class class class)co 7150  supcsup 8898  ℂcc 10529  ℝcr 10530  0cc0 10531  1c1 10532   + caddc 10534   · cmul 10536  +∞cpnf 10666  -∞cmnf 10667  ℝ^*cxr 10668   < clt 10669   ≤ cle 10670   / cdiv 11291  2c2 11686  ℕ₀cn0 11891  ℝ⁺crp 12383  [,)cico 12734  [,]cicc 12735  seqcseq 13363  ↑cexp 13423  abscabs 14587   ⇝ cli 14835  Σcsu 15036

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1907  ax-6 1966  ax-7 2011  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2157  ax-12 2173  ax-ext 2793  ax-rep 5182  ax-sep 5195  ax-nul 5202  ax-pow 5258  ax-pr 5321  ax-un 7455  ax-inf2 9098  ax-cnex 10587  ax-resscn 10588  ax-1cn 10589  ax-icn 10590  ax-addcl 10591  ax-addrcl 10592  ax-mulcl 10593  ax-mulrcl 10594  ax-mulcom 10595  ax-addass 10596  ax-mulass 10597  ax-distr 10598  ax-i2m1 10599  ax-1ne0 10600  ax-1rid 10601  ax-rnegex 10602  ax-rrecex 10603  ax-cnre 10604  ax-pre-lttri 10605  ax-pre-lttrn 10606  ax-pre-ltadd 10607  ax-pre-mulgt0 10608  ax-pre-sup 10609

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1536  df-ex 1777  df-nf 1781  df-sb 2066  df-mo 2618  df-eu 2650  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-nel 3124  df-ral 3143  df-rex 3144  df-reu 3145  df-rmo 3146  df-rab 3147  df-v 3496  df-sbc 3772  df-csb 3883  df-dif 3938  df-un 3940  df-in 3942  df-ss 3951  df-pss 3953  df-nul 4291  df-if 4467  df-pw 4540  df-sn 4561  df-pr 4563  df-tp 4565  df-op 4567  df-uni 4832  df-iun 4913  df-br 5059  df-opab 5121  df-mpt 5139  df-tr 5165  df-id 5454  df-eprel 5459  df-po 5468  df-so 5469  df-fr 5508  df-we 5510  df-xp 5555  df-rel 5556  df-cnv 5557  df-co 5558  df-dm 5559  df-rn 5560  df-res 5561  df-ima 5562  df-pred 6142  df-ord 6188  df-on 6189  df-lim 6190  df-suc 6191  df-iota 6308  df-fun 6351  df-fn 6352  df-f 6353  df-f1 6354  df-fo 6355  df-f1o 6356  df-fv 6357  df-riota 7108  df-ov 7153  df-oprab 7154  df-mpo 7155  df-om 7575  df-1st 7683  df-2nd 7684  df-wrecs 7941  df-recs 8002  df-rdg 8040  df-1o 8096  df-er 8283  df-en 8504  df-dom 8505  df-sdom 8506  df-fin 8507  df-sup 8900  df-pnf 10671  df-mnf 10672  df-xr 10673  df-ltxr 10674  df-le 10675  df-sub 10866  df-neg 10867  df-div 11292  df-nn 11633  df-2 11694  df-3 11695  df-n0 11892  df-z 11976  df-uz 12238  df-rp 12384  df-ico 12738  df-icc 12739  df-fz 12887  df-seq 13364  df-exp 13424  df-cj 14452  df-re 14453  df-im 14454  df-sqrt 14588  df-abs 14589  df-clim 14839

This theorem is referenced by:  psercn  25008  pserdvlem1  25009  pserdvlem2  25010  pserdv  25011