Step | Hyp | Ref
| Expression |
1 | | mulgval.b |
. . . 4
β’ π΅ = (BaseβπΊ) |
2 | 1 | basmex 12521 |
. . 3
β’ (π β π΅ β πΊ β V) |
3 | 2 | adantl 277 |
. 2
β’ ((π β β€ β§ π β π΅) β πΊ β V) |
4 | | mulgval.p |
. . . . 5
β’ + =
(+gβπΊ) |
5 | | mulgval.o |
. . . . 5
β’ 0 =
(0gβπΊ) |
6 | | mulgval.i |
. . . . 5
β’ πΌ = (invgβπΊ) |
7 | | mulgval.t |
. . . . 5
β’ Β· =
(.gβπΊ) |
8 | 1, 4, 5, 6, 7 | mulgfvalg 12985 |
. . . 4
β’ (πΊ β V β Β· =
(π β β€, π₯ β π΅ β¦ if(π = 0, 0 , if(0 < π, (seq1( + , (β Γ {π₯}))βπ), (πΌβ(seq1( + , (β Γ {π₯}))β-π)))))) |
9 | 8 | adantl 277 |
. . 3
β’ (((π β β€ β§ π β π΅) β§ πΊ β V) β Β· = (π β β€, π₯ β π΅ β¦ if(π = 0, 0 , if(0 < π, (seq1( + , (β Γ {π₯}))βπ), (πΌβ(seq1( + , (β Γ {π₯}))β-π)))))) |
10 | | simpl 109 |
. . . . . 6
β’ ((π = π β§ π₯ = π) β π = π) |
11 | 10 | eqeq1d 2186 |
. . . . 5
β’ ((π = π β§ π₯ = π) β (π = 0 β π = 0)) |
12 | 10 | breq2d 4016 |
. . . . . 6
β’ ((π = π β§ π₯ = π) β (0 < π β 0 < π)) |
13 | | simpr 110 |
. . . . . . . . . . 11
β’ ((π = π β§ π₯ = π) β π₯ = π) |
14 | 13 | sneqd 3606 |
. . . . . . . . . 10
β’ ((π = π β§ π₯ = π) β {π₯} = {π}) |
15 | 14 | xpeq2d 4651 |
. . . . . . . . 9
β’ ((π = π β§ π₯ = π) β (β Γ {π₯}) = (β Γ {π})) |
16 | 15 | seqeq3d 10453 |
. . . . . . . 8
β’ ((π = π β§ π₯ = π) β seq1( + , (β Γ {π₯})) = seq1( + , (β Γ {π}))) |
17 | | mulgval.s |
. . . . . . . 8
β’ π = seq1( + , (β Γ {π})) |
18 | 16, 17 | eqtr4di 2228 |
. . . . . . 7
β’ ((π = π β§ π₯ = π) β seq1( + , (β Γ {π₯})) = π) |
19 | 18, 10 | fveq12d 5523 |
. . . . . 6
β’ ((π = π β§ π₯ = π) β (seq1( + , (β Γ {π₯}))βπ) = (πβπ)) |
20 | 10 | negeqd 8152 |
. . . . . . . 8
β’ ((π = π β§ π₯ = π) β -π = -π) |
21 | 18, 20 | fveq12d 5523 |
. . . . . . 7
β’ ((π = π β§ π₯ = π) β (seq1( + , (β Γ {π₯}))β-π) = (πβ-π)) |
22 | 21 | fveq2d 5520 |
. . . . . 6
β’ ((π = π β§ π₯ = π) β (πΌβ(seq1( + , (β Γ {π₯}))β-π)) = (πΌβ(πβ-π))) |
23 | 12, 19, 22 | ifbieq12d 3561 |
. . . . 5
β’ ((π = π β§ π₯ = π) β if(0 < π, (seq1( + , (β Γ {π₯}))βπ), (πΌβ(seq1( + , (β Γ {π₯}))β-π))) = if(0 < π, (πβπ), (πΌβ(πβ-π)))) |
24 | 11, 23 | ifbieq2d 3559 |
. . . 4
β’ ((π = π β§ π₯ = π) β if(π = 0, 0 , if(0 < π, (seq1( + , (β Γ {π₯}))βπ), (πΌβ(seq1( + , (β Γ {π₯}))β-π)))) = if(π = 0, 0 , if(0 < π, (πβπ), (πΌβ(πβ-π))))) |
25 | 24 | adantl 277 |
. . 3
β’ ((((π β β€ β§ π β π΅) β§ πΊ β V) β§ (π = π β§ π₯ = π)) β if(π = 0, 0 , if(0 < π, (seq1( + , (β Γ {π₯}))βπ), (πΌβ(seq1( + , (β Γ {π₯}))β-π)))) = if(π = 0, 0 , if(0 < π, (πβπ), (πΌβ(πβ-π))))) |
26 | | simpll 527 |
. . 3
β’ (((π β β€ β§ π β π΅) β§ πΊ β V) β π β β€) |
27 | | simplr 528 |
. . 3
β’ (((π β β€ β§ π β π΅) β§ πΊ β V) β π β π΅) |
28 | | fn0g 12794 |
. . . . . . 7
β’
0g Fn V |
29 | | funfvex 5533 |
. . . . . . . 8
β’ ((Fun
0g β§ πΊ
β dom 0g) β (0gβπΊ) β V) |
30 | 29 | funfni 5317 |
. . . . . . 7
β’
((0g Fn V β§ πΊ β V) β (0gβπΊ) β V) |
31 | 28, 30 | mpan 424 |
. . . . . 6
β’ (πΊ β V β
(0gβπΊ)
β V) |
32 | 5, 31 | eqeltrid 2264 |
. . . . 5
β’ (πΊ β V β 0 β
V) |
33 | 32 | ad2antlr 489 |
. . . 4
β’ ((((π β β€ β§ π β π΅) β§ πΊ β V) β§ π = 0) β 0 β V) |
34 | | nnuz 9563 |
. . . . . . . . 9
β’ β =
(β€β₯β1) |
35 | | 1zzd 9280 |
. . . . . . . . 9
β’ ((π β π΅ β§ πΊ β V) β 1 β
β€) |
36 | | fvconst2g 5731 |
. . . . . . . . . . . 12
β’ ((π β π΅ β§ π’ β β) β ((β Γ
{π})βπ’) = π) |
37 | | simpl 109 |
. . . . . . . . . . . 12
β’ ((π β π΅ β§ π’ β β) β π β π΅) |
38 | 36, 37 | eqeltrd 2254 |
. . . . . . . . . . 11
β’ ((π β π΅ β§ π’ β β) β ((β Γ
{π})βπ’) β π΅) |
39 | 38 | elexd 2751 |
. . . . . . . . . 10
β’ ((π β π΅ β§ π’ β β) β ((β Γ
{π})βπ’) β V) |
40 | 39 | adantlr 477 |
. . . . . . . . 9
β’ (((π β π΅ β§ πΊ β V) β§ π’ β β) β ((β Γ
{π})βπ’) β V) |
41 | | simprl 529 |
. . . . . . . . . 10
β’ (((π β π΅ β§ πΊ β V) β§ (π’ β V β§ π£ β V)) β π’ β V) |
42 | | plusgslid 12571 |
. . . . . . . . . . . . 13
β’
(+g = Slot (+gβndx) β§
(+gβndx) β β) |
43 | 42 | slotex 12489 |
. . . . . . . . . . . 12
β’ (πΊ β V β
(+gβπΊ)
β V) |
44 | 4, 43 | eqeltrid 2264 |
. . . . . . . . . . 11
β’ (πΊ β V β + β
V) |
45 | 44 | ad2antlr 489 |
. . . . . . . . . 10
β’ (((π β π΅ β§ πΊ β V) β§ (π’ β V β§ π£ β V)) β + β V) |
46 | | simprr 531 |
. . . . . . . . . 10
β’ (((π β π΅ β§ πΊ β V) β§ (π’ β V β§ π£ β V)) β π£ β V) |
47 | | ovexg 5909 |
. . . . . . . . . 10
β’ ((π’ β V β§ + β V
β§ π£ β V) β
(π’ + π£) β V) |
48 | 41, 45, 46, 47 | syl3anc 1238 |
. . . . . . . . 9
β’ (((π β π΅ β§ πΊ β V) β§ (π’ β V β§ π£ β V)) β (π’ + π£) β V) |
49 | 34, 35, 40, 48 | seqf 10461 |
. . . . . . . 8
β’ ((π β π΅ β§ πΊ β V) β seq1( + , (β Γ {π})):ββΆV) |
50 | 17 | feq1i 5359 |
. . . . . . . 8
β’ (π:ββΆV β seq1(
+ ,
(β Γ {π})):ββΆV) |
51 | 49, 50 | sylibr 134 |
. . . . . . 7
β’ ((π β π΅ β§ πΊ β V) β π:ββΆV) |
52 | 51 | ad5ant23 522 |
. . . . . 6
β’
(((((π β
β€ β§ π β
π΅) β§ πΊ β V) β§ Β¬ π = 0) β§ 0 < π) β π:ββΆV) |
53 | | simp-4l 541 |
. . . . . . 7
β’
(((((π β
β€ β§ π β
π΅) β§ πΊ β V) β§ Β¬ π = 0) β§ 0 < π) β π β β€) |
54 | | simpr 110 |
. . . . . . 7
β’
(((((π β
β€ β§ π β
π΅) β§ πΊ β V) β§ Β¬ π = 0) β§ 0 < π) β 0 < π) |
55 | | elnnz 9263 |
. . . . . . 7
β’ (π β β β (π β β€ β§ 0 <
π)) |
56 | 53, 54, 55 | sylanbrc 417 |
. . . . . 6
β’
(((((π β
β€ β§ π β
π΅) β§ πΊ β V) β§ Β¬ π = 0) β§ 0 < π) β π β β) |
57 | 52, 56 | ffvelcdmd 5653 |
. . . . 5
β’
(((((π β
β€ β§ π β
π΅) β§ πΊ β V) β§ Β¬ π = 0) β§ 0 < π) β (πβπ) β V) |
58 | 1, 6 | grpinvfng 12917 |
. . . . . . . 8
β’ (πΊ β V β πΌ Fn π΅) |
59 | | basfn 12520 |
. . . . . . . . . 10
β’ Base Fn
V |
60 | | funfvex 5533 |
. . . . . . . . . . 11
β’ ((Fun
Base β§ πΊ β dom
Base) β (BaseβπΊ)
β V) |
61 | 60 | funfni 5317 |
. . . . . . . . . 10
β’ ((Base Fn
V β§ πΊ β V) β
(BaseβπΊ) β
V) |
62 | 59, 61 | mpan 424 |
. . . . . . . . 9
β’ (πΊ β V β
(BaseβπΊ) β
V) |
63 | 1, 62 | eqeltrid 2264 |
. . . . . . . 8
β’ (πΊ β V β π΅ β V) |
64 | | fnex 5739 |
. . . . . . . 8
β’ ((πΌ Fn π΅ β§ π΅ β V) β πΌ β V) |
65 | 58, 63, 64 | syl2anc 411 |
. . . . . . 7
β’ (πΊ β V β πΌ β V) |
66 | 65 | ad3antlr 493 |
. . . . . 6
β’
(((((π β
β€ β§ π β
π΅) β§ πΊ β V) β§ Β¬ π = 0) β§ Β¬ 0 < π) β πΌ β V) |
67 | 51 | ad5ant23 522 |
. . . . . . 7
β’
(((((π β
β€ β§ π β
π΅) β§ πΊ β V) β§ Β¬ π = 0) β§ Β¬ 0 < π) β π:ββΆV) |
68 | | znegcl 9284 |
. . . . . . . . 9
β’ (π β β€ β -π β
β€) |
69 | 68 | ad4antr 494 |
. . . . . . . 8
β’
(((((π β
β€ β§ π β
π΅) β§ πΊ β V) β§ Β¬ π = 0) β§ Β¬ 0 < π) β -π β β€) |
70 | | simplr 528 |
. . . . . . . . . 10
β’
(((((π β
β€ β§ π β
π΅) β§ πΊ β V) β§ Β¬ π = 0) β§ Β¬ 0 < π) β Β¬ π = 0) |
71 | | simpr 110 |
. . . . . . . . . 10
β’
(((((π β
β€ β§ π β
π΅) β§ πΊ β V) β§ Β¬ π = 0) β§ Β¬ 0 < π) β Β¬ 0 < π) |
72 | | ztri3or0 9295 |
. . . . . . . . . . 11
β’ (π β β€ β (π < 0 β¨ π = 0 β¨ 0 < π)) |
73 | 72 | ad4antr 494 |
. . . . . . . . . 10
β’
(((((π β
β€ β§ π β
π΅) β§ πΊ β V) β§ Β¬ π = 0) β§ Β¬ 0 < π) β (π < 0 β¨ π = 0 β¨ 0 < π)) |
74 | 70, 71, 73 | ecase23d 1350 |
. . . . . . . . 9
β’
(((((π β
β€ β§ π β
π΅) β§ πΊ β V) β§ Β¬ π = 0) β§ Β¬ 0 < π) β π < 0) |
75 | | zre 9257 |
. . . . . . . . . . 11
β’ (π β β€ β π β
β) |
76 | 75 | ad4antr 494 |
. . . . . . . . . 10
β’
(((((π β
β€ β§ π β
π΅) β§ πΊ β V) β§ Β¬ π = 0) β§ Β¬ 0 < π) β π β β) |
77 | 76 | lt0neg1d 8472 |
. . . . . . . . 9
β’
(((((π β
β€ β§ π β
π΅) β§ πΊ β V) β§ Β¬ π = 0) β§ Β¬ 0 < π) β (π < 0 β 0 < -π)) |
78 | 74, 77 | mpbid 147 |
. . . . . . . 8
β’
(((((π β
β€ β§ π β
π΅) β§ πΊ β V) β§ Β¬ π = 0) β§ Β¬ 0 < π) β 0 < -π) |
79 | | elnnz 9263 |
. . . . . . . 8
β’ (-π β β β (-π β β€ β§ 0 <
-π)) |
80 | 69, 78, 79 | sylanbrc 417 |
. . . . . . 7
β’
(((((π β
β€ β§ π β
π΅) β§ πΊ β V) β§ Β¬ π = 0) β§ Β¬ 0 < π) β -π β β) |
81 | 67, 80 | ffvelcdmd 5653 |
. . . . . 6
β’
(((((π β
β€ β§ π β
π΅) β§ πΊ β V) β§ Β¬ π = 0) β§ Β¬ 0 < π) β (πβ-π) β V) |
82 | | fvexg 5535 |
. . . . . 6
β’ ((πΌ β V β§ (πβ-π) β V) β (πΌβ(πβ-π)) β V) |
83 | 66, 81, 82 | syl2anc 411 |
. . . . 5
β’
(((((π β
β€ β§ π β
π΅) β§ πΊ β V) β§ Β¬ π = 0) β§ Β¬ 0 < π) β (πΌβ(πβ-π)) β V) |
84 | | 0zd 9265 |
. . . . . 6
β’ ((((π β β€ β§ π β π΅) β§ πΊ β V) β§ Β¬ π = 0) β 0 β
β€) |
85 | | simplll 533 |
. . . . . 6
β’ ((((π β β€ β§ π β π΅) β§ πΊ β V) β§ Β¬ π = 0) β π β β€) |
86 | | zdclt 9330 |
. . . . . 6
β’ ((0
β β€ β§ π
β β€) β DECID 0 < π) |
87 | 84, 85, 86 | syl2anc 411 |
. . . . 5
β’ ((((π β β€ β§ π β π΅) β§ πΊ β V) β§ Β¬ π = 0) β DECID 0 <
π) |
88 | 57, 83, 87 | ifcldadc 3564 |
. . . 4
β’ ((((π β β€ β§ π β π΅) β§ πΊ β V) β§ Β¬ π = 0) β if(0 < π, (πβπ), (πΌβ(πβ-π))) β V) |
89 | | 0zd 9265 |
. . . . 5
β’ (((π β β€ β§ π β π΅) β§ πΊ β V) β 0 β
β€) |
90 | | zdceq 9328 |
. . . . 5
β’ ((π β β€ β§ 0 β
β€) β DECID π = 0) |
91 | 26, 89, 90 | syl2anc 411 |
. . . 4
β’ (((π β β€ β§ π β π΅) β§ πΊ β V) β DECID π = 0) |
92 | 33, 88, 91 | ifcldadc 3564 |
. . 3
β’ (((π β β€ β§ π β π΅) β§ πΊ β V) β if(π = 0, 0 , if(0 < π, (πβπ), (πΌβ(πβ-π)))) β V) |
93 | 9, 25, 26, 27, 92 | ovmpod 6002 |
. 2
β’ (((π β β€ β§ π β π΅) β§ πΊ β V) β (π Β· π) = if(π = 0, 0 , if(0 < π, (πβπ), (πΌβ(πβ-π))))) |
94 | 3, 93 | mpdan 421 |
1
β’ ((π β β€ β§ π β π΅) β (π Β· π) = if(π = 0, 0 , if(0 < π, (πβπ), (πΌβ(πβ-π))))) |