resqrexlemoverl - Intuitionistic Logic Explorer

	Intuitionistic Logic Explorer		< Previous Next > Nearby theorems
Mirrors > Home > ILE Home > Th. List > resqrexlemoverl		GIF version

Theorem resqrexlemoverl 10793

Description: Lemma for resqrex 10798. Every term in the sequence is an overestimate compared with the limit 𝐿. Although this theorem is stated in terms of a particular sequence the proof could be adapted for any decreasing convergent sequence. (Contributed by Jim Kingdon, 9-Aug-2021.)

**Hypotheses**
Ref	Expression
resqrexlemex.seq	⊢ 𝐹 = seq1((𝑦 ∈ ℝ⁺, 𝑧 ∈ ℝ⁺ ↦ ((𝑦 + (𝐴 / 𝑦)) / 2)), (ℕ × {(1 + 𝐴)}))
resqrexlemex.a	⊢ (𝜑 → 𝐴 ∈ ℝ)
resqrexlemex.agt0	⊢ (𝜑 → 0 ≤ 𝐴)
resqrexlemgt0.rr	⊢ (𝜑 → 𝐿 ∈ ℝ)
resqrexlemgt0.lim	⊢ (𝜑 → ∀𝑒 ∈ ℝ⁺ ∃𝑗 ∈ ℕ ∀𝑖 ∈ (ℤ_≥‘𝑗)((𝐹‘𝑖) < (𝐿 + 𝑒) ∧ 𝐿 < ((𝐹‘𝑖) + 𝑒)))
resqrexlemoverl.k	⊢ (𝜑 → 𝐾 ∈ ℕ)

**Assertion**
Ref	Expression
resqrexlemoverl	⊢ (𝜑 → 𝐿 ≤ (𝐹‘𝐾))

Distinct variable groups: 𝑦,𝐴,𝑧 𝑒,𝐹,𝑖,𝑗 𝑦,𝐹,𝑧,𝑖,𝑗 𝑒,𝐾,𝑖,𝑗 𝑦,𝐾,𝑧 𝑒,𝐿,𝑖,𝑗 𝑦,𝐿,𝑧 𝜑,𝑦,𝑧 Allowed substitution hints: 𝜑(𝑒,𝑖,𝑗) 𝐴(𝑒,𝑖,𝑗)

Proof of Theorem resqrexlemoverl Dummy variable 𝑏 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		oveq2 5782	. . . . . . . . 9 ⊢ (𝑒 = (𝐿 − (𝐹‘𝐾)) → (𝐿 + 𝑒) = (𝐿 + (𝐿 − (𝐹‘𝐾))))
2	1	breq2d 3941	. . . . . . . 8 ⊢ (𝑒 = (𝐿 − (𝐹‘𝐾)) → ((𝐹‘𝑖) < (𝐿 + 𝑒) ↔ (𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾)))))
3		oveq2 5782	. . . . . . . . 9 ⊢ (𝑒 = (𝐿 − (𝐹‘𝐾)) → ((𝐹‘𝑖) + 𝑒) = ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾))))
4	3	breq2d 3941	. . . . . . . 8 ⊢ (𝑒 = (𝐿 − (𝐹‘𝐾)) → (𝐿 < ((𝐹‘𝑖) + 𝑒) ↔ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))
5	2, 4	anbi12d 464	. . . . . . 7 ⊢ (𝑒 = (𝐿 − (𝐹‘𝐾)) → (((𝐹‘𝑖) < (𝐿 + 𝑒) ∧ 𝐿 < ((𝐹‘𝑖) + 𝑒)) ↔ ((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾))))))
6	5	rexralbidv 2461	. . . . . 6 ⊢ (𝑒 = (𝐿 − (𝐹‘𝐾)) → (∃𝑗 ∈ ℕ ∀𝑖 ∈ (ℤ_≥‘𝑗)((𝐹‘𝑖) < (𝐿 + 𝑒) ∧ 𝐿 < ((𝐹‘𝑖) + 𝑒)) ↔ ∃𝑗 ∈ ℕ ∀𝑖 ∈ (ℤ_≥‘𝑗)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾))))))
7		resqrexlemgt0.lim	. . . . . . 7 ⊢ (𝜑 → ∀𝑒 ∈ ℝ⁺ ∃𝑗 ∈ ℕ ∀𝑖 ∈ (ℤ_≥‘𝑗)((𝐹‘𝑖) < (𝐿 + 𝑒) ∧ 𝐿 < ((𝐹‘𝑖) + 𝑒)))
8	7	adantr 274	. . . . . 6 ⊢ ((𝜑 ∧ (𝐹‘𝐾) < 𝐿) → ∀𝑒 ∈ ℝ⁺ ∃𝑗 ∈ ℕ ∀𝑖 ∈ (ℤ_≥‘𝑗)((𝐹‘𝑖) < (𝐿 + 𝑒) ∧ 𝐿 < ((𝐹‘𝑖) + 𝑒)))
9		resqrexlemex.seq	. . . . . . . . . . 11 ⊢ 𝐹 = seq1((𝑦 ∈ ℝ⁺, 𝑧 ∈ ℝ⁺ ↦ ((𝑦 + (𝐴 / 𝑦)) / 2)), (ℕ × {(1 + 𝐴)}))
10		resqrexlemex.a	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐴 ∈ ℝ)
11		resqrexlemex.agt0	. . . . . . . . . . 11 ⊢ (𝜑 → 0 ≤ 𝐴)
12	9, 10, 11	resqrexlemf 10779	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹:ℕ⟶ℝ⁺)
13		resqrexlemoverl.k	. . . . . . . . . 10 ⊢ (𝜑 → 𝐾 ∈ ℕ)
14	12, 13	ffvelrnd 5556	. . . . . . . . 9 ⊢ (𝜑 → (𝐹‘𝐾) ∈ ℝ⁺)
15	14	rpred 9483	. . . . . . . 8 ⊢ (𝜑 → (𝐹‘𝐾) ∈ ℝ)
16		resqrexlemgt0.rr	. . . . . . . 8 ⊢ (𝜑 → 𝐿 ∈ ℝ)
17		difrp 9480	. . . . . . . 8 ⊢ (((𝐹‘𝐾) ∈ ℝ ∧ 𝐿 ∈ ℝ) → ((𝐹‘𝐾) < 𝐿 ↔ (𝐿 − (𝐹‘𝐾)) ∈ ℝ⁺))
18	15, 16, 17	syl2anc 408	. . . . . . 7 ⊢ (𝜑 → ((𝐹‘𝐾) < 𝐿 ↔ (𝐿 − (𝐹‘𝐾)) ∈ ℝ⁺))
19	18	biimpa 294	. . . . . 6 ⊢ ((𝜑 ∧ (𝐹‘𝐾) < 𝐿) → (𝐿 − (𝐹‘𝐾)) ∈ ℝ⁺)
20	6, 8, 19	rspcdva 2794	. . . . 5 ⊢ ((𝜑 ∧ (𝐹‘𝐾) < 𝐿) → ∃𝑗 ∈ ℕ ∀𝑖 ∈ (ℤ_≥‘𝑗)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))
21		fveq2 5421	. . . . . . 7 ⊢ (𝑗 = 𝑏 → (ℤ_≥‘𝑗) = (ℤ_≥‘𝑏))
22	21	raleqdv 2632	. . . . . 6 ⊢ (𝑗 = 𝑏 → (∀𝑖 ∈ (ℤ_≥‘𝑗)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))) ↔ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾))))))
23	22	cbvrexv 2655	. . . . 5 ⊢ (∃𝑗 ∈ ℕ ∀𝑖 ∈ (ℤ_≥‘𝑗)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))) ↔ ∃𝑏 ∈ ℕ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))
24	20, 23	sylib 121	. . . 4 ⊢ ((𝜑 ∧ (𝐹‘𝐾) < 𝐿) → ∃𝑏 ∈ ℕ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))
25		fveq2 5421	. . . . . . . . . . 11 ⊢ (𝑖 = 𝐾 → (𝐹‘𝑖) = (𝐹‘𝐾))
26	25	breq1d 3939	. . . . . . . . . 10 ⊢ (𝑖 = 𝐾 → ((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ↔ (𝐹‘𝐾) < (𝐿 + (𝐿 − (𝐹‘𝐾)))))
27	25	oveq1d 5789	. . . . . . . . . . 11 ⊢ (𝑖 = 𝐾 → ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾))) = ((𝐹‘𝐾) + (𝐿 − (𝐹‘𝐾))))
28	27	breq2d 3941	. . . . . . . . . 10 ⊢ (𝑖 = 𝐾 → (𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾))) ↔ 𝐿 < ((𝐹‘𝐾) + (𝐿 − (𝐹‘𝐾)))))
29	26, 28	anbi12d 464	. . . . . . . . 9 ⊢ (𝑖 = 𝐾 → (((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))) ↔ ((𝐹‘𝐾) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝐾) + (𝐿 − (𝐹‘𝐾))))))
30		simprr 521	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) → ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))
31	30	adantr 274	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) ∧ 𝑏 ≤ 𝐾) → ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))
32		simprl 520	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) → 𝑏 ∈ ℕ)
33	32	nnzd 9172	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) → 𝑏 ∈ ℤ)
34	33	adantr 274	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) ∧ 𝑏 ≤ 𝐾) → 𝑏 ∈ ℤ)
35	13	ad2antrr 479	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) → 𝐾 ∈ ℕ)
36	35	nnzd 9172	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) → 𝐾 ∈ ℤ)
37	36	adantr 274	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) ∧ 𝑏 ≤ 𝐾) → 𝐾 ∈ ℤ)
38		simpr 109	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) ∧ 𝑏 ≤ 𝐾) → 𝑏 ≤ 𝐾)
39		eluz2 9332	. . . . . . . . . 10 ⊢ (𝐾 ∈ (ℤ_≥‘𝑏) ↔ (𝑏 ∈ ℤ ∧ 𝐾 ∈ ℤ ∧ 𝑏 ≤ 𝐾))
40	34, 37, 38, 39	syl3anbrc 1165	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) ∧ 𝑏 ≤ 𝐾) → 𝐾 ∈ (ℤ_≥‘𝑏))
41	29, 31, 40	rspcdva 2794	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) ∧ 𝑏 ≤ 𝐾) → ((𝐹‘𝐾) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝐾) + (𝐿 − (𝐹‘𝐾)))))
42	41	simprd 113	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) ∧ 𝑏 ≤ 𝐾) → 𝐿 < ((𝐹‘𝐾) + (𝐿 − (𝐹‘𝐾))))
43	14	ad2antrr 479	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) → (𝐹‘𝐾) ∈ ℝ⁺)
44	43	rpcnd 9485	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) → (𝐹‘𝐾) ∈ ℂ)
45	44	adantr 274	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) ∧ 𝑏 ≤ 𝐾) → (𝐹‘𝐾) ∈ ℂ)
46	16	ad2antrr 479	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) → 𝐿 ∈ ℝ)
47	46	recnd 7794	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) → 𝐿 ∈ ℂ)
48	47	adantr 274	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) ∧ 𝑏 ≤ 𝐾) → 𝐿 ∈ ℂ)
49	45, 48	pncan3d 8076	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) ∧ 𝑏 ≤ 𝐾) → ((𝐹‘𝐾) + (𝐿 − (𝐹‘𝐾))) = 𝐿)
50	42, 49	breqtrd 3954	. . . . . 6 ⊢ ((((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) ∧ 𝑏 ≤ 𝐾) → 𝐿 < 𝐿)
51	16	ad3antrrr 483	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) ∧ 𝑏 ≤ 𝐾) → 𝐿 ∈ ℝ)
52	51	ltnrd 7875	. . . . . 6 ⊢ ((((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) ∧ 𝑏 ≤ 𝐾) → ¬ 𝐿 < 𝐿)
53	50, 52	pm2.21fal 1351	. . . . 5 ⊢ ((((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) ∧ 𝑏 ≤ 𝐾) → ⊥)
54	10	ad3antrrr 483	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) ∧ 𝐾 < 𝑏) → 𝐴 ∈ ℝ)
55	11	ad3antrrr 483	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) ∧ 𝐾 < 𝑏) → 0 ≤ 𝐴)
56	13	ad3antrrr 483	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) ∧ 𝐾 < 𝑏) → 𝐾 ∈ ℕ)
57	32	adantr 274	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) ∧ 𝐾 < 𝑏) → 𝑏 ∈ ℕ)
58		simpr 109	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) ∧ 𝐾 < 𝑏) → 𝐾 < 𝑏)
59	9, 54, 55, 56, 57, 58	resqrexlemdecn 10784	. . . . . 6 ⊢ ((((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) ∧ 𝐾 < 𝑏) → (𝐹‘𝑏) < (𝐹‘𝐾))
60	15	ad3antrrr 483	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) ∧ 𝐾 < 𝑏) → (𝐹‘𝐾) ∈ ℝ)
61	12	ad2antrr 479	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) → 𝐹:ℕ⟶ℝ⁺)
62	61, 32	ffvelrnd 5556	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) → (𝐹‘𝑏) ∈ ℝ⁺)
63	62	rpred 9483	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) → (𝐹‘𝑏) ∈ ℝ)
64	63	adantr 274	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) ∧ 𝐾 < 𝑏) → (𝐹‘𝑏) ∈ ℝ)
65		fveq2 5421	. . . . . . . . . . . . . . 15 ⊢ (𝑖 = 𝑏 → (𝐹‘𝑖) = (𝐹‘𝑏))
66	65	breq1d 3939	. . . . . . . . . . . . . 14 ⊢ (𝑖 = 𝑏 → ((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ↔ (𝐹‘𝑏) < (𝐿 + (𝐿 − (𝐹‘𝐾)))))
67	65	oveq1d 5789	. . . . . . . . . . . . . . 15 ⊢ (𝑖 = 𝑏 → ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾))) = ((𝐹‘𝑏) + (𝐿 − (𝐹‘𝐾))))
68	67	breq2d 3941	. . . . . . . . . . . . . 14 ⊢ (𝑖 = 𝑏 → (𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾))) ↔ 𝐿 < ((𝐹‘𝑏) + (𝐿 − (𝐹‘𝐾)))))
69	66, 68	anbi12d 464	. . . . . . . . . . . . 13 ⊢ (𝑖 = 𝑏 → (((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))) ↔ ((𝐹‘𝑏) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑏) + (𝐿 − (𝐹‘𝐾))))))
70		uzid 9340	. . . . . . . . . . . . . 14 ⊢ (𝑏 ∈ ℤ → 𝑏 ∈ (ℤ_≥‘𝑏))
71	33, 70	syl 14	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) → 𝑏 ∈ (ℤ_≥‘𝑏))
72	69, 30, 71	rspcdva 2794	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) → ((𝐹‘𝑏) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑏) + (𝐿 − (𝐹‘𝐾)))))
73	72	simprd 113	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) → 𝐿 < ((𝐹‘𝑏) + (𝐿 − (𝐹‘𝐾))))
74	62	rpcnd 9485	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) → (𝐹‘𝑏) ∈ ℂ)
75	74, 47, 44	addsubassd 8093	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) → (((𝐹‘𝑏) + 𝐿) − (𝐹‘𝐾)) = ((𝐹‘𝑏) + (𝐿 − (𝐹‘𝐾))))
76	73, 75	breqtrrd 3956	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) → 𝐿 < (((𝐹‘𝑏) + 𝐿) − (𝐹‘𝐾)))
77	15	ad2antrr 479	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) → (𝐹‘𝐾) ∈ ℝ)
78	63, 46	readdcld 7795	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) → ((𝐹‘𝑏) + 𝐿) ∈ ℝ)
79	77, 46, 78	ltaddsub2d 8308	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) → (((𝐹‘𝐾) + 𝐿) < ((𝐹‘𝑏) + 𝐿) ↔ 𝐿 < (((𝐹‘𝑏) + 𝐿) − (𝐹‘𝐾))))
80	76, 79	mpbird 166	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) → ((𝐹‘𝐾) + 𝐿) < ((𝐹‘𝑏) + 𝐿))
81	77, 63, 46	ltadd1d 8300	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) → ((𝐹‘𝐾) < (𝐹‘𝑏) ↔ ((𝐹‘𝐾) + 𝐿) < ((𝐹‘𝑏) + 𝐿)))
82	80, 81	mpbird 166	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) → (𝐹‘𝐾) < (𝐹‘𝑏))
83	82	adantr 274	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) ∧ 𝐾 < 𝑏) → (𝐹‘𝐾) < (𝐹‘𝑏))
84	60, 64, 83	ltnsymd 7882	. . . . . 6 ⊢ ((((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) ∧ 𝐾 < 𝑏) → ¬ (𝐹‘𝑏) < (𝐹‘𝐾))
85	59, 84	pm2.21fal 1351	. . . . 5 ⊢ ((((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) ∧ 𝐾 < 𝑏) → ⊥)
86		zlelttric 9099	. . . . . 6 ⊢ ((𝑏 ∈ ℤ ∧ 𝐾 ∈ ℤ) → (𝑏 ≤ 𝐾 ∨ 𝐾 < 𝑏))
87	33, 36, 86	syl2anc 408	. . . . 5 ⊢ (((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) → (𝑏 ≤ 𝐾 ∨ 𝐾 < 𝑏))
88	53, 85, 87	mpjaodan 787	. . . 4 ⊢ (((𝜑 ∧ (𝐹‘𝐾) < 𝐿) ∧ (𝑏 ∈ ℕ ∧ ∀𝑖 ∈ (ℤ_≥‘𝑏)((𝐹‘𝑖) < (𝐿 + (𝐿 − (𝐹‘𝐾))) ∧ 𝐿 < ((𝐹‘𝑖) + (𝐿 − (𝐹‘𝐾)))))) → ⊥)
89	24, 88	rexlimddv 2554	. . 3 ⊢ ((𝜑 ∧ (𝐹‘𝐾) < 𝐿) → ⊥)
90	89	inegd 1350	. 2 ⊢ (𝜑 → ¬ (𝐹‘𝐾) < 𝐿)
91	16, 15	lenltd 7880	. 2 ⊢ (𝜑 → (𝐿 ≤ (𝐹‘𝐾) ↔ ¬ (𝐹‘𝐾) < 𝐿))
92	90, 91	mpbird 166	1 ⊢ (𝜑 → 𝐿 ≤ (𝐹‘𝐾))

Colors of variables: wff set class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 103 ↔ wb 104 ∨ wo 697 = wceq 1331 ⊥wfal 1336 ∈ wcel 1480 ∀wral 2416 ∃wrex 2417 {csn 3527 class class class wbr 3929 × cxp 4537 ⟶wf 5119 ‘cfv 5123 (class class class)co 5774 ∈ cmpo 5776 ℂcc 7618 ℝcr 7619 0cc0 7620 1c1 7621 + caddc 7623 < clt 7800 ≤ cle 7801 − cmin 7933 / cdiv 8432 ℕcn 8720 2c2 8771 ℤcz 9054 ℤ_≥cuz 9326 ℝ⁺crp 9441 seqcseq 10218

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-ia1 105 ax-ia2 106 ax-ia3 107 ax-in1 603 ax-in2 604 ax-io 698 ax-5 1423 ax-7 1424 ax-gen 1425 ax-ie1 1469 ax-ie2 1470 ax-8 1482 ax-10 1483 ax-11 1484 ax-i12 1485 ax-bndl 1486 ax-4 1487 ax-13 1491 ax-14 1492 ax-17 1506 ax-i9 1510 ax-ial 1514 ax-i5r 1515 ax-ext 2121 ax-coll 4043 ax-sep 4046 ax-nul 4054 ax-pow 4098 ax-pr 4131 ax-un 4355 ax-setind 4452 ax-iinf 4502 ax-cnex 7711 ax-resscn 7712 ax-1cn 7713 ax-1re 7714 ax-icn 7715 ax-addcl 7716 ax-addrcl 7717 ax-mulcl 7718 ax-mulrcl 7719 ax-addcom 7720 ax-mulcom 7721 ax-addass 7722 ax-mulass 7723 ax-distr 7724 ax-i2m1 7725 ax-0lt1 7726 ax-1rid 7727 ax-0id 7728 ax-rnegex 7729 ax-precex 7730 ax-cnre 7731 ax-pre-ltirr 7732 ax-pre-ltwlin 7733 ax-pre-lttrn 7734 ax-pre-apti 7735 ax-pre-ltadd 7736 ax-pre-mulgt0 7737 ax-pre-mulext 7738

This theorem depends on definitions: df-bi 116 df-dc 820 df-3or 963 df-3an 964 df-tru 1334 df-fal 1337 df-nf 1437 df-sb 1736 df-eu 2002 df-mo 2003 df-clab 2126 df-cleq 2132 df-clel 2135 df-nfc 2270 df-ne 2309 df-nel 2404 df-ral 2421 df-rex 2422 df-reu 2423 df-rmo 2424 df-rab 2425 df-v 2688 df-sbc 2910 df-csb 3004 df-dif 3073 df-un 3075 df-in 3077 df-ss 3084 df-nul 3364 df-if 3475 df-pw 3512 df-sn 3533 df-pr 3534 df-op 3536 df-uni 3737 df-int 3772 df-iun 3815 df-br 3930 df-opab 3990 df-mpt 3991 df-tr 4027 df-id 4215 df-po 4218 df-iso 4219 df-iord 4288 df-on 4290 df-ilim 4291 df-suc 4293 df-iom 4505 df-xp 4545 df-rel 4546 df-cnv 4547 df-co 4548 df-dm 4549 df-rn 4550 df-res 4551 df-ima 4552 df-iota 5088 df-fun 5125 df-fn 5126 df-f 5127 df-f1 5128 df-fo 5129 df-f1o 5130 df-fv 5131 df-riota 5730 df-ov 5777 df-oprab 5778 df-mpo 5779 df-1st 6038 df-2nd 6039 df-recs 6202 df-frec 6288 df-pnf 7802 df-mnf 7803 df-xr 7804 df-ltxr 7805 df-le 7806 df-sub 7935 df-neg 7936 df-reap 8337 df-ap 8344 df-div 8433 df-inn 8721 df-2 8779 df-3 8780 df-4 8781 df-n0 8978 df-z 9055 df-uz 9327 df-rp 9442 df-seqfrec 10219 df-exp 10293

This theorem is referenced by: resqrexlemglsq 10794

W3C validator