---

Step * 2 1 1 1 of Lemma Legendre-rpolynomial


1. n : {1...}
2. ¬(n = 0 ∈ ℤ)
3. ¬(n = 1 ∈ ℤ)
4. a : ℕ(n - 2) + 1 ⟶ ℝ
5. ∀x:ℝ. (Legendre(n - 2;x) = (Σi≤n - 2. a_i * x^i))
6. (a (n - 2)) = (r(doublefact((2 * (n - 2)) - 1))/r((n - 2)!))
7. b : ℕ(n - 1) + 1 ⟶ ℝ
8. ∀x:ℝ. (Legendre(n - 1;x) = (Σi≤n - 1. b_i * x^i))
9. (b (n - 1)) = (r(doublefact((2 * (n - 1)) - 1))/r((n - 1)!))
10. ∀x:ℝ
      (((2 * n) - 1 * x * Legendre(n - 1;x) - n - 1 * Legendre(n - 2;x))/n
      = (Σi≤n. λi.if (i =z 0) then (1 - n * a i)/n
                  if i <z n - 1 then ((2 * n) - 1 * b (i - 1))/n - (n - 1 * a i)/n
                  else ((2 * n) - 1 * b (i - 1))/n
                  fi _i * x^i))
11. r((n)!) ≠ r0
12. r((n - 1)!) ≠ r0
⊢ ((r((2 * n) - 1) * (r(doublefact((2 * (n - 1)) - 1))/r((n - 1)!))) * r((n - 1)! * n)) = r(doublefact((2 * n) - 1) * n)
BY
{ ((RWO "rmul-int<" 0 THENA Auto)
   THEN MoveToConcl (-1)
   THEN (GenConclTerm ⌜r((n - 1)!)⌝⋅ THENA Auto)
   THEN (Subst' (2 * (n - 1)) - 1 ~ (2 * n) - 1 - 2 0 THENA Auto)
   THEN (GenConcl ⌜((2 * n) - 1) = m ∈ ℕ+⌝⋅ THENA Auto)) }

1
1. n : {1...}
2. ¬(n = 0 ∈ ℤ)
3. ¬(n = 1 ∈ ℤ)
4. a : ℕ(n - 2) + 1 ⟶ ℝ
5. ∀x:ℝ. (Legendre(n - 2;x) = (Σi≤n - 2. a_i * x^i))
6. (a (n - 2)) = (r(doublefact((2 * (n - 2)) - 1))/r((n - 2)!))
7. b : ℕ(n - 1) + 1 ⟶ ℝ
8. ∀x:ℝ. (Legendre(n - 1;x) = (Σi≤n - 1. b_i * x^i))
9. (b (n - 1)) = (r(doublefact((2 * (n - 1)) - 1))/r((n - 1)!))
10. ∀x:ℝ
      (((2 * n) - 1 * x * Legendre(n - 1;x) - n - 1 * Legendre(n - 2;x))/n
      = (Σi≤n. λi.if (i =z 0) then (1 - n * a i)/n
                  if i <z n - 1 then ((2 * n) - 1 * b (i - 1))/n - (n - 1 * a i)/n
                  else ((2 * n) - 1 * b (i - 1))/n
                  fi _i * x^i))
11. r((n)!) ≠ r0
12. v : ℝ
13. r((n - 1)!) = v ∈ ℝ
14. m : ℕ+
15. ((2 * n) - 1) = m ∈ ℕ+
⊢ v ≠ r0 ⇒ (((r(m) * (r(doublefact(m - 2))/v)) * v * r(n)) = (r(doublefact(m)) * r(n)))

---

Latex:

---

Latex:

1.  n  :  \{1...\}
2.  \mneg{}(n  =  0)
3.  \mneg{}(n  =  1)
4.  a  :  \mBbbN{}(n  -  2)  +  1  {}\mrightarrow{}  \mBbbR{}
5.  \mforall{}x:\mBbbR{}.  (Legendre(n  -  2;x)  =  (\mSigma{}i\mleq{}n  -  2.  a\_i  *  x\^{}i))
6.  (a  (n  -  2))  =  (r(doublefact((2  *  (n  -  2))  -  1))/r((n  -  2)!))
7.  b  :  \mBbbN{}(n  -  1)  +  1  {}\mrightarrow{}  \mBbbR{}
8.  \mforall{}x:\mBbbR{}.  (Legendre(n  -  1;x)  =  (\mSigma{}i\mleq{}n  -  1.  b\_i  *  x\^{}i))
9.  (b  (n  -  1))  =  (r(doublefact((2  *  (n  -  1))  -  1))/r((n  -  1)!))
10.  \mforall{}x:\mBbbR{}
            (((2  *  n)  -  1  *  x  *  Legendre(n  -  1;x)  -  n  -  1  *  Legendre(n  -  2;x))/n
            =  (\mSigma{}i\mleq{}n.  \mlambda{}i.if  (i  =\msubz{}  0)  then  (1  -  n  *  a  i)/n
                                    if  i  <z  n  -  1  then  ((2  *  n)  -  1  *  b  (i  -  1))/n  -  (n  -  1  *  a  i)/n
                                    else  ((2  *  n)  -  1  *  b  (i  -  1))/n
                                    fi  \_i  *  x\^{}i))
11.  r((n)!)  \mneq{}  r0
12.  r((n  -  1)!)  \mneq{}  r0
\mvdash{}  ((r((2  *  n)  -  1)  *  (r(doublefact((2  *  (n  -  1))  -  1))/r((n  -  1)!)))  *  r((n  -  1)!  *  n))
=  r(doublefact((2  *  n)  -  1)  *  n)


By

---

Latex:
((RWO  "rmul-int<"  0  THENA  Auto)
  THEN  MoveToConcl  (-1)
  THEN  (GenConclTerm  \mkleeneopen{}r((n  -  1)!)\mkleeneclose{}\mcdot{}  THENA  Auto)
  THEN  (Subst'  (2  *  (n  -  1))  -  1  \msim{}  (2  *  n)  -  1  -  2  0  THENA  Auto)
  THEN  (GenConcl  \mkleeneopen{}((2  *  n)  -  1)  =  m\mkleeneclose{}\mcdot{}  THENA  Auto))

---

Home Index