Theorem recriota 6964

Description: Two ways to express the reciprocal of a natural number. (Contributed by Jim Kingdon, 11-Jul-2021.)

Assertion

Ref	Expression
recriota	⊢ (𝑁 ∈ N → (℩𝑟 ∈ ℝ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑟) = 1) = ⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q (*Q‘[⟨𝑁, 1𝑜⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑁, 1𝑜⟩] ~Q ) <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩)

Distinct variable group:   𝑁,𝑙,𝑟,𝑢

Proof of Theorem recriota

Dummy variable 𝑦 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		pitore 6926	. . 3 ⊢ (𝑁 ∈ N → ⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ ∈ ℝ)
2		pitoregt0 6925	. . 3 ⊢ (𝑁 ∈ N → 0 <ℝ ⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩)
3		axprecex 6954	. . 3 ⊢ ((⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ ∈ ℝ ∧ 0 <ℝ ⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩) → ∃𝑦 ∈ ℝ (0 <ℝ 𝑦 ∧ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦) = 1))
4	1, 2, 3	syl2anc 391	. 2 ⊢ (𝑁 ∈ N → ∃𝑦 ∈ ℝ (0 <ℝ 𝑦 ∧ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦) = 1))
5		simprrr 492	. . . 4 ⊢ ((𝑁 ∈ N ∧ (𝑦 ∈ ℝ ∧ (0 <ℝ 𝑦 ∧ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦) = 1))) → (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦) = 1)
6		simprl 483	. . . . 5 ⊢ ((𝑁 ∈ N ∧ (𝑦 ∈ ℝ ∧ (0 <ℝ 𝑦 ∧ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦) = 1))) → 𝑦 ∈ ℝ)
7	1	adantr 261	. . . . . 6 ⊢ ((𝑁 ∈ N ∧ (𝑦 ∈ ℝ ∧ (0 <ℝ 𝑦 ∧ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦) = 1))) → ⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ ∈ ℝ)
8	2	adantr 261	. . . . . 6 ⊢ ((𝑁 ∈ N ∧ (𝑦 ∈ ℝ ∧ (0 <ℝ 𝑦 ∧ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦) = 1))) → 0 <ℝ ⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩)
9		rereceu 6963	. . . . . 6 ⊢ ((⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ ∈ ℝ ∧ 0 <ℝ ⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩) → ∃!𝑟 ∈ ℝ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑟) = 1)
10	7, 8, 9	syl2anc 391	. . . . 5 ⊢ ((𝑁 ∈ N ∧ (𝑦 ∈ ℝ ∧ (0 <ℝ 𝑦 ∧ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦) = 1))) → ∃!𝑟 ∈ ℝ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑟) = 1)
11		oveq2 5520	. . . . . . 7 ⊢ (𝑟 = 𝑦 → (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑟) = (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦))
12	11	eqeq1d 2048	. . . . . 6 ⊢ (𝑟 = 𝑦 → ((⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑟) = 1 ↔ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦) = 1))
13	12	riota2 5490	. . . . 5 ⊢ ((𝑦 ∈ ℝ ∧ ∃!𝑟 ∈ ℝ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑟) = 1) → ((⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦) = 1 ↔ (℩𝑟 ∈ ℝ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑟) = 1) = 𝑦))
14	6, 10, 13	syl2anc 391	. . . 4 ⊢ ((𝑁 ∈ N ∧ (𝑦 ∈ ℝ ∧ (0 <ℝ 𝑦 ∧ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦) = 1))) → ((⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦) = 1 ↔ (℩𝑟 ∈ ℝ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑟) = 1) = 𝑦))
15	5, 14	mpbid 135	. . 3 ⊢ ((𝑁 ∈ N ∧ (𝑦 ∈ ℝ ∧ (0 <ℝ 𝑦 ∧ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦) = 1))) → (℩𝑟 ∈ ℝ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑟) = 1) = 𝑦)
16	5	oveq2d 5528	. . . 4 ⊢ ((𝑁 ∈ N ∧ (𝑦 ∈ ℝ ∧ (0 <ℝ 𝑦 ∧ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦) = 1))) → (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q (*Q‘[⟨𝑁, 1𝑜⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑁, 1𝑜⟩] ~Q ) <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦)) = (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q (*Q‘[⟨𝑁, 1𝑜⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑁, 1𝑜⟩] ~Q ) <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 1))
17		axresscn 6936	. . . . . . . . . 10 ⊢ ℝ ⊆ ℂ
18	17, 7	sseldi 2943	. . . . . . . . 9 ⊢ ((𝑁 ∈ N ∧ (𝑦 ∈ ℝ ∧ (0 <ℝ 𝑦 ∧ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦) = 1))) → ⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ ∈ ℂ)
19		recnnre 6927	. . . . . . . . . . 11 ⊢ (𝑁 ∈ N → ⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q (*Q‘[⟨𝑁, 1𝑜⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑁, 1𝑜⟩] ~Q ) <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ ∈ ℝ)
20	19	adantr 261	. . . . . . . . . 10 ⊢ ((𝑁 ∈ N ∧ (𝑦 ∈ ℝ ∧ (0 <ℝ 𝑦 ∧ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦) = 1))) → ⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q (*Q‘[⟨𝑁, 1𝑜⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑁, 1𝑜⟩] ~Q ) <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ ∈ ℝ)
21	17, 20	sseldi 2943	. . . . . . . . 9 ⊢ ((𝑁 ∈ N ∧ (𝑦 ∈ ℝ ∧ (0 <ℝ 𝑦 ∧ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦) = 1))) → ⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q (*Q‘[⟨𝑁, 1𝑜⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑁, 1𝑜⟩] ~Q ) <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ ∈ ℂ)
22		axmulcom 6945	. . . . . . . . 9 ⊢ ((⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ ∈ ℂ ∧ ⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q (*Q‘[⟨𝑁, 1𝑜⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑁, 1𝑜⟩] ~Q ) <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ ∈ ℂ) → (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · ⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q (*Q‘[⟨𝑁, 1𝑜⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑁, 1𝑜⟩] ~Q ) <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩) = (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q (*Q‘[⟨𝑁, 1𝑜⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑁, 1𝑜⟩] ~Q ) <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · ⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩))
23	18, 21, 22	syl2anc 391	. . . . . . . 8 ⊢ ((𝑁 ∈ N ∧ (𝑦 ∈ ℝ ∧ (0 <ℝ 𝑦 ∧ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦) = 1))) → (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · ⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q (*Q‘[⟨𝑁, 1𝑜⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑁, 1𝑜⟩] ~Q ) <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩) = (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q (*Q‘[⟨𝑁, 1𝑜⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑁, 1𝑜⟩] ~Q ) <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · ⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩))
24		recidpirq 6934	. . . . . . . . 9 ⊢ (𝑁 ∈ N → (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · ⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q (*Q‘[⟨𝑁, 1𝑜⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑁, 1𝑜⟩] ~Q ) <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩) = 1)
25	24	adantr 261	. . . . . . . 8 ⊢ ((𝑁 ∈ N ∧ (𝑦 ∈ ℝ ∧ (0 <ℝ 𝑦 ∧ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦) = 1))) → (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · ⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q (*Q‘[⟨𝑁, 1𝑜⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑁, 1𝑜⟩] ~Q ) <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩) = 1)
26	23, 25	eqtr3d 2074	. . . . . . 7 ⊢ ((𝑁 ∈ N ∧ (𝑦 ∈ ℝ ∧ (0 <ℝ 𝑦 ∧ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦) = 1))) → (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q (*Q‘[⟨𝑁, 1𝑜⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑁, 1𝑜⟩] ~Q ) <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · ⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩) = 1)
27	26	oveq1d 5527	. . . . . 6 ⊢ ((𝑁 ∈ N ∧ (𝑦 ∈ ℝ ∧ (0 <ℝ 𝑦 ∧ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦) = 1))) → ((⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q (*Q‘[⟨𝑁, 1𝑜⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑁, 1𝑜⟩] ~Q ) <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · ⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩) · 𝑦) = (1 · 𝑦))
28	17, 6	sseldi 2943	. . . . . . 7 ⊢ ((𝑁 ∈ N ∧ (𝑦 ∈ ℝ ∧ (0 <ℝ 𝑦 ∧ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦) = 1))) → 𝑦 ∈ ℂ)
29		axmulass 6947	. . . . . . 7 ⊢ ((⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q (*Q‘[⟨𝑁, 1𝑜⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑁, 1𝑜⟩] ~Q ) <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ ∈ ℂ ∧ ⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ ∈ ℂ ∧ 𝑦 ∈ ℂ) → ((⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q (*Q‘[⟨𝑁, 1𝑜⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑁, 1𝑜⟩] ~Q ) <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · ⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩) · 𝑦) = (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q (*Q‘[⟨𝑁, 1𝑜⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑁, 1𝑜⟩] ~Q ) <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦)))
30	21, 18, 28, 29	syl3anc 1135	. . . . . 6 ⊢ ((𝑁 ∈ N ∧ (𝑦 ∈ ℝ ∧ (0 <ℝ 𝑦 ∧ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦) = 1))) → ((⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q (*Q‘[⟨𝑁, 1𝑜⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑁, 1𝑜⟩] ~Q ) <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · ⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩) · 𝑦) = (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q (*Q‘[⟨𝑁, 1𝑜⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑁, 1𝑜⟩] ~Q ) <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦)))
31		ax1cn 6937	. . . . . . 7 ⊢ 1 ∈ ℂ
32		axmulcom 6945	. . . . . . 7 ⊢ ((1 ∈ ℂ ∧ 𝑦 ∈ ℂ) → (1 · 𝑦) = (𝑦 · 1))
33	31, 28, 32	sylancr 393	. . . . . 6 ⊢ ((𝑁 ∈ N ∧ (𝑦 ∈ ℝ ∧ (0 <ℝ 𝑦 ∧ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦) = 1))) → (1 · 𝑦) = (𝑦 · 1))
34	27, 30, 33	3eqtr3d 2080	. . . . 5 ⊢ ((𝑁 ∈ N ∧ (𝑦 ∈ ℝ ∧ (0 <ℝ 𝑦 ∧ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦) = 1))) → (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q (*Q‘[⟨𝑁, 1𝑜⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑁, 1𝑜⟩] ~Q ) <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦)) = (𝑦 · 1))
35		ax1rid 6951	. . . . . 6 ⊢ (𝑦 ∈ ℝ → (𝑦 · 1) = 𝑦)
36	6, 35	syl 14	. . . . 5 ⊢ ((𝑁 ∈ N ∧ (𝑦 ∈ ℝ ∧ (0 <ℝ 𝑦 ∧ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦) = 1))) → (𝑦 · 1) = 𝑦)
37	34, 36	eqtrd 2072	. . . 4 ⊢ ((𝑁 ∈ N ∧ (𝑦 ∈ ℝ ∧ (0 <ℝ 𝑦 ∧ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦) = 1))) → (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q (*Q‘[⟨𝑁, 1𝑜⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑁, 1𝑜⟩] ~Q ) <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦)) = 𝑦)
38		ax1rid 6951	. . . . 5 ⊢ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q (*Q‘[⟨𝑁, 1𝑜⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑁, 1𝑜⟩] ~Q ) <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ ∈ ℝ → (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q (*Q‘[⟨𝑁, 1𝑜⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑁, 1𝑜⟩] ~Q ) <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 1) = ⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q (*Q‘[⟨𝑁, 1𝑜⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑁, 1𝑜⟩] ~Q ) <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩)
39	20, 38	syl 14	. . . 4 ⊢ ((𝑁 ∈ N ∧ (𝑦 ∈ ℝ ∧ (0 <ℝ 𝑦 ∧ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦) = 1))) → (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q (*Q‘[⟨𝑁, 1𝑜⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑁, 1𝑜⟩] ~Q ) <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 1) = ⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q (*Q‘[⟨𝑁, 1𝑜⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑁, 1𝑜⟩] ~Q ) <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩)
40	16, 37, 39	3eqtr3d 2080	. . 3 ⊢ ((𝑁 ∈ N ∧ (𝑦 ∈ ℝ ∧ (0 <ℝ 𝑦 ∧ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦) = 1))) → 𝑦 = ⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q (*Q‘[⟨𝑁, 1𝑜⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑁, 1𝑜⟩] ~Q ) <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩)
41	15, 40	eqtrd 2072	. 2 ⊢ ((𝑁 ∈ N ∧ (𝑦 ∈ ℝ ∧ (0 <ℝ 𝑦 ∧ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑦) = 1))) → (℩𝑟 ∈ ℝ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑟) = 1) = ⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q (*Q‘[⟨𝑁, 1𝑜⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑁, 1𝑜⟩] ~Q ) <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩)
42	4, 41	rexlimddv 2437	1 ⊢ (𝑁 ∈ N → (℩𝑟 ∈ ℝ (⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q [⟨𝑁, 1𝑜⟩] ~Q }, {𝑢 ∣ [⟨𝑁, 1𝑜⟩] ~Q <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩ · 𝑟) = 1) = ⟨[⟨(⟨{𝑙 ∣ 𝑙 <Q (*Q‘[⟨𝑁, 1𝑜⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑁, 1𝑜⟩] ~Q ) <Q 𝑢}⟩ +P 1P), 1P⟩] ~R , 0R⟩)

Syntax hints:   → wi 4   ∧ wa 97   ↔ wb 98   = wceq 1243   ∈ wcel 1393  {cab 2026  ∃wrex 2307  ∃!wreu 2308  ⟨cop 3378   class class class wbr 3764  ‘cfv 4902  ℩crio 5467  (class class class)co 5512  1_𝑜c1o 5994  [cec 6104  Ncnpi 6370   ~_Q ceq 6377  *_Qcrq 6382   <_Q cltq 6383  1_Pc1p 6390   +_P cpp 6391   ~_R cer 6394  0_Rc0r 6396  ℂcc 6887  ℝcr 6888  0cc0 6889  1c1 6890   <_ℝ cltrr 6893   · cmul 6894

This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 99  ax-ia2 100  ax-ia3 101  ax-in1 544  ax-in2 545  ax-io 630  ax-5 1336  ax-7 1337  ax-gen 1338  ax-ie1 1382  ax-ie2 1383  ax-8 1395  ax-10 1396  ax-11 1397  ax-i12 1398  ax-bndl 1399  ax-4 1400  ax-13 1404  ax-14 1405  ax-17 1419  ax-i9 1423  ax-ial 1427  ax-i5r 1428  ax-ext 2022  ax-coll 3872  ax-sep 3875  ax-nul 3883  ax-pow 3927  ax-pr 3944  ax-un 4170  ax-setind 4262  ax-iinf 4311

This theorem depends on definitions:  df-bi 110  df-dc 743  df-3or 886  df-3an 887  df-tru 1246  df-fal 1249  df-nf 1350  df-sb 1646  df-eu 1903  df-mo 1904  df-clab 2027  df-cleq 2033  df-clel 2036  df-nfc 2167  df-ne 2206  df-ral 2311  df-rex 2312  df-reu 2313  df-rmo 2314  df-rab 2315  df-v 2559  df-sbc 2765  df-csb 2853  df-dif 2920  df-un 2922  df-in 2924  df-ss 2931  df-nul 3225  df-pw 3361  df-sn 3381  df-pr 3382  df-op 3384  df-uni 3581  df-int 3616  df-iun 3659  df-br 3765  df-opab 3819  df-mpt 3820  df-tr 3855  df-eprel 4026  df-id 4030  df-po 4033  df-iso 4034  df-iord 4103  df-on 4105  df-suc 4108  df-iom 4314  df-xp 4351  df-rel 4352  df-cnv 4353  df-co 4354  df-dm 4355  df-rn 4356  df-res 4357  df-ima 4358  df-iota 4867  df-fun 4904  df-fn 4905  df-f 4906  df-f1 4907  df-fo 4908  df-f1o 4909  df-fv 4910  df-riota 5468  df-ov 5515  df-oprab 5516  df-mpt2 5517  df-1st 5767  df-2nd 5768  df-recs 5920  df-irdg 5957  df-1o 6001  df-2o 6002  df-oadd 6005  df-omul 6006  df-er 6106  df-ec 6108  df-qs 6112  df-ni 6402  df-pli 6403  df-mi 6404  df-lti 6405  df-plpq 6442  df-mpq 6443  df-enq 6445  df-nqqs 6446  df-plqqs 6447  df-mqqs 6448  df-1nqqs 6449  df-rq 6450  df-ltnqqs 6451  df-enq0 6522  df-nq0 6523  df-0nq0 6524  df-plq0 6525  df-mq0 6526  df-inp 6564  df-i1p 6565  df-iplp 6566  df-imp 6567  df-iltp 6568  df-enr 6811  df-nr 6812  df-plr 6813  df-mr 6814  df-ltr 6815  df-0r 6816  df-1r 6817  df-m1r 6818  df-c 6895  df-0 6896  df-1 6897  df-r 6899  df-mul 6901  df-lt 6902

This theorem is referenced by:  axcaucvglemcau  6972