Metamath Proof Explorer


Theorem zlmlem

Description: Lemma for zlmbas and zlmplusg . (Contributed by Mario Carneiro, 2-Oct-2015)

Ref Expression
Hypotheses zlmbas.w W = ℤMod G
zlmlem.2 E = Slot N
zlmlem.3 N
zlmlem.4 N < 5
Assertion zlmlem E G = E W

Proof

Step Hyp Ref Expression
1 zlmbas.w W = ℤMod G
2 zlmlem.2 E = Slot N
3 zlmlem.3 N
4 zlmlem.4 N < 5
5 eqid G = G
6 1 5 zlmval G V W = G sSet Scalar ndx ring sSet ndx G
7 6 fveq2d G V E W = E G sSet Scalar ndx ring sSet ndx G
8 2 3 ndxid E = Slot E ndx
9 2 3 ndxarg E ndx = N
10 3 nnrei N
11 9 10 eqeltri E ndx
12 9 4 eqbrtri E ndx < 5
13 11 12 ltneii E ndx 5
14 scandx Scalar ndx = 5
15 13 14 neeqtrri E ndx Scalar ndx
16 8 15 setsnid E G = E G sSet Scalar ndx ring
17 5lt6 5 < 6
18 5re 5
19 6re 6
20 11 18 19 lttri E ndx < 5 5 < 6 E ndx < 6
21 12 17 20 mp2an E ndx < 6
22 11 21 ltneii E ndx 6
23 vscandx ndx = 6
24 22 23 neeqtrri E ndx ndx
25 8 24 setsnid E G sSet Scalar ndx ring = E G sSet Scalar ndx ring sSet ndx G
26 16 25 eqtri E G = E G sSet Scalar ndx ring sSet ndx G
27 7 26 syl6reqr G V E G = E W
28 2 str0 = E
29 fvprc ¬ G V E G =
30 fvprc ¬ G V ℤMod G =
31 1 30 syl5eq ¬ G V W =
32 31 fveq2d ¬ G V E W = E
33 28 29 32 3eqtr4a ¬ G V E G = E W
34 27 33 pm2.61i E G = E W