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

Theorem mulgval 13908
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 13395 . . 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 13907 . . . 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 2247 . . . . 5 ((𝑛 = 𝑁𝑥 = 𝑋) → (𝑛 = 0 ↔ 𝑁 = 0))
1210breq2d 4140 . . . . . 6 ((𝑛 = 𝑁𝑥 = 𝑋) → (0 < 𝑛 ↔ 0 < 𝑁))
13 simpr 110 . . . . . . . . . . 11 ((𝑛 = 𝑁𝑥 = 𝑋) → 𝑥 = 𝑋)
1413sneqd 3721 . . . . . . . . . 10 ((𝑛 = 𝑁𝑥 = 𝑋) → {𝑥} = {𝑋})
1514xpeq2d 4796 . . . . . . . . 9 ((𝑛 = 𝑁𝑥 = 𝑋) → (ℕ × {𝑥}) = (ℕ × {𝑋}))
1615seqeq3d 10875 . . . . . . . 8 ((𝑛 = 𝑁𝑥 = 𝑋) → seq1( + , (ℕ × {𝑥})) = seq1( + , (ℕ × {𝑋})))
17 mulgval.s . . . . . . . 8 𝑆 = seq1( + , (ℕ × {𝑋}))
1816, 17eqtr4di 2289 . . . . . . 7 ((𝑛 = 𝑁𝑥 = 𝑋) → seq1( + , (ℕ × {𝑥})) = 𝑆)
1918, 10fveq12d 5700 . . . . . 6 ((𝑛 = 𝑁𝑥 = 𝑋) → (seq1( + , (ℕ × {𝑥}))‘𝑛) = (𝑆𝑁))
2010negeqd 8515 . . . . . . . 8 ((𝑛 = 𝑁𝑥 = 𝑋) → -𝑛 = -𝑁)
2118, 20fveq12d 5700 . . . . . . 7 ((𝑛 = 𝑁𝑥 = 𝑋) → (seq1( + , (ℕ × {𝑥}))‘-𝑛) = (𝑆‘-𝑁))
2221fveq2d 5697 . . . . . 6 ((𝑛 = 𝑁𝑥 = 𝑋) → (𝐼‘(seq1( + , (ℕ × {𝑥}))‘-𝑛)) = (𝐼‘(𝑆‘-𝑁)))
2312, 19, 22ifbieq12d 3667 . . . . 5 ((𝑛 = 𝑁𝑥 = 𝑋) → if(0 < 𝑛, (seq1( + , (ℕ × {𝑥}))‘𝑛), (𝐼‘(seq1( + , (ℕ × {𝑥}))‘-𝑛))) = if(0 < 𝑁, (𝑆𝑁), (𝐼‘(𝑆‘-𝑁))))
2411, 23ifbieq2d 3665 . . . 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 531 . . 3 (((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) → 𝑁 ∈ ℤ)
27 simplr 533 . . 3 (((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) → 𝑋𝐵)
28 fn0g 13678 . . . . . . 7 0g Fn V
29 funfvex 5710 . . . . . . . 8 ((Fun 0g𝐺 ∈ dom 0g) → (0g𝐺) ∈ V)
3029funfni 5481 . . . . . . 7 ((0g Fn V ∧ 𝐺 ∈ V) → (0g𝐺) ∈ V)
3128, 30mpan 428 . . . . . 6 (𝐺 ∈ V → (0g𝐺) ∈ V)
325, 31eqeltrid 2325 . . . . 5 (𝐺 ∈ V → 0 ∈ V)
3332ad2antlr 493 . . . 4 ((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ 𝑁 = 0) → 0 ∈ V)
34 nnuz 9941 . . . . . . . . 9 ℕ = (ℤ‘1)
35 1zzd 9654 . . . . . . . . 9 ((𝑋𝐵𝐺 ∈ V) → 1 ∈ ℤ)
36 fvconst2g 5923 . . . . . . . . . . . 12 ((𝑋𝐵𝑢 ∈ ℕ) → ((ℕ × {𝑋})‘𝑢) = 𝑋)
37 simpl 109 . . . . . . . . . . . 12 ((𝑋𝐵𝑢 ∈ ℕ) → 𝑋𝐵)
3836, 37eqeltrd 2315 . . . . . . . . . . 11 ((𝑋𝐵𝑢 ∈ ℕ) → ((ℕ × {𝑋})‘𝑢) ∈ 𝐵)
3938elexd 2835 . . . . . . . . . 10 ((𝑋𝐵𝑢 ∈ ℕ) → ((ℕ × {𝑋})‘𝑢) ∈ V)
4039adantlr 481 . . . . . . . . 9 (((𝑋𝐵𝐺 ∈ V) ∧ 𝑢 ∈ ℕ) → ((ℕ × {𝑋})‘𝑢) ∈ V)
41 simprl 535 . . . . . . . . . 10 (((𝑋𝐵𝐺 ∈ V) ∧ (𝑢 ∈ V ∧ 𝑣 ∈ V)) → 𝑢 ∈ V)
42 plusgslid 13449 . . . . . . . . . . . . 13 (+g = Slot (+g‘ndx) ∧ (+g‘ndx) ∈ ℕ)
4342slotex 13362 . . . . . . . . . . . 12 (𝐺 ∈ V → (+g𝐺) ∈ V)
444, 43eqeltrid 2325 . . . . . . . . . . 11 (𝐺 ∈ V → + ∈ V)
4544ad2antlr 493 . . . . . . . . . 10 (((𝑋𝐵𝐺 ∈ V) ∧ (𝑢 ∈ V ∧ 𝑣 ∈ V)) → + ∈ V)
46 simprr 537 . . . . . . . . . 10 (((𝑋𝐵𝐺 ∈ V) ∧ (𝑢 ∈ V ∧ 𝑣 ∈ V)) → 𝑣 ∈ V)
47 ovexg 6113 . . . . . . . . . 10 ((𝑢 ∈ V ∧ + ∈ V ∧ 𝑣 ∈ V) → (𝑢 + 𝑣) ∈ V)
4841, 45, 46, 47syl3anc 1278 . . . . . . . . 9 (((𝑋𝐵𝐺 ∈ V) ∧ (𝑢 ∈ V ∧ 𝑣 ∈ V)) → (𝑢 + 𝑣) ∈ V)
4934, 35, 40, 48seqf 10884 . . . . . . . 8 ((𝑋𝐵𝐺 ∈ V) → seq1( + , (ℕ × {𝑋})):ℕ⟶V)
5017feq1i 5524 . . . . . . . 8 (𝑆:ℕ⟶V ↔ seq1( + , (ℕ × {𝑋})):ℕ⟶V)
5149, 50sylibr 134 . . . . . . 7 ((𝑋𝐵𝐺 ∈ V) → 𝑆:ℕ⟶V)
5251ad5ant23 526 . . . . . 6 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ 0 < 𝑁) → 𝑆:ℕ⟶V)
53 simp-4l 547 . . . . . . 7 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ 0 < 𝑁) → 𝑁 ∈ ℤ)
54 simpr 110 . . . . . . 7 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ 0 < 𝑁) → 0 < 𝑁)
55 elnnz 9637 . . . . . . 7 (𝑁 ∈ ℕ ↔ (𝑁 ∈ ℤ ∧ 0 < 𝑁))
5653, 54, 55sylanbrc 421 . . . . . 6 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ 0 < 𝑁) → 𝑁 ∈ ℕ)
5752, 56ffvelcdmd 5838 . . . . 5 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ 0 < 𝑁) → (𝑆𝑁) ∈ V)
581, 6grpinvfng 13832 . . . . . . . 8 (𝐺 ∈ V → 𝐼 Fn 𝐵)
59 basfn 13394 . . . . . . . . . 10 Base Fn V
60 funfvex 5710 . . . . . . . . . . 11 ((Fun Base ∧ 𝐺 ∈ dom Base) → (Base‘𝐺) ∈ V)
6160funfni 5481 . . . . . . . . . 10 ((Base Fn V ∧ 𝐺 ∈ V) → (Base‘𝐺) ∈ V)
6259, 61mpan 428 . . . . . . . . 9 (𝐺 ∈ V → (Base‘𝐺) ∈ V)
631, 62eqeltrid 2325 . . . . . . . 8 (𝐺 ∈ V → 𝐵 ∈ V)
64 fnex 5931 . . . . . . . 8 ((𝐼 Fn 𝐵𝐵 ∈ V) → 𝐼 ∈ V)
6558, 63, 64syl2anc 415 . . . . . . 7 (𝐺 ∈ V → 𝐼 ∈ V)
6665ad3antlr 497 . . . . . 6 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → 𝐼 ∈ V)
6751ad5ant23 526 . . . . . . 7 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → 𝑆:ℕ⟶V)
68 znegcl 9658 . . . . . . . . 9 (𝑁 ∈ ℤ → -𝑁 ∈ ℤ)
6968ad4antr 498 . . . . . . . 8 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → -𝑁 ∈ ℤ)
70 simplr 533 . . . . . . . . . 10 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → ¬ 𝑁 = 0)
71 simpr 110 . . . . . . . . . 10 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → ¬ 0 < 𝑁)
72 ztri3or0 9669 . . . . . . . . . . 11 (𝑁 ∈ ℤ → (𝑁 < 0 ∨ 𝑁 = 0 ∨ 0 < 𝑁))
7372ad4antr 498 . . . . . . . . . 10 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → (𝑁 < 0 ∨ 𝑁 = 0 ∨ 0 < 𝑁))
7470, 71, 73ecase23d 1391 . . . . . . . . 9 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → 𝑁 < 0)
75 zre 9631 . . . . . . . . . . 11 (𝑁 ∈ ℤ → 𝑁 ∈ ℝ)
7675ad4antr 498 . . . . . . . . . 10 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → 𝑁 ∈ ℝ)
7776lt0neg1d 8837 . . . . . . . . 9 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → (𝑁 < 0 ↔ 0 < -𝑁))
7874, 77mpbid 147 . . . . . . . 8 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → 0 < -𝑁)
79 elnnz 9637 . . . . . . . 8 (-𝑁 ∈ ℕ ↔ (-𝑁 ∈ ℤ ∧ 0 < -𝑁))
8069, 78, 79sylanbrc 421 . . . . . . 7 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → -𝑁 ∈ ℕ)
8167, 80ffvelcdmd 5838 . . . . . 6 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → (𝑆‘-𝑁) ∈ V)
82 fvexg 5712 . . . . . 6 ((𝐼 ∈ V ∧ (𝑆‘-𝑁) ∈ V) → (𝐼‘(𝑆‘-𝑁)) ∈ V)
8366, 81, 82syl2anc 415 . . . . 5 (((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) ∧ ¬ 0 < 𝑁) → (𝐼‘(𝑆‘-𝑁)) ∈ V)
84 0zd 9639 . . . . . 6 ((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) → 0 ∈ ℤ)
85 simplll 539 . . . . . 6 ((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) → 𝑁 ∈ ℤ)
86 zdclt 9705 . . . . . 6 ((0 ∈ ℤ ∧ 𝑁 ∈ ℤ) → DECID 0 < 𝑁)
8784, 85, 86syl2anc 415 . . . . 5 ((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) → DECID 0 < 𝑁)
8857, 83, 87ifcldadc 3670 . . . 4 ((((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) ∧ ¬ 𝑁 = 0) → if(0 < 𝑁, (𝑆𝑁), (𝐼‘(𝑆‘-𝑁))) ∈ V)
89 0zd 9639 . . . . 5 (((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) → 0 ∈ ℤ)
90 zdceq 9703 . . . . 5 ((𝑁 ∈ ℤ ∧ 0 ∈ ℤ) → DECID 𝑁 = 0)
9126, 89, 90syl2anc 415 . . . 4 (((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) → DECID 𝑁 = 0)
9233, 88, 91ifcldadc 3670 . . 3 (((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) → if(𝑁 = 0, 0 , if(0 < 𝑁, (𝑆𝑁), (𝐼‘(𝑆‘-𝑁)))) ∈ V)
939, 25, 26, 27, 92ovmpod 6210 . 2 (((𝑁 ∈ ℤ ∧ 𝑋𝐵) ∧ 𝐺 ∈ V) → (𝑁 · 𝑋) = if(𝑁 = 0, 0 , if(0 < 𝑁, (𝑆𝑁), (𝐼‘(𝑆‘-𝑁)))))
943, 93mpdan 425 1 ((𝑁 ∈ ℤ ∧ 𝑋𝐵) → (𝑁 · 𝑋) = if(𝑁 = 0, 0 , if(0 < 𝑁, (𝑆𝑁), (𝐼‘(𝑆‘-𝑁)))))
Colors of variables: wff set class
Syntax hints:  ¬ wn 3  wi 4  wa 104  DECID wdc 846  w3o 1008   = wceq 1402  wcel 2209  Vcvv 2821  ifcif 3638  {csn 3708   class class class wbr 4128   × cxp 4770   Fn wfn 5370  wf 5371  cfv 5375  (class class class)co 6079  cmpo 6081  cr 8172  0cc0 8173  1c1 8174   < clt 8354  -cneg 8492  cn 9287  cz 9627  seqcseq 10867  Basecbs 13335  +gcplusg 13414  0gc0g 13593  invgcminusg 13789  .gcmg 13905
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 623  ax-in2 624  ax-io 721  ax-5 1500  ax-7 1501  ax-gen 1502  ax-ie1 1546  ax-ie2 1547  ax-8 1557  ax-10 1558  ax-11 1559  ax-i12 1560  ax-bndl 1562  ax-4 1563  ax-17 1579  ax-i9 1583  ax-ial 1587  ax-i5r 1588  ax-14 2212  ax-ext 2220  ax-coll 4244  ax-sep 4247  ax-nul 4257  ax-pow 4309  ax-pr 4344  ax-un 4576  ax-setind 4682  ax-iinf 4733  ax-cnex 8264  ax-resscn 8265  ax-1cn 8266  ax-1re 8267  ax-icn 8268  ax-addcl 8269  ax-addrcl 8270  ax-mulcl 8271  ax-addcom 8273  ax-addass 8275  ax-distr 8277  ax-i2m1 8278  ax-0lt1 8279  ax-0id 8281  ax-rnegex 8282  ax-cnre 8284  ax-pre-ltirr 8285  ax-pre-ltwlin 8286  ax-pre-lttrn 8287  ax-pre-ltadd 8289
This theorem depends on definitions:  df-bi 117  df-dc 847  df-3or 1010  df-3an 1011  df-tru 1405  df-fal 1408  df-nf 1514  df-sb 1816  df-eu 2089  df-mo 2090  df-clab 2225  df-cleq 2231  df-clel 2234  df-nfc 2381  df-ne 2421  df-nel 2516  df-ral 2533  df-rex 2534  df-reu 2535  df-rab 2537  df-v 2823  df-sbc 3052  df-csb 3148  df-dif 3222  df-un 3224  df-in 3226  df-ss 3233  df-nul 3521  df-if 3639  df-pw 3690  df-sn 3714  df-pr 3715  df-op 3717  df-uni 3934  df-int 3969  df-iun 4012  df-br 4129  df-opab 4191  df-mpt 4192  df-tr 4228  df-id 4436  df-iord 4509  df-on 4511  df-ilim 4512  df-suc 4514  df-iom 4736  df-xp 4778  df-rel 4779  df-cnv 4780  df-co 4781  df-dm 4782  df-rn 4783  df-res 4784  df-ima 4785  df-iota 5335  df-fun 5377  df-fn 5378  df-f 5379  df-f1 5380  df-fo 5381  df-f1o 5382  df-fv 5383  df-riota 6032  df-ov 6082  df-oprab 6083  df-mpo 6084  df-1st 6368  df-2nd 6369  df-recs 6570  df-frec 6656  df-pnf 8356  df-mnf 8357  df-xr 8358  df-ltxr 8359  df-le 8360  df-sub 8493  df-neg 8494  df-inn 9288  df-2 9346  df-n0 9547  df-z 9628  df-uz 9905  df-seqfrec 10868  df-ndx 13338  df-slot 13339  df-base 13341  df-plusg 13427  df-0g 13595  df-minusg 13792  df-mulg 13906
This theorem is referenced by:  mulg0  13911  mulgnn  13912  mulgnegnn  13918  subgmulg  13974
  Copyright terms: Public domain W3C validator