Metamath Proof Explorer


Theorem zlmds

Description: Distance in a ZZ -module (if present). (Contributed by Thierry Arnoux, 8-Nov-2017) (Proof shortened by AV, 11-Nov-2024)

Ref Expression
Hypotheses zlmlem2.1 W = ℤMod G
zlmds.1 D = dist G
Assertion zlmds G V D = dist W

Proof

Step Hyp Ref Expression
1 zlmlem2.1 W = ℤMod G
2 zlmds.1 D = dist G
3 eqid G = G
4 1 3 zlmval G V W = G sSet Scalar ndx ring sSet ndx G
5 4 fveq2d G V dist W = dist G sSet Scalar ndx ring sSet ndx G
6 dsid dist = Slot dist ndx
7 slotsdnscsi dist ndx Scalar ndx dist ndx ndx dist ndx 𝑖 ndx
8 7 simp1i dist ndx Scalar ndx
9 6 8 setsnid dist G = dist G sSet Scalar ndx ring
10 7 simp2i dist ndx ndx
11 6 10 setsnid dist G sSet Scalar ndx ring = dist G sSet Scalar ndx ring sSet ndx G
12 9 11 eqtri dist G = dist G sSet Scalar ndx ring sSet ndx G
13 5 12 eqtr4di G V dist W = dist G
14 2 13 eqtr4id G V D = dist W