lgsdi - Intuitionistic Logic Explorer

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

Theorem lgsdi 16070

Description: The Legendre symbol is completely multiplicative in its right argument. Generalization of theorem 9.9(b) in [ApostolNT] p. 188 (which assumes that 𝑀 and 𝑁 are odd positive integers). (Contributed by Mario Carneiro, 5-Feb-2015.)

**Assertion**
Ref	Expression
lgsdi	⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → (𝐴 /_L (𝑀 · 𝑁)) = ((𝐴 /_L 𝑀) · (𝐴 /_L 𝑁)))

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

Step	Hyp	Ref	Expression
1		3anrot 1014	. . . . 5 ⊢ ((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ↔ (𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝐴 ∈ ℤ))
2		lgsdilem 16060	. . . . 5 ⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝐴 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → if((𝐴 < 0 ∧ (𝑀 · 𝑁) < 0), -1, 1) = (if((𝐴 < 0 ∧ 𝑀 < 0), -1, 1) · if((𝐴 < 0 ∧ 𝑁 < 0), -1, 1)))
3	1, 2	sylanb 284	. . . 4 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → if((𝐴 < 0 ∧ (𝑀 · 𝑁) < 0), -1, 1) = (if((𝐴 < 0 ∧ 𝑀 < 0), -1, 1) · if((𝐴 < 0 ∧ 𝑁 < 0), -1, 1)))
4		ancom 266	. . . . 5 ⊢ (((𝑀 · 𝑁) < 0 ∧ 𝐴 < 0) ↔ (𝐴 < 0 ∧ (𝑀 · 𝑁) < 0))
5		ifbi 3658	. . . . 5 ⊢ ((((𝑀 · 𝑁) < 0 ∧ 𝐴 < 0) ↔ (𝐴 < 0 ∧ (𝑀 · 𝑁) < 0)) → if(((𝑀 · 𝑁) < 0 ∧ 𝐴 < 0), -1, 1) = if((𝐴 < 0 ∧ (𝑀 · 𝑁) < 0), -1, 1))
6	4, 5	ax-mp 5	. . . 4 ⊢ if(((𝑀 · 𝑁) < 0 ∧ 𝐴 < 0), -1, 1) = if((𝐴 < 0 ∧ (𝑀 · 𝑁) < 0), -1, 1)
7		ancom 266	. . . . . 6 ⊢ ((𝑀 < 0 ∧ 𝐴 < 0) ↔ (𝐴 < 0 ∧ 𝑀 < 0))
8		ifbi 3658	. . . . . 6 ⊢ (((𝑀 < 0 ∧ 𝐴 < 0) ↔ (𝐴 < 0 ∧ 𝑀 < 0)) → if((𝑀 < 0 ∧ 𝐴 < 0), -1, 1) = if((𝐴 < 0 ∧ 𝑀 < 0), -1, 1))
9	7, 8	ax-mp 5	. . . . 5 ⊢ if((𝑀 < 0 ∧ 𝐴 < 0), -1, 1) = if((𝐴 < 0 ∧ 𝑀 < 0), -1, 1)
10		ancom 266	. . . . . 6 ⊢ ((𝑁 < 0 ∧ 𝐴 < 0) ↔ (𝐴 < 0 ∧ 𝑁 < 0))
11		ifbi 3658	. . . . . 6 ⊢ (((𝑁 < 0 ∧ 𝐴 < 0) ↔ (𝐴 < 0 ∧ 𝑁 < 0)) → if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) = if((𝐴 < 0 ∧ 𝑁 < 0), -1, 1))
12	10, 11	ax-mp 5	. . . . 5 ⊢ if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) = if((𝐴 < 0 ∧ 𝑁 < 0), -1, 1)
13	9, 12	oveq12i 6087	. . . 4 ⊢ (if((𝑀 < 0 ∧ 𝐴 < 0), -1, 1) · if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1)) = (if((𝐴 < 0 ∧ 𝑀 < 0), -1, 1) · if((𝐴 < 0 ∧ 𝑁 < 0), -1, 1))
14	3, 6, 13	3eqtr4g 2296	. . 3 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → if(((𝑀 · 𝑁) < 0 ∧ 𝐴 < 0), -1, 1) = (if((𝑀 < 0 ∧ 𝐴 < 0), -1, 1) · if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1)))
15		simpl2 1032	. . . . . . . 8 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → 𝑀 ∈ ℤ)
16		simpl3 1033	. . . . . . . 8 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → 𝑁 ∈ ℤ)
17	15, 16	zmulcld 9753	. . . . . . 7 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → (𝑀 · 𝑁) ∈ ℤ)
18	15	zcnd 9748	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → 𝑀 ∈ ℂ)
19	16	zcnd 9748	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → 𝑁 ∈ ℂ)
20		simprl 535	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → 𝑀 ≠ 0)
21		0z 9634	. . . . . . . . . . 11 ⊢ 0 ∈ ℤ
22		zapne 9698	. . . . . . . . . . 11 ⊢ ((𝑀 ∈ ℤ ∧ 0 ∈ ℤ) → (𝑀 # 0 ↔ 𝑀 ≠ 0))
23	15, 21, 22	sylancl 417	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → (𝑀 # 0 ↔ 𝑀 ≠ 0))
24	20, 23	mpbird 167	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → 𝑀 # 0)
25		simprr 537	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → 𝑁 ≠ 0)
26		zapne 9698	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℤ ∧ 0 ∈ ℤ) → (𝑁 # 0 ↔ 𝑁 ≠ 0))
27	16, 21, 26	sylancl 417	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → (𝑁 # 0 ↔ 𝑁 ≠ 0))
28	25, 27	mpbird 167	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → 𝑁 # 0)
29	18, 19, 24, 28	mulap0d 8976	. . . . . . . 8 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → (𝑀 · 𝑁) # 0)
30		zapne 9698	. . . . . . . . 9 ⊢ (((𝑀 · 𝑁) ∈ ℤ ∧ 0 ∈ ℤ) → ((𝑀 · 𝑁) # 0 ↔ (𝑀 · 𝑁) ≠ 0))
31	17, 21, 30	sylancl 417	. . . . . . . 8 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → ((𝑀 · 𝑁) # 0 ↔ (𝑀 · 𝑁) ≠ 0))
32	29, 31	mpbid 147	. . . . . . 7 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → (𝑀 · 𝑁) ≠ 0)
33		nnabscl 11844	. . . . . . 7 ⊢ (((𝑀 · 𝑁) ∈ ℤ ∧ (𝑀 · 𝑁) ≠ 0) → (abs‘(𝑀 · 𝑁)) ∈ ℕ)
34	17, 32, 33	syl2anc 415	. . . . . 6 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → (abs‘(𝑀 · 𝑁)) ∈ ℕ)
35		nnuz 9937	. . . . . 6 ⊢ ℕ = (ℤ_≥‘1)
36	34, 35	eleqtrdi 2331	. . . . 5 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → (abs‘(𝑀 · 𝑁)) ∈ (ℤ_≥‘1))
37		simpl1 1031	. . . . . . . 8 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → 𝐴 ∈ ℤ)
38		eqid 2238	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1)) = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1))
39	38	lgsfcl3 16054	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑀 ≠ 0) → (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1)):ℕ⟶ℤ)
40	37, 15, 20, 39	syl3anc 1278	. . . . . . 7 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1)):ℕ⟶ℤ)
41		elnnuz 9938	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ ↔ 𝑘 ∈ (ℤ_≥‘1))
42	41	biimpri 133	. . . . . . 7 ⊢ (𝑘 ∈ (ℤ_≥‘1) → 𝑘 ∈ ℕ)
43		ffvelcdm 5832	. . . . . . 7 ⊢ (((𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1)):ℕ⟶ℤ ∧ 𝑘 ∈ ℕ) → ((𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1))‘𝑘) ∈ ℤ)
44	40, 42, 43	syl2an 289	. . . . . 6 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) → ((𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1))‘𝑘) ∈ ℤ)
45	44	zcnd 9748	. . . . 5 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) → ((𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1))‘𝑘) ∈ ℂ)
46		eqid 2238	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)) = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1))
47	46	lgsfcl3 16054	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)):ℕ⟶ℤ)
48	37, 16, 25, 47	syl3anc 1278	. . . . . . 7 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)):ℕ⟶ℤ)
49		ffvelcdm 5832	. . . . . . 7 ⊢ (((𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)):ℕ⟶ℤ ∧ 𝑘 ∈ ℕ) → ((𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1))‘𝑘) ∈ ℤ)
50	48, 42, 49	syl2an 289	. . . . . 6 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) → ((𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1))‘𝑘) ∈ ℤ)
51	50	zcnd 9748	. . . . 5 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) → ((𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1))‘𝑘) ∈ ℂ)
52		simpr 110	. . . . . . . . . . 11 ⊢ (((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 ∈ ℙ) → 𝑘 ∈ ℙ)
53	15	ad2antrr 492	. . . . . . . . . . 11 ⊢ (((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 ∈ ℙ) → 𝑀 ∈ ℤ)
54	20	ad2antrr 492	. . . . . . . . . . 11 ⊢ (((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 ∈ ℙ) → 𝑀 ≠ 0)
55	16	ad2antrr 492	. . . . . . . . . . 11 ⊢ (((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 ∈ ℙ) → 𝑁 ∈ ℤ)
56	25	ad2antrr 492	. . . . . . . . . . 11 ⊢ (((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 ∈ ℙ) → 𝑁 ≠ 0)
57		pcmul 13058	. . . . . . . . . . 11 ⊢ ((𝑘 ∈ ℙ ∧ (𝑀 ∈ ℤ ∧ 𝑀 ≠ 0) ∧ (𝑁 ∈ ℤ ∧ 𝑁 ≠ 0)) → (𝑘 pCnt (𝑀 · 𝑁)) = ((𝑘 pCnt 𝑀) + (𝑘 pCnt 𝑁)))
58	52, 53, 54, 55, 56, 57	syl122anc 1287	. . . . . . . . . 10 ⊢ (((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 ∈ ℙ) → (𝑘 pCnt (𝑀 · 𝑁)) = ((𝑘 pCnt 𝑀) + (𝑘 pCnt 𝑁)))
59	58	oveq2d 6091	. . . . . . . . 9 ⊢ (((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 ∈ ℙ) → ((𝐴 /_L 𝑘)↑(𝑘 pCnt (𝑀 · 𝑁))) = ((𝐴 /_L 𝑘)↑((𝑘 pCnt 𝑀) + (𝑘 pCnt 𝑁))))
60	37	ad2antrr 492	. . . . . . . . . . . 12 ⊢ (((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 ∈ ℙ) → 𝐴 ∈ ℤ)
61		prmz 12867	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℙ → 𝑘 ∈ ℤ)
62	61	adantl 277	. . . . . . . . . . . 12 ⊢ (((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 ∈ ℙ) → 𝑘 ∈ ℤ)
63		lgscl 16047	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ 𝑘 ∈ ℤ) → (𝐴 /_L 𝑘) ∈ ℤ)
64	60, 62, 63	syl2anc 415	. . . . . . . . . . 11 ⊢ (((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 ∈ ℙ) → (𝐴 /_L 𝑘) ∈ ℤ)
65	64	zcnd 9748	. . . . . . . . . 10 ⊢ (((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 ∈ ℙ) → (𝐴 /_L 𝑘) ∈ ℂ)
66		pczcl 13055	. . . . . . . . . . 11 ⊢ ((𝑘 ∈ ℙ ∧ (𝑁 ∈ ℤ ∧ 𝑁 ≠ 0)) → (𝑘 pCnt 𝑁) ∈ ℕ₀)
67	52, 55, 56, 66	syl12anc 1276	. . . . . . . . . 10 ⊢ (((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 ∈ ℙ) → (𝑘 pCnt 𝑁) ∈ ℕ₀)
68		pczcl 13055	. . . . . . . . . . 11 ⊢ ((𝑘 ∈ ℙ ∧ (𝑀 ∈ ℤ ∧ 𝑀 ≠ 0)) → (𝑘 pCnt 𝑀) ∈ ℕ₀)
69	52, 53, 54, 68	syl12anc 1276	. . . . . . . . . 10 ⊢ (((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 ∈ ℙ) → (𝑘 pCnt 𝑀) ∈ ℕ₀)
70	65, 67, 69	expaddd 11091	. . . . . . . . 9 ⊢ (((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 ∈ ℙ) → ((𝐴 /_L 𝑘)↑((𝑘 pCnt 𝑀) + (𝑘 pCnt 𝑁))) = (((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)) · ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑁))))
71	59, 70	eqtrd 2271	. . . . . . . 8 ⊢ (((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 ∈ ℙ) → ((𝐴 /_L 𝑘)↑(𝑘 pCnt (𝑀 · 𝑁))) = (((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)) · ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑁))))
72		iftrue 3642	. . . . . . . . 9 ⊢ (𝑘 ∈ ℙ → if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt (𝑀 · 𝑁))), 1) = ((𝐴 /_L 𝑘)↑(𝑘 pCnt (𝑀 · 𝑁))))
73	72	adantl 277	. . . . . . . 8 ⊢ (((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 ∈ ℙ) → if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt (𝑀 · 𝑁))), 1) = ((𝐴 /_L 𝑘)↑(𝑘 pCnt (𝑀 · 𝑁))))
74		iftrue 3642	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℙ → if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)), 1) = ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)))
75		iftrue 3642	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℙ → if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑁)), 1) = ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑁)))
76	74, 75	oveq12d 6093	. . . . . . . . 9 ⊢ (𝑘 ∈ ℙ → (if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)), 1) · if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑁)), 1)) = (((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)) · ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑁))))
77	76	adantl 277	. . . . . . . 8 ⊢ (((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 ∈ ℙ) → (if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)), 1) · if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑁)), 1)) = (((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)) · ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑁))))
78	71, 73, 77	3eqtr4rd 2282	. . . . . . 7 ⊢ (((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 ∈ ℙ) → (if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)), 1) · if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑁)), 1)) = if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt (𝑀 · 𝑁))), 1))
79		1t1e1 9436	. . . . . . . . 9 ⊢ (1 · 1) = 1
80		iffalse 3645	. . . . . . . . . 10 ⊢ (¬ 𝑘 ∈ ℙ → if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)), 1) = 1)
81		iffalse 3645	. . . . . . . . . 10 ⊢ (¬ 𝑘 ∈ ℙ → if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑁)), 1) = 1)
82	80, 81	oveq12d 6093	. . . . . . . . 9 ⊢ (¬ 𝑘 ∈ ℙ → (if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)), 1) · if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑁)), 1)) = (1 · 1))
83		iffalse 3645	. . . . . . . . 9 ⊢ (¬ 𝑘 ∈ ℙ → if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt (𝑀 · 𝑁))), 1) = 1)
84	79, 82, 83	3eqtr4a 2297	. . . . . . . 8 ⊢ (¬ 𝑘 ∈ ℙ → (if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)), 1) · if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑁)), 1)) = if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt (𝑀 · 𝑁))), 1))
85	84	adantl 277	. . . . . . 7 ⊢ (((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ ¬ 𝑘 ∈ ℙ) → (if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)), 1) · if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑁)), 1)) = if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt (𝑀 · 𝑁))), 1))
86		prmdc 12886	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → DECID 𝑘 ∈ ℙ)
87		exmiddc 848	. . . . . . . . . 10 ⊢ (DECID 𝑘 ∈ ℙ → (𝑘 ∈ ℙ ∨ ¬ 𝑘 ∈ ℙ))
88	86, 87	syl 14	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (𝑘 ∈ ℙ ∨ ¬ 𝑘 ∈ ℙ))
89	42, 88	syl 14	. . . . . . . 8 ⊢ (𝑘 ∈ (ℤ_≥‘1) → (𝑘 ∈ ℙ ∨ ¬ 𝑘 ∈ ℙ))
90	89	adantl 277	. . . . . . 7 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) → (𝑘 ∈ ℙ ∨ ¬ 𝑘 ∈ ℙ))
91	78, 85, 90	mpjaodan 810	. . . . . 6 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) → (if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)), 1) · if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑁)), 1)) = if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt (𝑀 · 𝑁))), 1))
92		eleq1w 2299	. . . . . . . . 9 ⊢ (𝑛 = 𝑘 → (𝑛 ∈ ℙ ↔ 𝑘 ∈ ℙ))
93		oveq2 6083	. . . . . . . . . 10 ⊢ (𝑛 = 𝑘 → (𝐴 /_L 𝑛) = (𝐴 /_L 𝑘))
94		oveq1 6082	. . . . . . . . . 10 ⊢ (𝑛 = 𝑘 → (𝑛 pCnt 𝑀) = (𝑘 pCnt 𝑀))
95	93, 94	oveq12d 6093	. . . . . . . . 9 ⊢ (𝑛 = 𝑘 → ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)) = ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)))
96	92, 95	ifbieq1d 3660	. . . . . . . 8 ⊢ (𝑛 = 𝑘 → if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1) = if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)), 1))
97	42	adantl 277	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) → 𝑘 ∈ ℕ)
98		zexpcl 10969	. . . . . . . . . 10 ⊢ (((𝐴 /_L 𝑘) ∈ ℤ ∧ (𝑘 pCnt 𝑀) ∈ ℕ₀) → ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)) ∈ ℤ)
99	64, 69, 98	syl2anc 415	. . . . . . . . 9 ⊢ (((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 ∈ ℙ) → ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)) ∈ ℤ)
100		1zzd 9650	. . . . . . . . 9 ⊢ (((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ ¬ 𝑘 ∈ ℙ) → 1 ∈ ℤ)
101	97, 86	syl 14	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) → DECID 𝑘 ∈ ℙ)
102	99, 100, 101	ifcldadc 3667	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) → if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)), 1) ∈ ℤ)
103	38, 96, 97, 102	fvmptd3 5793	. . . . . . 7 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) → ((𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1))‘𝑘) = if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)), 1))
104		oveq1 6082	. . . . . . . . . 10 ⊢ (𝑛 = 𝑘 → (𝑛 pCnt 𝑁) = (𝑘 pCnt 𝑁))
105	93, 104	oveq12d 6093	. . . . . . . . 9 ⊢ (𝑛 = 𝑘 → ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)) = ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑁)))
106	92, 105	ifbieq1d 3660	. . . . . . . 8 ⊢ (𝑛 = 𝑘 → if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1) = if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑁)), 1))
107		zexpcl 10969	. . . . . . . . . 10 ⊢ (((𝐴 /_L 𝑘) ∈ ℤ ∧ (𝑘 pCnt 𝑁) ∈ ℕ₀) → ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑁)) ∈ ℤ)
108	64, 67, 107	syl2anc 415	. . . . . . . . 9 ⊢ (((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 ∈ ℙ) → ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑁)) ∈ ℤ)
109	108, 100, 101	ifcldadc 3667	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) → if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑁)), 1) ∈ ℤ)
110	46, 106, 97, 109	fvmptd3 5793	. . . . . . 7 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) → ((𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1))‘𝑘) = if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑁)), 1))
111	103, 110	oveq12d 6093	. . . . . 6 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) → (((𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1))‘𝑘) · ((𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1))‘𝑘)) = (if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑀)), 1) · if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt 𝑁)), 1)))
112		eqid 2238	. . . . . . 7 ⊢ (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt (𝑀 · 𝑁))), 1)) = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt (𝑀 · 𝑁))), 1))
113		oveq1 6082	. . . . . . . . 9 ⊢ (𝑛 = 𝑘 → (𝑛 pCnt (𝑀 · 𝑁)) = (𝑘 pCnt (𝑀 · 𝑁)))
114	93, 113	oveq12d 6093	. . . . . . . 8 ⊢ (𝑛 = 𝑘 → ((𝐴 /_L 𝑛)↑(𝑛 pCnt (𝑀 · 𝑁))) = ((𝐴 /_L 𝑘)↑(𝑘 pCnt (𝑀 · 𝑁))))
115	92, 114	ifbieq1d 3660	. . . . . . 7 ⊢ (𝑛 = 𝑘 → if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt (𝑀 · 𝑁))), 1) = if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt (𝑀 · 𝑁))), 1))
116	17	ad2antrr 492	. . . . . . . . . 10 ⊢ (((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 ∈ ℙ) → (𝑀 · 𝑁) ∈ ℤ)
117	32	ad2antrr 492	. . . . . . . . . 10 ⊢ (((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 ∈ ℙ) → (𝑀 · 𝑁) ≠ 0)
118		pczcl 13055	. . . . . . . . . 10 ⊢ ((𝑘 ∈ ℙ ∧ ((𝑀 · 𝑁) ∈ ℤ ∧ (𝑀 · 𝑁) ≠ 0)) → (𝑘 pCnt (𝑀 · 𝑁)) ∈ ℕ₀)
119	52, 116, 117, 118	syl12anc 1276	. . . . . . . . 9 ⊢ (((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 ∈ ℙ) → (𝑘 pCnt (𝑀 · 𝑁)) ∈ ℕ₀)
120		zexpcl 10969	. . . . . . . . 9 ⊢ (((𝐴 /_L 𝑘) ∈ ℤ ∧ (𝑘 pCnt (𝑀 · 𝑁)) ∈ ℕ₀) → ((𝐴 /_L 𝑘)↑(𝑘 pCnt (𝑀 · 𝑁))) ∈ ℤ)
121	64, 119, 120	syl2anc 415	. . . . . . . 8 ⊢ (((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 ∈ ℙ) → ((𝐴 /_L 𝑘)↑(𝑘 pCnt (𝑀 · 𝑁))) ∈ ℤ)
122	121, 100, 101	ifcldadc 3667	. . . . . . 7 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) → if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt (𝑀 · 𝑁))), 1) ∈ ℤ)
123	112, 115, 97, 122	fvmptd3 5793	. . . . . 6 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) → ((𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt (𝑀 · 𝑁))), 1))‘𝑘) = if(𝑘 ∈ ℙ, ((𝐴 /_L 𝑘)↑(𝑘 pCnt (𝑀 · 𝑁))), 1))
124	91, 111, 123	3eqtr4rd 2282	. . . . 5 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ (ℤ_≥‘1)) → ((𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt (𝑀 · 𝑁))), 1))‘𝑘) = (((𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1))‘𝑘) · ((𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1))‘𝑘)))
125	36, 45, 51, 124	prod3fmul 12286	. . . 4 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt (𝑀 · 𝑁))), 1)))‘(abs‘(𝑀 · 𝑁))) = ((seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1)))‘(abs‘(𝑀 · 𝑁))) · (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘(abs‘(𝑀 · 𝑁)))))
126	37, 15, 16, 20, 25, 38	lgsdilem2 16069	. . . . 5 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1)))‘(abs‘𝑀)) = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1)))‘(abs‘(𝑀 · 𝑁))))
127	37, 16, 15, 25, 20, 46	lgsdilem2 16069	. . . . . 6 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘(abs‘𝑁)) = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘(abs‘(𝑁 · 𝑀))))
128	18, 19	mulcomd 8337	. . . . . . . 8 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → (𝑀 · 𝑁) = (𝑁 · 𝑀))
129	128	fveq2d 5694	. . . . . . 7 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → (abs‘(𝑀 · 𝑁)) = (abs‘(𝑁 · 𝑀)))
130	129	fveq2d 5694	. . . . . 6 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘(abs‘(𝑀 · 𝑁))) = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘(abs‘(𝑁 · 𝑀))))
131	127, 130	eqtr4d 2274	. . . . 5 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘(abs‘𝑁)) = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘(abs‘(𝑀 · 𝑁))))
132	126, 131	oveq12d 6093	. . . 4 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → ((seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1)))‘(abs‘𝑀)) · (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘(abs‘𝑁))) = ((seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1)))‘(abs‘(𝑀 · 𝑁))) · (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘(abs‘(𝑀 · 𝑁)))))
133	125, 132	eqtr4d 2274	. . 3 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt (𝑀 · 𝑁))), 1)))‘(abs‘(𝑀 · 𝑁))) = ((seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1)))‘(abs‘𝑀)) · (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘(abs‘𝑁))))
134	14, 133	oveq12d 6093	. 2 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → (if(((𝑀 · 𝑁) < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt (𝑀 · 𝑁))), 1)))‘(abs‘(𝑀 · 𝑁)))) = ((if((𝑀 < 0 ∧ 𝐴 < 0), -1, 1) · if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1)) · ((seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1)))‘(abs‘𝑀)) · (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘(abs‘𝑁)))))
135	112	lgsval4 16053	. . 3 ⊢ ((𝐴 ∈ ℤ ∧ (𝑀 · 𝑁) ∈ ℤ ∧ (𝑀 · 𝑁) ≠ 0) → (𝐴 /_L (𝑀 · 𝑁)) = (if(((𝑀 · 𝑁) < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt (𝑀 · 𝑁))), 1)))‘(abs‘(𝑀 · 𝑁)))))
136	37, 17, 32, 135	syl3anc 1278	. 2 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → (𝐴 /_L (𝑀 · 𝑁)) = (if(((𝑀 · 𝑁) < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt (𝑀 · 𝑁))), 1)))‘(abs‘(𝑀 · 𝑁)))))
137	38	lgsval4 16053	. . . . 5 ⊢ ((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑀 ≠ 0) → (𝐴 /_L 𝑀) = (if((𝑀 < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1)))‘(abs‘𝑀))))
138	37, 15, 20, 137	syl3anc 1278	. . . 4 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → (𝐴 /_L 𝑀) = (if((𝑀 < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1)))‘(abs‘𝑀))))
139	46	lgsval4 16053	. . . . 5 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → (𝐴 /_L 𝑁) = (if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘(abs‘𝑁))))
140	37, 16, 25, 139	syl3anc 1278	. . . 4 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → (𝐴 /_L 𝑁) = (if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘(abs‘𝑁))))
141	138, 140	oveq12d 6093	. . 3 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → ((𝐴 /_L 𝑀) · (𝐴 /_L 𝑁)) = ((if((𝑀 < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1)))‘(abs‘𝑀))) · (if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘(abs‘𝑁)))))
142		neg1z 9655	. . . . . . 7 ⊢ -1 ∈ ℤ
143	142	a1i 9	. . . . . 6 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → -1 ∈ ℤ)
144		1zzd 9650	. . . . . 6 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → 1 ∈ ℤ)
145		zdclt 9701	. . . . . . . 8 ⊢ ((𝑀 ∈ ℤ ∧ 0 ∈ ℤ) → DECID 𝑀 < 0)
146	15, 21, 145	sylancl 417	. . . . . . 7 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → DECID 𝑀 < 0)
147		zdclt 9701	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 0 ∈ ℤ) → DECID 𝐴 < 0)
148	37, 21, 147	sylancl 417	. . . . . . 7 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → DECID 𝐴 < 0)
149		dcan2 947	. . . . . . 7 ⊢ (DECID 𝑀 < 0 → (DECID 𝐴 < 0 → DECID (𝑀 < 0 ∧ 𝐴 < 0)))
150	146, 148, 149	sylc 62	. . . . . 6 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → DECID (𝑀 < 0 ∧ 𝐴 < 0))
151	143, 144, 150	ifcldcd 3675	. . . . 5 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → if((𝑀 < 0 ∧ 𝐴 < 0), -1, 1) ∈ ℤ)
152	151	zcnd 9748	. . . 4 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → if((𝑀 < 0 ∧ 𝐴 < 0), -1, 1) ∈ ℂ)
153	40	ffvelcdmda 5834	. . . . . . 7 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ ℕ) → ((𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1))‘𝑘) ∈ ℤ)
154		zmulcl 9677	. . . . . . . 8 ⊢ ((𝑘 ∈ ℤ ∧ 𝑣 ∈ ℤ) → (𝑘 · 𝑣) ∈ ℤ)
155	154	adantl 277	. . . . . . 7 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ (𝑘 ∈ ℤ ∧ 𝑣 ∈ ℤ)) → (𝑘 · 𝑣) ∈ ℤ)
156	35, 144, 153, 155	seqf 10879	. . . . . 6 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1))):ℕ⟶ℤ)
157		nnabscl 11844	. . . . . . 7 ⊢ ((𝑀 ∈ ℤ ∧ 𝑀 ≠ 0) → (abs‘𝑀) ∈ ℕ)
158	15, 20, 157	syl2anc 415	. . . . . 6 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → (abs‘𝑀) ∈ ℕ)
159	156, 158	ffvelcdmd 5835	. . . . 5 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1)))‘(abs‘𝑀)) ∈ ℤ)
160	159	zcnd 9748	. . . 4 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1)))‘(abs‘𝑀)) ∈ ℂ)
161		zdclt 9701	. . . . . . . 8 ⊢ ((𝑁 ∈ ℤ ∧ 0 ∈ ℤ) → DECID 𝑁 < 0)
162	16, 21, 161	sylancl 417	. . . . . . 7 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → DECID 𝑁 < 0)
163		dcan2 947	. . . . . . 7 ⊢ (DECID 𝑁 < 0 → (DECID 𝐴 < 0 → DECID (𝑁 < 0 ∧ 𝐴 < 0)))
164	162, 148, 163	sylc 62	. . . . . 6 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → DECID (𝑁 < 0 ∧ 𝐴 < 0))
165	143, 144, 164	ifcldcd 3675	. . . . 5 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) ∈ ℤ)
166	165	zcnd 9748	. . . 4 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) ∈ ℂ)
167	48	ffvelcdmda 5834	. . . . . . 7 ⊢ ((((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) ∧ 𝑘 ∈ ℕ) → ((𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1))‘𝑘) ∈ ℤ)
168	35, 144, 167, 155	seqf 10879	. . . . . 6 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1))):ℕ⟶ℤ)
169		nnabscl 11844	. . . . . . 7 ⊢ ((𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → (abs‘𝑁) ∈ ℕ)
170	16, 25, 169	syl2anc 415	. . . . . 6 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → (abs‘𝑁) ∈ ℕ)
171	168, 170	ffvelcdmd 5835	. . . . 5 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘(abs‘𝑁)) ∈ ℤ)
172	171	zcnd 9748	. . . 4 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘(abs‘𝑁)) ∈ ℂ)
173	152, 160, 166, 172	mul4d 8471	. . 3 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → ((if((𝑀 < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1)))‘(abs‘𝑀))) · (if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘(abs‘𝑁)))) = ((if((𝑀 < 0 ∧ 𝐴 < 0), -1, 1) · if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1)) · ((seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1)))‘(abs‘𝑀)) · (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘(abs‘𝑁)))))
174	141, 173	eqtrd 2271	. 2 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → ((𝐴 /_L 𝑀) · (𝐴 /_L 𝑁)) = ((if((𝑀 < 0 ∧ 𝐴 < 0), -1, 1) · if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1)) · ((seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑀)), 1)))‘(abs‘𝑀)) · (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /_L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘(abs‘𝑁)))))
175	134, 136, 174	3eqtr4d 2281	1 ⊢ (((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 ≠ 0 ∧ 𝑁 ≠ 0)) → (𝐴 /_L (𝑀 · 𝑁)) = ((𝐴 /_L 𝑀) · (𝐴 /_L 𝑁)))

Colors of variables: wff set class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 104 ↔ wb 105 ∨ wo 720 DECID wdc 846 ∧ w3a 1009 = wceq 1402 ∈ wcel 2209 ≠ wne 2420 ifcif 3635 class class class wbr 4125 ↦ cmpt 4187 ⟶wf 5368 ‘cfv 5372 (class class class)co 6075 0cc0 8169 1c1 8170 + caddc 8172 · cmul 8174 < clt 8350 -cneg 8488 # cap 8899 ℕcn 9283 ℕ₀cn0 9542 ℤcz 9623 ℤ_≥cuz 9900 seqcseq 10862 ↑cexp 10953 abscabs 11741 ℙcprime 12863 pCnt cpc 13041 /_L clgs 16030

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 623 ax-in2 624 ax-io 721 ax-5 1500 ax-7 1501 ax-gen 1502 ax-ie1 1546 ax-ie2 1547 ax-8 1557 ax-10 1558 ax-11 1559 ax-i12 1560 ax-bndl 1562 ax-4 1563 ax-17 1579 ax-i9 1583 ax-ial 1587 ax-i5r 1588 ax-14 2212 ax-ext 2220 ax-coll 4241 ax-sep 4244 ax-nul 4254 ax-pow 4306 ax-pr 4341 ax-un 4573 ax-setind 4679 ax-iinf 4730 ax-cnex 8260 ax-resscn 8261 ax-1cn 8262 ax-1re 8263 ax-icn 8264 ax-addcl 8265 ax-addrcl 8266 ax-mulcl 8267 ax-mulrcl 8268 ax-addcom 8269 ax-mulcom 8270 ax-addass 8271 ax-mulass 8272 ax-distr 8273 ax-i2m1 8274 ax-0lt1 8275 ax-1rid 8276 ax-0id 8277 ax-rnegex 8278 ax-precex 8279 ax-cnre 8280 ax-pre-ltirr 8281 ax-pre-ltwlin 8282 ax-pre-lttrn 8283 ax-pre-apti 8284 ax-pre-ltadd 8285 ax-pre-mulgt0 8286 ax-pre-mulext 8287 ax-arch 8288 ax-caucvg 8289

This theorem depends on definitions: df-bi 117 df-stab 843 df-dc 847 df-3or 1010 df-3an 1011 df-tru 1405 df-fal 1408 df-xor 1425 df-nf 1514 df-sb 1816 df-eu 2089 df-mo 2090 df-clab 2225 df-cleq 2231 df-clel 2234 df-nfc 2381 df-ne 2421 df-nel 2516 df-ral 2533 df-rex 2534 df-reu 2535 df-rmo 2536 df-rab 2537 df-v 2823 df-sbc 3052 df-csb 3148 df-dif 3222 df-un 3224 df-in 3226 df-ss 3233 df-nul 3521 df-if 3636 df-pw 3687 df-sn 3711 df-pr 3712 df-op 3714 df-uni 3931 df-int 3966 df-iun 4009 df-br 4126 df-opab 4188 df-mpt 4189 df-tr 4225 df-id 4433 df-po 4436 df-iso 4437 df-iord 4506 df-on 4508 df-ilim 4509 df-suc 4511 df-iom 4733 df-xp 4775 df-rel 4776 df-cnv 4777 df-co 4778 df-dm 4779 df-rn 4780 df-res 4781 df-ima 4782 df-iota 5332 df-fun 5374 df-fn 5375 df-f 5376 df-f1 5377 df-fo 5378 df-f1o 5379 df-fv 5380 df-isom 5381 df-riota 6028 df-ov 6078 df-oprab 6079 df-mpo 6080 df-1st 6364 df-2nd 6365 df-recs 6566 df-irdg 6631 df-frec 6652 df-1o 6677 df-2o 6678 df-oadd 6681 df-er 6797 df-en 7013 df-dom 7014 df-fin 7015 df-sup 7314 df-inf 7315 df-pnf 8352 df-mnf 8353 df-xr 8354 df-ltxr 8355 df-le 8356 df-sub 8489 df-neg 8490 df-reap 8893 df-ap 8900 df-div 8993 df-inn 9284 df-2 9342 df-3 9343 df-4 9344 df-5 9345 df-6 9346 df-7 9347 df-8 9348 df-n0 9543 df-z 9624 df-uz 9901 df-q 9999 df-rp 10034 df-fz 10391 df-fzo 10528 df-fl 10683 df-mod 10738 df-seqfrec 10863 df-exp 10954 df-ihash 11193 df-cj 11585 df-re 11586 df-im 11587 df-rsqrt 11742 df-abs 11743 df-clim 12023 df-proddc 12296 df-dvds 12533 df-gcd 12709 df-prm 12864 df-phi 12967 df-pc 13042 df-lgs 16031

This theorem is referenced by: lgssq2 16074 lgsdinn0 16081 lgsquad2lem1 16114

W3C validator