Step
*
of Lemma
sum-map-append
∀[T:Type]. ∀[f:T ⟶ ℤ]. ∀[L1,L2:T List].  (Σf[x] for x ∈ L1 @ L2 ~ Σf[x] for x ∈ L1 + Σf[x] for x ∈ L2)
BY
{ xxx(InductionOnList THEN Reduce 0 THEN Auto THEN RWO "sum-map-cons" 0 THEN Auto THEN RWO "-2" 0 THEN Auto)xxx }
Latex:
Latex:
\mforall{}[T:Type].  \mforall{}[f:T  {}\mrightarrow{}  \mBbbZ{}].  \mforall{}[L1,L2:T  List].
    (\mSigma{}f[x]  for  x  \mmember{}  L1  @  L2  \msim{}  \mSigma{}f[x]  for  x  \mmember{}  L1  +  \mSigma{}f[x]  for  x  \mmember{}  L2)
By
Latex:
xxx(InductionOnList
        THEN  Reduce  0
        THEN  Auto
        THEN  RWO  "sum-map-cons"  0
        THEN  Auto
        THEN  RWO  "-2"  0
        THEN  Auto)xxx
Home
Index