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

Theorem lgsneg 25336
Description: The Legendre symbol is either even or odd under negation with respect to the second parameter according to the sign of the first. (Contributed by Mario Carneiro, 4-Feb-2015.)
Assertion
Ref Expression
lgsneg ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → (𝐴 /L -𝑁) = (if(𝐴 < 0, -1, 1) · (𝐴 /L 𝑁)))

Proof of Theorem lgsneg
Dummy variables 𝑛 𝑥 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 iftrue 4248 . . . . . . . . 9 (𝐴 < 0 → if(𝐴 < 0, -1, 1) = -1)
21adantl 473 . . . . . . . 8 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ 𝐴 < 0) → if(𝐴 < 0, -1, 1) = -1)
32oveq1d 6856 . . . . . . 7 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ 𝐴 < 0) → (if(𝐴 < 0, -1, 1) · if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1)) = (-1 · if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1)))
4 oveq2 6849 . . . . . . . . . 10 (if(𝑁 < 0, -1, 1) = -1 → (-1 · if(𝑁 < 0, -1, 1)) = (-1 · -1))
5 neg1mulneg1e1 11490 . . . . . . . . . 10 (-1 · -1) = 1
64, 5syl6eq 2814 . . . . . . . . 9 (if(𝑁 < 0, -1, 1) = -1 → (-1 · if(𝑁 < 0, -1, 1)) = 1)
7 oveq2 6849 . . . . . . . . . 10 (if(𝑁 < 0, -1, 1) = 1 → (-1 · if(𝑁 < 0, -1, 1)) = (-1 · 1))
8 ax-1cn 10246 . . . . . . . . . . 11 1 ∈ ℂ
98mulm1i 10728 . . . . . . . . . 10 (-1 · 1) = -1
107, 9syl6eq 2814 . . . . . . . . 9 (if(𝑁 < 0, -1, 1) = 1 → (-1 · if(𝑁 < 0, -1, 1)) = -1)
116, 10ifsb 4255 . . . . . . . 8 (-1 · if(𝑁 < 0, -1, 1)) = if(𝑁 < 0, 1, -1)
12 simpr 477 . . . . . . . . . . 11 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ 𝐴 < 0) → 𝐴 < 0)
1312biantrud 527 . . . . . . . . . 10 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ 𝐴 < 0) → (𝑁 < 0 ↔ (𝑁 < 0 ∧ 𝐴 < 0)))
1413ifbid 4264 . . . . . . . . 9 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ 𝐴 < 0) → if(𝑁 < 0, -1, 1) = if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1))
1514oveq2d 6857 . . . . . . . 8 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ 𝐴 < 0) → (-1 · if(𝑁 < 0, -1, 1)) = (-1 · if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1)))
16 simpl2 1244 . . . . . . . . . . . . . 14 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ 𝐴 < 0) → 𝑁 ∈ ℤ)
1716zred 11728 . . . . . . . . . . . . 13 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ 𝐴 < 0) → 𝑁 ∈ ℝ)
18 0re 10294 . . . . . . . . . . . . 13 0 ∈ ℝ
19 ltlen 10391 . . . . . . . . . . . . 13 ((𝑁 ∈ ℝ ∧ 0 ∈ ℝ) → (𝑁 < 0 ↔ (𝑁 ≤ 0 ∧ 0 ≠ 𝑁)))
2017, 18, 19sylancl 580 . . . . . . . . . . . 12 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ 𝐴 < 0) → (𝑁 < 0 ↔ (𝑁 ≤ 0 ∧ 0 ≠ 𝑁)))
21 simpl3 1246 . . . . . . . . . . . . . 14 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ 𝐴 < 0) → 𝑁 ≠ 0)
2221necomd 2991 . . . . . . . . . . . . 13 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ 𝐴 < 0) → 0 ≠ 𝑁)
2322biantrud 527 . . . . . . . . . . . 12 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ 𝐴 < 0) → (𝑁 ≤ 0 ↔ (𝑁 ≤ 0 ∧ 0 ≠ 𝑁)))
2420, 23bitr4d 273 . . . . . . . . . . 11 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ 𝐴 < 0) → (𝑁 < 0 ↔ 𝑁 ≤ 0))
2517le0neg1d 10852 . . . . . . . . . . 11 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ 𝐴 < 0) → (𝑁 ≤ 0 ↔ 0 ≤ -𝑁))
2617renegcld 10710 . . . . . . . . . . . 12 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ 𝐴 < 0) → -𝑁 ∈ ℝ)
27 lenlt 10369 . . . . . . . . . . . 12 ((0 ∈ ℝ ∧ -𝑁 ∈ ℝ) → (0 ≤ -𝑁 ↔ ¬ -𝑁 < 0))
2818, 26, 27sylancr 581 . . . . . . . . . . 11 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ 𝐴 < 0) → (0 ≤ -𝑁 ↔ ¬ -𝑁 < 0))
2924, 25, 283bitrd 296 . . . . . . . . . 10 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ 𝐴 < 0) → (𝑁 < 0 ↔ ¬ -𝑁 < 0))
3029ifbid 4264 . . . . . . . . 9 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ 𝐴 < 0) → if(𝑁 < 0, 1, -1) = if(¬ -𝑁 < 0, 1, -1))
31 ifnot 4292 . . . . . . . . 9 if(¬ -𝑁 < 0, 1, -1) = if(-𝑁 < 0, -1, 1)
3230, 31syl6eq 2814 . . . . . . . 8 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ 𝐴 < 0) → if(𝑁 < 0, 1, -1) = if(-𝑁 < 0, -1, 1))
3311, 15, 323eqtr3a 2822 . . . . . . 7 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ 𝐴 < 0) → (-1 · if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1)) = if(-𝑁 < 0, -1, 1))
3412biantrud 527 . . . . . . . 8 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ 𝐴 < 0) → (-𝑁 < 0 ↔ (-𝑁 < 0 ∧ 𝐴 < 0)))
3534ifbid 4264 . . . . . . 7 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ 𝐴 < 0) → if(-𝑁 < 0, -1, 1) = if((-𝑁 < 0 ∧ 𝐴 < 0), -1, 1))
363, 33, 353eqtrd 2802 . . . . . 6 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ 𝐴 < 0) → (if(𝐴 < 0, -1, 1) · if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1)) = if((-𝑁 < 0 ∧ 𝐴 < 0), -1, 1))
37 1t1e1 11439 . . . . . . 7 (1 · 1) = 1
38 iffalse 4251 . . . . . . . . 9 𝐴 < 0 → if(𝐴 < 0, -1, 1) = 1)
3938adantl 473 . . . . . . . 8 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ ¬ 𝐴 < 0) → if(𝐴 < 0, -1, 1) = 1)
40 simpr 477 . . . . . . . . . 10 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ ¬ 𝐴 < 0) → ¬ 𝐴 < 0)
4140intnand 482 . . . . . . . . 9 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ ¬ 𝐴 < 0) → ¬ (𝑁 < 0 ∧ 𝐴 < 0))
4241iffalsed 4253 . . . . . . . 8 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ ¬ 𝐴 < 0) → if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) = 1)
4339, 42oveq12d 6859 . . . . . . 7 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ ¬ 𝐴 < 0) → (if(𝐴 < 0, -1, 1) · if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1)) = (1 · 1))
4440intnand 482 . . . . . . . 8 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ ¬ 𝐴 < 0) → ¬ (-𝑁 < 0 ∧ 𝐴 < 0))
4544iffalsed 4253 . . . . . . 7 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ ¬ 𝐴 < 0) → if((-𝑁 < 0 ∧ 𝐴 < 0), -1, 1) = 1)
4637, 43, 453eqtr4a 2824 . . . . . 6 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ ¬ 𝐴 < 0) → (if(𝐴 < 0, -1, 1) · if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1)) = if((-𝑁 < 0 ∧ 𝐴 < 0), -1, 1))
4736, 46pm2.61dan 847 . . . . 5 ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → (if(𝐴 < 0, -1, 1) · if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1)) = if((-𝑁 < 0 ∧ 𝐴 < 0), -1, 1))
4847eqcomd 2770 . . . 4 ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → if((-𝑁 < 0 ∧ 𝐴 < 0), -1, 1) = (if(𝐴 < 0, -1, 1) · if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1)))
49 simpr 477 . . . . . . . . . 10 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ 𝑛 ∈ ℙ) → 𝑛 ∈ ℙ)
50 simpl2 1244 . . . . . . . . . . 11 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ 𝑛 ∈ ℙ) → 𝑁 ∈ ℤ)
51 zq 11994 . . . . . . . . . . 11 (𝑁 ∈ ℤ → 𝑁 ∈ ℚ)
5250, 51syl 17 . . . . . . . . . 10 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ 𝑛 ∈ ℙ) → 𝑁 ∈ ℚ)
53 pcneg 15858 . . . . . . . . . 10 ((𝑛 ∈ ℙ ∧ 𝑁 ∈ ℚ) → (𝑛 pCnt -𝑁) = (𝑛 pCnt 𝑁))
5449, 52, 53syl2anc 579 . . . . . . . . 9 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ 𝑛 ∈ ℙ) → (𝑛 pCnt -𝑁) = (𝑛 pCnt 𝑁))
5554oveq2d 6857 . . . . . . . 8 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ 𝑛 ∈ ℙ) → ((𝐴 /L 𝑛)↑(𝑛 pCnt -𝑁)) = ((𝐴 /L 𝑛)↑(𝑛 pCnt 𝑁)))
5655ifeq1da 4272 . . . . . . 7 ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → if(𝑛 ∈ ℙ, ((𝐴 /L 𝑛)↑(𝑛 pCnt -𝑁)), 1) = if(𝑛 ∈ ℙ, ((𝐴 /L 𝑛)↑(𝑛 pCnt 𝑁)), 1))
5756mpteq2dv 4903 . . . . . 6 ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /L 𝑛)↑(𝑛 pCnt -𝑁)), 1)) = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))
5857seqeq3d 13015 . . . . 5 ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /L 𝑛)↑(𝑛 pCnt -𝑁)), 1))) = seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /L 𝑛)↑(𝑛 pCnt 𝑁)), 1))))
59 zcn 11628 . . . . . . 7 (𝑁 ∈ ℤ → 𝑁 ∈ ℂ)
60593ad2ant2 1164 . . . . . 6 ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → 𝑁 ∈ ℂ)
6160absnegd 14474 . . . . 5 ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → (abs‘-𝑁) = (abs‘𝑁))
6258, 61fveq12d 6381 . . . 4 ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /L 𝑛)↑(𝑛 pCnt -𝑁)), 1)))‘(abs‘-𝑁)) = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘(abs‘𝑁)))
6348, 62oveq12d 6859 . . 3 ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → (if((-𝑁 < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /L 𝑛)↑(𝑛 pCnt -𝑁)), 1)))‘(abs‘-𝑁))) = ((if(𝐴 < 0, -1, 1) · if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1)) · (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘(abs‘𝑁))))
64 neg1cn 11392 . . . . . 6 -1 ∈ ℂ
6564, 8ifcli 4288 . . . . 5 if(𝐴 < 0, -1, 1) ∈ ℂ
6665a1i 11 . . . 4 ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → if(𝐴 < 0, -1, 1) ∈ ℂ)
6764, 8ifcli 4288 . . . . 5 if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) ∈ ℂ
6867a1i 11 . . . 4 ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) ∈ ℂ)
69 nnabscl 14351 . . . . . . . 8 ((𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → (abs‘𝑁) ∈ ℕ)
70693adant1 1160 . . . . . . 7 ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → (abs‘𝑁) ∈ ℕ)
71 nnuz 11922 . . . . . . 7 ℕ = (ℤ‘1)
7270, 71syl6eleq 2853 . . . . . 6 ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → (abs‘𝑁) ∈ (ℤ‘1))
73 eqid 2764 . . . . . . . 8 (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /L 𝑛)↑(𝑛 pCnt 𝑁)), 1)) = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /L 𝑛)↑(𝑛 pCnt 𝑁)), 1))
7473lgsfcl3 25333 . . . . . . 7 ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /L 𝑛)↑(𝑛 pCnt 𝑁)), 1)):ℕ⟶ℤ)
75 elfznn 12576 . . . . . . 7 (𝑥 ∈ (1...(abs‘𝑁)) → 𝑥 ∈ ℕ)
76 ffvelrn 6546 . . . . . . 7 (((𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /L 𝑛)↑(𝑛 pCnt 𝑁)), 1)):ℕ⟶ℤ ∧ 𝑥 ∈ ℕ) → ((𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /L 𝑛)↑(𝑛 pCnt 𝑁)), 1))‘𝑥) ∈ ℤ)
7774, 75, 76syl2an 589 . . . . . 6 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ 𝑥 ∈ (1...(abs‘𝑁))) → ((𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /L 𝑛)↑(𝑛 pCnt 𝑁)), 1))‘𝑥) ∈ ℤ)
78 zmulcl 11672 . . . . . . 7 ((𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ) → (𝑥 · 𝑦) ∈ ℤ)
7978adantl 473 . . . . . 6 (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ)) → (𝑥 · 𝑦) ∈ ℤ)
8072, 77, 79seqcl 13027 . . . . 5 ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘(abs‘𝑁)) ∈ ℤ)
8180zcnd 11729 . . . 4 ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘(abs‘𝑁)) ∈ ℂ)
8266, 68, 81mulassd 10316 . . 3 ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → ((if(𝐴 < 0, -1, 1) · if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1)) · (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘(abs‘𝑁))) = (if(𝐴 < 0, -1, 1) · (if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘(abs‘𝑁)))))
8363, 82eqtrd 2798 . 2 ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → (if((-𝑁 < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /L 𝑛)↑(𝑛 pCnt -𝑁)), 1)))‘(abs‘-𝑁))) = (if(𝐴 < 0, -1, 1) · (if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘(abs‘𝑁)))))
84 simp1 1166 . . 3 ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → 𝐴 ∈ ℤ)
85 znegcl 11658 . . . 4 (𝑁 ∈ ℤ → -𝑁 ∈ ℤ)
86853ad2ant2 1164 . . 3 ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → -𝑁 ∈ ℤ)
87 simp3 1168 . . . 4 ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → 𝑁 ≠ 0)
8860, 87negne0d 10643 . . 3 ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → -𝑁 ≠ 0)
89 eqid 2764 . . . 4 (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /L 𝑛)↑(𝑛 pCnt -𝑁)), 1)) = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /L 𝑛)↑(𝑛 pCnt -𝑁)), 1))
9089lgsval4 25332 . . 3 ((𝐴 ∈ ℤ ∧ -𝑁 ∈ ℤ ∧ -𝑁 ≠ 0) → (𝐴 /L -𝑁) = (if((-𝑁 < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /L 𝑛)↑(𝑛 pCnt -𝑁)), 1)))‘(abs‘-𝑁))))
9184, 86, 88, 90syl3anc 1490 . 2 ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → (𝐴 /L -𝑁) = (if((-𝑁 < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /L 𝑛)↑(𝑛 pCnt -𝑁)), 1)))‘(abs‘-𝑁))))
9273lgsval4 25332 . . 3 ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → (𝐴 /L 𝑁) = (if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘(abs‘𝑁))))
9392oveq2d 6857 . 2 ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → (if(𝐴 < 0, -1, 1) · (𝐴 /L 𝑁)) = (if(𝐴 < 0, -1, 1) · (if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, ((𝐴 /L 𝑛)↑(𝑛 pCnt 𝑁)), 1)))‘(abs‘𝑁)))))
9483, 91, 933eqtr4d 2808 1 ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → (𝐴 /L -𝑁) = (if(𝐴 < 0, -1, 1) · (𝐴 /L 𝑁)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 197  wa 384  w3a 1107   = wceq 1652  wcel 2155  wne 2936  ifcif 4242   class class class wbr 4808  cmpt 4887  wf 6063  cfv 6067  (class class class)co 6841  cc 10186  cr 10187  0cc0 10188  1c1 10189   · cmul 10193   < clt 10327  cle 10328  -cneg 10520  cn 11273  cz 11623  cuz 11885  cq 11988  ...cfz 12532  seqcseq 13007  cexp 13066  abscabs 14260  cprime 15666   pCnt cpc 15821   /L clgs 25309
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1890  ax-4 1904  ax-5 2005  ax-6 2069  ax-7 2105  ax-8 2157  ax-9 2164  ax-10 2183  ax-11 2198  ax-12 2211  ax-13 2349  ax-ext 2742  ax-rep 4929  ax-sep 4940  ax-nul 4948  ax-pow 5000  ax-pr 5061  ax-un 7146  ax-cnex 10244  ax-resscn 10245  ax-1cn 10246  ax-icn 10247  ax-addcl 10248  ax-addrcl 10249  ax-mulcl 10250  ax-mulrcl 10251  ax-mulcom 10252  ax-addass 10253  ax-mulass 10254  ax-distr 10255  ax-i2m1 10256  ax-1ne0 10257  ax-1rid 10258  ax-rnegex 10259  ax-rrecex 10260  ax-cnre 10261  ax-pre-lttri 10262  ax-pre-lttrn 10263  ax-pre-ltadd 10264  ax-pre-mulgt0 10265  ax-pre-sup 10266
This theorem depends on definitions:  df-bi 198  df-an 385  df-or 874  df-3or 1108  df-3an 1109  df-tru 1656  df-ex 1875  df-nf 1879  df-sb 2062  df-mo 2564  df-eu 2581  df-clab 2751  df-cleq 2757  df-clel 2760  df-nfc 2895  df-ne 2937  df-nel 3040  df-ral 3059  df-rex 3060  df-reu 3061  df-rmo 3062  df-rab 3063  df-v 3351  df-sbc 3596  df-csb 3691  df-dif 3734  df-un 3736  df-in 3738  df-ss 3745  df-pss 3747  df-nul 4079  df-if 4243  df-pw 4316  df-sn 4334  df-pr 4336  df-tp 4338  df-op 4340  df-uni 4594  df-int 4633  df-iun 4677  df-br 4809  df-opab 4871  df-mpt 4888  df-tr 4911  df-id 5184  df-eprel 5189  df-po 5197  df-so 5198  df-fr 5235  df-we 5237  df-xp 5282  df-rel 5283  df-cnv 5284  df-co 5285  df-dm 5286  df-rn 5287  df-res 5288  df-ima 5289  df-pred 5864  df-ord 5910  df-on 5911  df-lim 5912  df-suc 5913  df-iota 6030  df-fun 6069  df-fn 6070  df-f 6071  df-f1 6072  df-fo 6073  df-f1o 6074  df-fv 6075  df-riota 6802  df-ov 6844  df-oprab 6845  df-mpt2 6846  df-om 7263  df-1st 7365  df-2nd 7366  df-wrecs 7609  df-recs 7671  df-rdg 7709  df-1o 7763  df-2o 7764  df-oadd 7767  df-er 7946  df-map 8061  df-en 8160  df-dom 8161  df-sdom 8162  df-fin 8163  df-sup 8554  df-inf 8555  df-card 9015  df-cda 9242  df-pnf 10329  df-mnf 10330  df-xr 10331  df-ltxr 10332  df-le 10333  df-sub 10521  df-neg 10522  df-div 10938  df-nn 11274  df-2 11334  df-3 11335  df-n0 11538  df-xnn0 11610  df-z 11624  df-uz 11886  df-q 11989  df-rp 12028  df-fz 12533  df-fzo 12673  df-fl 12800  df-mod 12876  df-seq 13008  df-exp 13067  df-hash 13321  df-cj 14125  df-re 14126  df-im 14127  df-sqrt 14261  df-abs 14262  df-dvds 15267  df-gcd 15499  df-prm 15667  df-phi 15751  df-pc 15822  df-lgs 25310
This theorem is referenced by:  lgsneg1  25337
  Copyright terms: Public domain W3C validator