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

Theorem mulgval 13711
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 13144 . . 3 (𝑋𝐵𝐺 ∈ V)
32adantl 277 . 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 13710 . . . 4 (𝐺 ∈ V → · = (𝑛 ∈ ℤ, 𝑥𝐵 ↦ if(𝑛 = 0, 0 , if(0 < 𝑛, (seq1( + , (ℕ × {𝑥}))‘𝑛), (𝐼‘(seq1( + , (ℕ × {𝑥}))‘-𝑛))))))
98adantl 277 . . 3 (((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) → · = (𝑛 ∈ ℤ, 𝑥𝐵 ↦ if(𝑛 = 0, 0 , if(0 < 𝑛, (seq1( + , (ℕ × {𝑥}))‘𝑛), (𝐼‘(seq1( + , (ℕ × {𝑥}))‘-𝑛))))))
10 simpl 109 . . . . . 6 ((𝑛 = 𝑁𝑥 = 𝑋) → 𝑛 = 𝑁)
1110eqeq1d 2240 . . . . 5 ((𝑛 = 𝑁𝑥 = 𝑋) → (𝑛 = 0 ↔ 𝑁 = 0))
1210breq2d 4100 . . . . . 6 ((𝑛 = 𝑁𝑥 = 𝑋) → (0 < 𝑛 ↔ 0 < 𝑁))
13 simpr 110 . . . . . . . . . . 11 ((𝑛 = 𝑁𝑥 = 𝑋) → 𝑥 = 𝑋)
1413sneqd 3682 . . . . . . . . . 10 ((𝑛 = 𝑁𝑥 = 𝑋) → {𝑥} = {𝑋})
1514xpeq2d 4749 . . . . . . . . 9 ((𝑛 = 𝑁𝑥 = 𝑋) → (ℕ × {𝑥}) = (ℕ × {𝑋}))
1615seqeq3d 10718 . . . . . . . 8 ((𝑛 = 𝑁𝑥 = 𝑋) → seq1( + , (ℕ × {𝑥})) = seq1( + , (ℕ × {𝑋})))
17 mulgval.s . . . . . . . 8 𝑆 = seq1( + , (ℕ × {𝑋}))
1816, 17eqtr4di 2282 . . . . . . 7 ((𝑛 = 𝑁𝑥 = 𝑋) → seq1( + , (ℕ × {𝑥})) = 𝑆)
1918, 10fveq12d 5646 . . . . . 6 ((𝑛 = 𝑁𝑥 = 𝑋) → (seq1( + , (ℕ × {𝑥}))‘𝑛) = (𝑆𝑁))
2010negeqd 8374 . . . . . . . 8 ((𝑛 = 𝑁𝑥 = 𝑋) → -𝑛 = -𝑁)
2118, 20fveq12d 5646 . . . . . . 7 ((𝑛 = 𝑁𝑥 = 𝑋) → (seq1( + , (ℕ × {𝑥}))‘-𝑛) = (𝑆‘-𝑁))
2221fveq2d 5643 . . . . . 6 ((𝑛 = 𝑁𝑥 = 𝑋) → (𝐼‘(seq1( + , (ℕ × {𝑥}))‘-𝑛)) = (𝐼‘(𝑆‘-𝑁)))
2312, 19, 22ifbieq12d 3632 . . . . 5 ((𝑛 = 𝑁𝑥 = 𝑋) → if(0 < 𝑛, (seq1( + , (ℕ × {𝑥}))‘𝑛), (𝐼‘(seq1( + , (ℕ × {𝑥}))‘-𝑛))) = if(0 < 𝑁, (𝑆𝑁), (𝐼‘(𝑆‘-𝑁))))
2411, 23ifbieq2d 3630 . . . 4 ((𝑛 = 𝑁𝑥 = 𝑋) → if(𝑛 = 0, 0 , if(0 < 𝑛, (seq1( + , (ℕ × {𝑥}))‘𝑛), (𝐼‘(seq1( + , (ℕ × {𝑥}))‘-𝑛)))) = if(𝑁 = 0, 0 , if(0 < 𝑁, (𝑆𝑁), (𝐼‘(𝑆‘-𝑁)))))
2524adantl 277 . . 3 ((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ (𝑛 = 𝑁𝑥 = 𝑋)) → if(𝑛 = 0, 0 , if(0 < 𝑛, (seq1( + , (ℕ × {𝑥}))‘𝑛), (𝐼‘(seq1( + , (ℕ × {𝑥}))‘-𝑛)))) = if(𝑁 = 0, 0 , if(0 < 𝑁, (𝑆𝑁), (𝐼‘(𝑆‘-𝑁)))))
26 simpll 527 . . 3 (((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) → 𝑁 ∈ ℤ)
27 simplr 529 . . 3 (((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) → 𝑋𝐵)
28 fn0g 13460 . . . . . . 7 0g Fn V
29 funfvex 5656 . . . . . . . 8 ((Fun 0g𝐺 ∈ dom 0g) → (0g𝐺) ∈ V)
3029funfni 5432 . . . . . . 7 ((0g Fn V ∧ 𝐺 ∈ V) → (0g𝐺) ∈ V)
3128, 30mpan 424 . . . . . 6 (𝐺 ∈ V → (0g𝐺) ∈ V)
325, 31eqeltrid 2318 . . . . 5 (𝐺 ∈ V → 0 ∈ V)
3332ad2antlr 489 . . . 4 ((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ 𝑁 = 0) → 0 ∈ V)
34 nnuz 9792 . . . . . . . . 9 ℕ = (ℤ‘1)
35 1zzd 9506 . . . . . . . . 9 ((𝑋𝐵𝐺 ∈ V) → 1 ∈ ℤ)
36 fvconst2g 5868 . . . . . . . . . . . 12 ((𝑋𝐵𝑢 ∈ ℕ) → ((ℕ × {𝑋})‘𝑢) = 𝑋)
37 simpl 109 . . . . . . . . . . . 12 ((𝑋𝐵𝑢 ∈ ℕ) → 𝑋𝐵)
3836, 37eqeltrd 2308 . . . . . . . . . . 11 ((𝑋𝐵𝑢 ∈ ℕ) → ((ℕ × {𝑋})‘𝑢) ∈ 𝐵)
3938elexd 2816 . . . . . . . . . 10 ((𝑋𝐵𝑢 ∈ ℕ) → ((ℕ × {𝑋})‘𝑢) ∈ V)
4039adantlr 477 . . . . . . . . 9 (((𝑋𝐵𝐺 ∈ V) ∧ 𝑢 ∈ ℕ) → ((ℕ × {𝑋})‘𝑢) ∈ V)
41 simprl 531 . . . . . . . . . 10 (((𝑋𝐵𝐺 ∈ V) ∧ (𝑢 ∈ V ∧ 𝑣 ∈ V)) → 𝑢 ∈ V)
42 plusgslid 13197 . . . . . . . . . . . . 13 (+g = Slot (+g‘ndx) ∧ (+g‘ndx) ∈ ℕ)
4342slotex 13111 . . . . . . . . . . . 12 (𝐺 ∈ V → (+g𝐺) ∈ V)
444, 43eqeltrid 2318 . . . . . . . . . . 11 (𝐺 ∈ V → + ∈ V)
4544ad2antlr 489 . . . . . . . . . 10 (((𝑋𝐵𝐺 ∈ V) ∧ (𝑢 ∈ V ∧ 𝑣 ∈ V)) → + ∈ V)
46 simprr 533 . . . . . . . . . 10 (((𝑋𝐵𝐺 ∈ V) ∧ (𝑢 ∈ V ∧ 𝑣 ∈ V)) → 𝑣 ∈ V)
47 ovexg 6052 . . . . . . . . . 10 ((𝑢 ∈ V ∧ + ∈ V ∧ 𝑣 ∈ V) → (𝑢 + 𝑣) ∈ V)
4841, 45, 46, 47syl3anc 1273 . . . . . . . . 9 (((𝑋𝐵𝐺 ∈ V) ∧ (𝑢 ∈ V ∧ 𝑣 ∈ V)) → (𝑢 + 𝑣) ∈ V)
4934, 35, 40, 48seqf 10727 . . . . . . . 8 ((𝑋𝐵𝐺 ∈ V) → seq1( + , (ℕ × {𝑋})):ℕ⟶V)
5017feq1i 5475 . . . . . . . 8 (𝑆:ℕ⟶V ↔ seq1( + , (ℕ × {𝑋})):ℕ⟶V)
5149, 50sylibr 134 . . . . . . 7 ((𝑋𝐵𝐺 ∈ V) → 𝑆:ℕ⟶V)
5251ad5ant23 522 . . . . . 6 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ 0 < 𝑁) → 𝑆:ℕ⟶V)
53 simp-4l 543 . . . . . . 7 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ 0 < 𝑁) → 𝑁 ∈ ℤ)
54 simpr 110 . . . . . . 7 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ 0 < 𝑁) → 0 < 𝑁)
55 elnnz 9489 . . . . . . 7 (𝑁 ∈ ℕ ↔ (𝑁 ∈ ℤ ∧ 0 < 𝑁))
5653, 54, 55sylanbrc 417 . . . . . 6 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ 0 < 𝑁) → 𝑁 ∈ ℕ)
5752, 56ffvelcdmd 5783 . . . . 5 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ 0 < 𝑁) → (𝑆𝑁) ∈ V)
581, 6grpinvfng 13629 . . . . . . . 8 (𝐺 ∈ V → 𝐼 Fn 𝐵)
59 basfn 13143 . . . . . . . . . 10 Base Fn V
60 funfvex 5656 . . . . . . . . . . 11 ((Fun Base ∧ 𝐺 ∈ dom Base) → (Base‘𝐺) ∈ V)
6160funfni 5432 . . . . . . . . . 10 ((Base Fn V ∧ 𝐺 ∈ V) → (Base‘𝐺) ∈ V)
6259, 61mpan 424 . . . . . . . . 9 (𝐺 ∈ V → (Base‘𝐺) ∈ V)
631, 62eqeltrid 2318 . . . . . . . 8 (𝐺 ∈ V → 𝐵 ∈ V)
64 fnex 5876 . . . . . . . 8 ((𝐼 Fn 𝐵𝐵 ∈ V) → 𝐼 ∈ V)
6558, 63, 64syl2anc 411 . . . . . . 7 (𝐺 ∈ V → 𝐼 ∈ V)
6665ad3antlr 493 . . . . . 6 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → 𝐼 ∈ V)
6751ad5ant23 522 . . . . . . 7 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → 𝑆:ℕ⟶V)
68 znegcl 9510 . . . . . . . . 9 (𝑁 ∈ ℤ → -𝑁 ∈ ℤ)
6968ad4antr 494 . . . . . . . 8 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → -𝑁 ∈ ℤ)
70 simplr 529 . . . . . . . . . 10 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → ¬ 𝑁 = 0)
71 simpr 110 . . . . . . . . . 10 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → ¬ 0 < 𝑁)
72 ztri3or0 9521 . . . . . . . . . . 11 (𝑁 ∈ ℤ → (𝑁 < 0 ∨ 𝑁 = 0 ∨ 0 < 𝑁))
7372ad4antr 494 . . . . . . . . . 10 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → (𝑁 < 0 ∨ 𝑁 = 0 ∨ 0 < 𝑁))
7470, 71, 73ecase23d 1386 . . . . . . . . 9 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → 𝑁 < 0)
75 zre 9483 . . . . . . . . . . 11 (𝑁 ∈ ℤ → 𝑁 ∈ ℝ)
7675ad4antr 494 . . . . . . . . . 10 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → 𝑁 ∈ ℝ)
7776lt0neg1d 8695 . . . . . . . . 9 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → (𝑁 < 0 ↔ 0 < -𝑁))
7874, 77mpbid 147 . . . . . . . 8 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → 0 < -𝑁)
79 elnnz 9489 . . . . . . . 8 (-𝑁 ∈ ℕ ↔ (-𝑁 ∈ ℤ ∧ 0 < -𝑁))
8069, 78, 79sylanbrc 417 . . . . . . 7 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → -𝑁 ∈ ℕ)
8167, 80ffvelcdmd 5783 . . . . . 6 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → (𝑆‘-𝑁) ∈ V)
82 fvexg 5658 . . . . . 6 ((𝐼 ∈ V ∧ (𝑆‘-𝑁) ∈ V) → (𝐼‘(𝑆‘-𝑁)) ∈ V)
8366, 81, 82syl2anc 411 . . . . 5 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → (𝐼‘(𝑆‘-𝑁)) ∈ V)
84 0zd 9491 . . . . . 6 ((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) → 0 ∈ ℤ)
85 simplll 535 . . . . . 6 ((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) → 𝑁 ∈ ℤ)
86 zdclt 9557 . . . . . 6 ((0 ∈ ℤ ∧ 𝑁 ∈ ℤ) → DECID 0 < 𝑁)
8784, 85, 86syl2anc 411 . . . . 5 ((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) → DECID 0 < 𝑁)
8857, 83, 87ifcldadc 3635 . . . 4 ((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) → if(0 < 𝑁, (𝑆𝑁), (𝐼‘(𝑆‘-𝑁))) ∈ V)
89 0zd 9491 . . . . 5 (((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) → 0 ∈ ℤ)
90 zdceq 9555 . . . . 5 ((𝑁 ∈ ℤ ∧ 0 ∈ ℤ) → DECID 𝑁 = 0)
9126, 89, 90syl2anc 411 . . . 4 (((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) → DECID 𝑁 = 0)
9233, 88, 91ifcldadc 3635 . . 3 (((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) → if(𝑁 = 0, 0 , if(0 < 𝑁, (𝑆𝑁), (𝐼‘(𝑆‘-𝑁)))) ∈ V)
939, 25, 26, 27, 92ovmpod 6149 . 2 (((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) → (𝑁 · 𝑋) = if(𝑁 = 0, 0 , if(0 < 𝑁, (𝑆𝑁), (𝐼‘(𝑆‘-𝑁)))))
943, 93mpdan 421 1 ((𝑁 ∈ ℤ ∧ 𝑋𝐵) → (𝑁 · 𝑋) = if(𝑁 = 0, 0 , if(0 < 𝑁, (𝑆𝑁), (𝐼‘(𝑆‘-𝑁)))))
Colors of variables: wff set class
Syntax hints:  ¬ wn 3  wi 4  wa 104  DECID wdc 841  w3o 1003   = wceq 1397  wcel 2202  Vcvv 2802  ifcif 3605  {csn 3669   class class class wbr 4088   × cxp 4723   Fn wfn 5321  wf 5322  cfv 5326  (class class class)co 6018  cmpo 6020  cr 8031  0cc0 8032  1c1 8033   < clt 8214  -cneg 8351  cn 9143  cz 9479  seqcseq 10710  Basecbs 13084  +gcplusg 13162  0gc0g 13341  invgcminusg 13586  .gcmg 13708
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 619  ax-in2 620  ax-io 716  ax-5 1495  ax-7 1496  ax-gen 1497  ax-ie1 1541  ax-ie2 1542  ax-8 1552  ax-10 1553  ax-11 1554  ax-i12 1555  ax-bndl 1557  ax-4 1558  ax-17 1574  ax-i9 1578  ax-ial 1582  ax-i5r 1583  ax-13 2204  ax-14 2205  ax-ext 2213  ax-coll 4204  ax-sep 4207  ax-nul 4215  ax-pow 4264  ax-pr 4299  ax-un 4530  ax-setind 4635  ax-iinf 4686  ax-cnex 8123  ax-resscn 8124  ax-1cn 8125  ax-1re 8126  ax-icn 8127  ax-addcl 8128  ax-addrcl 8129  ax-mulcl 8130  ax-addcom 8132  ax-addass 8134  ax-distr 8136  ax-i2m1 8137  ax-0lt1 8138  ax-0id 8140  ax-rnegex 8141  ax-cnre 8143  ax-pre-ltirr 8144  ax-pre-ltwlin 8145  ax-pre-lttrn 8146  ax-pre-ltadd 8148
This theorem depends on definitions:  df-bi 117  df-dc 842  df-3or 1005  df-3an 1006  df-tru 1400  df-fal 1403  df-nf 1509  df-sb 1811  df-eu 2082  df-mo 2083  df-clab 2218  df-cleq 2224  df-clel 2227  df-nfc 2363  df-ne 2403  df-nel 2498  df-ral 2515  df-rex 2516  df-reu 2517  df-rab 2519  df-v 2804  df-sbc 3032  df-csb 3128  df-dif 3202  df-un 3204  df-in 3206  df-ss 3213  df-nul 3495  df-if 3606  df-pw 3654  df-sn 3675  df-pr 3676  df-op 3678  df-uni 3894  df-int 3929  df-iun 3972  df-br 4089  df-opab 4151  df-mpt 4152  df-tr 4188  df-id 4390  df-iord 4463  df-on 4465  df-ilim 4466  df-suc 4468  df-iom 4689  df-xp 4731  df-rel 4732  df-cnv 4733  df-co 4734  df-dm 4735  df-rn 4736  df-res 4737  df-ima 4738  df-iota 5286  df-fun 5328  df-fn 5329  df-f 5330  df-f1 5331  df-fo 5332  df-f1o 5333  df-fv 5334  df-riota 5971  df-ov 6021  df-oprab 6022  df-mpo 6023  df-1st 6303  df-2nd 6304  df-recs 6471  df-frec 6557  df-pnf 8216  df-mnf 8217  df-xr 8218  df-ltxr 8219  df-le 8220  df-sub 8352  df-neg 8353  df-inn 9144  df-2 9202  df-n0 9403  df-z 9480  df-uz 9756  df-seqfrec 10711  df-ndx 13087  df-slot 13088  df-base 13090  df-plusg 13175  df-0g 13343  df-minusg 13589  df-mulg 13709
This theorem is referenced by:  mulg0  13714  mulgnn  13715  mulgnegnn  13721  subgmulg  13777
  Copyright terms: Public domain W3C validator