Theorem eulerpartlemgvv 34675

Description: Lemma for eulerpart 34681: value of the function 𝐺 evaluated. (Contributed by Thierry Arnoux, 10-Aug-2018.)

Hypotheses

Ref	Expression
eulerpart.p	⊢ 𝑃 = {𝑓 ∈ (ℕ0 ↑m ℕ) ∣ ((◡𝑓 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑓‘𝑘) · 𝑘) = 𝑁)}
eulerpart.o	⊢ 𝑂 = {𝑔 ∈ 𝑃 ∣ ∀𝑛 ∈ (◡𝑔 “ ℕ) ¬ 2 ∥ 𝑛}
eulerpart.d	⊢ 𝐷 = {𝑔 ∈ 𝑃 ∣ ∀𝑛 ∈ ℕ (𝑔‘𝑛) ≤ 1}
eulerpart.j	⊢ 𝐽 = {𝑧 ∈ ℕ ∣ ¬ 2 ∥ 𝑧}
eulerpart.f	⊢ 𝐹 = (𝑥 ∈ 𝐽, 𝑦 ∈ ℕ0 ↦ ((2↑𝑦) · 𝑥))
eulerpart.h	⊢ 𝐻 = {𝑟 ∈ ((𝒫 ℕ0 ∩ Fin) ↑m 𝐽) ∣ (𝑟 supp ∅) ∈ Fin}
eulerpart.m	⊢ 𝑀 = (𝑟 ∈ 𝐻 ↦ {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐽 ∧ 𝑦 ∈ (𝑟‘𝑥))})
eulerpart.r	⊢ 𝑅 = {𝑓 ∣ (◡𝑓 “ ℕ) ∈ Fin}
eulerpart.t	⊢ 𝑇 = {𝑓 ∈ (ℕ0 ↑m ℕ) ∣ (◡𝑓 “ ℕ) ⊆ 𝐽}
eulerpart.g	⊢ 𝐺 = (𝑜 ∈ (𝑇 ∩ 𝑅) ↦ ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽))))))

Assertion

Ref	Expression
eulerpartlemgvv	⊢ ((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) → ((𝐺‘𝐴)‘𝐵) = if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = 𝐵, 1, 0))

Distinct variable groups:   𝑓,𝑘,𝑛,𝑡,𝑥,𝑦,𝑧   𝑓,𝑜,𝑟,𝐴   𝑜,𝐹   𝐻,𝑟   𝑓,𝐽   𝑛,𝑜,𝑟,𝐽,𝑥,𝑦   𝑜,𝑀   𝑓,𝑁   𝑔,𝑛,𝑃   𝑅,𝑜   𝑇,𝑜   𝑡,𝐴,𝑛,𝑥,𝑦   𝐵,𝑛,𝑡,𝑥,𝑦   𝑛,𝐹,𝑡,𝑥,𝑦   𝑡,𝐽   𝑛,𝑀,𝑡,𝑥,𝑦   𝑅,𝑛   𝑡,𝑟,𝑅,𝑥,𝑦   𝑇,𝑛,𝑟,𝑡,𝑥,𝑦

Allowed substitution hints:   𝐴(𝑧,𝑔,𝑘)   𝐵(𝑧,𝑓,𝑔,𝑘,𝑜,𝑟)   𝐷(𝑥,𝑦,𝑧,𝑡,𝑓,𝑔,𝑘,𝑛,𝑜,𝑟)   𝑃(𝑥,𝑦,𝑧,𝑡,𝑓,𝑘,𝑜,𝑟)   𝑅(𝑧,𝑓,𝑔,𝑘)   𝑇(𝑧,𝑓,𝑔,𝑘)   𝐹(𝑧,𝑓,𝑔,𝑘,𝑟)   𝐺(𝑥,𝑦,𝑧,𝑡,𝑓,𝑔,𝑘,𝑛,𝑜,𝑟)   𝐻(𝑥,𝑦,𝑧,𝑡,𝑓,𝑔,𝑘,𝑛,𝑜)   𝐽(𝑧,𝑔,𝑘)   𝑀(𝑧,𝑓,𝑔,𝑘,𝑟)   𝑁(𝑥,𝑦,𝑧,𝑡,𝑔,𝑘,𝑛,𝑜,𝑟)   𝑂(𝑥,𝑦,𝑧,𝑡,𝑓,𝑔,𝑘,𝑛,𝑜,𝑟)

Proof of Theorem eulerpartlemgvv

Dummy variable 𝑤 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		eulerpart.p	. . . . 5 ⊢ 𝑃 = {𝑓 ∈ (ℕ0 ↑m ℕ) ∣ ((◡𝑓 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑓‘𝑘) · 𝑘) = 𝑁)}
2		eulerpart.o	. . . . 5 ⊢ 𝑂 = {𝑔 ∈ 𝑃 ∣ ∀𝑛 ∈ (◡𝑔 “ ℕ) ¬ 2 ∥ 𝑛}
3		eulerpart.d	. . . . 5 ⊢ 𝐷 = {𝑔 ∈ 𝑃 ∣ ∀𝑛 ∈ ℕ (𝑔‘𝑛) ≤ 1}
4		eulerpart.j	. . . . 5 ⊢ 𝐽 = {𝑧 ∈ ℕ ∣ ¬ 2 ∥ 𝑧}
5		eulerpart.f	. . . . 5 ⊢ 𝐹 = (𝑥 ∈ 𝐽, 𝑦 ∈ ℕ0 ↦ ((2↑𝑦) · 𝑥))
6		eulerpart.h	. . . . 5 ⊢ 𝐻 = {𝑟 ∈ ((𝒫 ℕ0 ∩ Fin) ↑m 𝐽) ∣ (𝑟 supp ∅) ∈ Fin}
7		eulerpart.m	. . . . 5 ⊢ 𝑀 = (𝑟 ∈ 𝐻 ↦ {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐽 ∧ 𝑦 ∈ (𝑟‘𝑥))})
8		eulerpart.r	. . . . 5 ⊢ 𝑅 = {𝑓 ∣ (◡𝑓 “ ℕ) ∈ Fin}
9		eulerpart.t	. . . . 5 ⊢ 𝑇 = {𝑓 ∈ (ℕ0 ↑m ℕ) ∣ (◡𝑓 “ ℕ) ⊆ 𝐽}
10		eulerpart.g	. . . . 5 ⊢ 𝐺 = (𝑜 ∈ (𝑇 ∩ 𝑅) ↦ ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜 ↾ 𝐽))))))
11	1, 2, 3, 4, 5, 6, 7, 8, 9, 10	eulerpartlemgv 34672	. . . 4 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → (𝐺‘𝐴) = ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽))))))
12	11	fveq1d 6869	. . 3 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → ((𝐺‘𝐴)‘𝐵) = (((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))))‘𝐵))
13	12	adantr 484	. 2 ⊢ ((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) → ((𝐺‘𝐴)‘𝐵) = (((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))))‘𝐵))
14		nnex 12226	. . 3 ⊢ ℕ ∈ V
15		imassrn 6060	. . . 4 ⊢ (𝐹 “ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))) ⊆ ran 𝐹
16	4, 5	oddpwdc 34653	. . . . 5 ⊢ 𝐹:(𝐽 × ℕ0)–1-1-onto→ℕ
17		f1of 6806	. . . . 5 ⊢ (𝐹:(𝐽 × ℕ0)–1-1-onto→ℕ → 𝐹:(𝐽 × ℕ0)⟶ℕ)
18		frn 6699	. . . . 5 ⊢ (𝐹:(𝐽 × ℕ0)⟶ℕ → ran 𝐹 ⊆ ℕ)
19	16, 17, 18	mp2b 10	. . . 4 ⊢ ran 𝐹 ⊆ ℕ
20	15, 19	sstri 3946	. . 3 ⊢ (𝐹 “ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))) ⊆ ℕ
21		simpr 488	. . 3 ⊢ ((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) → 𝐵 ∈ ℕ)
22		indfval 12212	. . 3 ⊢ ((ℕ ∈ V ∧ (𝐹 “ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))) ⊆ ℕ ∧ 𝐵 ∈ ℕ) → (((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))))‘𝐵) = if(𝐵 ∈ (𝐹 “ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))), 1, 0))
23	14, 20, 21, 22	mp3an12i 1487	. 2 ⊢ ((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) → (((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))))‘𝐵) = if(𝐵 ∈ (𝐹 “ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))), 1, 0))
24		ffn 6691	. . . . . 6 ⊢ (𝐹:(𝐽 × ℕ0)⟶ℕ → 𝐹 Fn (𝐽 × ℕ0))
25	16, 17, 24	mp2b 10	. . . . 5 ⊢ 𝐹 Fn (𝐽 × ℕ0)
26	1, 2, 3, 4, 5, 6, 7, 8, 9, 10	eulerpartlemmf 34674	. . . . . . . . 9 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → (bits ∘ (𝐴 ↾ 𝐽)) ∈ 𝐻)
27	1, 2, 3, 4, 5, 6, 7	eulerpartlem1 34666	. . . . . . . . . . 11 ⊢ 𝑀:𝐻–1-1-onto→(𝒫 (𝐽 × ℕ0) ∩ Fin)
28		f1of 6806	. . . . . . . . . . 11 ⊢ (𝑀:𝐻–1-1-onto→(𝒫 (𝐽 × ℕ0) ∩ Fin) → 𝑀:𝐻⟶(𝒫 (𝐽 × ℕ0) ∩ Fin))
29	27, 28	ax-mp 5	. . . . . . . . . 10 ⊢ 𝑀:𝐻⟶(𝒫 (𝐽 × ℕ0) ∩ Fin)
30	29	ffvelcdmi 7064	. . . . . . . . 9 ⊢ ((bits ∘ (𝐴 ↾ 𝐽)) ∈ 𝐻 → (𝑀‘(bits ∘ (𝐴 ↾ 𝐽))) ∈ (𝒫 (𝐽 × ℕ0) ∩ Fin))
31	26, 30	syl 17	. . . . . . . 8 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → (𝑀‘(bits ∘ (𝐴 ↾ 𝐽))) ∈ (𝒫 (𝐽 × ℕ0) ∩ Fin))
32	31	elin1d 4157	. . . . . . 7 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → (𝑀‘(bits ∘ (𝐴 ↾ 𝐽))) ∈ 𝒫 (𝐽 × ℕ0))
33	32	adantr 484	. . . . . 6 ⊢ ((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) → (𝑀‘(bits ∘ (𝐴 ↾ 𝐽))) ∈ 𝒫 (𝐽 × ℕ0))
34	33	elpwid 4565	. . . . 5 ⊢ ((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) → (𝑀‘(bits ∘ (𝐴 ↾ 𝐽))) ⊆ (𝐽 × ℕ0))
35		fvelimab 6939	. . . . 5 ⊢ ((𝐹 Fn (𝐽 × ℕ0) ∧ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽))) ⊆ (𝐽 × ℕ0)) → (𝐵 ∈ (𝐹 “ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))) ↔ ∃𝑤 ∈ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))(𝐹‘𝑤) = 𝐵))
36	25, 34, 35	sylancr 596	. . . 4 ⊢ ((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) → (𝐵 ∈ (𝐹 “ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))) ↔ ∃𝑤 ∈ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))(𝐹‘𝑤) = 𝐵))
37	4	ssrab3 4036	. . . . . . . . 9 ⊢ 𝐽 ⊆ ℕ
38		fveq1 6866	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑟 = (bits ∘ (𝐴 ↾ 𝐽)) → (𝑟‘𝑥) = ((bits ∘ (𝐴 ↾ 𝐽))‘𝑥))
39	38	eleq2d 2849	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑟 = (bits ∘ (𝐴 ↾ 𝐽)) → (𝑦 ∈ (𝑟‘𝑥) ↔ 𝑦 ∈ ((bits ∘ (𝐴 ↾ 𝐽))‘𝑥)))
40	39	anbi2d 639	. . . . . . . . . . . . . . . . 17 ⊢ (𝑟 = (bits ∘ (𝐴 ↾ 𝐽)) → ((𝑥 ∈ 𝐽 ∧ 𝑦 ∈ (𝑟‘𝑥)) ↔ (𝑥 ∈ 𝐽 ∧ 𝑦 ∈ ((bits ∘ (𝐴 ↾ 𝐽))‘𝑥))))
41	40	opabbidv 5167	. . . . . . . . . . . . . . . 16 ⊢ (𝑟 = (bits ∘ (𝐴 ↾ 𝐽)) → {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐽 ∧ 𝑦 ∈ (𝑟‘𝑥))} = {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐽 ∧ 𝑦 ∈ ((bits ∘ (𝐴 ↾ 𝐽))‘𝑥))})
42	14, 37	ssexi 5279	. . . . . . . . . . . . . . . . . 18 ⊢ 𝐽 ∈ V
43		abid2 2900	. . . . . . . . . . . . . . . . . . . 20 ⊢ {𝑦 ∣ 𝑦 ∈ ((bits ∘ (𝐴 ↾ 𝐽))‘𝑥)} = ((bits ∘ (𝐴 ↾ 𝐽))‘𝑥)
44	43	fvexi 6881	. . . . . . . . . . . . . . . . . . 19 ⊢ {𝑦 ∣ 𝑦 ∈ ((bits ∘ (𝐴 ↾ 𝐽))‘𝑥)} ∈ V
45	44	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 ∈ 𝐽 → {𝑦 ∣ 𝑦 ∈ ((bits ∘ (𝐴 ↾ 𝐽))‘𝑥)} ∈ V)
46	42, 45	opabex3 7948	. . . . . . . . . . . . . . . . 17 ⊢ {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐽 ∧ 𝑦 ∈ ((bits ∘ (𝐴 ↾ 𝐽))‘𝑥))} ∈ V
47	46	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐽 ∧ 𝑦 ∈ ((bits ∘ (𝐴 ↾ 𝐽))‘𝑥))} ∈ V)
48	7, 41, 26, 47	fvmptd3 6999	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → (𝑀‘(bits ∘ (𝐴 ↾ 𝐽))) = {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐽 ∧ 𝑦 ∈ ((bits ∘ (𝐴 ↾ 𝐽))‘𝑥))})
49		simpl 486	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = 𝑡 ∧ 𝑦 = 𝑛) → 𝑥 = 𝑡)
50	49	eleq1d 2848	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 = 𝑡 ∧ 𝑦 = 𝑛) → (𝑥 ∈ 𝐽 ↔ 𝑡 ∈ 𝐽))
51		simpr 488	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = 𝑡 ∧ 𝑦 = 𝑛) → 𝑦 = 𝑛)
52	49	fveq2d 6871	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = 𝑡 ∧ 𝑦 = 𝑛) → ((bits ∘ (𝐴 ↾ 𝐽))‘𝑥) = ((bits ∘ (𝐴 ↾ 𝐽))‘𝑡))
53	51, 52	eleq12d 2857	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 = 𝑡 ∧ 𝑦 = 𝑛) → (𝑦 ∈ ((bits ∘ (𝐴 ↾ 𝐽))‘𝑥) ↔ 𝑛 ∈ ((bits ∘ (𝐴 ↾ 𝐽))‘𝑡)))
54	50, 53	anbi12d 641	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 = 𝑡 ∧ 𝑦 = 𝑛) → ((𝑥 ∈ 𝐽 ∧ 𝑦 ∈ ((bits ∘ (𝐴 ↾ 𝐽))‘𝑥)) ↔ (𝑡 ∈ 𝐽 ∧ 𝑛 ∈ ((bits ∘ (𝐴 ↾ 𝐽))‘𝑡))))
55	54	cbvopabv 5174	. . . . . . . . . . . . . . 15 ⊢ {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐽 ∧ 𝑦 ∈ ((bits ∘ (𝐴 ↾ 𝐽))‘𝑥))} = {⟨𝑡, 𝑛⟩ ∣ (𝑡 ∈ 𝐽 ∧ 𝑛 ∈ ((bits ∘ (𝐴 ↾ 𝐽))‘𝑡))}
56	48, 55	eqtrdi 2814	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → (𝑀‘(bits ∘ (𝐴 ↾ 𝐽))) = {⟨𝑡, 𝑛⟩ ∣ (𝑡 ∈ 𝐽 ∧ 𝑛 ∈ ((bits ∘ (𝐴 ↾ 𝐽))‘𝑡))})
57	56	eleq2d 2849	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → (𝑤 ∈ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽))) ↔ 𝑤 ∈ {⟨𝑡, 𝑛⟩ ∣ (𝑡 ∈ 𝐽 ∧ 𝑛 ∈ ((bits ∘ (𝐴 ↾ 𝐽))‘𝑡))}))
58	1, 2, 3, 4, 5, 6, 7, 8, 9	eulerpartlemt0 34668	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) ↔ (𝐴 ∈ (ℕ0 ↑m ℕ) ∧ (◡𝐴 “ ℕ) ∈ Fin ∧ (◡𝐴 “ ℕ) ⊆ 𝐽))
59	58	simp1bi 1159	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → 𝐴 ∈ (ℕ0 ↑m ℕ))
60		nn0ex 12497	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ℕ0 ∈ V
61	60, 14	elmap 8853	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝐴 ∈ (ℕ0 ↑m ℕ) ↔ 𝐴:ℕ⟶ℕ0)
62	59, 61	sylib 220	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → 𝐴:ℕ⟶ℕ0)
63		ffun 6694	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝐴:ℕ⟶ℕ0 → Fun 𝐴)
64		funres 6563	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (Fun 𝐴 → Fun (𝐴 ↾ 𝐽))
65	62, 63, 64	3syl 18	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → Fun (𝐴 ↾ 𝐽))
66		fssres 6730	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝐴:ℕ⟶ℕ0 ∧ 𝐽 ⊆ ℕ) → (𝐴 ↾ 𝐽):𝐽⟶ℕ0)
67	62, 37, 66	sylancl 595	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → (𝐴 ↾ 𝐽):𝐽⟶ℕ0)
68		fdm 6701	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝐴 ↾ 𝐽):𝐽⟶ℕ0 → dom (𝐴 ↾ 𝐽) = 𝐽)
69	68	eleq2d 2849	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝐴 ↾ 𝐽):𝐽⟶ℕ0 → (𝑡 ∈ dom (𝐴 ↾ 𝐽) ↔ 𝑡 ∈ 𝐽))
70	67, 69	syl 17	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → (𝑡 ∈ dom (𝐴 ↾ 𝐽) ↔ 𝑡 ∈ 𝐽))
71	70	biimpar 481	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝑡 ∈ 𝐽) → 𝑡 ∈ dom (𝐴 ↾ 𝐽))
72		fvco 6965	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((Fun (𝐴 ↾ 𝐽) ∧ 𝑡 ∈ dom (𝐴 ↾ 𝐽)) → ((bits ∘ (𝐴 ↾ 𝐽))‘𝑡) = (bits‘((𝐴 ↾ 𝐽)‘𝑡)))
73	65, 71, 72	syl2an2r 695	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝑡 ∈ 𝐽) → ((bits ∘ (𝐴 ↾ 𝐽))‘𝑡) = (bits‘((𝐴 ↾ 𝐽)‘𝑡)))
74		fvres 6886	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑡 ∈ 𝐽 → ((𝐴 ↾ 𝐽)‘𝑡) = (𝐴‘𝑡))
75	74	fveq2d 6871	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑡 ∈ 𝐽 → (bits‘((𝐴 ↾ 𝐽)‘𝑡)) = (bits‘(𝐴‘𝑡)))
76	75	adantl 485	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝑡 ∈ 𝐽) → (bits‘((𝐴 ↾ 𝐽)‘𝑡)) = (bits‘(𝐴‘𝑡)))
77	73, 76	eqtrd 2798	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝑡 ∈ 𝐽) → ((bits ∘ (𝐴 ↾ 𝐽))‘𝑡) = (bits‘(𝐴‘𝑡)))
78	77	eleq2d 2849	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝑡 ∈ 𝐽) → (𝑛 ∈ ((bits ∘ (𝐴 ↾ 𝐽))‘𝑡) ↔ 𝑛 ∈ (bits‘(𝐴‘𝑡))))
79	78	pm5.32da 587	. . . . . . . . . . . . . . . . 17 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → ((𝑡 ∈ 𝐽 ∧ 𝑛 ∈ ((bits ∘ (𝐴 ↾ 𝐽))‘𝑡)) ↔ (𝑡 ∈ 𝐽 ∧ 𝑛 ∈ (bits‘(𝐴‘𝑡)))))
80	79	opabbidv 5167	. . . . . . . . . . . . . . . 16 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → {⟨𝑡, 𝑛⟩ ∣ (𝑡 ∈ 𝐽 ∧ 𝑛 ∈ ((bits ∘ (𝐴 ↾ 𝐽))‘𝑡))} = {⟨𝑡, 𝑛⟩ ∣ (𝑡 ∈ 𝐽 ∧ 𝑛 ∈ (bits‘(𝐴‘𝑡)))})
81	80	eleq2d 2849	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → (𝑤 ∈ {⟨𝑡, 𝑛⟩ ∣ (𝑡 ∈ 𝐽 ∧ 𝑛 ∈ ((bits ∘ (𝐴 ↾ 𝐽))‘𝑡))} ↔ 𝑤 ∈ {⟨𝑡, 𝑛⟩ ∣ (𝑡 ∈ 𝐽 ∧ 𝑛 ∈ (bits‘(𝐴‘𝑡)))}))
82		elopab 5498	. . . . . . . . . . . . . . 15 ⊢ (𝑤 ∈ {⟨𝑡, 𝑛⟩ ∣ (𝑡 ∈ 𝐽 ∧ 𝑛 ∈ (bits‘(𝐴‘𝑡)))} ↔ ∃𝑡∃𝑛(𝑤 = ⟨𝑡, 𝑛⟩ ∧ (𝑡 ∈ 𝐽 ∧ 𝑛 ∈ (bits‘(𝐴‘𝑡)))))
83	81, 82	bitrdi 289	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → (𝑤 ∈ {⟨𝑡, 𝑛⟩ ∣ (𝑡 ∈ 𝐽 ∧ 𝑛 ∈ ((bits ∘ (𝐴 ↾ 𝐽))‘𝑡))} ↔ ∃𝑡∃𝑛(𝑤 = ⟨𝑡, 𝑛⟩ ∧ (𝑡 ∈ 𝐽 ∧ 𝑛 ∈ (bits‘(𝐴‘𝑡))))))
84		ancom 464	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑤 = ⟨𝑡, 𝑛⟩ ∧ (𝑡 ∈ 𝐽 ∧ 𝑛 ∈ (bits‘(𝐴‘𝑡)))) ↔ ((𝑡 ∈ 𝐽 ∧ 𝑛 ∈ (bits‘(𝐴‘𝑡))) ∧ 𝑤 = ⟨𝑡, 𝑛⟩))
85		anass 472	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑡 ∈ 𝐽 ∧ 𝑛 ∈ (bits‘(𝐴‘𝑡))) ∧ 𝑤 = ⟨𝑡, 𝑛⟩) ↔ (𝑡 ∈ 𝐽 ∧ (𝑛 ∈ (bits‘(𝐴‘𝑡)) ∧ 𝑤 = ⟨𝑡, 𝑛⟩)))
86	84, 85	bitri 277	. . . . . . . . . . . . . . . 16 ⊢ ((𝑤 = ⟨𝑡, 𝑛⟩ ∧ (𝑡 ∈ 𝐽 ∧ 𝑛 ∈ (bits‘(𝐴‘𝑡)))) ↔ (𝑡 ∈ 𝐽 ∧ (𝑛 ∈ (bits‘(𝐴‘𝑡)) ∧ 𝑤 = ⟨𝑡, 𝑛⟩)))
87	86	2exbii 1870	. . . . . . . . . . . . . . 15 ⊢ (∃𝑡∃𝑛(𝑤 = ⟨𝑡, 𝑛⟩ ∧ (𝑡 ∈ 𝐽 ∧ 𝑛 ∈ (bits‘(𝐴‘𝑡)))) ↔ ∃𝑡∃𝑛(𝑡 ∈ 𝐽 ∧ (𝑛 ∈ (bits‘(𝐴‘𝑡)) ∧ 𝑤 = ⟨𝑡, 𝑛⟩)))
88		df-rex 3088	. . . . . . . . . . . . . . . . . 18 ⊢ (∃𝑛 ∈ (bits‘(𝐴‘𝑡))𝑤 = ⟨𝑡, 𝑛⟩ ↔ ∃𝑛(𝑛 ∈ (bits‘(𝐴‘𝑡)) ∧ 𝑤 = ⟨𝑡, 𝑛⟩))
89	88	anbi2i 632	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑡 ∈ 𝐽 ∧ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))𝑤 = ⟨𝑡, 𝑛⟩) ↔ (𝑡 ∈ 𝐽 ∧ ∃𝑛(𝑛 ∈ (bits‘(𝐴‘𝑡)) ∧ 𝑤 = ⟨𝑡, 𝑛⟩)))
90	89	exbii 1869	. . . . . . . . . . . . . . . 16 ⊢ (∃𝑡(𝑡 ∈ 𝐽 ∧ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))𝑤 = ⟨𝑡, 𝑛⟩) ↔ ∃𝑡(𝑡 ∈ 𝐽 ∧ ∃𝑛(𝑛 ∈ (bits‘(𝐴‘𝑡)) ∧ 𝑤 = ⟨𝑡, 𝑛⟩)))
91		df-rex 3088	. . . . . . . . . . . . . . . 16 ⊢ (∃𝑡 ∈ 𝐽 ∃𝑛 ∈ (bits‘(𝐴‘𝑡))𝑤 = ⟨𝑡, 𝑛⟩ ↔ ∃𝑡(𝑡 ∈ 𝐽 ∧ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))𝑤 = ⟨𝑡, 𝑛⟩))
92		exdistr 1975	. . . . . . . . . . . . . . . 16 ⊢ (∃𝑡∃𝑛(𝑡 ∈ 𝐽 ∧ (𝑛 ∈ (bits‘(𝐴‘𝑡)) ∧ 𝑤 = ⟨𝑡, 𝑛⟩)) ↔ ∃𝑡(𝑡 ∈ 𝐽 ∧ ∃𝑛(𝑛 ∈ (bits‘(𝐴‘𝑡)) ∧ 𝑤 = ⟨𝑡, 𝑛⟩)))
93	90, 91, 92	3bitr4i 305	. . . . . . . . . . . . . . 15 ⊢ (∃𝑡 ∈ 𝐽 ∃𝑛 ∈ (bits‘(𝐴‘𝑡))𝑤 = ⟨𝑡, 𝑛⟩ ↔ ∃𝑡∃𝑛(𝑡 ∈ 𝐽 ∧ (𝑛 ∈ (bits‘(𝐴‘𝑡)) ∧ 𝑤 = ⟨𝑡, 𝑛⟩)))
94	87, 93	bitr4i 280	. . . . . . . . . . . . . 14 ⊢ (∃𝑡∃𝑛(𝑤 = ⟨𝑡, 𝑛⟩ ∧ (𝑡 ∈ 𝐽 ∧ 𝑛 ∈ (bits‘(𝐴‘𝑡)))) ↔ ∃𝑡 ∈ 𝐽 ∃𝑛 ∈ (bits‘(𝐴‘𝑡))𝑤 = ⟨𝑡, 𝑛⟩)
95	83, 94	bitrdi 289	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → (𝑤 ∈ {⟨𝑡, 𝑛⟩ ∣ (𝑡 ∈ 𝐽 ∧ 𝑛 ∈ ((bits ∘ (𝐴 ↾ 𝐽))‘𝑡))} ↔ ∃𝑡 ∈ 𝐽 ∃𝑛 ∈ (bits‘(𝐴‘𝑡))𝑤 = ⟨𝑡, 𝑛⟩))
96	57, 95	bitrd 281	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → (𝑤 ∈ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽))) ↔ ∃𝑡 ∈ 𝐽 ∃𝑛 ∈ (bits‘(𝐴‘𝑡))𝑤 = ⟨𝑡, 𝑛⟩))
97	96	biimpa 480	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝑤 ∈ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))) → ∃𝑡 ∈ 𝐽 ∃𝑛 ∈ (bits‘(𝐴‘𝑡))𝑤 = ⟨𝑡, 𝑛⟩)
98	97	adantlr 725	. . . . . . . . . 10 ⊢ (((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) ∧ 𝑤 ∈ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))) → ∃𝑡 ∈ 𝐽 ∃𝑛 ∈ (bits‘(𝐴‘𝑡))𝑤 = ⟨𝑡, 𝑛⟩)
99		fveq2 6867	. . . . . . . . . . . . . 14 ⊢ (𝑤 = ⟨𝑡, 𝑛⟩ → (𝐹‘𝑤) = (𝐹‘⟨𝑡, 𝑛⟩))
100	99	adantl 485	. . . . . . . . . . . . 13 ⊢ (((((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) ∧ 𝑤 ∈ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))) ∧ (𝑡 ∈ 𝐽 ∧ 𝑛 ∈ (bits‘(𝐴‘𝑡)))) ∧ 𝑤 = ⟨𝑡, 𝑛⟩) → (𝐹‘𝑤) = (𝐹‘⟨𝑡, 𝑛⟩))
101		bitsss 16470	. . . . . . . . . . . . . . . . 17 ⊢ (bits‘(𝐴‘𝑡)) ⊆ ℕ0
102	101	sseli 3933	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ (bits‘(𝐴‘𝑡)) → 𝑛 ∈ ℕ0)
103	102	anim2i 626	. . . . . . . . . . . . . . 15 ⊢ ((𝑡 ∈ 𝐽 ∧ 𝑛 ∈ (bits‘(𝐴‘𝑡))) → (𝑡 ∈ 𝐽 ∧ 𝑛 ∈ ℕ0))
104	103	ad2antlr 737	. . . . . . . . . . . . . 14 ⊢ (((((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) ∧ 𝑤 ∈ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))) ∧ (𝑡 ∈ 𝐽 ∧ 𝑛 ∈ (bits‘(𝐴‘𝑡)))) ∧ 𝑤 = ⟨𝑡, 𝑛⟩) → (𝑡 ∈ 𝐽 ∧ 𝑛 ∈ ℕ0))
105		opelxp 5684	. . . . . . . . . . . . . . 15 ⊢ (⟨𝑡, 𝑛⟩ ∈ (𝐽 × ℕ0) ↔ (𝑡 ∈ 𝐽 ∧ 𝑛 ∈ ℕ0))
106	4, 5	oddpwdcv 34654	. . . . . . . . . . . . . . . 16 ⊢ (⟨𝑡, 𝑛⟩ ∈ (𝐽 × ℕ0) → (𝐹‘⟨𝑡, 𝑛⟩) = ((2↑(2nd ‘⟨𝑡, 𝑛⟩)) · (1st ‘⟨𝑡, 𝑛⟩)))
107		vex 3459	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝑡 ∈ V
108		vex 3459	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝑛 ∈ V
109	107, 108	op2nd 7979	. . . . . . . . . . . . . . . . . 18 ⊢ (2nd ‘⟨𝑡, 𝑛⟩) = 𝑛
110	109	oveq2i 7407	. . . . . . . . . . . . . . . . 17 ⊢ (2↑(2nd ‘⟨𝑡, 𝑛⟩)) = (2↑𝑛)
111	107, 108	op1st 7978	. . . . . . . . . . . . . . . . 17 ⊢ (1st ‘⟨𝑡, 𝑛⟩) = 𝑡
112	110, 111	oveq12i 7408	. . . . . . . . . . . . . . . 16 ⊢ ((2↑(2nd ‘⟨𝑡, 𝑛⟩)) · (1st ‘⟨𝑡, 𝑛⟩)) = ((2↑𝑛) · 𝑡)
113	106, 112	eqtrdi 2814	. . . . . . . . . . . . . . 15 ⊢ (⟨𝑡, 𝑛⟩ ∈ (𝐽 × ℕ0) → (𝐹‘⟨𝑡, 𝑛⟩) = ((2↑𝑛) · 𝑡))
114	105, 113	sylbir 237	. . . . . . . . . . . . . 14 ⊢ ((𝑡 ∈ 𝐽 ∧ 𝑛 ∈ ℕ0) → (𝐹‘⟨𝑡, 𝑛⟩) = ((2↑𝑛) · 𝑡))
115	104, 114	syl 17	. . . . . . . . . . . . 13 ⊢ (((((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) ∧ 𝑤 ∈ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))) ∧ (𝑡 ∈ 𝐽 ∧ 𝑛 ∈ (bits‘(𝐴‘𝑡)))) ∧ 𝑤 = ⟨𝑡, 𝑛⟩) → (𝐹‘⟨𝑡, 𝑛⟩) = ((2↑𝑛) · 𝑡))
116	100, 115	eqtr2d 2799	. . . . . . . . . . . 12 ⊢ (((((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) ∧ 𝑤 ∈ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))) ∧ (𝑡 ∈ 𝐽 ∧ 𝑛 ∈ (bits‘(𝐴‘𝑡)))) ∧ 𝑤 = ⟨𝑡, 𝑛⟩) → ((2↑𝑛) · 𝑡) = (𝐹‘𝑤))
117	116	ex 416	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) ∧ 𝑤 ∈ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))) ∧ (𝑡 ∈ 𝐽 ∧ 𝑛 ∈ (bits‘(𝐴‘𝑡)))) → (𝑤 = ⟨𝑡, 𝑛⟩ → ((2↑𝑛) · 𝑡) = (𝐹‘𝑤)))
118	117	reximdvva 3211	. . . . . . . . . 10 ⊢ (((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) ∧ 𝑤 ∈ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))) → (∃𝑡 ∈ 𝐽 ∃𝑛 ∈ (bits‘(𝐴‘𝑡))𝑤 = ⟨𝑡, 𝑛⟩ → ∃𝑡 ∈ 𝐽 ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = (𝐹‘𝑤)))
119	98, 118	mpd 15	. . . . . . . . 9 ⊢ (((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) ∧ 𝑤 ∈ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))) → ∃𝑡 ∈ 𝐽 ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = (𝐹‘𝑤))
120		ssrexv 4007	. . . . . . . . 9 ⊢ (𝐽 ⊆ ℕ → (∃𝑡 ∈ 𝐽 ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = (𝐹‘𝑤) → ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = (𝐹‘𝑤)))
121	37, 119, 120	mpsyl 68	. . . . . . . 8 ⊢ (((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) ∧ 𝑤 ∈ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))) → ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = (𝐹‘𝑤))
122	121	adantr 484	. . . . . . 7 ⊢ ((((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) ∧ 𝑤 ∈ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))) ∧ (𝐹‘𝑤) = 𝐵) → ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = (𝐹‘𝑤))
123		eqeq2 2775	. . . . . . . . . 10 ⊢ ((𝐹‘𝑤) = 𝐵 → (((2↑𝑛) · 𝑡) = (𝐹‘𝑤) ↔ ((2↑𝑛) · 𝑡) = 𝐵))
124	123	rexbidv 3187	. . . . . . . . 9 ⊢ ((𝐹‘𝑤) = 𝐵 → (∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = (𝐹‘𝑤) ↔ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = 𝐵))
125	124	adantl 485	. . . . . . . 8 ⊢ ((((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) ∧ 𝑤 ∈ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))) ∧ (𝐹‘𝑤) = 𝐵) → (∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = (𝐹‘𝑤) ↔ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = 𝐵))
126	125	rexbidv 3187	. . . . . . 7 ⊢ ((((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) ∧ 𝑤 ∈ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))) ∧ (𝐹‘𝑤) = 𝐵) → (∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = (𝐹‘𝑤) ↔ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = 𝐵))
127	122, 126	mpbid 234	. . . . . 6 ⊢ ((((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) ∧ 𝑤 ∈ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))) ∧ (𝐹‘𝑤) = 𝐵) → ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = 𝐵)
128	127	r19.29an 3167	. . . . 5 ⊢ (((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) ∧ ∃𝑤 ∈ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))(𝐹‘𝑤) = 𝐵) → ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = 𝐵)
129		simp-5l 794	. . . . . . . 8 ⊢ ((((((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) ∧ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = 𝐵) ∧ 𝑥 ∈ 𝐽) ∧ 𝑦 ∈ (bits‘(𝐴‘𝑥))) ∧ ((2↑𝑦) · 𝑥) = 𝐵) → 𝐴 ∈ (𝑇 ∩ 𝑅))
130		simpllr 785	. . . . . . . 8 ⊢ ((((((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) ∧ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = 𝐵) ∧ 𝑥 ∈ 𝐽) ∧ 𝑦 ∈ (bits‘(𝐴‘𝑥))) ∧ ((2↑𝑦) · 𝑥) = 𝐵) → 𝑥 ∈ 𝐽)
131		simplr 778	. . . . . . . . 9 ⊢ ((((((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) ∧ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = 𝐵) ∧ 𝑥 ∈ 𝐽) ∧ 𝑦 ∈ (bits‘(𝐴‘𝑥))) ∧ ((2↑𝑦) · 𝑥) = 𝐵) → 𝑦 ∈ (bits‘(𝐴‘𝑥)))
132	68	eleq2d 2849	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ↾ 𝐽):𝐽⟶ℕ0 → (𝑥 ∈ dom (𝐴 ↾ 𝐽) ↔ 𝑥 ∈ 𝐽))
133	67, 132	syl 17	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → (𝑥 ∈ dom (𝐴 ↾ 𝐽) ↔ 𝑥 ∈ 𝐽))
134	133	biimpar 481	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝑥 ∈ 𝐽) → 𝑥 ∈ dom (𝐴 ↾ 𝐽))
135		fvco 6965	. . . . . . . . . . . 12 ⊢ ((Fun (𝐴 ↾ 𝐽) ∧ 𝑥 ∈ dom (𝐴 ↾ 𝐽)) → ((bits ∘ (𝐴 ↾ 𝐽))‘𝑥) = (bits‘((𝐴 ↾ 𝐽)‘𝑥)))
136	65, 134, 135	syl2an2r 695	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝑥 ∈ 𝐽) → ((bits ∘ (𝐴 ↾ 𝐽))‘𝑥) = (bits‘((𝐴 ↾ 𝐽)‘𝑥)))
137		fvres 6886	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ 𝐽 → ((𝐴 ↾ 𝐽)‘𝑥) = (𝐴‘𝑥))
138	137	fveq2d 6871	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ 𝐽 → (bits‘((𝐴 ↾ 𝐽)‘𝑥)) = (bits‘(𝐴‘𝑥)))
139	138	adantl 485	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝑥 ∈ 𝐽) → (bits‘((𝐴 ↾ 𝐽)‘𝑥)) = (bits‘(𝐴‘𝑥)))
140	136, 139	eqtrd 2798	. . . . . . . . . 10 ⊢ ((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝑥 ∈ 𝐽) → ((bits ∘ (𝐴 ↾ 𝐽))‘𝑥) = (bits‘(𝐴‘𝑥)))
141	129, 130, 140	syl2anc 593	. . . . . . . . 9 ⊢ ((((((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) ∧ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = 𝐵) ∧ 𝑥 ∈ 𝐽) ∧ 𝑦 ∈ (bits‘(𝐴‘𝑥))) ∧ ((2↑𝑦) · 𝑥) = 𝐵) → ((bits ∘ (𝐴 ↾ 𝐽))‘𝑥) = (bits‘(𝐴‘𝑥)))
142	131, 141	eleqtrrd 2866	. . . . . . . 8 ⊢ ((((((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) ∧ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = 𝐵) ∧ 𝑥 ∈ 𝐽) ∧ 𝑦 ∈ (bits‘(𝐴‘𝑥))) ∧ ((2↑𝑦) · 𝑥) = 𝐵) → 𝑦 ∈ ((bits ∘ (𝐴 ↾ 𝐽))‘𝑥))
143	48	eleq2d 2849	. . . . . . . . . 10 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → (⟨𝑥, 𝑦⟩ ∈ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽))) ↔ ⟨𝑥, 𝑦⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐽 ∧ 𝑦 ∈ ((bits ∘ (𝐴 ↾ 𝐽))‘𝑥))}))
144		opabidw 5495	. . . . . . . . . 10 ⊢ (⟨𝑥, 𝑦⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐽 ∧ 𝑦 ∈ ((bits ∘ (𝐴 ↾ 𝐽))‘𝑥))} ↔ (𝑥 ∈ 𝐽 ∧ 𝑦 ∈ ((bits ∘ (𝐴 ↾ 𝐽))‘𝑥)))
145	143, 144	bitrdi 289	. . . . . . . . 9 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → (⟨𝑥, 𝑦⟩ ∈ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽))) ↔ (𝑥 ∈ 𝐽 ∧ 𝑦 ∈ ((bits ∘ (𝐴 ↾ 𝐽))‘𝑥))))
146	145	biimpar 481	. . . . . . . 8 ⊢ ((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ (𝑥 ∈ 𝐽 ∧ 𝑦 ∈ ((bits ∘ (𝐴 ↾ 𝐽))‘𝑥))) → ⟨𝑥, 𝑦⟩ ∈ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽))))
147	129, 130, 142, 146	syl12anc 847	. . . . . . 7 ⊢ ((((((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) ∧ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = 𝐵) ∧ 𝑥 ∈ 𝐽) ∧ 𝑦 ∈ (bits‘(𝐴‘𝑥))) ∧ ((2↑𝑦) · 𝑥) = 𝐵) → ⟨𝑥, 𝑦⟩ ∈ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽))))
148		simpr 488	. . . . . . . 8 ⊢ ((((((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) ∧ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = 𝐵) ∧ 𝑥 ∈ 𝐽) ∧ 𝑦 ∈ (bits‘(𝐴‘𝑥))) ∧ ((2↑𝑦) · 𝑥) = 𝐵) → ((2↑𝑦) · 𝑥) = 𝐵)
149	34	ad4antr 742	. . . . . . . . 9 ⊢ ((((((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) ∧ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = 𝐵) ∧ 𝑥 ∈ 𝐽) ∧ 𝑦 ∈ (bits‘(𝐴‘𝑥))) ∧ ((2↑𝑦) · 𝑥) = 𝐵) → (𝑀‘(bits ∘ (𝐴 ↾ 𝐽))) ⊆ (𝐽 × ℕ0))
150	149, 147	sseldd 3938	. . . . . . . 8 ⊢ ((((((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) ∧ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = 𝐵) ∧ 𝑥 ∈ 𝐽) ∧ 𝑦 ∈ (bits‘(𝐴‘𝑥))) ∧ ((2↑𝑦) · 𝑥) = 𝐵) → ⟨𝑥, 𝑦⟩ ∈ (𝐽 × ℕ0))
151		opeq1 4832	. . . . . . . . . . . 12 ⊢ (𝑡 = 𝑥 → ⟨𝑡, 𝑦⟩ = ⟨𝑥, 𝑦⟩)
152	151	eleq1d 2848	. . . . . . . . . . 11 ⊢ (𝑡 = 𝑥 → (⟨𝑡, 𝑦⟩ ∈ (𝐽 × ℕ0) ↔ ⟨𝑥, 𝑦⟩ ∈ (𝐽 × ℕ0)))
153	151	fveq2d 6871	. . . . . . . . . . . 12 ⊢ (𝑡 = 𝑥 → (𝐹‘⟨𝑡, 𝑦⟩) = (𝐹‘⟨𝑥, 𝑦⟩))
154		oveq2 7404	. . . . . . . . . . . 12 ⊢ (𝑡 = 𝑥 → ((2↑𝑦) · 𝑡) = ((2↑𝑦) · 𝑥))
155	153, 154	eqeq12d 2779	. . . . . . . . . . 11 ⊢ (𝑡 = 𝑥 → ((𝐹‘⟨𝑡, 𝑦⟩) = ((2↑𝑦) · 𝑡) ↔ (𝐹‘⟨𝑥, 𝑦⟩) = ((2↑𝑦) · 𝑥)))
156	152, 155	imbi12d 346	. . . . . . . . . 10 ⊢ (𝑡 = 𝑥 → ((⟨𝑡, 𝑦⟩ ∈ (𝐽 × ℕ0) → (𝐹‘⟨𝑡, 𝑦⟩) = ((2↑𝑦) · 𝑡)) ↔ (⟨𝑥, 𝑦⟩ ∈ (𝐽 × ℕ0) → (𝐹‘⟨𝑥, 𝑦⟩) = ((2↑𝑦) · 𝑥))))
157		opeq2 4833	. . . . . . . . . . . . 13 ⊢ (𝑛 = 𝑦 → ⟨𝑡, 𝑛⟩ = ⟨𝑡, 𝑦⟩)
158	157	eleq1d 2848	. . . . . . . . . . . 12 ⊢ (𝑛 = 𝑦 → (⟨𝑡, 𝑛⟩ ∈ (𝐽 × ℕ0) ↔ ⟨𝑡, 𝑦⟩ ∈ (𝐽 × ℕ0)))
159	157	fveq2d 6871	. . . . . . . . . . . . 13 ⊢ (𝑛 = 𝑦 → (𝐹‘⟨𝑡, 𝑛⟩) = (𝐹‘⟨𝑡, 𝑦⟩))
160		oveq2 7404	. . . . . . . . . . . . . 14 ⊢ (𝑛 = 𝑦 → (2↑𝑛) = (2↑𝑦))
161	160	oveq1d 7411	. . . . . . . . . . . . 13 ⊢ (𝑛 = 𝑦 → ((2↑𝑛) · 𝑡) = ((2↑𝑦) · 𝑡))
162	159, 161	eqeq12d 2779	. . . . . . . . . . . 12 ⊢ (𝑛 = 𝑦 → ((𝐹‘⟨𝑡, 𝑛⟩) = ((2↑𝑛) · 𝑡) ↔ (𝐹‘⟨𝑡, 𝑦⟩) = ((2↑𝑦) · 𝑡)))
163	158, 162	imbi12d 346	. . . . . . . . . . 11 ⊢ (𝑛 = 𝑦 → ((⟨𝑡, 𝑛⟩ ∈ (𝐽 × ℕ0) → (𝐹‘⟨𝑡, 𝑛⟩) = ((2↑𝑛) · 𝑡)) ↔ (⟨𝑡, 𝑦⟩ ∈ (𝐽 × ℕ0) → (𝐹‘⟨𝑡, 𝑦⟩) = ((2↑𝑦) · 𝑡))))
164	163, 113	chvarvv 2010	. . . . . . . . . 10 ⊢ (⟨𝑡, 𝑦⟩ ∈ (𝐽 × ℕ0) → (𝐹‘⟨𝑡, 𝑦⟩) = ((2↑𝑦) · 𝑡))
165	156, 164	chvarvv 2010	. . . . . . . . 9 ⊢ (⟨𝑥, 𝑦⟩ ∈ (𝐽 × ℕ0) → (𝐹‘⟨𝑥, 𝑦⟩) = ((2↑𝑦) · 𝑥))
166		eqeq2 2775	. . . . . . . . . 10 ⊢ (((2↑𝑦) · 𝑥) = 𝐵 → ((𝐹‘⟨𝑥, 𝑦⟩) = ((2↑𝑦) · 𝑥) ↔ (𝐹‘⟨𝑥, 𝑦⟩) = 𝐵))
167	166	biimpa 480	. . . . . . . . 9 ⊢ ((((2↑𝑦) · 𝑥) = 𝐵 ∧ (𝐹‘⟨𝑥, 𝑦⟩) = ((2↑𝑦) · 𝑥)) → (𝐹‘⟨𝑥, 𝑦⟩) = 𝐵)
168	165, 167	sylan2 602	. . . . . . . 8 ⊢ ((((2↑𝑦) · 𝑥) = 𝐵 ∧ ⟨𝑥, 𝑦⟩ ∈ (𝐽 × ℕ0)) → (𝐹‘⟨𝑥, 𝑦⟩) = 𝐵)
169	148, 150, 168	syl2anc 593	. . . . . . 7 ⊢ ((((((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) ∧ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = 𝐵) ∧ 𝑥 ∈ 𝐽) ∧ 𝑦 ∈ (bits‘(𝐴‘𝑥))) ∧ ((2↑𝑦) · 𝑥) = 𝐵) → (𝐹‘⟨𝑥, 𝑦⟩) = 𝐵)
170		fveqeq2 6876	. . . . . . . 8 ⊢ (𝑤 = ⟨𝑥, 𝑦⟩ → ((𝐹‘𝑤) = 𝐵 ↔ (𝐹‘⟨𝑥, 𝑦⟩) = 𝐵))
171	170	rspcev 3582	. . . . . . 7 ⊢ ((⟨𝑥, 𝑦⟩ ∈ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽))) ∧ (𝐹‘⟨𝑥, 𝑦⟩) = 𝐵) → ∃𝑤 ∈ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))(𝐹‘𝑤) = 𝐵)
172	147, 169, 171	syl2anc 593	. . . . . 6 ⊢ ((((((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) ∧ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = 𝐵) ∧ 𝑥 ∈ 𝐽) ∧ 𝑦 ∈ (bits‘(𝐴‘𝑥))) ∧ ((2↑𝑦) · 𝑥) = 𝐵) → ∃𝑤 ∈ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))(𝐹‘𝑤) = 𝐵)
173		oveq2 7404	. . . . . . . . . . 11 ⊢ (𝑡 = 𝑥 → ((2↑𝑛) · 𝑡) = ((2↑𝑛) · 𝑥))
174	173	eqeq1d 2765	. . . . . . . . . 10 ⊢ (𝑡 = 𝑥 → (((2↑𝑛) · 𝑡) = 𝐵 ↔ ((2↑𝑛) · 𝑥) = 𝐵))
175	160	oveq1d 7411	. . . . . . . . . . 11 ⊢ (𝑛 = 𝑦 → ((2↑𝑛) · 𝑥) = ((2↑𝑦) · 𝑥))
176	175	eqeq1d 2765	. . . . . . . . . 10 ⊢ (𝑛 = 𝑦 → (((2↑𝑛) · 𝑥) = 𝐵 ↔ ((2↑𝑦) · 𝑥) = 𝐵))
177	174, 176	sylan9bb 517	. . . . . . . . 9 ⊢ ((𝑡 = 𝑥 ∧ 𝑛 = 𝑦) → (((2↑𝑛) · 𝑡) = 𝐵 ↔ ((2↑𝑦) · 𝑥) = 𝐵))
178		simpl 486	. . . . . . . . . . 11 ⊢ ((𝑡 = 𝑥 ∧ 𝑛 = 𝑦) → 𝑡 = 𝑥)
179	178	fveq2d 6871	. . . . . . . . . 10 ⊢ ((𝑡 = 𝑥 ∧ 𝑛 = 𝑦) → (𝐴‘𝑡) = (𝐴‘𝑥))
180	179	fveq2d 6871	. . . . . . . . 9 ⊢ ((𝑡 = 𝑥 ∧ 𝑛 = 𝑦) → (bits‘(𝐴‘𝑡)) = (bits‘(𝐴‘𝑥)))
181	177, 180	cbvrexdva2 3340	. . . . . . . 8 ⊢ (𝑡 = 𝑥 → (∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = 𝐵 ↔ ∃𝑦 ∈ (bits‘(𝐴‘𝑥))((2↑𝑦) · 𝑥) = 𝐵))
182	181	cbvrexvw 3242	. . . . . . 7 ⊢ (∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = 𝐵 ↔ ∃𝑥 ∈ ℕ ∃𝑦 ∈ (bits‘(𝐴‘𝑥))((2↑𝑦) · 𝑥) = 𝐵)
183		nfv 1935	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑦 𝐴 ∈ (𝑇 ∩ 𝑅)
184		nfv 1935	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑦 𝑥 ∈ ℕ
185		nfre1 3288	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑦∃𝑦 ∈ (bits‘(𝐴‘𝑥))((2↑𝑦) · 𝑥) = 𝐵
186	184, 185	nfan 1920	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑦(𝑥 ∈ ℕ ∧ ∃𝑦 ∈ (bits‘(𝐴‘𝑥))((2↑𝑦) · 𝑥) = 𝐵)
187	183, 186	nfan 1920	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑦(𝐴 ∈ (𝑇 ∩ 𝑅) ∧ (𝑥 ∈ ℕ ∧ ∃𝑦 ∈ (bits‘(𝐴‘𝑥))((2↑𝑦) · 𝑥) = 𝐵))
188		simplr 778	. . . . . . . . . . . . . . . 16 ⊢ (((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝑥 ∈ ℕ) ∧ 𝑦 ∈ (bits‘(𝐴‘𝑥))) → 𝑥 ∈ ℕ)
189	62	ffvelcdmda 7065	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝑥 ∈ ℕ) → (𝐴‘𝑥) ∈ ℕ0)
190	189	adantr 484	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝑥 ∈ ℕ) ∧ 𝑦 ∈ (bits‘(𝐴‘𝑥))) → (𝐴‘𝑥) ∈ ℕ0)
191		elnn0 12493	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐴‘𝑥) ∈ ℕ0 ↔ ((𝐴‘𝑥) ∈ ℕ ∨ (𝐴‘𝑥) = 0))
192	190, 191	sylib 220	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝑥 ∈ ℕ) ∧ 𝑦 ∈ (bits‘(𝐴‘𝑥))) → ((𝐴‘𝑥) ∈ ℕ ∨ (𝐴‘𝑥) = 0))
193		n0i 4293	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑦 ∈ (bits‘(𝐴‘𝑥)) → ¬ (bits‘(𝐴‘𝑥)) = ∅)
194	193	adantl 485	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝑥 ∈ ℕ) ∧ 𝑦 ∈ (bits‘(𝐴‘𝑥))) → ¬ (bits‘(𝐴‘𝑥)) = ∅)
195		fveq2 6867	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐴‘𝑥) = 0 → (bits‘(𝐴‘𝑥)) = (bits‘0))
196		0bits 16483	. . . . . . . . . . . . . . . . . . . 20 ⊢ (bits‘0) = ∅
197	195, 196	eqtrdi 2814	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐴‘𝑥) = 0 → (bits‘(𝐴‘𝑥)) = ∅)
198	194, 197	nsyl 140	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝑥 ∈ ℕ) ∧ 𝑦 ∈ (bits‘(𝐴‘𝑥))) → ¬ (𝐴‘𝑥) = 0)
199	192, 198	olcnd 888	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝑥 ∈ ℕ) ∧ 𝑦 ∈ (bits‘(𝐴‘𝑥))) → (𝐴‘𝑥) ∈ ℕ)
200	58	simp3bi 1161	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → (◡𝐴 “ ℕ) ⊆ 𝐽)
201	200	sselda 3937	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝑛 ∈ (◡𝐴 “ ℕ)) → 𝑛 ∈ 𝐽)
202		breq2 5105	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑧 = 𝑛 → (2 ∥ 𝑧 ↔ 2 ∥ 𝑛))
203	202	notbid 320	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑧 = 𝑛 → (¬ 2 ∥ 𝑧 ↔ ¬ 2 ∥ 𝑛))
204	203, 4	elrab2 3655	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑛 ∈ 𝐽 ↔ (𝑛 ∈ ℕ ∧ ¬ 2 ∥ 𝑛))
205	204	simprbi 501	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑛 ∈ 𝐽 → ¬ 2 ∥ 𝑛)
206	201, 205	syl 17	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝑛 ∈ (◡𝐴 “ ℕ)) → ¬ 2 ∥ 𝑛)
207	206	ralrimiva 3155	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → ∀𝑛 ∈ (◡𝐴 “ ℕ) ¬ 2 ∥ 𝑛)
208		ffn 6691	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝐴:ℕ⟶ℕ0 → 𝐴 Fn ℕ)
209		elpreima 7039	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝐴 Fn ℕ → (𝑛 ∈ (◡𝐴 “ ℕ) ↔ (𝑛 ∈ ℕ ∧ (𝐴‘𝑛) ∈ ℕ)))
210	62, 208, 209	3syl 18	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → (𝑛 ∈ (◡𝐴 “ ℕ) ↔ (𝑛 ∈ ℕ ∧ (𝐴‘𝑛) ∈ ℕ)))
211	210	imbi1d 343	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → ((𝑛 ∈ (◡𝐴 “ ℕ) → ¬ 2 ∥ 𝑛) ↔ ((𝑛 ∈ ℕ ∧ (𝐴‘𝑛) ∈ ℕ) → ¬ 2 ∥ 𝑛)))
212		impexp 454	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝑛 ∈ ℕ ∧ (𝐴‘𝑛) ∈ ℕ) → ¬ 2 ∥ 𝑛) ↔ (𝑛 ∈ ℕ → ((𝐴‘𝑛) ∈ ℕ → ¬ 2 ∥ 𝑛)))
213	211, 212	bitrdi 289	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → ((𝑛 ∈ (◡𝐴 “ ℕ) → ¬ 2 ∥ 𝑛) ↔ (𝑛 ∈ ℕ → ((𝐴‘𝑛) ∈ ℕ → ¬ 2 ∥ 𝑛))))
214	213	ralbidv2 3182	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → (∀𝑛 ∈ (◡𝐴 “ ℕ) ¬ 2 ∥ 𝑛 ↔ ∀𝑛 ∈ ℕ ((𝐴‘𝑛) ∈ ℕ → ¬ 2 ∥ 𝑛)))
215	207, 214	mpbid 234	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → ∀𝑛 ∈ ℕ ((𝐴‘𝑛) ∈ ℕ → ¬ 2 ∥ 𝑛))
216		fveq2 6867	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑥 = 𝑛 → (𝐴‘𝑥) = (𝐴‘𝑛))
217	216	eleq1d 2848	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑥 = 𝑛 → ((𝐴‘𝑥) ∈ ℕ ↔ (𝐴‘𝑛) ∈ ℕ))
218		breq2 5105	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑥 = 𝑛 → (2 ∥ 𝑥 ↔ 2 ∥ 𝑛))
219	218	notbid 320	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑥 = 𝑛 → (¬ 2 ∥ 𝑥 ↔ ¬ 2 ∥ 𝑛))
220	217, 219	imbi12d 346	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑥 = 𝑛 → (((𝐴‘𝑥) ∈ ℕ → ¬ 2 ∥ 𝑥) ↔ ((𝐴‘𝑛) ∈ ℕ → ¬ 2 ∥ 𝑛)))
221	220	cbvralvw 3241	. . . . . . . . . . . . . . . . . . . 20 ⊢ (∀𝑥 ∈ ℕ ((𝐴‘𝑥) ∈ ℕ → ¬ 2 ∥ 𝑥) ↔ ∀𝑛 ∈ ℕ ((𝐴‘𝑛) ∈ ℕ → ¬ 2 ∥ 𝑛))
222	215, 221	sylibr 236	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → ∀𝑥 ∈ ℕ ((𝐴‘𝑥) ∈ ℕ → ¬ 2 ∥ 𝑥))
223	222	r19.21bi 3255	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝑥 ∈ ℕ) → ((𝐴‘𝑥) ∈ ℕ → ¬ 2 ∥ 𝑥))
224	223	imp 410	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝑥 ∈ ℕ) ∧ (𝐴‘𝑥) ∈ ℕ) → ¬ 2 ∥ 𝑥)
225	199, 224	syldan 600	. . . . . . . . . . . . . . . 16 ⊢ (((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝑥 ∈ ℕ) ∧ 𝑦 ∈ (bits‘(𝐴‘𝑥))) → ¬ 2 ∥ 𝑥)
226		breq2 5105	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑧 = 𝑥 → (2 ∥ 𝑧 ↔ 2 ∥ 𝑥))
227	226	notbid 320	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 = 𝑥 → (¬ 2 ∥ 𝑧 ↔ ¬ 2 ∥ 𝑥))
228	227, 4	elrab2 3655	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ 𝐽 ↔ (𝑥 ∈ ℕ ∧ ¬ 2 ∥ 𝑥))
229	188, 225, 228	sylanbrc 592	. . . . . . . . . . . . . . 15 ⊢ (((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝑥 ∈ ℕ) ∧ 𝑦 ∈ (bits‘(𝐴‘𝑥))) → 𝑥 ∈ 𝐽)
230	229	adantlrr 731	. . . . . . . . . . . . . 14 ⊢ (((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ (𝑥 ∈ ℕ ∧ ∃𝑦 ∈ (bits‘(𝐴‘𝑥))((2↑𝑦) · 𝑥) = 𝐵)) ∧ 𝑦 ∈ (bits‘(𝐴‘𝑥))) → 𝑥 ∈ 𝐽)
231	230	adantr 484	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ (𝑥 ∈ ℕ ∧ ∃𝑦 ∈ (bits‘(𝐴‘𝑥))((2↑𝑦) · 𝑥) = 𝐵)) ∧ 𝑦 ∈ (bits‘(𝐴‘𝑥))) ∧ ((2↑𝑦) · 𝑥) = 𝐵) → 𝑥 ∈ 𝐽)
232		simprr 782	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ (𝑥 ∈ ℕ ∧ ∃𝑦 ∈ (bits‘(𝐴‘𝑥))((2↑𝑦) · 𝑥) = 𝐵)) → ∃𝑦 ∈ (bits‘(𝐴‘𝑥))((2↑𝑦) · 𝑥) = 𝐵)
233	187, 231, 232	r19.29af 3272	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ (𝑥 ∈ ℕ ∧ ∃𝑦 ∈ (bits‘(𝐴‘𝑥))((2↑𝑦) · 𝑥) = 𝐵)) → 𝑥 ∈ 𝐽)
234	233, 232	jca 519	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ (𝑥 ∈ ℕ ∧ ∃𝑦 ∈ (bits‘(𝐴‘𝑥))((2↑𝑦) · 𝑥) = 𝐵)) → (𝑥 ∈ 𝐽 ∧ ∃𝑦 ∈ (bits‘(𝐴‘𝑥))((2↑𝑦) · 𝑥) = 𝐵))
235	234	ex 416	. . . . . . . . . 10 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → ((𝑥 ∈ ℕ ∧ ∃𝑦 ∈ (bits‘(𝐴‘𝑥))((2↑𝑦) · 𝑥) = 𝐵) → (𝑥 ∈ 𝐽 ∧ ∃𝑦 ∈ (bits‘(𝐴‘𝑥))((2↑𝑦) · 𝑥) = 𝐵)))
236	235	reximdv2 3173	. . . . . . . . 9 ⊢ (𝐴 ∈ (𝑇 ∩ 𝑅) → (∃𝑥 ∈ ℕ ∃𝑦 ∈ (bits‘(𝐴‘𝑥))((2↑𝑦) · 𝑥) = 𝐵 → ∃𝑥 ∈ 𝐽 ∃𝑦 ∈ (bits‘(𝐴‘𝑥))((2↑𝑦) · 𝑥) = 𝐵))
237	236	imp 410	. . . . . . . 8 ⊢ ((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ ∃𝑥 ∈ ℕ ∃𝑦 ∈ (bits‘(𝐴‘𝑥))((2↑𝑦) · 𝑥) = 𝐵) → ∃𝑥 ∈ 𝐽 ∃𝑦 ∈ (bits‘(𝐴‘𝑥))((2↑𝑦) · 𝑥) = 𝐵)
238	237	adantlr 725	. . . . . . 7 ⊢ (((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) ∧ ∃𝑥 ∈ ℕ ∃𝑦 ∈ (bits‘(𝐴‘𝑥))((2↑𝑦) · 𝑥) = 𝐵) → ∃𝑥 ∈ 𝐽 ∃𝑦 ∈ (bits‘(𝐴‘𝑥))((2↑𝑦) · 𝑥) = 𝐵)
239	182, 238	sylan2b 603	. . . . . 6 ⊢ (((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) ∧ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = 𝐵) → ∃𝑥 ∈ 𝐽 ∃𝑦 ∈ (bits‘(𝐴‘𝑥))((2↑𝑦) · 𝑥) = 𝐵)
240	172, 239	r19.29vva 3223	. . . . 5 ⊢ (((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) ∧ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = 𝐵) → ∃𝑤 ∈ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))(𝐹‘𝑤) = 𝐵)
241	128, 240	impbida 810	. . . 4 ⊢ ((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) → (∃𝑤 ∈ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))(𝐹‘𝑤) = 𝐵 ↔ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = 𝐵))
242	36, 241	bitrd 281	. . 3 ⊢ ((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) → (𝐵 ∈ (𝐹 “ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))) ↔ ∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = 𝐵))
243	242	ifbid 4505	. 2 ⊢ ((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) → if(𝐵 ∈ (𝐹 “ (𝑀‘(bits ∘ (𝐴 ↾ 𝐽)))), 1, 0) = if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = 𝐵, 1, 0))
244	13, 23, 243	3eqtrd 2802	1 ⊢ ((𝐴 ∈ (𝑇 ∩ 𝑅) ∧ 𝐵 ∈ ℕ) → ((𝐺‘𝐴)‘𝐵) = if(∃𝑡 ∈ ℕ ∃𝑛 ∈ (bits‘(𝐴‘𝑡))((2↑𝑛) · 𝑡) = 𝐵, 1, 0))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 208   ∧ wa 399   ∨ wo 858   = wceq 1561  ∃wex 1800   ∈ wcel 2143  {cab 2741  ∀wral 3077  ∃wrex 3087  {crab 3415  Vcvv 3455   ∩ cin 3904   ⊆ wss 3905  ∅c0 4286  ifcif 4481  𝒫 cpw 4556  ⟨cop 4589   class class class wbr 5101  {copab 5163   ↦ cmpt 5182   × cxp 5646  ^◡ccnv 5647  dom cdm 5648  ran crn 5649   ↾ cres 5650   “ cima 5651   ∘ ccom 5652  Fun wfun 6515   Fn wfn 6516  ⟶wf 6517  –1-1-onto→wf1o 6520  ‘cfv 6521  (class class class)co 7396   ∈ cmpo 7398  1^st c1st 7968  2^nd c2nd 7969   supp csupp 8140   ↑_m cmap 8808  Fincfn 8927  0cc0 11084  1c1 11085   · cmul 11089   ≤ cle 11228  𝟭cind 12205  ℕcn 12220  2c2 12282  ℕ₀cn0 12491  ↑cexp 14084  Σcsu 15723   ∥ cdvds 16296  bitscbits 16463

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1816  ax-4 1830  ax-5 1931  ax-6 1988  ax-7 2029  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5228  ax-sep 5247  ax-nul 5257  ax-pow 5323  ax-pr 5391  ax-un 7718  ax-inf2 9594  ax-ac2 10431  ax-cnex 11140  ax-resscn 11141  ax-1cn 11142  ax-icn 11143  ax-addcl 11144  ax-addrcl 11145  ax-mulcl 11146  ax-mulrcl 11147  ax-mulcom 11148  ax-addass 11149  ax-mulass 11150  ax-distr 11151  ax-i2m1 11152  ax-1ne0 11153  ax-1rid 11154  ax-rnegex 11155  ax-rrecex 11156  ax-cnre 11157  ax-pre-lttri 11158  ax-pre-lttrn 11159  ax-pre-ltadd 11160  ax-pre-mulgt0 11161  ax-pre-sup 11162

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1100  df-3an 1101  df-tru 1564  df-fal 1574  df-ex 1801  df-nf 1805  df-sb 2092  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-nel 3063  df-ral 3078  df-rex 3088  df-rmo 3368  df-reu 3369  df-rab 3416  df-v 3457  df-sbc 3746  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-pss 3925  df-nul 4287  df-if 4482  df-pw 4558  df-sn 4584  df-pr 4586  df-op 4590  df-uni 4867  df-int 4907  df-iun 4952  df-disj 5069  df-br 5102  df-opab 5164  df-mpt 5183  df-tr 5209  df-id 5543  df-eprel 5548  df-po 5556  df-so 5557  df-fr 5601  df-se 5602  df-we 5603  df-xp 5654  df-rel 5655  df-cnv 5656  df-co 5657  df-dm 5658  df-rn 5659  df-res 5660  df-ima 5661  df-pred 6288  df-ord 6349  df-on 6350  df-lim 6351  df-suc 6352  df-iota 6477  df-fun 6523  df-fn 6524  df-f 6525  df-f1 6526  df-fo 6527  df-f1o 6528  df-fv 6529  df-isom 6530  df-riota 7353  df-ov 7399  df-oprab 7400  df-mpo 7401  df-om 7847  df-1st 7970  df-2nd 7971  df-supp 8141  df-frecs 8262  df-wrecs 8293  df-recs 8342  df-rdg 8381  df-1o 8437  df-2o 8438  df-oadd 8441  df-er 8678  df-map 8810  df-pm 8811  df-en 8928  df-dom 8929  df-sdom 8930  df-fin 8931  df-sup 9386  df-inf 9387  df-oi 9456  df-dju 9871  df-card 9909  df-acn 9912  df-ac 10084  df-pnf 11229  df-mnf 11230  df-xr 11231  df-ltxr 11232  df-le 11233  df-sub 11427  df-neg 11428  df-div 11856  df-ind 12206  df-nn 12221  df-2 12290  df-3 12291  df-n0 12492  df-xnn0 12565  df-z 12579  df-uz 12850  df-rp 13004  df-fz 13523  df-fzo 13670  df-fl 13812  df-mod 13890  df-seq 14025  df-exp 14085  df-hash 14354  df-cj 15136  df-re 15137  df-im 15138  df-sqrt 15272  df-abs 15273  df-clim 15525  df-sum 15724  df-dvds 16297  df-bits 16466

This theorem is referenced by:  eulerpartlemgs2  34679