---

Step * 1 of Lemma Paasche-theorem2


1. x : Atom
2. y : Atom
3. ¬(x = y ∈ Atom)
4. k : ℕ
5. Moessner(ℤ-rng;x;y;1;λi.if (i =z 0) then 0 else (λi.(i + 1)) (i - 1) fi ;k)[bag-rep(Σ((λi.(i + 1)) i | i < k);x)]
= Π((k - i)^((λi.(i + 1)) i) | i < k)
∈ ℤ
6. ∀[d:ℕ ⟶ ℕ]. ∀[k:ℕ].
     (Moessner(ℤ-rng;x;y;1;λi.if (i =z 0) then 0 else d (i - 1) fi ;k)[bag-rep(Σ(d i | i < k);x)]
     = Π((k - i)^(d i) | i < k)
     ∈ ℤ)
⊢ Moessner(ℤ-rng;x;y;1;λi.i;k)[bag-rep((k * (1 + k)) ÷ 2;x)]
= Moessner(ℤ-rng;x;y;1;λi.if (i =z 0) then 0 else (λi.(i + 1)) (i - 1) fi ;k)[bag-rep(Σ((λi.(i + 1)) i | i < k);x)]
∈ ℤ
BY
{ (RepeatFor 2 ((EqCD THEN Auto))⋅ THEN Reduce 0) }

1
1. x : Atom
2. y : Atom
3. ¬(x = y ∈ Atom)
4. k : ℕ
5. Moessner(ℤ-rng;x;y;1;λi.if (i =z 0) then 0 else (λi.(i + 1)) (i - 1) fi ;k)[bag-rep(Σ((λi.(i + 1)) i | i < k);x)]
= Π((k - i)^((λi.(i + 1)) i) | i < k)
∈ ℤ
6. ∀[d:ℕ ⟶ ℕ]. ∀[k:ℕ].
     (Moessner(ℤ-rng;x;y;1;λi.if (i =z 0) then 0 else d (i - 1) fi ;k)[bag-rep(Σ(d i | i < k);x)]
     = Π((k - i)^(d i) | i < k)
     ∈ ℤ)
⊢ ((k * (1 + k)) ÷ 2) = Σ(i + 1 | i < k) ∈ ℕ

---

Latex:

---

Latex:

1.  x  :  Atom
2.  y  :  Atom
3.  \mneg{}(x  =  y)
4.  k  :  \mBbbN{}
5.  Moessner(\mBbbZ{}-rng;x;y;1;\mlambda{}i.if  (i  =\msubz{}  0)
                                                      then  0
                                                      else  (\mlambda{}i.(i  +  1))  (i  -  1)
                                                      fi  ;k)[bag-rep(\mSigma{}((\mlambda{}i.(i  +  1))  i  |  i  <  k);x)]
=  \mPi{}((k  -  i)\^{}((\mlambda{}i.(i  +  1))  i)  |  i  <  k)
6.  \mforall{}[d:\mBbbN{}  {}\mrightarrow{}  \mBbbN{}].  \mforall{}[k:\mBbbN{}].
          (Moessner(\mBbbZ{}-rng;x;y;1;\mlambda{}i.if  (i  =\msubz{}  0)  then  0  else  d  (i  -  1)  fi  ;k)[bag-rep(\mSigma{}(d  i  |  i  <  k);x)]
          =  \mPi{}((k  -  i)\^{}(d  i)  |  i  <  k))
\mvdash{}  Moessner(\mBbbZ{}-rng;x;y;1;\mlambda{}i.i;k)[bag-rep((k  *  (1  +  k))  \mdiv{}  2;x)]
=  Moessner(\mBbbZ{}-rng;x;y;1;\mlambda{}i.if  (i  =\msubz{}  0)
                                                    then  0
                                                    else  (\mlambda{}i.(i  +  1))  (i  -  1)
                                                    fi  ;k)[bag-rep(\mSigma{}((\mlambda{}i.(i  +  1))  i  |  i  <  k);x)]


By

---

Latex:
(RepeatFor  2  ((EqCD  THEN  Auto))\mcdot{}  THEN  Reduce  0)

---

Home Index