---

Step * 3 1 1 1 of Lemma fabmon_of_nat_mcp_wf


1. s : DSet
2. m : MCopower(s;<ℤ+>↓hgrp)
3. g' : AbMon
4. f : |s| ⟶ |g'|
5. u : |m.mon| ⟶ |g'|
6. IsMonHom{m.mon,g'}(u)
7. (u o (λu.(m.inj u zhgrp(1)))) = f ∈ (|s| ⟶ |g'|)
8. j : |s|
9. x : |<ℤ+>|+
⊢ (u (m.inj j (nat(x) ⋅ zhgrp(1)))) = (u (m.inj j x)) ∈ |g'|
BY
{ % Ugggh % 
let C = EvalC ``mon_nat_op int_hgrp_el`` in 
 RWH (MacroC `x` C a ⋅ zhgrp(b) C a ⋅ b) 0 }

1
1. s : DSet
2. m : MCopower(s;<ℤ+>↓hgrp)
3. g' : AbMon
4. f : |s| ⟶ |g'|
5. u : |m.mon| ⟶ |g'|
6. IsMonHom{m.mon,g'}(u)
7. (u o (λu.(m.inj u zhgrp(1)))) = f ∈ (|s| ⟶ |g'|)
8. j : |s|
9. x : |<ℤ+>|+
⊢ (u (m.inj j (nat(x) ⋅ 1))) = (u (m.inj j x)) ∈ |g'|

---

Latex:

---

Latex:

1.  s  :  DSet
2.  m  :  MCopower(s;<\mBbbZ{}+>\mdownarrow{}hgrp)
3.  g'  :  AbMon
4.  f  :  |s|  {}\mrightarrow{}  |g'|
5.  u  :  |m.mon|  {}\mrightarrow{}  |g'|
6.  IsMonHom\{m.mon,g'\}(u)
7.  (u  o  (\mlambda{}u.(m.inj  u  zhgrp(1))))  =  f
8.  j  :  |s|
9.  x  :  |<\mBbbZ{}+>|\msupplus{}
\mvdash{}  (u  (m.inj  j  (nat(x)  \mcdot{}  zhgrp(1))))  =  (u  (m.inj  j  x))


By

---

Latex:
\%  Ugggh  \% 
let  C  =  EvalC  ``mon\_nat\_op  int\_hgrp\_el``  in 
  RWH  (MacroC  `x`  C  a  \mcdot{}  zhgrp(b)  C  a  \mcdot{}  b)  0

---

Home Index