lgsdilem2 - Intuitionistic Logic Explorer

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

Theorem lgsdilem2 15709

Description: Lemma for lgsdi 15710. (Contributed by Mario Carneiro, 4-Feb-2015.)

**Hypotheses**
Ref	Expression
lgsdilem2.1	⊢ (𝜑 → 𝐴 ∈ ℤ)
lgsdilem2.2	⊢ (𝜑 → 𝑀 ∈ ℤ)
lgsdilem2.3	⊢ (𝜑 → 𝑁 ∈ ℤ)
lgsdilem2.4	⊢ (𝜑 → 𝑀 ≠ 0)
lgsdilem2.5	⊢ (𝜑 → 𝑁 ≠ 0)
lgsdilem2.6	⊢ 𝐹 = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1))

**Assertion**
Ref	Expression
lgsdilem2	⊢ (𝜑 → (seq1( · , 𝐹)‘(abs‘𝑀)) = (seq1( · , 𝐹)‘(abs‘(𝑀 · 𝑁))))

Distinct variable groups: 𝑛,𝑀 𝐴,𝑛 𝑛,𝑁 Allowed substitution hints: 𝜑(𝑛) 𝐹(𝑛)

Proof of Theorem lgsdilem2 Dummy variables 𝑘 𝑣 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		mulrid 8139	. . 3 ⊢ (𝑘 ∈ ℂ → (𝑘 · 1) = 𝑘)
2	1	adantl 277	. 2 ⊢ ((𝜑 ∧ 𝑘 ∈ ℂ) → (𝑘 · 1) = 𝑘)
3		lgsdilem2.2	. . . 4 ⊢ (𝜑 → 𝑀 ∈ ℤ)
4		lgsdilem2.4	. . . 4 ⊢ (𝜑 → 𝑀 ≠ 0)
5		nnabscl 11606	. . . 4 ⊢ ((𝑀 ∈ ℤ ∧ 𝑀 ≠ 0) → (abs‘𝑀) ∈ ℕ)
6	3, 4, 5	syl2anc 411	. . 3 ⊢ (𝜑 → (abs‘𝑀) ∈ ℕ)
7		nnuz 9754	. . 3 ⊢ ℕ = (ℤ_≥‘1)
8	6, 7	eleqtrdi 2322	. 2 ⊢ (𝜑 → (abs‘𝑀) ∈ (ℤ_≥‘1))
9	6	nnzd 9564	. . 3 ⊢ (𝜑 → (abs‘𝑀) ∈ ℤ)
10		lgsdilem2.3	. . . . . 6 ⊢ (𝜑 → 𝑁 ∈ ℤ)
11	3, 10	zmulcld 9571	. . . . 5 ⊢ (𝜑 → (𝑀 · 𝑁) ∈ ℤ)
12	3	zcnd 9566	. . . . . . 7 ⊢ (𝜑 → 𝑀 ∈ ℂ)
13	10	zcnd 9566	. . . . . . 7 ⊢ (𝜑 → 𝑁 ∈ ℂ)
14		0z 9453	. . . . . . . . 9 ⊢ 0 ∈ ℤ
15		zapne 9517	. . . . . . . . 9 ⊢ ((𝑀 ∈ ℤ ∧ 0 ∈ ℤ) → (𝑀 # 0 ↔ 𝑀 ≠ 0))
16	3, 14, 15	sylancl 413	. . . . . . . 8 ⊢ (𝜑 → (𝑀 # 0 ↔ 𝑀 ≠ 0))
17	4, 16	mpbird 167	. . . . . . 7 ⊢ (𝜑 → 𝑀 # 0)
18		lgsdilem2.5	. . . . . . . 8 ⊢ (𝜑 → 𝑁 ≠ 0)
19		zapne 9517	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℤ ∧ 0 ∈ ℤ) → (𝑁 # 0 ↔ 𝑁 ≠ 0))
20	10, 14, 19	sylancl 413	. . . . . . . 8 ⊢ (𝜑 → (𝑁 # 0 ↔ 𝑁 ≠ 0))
21	18, 20	mpbird 167	. . . . . . 7 ⊢ (𝜑 → 𝑁 # 0)
22	12, 13, 17, 21	mulap0d 8801	. . . . . 6 ⊢ (𝜑 → (𝑀 · 𝑁) # 0)
23		zapne 9517	. . . . . . 7 ⊢ (((𝑀 · 𝑁) ∈ ℤ ∧ 0 ∈ ℤ) → ((𝑀 · 𝑁) # 0 ↔ (𝑀 · 𝑁) ≠ 0))
24	11, 14, 23	sylancl 413	. . . . . 6 ⊢ (𝜑 → ((𝑀 · 𝑁) # 0 ↔ (𝑀 · 𝑁) ≠ 0))
25	22, 24	mpbid 147	. . . . 5 ⊢ (𝜑 → (𝑀 · 𝑁) ≠ 0)
26		nnabscl 11606	. . . . 5 ⊢ (((𝑀 · 𝑁) ∈ ℤ ∧ (𝑀 · 𝑁) ≠ 0) → (abs‘(𝑀 · 𝑁)) ∈ ℕ)
27	11, 25, 26	syl2anc 411	. . . 4 ⊢ (𝜑 → (abs‘(𝑀 · 𝑁)) ∈ ℕ)
28	27	nnzd 9564	. . 3 ⊢ (𝜑 → (abs‘(𝑀 · 𝑁)) ∈ ℤ)
29	12	abscld 11687	. . . . 5 ⊢ (𝜑 → (abs‘𝑀) ∈ ℝ)
30	13	abscld 11687	. . . . 5 ⊢ (𝜑 → (abs‘𝑁) ∈ ℝ)
31	12	absge0d 11690	. . . . 5 ⊢ (𝜑 → 0 ≤ (abs‘𝑀))
32		nnabscl 11606	. . . . . . 7 ⊢ ((𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → (abs‘𝑁) ∈ ℕ)
33	10, 18, 32	syl2anc 411	. . . . . 6 ⊢ (𝜑 → (abs‘𝑁) ∈ ℕ)
34	33	nnge1d 9149	. . . . 5 ⊢ (𝜑 → 1 ≤ (abs‘𝑁))
35	29, 30, 31, 34	lemulge11d 9080	. . . 4 ⊢ (𝜑 → (abs‘𝑀) ≤ ((abs‘𝑀) · (abs‘𝑁)))
36	12, 13	absmuld 11700	. . . 4 ⊢ (𝜑 → (abs‘(𝑀 · 𝑁)) = ((abs‘𝑀) · (abs‘𝑁)))
37	35, 36	breqtrrd 4110	. . 3 ⊢ (𝜑 → (abs‘𝑀) ≤ (abs‘(𝑀 · 𝑁)))
38		eluz2 9724	. . 3 ⊢ ((abs‘(𝑀 · 𝑁)) ∈ (ℤ_≥‘(abs‘𝑀)) ↔ ((abs‘𝑀) ∈ ℤ ∧ (abs‘(𝑀 · 𝑁)) ∈ ℤ ∧ (abs‘𝑀) ≤ (abs‘(𝑀 · 𝑁))))
39	9, 28, 37, 38	syl3anbrc 1205	. 2 ⊢ (𝜑 → (abs‘(𝑀 · 𝑁)) ∈ (ℤ_≥‘(abs‘𝑀)))
40		1zzd 9469	. . . . 5 ⊢ (𝜑 → 1 ∈ ℤ)
41		lgsdilem2.1	. . . . . . 7 ⊢ (𝜑 → 𝐴 ∈ ℤ)
42		lgsdilem2.6	. . . . . . . 8 ⊢ 𝐹 = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1))
43	42	lgsfcl3 15694	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑀 ≠ 0) → 𝐹:ℕ⟶ℤ)
44	41, 3, 4, 43	syl3anc 1271	. . . . . 6 ⊢ (𝜑 → 𝐹:ℕ⟶ℤ)
45	44	ffvelcdmda 5769	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝐹‘𝑘) ∈ ℤ)
46		zmulcl 9496	. . . . . 6 ⊢ ((𝑘 ∈ ℤ ∧ 𝑣 ∈ ℤ) → (𝑘 · 𝑣) ∈ ℤ)
47	46	adantl 277	. . . . 5 ⊢ ((𝜑 ∧ (𝑘 ∈ ℤ ∧ 𝑣 ∈ ℤ)) → (𝑘 · 𝑣) ∈ ℤ)
48	7, 40, 45, 47	seqf 10681	. . . 4 ⊢ (𝜑 → seq1( · , 𝐹):ℕ⟶ℤ)
49	48, 6	ffvelcdmd 5770	. . 3 ⊢ (𝜑 → (seq1( · , 𝐹)‘(abs‘𝑀)) ∈ ℤ)
50	49	zcnd 9566	. 2 ⊢ (𝜑 → (seq1( · , 𝐹)‘(abs‘𝑀)) ∈ ℂ)
51		eleq1w 2290	. . . . 5 ⊢ (𝑛 = 𝑘 → (𝑛 ∈ ℙ ↔ 𝑘 ∈ ℙ))
52		oveq2 6008	. . . . . 6 ⊢ (𝑛 = 𝑘 → (𝐴 /_L 𝑛) = (𝐴 /_L 𝑘))
53		oveq1 6007	. . . . . 6 ⊢ (𝑛 = 𝑘 → (𝑛 pCnt 𝑀) = (𝑘 pCnt 𝑀))
54	52, 53	oveq12d 6018	. . . . 5 ⊢ (𝑛 = 𝑘 → ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)) = ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)))
55	51, 54	ifbieq1d 3625	. . . 4 ⊢ (𝑛 = 𝑘 → if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1) = if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)), 1))
56	6	peano2nnd 9121	. . . . 5 ⊢ (𝜑 → ((abs‘𝑀) + 1) ∈ ℕ)
57		elfzuz 10213	. . . . 5 ⊢ (𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁))) → 𝑘 ∈ (ℤ_≥‘((abs‘𝑀) + 1)))
58		eluznn 9791	. . . . 5 ⊢ ((((abs‘𝑀) + 1) ∈ ℕ ∧ 𝑘 ∈ (ℤ_≥‘((abs‘𝑀) + 1))) → 𝑘 ∈ ℕ)
59	56, 57, 58	syl2an 289	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) → 𝑘 ∈ ℕ)
60	41	ad2antrr 488	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) ∧ 𝑘 ∈ ℙ) → 𝐴 ∈ ℤ)
61		prmz 12628	. . . . . . . 8 ⊢ (𝑘 ∈ ℙ → 𝑘 ∈ ℤ)
62	61	adantl 277	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) ∧ 𝑘 ∈ ℙ) → 𝑘 ∈ ℤ)
63		lgscl 15687	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑘 ∈ ℤ) → (𝐴 /_L 𝑘) ∈ ℤ)
64	60, 62, 63	syl2anc 411	. . . . . 6 ⊢ (((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) ∧ 𝑘 ∈ ℙ) → (𝐴 /_L 𝑘) ∈ ℤ)
65		simpr 110	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) ∧ 𝑘 ∈ ℙ) → 𝑘 ∈ ℙ)
66	3	ad2antrr 488	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) ∧ 𝑘 ∈ ℙ) → 𝑀 ∈ ℤ)
67	4	ad2antrr 488	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) ∧ 𝑘 ∈ ℙ) → 𝑀 ≠ 0)
68		pczcl 12816	. . . . . . 7 ⊢ ((𝑘 ∈ ℙ ∧ (𝑀 ∈ ℤ ∧ 𝑀 ≠ 0)) → (𝑘 pCnt 𝑀) ∈ ℕ₀)
69	65, 66, 67, 68	syl12anc 1269	. . . . . 6 ⊢ (((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) ∧ 𝑘 ∈ ℙ) → (𝑘 pCnt 𝑀) ∈ ℕ₀)
70		zexpcl 10771	. . . . . 6 ⊢ (((𝐴 /_L 𝑘) ∈ ℤ ∧ (𝑘 pCnt 𝑀) ∈ ℕ₀) → ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)) ∈ ℤ)
71	64, 69, 70	syl2anc 411	. . . . 5 ⊢ (((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) ∧ 𝑘 ∈ ℙ) → ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)) ∈ ℤ)
72		1zzd 9469	. . . . 5 ⊢ (((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) ∧ ¬ 𝑘 ∈ ℙ) → 1 ∈ ℤ)
73		prmdc 12647	. . . . . 6 ⊢ (𝑘 ∈ ℕ → DECID 𝑘 ∈ ℙ)
74	59, 73	syl 14	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) → DECID 𝑘 ∈ ℙ)
75	71, 72, 74	ifcldadc 3632	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) → if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)), 1) ∈ ℤ)
76	42, 55, 59, 75	fvmptd3 5727	. . 3 ⊢ ((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) → (𝐹‘𝑘) = if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)), 1))
77		zq 9817	. . . . . . . . . 10 ⊢ (𝑀 ∈ ℤ → 𝑀 ∈ ℚ)
78	66, 77	syl 14	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) ∧ 𝑘 ∈ ℙ) → 𝑀 ∈ ℚ)
79		pcabs 12844	. . . . . . . . 9 ⊢ ((𝑘 ∈ ℙ ∧ 𝑀 ∈ ℚ) → (𝑘 pCnt (abs‘𝑀)) = (𝑘 pCnt 𝑀))
80	65, 78, 79	syl2anc 411	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) ∧ 𝑘 ∈ ℙ) → (𝑘 pCnt (abs‘𝑀)) = (𝑘 pCnt 𝑀))
81		elfzle1 10219	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁))) → ((abs‘𝑀) + 1) ≤ 𝑘)
82	81	adantl 277	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) → ((abs‘𝑀) + 1) ≤ 𝑘)
83		elfzelz 10217	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁))) → 𝑘 ∈ ℤ)
84		zltp1le 9497	. . . . . . . . . . . . . 14 ⊢ (((abs‘𝑀) ∈ ℤ ∧ 𝑘 ∈ ℤ) → ((abs‘𝑀) < 𝑘 ↔ ((abs‘𝑀) + 1) ≤ 𝑘))
85	9, 83, 84	syl2an 289	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) → ((abs‘𝑀) < 𝑘 ↔ ((abs‘𝑀) + 1) ≤ 𝑘))
86	82, 85	mpbird 167	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) → (abs‘𝑀) < 𝑘)
87		zltnle 9488	. . . . . . . . . . . . 13 ⊢ (((abs‘𝑀) ∈ ℤ ∧ 𝑘 ∈ ℤ) → ((abs‘𝑀) < 𝑘 ↔ ¬ 𝑘 ≤ (abs‘𝑀)))
88	9, 83, 87	syl2an 289	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) → ((abs‘𝑀) < 𝑘 ↔ ¬ 𝑘 ≤ (abs‘𝑀)))
89	86, 88	mpbid 147	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) → ¬ 𝑘 ≤ (abs‘𝑀))
90	89	adantr 276	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) ∧ 𝑘 ∈ ℙ) → ¬ 𝑘 ≤ (abs‘𝑀))
91	66, 67, 5	syl2anc 411	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) ∧ 𝑘 ∈ ℙ) → (abs‘𝑀) ∈ ℕ)
92		dvdsle 12350	. . . . . . . . . . 11 ⊢ ((𝑘 ∈ ℤ ∧ (abs‘𝑀) ∈ ℕ) → (𝑘 ∥ (abs‘𝑀) → 𝑘 ≤ (abs‘𝑀)))
93	62, 91, 92	syl2anc 411	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) ∧ 𝑘 ∈ ℙ) → (𝑘 ∥ (abs‘𝑀) → 𝑘 ≤ (abs‘𝑀)))
94	90, 93	mtod 667	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) ∧ 𝑘 ∈ ℙ) → ¬ 𝑘 ∥ (abs‘𝑀))
95		pceq0 12840	. . . . . . . . . 10 ⊢ ((𝑘 ∈ ℙ ∧ (abs‘𝑀) ∈ ℕ) → ((𝑘 pCnt (abs‘𝑀)) = 0 ↔ ¬ 𝑘 ∥ (abs‘𝑀)))
96	65, 91, 95	syl2anc 411	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) ∧ 𝑘 ∈ ℙ) → ((𝑘 pCnt (abs‘𝑀)) = 0 ↔ ¬ 𝑘 ∥ (abs‘𝑀)))
97	94, 96	mpbird 167	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) ∧ 𝑘 ∈ ℙ) → (𝑘 pCnt (abs‘𝑀)) = 0)
98	80, 97	eqtr3d 2264	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) ∧ 𝑘 ∈ ℙ) → (𝑘 pCnt 𝑀) = 0)
99	98	oveq2d 6016	. . . . . 6 ⊢ (((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) ∧ 𝑘 ∈ ℙ) → ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)) = ((𝐴 /_L 𝑘)↑0))
100	64	zcnd 9566	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) ∧ 𝑘 ∈ ℙ) → (𝐴 /_L 𝑘) ∈ ℂ)
101	100	exp0d 10884	. . . . . 6 ⊢ (((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) ∧ 𝑘 ∈ ℙ) → ((𝐴 /_L 𝑘)↑0) = 1)
102	99, 101	eqtrd 2262	. . . . 5 ⊢ (((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) ∧ 𝑘 ∈ ℙ) → ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)) = 1)
103	102, 74	ifeq1dadc 3633	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) → if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)), 1) = if(𝑘 ∈ ℙ, 1, 1))
104		ifiddc 3638	. . . . 5 ⊢ (DECID 𝑘 ∈ ℙ → if(𝑘 ∈ ℙ, 1, 1) = 1)
105	74, 104	syl 14	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) → if(𝑘 ∈ ℙ, 1, 1) = 1)
106	103, 105	eqtrd 2262	. . 3 ⊢ ((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) → if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)), 1) = 1)
107	76, 106	eqtrd 2262	. 2 ⊢ ((𝜑 ∧ 𝑘 ∈ (((abs‘𝑀) + 1)...(abs‘(𝑀 · 𝑁)))) → (𝐹‘𝑘) = 1)
108	44	adantr 276	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ (ℤ_≥‘1)) → 𝐹:ℕ⟶ℤ)
109		elnnuz 9755	. . . . . 6 ⊢ (𝑘 ∈ ℕ ↔ 𝑘 ∈ (ℤ_≥‘1))
110	109	biimpri 133	. . . . 5 ⊢ (𝑘 ∈ (ℤ_≥‘1) → 𝑘 ∈ ℕ)
111	110	adantl 277	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ (ℤ_≥‘1)) → 𝑘 ∈ ℕ)
112	108, 111	ffvelcdmd 5770	. . 3 ⊢ ((𝜑 ∧ 𝑘 ∈ (ℤ_≥‘1)) → (𝐹‘𝑘) ∈ ℤ)
113	112	zcnd 9566	. 2 ⊢ ((𝜑 ∧ 𝑘 ∈ (ℤ_≥‘1)) → (𝐹‘𝑘) ∈ ℂ)
114		mulcl 8122	. . 3 ⊢ ((𝑘 ∈ ℂ ∧ 𝑣 ∈ ℂ) → (𝑘 · 𝑣) ∈ ℂ)
115	114	adantl 277	. 2 ⊢ ((𝜑 ∧ (𝑘 ∈ ℂ ∧ 𝑣 ∈ ℂ)) → (𝑘 · 𝑣) ∈ ℂ)
116	2, 8, 39, 50, 107, 113, 115	seq3id2 10743	1 ⊢ (𝜑 → (seq1( · , 𝐹)‘(abs‘𝑀)) = (seq1( · , 𝐹)‘(abs‘(𝑀 · 𝑁))))

Colors of variables: wff set class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 104 ↔ wb 105 DECID wdc 839 = wceq 1395 ∈ wcel 2200 ≠ wne 2400 ifcif 3602 class class class wbr 4082 ↦ cmpt 4144 ⟶wf 5313 ‘cfv 5317 (class class class)co 6000 ℂcc 7993 0cc0 7995 1c1 7996 + caddc 7998 · cmul 8000 < clt 8177 ≤ cle 8178 # cap 8724 ℕcn 9106 ℕ₀cn0 9365 ℤcz 9442 ℤ_≥cuz 9718 ℚcq 9810 ...cfz 10200 seqcseq 10664 ↑cexp 10755 abscabs 11503 ∥ cdvds 12293 ℙcprime 12624 pCnt cpc 12802 /_L clgs 15670

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 617 ax-in2 618 ax-io 714 ax-5 1493 ax-7 1494 ax-gen 1495 ax-ie1 1539 ax-ie2 1540 ax-8 1550 ax-10 1551 ax-11 1552 ax-i12 1553 ax-bndl 1555 ax-4 1556 ax-17 1572 ax-i9 1576 ax-ial 1580 ax-i5r 1581 ax-13 2202 ax-14 2203 ax-ext 2211 ax-coll 4198 ax-sep 4201 ax-nul 4209 ax-pow 4257 ax-pr 4292 ax-un 4523 ax-setind 4628 ax-iinf 4679 ax-cnex 8086 ax-resscn 8087 ax-1cn 8088 ax-1re 8089 ax-icn 8090 ax-addcl 8091 ax-addrcl 8092 ax-mulcl 8093 ax-mulrcl 8094 ax-addcom 8095 ax-mulcom 8096 ax-addass 8097 ax-mulass 8098 ax-distr 8099 ax-i2m1 8100 ax-0lt1 8101 ax-1rid 8102 ax-0id 8103 ax-rnegex 8104 ax-precex 8105 ax-cnre 8106 ax-pre-ltirr 8107 ax-pre-ltwlin 8108 ax-pre-lttrn 8109 ax-pre-apti 8110 ax-pre-ltadd 8111 ax-pre-mulgt0 8112 ax-pre-mulext 8113 ax-arch 8114 ax-caucvg 8115

This theorem depends on definitions: df-bi 117 df-stab 836 df-dc 840 df-3or 1003 df-3an 1004 df-tru 1398 df-fal 1401 df-xor 1418 df-nf 1507 df-sb 1809 df-eu 2080 df-mo 2081 df-clab 2216 df-cleq 2222 df-clel 2225 df-nfc 2361 df-ne 2401 df-nel 2496 df-ral 2513 df-rex 2514 df-reu 2515 df-rmo 2516 df-rab 2517 df-v 2801 df-sbc 3029 df-csb 3125 df-dif 3199 df-un 3201 df-in 3203 df-ss 3210 df-nul 3492 df-if 3603 df-pw 3651 df-sn 3672 df-pr 3673 df-op 3675 df-uni 3888 df-int 3923 df-iun 3966 df-br 4083 df-opab 4145 df-mpt 4146 df-tr 4182 df-id 4383 df-po 4386 df-iso 4387 df-iord 4456 df-on 4458 df-ilim 4459 df-suc 4461 df-iom 4682 df-xp 4724 df-rel 4725 df-cnv 4726 df-co 4727 df-dm 4728 df-rn 4729 df-res 4730 df-ima 4731 df-iota 5277 df-fun 5319 df-fn 5320 df-f 5321 df-f1 5322 df-fo 5323 df-f1o 5324 df-fv 5325 df-isom 5326 df-riota 5953 df-ov 6003 df-oprab 6004 df-mpo 6005 df-1st 6284 df-2nd 6285 df-recs 6449 df-irdg 6514 df-frec 6535 df-1o 6560 df-2o 6561 df-oadd 6564 df-er 6678 df-en 6886 df-dom 6887 df-fin 6888 df-sup 7147 df-inf 7148 df-pnf 8179 df-mnf 8180 df-xr 8181 df-ltxr 8182 df-le 8183 df-sub 8315 df-neg 8316 df-reap 8718 df-ap 8725 df-div 8816 df-inn 9107 df-2 9165 df-3 9166 df-4 9167 df-5 9168 df-6 9169 df-7 9170 df-8 9171 df-n0 9366 df-z 9443 df-uz 9719 df-q 9811 df-rp 9846 df-fz 10201 df-fzo 10335 df-fl 10485 df-mod 10540 df-seqfrec 10665 df-exp 10756 df-ihash 10993 df-cj 11348 df-re 11349 df-im 11350 df-rsqrt 11504 df-abs 11505 df-clim 11785 df-proddc 12057 df-dvds 12294 df-gcd 12470 df-prm 12625 df-phi 12728 df-pc 12803 df-lgs 15671

This theorem is referenced by: lgsdi 15710

W3C validator