---

Step * 1 1 2 1 1 1 1 of Lemma rng_lsum-partition


1. k : ℕ
2. A : Type
3. p : A ⟶ ℕk
4. r : Rng
5. f : A ⟶ |r|
6. u : A
7. m : ℤ
8. 0 < m
9. m < k
10. f[u]
= ((Σ(r) 0 + 1 
         ≤ i 
         < (k + 1) - 1
     if (m - 1 =z i - 1) then f[u] else 0 fi ) 
   +r 
   if (m - 1 =z (k + 1) - 1 - 1) then f[u] else 0 fi )
∈ |r|
⊢ f[u] = (if (m =z 0) then f[u] else 0 fi  +r (Σ(r) 0 + 1 ≤ i < k. if (m =z i) then f[u] else 0 fi )) ∈ |r|
BY
{ (NthHypEqTrans (-1) THEN Reduce 0 THEN AutoSplit THEN (RW RngNormC 0 THENA Auto) THEN EqCDA THEN Auto) }

---

Latex:

---

Latex:

1.  k  :  \mBbbN{}
2.  A  :  Type
3.  p  :  A  {}\mrightarrow{}  \mBbbN{}k
4.  r  :  Rng
5.  f  :  A  {}\mrightarrow{}  |r|
6.  u  :  A
7.  m  :  \mBbbZ{}
8.  0  <  m
9.  m  <  k
10.  f[u]
=  ((\mSigma{}(r)  0  +  1 
                  \mleq{}  i 
                  <  (k  +  1)  -  1
          if  (m  -  1  =\msubz{}  i  -  1)  then  f[u]  else  0  fi  ) 
      +r 
      if  (m  -  1  =\msubz{}  (k  +  1)  -  1  -  1)  then  f[u]  else  0  fi  )
\mvdash{}  f[u]
=  (if  (m  =\msubz{}  0)  then  f[u]  else  0  fi    +r  (\mSigma{}(r)  0  +  1  \mleq{}  i  <  k.  if  (m  =\msubz{}  i)  then  f[u]  else  0  fi  ))


By

---

Latex:
(NthHypEqTrans  (-1)
  THEN  Reduce  0
  THEN  AutoSplit
  THEN  (RW  RngNormC  0  THENA  Auto)
  THEN  EqCDA
  THEN  Auto)

---

Home Index