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

Theorem mulgval 13828
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 13261 . . 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 13827 . . . 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 2241 . . . . 5 ((𝑛 = 𝑁𝑥 = 𝑋) → (𝑛 = 0 ↔ 𝑁 = 0))
1210breq2d 4120 . . . . . 6 ((𝑛 = 𝑁𝑥 = 𝑋) → (0 < 𝑛 ↔ 0 < 𝑁))
13 simpr 110 . . . . . . . . . . 11 ((𝑛 = 𝑁𝑥 = 𝑋) → 𝑥 = 𝑋)
1413sneqd 3701 . . . . . . . . . 10 ((𝑛 = 𝑁𝑥 = 𝑋) → {𝑥} = {𝑋})
1514xpeq2d 4772 . . . . . . . . 9 ((𝑛 = 𝑁𝑥 = 𝑋) → (ℕ × {𝑥}) = (ℕ × {𝑋}))
1615seqeq3d 10813 . . . . . . . 8 ((𝑛 = 𝑁𝑥 = 𝑋) → seq1( + , (ℕ × {𝑥})) = seq1( + , (ℕ × {𝑋})))
17 mulgval.s . . . . . . . 8 𝑆 = seq1( + , (ℕ × {𝑋}))
1816, 17eqtr4di 2283 . . . . . . 7 ((𝑛 = 𝑁𝑥 = 𝑋) → seq1( + , (ℕ × {𝑥})) = 𝑆)
1918, 10fveq12d 5676 . . . . . 6 ((𝑛 = 𝑁𝑥 = 𝑋) → (seq1( + , (ℕ × {𝑥}))‘𝑛) = (𝑆𝑁))
2010negeqd 8464 . . . . . . . 8 ((𝑛 = 𝑁𝑥 = 𝑋) → -𝑛 = -𝑁)
2118, 20fveq12d 5676 . . . . . . 7 ((𝑛 = 𝑁𝑥 = 𝑋) → (seq1( + , (ℕ × {𝑥}))‘-𝑛) = (𝑆‘-𝑁))
2221fveq2d 5673 . . . . . 6 ((𝑛 = 𝑁𝑥 = 𝑋) → (𝐼‘(seq1( + , (ℕ × {𝑥}))‘-𝑛)) = (𝐼‘(𝑆‘-𝑁)))
2312, 19, 22ifbieq12d 3648 . . . . 5 ((𝑛 = 𝑁𝑥 = 𝑋) → if(0 < 𝑛, (seq1( + , (ℕ × {𝑥}))‘𝑛), (𝐼‘(seq1( + , (ℕ × {𝑥}))‘-𝑛))) = if(0 < 𝑁, (𝑆𝑁), (𝐼‘(𝑆‘-𝑁))))
2411, 23ifbieq2d 3646 . . . 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 13577 . . . . . . 7 0g Fn V
29 funfvex 5686 . . . . . . . 8 ((Fun 0g𝐺 ∈ dom 0g) → (0g𝐺) ∈ V)
3029funfni 5457 . . . . . . 7 ((0g Fn V ∧ 𝐺 ∈ V) → (0g𝐺) ∈ V)
3128, 30mpan 424 . . . . . 6 (𝐺 ∈ V → (0g𝐺) ∈ V)
325, 31eqeltrid 2319 . . . . 5 (𝐺 ∈ V → 0 ∈ V)
3332ad2antlr 489 . . . 4 ((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ 𝑁 = 0) → 0 ∈ V)
34 nnuz 9886 . . . . . . . . 9 ℕ = (ℤ‘1)
35 1zzd 9600 . . . . . . . . 9 ((𝑋𝐵𝐺 ∈ V) → 1 ∈ ℤ)
36 fvconst2g 5897 . . . . . . . . . . . 12 ((𝑋𝐵𝑢 ∈ ℕ) → ((ℕ × {𝑋})‘𝑢) = 𝑋)
37 simpl 109 . . . . . . . . . . . 12 ((𝑋𝐵𝑢 ∈ ℕ) → 𝑋𝐵)
3836, 37eqeltrd 2309 . . . . . . . . . . 11 ((𝑋𝐵𝑢 ∈ ℕ) → ((ℕ × {𝑋})‘𝑢) ∈ 𝐵)
3938elexd 2826 . . . . . . . . . 10 ((𝑋𝐵𝑢 ∈ ℕ) → ((ℕ × {𝑋})‘𝑢) ∈ V)
4039adantlr 477 . . . . . . . . 9 (((𝑋𝐵𝐺 ∈ V) ∧ 𝑢 ∈ ℕ) → ((ℕ × {𝑋})‘𝑢) ∈ V)
41 simprl 531 . . . . . . . . . 10 (((𝑋𝐵𝐺 ∈ V) ∧ (𝑢 ∈ V ∧ 𝑣 ∈ V)) → 𝑢 ∈ V)
42 plusgslid 13314 . . . . . . . . . . . . 13 (+g = Slot (+g‘ndx) ∧ (+g‘ndx) ∈ ℕ)
4342slotex 13228 . . . . . . . . . . . 12 (𝐺 ∈ V → (+g𝐺) ∈ V)
444, 43eqeltrid 2319 . . . . . . . . . . 11 (𝐺 ∈ V → + ∈ V)
4544ad2antlr 489 . . . . . . . . . 10 (((𝑋𝐵𝐺 ∈ V) ∧ (𝑢 ∈ V ∧ 𝑣 ∈ V)) → + ∈ V)
46 simprr 533 . . . . . . . . . 10 (((𝑋𝐵𝐺 ∈ V) ∧ (𝑢 ∈ V ∧ 𝑣 ∈ V)) → 𝑣 ∈ V)
47 ovexg 6083 . . . . . . . . . 10 ((𝑢 ∈ V ∧ + ∈ V ∧ 𝑣 ∈ V) → (𝑢 + 𝑣) ∈ V)
4841, 45, 46, 47syl3anc 1274 . . . . . . . . 9 (((𝑋𝐵𝐺 ∈ V) ∧ (𝑢 ∈ V ∧ 𝑣 ∈ V)) → (𝑢 + 𝑣) ∈ V)
4934, 35, 40, 48seqf 10822 . . . . . . . 8 ((𝑋𝐵𝐺 ∈ V) → seq1( + , (ℕ × {𝑋})):ℕ⟶V)
5017feq1i 5500 . . . . . . . 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 9583 . . . . . . 7 (𝑁 ∈ ℕ ↔ (𝑁 ∈ ℤ ∧ 0 < 𝑁))
5653, 54, 55sylanbrc 417 . . . . . 6 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ 0 < 𝑁) → 𝑁 ∈ ℕ)
5752, 56ffvelcdmd 5812 . . . . 5 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ 0 < 𝑁) → (𝑆𝑁) ∈ V)
581, 6grpinvfng 13746 . . . . . . . 8 (𝐺 ∈ V → 𝐼 Fn 𝐵)
59 basfn 13260 . . . . . . . . . 10 Base Fn V
60 funfvex 5686 . . . . . . . . . . 11 ((Fun Base ∧ 𝐺 ∈ dom Base) → (Base‘𝐺) ∈ V)
6160funfni 5457 . . . . . . . . . 10 ((Base Fn V ∧ 𝐺 ∈ V) → (Base‘𝐺) ∈ V)
6259, 61mpan 424 . . . . . . . . 9 (𝐺 ∈ V → (Base‘𝐺) ∈ V)
631, 62eqeltrid 2319 . . . . . . . 8 (𝐺 ∈ V → 𝐵 ∈ V)
64 fnex 5905 . . . . . . . 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 9604 . . . . . . . . 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 9615 . . . . . . . . . . 11 (𝑁 ∈ ℤ → (𝑁 < 0 ∨ 𝑁 = 0 ∨ 0 < 𝑁))
7372ad4antr 494 . . . . . . . . . 10 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → (𝑁 < 0 ∨ 𝑁 = 0 ∨ 0 < 𝑁))
7470, 71, 73ecase23d 1387 . . . . . . . . 9 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → 𝑁 < 0)
75 zre 9577 . . . . . . . . . . 11 (𝑁 ∈ ℤ → 𝑁 ∈ ℝ)
7675ad4antr 494 . . . . . . . . . 10 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → 𝑁 ∈ ℝ)
7776lt0neg1d 8785 . . . . . . . . 9 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → (𝑁 < 0 ↔ 0 < -𝑁))
7874, 77mpbid 147 . . . . . . . 8 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → 0 < -𝑁)
79 elnnz 9583 . . . . . . . 8 (-𝑁 ∈ ℕ ↔ (-𝑁 ∈ ℤ ∧ 0 < -𝑁))
8069, 78, 79sylanbrc 417 . . . . . . 7 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → -𝑁 ∈ ℕ)
8167, 80ffvelcdmd 5812 . . . . . 6 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → (𝑆‘-𝑁) ∈ V)
82 fvexg 5688 . . . . . 6 ((𝐼 ∈ V ∧ (𝑆‘-𝑁) ∈ V) → (𝐼‘(𝑆‘-𝑁)) ∈ V)
8366, 81, 82syl2anc 411 . . . . 5 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → (𝐼‘(𝑆‘-𝑁)) ∈ V)
84 0zd 9585 . . . . . 6 ((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) → 0 ∈ ℤ)
85 simplll 535 . . . . . 6 ((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) → 𝑁 ∈ ℤ)
86 zdclt 9651 . . . . . 6 ((0 ∈ ℤ ∧ 𝑁 ∈ ℤ) → DECID 0 < 𝑁)
8784, 85, 86syl2anc 411 . . . . 5 ((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) → DECID 0 < 𝑁)
8857, 83, 87ifcldadc 3651 . . . 4 ((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) → if(0 < 𝑁, (𝑆𝑁), (𝐼‘(𝑆‘-𝑁))) ∈ V)
89 0zd 9585 . . . . 5 (((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) → 0 ∈ ℤ)
90 zdceq 9649 . . . . 5 ((𝑁 ∈ ℤ ∧ 0 ∈ ℤ) → DECID 𝑁 = 0)
9126, 89, 90syl2anc 411 . . . 4 (((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) → DECID 𝑁 = 0)
9233, 88, 91ifcldadc 3651 . . 3 (((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) → if(𝑁 = 0, 0 , if(0 < 𝑁, (𝑆𝑁), (𝐼‘(𝑆‘-𝑁)))) ∈ V)
939, 25, 26, 27, 92ovmpod 6180 . 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 842  w3o 1004   = wceq 1398  wcel 2203  Vcvv 2812  ifcif 3619  {csn 3688   class class class wbr 4108   × cxp 4746   Fn wfn 5346  wf 5347  cfv 5351  (class class class)co 6049  cmpo 6051  cr 8122  0cc0 8123  1c1 8124   < clt 8304  -cneg 8441  cn 9233  cz 9573  seqcseq 10805  Basecbs 13201  +gcplusg 13279  0gc0g 13458  invgcminusg 13703  .gcmg 13825
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 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-13 2205  ax-14 2206  ax-ext 2214  ax-coll 4224  ax-sep 4227  ax-nul 4235  ax-pow 4286  ax-pr 4321  ax-un 4553  ax-setind 4658  ax-iinf 4709  ax-cnex 8214  ax-resscn 8215  ax-1cn 8216  ax-1re 8217  ax-icn 8218  ax-addcl 8219  ax-addrcl 8220  ax-mulcl 8221  ax-addcom 8223  ax-addass 8225  ax-distr 8227  ax-i2m1 8228  ax-0lt1 8229  ax-0id 8231  ax-rnegex 8232  ax-cnre 8234  ax-pre-ltirr 8235  ax-pre-ltwlin 8236  ax-pre-lttrn 8237  ax-pre-ltadd 8239
This theorem depends on definitions:  df-bi 117  df-dc 843  df-3or 1006  df-3an 1007  df-tru 1401  df-fal 1404  df-nf 1510  df-sb 1812  df-eu 2083  df-mo 2084  df-clab 2219  df-cleq 2225  df-clel 2228  df-nfc 2373  df-ne 2413  df-nel 2508  df-ral 2525  df-rex 2526  df-reu 2527  df-rab 2529  df-v 2814  df-sbc 3042  df-csb 3138  df-dif 3212  df-un 3214  df-in 3216  df-ss 3223  df-nul 3508  df-if 3620  df-pw 3670  df-sn 3694  df-pr 3695  df-op 3697  df-uni 3914  df-int 3949  df-iun 3992  df-br 4109  df-opab 4171  df-mpt 4172  df-tr 4208  df-id 4413  df-iord 4486  df-on 4488  df-ilim 4489  df-suc 4491  df-iom 4712  df-xp 4754  df-rel 4755  df-cnv 4756  df-co 4757  df-dm 4758  df-rn 4759  df-res 4760  df-ima 4761  df-iota 5311  df-fun 5353  df-fn 5354  df-f 5355  df-f1 5356  df-fo 5357  df-f1o 5358  df-fv 5359  df-riota 6002  df-ov 6052  df-oprab 6053  df-mpo 6054  df-1st 6333  df-2nd 6334  df-recs 6535  df-frec 6621  df-pnf 8306  df-mnf 8307  df-xr 8308  df-ltxr 8309  df-le 8310  df-sub 8442  df-neg 8443  df-inn 9234  df-2 9292  df-n0 9493  df-z 9574  df-uz 9850  df-seqfrec 10806  df-ndx 13204  df-slot 13205  df-base 13207  df-plusg 13292  df-0g 13460  df-minusg 13706  df-mulg 13826
This theorem is referenced by:  mulg0  13831  mulgnn  13832  mulgnegnn  13838  subgmulg  13894
  Copyright terms: Public domain W3C validator