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

Theorem mulgval 17314
Description: Value of the group multiple (exponentiation) operation. (Contributed by Mario Carneiro, 11-Dec-2014.)
Hypotheses
Ref Expression
mulgval.b 𝐵 = (Base‘𝐺)
mulgval.p + = (+g𝐺)
mulgval.o 0 = (0g𝐺)
mulgval.i 𝐼 = (invg𝐺)
mulgval.t · = (.g𝐺)
mulgval.s 𝑆 = seq1( + , (ℕ × {𝑋}))
Assertion
Ref Expression
mulgval ((𝑁 ∈ ℤ ∧ 𝑋𝐵) → (𝑁 · 𝑋) = if(𝑁 = 0, 0 , if(0 < 𝑁, (𝑆𝑁), (𝐼‘(𝑆‘-𝑁)))))

Proof of Theorem mulgval
Dummy variables 𝑛 𝑥 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simpl 471 . . . 4 ((𝑛 = 𝑁𝑥 = 𝑋) → 𝑛 = 𝑁)
21eqeq1d 2611 . . 3 ((𝑛 = 𝑁𝑥 = 𝑋) → (𝑛 = 0 ↔ 𝑁 = 0))
31breq2d 4589 . . . 4 ((𝑛 = 𝑁𝑥 = 𝑋) → (0 < 𝑛 ↔ 0 < 𝑁))
4 simpr 475 . . . . . . . . 9 ((𝑛 = 𝑁𝑥 = 𝑋) → 𝑥 = 𝑋)
54sneqd 4136 . . . . . . . 8 ((𝑛 = 𝑁𝑥 = 𝑋) → {𝑥} = {𝑋})
65xpeq2d 5052 . . . . . . 7 ((𝑛 = 𝑁𝑥 = 𝑋) → (ℕ × {𝑥}) = (ℕ × {𝑋}))
76seqeq3d 12628 . . . . . 6 ((𝑛 = 𝑁𝑥 = 𝑋) → seq1( + , (ℕ × {𝑥})) = seq1( + , (ℕ × {𝑋})))
8 mulgval.s . . . . . 6 𝑆 = seq1( + , (ℕ × {𝑋}))
97, 8syl6eqr 2661 . . . . 5 ((𝑛 = 𝑁𝑥 = 𝑋) → seq1( + , (ℕ × {𝑥})) = 𝑆)
109, 1fveq12d 6093 . . . 4 ((𝑛 = 𝑁𝑥 = 𝑋) → (seq1( + , (ℕ × {𝑥}))‘𝑛) = (𝑆𝑁))
111negeqd 10126 . . . . . 6 ((𝑛 = 𝑁𝑥 = 𝑋) → -𝑛 = -𝑁)
129, 11fveq12d 6093 . . . . 5 ((𝑛 = 𝑁𝑥 = 𝑋) → (seq1( + , (ℕ × {𝑥}))‘-𝑛) = (𝑆‘-𝑁))
1312fveq2d 6091 . . . 4 ((𝑛 = 𝑁𝑥 = 𝑋) → (𝐼‘(seq1( + , (ℕ × {𝑥}))‘-𝑛)) = (𝐼‘(𝑆‘-𝑁)))
143, 10, 13ifbieq12d 4062 . . 3 ((𝑛 = 𝑁𝑥 = 𝑋) → if(0 < 𝑛, (seq1( + , (ℕ × {𝑥}))‘𝑛), (𝐼‘(seq1( + , (ℕ × {𝑥}))‘-𝑛))) = if(0 < 𝑁, (𝑆𝑁), (𝐼‘(𝑆‘-𝑁))))
152, 14ifbieq2d 4060 . 2 ((𝑛 = 𝑁𝑥 = 𝑋) → if(𝑛 = 0, 0 , if(0 < 𝑛, (seq1( + , (ℕ × {𝑥}))‘𝑛), (𝐼‘(seq1( + , (ℕ × {𝑥}))‘-𝑛)))) = if(𝑁 = 0, 0 , if(0 < 𝑁, (𝑆𝑁), (𝐼‘(𝑆‘-𝑁)))))
16 mulgval.b . . 3 𝐵 = (Base‘𝐺)
17 mulgval.p . . 3 + = (+g𝐺)
18 mulgval.o . . 3 0 = (0g𝐺)
19 mulgval.i . . 3 𝐼 = (invg𝐺)
20 mulgval.t . . 3 · = (.g𝐺)
2116, 17, 18, 19, 20mulgfval 17313 . 2 · = (𝑛 ∈ ℤ, 𝑥𝐵 ↦ if(𝑛 = 0, 0 , if(0 < 𝑛, (seq1( + , (ℕ × {𝑥}))‘𝑛), (𝐼‘(seq1( + , (ℕ × {𝑥}))‘-𝑛)))))
22 fvex 6097 . . . 4 (0g𝐺) ∈ V
2318, 22eqeltri 2683 . . 3 0 ∈ V
24 fvex 6097 . . . 4 (𝑆𝑁) ∈ V
25 fvex 6097 . . . 4 (𝐼‘(𝑆‘-𝑁)) ∈ V
2624, 25ifex 4105 . . 3 if(0 < 𝑁, (𝑆𝑁), (𝐼‘(𝑆‘-𝑁))) ∈ V
2723, 26ifex 4105 . 2 if(𝑁 = 0, 0 , if(0 < 𝑁, (𝑆𝑁), (𝐼‘(𝑆‘-𝑁)))) ∈ V
2815, 21, 27ovmpt2a 6666 1 ((𝑁 ∈ ℤ ∧ 𝑋𝐵) → (𝑁 · 𝑋) = if(𝑁 = 0, 0 , if(0 < 𝑁, (𝑆𝑁), (𝐼‘(𝑆‘-𝑁)))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 382   = wceq 1474  wcel 1976  Vcvv 3172  ifcif 4035  {csn 4124   class class class wbr 4577   × cxp 5025  cfv 5789  (class class class)co 6526  0cc0 9792  1c1 9793   < clt 9930  -cneg 10118  cn 10869  cz 11212  seqcseq 12620  Basecbs 15643  +gcplusg 15716  0gc0g 15871  invgcminusg 17194  .gcmg 17311
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1712  ax-4 1727  ax-5 1826  ax-6 1874  ax-7 1921  ax-8 1978  ax-9 1985  ax-10 2005  ax-11 2020  ax-12 2033  ax-13 2233  ax-ext 2589  ax-rep 4693  ax-sep 4703  ax-nul 4711  ax-pow 4763  ax-pr 4827  ax-un 6824  ax-inf2 8398  ax-cnex 9848  ax-resscn 9849
This theorem depends on definitions:  df-bi 195  df-or 383  df-an 384  df-3or 1031  df-3an 1032  df-tru 1477  df-ex 1695  df-nf 1700  df-sb 1867  df-eu 2461  df-mo 2462  df-clab 2596  df-cleq 2602  df-clel 2605  df-nfc 2739  df-ne 2781  df-ral 2900  df-rex 2901  df-reu 2902  df-rab 2904  df-v 3174  df-sbc 3402  df-csb 3499  df-dif 3542  df-un 3544  df-in 3546  df-ss 3553  df-pss 3555  df-nul 3874  df-if 4036  df-pw 4109  df-sn 4125  df-pr 4127  df-tp 4129  df-op 4131  df-uni 4367  df-iun 4451  df-br 4578  df-opab 4638  df-mpt 4639  df-tr 4675  df-eprel 4938  df-id 4942  df-po 4948  df-so 4949  df-fr 4986  df-we 4988  df-xp 5033  df-rel 5034  df-cnv 5035  df-co 5036  df-dm 5037  df-rn 5038  df-res 5039  df-ima 5040  df-pred 5582  df-ord 5628  df-on 5629  df-lim 5630  df-suc 5631  df-iota 5753  df-fun 5791  df-fn 5792  df-f 5793  df-f1 5794  df-fo 5795  df-f1o 5796  df-fv 5797  df-ov 6529  df-oprab 6530  df-mpt2 6531  df-om 6935  df-1st 7036  df-2nd 7037  df-wrecs 7271  df-recs 7332  df-rdg 7370  df-neg 10120  df-z 11213  df-seq 12621  df-mulg 17312
This theorem is referenced by:  mulg0  17317  mulgnn  17318  mulgnegnn  17322  subgmulg  17379
  Copyright terms: Public domain W3C validator