Metamath Proof Explorer


Theorem zlmodzxzscm

Description: The scalar multiplication of the ZZ-module ZZ X. ZZ . (Contributed by AV, 20-May-2019) (Revised by AV, 10-Jun-2019)

Ref Expression
Hypotheses zlmodzxz.z ⊢ Z = ℤ ring freeLMod 0 1
zlmodzxzscm.t ⊢ ∙ ˙ = ⋅ Z
Assertion zlmodzxzscm ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ C ∈ ℤ → A ∙ ˙ 0 B 1 C = 0 A ⁢ B 1 A ⁢ C

Proof

Step Hyp Ref Expression
1 zlmodzxz.z ⊢ Z = ℤ ring freeLMod 0 1
2 zlmodzxzscm.t ⊢ ∙ ˙ = ⋅ Z
3 prex ⊢ 0 1 ∈ V
4 3 a1i ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ C ∈ ℤ → 0 1 ∈ V
5 fnconstg ⊢ A ∈ ℤ → 0 1 × A Fn 0 1
6 5 3ad2ant1 ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ C ∈ ℤ → 0 1 × A Fn 0 1
7 c0ex ⊢ 0 ∈ V
8 1ex ⊢ 1 ∈ V
9 7 8 pm3.2i ⊢ 0 ∈ V ∧ 1 ∈ V
10 9 a1i ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ C ∈ ℤ → 0 ∈ V ∧ 1 ∈ V
11 3simpc ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ C ∈ ℤ → B ∈ ℤ ∧ C ∈ ℤ
12 0ne1 ⊢ 0 ≠ 1
13 12 a1i ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ C ∈ ℤ → 0 ≠ 1
14 fnprg ⊢ 0 ∈ V ∧ 1 ∈ V ∧ B ∈ ℤ ∧ C ∈ ℤ ∧ 0 ≠ 1 → 0 B 1 C Fn 0 1
15 10 11 13 14 syl3anc ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ C ∈ ℤ → 0 B 1 C Fn 0 1
16 4 6 15 offvalfv ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ C ∈ ℤ → 0 1 × A ⋅ ℤ ring f 0 B 1 C = x ∈ 0 1 ⟼ 0 1 × A ⁡ x ⋅ ℤ ring 0 B 1 C ⁡ x
17 eqid ⊢ Base Z = Base Z
18 eqid ⊢ Base ℤ ring = Base ℤ ring
19 simp1 ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ C ∈ ℤ → A ∈ ℤ
20 zringbas ⊢ ℤ = Base ℤ ring
21 19 20 eleqtrdi ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ C ∈ ℤ → A ∈ Base ℤ ring
22 1 zlmodzxzel ⊢ B ∈ ℤ ∧ C ∈ ℤ → 0 B 1 C ∈ Base Z
23 22 3adant1 ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ C ∈ ℤ → 0 B 1 C ∈ Base Z
24 eqid ⊢ ⋅ ℤ ring = ⋅ ℤ ring
25 1 17 18 4 21 23 2 24 frlmvscafval ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ C ∈ ℤ → A ∙ ˙ 0 B 1 C = 0 1 × A ⋅ ℤ ring f 0 B 1 C
26 7 a1i ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ C ∈ ℤ → 0 ∈ V
27 8 a1i ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ C ∈ ℤ → 1 ∈ V
28 ovexd ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ C ∈ ℤ → A ⁢ B ∈ V
29 ovexd ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ C ∈ ℤ → A ⁢ C ∈ V
30 fveq2 ⊢ x = 0 → 0 1 × A ⁡ x = 0 1 × A ⁡ 0
31 fveq2 ⊢ x = 0 → 0 B 1 C ⁡ x = 0 B 1 C ⁡ 0
32 30 31 oveq12d ⊢ x = 0 → 0 1 × A ⁡ x ⋅ ℤ ring 0 B 1 C ⁡ x = 0 1 × A ⁡ 0 ⋅ ℤ ring 0 B 1 C ⁡ 0
33 zringmulr ⊢ × = ⋅ ℤ ring
34 33 eqcomi ⊢ ⋅ ℤ ring = ×
35 34 a1i ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ C ∈ ℤ → ⋅ ℤ ring = ×
36 0elpr01 ⊢ 0 ∈ 0 1
37 fvconst2g ⊢ A ∈ ℤ ∧ 0 ∈ 0 1 → 0 1 × A ⁡ 0 = A
38 19 36 37 sylancl ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ C ∈ ℤ → 0 1 × A ⁡ 0 = A
39 simp2 ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ C ∈ ℤ → B ∈ ℤ
40 fvpr1g ⊢ 0 ∈ V ∧ B ∈ ℤ ∧ 0 ≠ 1 → 0 B 1 C ⁡ 0 = B
41 26 39 13 40 syl3anc ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ C ∈ ℤ → 0 B 1 C ⁡ 0 = B
42 35 38 41 oveq123d ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ C ∈ ℤ → 0 1 × A ⁡ 0 ⋅ ℤ ring 0 B 1 C ⁡ 0 = A ⁢ B
43 32 42 sylan9eqr ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ C ∈ ℤ ∧ x = 0 → 0 1 × A ⁡ x ⋅ ℤ ring 0 B 1 C ⁡ x = A ⁢ B
44 fveq2 ⊢ x = 1 → 0 1 × A ⁡ x = 0 1 × A ⁡ 1
45 fveq2 ⊢ x = 1 → 0 B 1 C ⁡ x = 0 B 1 C ⁡ 1
46 44 45 oveq12d ⊢ x = 1 → 0 1 × A ⁡ x ⋅ ℤ ring 0 B 1 C ⁡ x = 0 1 × A ⁡ 1 ⋅ ℤ ring 0 B 1 C ⁡ 1
47 1elpr01 ⊢ 1 ∈ 0 1
48 fvconst2g ⊢ A ∈ ℤ ∧ 1 ∈ 0 1 → 0 1 × A ⁡ 1 = A
49 19 47 48 sylancl ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ C ∈ ℤ → 0 1 × A ⁡ 1 = A
50 simp3 ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ C ∈ ℤ → C ∈ ℤ
51 fvpr2g ⊢ 1 ∈ V ∧ C ∈ ℤ ∧ 0 ≠ 1 → 0 B 1 C ⁡ 1 = C
52 27 50 13 51 syl3anc ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ C ∈ ℤ → 0 B 1 C ⁡ 1 = C
53 35 49 52 oveq123d ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ C ∈ ℤ → 0 1 × A ⁡ 1 ⋅ ℤ ring 0 B 1 C ⁡ 1 = A ⁢ C
54 46 53 sylan9eqr ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ C ∈ ℤ ∧ x = 1 → 0 1 × A ⁡ x ⋅ ℤ ring 0 B 1 C ⁡ x = A ⁢ C
55 26 27 28 29 43 54 fmptpr ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ C ∈ ℤ → 0 A ⁢ B 1 A ⁢ C = x ∈ 0 1 ⟼ 0 1 × A ⁡ x ⋅ ℤ ring 0 B 1 C ⁡ x
56 16 25 55 3eqtr4d ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ C ∈ ℤ → A ∙ ˙ 0 B 1 C = 0 A ⁢ B 1 A ⁢ C