precsex - Metamath Proof Explorer

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

Theorem precsex 27644

Description: Every positive surreal has a reciprocal. Theorem 10(iv) of [Conway] p. 21. (Contributed by Scott Fenton, 15-Mar-2025.)

**Assertion**
Ref	Expression
precsex	⊢ ((𝐴 ∈ No ∧ 0_s <s 𝐴) → ∃𝑦 ∈ No (𝐴 ·_s 𝑦) = 1_s )

Distinct variable group: 𝑦,𝐴

Proof of Theorem precsex Dummy variables 𝑎 𝑏 𝑥 𝑥_𝑂 𝑥_𝐿 𝑥_𝑅 𝑦_𝐿 𝑦_𝑅 𝑧 𝑧_𝐿 𝑧_𝑅 𝑙 𝑚 𝑝 𝑞 𝑟 𝑠 𝑡 𝑢 𝑤 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		breq2 5151	. . . 4 ⊢ (𝑧 = 𝑥_𝑂 → ( 0_s <s 𝑧 ↔ 0_s <s 𝑥_𝑂))
2		oveq1 7411	. . . . . 6 ⊢ (𝑧 = 𝑥_𝑂 → (𝑧 ·_s 𝑦) = (𝑥_𝑂 ·_s 𝑦))
3	2	eqeq1d 2735	. . . . 5 ⊢ (𝑧 = 𝑥_𝑂 → ((𝑧 ·_s 𝑦) = 1_s ↔ (𝑥_𝑂 ·_s 𝑦) = 1_s ))
4	3	rexbidv 3179	. . . 4 ⊢ (𝑧 = 𝑥_𝑂 → (∃𝑦 ∈ No (𝑧 ·_s 𝑦) = 1_s ↔ ∃𝑦 ∈ No (𝑥_𝑂 ·_s 𝑦) = 1_s ))
5	1, 4	imbi12d 345	. . 3 ⊢ (𝑧 = 𝑥_𝑂 → (( 0_s <s 𝑧 → ∃𝑦 ∈ No (𝑧 ·_s 𝑦) = 1_s ) ↔ ( 0_s <s 𝑥_𝑂 → ∃𝑦 ∈ No (𝑥_𝑂 ·_s 𝑦) = 1_s )))
6		breq2 5151	. . . 4 ⊢ (𝑧 = 𝐴 → ( 0_s <s 𝑧 ↔ 0_s <s 𝐴))
7		oveq1 7411	. . . . . 6 ⊢ (𝑧 = 𝐴 → (𝑧 ·_s 𝑦) = (𝐴 ·_s 𝑦))
8	7	eqeq1d 2735	. . . . 5 ⊢ (𝑧 = 𝐴 → ((𝑧 ·_s 𝑦) = 1_s ↔ (𝐴 ·_s 𝑦) = 1_s ))
9	8	rexbidv 3179	. . . 4 ⊢ (𝑧 = 𝐴 → (∃𝑦 ∈ No (𝑧 ·_s 𝑦) = 1_s ↔ ∃𝑦 ∈ No (𝐴 ·_s 𝑦) = 1_s ))
10	6, 9	imbi12d 345	. . 3 ⊢ (𝑧 = 𝐴 → (( 0_s <s 𝑧 → ∃𝑦 ∈ No (𝑧 ·_s 𝑦) = 1_s ) ↔ ( 0_s <s 𝐴 → ∃𝑦 ∈ No (𝐴 ·_s 𝑦) = 1_s )))
11		eqid 2733	. . . . . . . . 9 ⊢ rec((𝑞 ∈ V ↦ ⦋(1^st ‘𝑞) / 𝑚⦌⦋(2^nd ‘𝑞) / 𝑠⦌⟨(𝑚 ∪ ({𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝑅)} ∪ {𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝐿)})), (𝑠 ∪ ({𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝐿)} ∪ {𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝑅)}))⟩), ⟨{ 0_s }, ∅⟩) = rec((𝑞 ∈ V ↦ ⦋(1^st ‘𝑞) / 𝑚⦌⦋(2^nd ‘𝑞) / 𝑠⦌⟨(𝑚 ∪ ({𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝑅)} ∪ {𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝐿)})), (𝑠 ∪ ({𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝐿)} ∪ {𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝑅)}))⟩), ⟨{ 0_s }, ∅⟩)
12	11	precsexlemcbv 27632	. . . . . . . 8 ⊢ rec((𝑞 ∈ V ↦ ⦋(1^st ‘𝑞) / 𝑚⦌⦋(2^nd ‘𝑞) / 𝑠⦌⟨(𝑚 ∪ ({𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝑅)} ∪ {𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝐿)})), (𝑠 ∪ ({𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝐿)} ∪ {𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝑅)}))⟩), ⟨{ 0_s }, ∅⟩) = rec((𝑝 ∈ V ↦ ⦋(1^st ‘𝑝) / 𝑙⦌⦋(2^nd ‘𝑝) / 𝑟⦌⟨(𝑙 ∪ ({𝑎 ∣ ∃𝑥_𝑅 ∈ ( R ‘𝑧)∃𝑦_𝐿 ∈ 𝑙 𝑎 = (( 1_s +_s ((𝑥_𝑅 -_s 𝑧) ·_s 𝑦_𝐿)) /_su 𝑥_𝑅)} ∪ {𝑎 ∣ ∃𝑥_𝐿 ∈ {𝑥 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑥}∃𝑦_𝑅 ∈ 𝑟 𝑎 = (( 1_s +_s ((𝑥_𝐿 -_s 𝑧) ·_s 𝑦_𝑅)) /_su 𝑥_𝐿)})), (𝑟 ∪ ({𝑎 ∣ ∃𝑥_𝐿 ∈ {𝑥 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑥}∃𝑦_𝐿 ∈ 𝑙 𝑎 = (( 1_s +_s ((𝑥_𝐿 -_s 𝑧) ·_s 𝑦_𝐿)) /_su 𝑥_𝐿)} ∪ {𝑎 ∣ ∃𝑥_𝑅 ∈ ( R ‘𝑧)∃𝑦_𝑅 ∈ 𝑟 𝑎 = (( 1_s +_s ((𝑥_𝑅 -_s 𝑧) ·_s 𝑦_𝑅)) /_su 𝑥_𝑅)}))⟩), ⟨{ 0_s }, ∅⟩)
13		eqid 2733	. . . . . . . 8 ⊢ (1^st ∘ rec((𝑞 ∈ V ↦ ⦋(1^st ‘𝑞) / 𝑚⦌⦋(2^nd ‘𝑞) / 𝑠⦌⟨(𝑚 ∪ ({𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝑅)} ∪ {𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝐿)})), (𝑠 ∪ ({𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝐿)} ∪ {𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝑅)}))⟩), ⟨{ 0_s }, ∅⟩)) = (1^st ∘ rec((𝑞 ∈ V ↦ ⦋(1^st ‘𝑞) / 𝑚⦌⦋(2^nd ‘𝑞) / 𝑠⦌⟨(𝑚 ∪ ({𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝑅)} ∪ {𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝐿)})), (𝑠 ∪ ({𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝐿)} ∪ {𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝑅)}))⟩), ⟨{ 0_s }, ∅⟩))
14		eqid 2733	. . . . . . . 8 ⊢ (2^nd ∘ rec((𝑞 ∈ V ↦ ⦋(1^st ‘𝑞) / 𝑚⦌⦋(2^nd ‘𝑞) / 𝑠⦌⟨(𝑚 ∪ ({𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝑅)} ∪ {𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝐿)})), (𝑠 ∪ ({𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝐿)} ∪ {𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝑅)}))⟩), ⟨{ 0_s }, ∅⟩)) = (2^nd ∘ rec((𝑞 ∈ V ↦ ⦋(1^st ‘𝑞) / 𝑚⦌⦋(2^nd ‘𝑞) / 𝑠⦌⟨(𝑚 ∪ ({𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝑅)} ∪ {𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝐿)})), (𝑠 ∪ ({𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝐿)} ∪ {𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝑅)}))⟩), ⟨{ 0_s }, ∅⟩))
15		simp1 1137	. . . . . . . 8 ⊢ ((𝑧 ∈ No ∧ 0_s <s 𝑧 ∧ ∀𝑥_𝑂 ∈ (( L ‘𝑧) ∪ ( R ‘𝑧))( 0_s <s 𝑥_𝑂 → ∃𝑦 ∈ No (𝑥_𝑂 ·_s 𝑦) = 1_s )) → 𝑧 ∈ No )
16		simp2 1138	. . . . . . . 8 ⊢ ((𝑧 ∈ No ∧ 0_s <s 𝑧 ∧ ∀𝑥_𝑂 ∈ (( L ‘𝑧) ∪ ( R ‘𝑧))( 0_s <s 𝑥_𝑂 → ∃𝑦 ∈ No (𝑥_𝑂 ·_s 𝑦) = 1_s )) → 0_s <s 𝑧)
17		simp3 1139	. . . . . . . 8 ⊢ ((𝑧 ∈ No ∧ 0_s <s 𝑧 ∧ ∀𝑥_𝑂 ∈ (( L ‘𝑧) ∪ ( R ‘𝑧))( 0_s <s 𝑥_𝑂 → ∃𝑦 ∈ No (𝑥_𝑂 ·_s 𝑦) = 1_s )) → ∀𝑥_𝑂 ∈ (( L ‘𝑧) ∪ ( R ‘𝑧))( 0_s <s 𝑥_𝑂 → ∃𝑦 ∈ No (𝑥_𝑂 ·_s 𝑦) = 1_s ))
18	12, 13, 14, 15, 16, 17	precsexlem10 27642	. . . . . . 7 ⊢ ((𝑧 ∈ No ∧ 0_s <s 𝑧 ∧ ∀𝑥_𝑂 ∈ (( L ‘𝑧) ∪ ( R ‘𝑧))( 0_s <s 𝑥_𝑂 → ∃𝑦 ∈ No (𝑥_𝑂 ·_s 𝑦) = 1_s )) → ∪ ((1^st ∘ rec((𝑞 ∈ V ↦ ⦋(1^st ‘𝑞) / 𝑚⦌⦋(2^nd ‘𝑞) / 𝑠⦌⟨(𝑚 ∪ ({𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝑅)} ∪ {𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝐿)})), (𝑠 ∪ ({𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝐿)} ∪ {𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝑅)}))⟩), ⟨{ 0_s }, ∅⟩)) “ ω) <<s ∪ ((2^nd ∘ rec((𝑞 ∈ V ↦ ⦋(1^st ‘𝑞) / 𝑚⦌⦋(2^nd ‘𝑞) / 𝑠⦌⟨(𝑚 ∪ ({𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝑅)} ∪ {𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝐿)})), (𝑠 ∪ ({𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝐿)} ∪ {𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝑅)}))⟩), ⟨{ 0_s }, ∅⟩)) “ ω))
19	18	scutcld 27284	. . . . . 6 ⊢ ((𝑧 ∈ No ∧ 0_s <s 𝑧 ∧ ∀𝑥_𝑂 ∈ (( L ‘𝑧) ∪ ( R ‘𝑧))( 0_s <s 𝑥_𝑂 → ∃𝑦 ∈ No (𝑥_𝑂 ·_s 𝑦) = 1_s )) → (∪ ((1^st ∘ rec((𝑞 ∈ V ↦ ⦋(1^st ‘𝑞) / 𝑚⦌⦋(2^nd ‘𝑞) / 𝑠⦌⟨(𝑚 ∪ ({𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝑅)} ∪ {𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝐿)})), (𝑠 ∪ ({𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝐿)} ∪ {𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝑅)}))⟩), ⟨{ 0_s }, ∅⟩)) “ ω) \|s ∪ ((2^nd ∘ rec((𝑞 ∈ V ↦ ⦋(1^st ‘𝑞) / 𝑚⦌⦋(2^nd ‘𝑞) / 𝑠⦌⟨(𝑚 ∪ ({𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝑅)} ∪ {𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝐿)})), (𝑠 ∪ ({𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝐿)} ∪ {𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝑅)}))⟩), ⟨{ 0_s }, ∅⟩)) “ ω)) ∈ No )
20		eqid 2733	. . . . . . 7 ⊢ (∪ ((1^st ∘ rec((𝑞 ∈ V ↦ ⦋(1^st ‘𝑞) / 𝑚⦌⦋(2^nd ‘𝑞) / 𝑠⦌⟨(𝑚 ∪ ({𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝑅)} ∪ {𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝐿)})), (𝑠 ∪ ({𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝐿)} ∪ {𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝑅)}))⟩), ⟨{ 0_s }, ∅⟩)) “ ω) \|s ∪ ((2^nd ∘ rec((𝑞 ∈ V ↦ ⦋(1^st ‘𝑞) / 𝑚⦌⦋(2^nd ‘𝑞) / 𝑠⦌⟨(𝑚 ∪ ({𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝑅)} ∪ {𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝐿)})), (𝑠 ∪ ({𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝐿)} ∪ {𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝑅)}))⟩), ⟨{ 0_s }, ∅⟩)) “ ω)) = (∪ ((1^st ∘ rec((𝑞 ∈ V ↦ ⦋(1^st ‘𝑞) / 𝑚⦌⦋(2^nd ‘𝑞) / 𝑠⦌⟨(𝑚 ∪ ({𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝑅)} ∪ {𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝐿)})), (𝑠 ∪ ({𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝐿)} ∪ {𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝑅)}))⟩), ⟨{ 0_s }, ∅⟩)) “ ω) \|s ∪ ((2^nd ∘ rec((𝑞 ∈ V ↦ ⦋(1^st ‘𝑞) / 𝑚⦌⦋(2^nd ‘𝑞) / 𝑠⦌⟨(𝑚 ∪ ({𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝑅)} ∪ {𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝐿)})), (𝑠 ∪ ({𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝐿)} ∪ {𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝑅)}))⟩), ⟨{ 0_s }, ∅⟩)) “ ω))
21	12, 13, 14, 15, 16, 17, 20	precsexlem11 27643	. . . . . 6 ⊢ ((𝑧 ∈ No ∧ 0_s <s 𝑧 ∧ ∀𝑥_𝑂 ∈ (( L ‘𝑧) ∪ ( R ‘𝑧))( 0_s <s 𝑥_𝑂 → ∃𝑦 ∈ No (𝑥_𝑂 ·_s 𝑦) = 1_s )) → (𝑧 ·_s (∪ ((1^st ∘ rec((𝑞 ∈ V ↦ ⦋(1^st ‘𝑞) / 𝑚⦌⦋(2^nd ‘𝑞) / 𝑠⦌⟨(𝑚 ∪ ({𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝑅)} ∪ {𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝐿)})), (𝑠 ∪ ({𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝐿)} ∪ {𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝑅)}))⟩), ⟨{ 0_s }, ∅⟩)) “ ω) \|s ∪ ((2^nd ∘ rec((𝑞 ∈ V ↦ ⦋(1^st ‘𝑞) / 𝑚⦌⦋(2^nd ‘𝑞) / 𝑠⦌⟨(𝑚 ∪ ({𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝑅)} ∪ {𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝐿)})), (𝑠 ∪ ({𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝐿)} ∪ {𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝑅)}))⟩), ⟨{ 0_s }, ∅⟩)) “ ω))) = 1_s )
22		oveq2 7412	. . . . . . . 8 ⊢ (𝑦 = (∪ ((1^st ∘ rec((𝑞 ∈ V ↦ ⦋(1^st ‘𝑞) / 𝑚⦌⦋(2^nd ‘𝑞) / 𝑠⦌⟨(𝑚 ∪ ({𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝑅)} ∪ {𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝐿)})), (𝑠 ∪ ({𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝐿)} ∪ {𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝑅)}))⟩), ⟨{ 0_s }, ∅⟩)) “ ω) \|s ∪ ((2^nd ∘ rec((𝑞 ∈ V ↦ ⦋(1^st ‘𝑞) / 𝑚⦌⦋(2^nd ‘𝑞) / 𝑠⦌⟨(𝑚 ∪ ({𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝑅)} ∪ {𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝐿)})), (𝑠 ∪ ({𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝐿)} ∪ {𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝑅)}))⟩), ⟨{ 0_s }, ∅⟩)) “ ω)) → (𝑧 ·_s 𝑦) = (𝑧 ·_s (∪ ((1^st ∘ rec((𝑞 ∈ V ↦ ⦋(1^st ‘𝑞) / 𝑚⦌⦋(2^nd ‘𝑞) / 𝑠⦌⟨(𝑚 ∪ ({𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝑅)} ∪ {𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝐿)})), (𝑠 ∪ ({𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝐿)} ∪ {𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝑅)}))⟩), ⟨{ 0_s }, ∅⟩)) “ ω) \|s ∪ ((2^nd ∘ rec((𝑞 ∈ V ↦ ⦋(1^st ‘𝑞) / 𝑚⦌⦋(2^nd ‘𝑞) / 𝑠⦌⟨(𝑚 ∪ ({𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝑅)} ∪ {𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝐿)})), (𝑠 ∪ ({𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝐿)} ∪ {𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝑅)}))⟩), ⟨{ 0_s }, ∅⟩)) “ ω))))
23	22	eqeq1d 2735	. . . . . . 7 ⊢ (𝑦 = (∪ ((1^st ∘ rec((𝑞 ∈ V ↦ ⦋(1^st ‘𝑞) / 𝑚⦌⦋(2^nd ‘𝑞) / 𝑠⦌⟨(𝑚 ∪ ({𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝑅)} ∪ {𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝐿)})), (𝑠 ∪ ({𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝐿)} ∪ {𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝑅)}))⟩), ⟨{ 0_s }, ∅⟩)) “ ω) \|s ∪ ((2^nd ∘ rec((𝑞 ∈ V ↦ ⦋(1^st ‘𝑞) / 𝑚⦌⦋(2^nd ‘𝑞) / 𝑠⦌⟨(𝑚 ∪ ({𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝑅)} ∪ {𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝐿)})), (𝑠 ∪ ({𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝐿)} ∪ {𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝑅)}))⟩), ⟨{ 0_s }, ∅⟩)) “ ω)) → ((𝑧 ·_s 𝑦) = 1_s ↔ (𝑧 ·_s (∪ ((1^st ∘ rec((𝑞 ∈ V ↦ ⦋(1^st ‘𝑞) / 𝑚⦌⦋(2^nd ‘𝑞) / 𝑠⦌⟨(𝑚 ∪ ({𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝑅)} ∪ {𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝐿)})), (𝑠 ∪ ({𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝐿)} ∪ {𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝑅)}))⟩), ⟨{ 0_s }, ∅⟩)) “ ω) \|s ∪ ((2^nd ∘ rec((𝑞 ∈ V ↦ ⦋(1^st ‘𝑞) / 𝑚⦌⦋(2^nd ‘𝑞) / 𝑠⦌⟨(𝑚 ∪ ({𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝑅)} ∪ {𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝐿)})), (𝑠 ∪ ({𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝐿)} ∪ {𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝑅)}))⟩), ⟨{ 0_s }, ∅⟩)) “ ω))) = 1_s ))
24	23	rspcev 3612	. . . . . 6 ⊢ (((∪ ((1^st ∘ rec((𝑞 ∈ V ↦ ⦋(1^st ‘𝑞) / 𝑚⦌⦋(2^nd ‘𝑞) / 𝑠⦌⟨(𝑚 ∪ ({𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝑅)} ∪ {𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝐿)})), (𝑠 ∪ ({𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝐿)} ∪ {𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝑅)}))⟩), ⟨{ 0_s }, ∅⟩)) “ ω) \|s ∪ ((2^nd ∘ rec((𝑞 ∈ V ↦ ⦋(1^st ‘𝑞) / 𝑚⦌⦋(2^nd ‘𝑞) / 𝑠⦌⟨(𝑚 ∪ ({𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝑅)} ∪ {𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝐿)})), (𝑠 ∪ ({𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝐿)} ∪ {𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝑅)}))⟩), ⟨{ 0_s }, ∅⟩)) “ ω)) ∈ No ∧ (𝑧 ·_s (∪ ((1^st ∘ rec((𝑞 ∈ V ↦ ⦋(1^st ‘𝑞) / 𝑚⦌⦋(2^nd ‘𝑞) / 𝑠⦌⟨(𝑚 ∪ ({𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝑅)} ∪ {𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝐿)})), (𝑠 ∪ ({𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝐿)} ∪ {𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝑅)}))⟩), ⟨{ 0_s }, ∅⟩)) “ ω) \|s ∪ ((2^nd ∘ rec((𝑞 ∈ V ↦ ⦋(1^st ‘𝑞) / 𝑚⦌⦋(2^nd ‘𝑞) / 𝑠⦌⟨(𝑚 ∪ ({𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝑅)} ∪ {𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝐿)})), (𝑠 ∪ ({𝑏 ∣ ∃𝑧_𝐿 ∈ {𝑢 ∈ ( L ‘𝑧) ∣ 0_s <s 𝑢}∃𝑤 ∈ 𝑚 𝑏 = (( 1_s +_s ((𝑧_𝐿 -_s 𝑧) ·_s 𝑤)) /_su 𝑧_𝐿)} ∪ {𝑏 ∣ ∃𝑧_𝑅 ∈ ( R ‘𝑧)∃𝑡 ∈ 𝑠 𝑏 = (( 1_s +_s ((𝑧_𝑅 -_s 𝑧) ·_s 𝑡)) /_su 𝑧_𝑅)}))⟩), ⟨{ 0_s }, ∅⟩)) “ ω))) = 1_s ) → ∃𝑦 ∈ No (𝑧 ·_s 𝑦) = 1_s )
25	19, 21, 24	syl2anc 585	. . . . 5 ⊢ ((𝑧 ∈ No ∧ 0_s <s 𝑧 ∧ ∀𝑥_𝑂 ∈ (( L ‘𝑧) ∪ ( R ‘𝑧))( 0_s <s 𝑥_𝑂 → ∃𝑦 ∈ No (𝑥_𝑂 ·_s 𝑦) = 1_s )) → ∃𝑦 ∈ No (𝑧 ·_s 𝑦) = 1_s )
26	25	3exp 1120	. . . 4 ⊢ (𝑧 ∈ No → ( 0_s <s 𝑧 → (∀𝑥_𝑂 ∈ (( L ‘𝑧) ∪ ( R ‘𝑧))( 0_s <s 𝑥_𝑂 → ∃𝑦 ∈ No (𝑥_𝑂 ·_s 𝑦) = 1_s ) → ∃𝑦 ∈ No (𝑧 ·_s 𝑦) = 1_s )))
27	26	com23 86	. . 3 ⊢ (𝑧 ∈ No → (∀𝑥_𝑂 ∈ (( L ‘𝑧) ∪ ( R ‘𝑧))( 0_s <s 𝑥_𝑂 → ∃𝑦 ∈ No (𝑥_𝑂 ·_s 𝑦) = 1_s ) → ( 0_s <s 𝑧 → ∃𝑦 ∈ No (𝑧 ·_s 𝑦) = 1_s )))
28	5, 10, 27	noinds 27409	. 2 ⊢ (𝐴 ∈ No → ( 0_s <s 𝐴 → ∃𝑦 ∈ No (𝐴 ·_s 𝑦) = 1_s ))
29	28	imp 408	1 ⊢ ((𝐴 ∈ No ∧ 0_s <s 𝐴) → ∃𝑦 ∈ No (𝐴 ·_s 𝑦) = 1_s )

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 397 ∧ w3a 1088 = wceq 1542 ∈ wcel 2107 {cab 2710 ∀wral 3062 ∃wrex 3071 {crab 3433 Vcvv 3475 ⦋csb 3892 ∪ cun 3945 ∅c0 4321 {csn 4627 ⟨cop 4633 ∪ cuni 4907 class class class wbr 5147 ↦ cmpt 5230 “ cima 5678 ∘ ccom 5679 ‘cfv 6540 (class class class)co 7404 ωcom 7850 1^st c1st 7968 2^nd c2nd 7969 reccrdg 8404 No csur 27123 <s cslt 27124 |s cscut 27264 0_s c0s 27303 1_s c1s 27304 L cleft 27320 R cright 27321 +_s cadds 27423 -_s csubs 27475 ·_s cmuls 27542 /_su cdivs 27615

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1798 ax-4 1812 ax-5 1914 ax-6 1972 ax-7 2012 ax-8 2109 ax-9 2117 ax-10 2138 ax-11 2155 ax-12 2172 ax-ext 2704 ax-rep 5284 ax-sep 5298 ax-nul 5305 ax-pow 5362 ax-pr 5426 ax-un 7720 ax-dc 10437

This theorem depends on definitions: df-bi 206 df-an 398 df-or 847 df-3or 1089 df-3an 1090 df-tru 1545 df-fal 1555 df-ex 1783 df-nf 1787 df-sb 2069 df-mo 2535 df-eu 2564 df-clab 2711 df-cleq 2725 df-clel 2811 df-nfc 2886 df-ne 2942 df-ral 3063 df-rex 3072 df-rmo 3377 df-reu 3378 df-rab 3434 df-v 3477 df-sbc 3777 df-csb 3893 df-dif 3950 df-un 3952 df-in 3954 df-ss 3964 df-pss 3966 df-nul 4322 df-if 4528 df-pw 4603 df-sn 4628 df-pr 4630 df-tp 4632 df-op 4634 df-ot 4636 df-uni 4908 df-int 4950 df-iun 4998 df-br 5148 df-opab 5210 df-mpt 5231 df-tr 5265 df-id 5573 df-eprel 5579 df-po 5587 df-so 5588 df-fr 5630 df-se 5631 df-we 5632 df-xp 5681 df-rel 5682 df-cnv 5683 df-co 5684 df-dm 5685 df-rn 5686 df-res 5687 df-ima 5688 df-pred 6297 df-ord 6364 df-on 6365 df-lim 6366 df-suc 6367 df-iota 6492 df-fun 6542 df-fn 6543 df-f 6544 df-f1 6545 df-fo 6546 df-f1o 6547 df-fv 6548 df-riota 7360 df-ov 7407 df-oprab 7408 df-mpo 7409 df-om 7851 df-1st 7970 df-2nd 7971 df-frecs 8261 df-wrecs 8292 df-recs 8366 df-rdg 8405 df-1o 8461 df-2o 8462 df-oadd 8465 df-nadd 8661 df-no 27126 df-slt 27127 df-bday 27128 df-sle 27228 df-sslt 27263 df-scut 27265 df-0s 27305 df-1s 27306 df-made 27322 df-old 27323 df-left 27325 df-right 27326 df-norec 27402 df-norec2 27413 df-adds 27424 df-negs 27476 df-subs 27477 df-muls 27543 df-divs 27616

This theorem is referenced by: recsex 27645

W3C validator