---

Step * 1 2 1 1 of Lemma sine-approx-lemma

.....equality..... 
1. a : {2...}
2. N : ℕ+
3. aa : {4...}
4. aa = a^2 ∈ {4...}
5. genfact-inv(N;6 * a^3;k.aa * ((2 * k) + 3) * ((2 * k) + 2))
= genfact-inv(N;6 * a^3;k.aa * ((2 * k) + 3) * ((2 * k) + 2))
∈ {n:ℕ| N ≤ genfact(n;6 * a^3;k.aa * ((2 * k) + 3) * ((2 * k) + 2))} 
6. x : ℕ
7. N ≤ genfact(x;6 * a^3;k.aa * ((2 * k) + 3) * ((2 * k) + 2))
⊢ a^((2 * x) + 3) * ((2 * x) + 3)! ~ genfact(x;6 * a^3;k.aa * ((2 * k) + 3) * ((2 * k) + 2))
BY
{ (HypSubst' (-4) 0
   THEN All Thin
   THEN NatInd (-1)
   THEN (RWO "genfact-step" 0 THENA Auto)
   THEN (RWW "-1<" 0 THENA Auto)
   THEN AutoSplit) }

1
1. a : {2...}
2. x : ℤ
3. 0 < 1
⊢ a^3 * (3)! ~ 6 * a^3

2
1. a : {2...}
2. x : ℤ
3. ¬x < 1
4. 0 < x
5. a^((2 * (x - 1)) + 3) * ((2 * (x - 1)) + 3)! ~ genfact(x - 1;6 * a^3;k.a^2 * ((2 * k) + 3) * ((2 * k) + 2))
⊢ a^((2 * x) + 3) * ((2 * x) + 3)! ~ (a^2 * ((2 * x) + 3) * ((2 * x) + 2))
* a^((2 * (x - 1)) + 3)
* ((2 * (x - 1)) + 3)!

---

Latex:

---

Latex:
.....equality..... 
1.  a  :  \{2...\}
2.  N  :  \mBbbN{}\msupplus{}
3.  aa  :  \{4...\}
4.  aa  =  a\^{}2
5.  genfact-inv(N;6  *  a\^{}3;k.aa  *  ((2  *  k)  +  3)  *  ((2  *  k)  +  2))
=  genfact-inv(N;6  *  a\^{}3;k.aa  *  ((2  *  k)  +  3)  *  ((2  *  k)  +  2))
6.  x  :  \mBbbN{}
7.  N  \mleq{}  genfact(x;6  *  a\^{}3;k.aa  *  ((2  *  k)  +  3)  *  ((2  *  k)  +  2))
\mvdash{}  a\^{}((2  *  x)  +  3)  *  ((2  *  x)  +  3)!  \msim{}  genfact(x;6  *  a\^{}3;k.aa  *  ((2  *  k)  +  3)  *  ((2  *  k)  +  2))


By

---

Latex:
(HypSubst'  (-4)  0
  THEN  All  Thin
  THEN  NatInd  (-1)
  THEN  (RWO  "genfact-step"  0  THENA  Auto)
  THEN  (RWW  "-1<"  0  THENA  Auto)
  THEN  AutoSplit)

---

Home Index