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

Theorem mulgval 12837
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 mulgval.b . . . 4 𝐵 = (Base‘𝐺)
21basmex 12478 . . 3 (𝑋𝐵𝐺 ∈ V)
32adantl 275 . 2 ((𝑁 ∈ ℤ ∧ 𝑋𝐵) → 𝐺 ∈ V)
4 mulgval.p . . . . 5 + = (+g𝐺)
5 mulgval.o . . . . 5 0 = (0g𝐺)
6 mulgval.i . . . . 5 𝐼 = (invg𝐺)
7 mulgval.t . . . . 5 · = (.g𝐺)
81, 4, 5, 6, 7mulgfvalg 12836 . . . 4 (𝐺 ∈ V → · = (𝑛 ∈ ℤ, 𝑥𝐵 ↦ if(𝑛 = 0, 0 , if(0 < 𝑛, (seq1( + , (ℕ × {𝑥}))‘𝑛), (𝐼‘(seq1( + , (ℕ × {𝑥}))‘-𝑛))))))
98adantl 275 . . 3 (((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) → · = (𝑛 ∈ ℤ, 𝑥𝐵 ↦ if(𝑛 = 0, 0 , if(0 < 𝑛, (seq1( + , (ℕ × {𝑥}))‘𝑛), (𝐼‘(seq1( + , (ℕ × {𝑥}))‘-𝑛))))))
10 simpl 108 . . . . . 6 ((𝑛 = 𝑁𝑥 = 𝑋) → 𝑛 = 𝑁)
1110eqeq1d 2180 . . . . 5 ((𝑛 = 𝑁𝑥 = 𝑋) → (𝑛 = 0 ↔ 𝑁 = 0))
1210breq2d 4002 . . . . . 6 ((𝑛 = 𝑁𝑥 = 𝑋) → (0 < 𝑛 ↔ 0 < 𝑁))
13 simpr 109 . . . . . . . . . . 11 ((𝑛 = 𝑁𝑥 = 𝑋) → 𝑥 = 𝑋)
1413sneqd 3597 . . . . . . . . . 10 ((𝑛 = 𝑁𝑥 = 𝑋) → {𝑥} = {𝑋})
1514xpeq2d 4636 . . . . . . . . 9 ((𝑛 = 𝑁𝑥 = 𝑋) → (ℕ × {𝑥}) = (ℕ × {𝑋}))
1615seqeq3d 10413 . . . . . . . 8 ((𝑛 = 𝑁𝑥 = 𝑋) → seq1( + , (ℕ × {𝑥})) = seq1( + , (ℕ × {𝑋})))
17 mulgval.s . . . . . . . 8 𝑆 = seq1( + , (ℕ × {𝑋}))
1816, 17eqtr4di 2222 . . . . . . 7 ((𝑛 = 𝑁𝑥 = 𝑋) → seq1( + , (ℕ × {𝑥})) = 𝑆)
1918, 10fveq12d 5506 . . . . . 6 ((𝑛 = 𝑁𝑥 = 𝑋) → (seq1( + , (ℕ × {𝑥}))‘𝑛) = (𝑆𝑁))
2010negeqd 8118 . . . . . . . 8 ((𝑛 = 𝑁𝑥 = 𝑋) → -𝑛 = -𝑁)
2118, 20fveq12d 5506 . . . . . . 7 ((𝑛 = 𝑁𝑥 = 𝑋) → (seq1( + , (ℕ × {𝑥}))‘-𝑛) = (𝑆‘-𝑁))
2221fveq2d 5503 . . . . . 6 ((𝑛 = 𝑁𝑥 = 𝑋) → (𝐼‘(seq1( + , (ℕ × {𝑥}))‘-𝑛)) = (𝐼‘(𝑆‘-𝑁)))
2312, 19, 22ifbieq12d 3553 . . . . 5 ((𝑛 = 𝑁𝑥 = 𝑋) → if(0 < 𝑛, (seq1( + , (ℕ × {𝑥}))‘𝑛), (𝐼‘(seq1( + , (ℕ × {𝑥}))‘-𝑛))) = if(0 < 𝑁, (𝑆𝑁), (𝐼‘(𝑆‘-𝑁))))
2411, 23ifbieq2d 3551 . . . 4 ((𝑛 = 𝑁𝑥 = 𝑋) → if(𝑛 = 0, 0 , if(0 < 𝑛, (seq1( + , (ℕ × {𝑥}))‘𝑛), (𝐼‘(seq1( + , (ℕ × {𝑥}))‘-𝑛)))) = if(𝑁 = 0, 0 , if(0 < 𝑁, (𝑆𝑁), (𝐼‘(𝑆‘-𝑁)))))
2524adantl 275 . . 3 ((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ (𝑛 = 𝑁𝑥 = 𝑋)) → if(𝑛 = 0, 0 , if(0 < 𝑛, (seq1( + , (ℕ × {𝑥}))‘𝑛), (𝐼‘(seq1( + , (ℕ × {𝑥}))‘-𝑛)))) = if(𝑁 = 0, 0 , if(0 < 𝑁, (𝑆𝑁), (𝐼‘(𝑆‘-𝑁)))))
26 simpll 525 . . 3 (((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) → 𝑁 ∈ ℤ)
27 simplr 526 . . 3 (((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) → 𝑋𝐵)
28 fn0g 12651 . . . . . . 7 0g Fn V
29 funfvex 5516 . . . . . . . 8 ((Fun 0g𝐺 ∈ dom 0g) → (0g𝐺) ∈ V)
3029funfni 5300 . . . . . . 7 ((0g Fn V ∧ 𝐺 ∈ V) → (0g𝐺) ∈ V)
3128, 30mpan 422 . . . . . 6 (𝐺 ∈ V → (0g𝐺) ∈ V)
325, 31eqeltrid 2258 . . . . 5 (𝐺 ∈ V → 0 ∈ V)
3332ad2antlr 487 . . . 4 ((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ 𝑁 = 0) → 0 ∈ V)
34 nnuz 9526 . . . . . . . . 9 ℕ = (ℤ‘1)
35 1zzd 9243 . . . . . . . . 9 ((𝑋𝐵𝐺 ∈ V) → 1 ∈ ℤ)
36 fvconst2g 5714 . . . . . . . . . . . 12 ((𝑋𝐵𝑢 ∈ ℕ) → ((ℕ × {𝑋})‘𝑢) = 𝑋)
37 simpl 108 . . . . . . . . . . . 12 ((𝑋𝐵𝑢 ∈ ℕ) → 𝑋𝐵)
3836, 37eqeltrd 2248 . . . . . . . . . . 11 ((𝑋𝐵𝑢 ∈ ℕ) → ((ℕ × {𝑋})‘𝑢) ∈ 𝐵)
3938elexd 2744 . . . . . . . . . 10 ((𝑋𝐵𝑢 ∈ ℕ) → ((ℕ × {𝑋})‘𝑢) ∈ V)
4039adantlr 475 . . . . . . . . 9 (((𝑋𝐵𝐺 ∈ V) ∧ 𝑢 ∈ ℕ) → ((ℕ × {𝑋})‘𝑢) ∈ V)
41 simprl 527 . . . . . . . . . 10 (((𝑋𝐵𝐺 ∈ V) ∧ (𝑢 ∈ V ∧ 𝑣 ∈ V)) → 𝑢 ∈ V)
42 plusgslid 12517 . . . . . . . . . . . . 13 (+g = Slot (+g‘ndx) ∧ (+g‘ndx) ∈ ℕ)
4342slotex 12447 . . . . . . . . . . . 12 (𝐺 ∈ V → (+g𝐺) ∈ V)
444, 43eqeltrid 2258 . . . . . . . . . . 11 (𝐺 ∈ V → + ∈ V)
4544ad2antlr 487 . . . . . . . . . 10 (((𝑋𝐵𝐺 ∈ V) ∧ (𝑢 ∈ V ∧ 𝑣 ∈ V)) → + ∈ V)
46 simprr 528 . . . . . . . . . 10 (((𝑋𝐵𝐺 ∈ V) ∧ (𝑢 ∈ V ∧ 𝑣 ∈ V)) → 𝑣 ∈ V)
47 ovexg 5891 . . . . . . . . . 10 ((𝑢 ∈ V ∧ + ∈ V ∧ 𝑣 ∈ V) → (𝑢 + 𝑣) ∈ V)
4841, 45, 46, 47syl3anc 1234 . . . . . . . . 9 (((𝑋𝐵𝐺 ∈ V) ∧ (𝑢 ∈ V ∧ 𝑣 ∈ V)) → (𝑢 + 𝑣) ∈ V)
4934, 35, 40, 48seqf 10421 . . . . . . . 8 ((𝑋𝐵𝐺 ∈ V) → seq1( + , (ℕ × {𝑋})):ℕ⟶V)
5017feq1i 5342 . . . . . . . 8 (𝑆:ℕ⟶V ↔ seq1( + , (ℕ × {𝑋})):ℕ⟶V)
5149, 50sylibr 133 . . . . . . 7 ((𝑋𝐵𝐺 ∈ V) → 𝑆:ℕ⟶V)
5251ad5ant23 520 . . . . . 6 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ 0 < 𝑁) → 𝑆:ℕ⟶V)
53 simp-4l 537 . . . . . . 7 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ 0 < 𝑁) → 𝑁 ∈ ℤ)
54 simpr 109 . . . . . . 7 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ 0 < 𝑁) → 0 < 𝑁)
55 elnnz 9226 . . . . . . 7 (𝑁 ∈ ℕ ↔ (𝑁 ∈ ℤ ∧ 0 < 𝑁))
5653, 54, 55sylanbrc 415 . . . . . 6 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ 0 < 𝑁) → 𝑁 ∈ ℕ)
5752, 56ffvelrnd 5636 . . . . 5 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ 0 < 𝑁) → (𝑆𝑁) ∈ V)
581, 6grpinvfng 12769 . . . . . . . 8 (𝐺 ∈ V → 𝐼 Fn 𝐵)
59 basfn 12477 . . . . . . . . . 10 Base Fn V
60 funfvex 5516 . . . . . . . . . . 11 ((Fun Base ∧ 𝐺 ∈ dom Base) → (Base‘𝐺) ∈ V)
6160funfni 5300 . . . . . . . . . 10 ((Base Fn V ∧ 𝐺 ∈ V) → (Base‘𝐺) ∈ V)
6259, 61mpan 422 . . . . . . . . 9 (𝐺 ∈ V → (Base‘𝐺) ∈ V)
631, 62eqeltrid 2258 . . . . . . . 8 (𝐺 ∈ V → 𝐵 ∈ V)
64 fnex 5722 . . . . . . . 8 ((𝐼 Fn 𝐵𝐵 ∈ V) → 𝐼 ∈ V)
6558, 63, 64syl2anc 409 . . . . . . 7 (𝐺 ∈ V → 𝐼 ∈ V)
6665ad3antlr 491 . . . . . 6 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → 𝐼 ∈ V)
6751ad5ant23 520 . . . . . . 7 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → 𝑆:ℕ⟶V)
68 znegcl 9247 . . . . . . . . 9 (𝑁 ∈ ℤ → -𝑁 ∈ ℤ)
6968ad4antr 492 . . . . . . . 8 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → -𝑁 ∈ ℤ)
70 simplr 526 . . . . . . . . . 10 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → ¬ 𝑁 = 0)
71 simpr 109 . . . . . . . . . 10 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → ¬ 0 < 𝑁)
72 ztri3or0 9258 . . . . . . . . . . 11 (𝑁 ∈ ℤ → (𝑁 < 0 ∨ 𝑁 = 0 ∨ 0 < 𝑁))
7372ad4antr 492 . . . . . . . . . 10 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → (𝑁 < 0 ∨ 𝑁 = 0 ∨ 0 < 𝑁))
7470, 71, 73ecase23d 1346 . . . . . . . . 9 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → 𝑁 < 0)
75 zre 9220 . . . . . . . . . . 11 (𝑁 ∈ ℤ → 𝑁 ∈ ℝ)
7675ad4antr 492 . . . . . . . . . 10 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → 𝑁 ∈ ℝ)
7776lt0neg1d 8438 . . . . . . . . 9 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → (𝑁 < 0 ↔ 0 < -𝑁))
7874, 77mpbid 146 . . . . . . . 8 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → 0 < -𝑁)
79 elnnz 9226 . . . . . . . 8 (-𝑁 ∈ ℕ ↔ (-𝑁 ∈ ℤ ∧ 0 < -𝑁))
8069, 78, 79sylanbrc 415 . . . . . . 7 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → -𝑁 ∈ ℕ)
8167, 80ffvelrnd 5636 . . . . . 6 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → (𝑆‘-𝑁) ∈ V)
82 fvexg 5518 . . . . . 6 ((𝐼 ∈ V ∧ (𝑆‘-𝑁) ∈ V) → (𝐼‘(𝑆‘-𝑁)) ∈ V)
8366, 81, 82syl2anc 409 . . . . 5 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → (𝐼‘(𝑆‘-𝑁)) ∈ V)
84 0zd 9228 . . . . . 6 ((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) → 0 ∈ ℤ)
85 simplll 529 . . . . . 6 ((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) → 𝑁 ∈ ℤ)
86 zdclt 9293 . . . . . 6 ((0 ∈ ℤ ∧ 𝑁 ∈ ℤ) → DECID 0 < 𝑁)
8784, 85, 86syl2anc 409 . . . . 5 ((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) → DECID 0 < 𝑁)
8857, 83, 87ifcldadc 3556 . . . 4 ((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) → if(0 < 𝑁, (𝑆𝑁), (𝐼‘(𝑆‘-𝑁))) ∈ V)
89 0zd 9228 . . . . 5 (((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) → 0 ∈ ℤ)
90 zdceq 9291 . . . . 5 ((𝑁 ∈ ℤ ∧ 0 ∈ ℤ) → DECID 𝑁 = 0)
9126, 89, 90syl2anc 409 . . . 4 (((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) → DECID 𝑁 = 0)
9233, 88, 91ifcldadc 3556 . . 3 (((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) → if(𝑁 = 0, 0 , if(0 < 𝑁, (𝑆𝑁), (𝐼‘(𝑆‘-𝑁)))) ∈ V)
939, 25, 26, 27, 92ovmpod 5984 . 2 (((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) → (𝑁 · 𝑋) = if(𝑁 = 0, 0 , if(0 < 𝑁, (𝑆𝑁), (𝐼‘(𝑆‘-𝑁)))))
943, 93mpdan 419 1 ((𝑁 ∈ ℤ ∧ 𝑋𝐵) → (𝑁 · 𝑋) = if(𝑁 = 0, 0 , if(0 < 𝑁, (𝑆𝑁), (𝐼‘(𝑆‘-𝑁)))))
Colors of variables: wff set class
Syntax hints:  ¬ wn 3  wi 4  wa 103  DECID wdc 830  w3o 973   = wceq 1349  wcel 2142  Vcvv 2731  ifcif 3527  {csn 3584   class class class wbr 3990   × cxp 4610   Fn wfn 5195  wf 5196  cfv 5200  (class class class)co 5857  cmpo 5859  cr 7777  0cc0 7778  1c1 7779   < clt 7958  -cneg 8095  cn 8882  cz 9216  seqcseq 10405  Basecbs 12420  +gcplusg 12484  0gc0g 12618  invgcminusg 12731  .gcmg 12834
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 610  ax-in2 611  ax-io 705  ax-5 1441  ax-7 1442  ax-gen 1443  ax-ie1 1487  ax-ie2 1488  ax-8 1498  ax-10 1499  ax-11 1500  ax-i12 1501  ax-bndl 1503  ax-4 1504  ax-17 1520  ax-i9 1524  ax-ial 1528  ax-i5r 1529  ax-13 2144  ax-14 2145  ax-ext 2153  ax-coll 4105  ax-sep 4108  ax-nul 4116  ax-pow 4161  ax-pr 4195  ax-un 4419  ax-setind 4522  ax-iinf 4573  ax-cnex 7869  ax-resscn 7870  ax-1cn 7871  ax-1re 7872  ax-icn 7873  ax-addcl 7874  ax-addrcl 7875  ax-mulcl 7876  ax-addcom 7878  ax-addass 7880  ax-distr 7882  ax-i2m1 7883  ax-0lt1 7884  ax-0id 7886  ax-rnegex 7887  ax-cnre 7889  ax-pre-ltirr 7890  ax-pre-ltwlin 7891  ax-pre-lttrn 7892  ax-pre-ltadd 7894
This theorem depends on definitions:  df-bi 116  df-dc 831  df-3or 975  df-3an 976  df-tru 1352  df-fal 1355  df-nf 1455  df-sb 1757  df-eu 2023  df-mo 2024  df-clab 2158  df-cleq 2164  df-clel 2167  df-nfc 2302  df-ne 2342  df-nel 2437  df-ral 2454  df-rex 2455  df-reu 2456  df-rab 2458  df-v 2733  df-sbc 2957  df-csb 3051  df-dif 3124  df-un 3126  df-in 3128  df-ss 3135  df-nul 3416  df-if 3528  df-pw 3569  df-sn 3590  df-pr 3591  df-op 3593  df-uni 3798  df-int 3833  df-iun 3876  df-br 3991  df-opab 4052  df-mpt 4053  df-tr 4089  df-id 4279  df-iord 4352  df-on 4354  df-ilim 4355  df-suc 4357  df-iom 4576  df-xp 4618  df-rel 4619  df-cnv 4620  df-co 4621  df-dm 4622  df-rn 4623  df-res 4624  df-ima 4625  df-iota 5162  df-fun 5202  df-fn 5203  df-f 5204  df-f1 5205  df-fo 5206  df-f1o 5207  df-fv 5208  df-riota 5813  df-ov 5860  df-oprab 5861  df-mpo 5862  df-1st 6123  df-2nd 6124  df-recs 6288  df-frec 6374  df-pnf 7960  df-mnf 7961  df-xr 7962  df-ltxr 7963  df-le 7964  df-sub 8096  df-neg 8097  df-inn 8883  df-2 8941  df-n0 9140  df-z 9217  df-uz 9492  df-seqfrec 10406  df-ndx 12423  df-slot 12424  df-base 12426  df-plusg 12497  df-0g 12620  df-minusg 12734  df-mulg 12835
This theorem is referenced by:  mulg0  12839  mulgnn  12840  mulgnegnn  12844
  Copyright terms: Public domain W3C validator