aaliou3lem2 - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > aaliou3lem2		Structured version Visualization version GIF version

Theorem aaliou3lem2 24934

Description: Lemma for aaliou3 24942. (Contributed by Stefan O'Rear, 16-Nov-2014.)

**Hypotheses**
Ref	Expression
aaliou3lem.a	⊢ 𝐺 = (𝑐 ∈ (ℤ_≥‘𝐴) ↦ ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑐 − 𝐴))))
aaliou3lem.b	⊢ 𝐹 = (𝑎 ∈ ℕ ↦ (2↑-(!‘𝑎)))

**Assertion**
Ref	Expression
aaliou3lem2	⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ (ℤ_≥‘𝐴)) → (𝐹‘𝐵) ∈ (0(,](𝐺‘𝐵)))

Distinct variable groups: 𝐹,𝑐 𝐴,𝑎,𝑐 𝐵,𝑎,𝑐 𝐺,𝑎 Allowed substitution hints: 𝐹(𝑎) 𝐺(𝑐)

Proof of Theorem aaliou3lem2 Dummy variables 𝑏 𝑑 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		eluznn 12321	. . . . 5 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ (ℤ_≥‘𝐴)) → 𝐵 ∈ ℕ)
2		fveq2 6672	. . . . . . . 8 ⊢ (𝑎 = 𝐵 → (!‘𝑎) = (!‘𝐵))
3	2	negeqd 10882	. . . . . . 7 ⊢ (𝑎 = 𝐵 → -(!‘𝑎) = -(!‘𝐵))
4	3	oveq2d 7174	. . . . . 6 ⊢ (𝑎 = 𝐵 → (2↑-(!‘𝑎)) = (2↑-(!‘𝐵)))
5		aaliou3lem.b	. . . . . 6 ⊢ 𝐹 = (𝑎 ∈ ℕ ↦ (2↑-(!‘𝑎)))
6		ovex 7191	. . . . . 6 ⊢ (2↑-(!‘𝐵)) ∈ V
7	4, 5, 6	fvmpt 6770	. . . . 5 ⊢ (𝐵 ∈ ℕ → (𝐹‘𝐵) = (2↑-(!‘𝐵)))
8	1, 7	syl 17	. . . 4 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ (ℤ_≥‘𝐴)) → (𝐹‘𝐵) = (2↑-(!‘𝐵)))
9		2rp 12397	. . . . 5 ⊢ 2 ∈ ℝ⁺
10	1	nnnn0d 11958	. . . . . . . 8 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ (ℤ_≥‘𝐴)) → 𝐵 ∈ ℕ₀)
11	10	faccld 13647	. . . . . . 7 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ (ℤ_≥‘𝐴)) → (!‘𝐵) ∈ ℕ)
12	11	nnzd 12089	. . . . . 6 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ (ℤ_≥‘𝐴)) → (!‘𝐵) ∈ ℤ)
13	12	znegcld 12092	. . . . 5 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ (ℤ_≥‘𝐴)) → -(!‘𝐵) ∈ ℤ)
14		rpexpcl 13451	. . . . 5 ⊢ ((2 ∈ ℝ⁺ ∧ -(!‘𝐵) ∈ ℤ) → (2↑-(!‘𝐵)) ∈ ℝ⁺)
15	9, 13, 14	sylancr 589	. . . 4 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ (ℤ_≥‘𝐴)) → (2↑-(!‘𝐵)) ∈ ℝ⁺)
16	8, 15	eqeltrd 2915	. . 3 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ (ℤ_≥‘𝐴)) → (𝐹‘𝐵) ∈ ℝ⁺)
17	16	rpred 12434	. 2 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ (ℤ_≥‘𝐴)) → (𝐹‘𝐵) ∈ ℝ)
18	16	rpgt0d 12437	. 2 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ (ℤ_≥‘𝐴)) → 0 < (𝐹‘𝐵))
19		fveq2 6672	. . . . . 6 ⊢ (𝑏 = 𝐴 → (𝐹‘𝑏) = (𝐹‘𝐴))
20		fveq2 6672	. . . . . 6 ⊢ (𝑏 = 𝐴 → (𝐺‘𝑏) = (𝐺‘𝐴))
21	19, 20	breq12d 5081	. . . . 5 ⊢ (𝑏 = 𝐴 → ((𝐹‘𝑏) ≤ (𝐺‘𝑏) ↔ (𝐹‘𝐴) ≤ (𝐺‘𝐴)))
22	21	imbi2d 343	. . . 4 ⊢ (𝑏 = 𝐴 → ((𝐴 ∈ ℕ → (𝐹‘𝑏) ≤ (𝐺‘𝑏)) ↔ (𝐴 ∈ ℕ → (𝐹‘𝐴) ≤ (𝐺‘𝐴))))
23		fveq2 6672	. . . . . 6 ⊢ (𝑏 = 𝑑 → (𝐹‘𝑏) = (𝐹‘𝑑))
24		fveq2 6672	. . . . . 6 ⊢ (𝑏 = 𝑑 → (𝐺‘𝑏) = (𝐺‘𝑑))
25	23, 24	breq12d 5081	. . . . 5 ⊢ (𝑏 = 𝑑 → ((𝐹‘𝑏) ≤ (𝐺‘𝑏) ↔ (𝐹‘𝑑) ≤ (𝐺‘𝑑)))
26	25	imbi2d 343	. . . 4 ⊢ (𝑏 = 𝑑 → ((𝐴 ∈ ℕ → (𝐹‘𝑏) ≤ (𝐺‘𝑏)) ↔ (𝐴 ∈ ℕ → (𝐹‘𝑑) ≤ (𝐺‘𝑑))))
27		fveq2 6672	. . . . . 6 ⊢ (𝑏 = (𝑑 + 1) → (𝐹‘𝑏) = (𝐹‘(𝑑 + 1)))
28		fveq2 6672	. . . . . 6 ⊢ (𝑏 = (𝑑 + 1) → (𝐺‘𝑏) = (𝐺‘(𝑑 + 1)))
29	27, 28	breq12d 5081	. . . . 5 ⊢ (𝑏 = (𝑑 + 1) → ((𝐹‘𝑏) ≤ (𝐺‘𝑏) ↔ (𝐹‘(𝑑 + 1)) ≤ (𝐺‘(𝑑 + 1))))
30	29	imbi2d 343	. . . 4 ⊢ (𝑏 = (𝑑 + 1) → ((𝐴 ∈ ℕ → (𝐹‘𝑏) ≤ (𝐺‘𝑏)) ↔ (𝐴 ∈ ℕ → (𝐹‘(𝑑 + 1)) ≤ (𝐺‘(𝑑 + 1)))))
31		fveq2 6672	. . . . . 6 ⊢ (𝑏 = 𝐵 → (𝐹‘𝑏) = (𝐹‘𝐵))
32		fveq2 6672	. . . . . 6 ⊢ (𝑏 = 𝐵 → (𝐺‘𝑏) = (𝐺‘𝐵))
33	31, 32	breq12d 5081	. . . . 5 ⊢ (𝑏 = 𝐵 → ((𝐹‘𝑏) ≤ (𝐺‘𝑏) ↔ (𝐹‘𝐵) ≤ (𝐺‘𝐵)))
34	33	imbi2d 343	. . . 4 ⊢ (𝑏 = 𝐵 → ((𝐴 ∈ ℕ → (𝐹‘𝑏) ≤ (𝐺‘𝑏)) ↔ (𝐴 ∈ ℕ → (𝐹‘𝐵) ≤ (𝐺‘𝐵))))
35		nnnn0 11907	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℕ → 𝐴 ∈ ℕ₀)
36	35	faccld 13647	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℕ → (!‘𝐴) ∈ ℕ)
37	36	nnzd 12089	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℕ → (!‘𝐴) ∈ ℤ)
38	37	znegcld 12092	. . . . . . . . 9 ⊢ (𝐴 ∈ ℕ → -(!‘𝐴) ∈ ℤ)
39		rpexpcl 13451	. . . . . . . . 9 ⊢ ((2 ∈ ℝ⁺ ∧ -(!‘𝐴) ∈ ℤ) → (2↑-(!‘𝐴)) ∈ ℝ⁺)
40	9, 38, 39	sylancr 589	. . . . . . . 8 ⊢ (𝐴 ∈ ℕ → (2↑-(!‘𝐴)) ∈ ℝ⁺)
41	40	rpred 12434	. . . . . . 7 ⊢ (𝐴 ∈ ℕ → (2↑-(!‘𝐴)) ∈ ℝ)
42	41	leidd 11208	. . . . . 6 ⊢ (𝐴 ∈ ℕ → (2↑-(!‘𝐴)) ≤ (2↑-(!‘𝐴)))
43		nncn 11648	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℕ → 𝐴 ∈ ℂ)
44	43	subidd 10987	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℕ → (𝐴 − 𝐴) = 0)
45	44	oveq2d 7174	. . . . . . . . 9 ⊢ (𝐴 ∈ ℕ → ((1 / 2)↑(𝐴 − 𝐴)) = ((1 / 2)↑0))
46		halfcn 11855	. . . . . . . . . 10 ⊢ (1 / 2) ∈ ℂ
47		exp0 13436	. . . . . . . . . 10 ⊢ ((1 / 2) ∈ ℂ → ((1 / 2)↑0) = 1)
48	46, 47	ax-mp 5	. . . . . . . . 9 ⊢ ((1 / 2)↑0) = 1
49	45, 48	syl6eq 2874	. . . . . . . 8 ⊢ (𝐴 ∈ ℕ → ((1 / 2)↑(𝐴 − 𝐴)) = 1)
50	49	oveq2d 7174	. . . . . . 7 ⊢ (𝐴 ∈ ℕ → ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝐴 − 𝐴))) = ((2↑-(!‘𝐴)) · 1))
51	40	rpcnd 12436	. . . . . . . 8 ⊢ (𝐴 ∈ ℕ → (2↑-(!‘𝐴)) ∈ ℂ)
52	51	mulid1d 10660	. . . . . . 7 ⊢ (𝐴 ∈ ℕ → ((2↑-(!‘𝐴)) · 1) = (2↑-(!‘𝐴)))
53	50, 52	eqtrd 2858	. . . . . 6 ⊢ (𝐴 ∈ ℕ → ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝐴 − 𝐴))) = (2↑-(!‘𝐴)))
54	42, 53	breqtrrd 5096	. . . . 5 ⊢ (𝐴 ∈ ℕ → (2↑-(!‘𝐴)) ≤ ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝐴 − 𝐴))))
55		fveq2 6672	. . . . . . . 8 ⊢ (𝑎 = 𝐴 → (!‘𝑎) = (!‘𝐴))
56	55	negeqd 10882	. . . . . . 7 ⊢ (𝑎 = 𝐴 → -(!‘𝑎) = -(!‘𝐴))
57	56	oveq2d 7174	. . . . . 6 ⊢ (𝑎 = 𝐴 → (2↑-(!‘𝑎)) = (2↑-(!‘𝐴)))
58		ovex 7191	. . . . . 6 ⊢ (2↑-(!‘𝐴)) ∈ V
59	57, 5, 58	fvmpt 6770	. . . . 5 ⊢ (𝐴 ∈ ℕ → (𝐹‘𝐴) = (2↑-(!‘𝐴)))
60		nnz 12007	. . . . . 6 ⊢ (𝐴 ∈ ℕ → 𝐴 ∈ ℤ)
61		uzid 12261	. . . . . 6 ⊢ (𝐴 ∈ ℤ → 𝐴 ∈ (ℤ_≥‘𝐴))
62		oveq1 7165	. . . . . . . . 9 ⊢ (𝑐 = 𝐴 → (𝑐 − 𝐴) = (𝐴 − 𝐴))
63	62	oveq2d 7174	. . . . . . . 8 ⊢ (𝑐 = 𝐴 → ((1 / 2)↑(𝑐 − 𝐴)) = ((1 / 2)↑(𝐴 − 𝐴)))
64	63	oveq2d 7174	. . . . . . 7 ⊢ (𝑐 = 𝐴 → ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑐 − 𝐴))) = ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝐴 − 𝐴))))
65		aaliou3lem.a	. . . . . . 7 ⊢ 𝐺 = (𝑐 ∈ (ℤ_≥‘𝐴) ↦ ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑐 − 𝐴))))
66		ovex 7191	. . . . . . 7 ⊢ ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝐴 − 𝐴))) ∈ V
67	64, 65, 66	fvmpt 6770	. . . . . 6 ⊢ (𝐴 ∈ (ℤ_≥‘𝐴) → (𝐺‘𝐴) = ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝐴 − 𝐴))))
68	60, 61, 67	3syl 18	. . . . 5 ⊢ (𝐴 ∈ ℕ → (𝐺‘𝐴) = ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝐴 − 𝐴))))
69	54, 59, 68	3brtr4d 5100	. . . 4 ⊢ (𝐴 ∈ ℕ → (𝐹‘𝐴) ≤ (𝐺‘𝐴))
70		eluznn 12321	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → 𝑑 ∈ ℕ)
71	70	nnnn0d 11958	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → 𝑑 ∈ ℕ₀)
72	71	faccld 13647	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (!‘𝑑) ∈ ℕ)
73	72	nnzd 12089	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (!‘𝑑) ∈ ℤ)
74	73	znegcld 12092	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → -(!‘𝑑) ∈ ℤ)
75		rpexpcl 13451	. . . . . . . . . . . . . 14 ⊢ ((2 ∈ ℝ⁺ ∧ -(!‘𝑑) ∈ ℤ) → (2↑-(!‘𝑑)) ∈ ℝ⁺)
76	9, 74, 75	sylancr 589	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (2↑-(!‘𝑑)) ∈ ℝ⁺)
77	76	rpred 12434	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (2↑-(!‘𝑑)) ∈ ℝ)
78	76	rpge0d 12438	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → 0 ≤ (2↑-(!‘𝑑)))
79		simpl 485	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → 𝐴 ∈ ℕ)
80	79	nnnn0d 11958	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → 𝐴 ∈ ℕ₀)
81	80	faccld 13647	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (!‘𝐴) ∈ ℕ)
82	81	nnzd 12089	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (!‘𝐴) ∈ ℤ)
83	82	znegcld 12092	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → -(!‘𝐴) ∈ ℤ)
84	9, 83, 39	sylancr 589	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (2↑-(!‘𝐴)) ∈ ℝ⁺)
85		halfre 11854	. . . . . . . . . . . . . . . 16 ⊢ (1 / 2) ∈ ℝ
86		halfgt0 11856	. . . . . . . . . . . . . . . 16 ⊢ 0 < (1 / 2)
87	85, 86	elrpii 12395	. . . . . . . . . . . . . . 15 ⊢ (1 / 2) ∈ ℝ⁺
88		eluzelz 12256	. . . . . . . . . . . . . . . 16 ⊢ (𝑑 ∈ (ℤ_≥‘𝐴) → 𝑑 ∈ ℤ)
89		zsubcl 12027	. . . . . . . . . . . . . . . 16 ⊢ ((𝑑 ∈ ℤ ∧ 𝐴 ∈ ℤ) → (𝑑 − 𝐴) ∈ ℤ)
90	88, 60, 89	syl2anr 598	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (𝑑 − 𝐴) ∈ ℤ)
91		rpexpcl 13451	. . . . . . . . . . . . . . 15 ⊢ (((1 / 2) ∈ ℝ⁺ ∧ (𝑑 − 𝐴) ∈ ℤ) → ((1 / 2)↑(𝑑 − 𝐴)) ∈ ℝ⁺)
92	87, 90, 91	sylancr 589	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → ((1 / 2)↑(𝑑 − 𝐴)) ∈ ℝ⁺)
93	84, 92	rpmulcld 12450	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑑 − 𝐴))) ∈ ℝ⁺)
94	93	rpred 12434	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑑 − 𝐴))) ∈ ℝ)
95	77, 78, 94	jca31 517	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (((2↑-(!‘𝑑)) ∈ ℝ ∧ 0 ≤ (2↑-(!‘𝑑))) ∧ ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑑 − 𝐴))) ∈ ℝ))
96	95	adantr 483	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) ∧ (2↑-(!‘𝑑)) ≤ ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑑 − 𝐴)))) → (((2↑-(!‘𝑑)) ∈ ℝ ∧ 0 ≤ (2↑-(!‘𝑑))) ∧ ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑑 − 𝐴))) ∈ ℝ))
97	88	adantl 484	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → 𝑑 ∈ ℤ)
98	74, 97	zmulcld 12096	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (-(!‘𝑑) · 𝑑) ∈ ℤ)
99		rpexpcl 13451	. . . . . . . . . . . . . 14 ⊢ ((2 ∈ ℝ⁺ ∧ (-(!‘𝑑) · 𝑑) ∈ ℤ) → (2↑(-(!‘𝑑) · 𝑑)) ∈ ℝ⁺)
100	9, 98, 99	sylancr 589	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (2↑(-(!‘𝑑) · 𝑑)) ∈ ℝ⁺)
101	100	rpred 12434	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (2↑(-(!‘𝑑) · 𝑑)) ∈ ℝ)
102	100	rpge0d 12438	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → 0 ≤ (2↑(-(!‘𝑑) · 𝑑)))
103	85	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (1 / 2) ∈ ℝ)
104	101, 102, 103	jca31 517	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (((2↑(-(!‘𝑑) · 𝑑)) ∈ ℝ ∧ 0 ≤ (2↑(-(!‘𝑑) · 𝑑))) ∧ (1 / 2) ∈ ℝ))
105	104	adantr 483	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) ∧ (2↑-(!‘𝑑)) ≤ ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑑 − 𝐴)))) → (((2↑(-(!‘𝑑) · 𝑑)) ∈ ℝ ∧ 0 ≤ (2↑(-(!‘𝑑) · 𝑑))) ∧ (1 / 2) ∈ ℝ))
106		simpr 487	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) ∧ (2↑-(!‘𝑑)) ≤ ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑑 − 𝐴)))) → (2↑-(!‘𝑑)) ≤ ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑑 − 𝐴))))
107		2re 11714	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℝ
108		1le2 11849	. . . . . . . . . . . . 13 ⊢ 1 ≤ 2
109	72	nncnd 11656	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (!‘𝑑) ∈ ℂ)
110	97	zcnd 12091	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → 𝑑 ∈ ℂ)
111	109, 110	mulneg1d 11095	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (-(!‘𝑑) · 𝑑) = -((!‘𝑑) · 𝑑))
112	72, 70	nnmulcld 11693	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → ((!‘𝑑) · 𝑑) ∈ ℕ)
113	112	nnge1d 11688	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → 1 ≤ ((!‘𝑑) · 𝑑))
114		1re 10643	. . . . . . . . . . . . . . . . 17 ⊢ 1 ∈ ℝ
115	112	nnred 11655	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → ((!‘𝑑) · 𝑑) ∈ ℝ)
116		leneg 11145	. . . . . . . . . . . . . . . . 17 ⊢ ((1 ∈ ℝ ∧ ((!‘𝑑) · 𝑑) ∈ ℝ) → (1 ≤ ((!‘𝑑) · 𝑑) ↔ -((!‘𝑑) · 𝑑) ≤ -1))
117	114, 115, 116	sylancr 589	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (1 ≤ ((!‘𝑑) · 𝑑) ↔ -((!‘𝑑) · 𝑑) ≤ -1))
118	113, 117	mpbid 234	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → -((!‘𝑑) · 𝑑) ≤ -1)
119	111, 118	eqbrtrd 5090	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (-(!‘𝑑) · 𝑑) ≤ -1)
120		neg1z 12021	. . . . . . . . . . . . . . 15 ⊢ -1 ∈ ℤ
121		eluz 12260	. . . . . . . . . . . . . . 15 ⊢ (((-(!‘𝑑) · 𝑑) ∈ ℤ ∧ -1 ∈ ℤ) → (-1 ∈ (ℤ_≥‘(-(!‘𝑑) · 𝑑)) ↔ (-(!‘𝑑) · 𝑑) ≤ -1))
122	98, 120, 121	sylancl 588	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (-1 ∈ (ℤ_≥‘(-(!‘𝑑) · 𝑑)) ↔ (-(!‘𝑑) · 𝑑) ≤ -1))
123	119, 122	mpbird 259	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → -1 ∈ (ℤ_≥‘(-(!‘𝑑) · 𝑑)))
124		leexp2a 13539	. . . . . . . . . . . . 13 ⊢ ((2 ∈ ℝ ∧ 1 ≤ 2 ∧ -1 ∈ (ℤ_≥‘(-(!‘𝑑) · 𝑑))) → (2↑(-(!‘𝑑) · 𝑑)) ≤ (2↑-1))
125	107, 108, 123, 124	mp3an12i 1461	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (2↑(-(!‘𝑑) · 𝑑)) ≤ (2↑-1))
126		2cn 11715	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℂ
127		expn1 13442	. . . . . . . . . . . . 13 ⊢ (2 ∈ ℂ → (2↑-1) = (1 / 2))
128	126, 127	ax-mp 5	. . . . . . . . . . . 12 ⊢ (2↑-1) = (1 / 2)
129	125, 128	breqtrdi 5109	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (2↑(-(!‘𝑑) · 𝑑)) ≤ (1 / 2))
130	129	adantr 483	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) ∧ (2↑-(!‘𝑑)) ≤ ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑑 − 𝐴)))) → (2↑(-(!‘𝑑) · 𝑑)) ≤ (1 / 2))
131		lemul12a 11500	. . . . . . . . . . 11 ⊢ (((((2↑-(!‘𝑑)) ∈ ℝ ∧ 0 ≤ (2↑-(!‘𝑑))) ∧ ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑑 − 𝐴))) ∈ ℝ) ∧ (((2↑(-(!‘𝑑) · 𝑑)) ∈ ℝ ∧ 0 ≤ (2↑(-(!‘𝑑) · 𝑑))) ∧ (1 / 2) ∈ ℝ)) → (((2↑-(!‘𝑑)) ≤ ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑑 − 𝐴))) ∧ (2↑(-(!‘𝑑) · 𝑑)) ≤ (1 / 2)) → ((2↑-(!‘𝑑)) · (2↑(-(!‘𝑑) · 𝑑))) ≤ (((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑑 − 𝐴))) · (1 / 2))))
132	131	3impia 1113	. . . . . . . . . 10 ⊢ (((((2↑-(!‘𝑑)) ∈ ℝ ∧ 0 ≤ (2↑-(!‘𝑑))) ∧ ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑑 − 𝐴))) ∈ ℝ) ∧ (((2↑(-(!‘𝑑) · 𝑑)) ∈ ℝ ∧ 0 ≤ (2↑(-(!‘𝑑) · 𝑑))) ∧ (1 / 2) ∈ ℝ) ∧ ((2↑-(!‘𝑑)) ≤ ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑑 − 𝐴))) ∧ (2↑(-(!‘𝑑) · 𝑑)) ≤ (1 / 2))) → ((2↑-(!‘𝑑)) · (2↑(-(!‘𝑑) · 𝑑))) ≤ (((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑑 − 𝐴))) · (1 / 2)))
133	96, 105, 106, 130, 132	syl112anc 1370	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) ∧ (2↑-(!‘𝑑)) ≤ ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑑 − 𝐴)))) → ((2↑-(!‘𝑑)) · (2↑(-(!‘𝑑) · 𝑑))) ≤ (((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑑 − 𝐴))) · (1 / 2)))
134	133	ex 415	. . . . . . . 8 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → ((2↑-(!‘𝑑)) ≤ ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑑 − 𝐴))) → ((2↑-(!‘𝑑)) · (2↑(-(!‘𝑑) · 𝑑))) ≤ (((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑑 − 𝐴))) · (1 / 2))))
135		facp1 13641	. . . . . . . . . . . . . 14 ⊢ (𝑑 ∈ ℕ₀ → (!‘(𝑑 + 1)) = ((!‘𝑑) · (𝑑 + 1)))
136	71, 135	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (!‘(𝑑 + 1)) = ((!‘𝑑) · (𝑑 + 1)))
137	136	negeqd 10882	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → -(!‘(𝑑 + 1)) = -((!‘𝑑) · (𝑑 + 1)))
138		ax-1cn 10597	. . . . . . . . . . . . . . 15 ⊢ 1 ∈ ℂ
139		addcom 10828	. . . . . . . . . . . . . . 15 ⊢ ((𝑑 ∈ ℂ ∧ 1 ∈ ℂ) → (𝑑 + 1) = (1 + 𝑑))
140	110, 138, 139	sylancl 588	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (𝑑 + 1) = (1 + 𝑑))
141	140	oveq2d 7174	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (-(!‘𝑑) · (𝑑 + 1)) = (-(!‘𝑑) · (1 + 𝑑)))
142		peano2cn 10814	. . . . . . . . . . . . . . 15 ⊢ (𝑑 ∈ ℂ → (𝑑 + 1) ∈ ℂ)
143	110, 142	syl 17	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (𝑑 + 1) ∈ ℂ)
144	109, 143	mulneg1d 11095	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (-(!‘𝑑) · (𝑑 + 1)) = -((!‘𝑑) · (𝑑 + 1)))
145	74	zcnd 12091	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → -(!‘𝑑) ∈ ℂ)
146		1cnd 10638	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → 1 ∈ ℂ)
147	145, 146, 110	adddid 10667	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (-(!‘𝑑) · (1 + 𝑑)) = ((-(!‘𝑑) · 1) + (-(!‘𝑑) · 𝑑)))
148	145	mulid1d 10660	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (-(!‘𝑑) · 1) = -(!‘𝑑))
149	148	oveq1d 7173	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → ((-(!‘𝑑) · 1) + (-(!‘𝑑) · 𝑑)) = (-(!‘𝑑) + (-(!‘𝑑) · 𝑑)))
150	147, 149	eqtrd 2858	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (-(!‘𝑑) · (1 + 𝑑)) = (-(!‘𝑑) + (-(!‘𝑑) · 𝑑)))
151	141, 144, 150	3eqtr3d 2866	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → -((!‘𝑑) · (𝑑 + 1)) = (-(!‘𝑑) + (-(!‘𝑑) · 𝑑)))
152	137, 151	eqtrd 2858	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → -(!‘(𝑑 + 1)) = (-(!‘𝑑) + (-(!‘𝑑) · 𝑑)))
153	152	oveq2d 7174	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (2↑-(!‘(𝑑 + 1))) = (2↑(-(!‘𝑑) + (-(!‘𝑑) · 𝑑))))
154		2cnne0 11850	. . . . . . . . . . . 12 ⊢ (2 ∈ ℂ ∧ 2 ≠ 0)
155		expaddz 13476	. . . . . . . . . . . 12 ⊢ (((2 ∈ ℂ ∧ 2 ≠ 0) ∧ (-(!‘𝑑) ∈ ℤ ∧ (-(!‘𝑑) · 𝑑) ∈ ℤ)) → (2↑(-(!‘𝑑) + (-(!‘𝑑) · 𝑑))) = ((2↑-(!‘𝑑)) · (2↑(-(!‘𝑑) · 𝑑))))
156	154, 155	mpan 688	. . . . . . . . . . 11 ⊢ ((-(!‘𝑑) ∈ ℤ ∧ (-(!‘𝑑) · 𝑑) ∈ ℤ) → (2↑(-(!‘𝑑) + (-(!‘𝑑) · 𝑑))) = ((2↑-(!‘𝑑)) · (2↑(-(!‘𝑑) · 𝑑))))
157	74, 98, 156	syl2anc 586	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (2↑(-(!‘𝑑) + (-(!‘𝑑) · 𝑑))) = ((2↑-(!‘𝑑)) · (2↑(-(!‘𝑑) · 𝑑))))
158	153, 157	eqtrd 2858	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (2↑-(!‘(𝑑 + 1))) = ((2↑-(!‘𝑑)) · (2↑(-(!‘𝑑) · 𝑑))))
159	43	adantr 483	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → 𝐴 ∈ ℂ)
160	110, 146, 159	addsubd 11020	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → ((𝑑 + 1) − 𝐴) = ((𝑑 − 𝐴) + 1))
161	160	oveq2d 7174	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → ((1 / 2)↑((𝑑 + 1) − 𝐴)) = ((1 / 2)↑((𝑑 − 𝐴) + 1)))
162		uznn0sub 12280	. . . . . . . . . . . . . 14 ⊢ (𝑑 ∈ (ℤ_≥‘𝐴) → (𝑑 − 𝐴) ∈ ℕ₀)
163	162	adantl 484	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (𝑑 − 𝐴) ∈ ℕ₀)
164		expp1 13439	. . . . . . . . . . . . 13 ⊢ (((1 / 2) ∈ ℂ ∧ (𝑑 − 𝐴) ∈ ℕ₀) → ((1 / 2)↑((𝑑 − 𝐴) + 1)) = (((1 / 2)↑(𝑑 − 𝐴)) · (1 / 2)))
165	46, 163, 164	sylancr 589	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → ((1 / 2)↑((𝑑 − 𝐴) + 1)) = (((1 / 2)↑(𝑑 − 𝐴)) · (1 / 2)))
166	161, 165	eqtrd 2858	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → ((1 / 2)↑((𝑑 + 1) − 𝐴)) = (((1 / 2)↑(𝑑 − 𝐴)) · (1 / 2)))
167	166	oveq2d 7174	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → ((2↑-(!‘𝐴)) · ((1 / 2)↑((𝑑 + 1) − 𝐴))) = ((2↑-(!‘𝐴)) · (((1 / 2)↑(𝑑 − 𝐴)) · (1 / 2))))
168	84	rpcnd 12436	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (2↑-(!‘𝐴)) ∈ ℂ)
169	92	rpcnd 12436	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → ((1 / 2)↑(𝑑 − 𝐴)) ∈ ℂ)
170	46	a1i 11	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (1 / 2) ∈ ℂ)
171	168, 169, 170	mulassd 10666	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑑 − 𝐴))) · (1 / 2)) = ((2↑-(!‘𝐴)) · (((1 / 2)↑(𝑑 − 𝐴)) · (1 / 2))))
172	167, 171	eqtr4d 2861	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → ((2↑-(!‘𝐴)) · ((1 / 2)↑((𝑑 + 1) − 𝐴))) = (((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑑 − 𝐴))) · (1 / 2)))
173	158, 172	breq12d 5081	. . . . . . . 8 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → ((2↑-(!‘(𝑑 + 1))) ≤ ((2↑-(!‘𝐴)) · ((1 / 2)↑((𝑑 + 1) − 𝐴))) ↔ ((2↑-(!‘𝑑)) · (2↑(-(!‘𝑑) · 𝑑))) ≤ (((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑑 − 𝐴))) · (1 / 2))))
174	134, 173	sylibrd 261	. . . . . . 7 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → ((2↑-(!‘𝑑)) ≤ ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑑 − 𝐴))) → (2↑-(!‘(𝑑 + 1))) ≤ ((2↑-(!‘𝐴)) · ((1 / 2)↑((𝑑 + 1) − 𝐴)))))
175		fveq2 6672	. . . . . . . . . . . 12 ⊢ (𝑎 = 𝑑 → (!‘𝑎) = (!‘𝑑))
176	175	negeqd 10882	. . . . . . . . . . 11 ⊢ (𝑎 = 𝑑 → -(!‘𝑎) = -(!‘𝑑))
177	176	oveq2d 7174	. . . . . . . . . 10 ⊢ (𝑎 = 𝑑 → (2↑-(!‘𝑎)) = (2↑-(!‘𝑑)))
178		ovex 7191	. . . . . . . . . 10 ⊢ (2↑-(!‘𝑑)) ∈ V
179	177, 5, 178	fvmpt 6770	. . . . . . . . 9 ⊢ (𝑑 ∈ ℕ → (𝐹‘𝑑) = (2↑-(!‘𝑑)))
180	70, 179	syl 17	. . . . . . . 8 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (𝐹‘𝑑) = (2↑-(!‘𝑑)))
181		oveq1 7165	. . . . . . . . . . . 12 ⊢ (𝑐 = 𝑑 → (𝑐 − 𝐴) = (𝑑 − 𝐴))
182	181	oveq2d 7174	. . . . . . . . . . 11 ⊢ (𝑐 = 𝑑 → ((1 / 2)↑(𝑐 − 𝐴)) = ((1 / 2)↑(𝑑 − 𝐴)))
183	182	oveq2d 7174	. . . . . . . . . 10 ⊢ (𝑐 = 𝑑 → ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑐 − 𝐴))) = ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑑 − 𝐴))))
184		ovex 7191	. . . . . . . . . 10 ⊢ ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑑 − 𝐴))) ∈ V
185	183, 65, 184	fvmpt 6770	. . . . . . . . 9 ⊢ (𝑑 ∈ (ℤ_≥‘𝐴) → (𝐺‘𝑑) = ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑑 − 𝐴))))
186	185	adantl 484	. . . . . . . 8 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (𝐺‘𝑑) = ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑑 − 𝐴))))
187	180, 186	breq12d 5081	. . . . . . 7 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → ((𝐹‘𝑑) ≤ (𝐺‘𝑑) ↔ (2↑-(!‘𝑑)) ≤ ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑑 − 𝐴)))))
188	70	peano2nnd 11657	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (𝑑 + 1) ∈ ℕ)
189		fveq2 6672	. . . . . . . . . . . 12 ⊢ (𝑎 = (𝑑 + 1) → (!‘𝑎) = (!‘(𝑑 + 1)))
190	189	negeqd 10882	. . . . . . . . . . 11 ⊢ (𝑎 = (𝑑 + 1) → -(!‘𝑎) = -(!‘(𝑑 + 1)))
191	190	oveq2d 7174	. . . . . . . . . 10 ⊢ (𝑎 = (𝑑 + 1) → (2↑-(!‘𝑎)) = (2↑-(!‘(𝑑 + 1))))
192		ovex 7191	. . . . . . . . . 10 ⊢ (2↑-(!‘(𝑑 + 1))) ∈ V
193	191, 5, 192	fvmpt 6770	. . . . . . . . 9 ⊢ ((𝑑 + 1) ∈ ℕ → (𝐹‘(𝑑 + 1)) = (2↑-(!‘(𝑑 + 1))))
194	188, 193	syl 17	. . . . . . . 8 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (𝐹‘(𝑑 + 1)) = (2↑-(!‘(𝑑 + 1))))
195		peano2uz 12304	. . . . . . . . . 10 ⊢ (𝑑 ∈ (ℤ_≥‘𝐴) → (𝑑 + 1) ∈ (ℤ_≥‘𝐴))
196		oveq1 7165	. . . . . . . . . . . . 13 ⊢ (𝑐 = (𝑑 + 1) → (𝑐 − 𝐴) = ((𝑑 + 1) − 𝐴))
197	196	oveq2d 7174	. . . . . . . . . . . 12 ⊢ (𝑐 = (𝑑 + 1) → ((1 / 2)↑(𝑐 − 𝐴)) = ((1 / 2)↑((𝑑 + 1) − 𝐴)))
198	197	oveq2d 7174	. . . . . . . . . . 11 ⊢ (𝑐 = (𝑑 + 1) → ((2↑-(!‘𝐴)) · ((1 / 2)↑(𝑐 − 𝐴))) = ((2↑-(!‘𝐴)) · ((1 / 2)↑((𝑑 + 1) − 𝐴))))
199		ovex 7191	. . . . . . . . . . 11 ⊢ ((2↑-(!‘𝐴)) · ((1 / 2)↑((𝑑 + 1) − 𝐴))) ∈ V
200	198, 65, 199	fvmpt 6770	. . . . . . . . . 10 ⊢ ((𝑑 + 1) ∈ (ℤ_≥‘𝐴) → (𝐺‘(𝑑 + 1)) = ((2↑-(!‘𝐴)) · ((1 / 2)↑((𝑑 + 1) − 𝐴))))
201	195, 200	syl 17	. . . . . . . . 9 ⊢ (𝑑 ∈ (ℤ_≥‘𝐴) → (𝐺‘(𝑑 + 1)) = ((2↑-(!‘𝐴)) · ((1 / 2)↑((𝑑 + 1) − 𝐴))))
202	201	adantl 484	. . . . . . . 8 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → (𝐺‘(𝑑 + 1)) = ((2↑-(!‘𝐴)) · ((1 / 2)↑((𝑑 + 1) − 𝐴))))
203	194, 202	breq12d 5081	. . . . . . 7 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → ((𝐹‘(𝑑 + 1)) ≤ (𝐺‘(𝑑 + 1)) ↔ (2↑-(!‘(𝑑 + 1))) ≤ ((2↑-(!‘𝐴)) · ((1 / 2)↑((𝑑 + 1) − 𝐴)))))
204	174, 187, 203	3imtr4d 296	. . . . . 6 ⊢ ((𝐴 ∈ ℕ ∧ 𝑑 ∈ (ℤ_≥‘𝐴)) → ((𝐹‘𝑑) ≤ (𝐺‘𝑑) → (𝐹‘(𝑑 + 1)) ≤ (𝐺‘(𝑑 + 1))))
205	204	expcom 416	. . . . 5 ⊢ (𝑑 ∈ (ℤ_≥‘𝐴) → (𝐴 ∈ ℕ → ((𝐹‘𝑑) ≤ (𝐺‘𝑑) → (𝐹‘(𝑑 + 1)) ≤ (𝐺‘(𝑑 + 1)))))
206	205	a2d 29	. . . 4 ⊢ (𝑑 ∈ (ℤ_≥‘𝐴) → ((𝐴 ∈ ℕ → (𝐹‘𝑑) ≤ (𝐺‘𝑑)) → (𝐴 ∈ ℕ → (𝐹‘(𝑑 + 1)) ≤ (𝐺‘(𝑑 + 1)))))
207	22, 26, 30, 34, 69, 206	uzind4i 12313	. . 3 ⊢ (𝐵 ∈ (ℤ_≥‘𝐴) → (𝐴 ∈ ℕ → (𝐹‘𝐵) ≤ (𝐺‘𝐵)))
208	207	impcom 410	. 2 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ (ℤ_≥‘𝐴)) → (𝐹‘𝐵) ≤ (𝐺‘𝐵))
209		0xr 10690	. . 3 ⊢ 0 ∈ ℝ^*
210	65	aaliou3lem1 24933	. . 3 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ (ℤ_≥‘𝐴)) → (𝐺‘𝐵) ∈ ℝ)
211		elioc2 12802	. . 3 ⊢ ((0 ∈ ℝ^* ∧ (𝐺‘𝐵) ∈ ℝ) → ((𝐹‘𝐵) ∈ (0(,](𝐺‘𝐵)) ↔ ((𝐹‘𝐵) ∈ ℝ ∧ 0 < (𝐹‘𝐵) ∧ (𝐹‘𝐵) ≤ (𝐺‘𝐵))))
212	209, 210, 211	sylancr 589	. 2 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ (ℤ_≥‘𝐴)) → ((𝐹‘𝐵) ∈ (0(,](𝐺‘𝐵)) ↔ ((𝐹‘𝐵) ∈ ℝ ∧ 0 < (𝐹‘𝐵) ∧ (𝐹‘𝐵) ≤ (𝐺‘𝐵))))
213	17, 18, 208, 212	mpbir3and 1338	1 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ (ℤ_≥‘𝐴)) → (𝐹‘𝐵) ∈ (0(,](𝐺‘𝐵)))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 208 ∧ wa 398 ∧ w3a 1083 = wceq 1537 ∈ wcel 2114 ≠ wne 3018 class class class wbr 5068 ↦ cmpt 5148 ‘cfv 6357 (class class class)co 7158 ℂcc 10537 ℝcr 10538 0cc0 10539 1c1 10540 + caddc 10542 · cmul 10544 ℝ^*cxr 10676 < clt 10677 ≤ cle 10678 − cmin 10872 -cneg 10873 / cdiv 11299 ℕcn 11640 2c2 11695 ℕ₀cn0 11900 ℤcz 11984 ℤ_≥cuz 12246 ℝ⁺crp 12392 (,]cioc 12742 ↑cexp 13432 !cfa 13636

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1796 ax-4 1810 ax-5 1911 ax-6 1970 ax-7 2015 ax-8 2116 ax-9 2124 ax-10 2145 ax-11 2161 ax-12 2177 ax-ext 2795 ax-sep 5205 ax-nul 5212 ax-pow 5268 ax-pr 5332 ax-un 7463 ax-cnex 10595 ax-resscn 10596 ax-1cn 10597 ax-icn 10598 ax-addcl 10599 ax-addrcl 10600 ax-mulcl 10601 ax-mulrcl 10602 ax-mulcom 10603 ax-addass 10604 ax-mulass 10605 ax-distr 10606 ax-i2m1 10607 ax-1ne0 10608 ax-1rid 10609 ax-rnegex 10610 ax-rrecex 10611 ax-cnre 10612 ax-pre-lttri 10613 ax-pre-lttrn 10614 ax-pre-ltadd 10615 ax-pre-mulgt0 10616

This theorem depends on definitions: df-bi 209 df-an 399 df-or 844 df-3or 1084 df-3an 1085 df-tru 1540 df-ex 1781 df-nf 1785 df-sb 2070 df-mo 2622 df-eu 2654 df-clab 2802 df-cleq 2816 df-clel 2895 df-nfc 2965 df-ne 3019 df-nel 3126 df-ral 3145 df-rex 3146 df-reu 3147 df-rmo 3148 df-rab 3149 df-v 3498 df-sbc 3775 df-csb 3886 df-dif 3941 df-un 3943 df-in 3945 df-ss 3954 df-pss 3956 df-nul 4294 df-if 4470 df-pw 4543 df-sn 4570 df-pr 4572 df-tp 4574 df-op 4576 df-uni 4841 df-iun 4923 df-br 5069 df-opab 5131 df-mpt 5149 df-tr 5175 df-id 5462 df-eprel 5467 df-po 5476 df-so 5477 df-fr 5516 df-we 5518 df-xp 5563 df-rel 5564 df-cnv 5565 df-co 5566 df-dm 5567 df-rn 5568 df-res 5569 df-ima 5570 df-pred 6150 df-ord 6196 df-on 6197 df-lim 6198 df-suc 6199 df-iota 6316 df-fun 6359 df-fn 6360 df-f 6361 df-f1 6362 df-fo 6363 df-f1o 6364 df-fv 6365 df-riota 7116 df-ov 7161 df-oprab 7162 df-mpo 7163 df-om 7583 df-2nd 7692 df-wrecs 7949 df-recs 8010 df-rdg 8048 df-er 8291 df-en 8512 df-dom 8513 df-sdom 8514 df-pnf 10679 df-mnf 10680 df-xr 10681 df-ltxr 10682 df-le 10683 df-sub 10874 df-neg 10875 df-div 11300 df-nn 11641 df-2 11703 df-n0 11901 df-z 11985 df-uz 12247 df-rp 12393 df-ioc 12746 df-seq 13373 df-exp 13433 df-fac 13637

This theorem is referenced by: aaliou3lem3 24935

W3C validator