Metamath Proof Explorer


Theorem zlmdsOLD

Description: Obsolete proof of zlmds as of 11-Nov-2024. Distance in a ZZ -module (if present). (Contributed by Thierry Arnoux, 8-Nov-2017) (Proof modification is discouraged.) (New usage is discouraged.)

Ref Expression
Hypotheses zlmlem2.1 W = ℤMod G
zlmds.1 D = dist G
Assertion zlmdsOLD 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 5re 5
8 1nn 1
9 2nn0 2 0
10 5nn0 5 0
11 5lt10 5 < 10
12 8 9 10 11 declti 5 < 12
13 7 12 gtneii 12 5
14 dsndx dist ndx = 12
15 scandx Scalar ndx = 5
16 14 15 neeq12i dist ndx Scalar ndx 12 5
17 13 16 mpbir dist ndx Scalar ndx
18 6 17 setsnid dist G = dist G sSet Scalar ndx ring
19 6re 6
20 6nn0 6 0
21 6lt10 6 < 10
22 8 9 20 21 declti 6 < 12
23 19 22 gtneii 12 6
24 vscandx ndx = 6
25 14 24 neeq12i dist ndx ndx 12 6
26 23 25 mpbir dist ndx ndx
27 6 26 setsnid dist G sSet Scalar ndx ring = dist G sSet Scalar ndx ring sSet ndx G
28 18 27 eqtri dist G = dist G sSet Scalar ndx ring sSet ndx G
29 5 28 eqtr4di G V dist W = dist G
30 2 29 eqtr4id G V D = dist W