eulerthlemrprm - Intuitionistic Logic Explorer

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

Theorem eulerthlemrprm 12595

Description: Lemma for eulerth 12599. 𝑁 and ∏𝑥 ∈ (1...(ϕ‘𝑁))(𝐹‘𝑥) are relatively prime. (Contributed by Mario Carneiro, 28-Feb-2014.) (Revised by Jim Kingdon, 2-Sep-2024.)

**Hypotheses**
Ref	Expression
eulerth.1	⊢ (𝜑 → (𝑁 ∈ ℕ ∧ 𝐴 ∈ ℤ ∧ (𝐴 gcd 𝑁) = 1))
eulerth.2	⊢ 𝑆 = {𝑦 ∈ (0..^𝑁) ∣ (𝑦 gcd 𝑁) = 1}
eulerth.4	⊢ (𝜑 → 𝐹:(1...(ϕ‘𝑁))–1-1-onto→𝑆)

**Assertion**
Ref	Expression
eulerthlemrprm	⊢ (𝜑 → (𝑁 gcd ∏𝑥 ∈ (1...(ϕ‘𝑁))(𝐹‘𝑥)) = 1)

Distinct variable groups: 𝑥,𝐹 𝑦,𝐹 𝑥,𝑁 𝑦,𝑁 𝜑,𝑥 Allowed substitution hints: 𝜑(𝑦) 𝐴(𝑥,𝑦) 𝑆(𝑥,𝑦)

Proof of Theorem eulerthlemrprm Dummy variables 𝑘 𝑤 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		eulerth.1	. . . . . 6 ⊢ (𝜑 → (𝑁 ∈ ℕ ∧ 𝐴 ∈ ℤ ∧ (𝐴 gcd 𝑁) = 1))
2	1	simp1d 1012	. . . . 5 ⊢ (𝜑 → 𝑁 ∈ ℕ)
3	2	phicld 12584	. . . 4 ⊢ (𝜑 → (ϕ‘𝑁) ∈ ℕ)
4		elnnuz 9692	. . . 4 ⊢ ((ϕ‘𝑁) ∈ ℕ ↔ (ϕ‘𝑁) ∈ (ℤ_≥‘1))
5	3, 4	sylib 122	. . 3 ⊢ (𝜑 → (ϕ‘𝑁) ∈ (ℤ_≥‘1))
6		eluzfz2 10161	. . 3 ⊢ ((ϕ‘𝑁) ∈ (ℤ_≥‘1) → (ϕ‘𝑁) ∈ (1...(ϕ‘𝑁)))
7	5, 6	syl 14	. 2 ⊢ (𝜑 → (ϕ‘𝑁) ∈ (1...(ϕ‘𝑁)))
8		oveq2 5959	. . . . . . 7 ⊢ (𝑤 = 1 → (1...𝑤) = (1...1))
9	8	prodeq1d 11919	. . . . . 6 ⊢ (𝑤 = 1 → ∏𝑥 ∈ (1...𝑤)(𝐹‘𝑥) = ∏𝑥 ∈ (1...1)(𝐹‘𝑥))
10	9	oveq2d 5967	. . . . 5 ⊢ (𝑤 = 1 → (𝑁 gcd ∏𝑥 ∈ (1...𝑤)(𝐹‘𝑥)) = (𝑁 gcd ∏𝑥 ∈ (1...1)(𝐹‘𝑥)))
11	10	eqeq1d 2215	. . . 4 ⊢ (𝑤 = 1 → ((𝑁 gcd ∏𝑥 ∈ (1...𝑤)(𝐹‘𝑥)) = 1 ↔ (𝑁 gcd ∏𝑥 ∈ (1...1)(𝐹‘𝑥)) = 1))
12	11	imbi2d 230	. . 3 ⊢ (𝑤 = 1 → ((𝜑 → (𝑁 gcd ∏𝑥 ∈ (1...𝑤)(𝐹‘𝑥)) = 1) ↔ (𝜑 → (𝑁 gcd ∏𝑥 ∈ (1...1)(𝐹‘𝑥)) = 1)))
13		oveq2 5959	. . . . . . 7 ⊢ (𝑤 = 𝑘 → (1...𝑤) = (1...𝑘))
14	13	prodeq1d 11919	. . . . . 6 ⊢ (𝑤 = 𝑘 → ∏𝑥 ∈ (1...𝑤)(𝐹‘𝑥) = ∏𝑥 ∈ (1...𝑘)(𝐹‘𝑥))
15	14	oveq2d 5967	. . . . 5 ⊢ (𝑤 = 𝑘 → (𝑁 gcd ∏𝑥 ∈ (1...𝑤)(𝐹‘𝑥)) = (𝑁 gcd ∏𝑥 ∈ (1...𝑘)(𝐹‘𝑥)))
16	15	eqeq1d 2215	. . . 4 ⊢ (𝑤 = 𝑘 → ((𝑁 gcd ∏𝑥 ∈ (1...𝑤)(𝐹‘𝑥)) = 1 ↔ (𝑁 gcd ∏𝑥 ∈ (1...𝑘)(𝐹‘𝑥)) = 1))
17	16	imbi2d 230	. . 3 ⊢ (𝑤 = 𝑘 → ((𝜑 → (𝑁 gcd ∏𝑥 ∈ (1...𝑤)(𝐹‘𝑥)) = 1) ↔ (𝜑 → (𝑁 gcd ∏𝑥 ∈ (1...𝑘)(𝐹‘𝑥)) = 1)))
18		oveq2 5959	. . . . . . 7 ⊢ (𝑤 = (𝑘 + 1) → (1...𝑤) = (1...(𝑘 + 1)))
19	18	prodeq1d 11919	. . . . . 6 ⊢ (𝑤 = (𝑘 + 1) → ∏𝑥 ∈ (1...𝑤)(𝐹‘𝑥) = ∏𝑥 ∈ (1...(𝑘 + 1))(𝐹‘𝑥))
20	19	oveq2d 5967	. . . . 5 ⊢ (𝑤 = (𝑘 + 1) → (𝑁 gcd ∏𝑥 ∈ (1...𝑤)(𝐹‘𝑥)) = (𝑁 gcd ∏𝑥 ∈ (1...(𝑘 + 1))(𝐹‘𝑥)))
21	20	eqeq1d 2215	. . . 4 ⊢ (𝑤 = (𝑘 + 1) → ((𝑁 gcd ∏𝑥 ∈ (1...𝑤)(𝐹‘𝑥)) = 1 ↔ (𝑁 gcd ∏𝑥 ∈ (1...(𝑘 + 1))(𝐹‘𝑥)) = 1))
22	21	imbi2d 230	. . 3 ⊢ (𝑤 = (𝑘 + 1) → ((𝜑 → (𝑁 gcd ∏𝑥 ∈ (1...𝑤)(𝐹‘𝑥)) = 1) ↔ (𝜑 → (𝑁 gcd ∏𝑥 ∈ (1...(𝑘 + 1))(𝐹‘𝑥)) = 1)))
23		oveq2 5959	. . . . . . 7 ⊢ (𝑤 = (ϕ‘𝑁) → (1...𝑤) = (1...(ϕ‘𝑁)))
24	23	prodeq1d 11919	. . . . . 6 ⊢ (𝑤 = (ϕ‘𝑁) → ∏𝑥 ∈ (1...𝑤)(𝐹‘𝑥) = ∏𝑥 ∈ (1...(ϕ‘𝑁))(𝐹‘𝑥))
25	24	oveq2d 5967	. . . . 5 ⊢ (𝑤 = (ϕ‘𝑁) → (𝑁 gcd ∏𝑥 ∈ (1...𝑤)(𝐹‘𝑥)) = (𝑁 gcd ∏𝑥 ∈ (1...(ϕ‘𝑁))(𝐹‘𝑥)))
26	25	eqeq1d 2215	. . . 4 ⊢ (𝑤 = (ϕ‘𝑁) → ((𝑁 gcd ∏𝑥 ∈ (1...𝑤)(𝐹‘𝑥)) = 1 ↔ (𝑁 gcd ∏𝑥 ∈ (1...(ϕ‘𝑁))(𝐹‘𝑥)) = 1))
27	26	imbi2d 230	. . 3 ⊢ (𝑤 = (ϕ‘𝑁) → ((𝜑 → (𝑁 gcd ∏𝑥 ∈ (1...𝑤)(𝐹‘𝑥)) = 1) ↔ (𝜑 → (𝑁 gcd ∏𝑥 ∈ (1...(ϕ‘𝑁))(𝐹‘𝑥)) = 1)))
28		1z 9405	. . . . . . 7 ⊢ 1 ∈ ℤ
29		eulerth.2	. . . . . . . . . . 11 ⊢ 𝑆 = {𝑦 ∈ (0..^𝑁) ∣ (𝑦 gcd 𝑁) = 1}
30		ssrab2 3279	. . . . . . . . . . 11 ⊢ {𝑦 ∈ (0..^𝑁) ∣ (𝑦 gcd 𝑁) = 1} ⊆ (0..^𝑁)
31	29, 30	eqsstri 3226	. . . . . . . . . 10 ⊢ 𝑆 ⊆ (0..^𝑁)
32		fzo0ssnn0 10351	. . . . . . . . . 10 ⊢ (0..^𝑁) ⊆ ℕ₀
33	31, 32	sstri 3203	. . . . . . . . 9 ⊢ 𝑆 ⊆ ℕ₀
34		nn0sscn 9307	. . . . . . . . 9 ⊢ ℕ₀ ⊆ ℂ
35	33, 34	sstri 3203	. . . . . . . 8 ⊢ 𝑆 ⊆ ℂ
36		eulerth.4	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹:(1...(ϕ‘𝑁))–1-1-onto→𝑆)
37		f1of 5529	. . . . . . . . . 10 ⊢ (𝐹:(1...(ϕ‘𝑁))–1-1-onto→𝑆 → 𝐹:(1...(ϕ‘𝑁))⟶𝑆)
38	36, 37	syl 14	. . . . . . . . 9 ⊢ (𝜑 → 𝐹:(1...(ϕ‘𝑁))⟶𝑆)
39	3	nnge1d 9086	. . . . . . . . . 10 ⊢ (𝜑 → 1 ≤ (ϕ‘𝑁))
40		uzid 9669	. . . . . . . . . . . 12 ⊢ (1 ∈ ℤ → 1 ∈ (ℤ_≥‘1))
41	28, 40	ax-mp 5	. . . . . . . . . . 11 ⊢ 1 ∈ (ℤ_≥‘1)
42	3	nnzd 9501	. . . . . . . . . . 11 ⊢ (𝜑 → (ϕ‘𝑁) ∈ ℤ)
43		elfz5 10146	. . . . . . . . . . 11 ⊢ ((1 ∈ (ℤ_≥‘1) ∧ (ϕ‘𝑁) ∈ ℤ) → (1 ∈ (1...(ϕ‘𝑁)) ↔ 1 ≤ (ϕ‘𝑁)))
44	41, 42, 43	sylancr 414	. . . . . . . . . 10 ⊢ (𝜑 → (1 ∈ (1...(ϕ‘𝑁)) ↔ 1 ≤ (ϕ‘𝑁)))
45	39, 44	mpbird 167	. . . . . . . . 9 ⊢ (𝜑 → 1 ∈ (1...(ϕ‘𝑁)))
46	38, 45	ffvelcdmd 5723	. . . . . . . 8 ⊢ (𝜑 → (𝐹‘1) ∈ 𝑆)
47	35, 46	sselid 3192	. . . . . . 7 ⊢ (𝜑 → (𝐹‘1) ∈ ℂ)
48		fveq2 5583	. . . . . . . 8 ⊢ (𝑥 = 1 → (𝐹‘𝑥) = (𝐹‘1))
49	48	fprod1 11949	. . . . . . 7 ⊢ ((1 ∈ ℤ ∧ (𝐹‘1) ∈ ℂ) → ∏𝑥 ∈ (1...1)(𝐹‘𝑥) = (𝐹‘1))
50	28, 47, 49	sylancr 414	. . . . . 6 ⊢ (𝜑 → ∏𝑥 ∈ (1...1)(𝐹‘𝑥) = (𝐹‘1))
51	50	oveq2d 5967	. . . . 5 ⊢ (𝜑 → (𝑁 gcd ∏𝑥 ∈ (1...1)(𝐹‘𝑥)) = (𝑁 gcd (𝐹‘1)))
52	2	nnzd 9501	. . . . . 6 ⊢ (𝜑 → 𝑁 ∈ ℤ)
53		nn0ssz 9397	. . . . . . . 8 ⊢ ℕ₀ ⊆ ℤ
54	33, 53	sstri 3203	. . . . . . 7 ⊢ 𝑆 ⊆ ℤ
55	54, 46	sselid 3192	. . . . . 6 ⊢ (𝜑 → (𝐹‘1) ∈ ℤ)
56		gcdcom 12338	. . . . . 6 ⊢ ((𝑁 ∈ ℤ ∧ (𝐹‘1) ∈ ℤ) → (𝑁 gcd (𝐹‘1)) = ((𝐹‘1) gcd 𝑁))
57	52, 55, 56	syl2anc 411	. . . . 5 ⊢ (𝜑 → (𝑁 gcd (𝐹‘1)) = ((𝐹‘1) gcd 𝑁))
58		oveq1 5958	. . . . . . . . 9 ⊢ (𝑦 = (𝐹‘1) → (𝑦 gcd 𝑁) = ((𝐹‘1) gcd 𝑁))
59	58	eqeq1d 2215	. . . . . . . 8 ⊢ (𝑦 = (𝐹‘1) → ((𝑦 gcd 𝑁) = 1 ↔ ((𝐹‘1) gcd 𝑁) = 1))
60	59, 29	elrab2 2933	. . . . . . 7 ⊢ ((𝐹‘1) ∈ 𝑆 ↔ ((𝐹‘1) ∈ (0..^𝑁) ∧ ((𝐹‘1) gcd 𝑁) = 1))
61	46, 60	sylib 122	. . . . . 6 ⊢ (𝜑 → ((𝐹‘1) ∈ (0..^𝑁) ∧ ((𝐹‘1) gcd 𝑁) = 1))
62	61	simprd 114	. . . . 5 ⊢ (𝜑 → ((𝐹‘1) gcd 𝑁) = 1)
63	51, 57, 62	3eqtrd 2243	. . . 4 ⊢ (𝜑 → (𝑁 gcd ∏𝑥 ∈ (1...1)(𝐹‘𝑥)) = 1)
64	63	a1i 9	. . 3 ⊢ ((ϕ‘𝑁) ∈ (ℤ_≥‘1) → (𝜑 → (𝑁 gcd ∏𝑥 ∈ (1...1)(𝐹‘𝑥)) = 1))
65		simpr 110	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ (𝑁 gcd ∏𝑥 ∈ (1...𝑘)(𝐹‘𝑥)) = 1) → (𝑁 gcd ∏𝑥 ∈ (1...𝑘)(𝐹‘𝑥)) = 1)
66	38	adantr 276	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) → 𝐹:(1...(ϕ‘𝑁))⟶𝑆)
67		fzofzp1 10363	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ (1..^(ϕ‘𝑁)) → (𝑘 + 1) ∈ (1...(ϕ‘𝑁)))
68	67	adantl 277	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) → (𝑘 + 1) ∈ (1...(ϕ‘𝑁)))
69	66, 68	ffvelcdmd 5723	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) → (𝐹‘(𝑘 + 1)) ∈ 𝑆)
70	54, 69	sselid 3192	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) → (𝐹‘(𝑘 + 1)) ∈ ℤ)
71	52	adantr 276	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) → 𝑁 ∈ ℤ)
72		gcdcom 12338	. . . . . . . . . . 11 ⊢ (((𝐹‘(𝑘 + 1)) ∈ ℤ ∧ 𝑁 ∈ ℤ) → ((𝐹‘(𝑘 + 1)) gcd 𝑁) = (𝑁 gcd (𝐹‘(𝑘 + 1))))
73	70, 71, 72	syl2anc 411	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) → ((𝐹‘(𝑘 + 1)) gcd 𝑁) = (𝑁 gcd (𝐹‘(𝑘 + 1))))
74		oveq1 5958	. . . . . . . . . . . . . 14 ⊢ (𝑦 = (𝐹‘(𝑘 + 1)) → (𝑦 gcd 𝑁) = ((𝐹‘(𝑘 + 1)) gcd 𝑁))
75	74	eqeq1d 2215	. . . . . . . . . . . . 13 ⊢ (𝑦 = (𝐹‘(𝑘 + 1)) → ((𝑦 gcd 𝑁) = 1 ↔ ((𝐹‘(𝑘 + 1)) gcd 𝑁) = 1))
76	75, 29	elrab2 2933	. . . . . . . . . . . 12 ⊢ ((𝐹‘(𝑘 + 1)) ∈ 𝑆 ↔ ((𝐹‘(𝑘 + 1)) ∈ (0..^𝑁) ∧ ((𝐹‘(𝑘 + 1)) gcd 𝑁) = 1))
77	76	simprbi 275	. . . . . . . . . . 11 ⊢ ((𝐹‘(𝑘 + 1)) ∈ 𝑆 → ((𝐹‘(𝑘 + 1)) gcd 𝑁) = 1)
78	69, 77	syl 14	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) → ((𝐹‘(𝑘 + 1)) gcd 𝑁) = 1)
79	73, 78	eqtr3d 2241	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) → (𝑁 gcd (𝐹‘(𝑘 + 1))) = 1)
80	79	adantr 276	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ (𝑁 gcd ∏𝑥 ∈ (1...𝑘)(𝐹‘𝑥)) = 1) → (𝑁 gcd (𝐹‘(𝑘 + 1))) = 1)
81	28	a1i 9	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) → 1 ∈ ℤ)
82		elfzoelz 10276	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ (1..^(ϕ‘𝑁)) → 𝑘 ∈ ℤ)
83	82	adantl 277	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) → 𝑘 ∈ ℤ)
84	81, 83	fzfigd 10583	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) → (1...𝑘) ∈ Fin)
85	38	ad2antrr 488	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ 𝑥 ∈ (1...𝑘)) → 𝐹:(1...(ϕ‘𝑁))⟶𝑆)
86		elfznn 10183	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 ∈ (1...𝑘) → 𝑥 ∈ ℕ)
87	86	nnred 9056	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ (1...𝑘) → 𝑥 ∈ ℝ)
88	87	adantl 277	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ 𝑥 ∈ (1...𝑘)) → 𝑥 ∈ ℝ)
89	3	nnred 9056	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (ϕ‘𝑁) ∈ ℝ)
90	89	ad2antrr 488	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ 𝑥 ∈ (1...𝑘)) → (ϕ‘𝑁) ∈ ℝ)
91	82	ad2antlr 489	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ 𝑥 ∈ (1...𝑘)) → 𝑘 ∈ ℤ)
92	91	zred 9502	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ 𝑥 ∈ (1...𝑘)) → 𝑘 ∈ ℝ)
93		elfzle2 10157	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 ∈ (1...𝑘) → 𝑥 ≤ 𝑘)
94	93	adantl 277	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ 𝑥 ∈ (1...𝑘)) → 𝑥 ≤ 𝑘)
95		elfzolt2 10286	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 ∈ (1..^(ϕ‘𝑁)) → 𝑘 < (ϕ‘𝑁))
96	95	ad2antlr 489	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ 𝑥 ∈ (1...𝑘)) → 𝑘 < (ϕ‘𝑁))
97	88, 92, 90, 94, 96	lelttrd 8204	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ 𝑥 ∈ (1...𝑘)) → 𝑥 < (ϕ‘𝑁))
98	88, 90, 97	ltled 8198	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ 𝑥 ∈ (1...𝑘)) → 𝑥 ≤ (ϕ‘𝑁))
99		elfzuz 10150	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ (1...𝑘) → 𝑥 ∈ (ℤ_≥‘1))
100	42	ad2antrr 488	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ 𝑥 ∈ (1...𝑘)) → (ϕ‘𝑁) ∈ ℤ)
101		elfz5 10146	. . . . . . . . . . . . . . 15 ⊢ ((𝑥 ∈ (ℤ_≥‘1) ∧ (ϕ‘𝑁) ∈ ℤ) → (𝑥 ∈ (1...(ϕ‘𝑁)) ↔ 𝑥 ≤ (ϕ‘𝑁)))
102	99, 100, 101	syl2an2 594	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ 𝑥 ∈ (1...𝑘)) → (𝑥 ∈ (1...(ϕ‘𝑁)) ↔ 𝑥 ≤ (ϕ‘𝑁)))
103	98, 102	mpbird 167	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ 𝑥 ∈ (1...𝑘)) → 𝑥 ∈ (1...(ϕ‘𝑁)))
104	85, 103	ffvelcdmd 5723	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ 𝑥 ∈ (1...𝑘)) → (𝐹‘𝑥) ∈ 𝑆)
105	54, 104	sselid 3192	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ 𝑥 ∈ (1...𝑘)) → (𝐹‘𝑥) ∈ ℤ)
106	84, 105	fprodzcl 11964	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) → ∏𝑥 ∈ (1...𝑘)(𝐹‘𝑥) ∈ ℤ)
107		rpmul 12464	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℤ ∧ ∏𝑥 ∈ (1...𝑘)(𝐹‘𝑥) ∈ ℤ ∧ (𝐹‘(𝑘 + 1)) ∈ ℤ) → (((𝑁 gcd ∏𝑥 ∈ (1...𝑘)(𝐹‘𝑥)) = 1 ∧ (𝑁 gcd (𝐹‘(𝑘 + 1))) = 1) → (𝑁 gcd (∏𝑥 ∈ (1...𝑘)(𝐹‘𝑥) · (𝐹‘(𝑘 + 1)))) = 1))
108	71, 106, 70, 107	syl3anc 1250	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) → (((𝑁 gcd ∏𝑥 ∈ (1...𝑘)(𝐹‘𝑥)) = 1 ∧ (𝑁 gcd (𝐹‘(𝑘 + 1))) = 1) → (𝑁 gcd (∏𝑥 ∈ (1...𝑘)(𝐹‘𝑥) · (𝐹‘(𝑘 + 1)))) = 1))
109	108	adantr 276	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ (𝑁 gcd ∏𝑥 ∈ (1...𝑘)(𝐹‘𝑥)) = 1) → (((𝑁 gcd ∏𝑥 ∈ (1...𝑘)(𝐹‘𝑥)) = 1 ∧ (𝑁 gcd (𝐹‘(𝑘 + 1))) = 1) → (𝑁 gcd (∏𝑥 ∈ (1...𝑘)(𝐹‘𝑥) · (𝐹‘(𝑘 + 1)))) = 1))
110	65, 80, 109	mp2and 433	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ (𝑁 gcd ∏𝑥 ∈ (1...𝑘)(𝐹‘𝑥)) = 1) → (𝑁 gcd (∏𝑥 ∈ (1...𝑘)(𝐹‘𝑥) · (𝐹‘(𝑘 + 1)))) = 1)
111		elfzouz 10280	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ (1..^(ϕ‘𝑁)) → 𝑘 ∈ (ℤ_≥‘1))
112	111	adantl 277	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) → 𝑘 ∈ (ℤ_≥‘1))
113	38	ad2antrr 488	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ 𝑥 ∈ (1...(𝑘 + 1))) → 𝐹:(1...(ϕ‘𝑁))⟶𝑆)
114		elfzelz 10154	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 ∈ (1...(𝑘 + 1)) → 𝑥 ∈ ℤ)
115	114	zred 9502	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ (1...(𝑘 + 1)) → 𝑥 ∈ ℝ)
116	115	adantl 277	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ 𝑥 ∈ (1...(𝑘 + 1))) → 𝑥 ∈ ℝ)
117	82	ad2antlr 489	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ 𝑥 ∈ (1...(𝑘 + 1))) → 𝑘 ∈ ℤ)
118	117	peano2zd 9505	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ 𝑥 ∈ (1...(𝑘 + 1))) → (𝑘 + 1) ∈ ℤ)
119	118	zred 9502	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ 𝑥 ∈ (1...(𝑘 + 1))) → (𝑘 + 1) ∈ ℝ)
120	89	ad2antrr 488	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ 𝑥 ∈ (1...(𝑘 + 1))) → (ϕ‘𝑁) ∈ ℝ)
121		elfzle2 10157	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ (1...(𝑘 + 1)) → 𝑥 ≤ (𝑘 + 1))
122	121	adantl 277	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ 𝑥 ∈ (1...(𝑘 + 1))) → 𝑥 ≤ (𝑘 + 1))
123		elfzle2 10157	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑘 + 1) ∈ (1...(ϕ‘𝑁)) → (𝑘 + 1) ≤ (ϕ‘𝑁))
124	67, 123	syl 14	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ (1..^(ϕ‘𝑁)) → (𝑘 + 1) ≤ (ϕ‘𝑁))
125	124	ad2antlr 489	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ 𝑥 ∈ (1...(𝑘 + 1))) → (𝑘 + 1) ≤ (ϕ‘𝑁))
126	116, 119, 120, 122, 125	letrd 8203	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ 𝑥 ∈ (1...(𝑘 + 1))) → 𝑥 ≤ (ϕ‘𝑁))
127		elfzuz 10150	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ (1...(𝑘 + 1)) → 𝑥 ∈ (ℤ_≥‘1))
128	42	ad2antrr 488	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ 𝑥 ∈ (1...(𝑘 + 1))) → (ϕ‘𝑁) ∈ ℤ)
129	127, 128, 101	syl2an2 594	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ 𝑥 ∈ (1...(𝑘 + 1))) → (𝑥 ∈ (1...(ϕ‘𝑁)) ↔ 𝑥 ≤ (ϕ‘𝑁)))
130	126, 129	mpbird 167	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ 𝑥 ∈ (1...(𝑘 + 1))) → 𝑥 ∈ (1...(ϕ‘𝑁)))
131	113, 130	ffvelcdmd 5723	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ 𝑥 ∈ (1...(𝑘 + 1))) → (𝐹‘𝑥) ∈ 𝑆)
132	35, 131	sselid 3192	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ 𝑥 ∈ (1...(𝑘 + 1))) → (𝐹‘𝑥) ∈ ℂ)
133		fveq2 5583	. . . . . . . . . . 11 ⊢ (𝑥 = (𝑘 + 1) → (𝐹‘𝑥) = (𝐹‘(𝑘 + 1)))
134	112, 132, 133	fprodp1 11955	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) → ∏𝑥 ∈ (1...(𝑘 + 1))(𝐹‘𝑥) = (∏𝑥 ∈ (1...𝑘)(𝐹‘𝑥) · (𝐹‘(𝑘 + 1))))
135	134	oveq2d 5967	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) → (𝑁 gcd ∏𝑥 ∈ (1...(𝑘 + 1))(𝐹‘𝑥)) = (𝑁 gcd (∏𝑥 ∈ (1...𝑘)(𝐹‘𝑥) · (𝐹‘(𝑘 + 1)))))
136	135	eqeq1d 2215	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) → ((𝑁 gcd ∏𝑥 ∈ (1...(𝑘 + 1))(𝐹‘𝑥)) = 1 ↔ (𝑁 gcd (∏𝑥 ∈ (1...𝑘)(𝐹‘𝑥) · (𝐹‘(𝑘 + 1)))) = 1))
137	136	adantr 276	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ (𝑁 gcd ∏𝑥 ∈ (1...𝑘)(𝐹‘𝑥)) = 1) → ((𝑁 gcd ∏𝑥 ∈ (1...(𝑘 + 1))(𝐹‘𝑥)) = 1 ↔ (𝑁 gcd (∏𝑥 ∈ (1...𝑘)(𝐹‘𝑥) · (𝐹‘(𝑘 + 1)))) = 1))
138	110, 137	mpbird 167	. . . . . 6 ⊢ (((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) ∧ (𝑁 gcd ∏𝑥 ∈ (1...𝑘)(𝐹‘𝑥)) = 1) → (𝑁 gcd ∏𝑥 ∈ (1...(𝑘 + 1))(𝐹‘𝑥)) = 1)
139	138	ex 115	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (1..^(ϕ‘𝑁))) → ((𝑁 gcd ∏𝑥 ∈ (1...𝑘)(𝐹‘𝑥)) = 1 → (𝑁 gcd ∏𝑥 ∈ (1...(𝑘 + 1))(𝐹‘𝑥)) = 1))
140	139	expcom 116	. . . 4 ⊢ (𝑘 ∈ (1..^(ϕ‘𝑁)) → (𝜑 → ((𝑁 gcd ∏𝑥 ∈ (1...𝑘)(𝐹‘𝑥)) = 1 → (𝑁 gcd ∏𝑥 ∈ (1...(𝑘 + 1))(𝐹‘𝑥)) = 1)))
141	140	a2d 26	. . 3 ⊢ (𝑘 ∈ (1..^(ϕ‘𝑁)) → ((𝜑 → (𝑁 gcd ∏𝑥 ∈ (1...𝑘)(𝐹‘𝑥)) = 1) → (𝜑 → (𝑁 gcd ∏𝑥 ∈ (1...(𝑘 + 1))(𝐹‘𝑥)) = 1)))
142	12, 17, 22, 27, 64, 141	fzind2 10375	. 2 ⊢ ((ϕ‘𝑁) ∈ (1...(ϕ‘𝑁)) → (𝜑 → (𝑁 gcd ∏𝑥 ∈ (1...(ϕ‘𝑁))(𝐹‘𝑥)) = 1))
143	7, 142	mpcom 36	1 ⊢ (𝜑 → (𝑁 gcd ∏𝑥 ∈ (1...(ϕ‘𝑁))(𝐹‘𝑥)) = 1)

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 104 ↔ wb 105 ∧ w3a 981 = wceq 1373 ∈ wcel 2177 {crab 2489 class class class wbr 4047 ⟶wf 5272 –1-1-onto→wf1o 5275 ‘cfv 5276 (class class class)co 5951 ℂcc 7930 ℝcr 7931 0cc0 7932 1c1 7933 + caddc 7935 · cmul 7937 < clt 8114 ≤ cle 8115 ℕcn 9043 ℕ₀cn0 9302 ℤcz 9379 ℤ_≥cuz 9655 ...cfz 10137 ..^cfzo 10271 ∏cprod 11905 gcd cgcd 12318 ϕcphi 12575

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-ia1 106 ax-ia2 107 ax-ia3 108 ax-in1 615 ax-in2 616 ax-io 711 ax-5 1471 ax-7 1472 ax-gen 1473 ax-ie1 1517 ax-ie2 1518 ax-8 1528 ax-10 1529 ax-11 1530 ax-i12 1531 ax-bndl 1533 ax-4 1534 ax-17 1550 ax-i9 1554 ax-ial 1558 ax-i5r 1559 ax-13 2179 ax-14 2180 ax-ext 2188 ax-coll 4163 ax-sep 4166 ax-nul 4174 ax-pow 4222 ax-pr 4257 ax-un 4484 ax-setind 4589 ax-iinf 4640 ax-cnex 8023 ax-resscn 8024 ax-1cn 8025 ax-1re 8026 ax-icn 8027 ax-addcl 8028 ax-addrcl 8029 ax-mulcl 8030 ax-mulrcl 8031 ax-addcom 8032 ax-mulcom 8033 ax-addass 8034 ax-mulass 8035 ax-distr 8036 ax-i2m1 8037 ax-0lt1 8038 ax-1rid 8039 ax-0id 8040 ax-rnegex 8041 ax-precex 8042 ax-cnre 8043 ax-pre-ltirr 8044 ax-pre-ltwlin 8045 ax-pre-lttrn 8046 ax-pre-apti 8047 ax-pre-ltadd 8048 ax-pre-mulgt0 8049 ax-pre-mulext 8050 ax-arch 8051 ax-caucvg 8052

This theorem depends on definitions: df-bi 117 df-dc 837 df-3or 982 df-3an 983 df-tru 1376 df-fal 1379 df-nf 1485 df-sb 1787 df-eu 2058 df-mo 2059 df-clab 2193 df-cleq 2199 df-clel 2202 df-nfc 2338 df-ne 2378 df-nel 2473 df-ral 2490 df-rex 2491 df-reu 2492 df-rmo 2493 df-rab 2494 df-v 2775 df-sbc 3000 df-csb 3095 df-dif 3169 df-un 3171 df-in 3173 df-ss 3180 df-nul 3462 df-if 3573 df-pw 3619 df-sn 3640 df-pr 3641 df-op 3643 df-uni 3853 df-int 3888 df-iun 3931 df-br 4048 df-opab 4110 df-mpt 4111 df-tr 4147 df-id 4344 df-po 4347 df-iso 4348 df-iord 4417 df-on 4419 df-ilim 4420 df-suc 4422 df-iom 4643 df-xp 4685 df-rel 4686 df-cnv 4687 df-co 4688 df-dm 4689 df-rn 4690 df-res 4691 df-ima 4692 df-iota 5237 df-fun 5278 df-fn 5279 df-f 5280 df-f1 5281 df-fo 5282 df-f1o 5283 df-fv 5284 df-isom 5285 df-riota 5906 df-ov 5954 df-oprab 5955 df-mpo 5956 df-1st 6233 df-2nd 6234 df-recs 6398 df-irdg 6463 df-frec 6484 df-1o 6509 df-oadd 6513 df-er 6627 df-en 6835 df-dom 6836 df-fin 6837 df-sup 7093 df-pnf 8116 df-mnf 8117 df-xr 8118 df-ltxr 8119 df-le 8120 df-sub 8252 df-neg 8253 df-reap 8655 df-ap 8662 df-div 8753 df-inn 9044 df-2 9102 df-3 9103 df-4 9104 df-n0 9303 df-z 9380 df-uz 9656 df-q 9748 df-rp 9783 df-fz 10138 df-fzo 10272 df-fl 10420 df-mod 10475 df-seqfrec 10600 df-exp 10691 df-ihash 10928 df-cj 11197 df-re 11198 df-im 11199 df-rsqrt 11353 df-abs 11354 df-clim 11634 df-proddc 11906 df-dvds 12143 df-gcd 12319 df-phi 12577

This theorem is referenced by: eulerthlemth 12598

W3C validator