Users' Mathboxes Mathbox for Thierry Arnoux < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  psgnfzto1st Structured version   Visualization version   GIF version

Theorem psgnfzto1st 29983
Description: The permutation sign for moving one element to the first position. (Contributed by Thierry Arnoux, 21-Aug-2020.)
Hypotheses
Ref Expression
psgnfzto1st.d 𝐷 = (1...𝑁)
psgnfzto1st.p 𝑃 = (𝑖𝐷 ↦ if(𝑖 = 1, 𝐼, if(𝑖𝐼, (𝑖 − 1), 𝑖)))
psgnfzto1st.g 𝐺 = (SymGrp‘𝐷)
psgnfzto1st.b 𝐵 = (Base‘𝐺)
psgnfzto1st.s 𝑆 = (pmSgn‘𝐷)
Assertion
Ref Expression
psgnfzto1st (𝐼𝐷 → (𝑆𝑃) = (-1↑(𝐼 + 1)))
Distinct variable groups:   𝐷,𝑖   𝑖,𝐼   𝑖,𝑁   𝐵,𝑖
Allowed substitution hints:   𝑃(𝑖)   𝑆(𝑖)   𝐺(𝑖)

Proof of Theorem psgnfzto1st
Dummy variables 𝑚 𝑛 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 elfz1b 12447 . . . . 5 (𝐼 ∈ (1...𝑁) ↔ (𝐼 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐼𝑁))
21biimpi 206 . . . 4 (𝐼 ∈ (1...𝑁) → (𝐼 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐼𝑁))
3 psgnfzto1st.d . . . 4 𝐷 = (1...𝑁)
42, 3eleq2s 2748 . . 3 (𝐼𝐷 → (𝐼 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐼𝑁))
5 3ancoma 1062 . . 3 ((𝑁 ∈ ℕ ∧ 𝐼 ∈ ℕ ∧ 𝐼𝑁) ↔ (𝐼 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐼𝑁))
64, 5sylibr 224 . 2 (𝐼𝐷 → (𝑁 ∈ ℕ ∧ 𝐼 ∈ ℕ ∧ 𝐼𝑁))
7 df-3an 1056 . . 3 ((𝑁 ∈ ℕ ∧ 𝐼 ∈ ℕ ∧ 𝐼𝑁) ↔ ((𝑁 ∈ ℕ ∧ 𝐼 ∈ ℕ) ∧ 𝐼𝑁))
8 breq1 4688 . . . . . 6 (𝑚 = 1 → (𝑚𝑁 ↔ 1 ≤ 𝑁))
9 id 22 . . . . . . . . . 10 (𝑚 = 1 → 𝑚 = 1)
10 breq2 4689 . . . . . . . . . . 11 (𝑚 = 1 → (𝑖𝑚𝑖 ≤ 1))
1110ifbid 4141 . . . . . . . . . 10 (𝑚 = 1 → if(𝑖𝑚, (𝑖 − 1), 𝑖) = if(𝑖 ≤ 1, (𝑖 − 1), 𝑖))
129, 11ifeq12d 4139 . . . . . . . . 9 (𝑚 = 1 → if(𝑖 = 1, 𝑚, if(𝑖𝑚, (𝑖 − 1), 𝑖)) = if(𝑖 = 1, 1, if(𝑖 ≤ 1, (𝑖 − 1), 𝑖)))
1312mpteq2dv 4778 . . . . . . . 8 (𝑚 = 1 → (𝑖𝐷 ↦ if(𝑖 = 1, 𝑚, if(𝑖𝑚, (𝑖 − 1), 𝑖))) = (𝑖𝐷 ↦ if(𝑖 = 1, 1, if(𝑖 ≤ 1, (𝑖 − 1), 𝑖))))
1413fveq2d 6233 . . . . . . 7 (𝑚 = 1 → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑚, if(𝑖𝑚, (𝑖 − 1), 𝑖)))) = (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 1, if(𝑖 ≤ 1, (𝑖 − 1), 𝑖)))))
15 oveq1 6697 . . . . . . . 8 (𝑚 = 1 → (𝑚 + 1) = (1 + 1))
1615oveq2d 6706 . . . . . . 7 (𝑚 = 1 → (-1↑(𝑚 + 1)) = (-1↑(1 + 1)))
1714, 16eqeq12d 2666 . . . . . 6 (𝑚 = 1 → ((𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑚, if(𝑖𝑚, (𝑖 − 1), 𝑖)))) = (-1↑(𝑚 + 1)) ↔ (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 1, if(𝑖 ≤ 1, (𝑖 − 1), 𝑖)))) = (-1↑(1 + 1))))
188, 17imbi12d 333 . . . . 5 (𝑚 = 1 → ((𝑚𝑁 → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑚, if(𝑖𝑚, (𝑖 − 1), 𝑖)))) = (-1↑(𝑚 + 1))) ↔ (1 ≤ 𝑁 → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 1, if(𝑖 ≤ 1, (𝑖 − 1), 𝑖)))) = (-1↑(1 + 1)))))
19 breq1 4688 . . . . . 6 (𝑚 = 𝑛 → (𝑚𝑁𝑛𝑁))
20 id 22 . . . . . . . . . 10 (𝑚 = 𝑛𝑚 = 𝑛)
21 breq2 4689 . . . . . . . . . . 11 (𝑚 = 𝑛 → (𝑖𝑚𝑖𝑛))
2221ifbid 4141 . . . . . . . . . 10 (𝑚 = 𝑛 → if(𝑖𝑚, (𝑖 − 1), 𝑖) = if(𝑖𝑛, (𝑖 − 1), 𝑖))
2320, 22ifeq12d 4139 . . . . . . . . 9 (𝑚 = 𝑛 → if(𝑖 = 1, 𝑚, if(𝑖𝑚, (𝑖 − 1), 𝑖)) = if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖)))
2423mpteq2dv 4778 . . . . . . . 8 (𝑚 = 𝑛 → (𝑖𝐷 ↦ if(𝑖 = 1, 𝑚, if(𝑖𝑚, (𝑖 − 1), 𝑖))) = (𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖))))
2524fveq2d 6233 . . . . . . 7 (𝑚 = 𝑛 → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑚, if(𝑖𝑚, (𝑖 − 1), 𝑖)))) = (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖)))))
26 oveq1 6697 . . . . . . . 8 (𝑚 = 𝑛 → (𝑚 + 1) = (𝑛 + 1))
2726oveq2d 6706 . . . . . . 7 (𝑚 = 𝑛 → (-1↑(𝑚 + 1)) = (-1↑(𝑛 + 1)))
2825, 27eqeq12d 2666 . . . . . 6 (𝑚 = 𝑛 → ((𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑚, if(𝑖𝑚, (𝑖 − 1), 𝑖)))) = (-1↑(𝑚 + 1)) ↔ (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖)))) = (-1↑(𝑛 + 1))))
2919, 28imbi12d 333 . . . . 5 (𝑚 = 𝑛 → ((𝑚𝑁 → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑚, if(𝑖𝑚, (𝑖 − 1), 𝑖)))) = (-1↑(𝑚 + 1))) ↔ (𝑛𝑁 → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖)))) = (-1↑(𝑛 + 1)))))
30 breq1 4688 . . . . . 6 (𝑚 = (𝑛 + 1) → (𝑚𝑁 ↔ (𝑛 + 1) ≤ 𝑁))
31 id 22 . . . . . . . . . 10 (𝑚 = (𝑛 + 1) → 𝑚 = (𝑛 + 1))
32 breq2 4689 . . . . . . . . . . 11 (𝑚 = (𝑛 + 1) → (𝑖𝑚𝑖 ≤ (𝑛 + 1)))
3332ifbid 4141 . . . . . . . . . 10 (𝑚 = (𝑛 + 1) → if(𝑖𝑚, (𝑖 − 1), 𝑖) = if(𝑖 ≤ (𝑛 + 1), (𝑖 − 1), 𝑖))
3431, 33ifeq12d 4139 . . . . . . . . 9 (𝑚 = (𝑛 + 1) → if(𝑖 = 1, 𝑚, if(𝑖𝑚, (𝑖 − 1), 𝑖)) = if(𝑖 = 1, (𝑛 + 1), if(𝑖 ≤ (𝑛 + 1), (𝑖 − 1), 𝑖)))
3534mpteq2dv 4778 . . . . . . . 8 (𝑚 = (𝑛 + 1) → (𝑖𝐷 ↦ if(𝑖 = 1, 𝑚, if(𝑖𝑚, (𝑖 − 1), 𝑖))) = (𝑖𝐷 ↦ if(𝑖 = 1, (𝑛 + 1), if(𝑖 ≤ (𝑛 + 1), (𝑖 − 1), 𝑖))))
3635fveq2d 6233 . . . . . . 7 (𝑚 = (𝑛 + 1) → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑚, if(𝑖𝑚, (𝑖 − 1), 𝑖)))) = (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, (𝑛 + 1), if(𝑖 ≤ (𝑛 + 1), (𝑖 − 1), 𝑖)))))
37 oveq1 6697 . . . . . . . 8 (𝑚 = (𝑛 + 1) → (𝑚 + 1) = ((𝑛 + 1) + 1))
3837oveq2d 6706 . . . . . . 7 (𝑚 = (𝑛 + 1) → (-1↑(𝑚 + 1)) = (-1↑((𝑛 + 1) + 1)))
3936, 38eqeq12d 2666 . . . . . 6 (𝑚 = (𝑛 + 1) → ((𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑚, if(𝑖𝑚, (𝑖 − 1), 𝑖)))) = (-1↑(𝑚 + 1)) ↔ (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, (𝑛 + 1), if(𝑖 ≤ (𝑛 + 1), (𝑖 − 1), 𝑖)))) = (-1↑((𝑛 + 1) + 1))))
4030, 39imbi12d 333 . . . . 5 (𝑚 = (𝑛 + 1) → ((𝑚𝑁 → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑚, if(𝑖𝑚, (𝑖 − 1), 𝑖)))) = (-1↑(𝑚 + 1))) ↔ ((𝑛 + 1) ≤ 𝑁 → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, (𝑛 + 1), if(𝑖 ≤ (𝑛 + 1), (𝑖 − 1), 𝑖)))) = (-1↑((𝑛 + 1) + 1)))))
41 breq1 4688 . . . . . 6 (𝑚 = 𝐼 → (𝑚𝑁𝐼𝑁))
42 id 22 . . . . . . . . . . 11 (𝑚 = 𝐼𝑚 = 𝐼)
43 breq2 4689 . . . . . . . . . . . 12 (𝑚 = 𝐼 → (𝑖𝑚𝑖𝐼))
4443ifbid 4141 . . . . . . . . . . 11 (𝑚 = 𝐼 → if(𝑖𝑚, (𝑖 − 1), 𝑖) = if(𝑖𝐼, (𝑖 − 1), 𝑖))
4542, 44ifeq12d 4139 . . . . . . . . . 10 (𝑚 = 𝐼 → if(𝑖 = 1, 𝑚, if(𝑖𝑚, (𝑖 − 1), 𝑖)) = if(𝑖 = 1, 𝐼, if(𝑖𝐼, (𝑖 − 1), 𝑖)))
4645mpteq2dv 4778 . . . . . . . . 9 (𝑚 = 𝐼 → (𝑖𝐷 ↦ if(𝑖 = 1, 𝑚, if(𝑖𝑚, (𝑖 − 1), 𝑖))) = (𝑖𝐷 ↦ if(𝑖 = 1, 𝐼, if(𝑖𝐼, (𝑖 − 1), 𝑖))))
47 psgnfzto1st.p . . . . . . . . 9 𝑃 = (𝑖𝐷 ↦ if(𝑖 = 1, 𝐼, if(𝑖𝐼, (𝑖 − 1), 𝑖)))
4846, 47syl6eqr 2703 . . . . . . . 8 (𝑚 = 𝐼 → (𝑖𝐷 ↦ if(𝑖 = 1, 𝑚, if(𝑖𝑚, (𝑖 − 1), 𝑖))) = 𝑃)
4948fveq2d 6233 . . . . . . 7 (𝑚 = 𝐼 → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑚, if(𝑖𝑚, (𝑖 − 1), 𝑖)))) = (𝑆𝑃))
50 oveq1 6697 . . . . . . . 8 (𝑚 = 𝐼 → (𝑚 + 1) = (𝐼 + 1))
5150oveq2d 6706 . . . . . . 7 (𝑚 = 𝐼 → (-1↑(𝑚 + 1)) = (-1↑(𝐼 + 1)))
5249, 51eqeq12d 2666 . . . . . 6 (𝑚 = 𝐼 → ((𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑚, if(𝑖𝑚, (𝑖 − 1), 𝑖)))) = (-1↑(𝑚 + 1)) ↔ (𝑆𝑃) = (-1↑(𝐼 + 1))))
5341, 52imbi12d 333 . . . . 5 (𝑚 = 𝐼 → ((𝑚𝑁 → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑚, if(𝑖𝑚, (𝑖 − 1), 𝑖)))) = (-1↑(𝑚 + 1))) ↔ (𝐼𝑁 → (𝑆𝑃) = (-1↑(𝐼 + 1)))))
54 fzfi 12811 . . . . . . . . 9 (1...𝑁) ∈ Fin
553, 54eqeltri 2726 . . . . . . . 8 𝐷 ∈ Fin
56 psgnfzto1st.s . . . . . . . . 9 𝑆 = (pmSgn‘𝐷)
5756psgnid 29975 . . . . . . . 8 (𝐷 ∈ Fin → (𝑆‘( I ↾ 𝐷)) = 1)
5855, 57ax-mp 5 . . . . . . 7 (𝑆‘( I ↾ 𝐷)) = 1
59 eqid 2651 . . . . . . . . 9 1 = 1
60 eqid 2651 . . . . . . . . . 10 (𝑖𝐷 ↦ if(𝑖 = 1, 1, if(𝑖 ≤ 1, (𝑖 − 1), 𝑖))) = (𝑖𝐷 ↦ if(𝑖 = 1, 1, if(𝑖 ≤ 1, (𝑖 − 1), 𝑖)))
613, 60fzto1st1 29980 . . . . . . . . 9 (1 = 1 → (𝑖𝐷 ↦ if(𝑖 = 1, 1, if(𝑖 ≤ 1, (𝑖 − 1), 𝑖))) = ( I ↾ 𝐷))
6259, 61ax-mp 5 . . . . . . . 8 (𝑖𝐷 ↦ if(𝑖 = 1, 1, if(𝑖 ≤ 1, (𝑖 − 1), 𝑖))) = ( I ↾ 𝐷)
6362fveq2i 6232 . . . . . . 7 (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 1, if(𝑖 ≤ 1, (𝑖 − 1), 𝑖)))) = (𝑆‘( I ↾ 𝐷))
64 1p1e2 11172 . . . . . . . . 9 (1 + 1) = 2
6564oveq2i 6701 . . . . . . . 8 (-1↑(1 + 1)) = (-1↑2)
66 neg1sqe1 12999 . . . . . . . 8 (-1↑2) = 1
6765, 66eqtri 2673 . . . . . . 7 (-1↑(1 + 1)) = 1
6858, 63, 673eqtr4i 2683 . . . . . 6 (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 1, if(𝑖 ≤ 1, (𝑖 − 1), 𝑖)))) = (-1↑(1 + 1))
69682a1i 12 . . . . 5 (𝑁 ∈ ℕ → (1 ≤ 𝑁 → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 1, if(𝑖 ≤ 1, (𝑖 − 1), 𝑖)))) = (-1↑(1 + 1))))
70 simplr 807 . . . . . . . . . 10 (((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛 + 1) ≤ 𝑁) → 𝑛 ∈ ℕ)
7170peano2nnd 11075 . . . . . . . . . . . . 13 (((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛 + 1) ≤ 𝑁) → (𝑛 + 1) ∈ ℕ)
72 simpll 805 . . . . . . . . . . . . 13 (((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛 + 1) ≤ 𝑁) → 𝑁 ∈ ℕ)
73 simpr 476 . . . . . . . . . . . . 13 (((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛 + 1) ≤ 𝑁) → (𝑛 + 1) ≤ 𝑁)
7471, 72, 733jca 1261 . . . . . . . . . . . 12 (((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛 + 1) ≤ 𝑁) → ((𝑛 + 1) ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ (𝑛 + 1) ≤ 𝑁))
75 elfz1b 12447 . . . . . . . . . . . 12 ((𝑛 + 1) ∈ (1...𝑁) ↔ ((𝑛 + 1) ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ (𝑛 + 1) ≤ 𝑁))
7674, 75sylibr 224 . . . . . . . . . . 11 (((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛 + 1) ≤ 𝑁) → (𝑛 + 1) ∈ (1...𝑁))
7776, 3syl6eleqr 2741 . . . . . . . . . 10 (((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛 + 1) ≤ 𝑁) → (𝑛 + 1) ∈ 𝐷)
783psgnfzto1stlem 29978 . . . . . . . . . 10 ((𝑛 ∈ ℕ ∧ (𝑛 + 1) ∈ 𝐷) → (𝑖𝐷 ↦ if(𝑖 = 1, (𝑛 + 1), if(𝑖 ≤ (𝑛 + 1), (𝑖 − 1), 𝑖))) = (((pmTrsp‘𝐷)‘{𝑛, (𝑛 + 1)}) ∘ (𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖)))))
7970, 77, 78syl2anc 694 . . . . . . . . 9 (((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛 + 1) ≤ 𝑁) → (𝑖𝐷 ↦ if(𝑖 = 1, (𝑛 + 1), if(𝑖 ≤ (𝑛 + 1), (𝑖 − 1), 𝑖))) = (((pmTrsp‘𝐷)‘{𝑛, (𝑛 + 1)}) ∘ (𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖)))))
8079adantlr 751 . . . . . . . 8 ((((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛𝑁 → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖)))) = (-1↑(𝑛 + 1)))) ∧ (𝑛 + 1) ≤ 𝑁) → (𝑖𝐷 ↦ if(𝑖 = 1, (𝑛 + 1), if(𝑖 ≤ (𝑛 + 1), (𝑖 − 1), 𝑖))) = (((pmTrsp‘𝐷)‘{𝑛, (𝑛 + 1)}) ∘ (𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖)))))
8180fveq2d 6233 . . . . . . 7 ((((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛𝑁 → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖)))) = (-1↑(𝑛 + 1)))) ∧ (𝑛 + 1) ≤ 𝑁) → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, (𝑛 + 1), if(𝑖 ≤ (𝑛 + 1), (𝑖 − 1), 𝑖)))) = (𝑆‘(((pmTrsp‘𝐷)‘{𝑛, (𝑛 + 1)}) ∘ (𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖))))))
8255a1i 11 . . . . . . . 8 ((((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛𝑁 → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖)))) = (-1↑(𝑛 + 1)))) ∧ (𝑛 + 1) ≤ 𝑁) → 𝐷 ∈ Fin)
83 eqid 2651 . . . . . . . . . 10 ran (pmTrsp‘𝐷) = ran (pmTrsp‘𝐷)
84 psgnfzto1st.g . . . . . . . . . 10 𝐺 = (SymGrp‘𝐷)
85 psgnfzto1st.b . . . . . . . . . 10 𝐵 = (Base‘𝐺)
8683, 84, 85symgtrf 17935 . . . . . . . . 9 ran (pmTrsp‘𝐷) ⊆ 𝐵
87 eqid 2651 . . . . . . . . . . . 12 (pmTrsp‘𝐷) = (pmTrsp‘𝐷)
883, 87pmtrto1cl 29977 . . . . . . . . . . 11 ((𝑛 ∈ ℕ ∧ (𝑛 + 1) ∈ 𝐷) → ((pmTrsp‘𝐷)‘{𝑛, (𝑛 + 1)}) ∈ ran (pmTrsp‘𝐷))
8970, 77, 88syl2anc 694 . . . . . . . . . 10 (((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛 + 1) ≤ 𝑁) → ((pmTrsp‘𝐷)‘{𝑛, (𝑛 + 1)}) ∈ ran (pmTrsp‘𝐷))
9089adantlr 751 . . . . . . . . 9 ((((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛𝑁 → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖)))) = (-1↑(𝑛 + 1)))) ∧ (𝑛 + 1) ≤ 𝑁) → ((pmTrsp‘𝐷)‘{𝑛, (𝑛 + 1)}) ∈ ran (pmTrsp‘𝐷))
9186, 90sseldi 3634 . . . . . . . 8 ((((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛𝑁 → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖)))) = (-1↑(𝑛 + 1)))) ∧ (𝑛 + 1) ≤ 𝑁) → ((pmTrsp‘𝐷)‘{𝑛, (𝑛 + 1)}) ∈ 𝐵)
9270nnred 11073 . . . . . . . . . . . . . 14 (((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛 + 1) ≤ 𝑁) → 𝑛 ∈ ℝ)
93 1red 10093 . . . . . . . . . . . . . . 15 (((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛 + 1) ≤ 𝑁) → 1 ∈ ℝ)
9492, 93readdcld 10107 . . . . . . . . . . . . . 14 (((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛 + 1) ≤ 𝑁) → (𝑛 + 1) ∈ ℝ)
9572nnred 11073 . . . . . . . . . . . . . 14 (((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛 + 1) ≤ 𝑁) → 𝑁 ∈ ℝ)
9692lep1d 10993 . . . . . . . . . . . . . 14 (((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛 + 1) ≤ 𝑁) → 𝑛 ≤ (𝑛 + 1))
9792, 94, 95, 96, 73letrd 10232 . . . . . . . . . . . . 13 (((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛 + 1) ≤ 𝑁) → 𝑛𝑁)
9870, 72, 973jca 1261 . . . . . . . . . . . 12 (((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛 + 1) ≤ 𝑁) → (𝑛 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝑛𝑁))
99 elfz1b 12447 . . . . . . . . . . . 12 (𝑛 ∈ (1...𝑁) ↔ (𝑛 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝑛𝑁))
10098, 99sylibr 224 . . . . . . . . . . 11 (((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛 + 1) ≤ 𝑁) → 𝑛 ∈ (1...𝑁))
101100, 3syl6eleqr 2741 . . . . . . . . . 10 (((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛 + 1) ≤ 𝑁) → 𝑛𝐷)
102101adantlr 751 . . . . . . . . 9 ((((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛𝑁 → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖)))) = (-1↑(𝑛 + 1)))) ∧ (𝑛 + 1) ≤ 𝑁) → 𝑛𝐷)
103 eqid 2651 . . . . . . . . . 10 (𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖))) = (𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖)))
1043, 103, 84, 85fzto1st 29981 . . . . . . . . 9 (𝑛𝐷 → (𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖))) ∈ 𝐵)
105102, 104syl 17 . . . . . . . 8 ((((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛𝑁 → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖)))) = (-1↑(𝑛 + 1)))) ∧ (𝑛 + 1) ≤ 𝑁) → (𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖))) ∈ 𝐵)
10684, 56, 85psgnco 19977 . . . . . . . 8 ((𝐷 ∈ Fin ∧ ((pmTrsp‘𝐷)‘{𝑛, (𝑛 + 1)}) ∈ 𝐵 ∧ (𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖))) ∈ 𝐵) → (𝑆‘(((pmTrsp‘𝐷)‘{𝑛, (𝑛 + 1)}) ∘ (𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖))))) = ((𝑆‘((pmTrsp‘𝐷)‘{𝑛, (𝑛 + 1)})) · (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖))))))
10782, 91, 105, 106syl3anc 1366 . . . . . . 7 ((((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛𝑁 → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖)))) = (-1↑(𝑛 + 1)))) ∧ (𝑛 + 1) ≤ 𝑁) → (𝑆‘(((pmTrsp‘𝐷)‘{𝑛, (𝑛 + 1)}) ∘ (𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖))))) = ((𝑆‘((pmTrsp‘𝐷)‘{𝑛, (𝑛 + 1)})) · (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖))))))
10884, 83, 56psgnpmtr 17976 . . . . . . . . . . 11 (((pmTrsp‘𝐷)‘{𝑛, (𝑛 + 1)}) ∈ ran (pmTrsp‘𝐷) → (𝑆‘((pmTrsp‘𝐷)‘{𝑛, (𝑛 + 1)})) = -1)
10989, 108syl 17 . . . . . . . . . 10 (((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛 + 1) ≤ 𝑁) → (𝑆‘((pmTrsp‘𝐷)‘{𝑛, (𝑛 + 1)})) = -1)
110109adantlr 751 . . . . . . . . 9 ((((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛𝑁 → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖)))) = (-1↑(𝑛 + 1)))) ∧ (𝑛 + 1) ≤ 𝑁) → (𝑆‘((pmTrsp‘𝐷)‘{𝑛, (𝑛 + 1)})) = -1)
11197adantlr 751 . . . . . . . . . 10 ((((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛𝑁 → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖)))) = (-1↑(𝑛 + 1)))) ∧ (𝑛 + 1) ≤ 𝑁) → 𝑛𝑁)
112 simplr 807 . . . . . . . . . 10 ((((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛𝑁 → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖)))) = (-1↑(𝑛 + 1)))) ∧ (𝑛 + 1) ≤ 𝑁) → (𝑛𝑁 → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖)))) = (-1↑(𝑛 + 1))))
113111, 112mpd 15 . . . . . . . . 9 ((((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛𝑁 → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖)))) = (-1↑(𝑛 + 1)))) ∧ (𝑛 + 1) ≤ 𝑁) → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖)))) = (-1↑(𝑛 + 1)))
114110, 113oveq12d 6708 . . . . . . . 8 ((((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛𝑁 → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖)))) = (-1↑(𝑛 + 1)))) ∧ (𝑛 + 1) ≤ 𝑁) → ((𝑆‘((pmTrsp‘𝐷)‘{𝑛, (𝑛 + 1)})) · (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖))))) = (-1 · (-1↑(𝑛 + 1))))
115 neg1cn 11162 . . . . . . . . . . 11 -1 ∈ ℂ
116 peano2nn 11070 . . . . . . . . . . . 12 (𝑛 ∈ ℕ → (𝑛 + 1) ∈ ℕ)
117116nnnn0d 11389 . . . . . . . . . . 11 (𝑛 ∈ ℕ → (𝑛 + 1) ∈ ℕ0)
118 expp1 12907 . . . . . . . . . . 11 ((-1 ∈ ℂ ∧ (𝑛 + 1) ∈ ℕ0) → (-1↑((𝑛 + 1) + 1)) = ((-1↑(𝑛 + 1)) · -1))
119115, 117, 118sylancr 696 . . . . . . . . . 10 (𝑛 ∈ ℕ → (-1↑((𝑛 + 1) + 1)) = ((-1↑(𝑛 + 1)) · -1))
120115a1i 11 . . . . . . . . . . . 12 (𝑛 ∈ ℕ → -1 ∈ ℂ)
121120, 117expcld 13048 . . . . . . . . . . 11 (𝑛 ∈ ℕ → (-1↑(𝑛 + 1)) ∈ ℂ)
122121, 120mulcomd 10099 . . . . . . . . . 10 (𝑛 ∈ ℕ → ((-1↑(𝑛 + 1)) · -1) = (-1 · (-1↑(𝑛 + 1))))
123119, 122eqtr2d 2686 . . . . . . . . 9 (𝑛 ∈ ℕ → (-1 · (-1↑(𝑛 + 1))) = (-1↑((𝑛 + 1) + 1)))
124123ad3antlr 767 . . . . . . . 8 ((((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛𝑁 → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖)))) = (-1↑(𝑛 + 1)))) ∧ (𝑛 + 1) ≤ 𝑁) → (-1 · (-1↑(𝑛 + 1))) = (-1↑((𝑛 + 1) + 1)))
125114, 124eqtrd 2685 . . . . . . 7 ((((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛𝑁 → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖)))) = (-1↑(𝑛 + 1)))) ∧ (𝑛 + 1) ≤ 𝑁) → ((𝑆‘((pmTrsp‘𝐷)‘{𝑛, (𝑛 + 1)})) · (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖))))) = (-1↑((𝑛 + 1) + 1)))
12681, 107, 1253eqtrd 2689 . . . . . 6 ((((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛𝑁 → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖)))) = (-1↑(𝑛 + 1)))) ∧ (𝑛 + 1) ≤ 𝑁) → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, (𝑛 + 1), if(𝑖 ≤ (𝑛 + 1), (𝑖 − 1), 𝑖)))) = (-1↑((𝑛 + 1) + 1)))
127126ex 449 . . . . 5 (((𝑁 ∈ ℕ ∧ 𝑛 ∈ ℕ) ∧ (𝑛𝑁 → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, 𝑛, if(𝑖𝑛, (𝑖 − 1), 𝑖)))) = (-1↑(𝑛 + 1)))) → ((𝑛 + 1) ≤ 𝑁 → (𝑆‘(𝑖𝐷 ↦ if(𝑖 = 1, (𝑛 + 1), if(𝑖 ≤ (𝑛 + 1), (𝑖 − 1), 𝑖)))) = (-1↑((𝑛 + 1) + 1))))
12818, 29, 40, 53, 69, 127nnindd 29694 . . . 4 ((𝑁 ∈ ℕ ∧ 𝐼 ∈ ℕ) → (𝐼𝑁 → (𝑆𝑃) = (-1↑(𝐼 + 1))))
129128imp 444 . . 3 (((𝑁 ∈ ℕ ∧ 𝐼 ∈ ℕ) ∧ 𝐼𝑁) → (𝑆𝑃) = (-1↑(𝐼 + 1)))
1307, 129sylbi 207 . 2 ((𝑁 ∈ ℕ ∧ 𝐼 ∈ ℕ ∧ 𝐼𝑁) → (𝑆𝑃) = (-1↑(𝐼 + 1)))
1316, 130syl 17 1 (𝐼𝐷 → (𝑆𝑃) = (-1↑(𝐼 + 1)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 383  w3a 1054   = wceq 1523  wcel 2030  ifcif 4119  {cpr 4212   class class class wbr 4685  cmpt 4762   I cid 5052  ran crn 5144  cres 5145  ccom 5147  cfv 5926  (class class class)co 6690  Fincfn 7997  cc 9972  1c1 9975   + caddc 9977   · cmul 9979  cle 10113  cmin 10304  -cneg 10305  cn 11058  2c2 11108  0cn0 11330  ...cfz 12364  cexp 12900  Basecbs 15904  SymGrpcsymg 17843  pmTrspcpmtr 17907  pmSgncpsgn 17955
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1762  ax-4 1777  ax-5 1879  ax-6 1945  ax-7 1981  ax-8 2032  ax-9 2039  ax-10 2059  ax-11 2074  ax-12 2087  ax-13 2282  ax-ext 2631  ax-rep 4804  ax-sep 4814  ax-nul 4822  ax-pow 4873  ax-pr 4936  ax-un 6991  ax-cnex 10030  ax-resscn 10031  ax-1cn 10032  ax-icn 10033  ax-addcl 10034  ax-addrcl 10035  ax-mulcl 10036  ax-mulrcl 10037  ax-mulcom 10038  ax-addass 10039  ax-mulass 10040  ax-distr 10041  ax-i2m1 10042  ax-1ne0 10043  ax-1rid 10044  ax-rnegex 10045  ax-rrecex 10046  ax-cnre 10047  ax-pre-lttri 10048  ax-pre-lttrn 10049  ax-pre-ltadd 10050  ax-pre-mulgt0 10051  ax-addf 10053  ax-mulf 10054
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1055  df-3an 1056  df-xor 1505  df-tru 1526  df-ex 1745  df-nf 1750  df-sb 1938  df-eu 2502  df-mo 2503  df-clab 2638  df-cleq 2644  df-clel 2647  df-nfc 2782  df-ne 2824  df-nel 2927  df-ral 2946  df-rex 2947  df-reu 2948  df-rmo 2949  df-rab 2950  df-v 3233  df-sbc 3469  df-csb 3567  df-dif 3610  df-un 3612  df-in 3614  df-ss 3621  df-pss 3623  df-nul 3949  df-if 4120  df-pw 4193  df-sn 4211  df-pr 4213  df-tp 4215  df-op 4217  df-ot 4219  df-uni 4469  df-int 4508  df-iun 4554  df-iin 4555  df-br 4686  df-opab 4746  df-mpt 4763  df-tr 4786  df-id 5053  df-eprel 5058  df-po 5064  df-so 5065  df-fr 5102  df-se 5103  df-we 5104  df-xp 5149  df-rel 5150  df-cnv 5151  df-co 5152  df-dm 5153  df-rn 5154  df-res 5155  df-ima 5156  df-pred 5718  df-ord 5764  df-on 5765  df-lim 5766  df-suc 5767  df-iota 5889  df-fun 5928  df-fn 5929  df-f 5930  df-f1 5931  df-fo 5932  df-f1o 5933  df-fv 5934  df-isom 5935  df-riota 6651  df-ov 6693  df-oprab 6694  df-mpt2 6695  df-om 7108  df-1st 7210  df-2nd 7211  df-tpos 7397  df-wrecs 7452  df-recs 7513  df-rdg 7551  df-1o 7605  df-2o 7606  df-oadd 7609  df-er 7787  df-map 7901  df-en 7998  df-dom 7999  df-sdom 8000  df-fin 8001  df-card 8803  df-pnf 10114  df-mnf 10115  df-xr 10116  df-ltxr 10117  df-le 10118  df-sub 10306  df-neg 10307  df-div 10723  df-nn 11059  df-2 11117  df-3 11118  df-4 11119  df-5 11120  df-6 11121  df-7 11122  df-8 11123  df-9 11124  df-n0 11331  df-xnn0 11402  df-z 11416  df-dec 11532  df-uz 11726  df-rp 11871  df-fz 12365  df-fzo 12505  df-seq 12842  df-exp 12901  df-hash 13158  df-word 13331  df-lsw 13332  df-concat 13333  df-s1 13334  df-substr 13335  df-splice 13336  df-reverse 13337  df-s2 13639  df-struct 15906  df-ndx 15907  df-slot 15908  df-base 15910  df-sets 15911  df-ress 15912  df-plusg 16001  df-mulr 16002  df-starv 16003  df-tset 16007  df-ple 16008  df-ds 16011  df-unif 16012  df-0g 16149  df-gsum 16150  df-mre 16293  df-mrc 16294  df-acs 16296  df-mgm 17289  df-sgrp 17331  df-mnd 17342  df-mhm 17382  df-submnd 17383  df-grp 17472  df-minusg 17473  df-subg 17638  df-ghm 17705  df-gim 17748  df-oppg 17822  df-symg 17844  df-pmtr 17908  df-psgn 17957  df-cmn 18241  df-abl 18242  df-mgp 18536  df-ur 18548  df-ring 18595  df-cring 18596  df-oppr 18669  df-dvdsr 18687  df-unit 18688  df-invr 18718  df-dvr 18729  df-drng 18797  df-cnfld 19795
This theorem is referenced by:  madjusmdetlem4  30024
  Copyright terms: Public domain W3C validator