---

Step * 1 of Lemma mod_times_mssum_r


1. s : DSet
2. r : Rng
3. m : algebra{i:l}(r)
4. f : |s| ⟶ m.car
5. u : m.car
6. a : MSet{s}
⊢ ((msFor{m↓grp} x ∈ a. f[x]) m.times u) = (msFor{m↓grp} x ∈ a. (f[x] m.times u)) ∈ |(m↓grp)|
BY
{ ((Unfold `infix_ap` 0 
THENM RWH RevCurryC 0 
THENM BLemma `dist_hom_over_mset_for`) THENA Auto) }

1
1. s : DSet
2. r : Rng
3. m : algebra{i:l}(r)
4. f : |s| ⟶ m.car
5. u : m.car
6. a : MSet{s}
⊢ λy.(m.times y u) ∈ MonHom(m↓grp,m↓grp)

---

Latex:

---

Latex:

1.  s  :  DSet
2.  r  :  Rng
3.  m  :  algebra\{i:l\}(r)
4.  f  :  |s|  {}\mrightarrow{}  m.car
5.  u  :  m.car
6.  a  :  MSet\{s\}
\mvdash{}  ((msFor\{m\mdownarrow{}grp\}  x  \mmember{}  a.  f[x])  m.times  u)  =  (msFor\{m\mdownarrow{}grp\}  x  \mmember{}  a.  (f[x]  m.times  u))


By

---

Latex:
((Unfold  `infix\_ap`  0 
THENM  RWH  RevCurryC  0 
THENM  BLemma  `dist\_hom\_over\_mset\_for`)  THENA  Auto)

---

Home Index