---

Step * 2 1 of Lemma rnexp-req


1. k : {2...}
2. x : ℝ
⊢ bdd-diff(accelerate((k * ((canon-bnd(x)^(k - 1) ÷ 2^(k - 1)) + 1)) + 1;reg-seq-nexp(x;k));
           reg-seq-mul(x;accelerate(((k - 1) * ((canon-bnd(x)^(k - 1 - 1) ÷ 2^(k - 1 - 1)) + 1)) + 1;reg-seq-nexp(x;k 
           - 1))))
BY
{ ((GenConclTerm ⌜reg-seq-nexp(x;k - 1)⌝⋅ THENA Auto)
   THEN MoveToConcl  (-2)
   THEN (RWO "exp-fastexp<" 0 THENA Auto)
   THEN (GenConcl ⌜(canon-bnd(x)^(k - 1 - 1) ÷ 2^(k - 1 - 1)) = B ∈ ℕ⌝⋅ THENA Auto)
   THEN (GenConcl ⌜(((k - 1) * (B + 1)) + 1) = BB ∈ ℕ+⌝⋅ THENA Auto)) }

1
1. k : {2...}
2. x : ℝ
3. B : ℕ
4. (canon-bnd(x)^(k - 1 - 1) ÷ 2^(k - 1 - 1)) = B ∈ ℕ
5. BB : ℕ+
6. (((k - 1) * (B + 1)) + 1) = BB ∈ ℕ+
⊢ ∀v:{f:ℕ+ ⟶ ℤ| BB-regular-seq(f)} 
    ((reg-seq-nexp(x;k - 1) = v ∈ {f:ℕ+ ⟶ ℤ| BB-regular-seq(f)} )
    ⇒ bdd-diff(accelerate((k * ((canon-bnd(x)^(k - 1) ÷ 2^(k - 1)) + 1)) + 1;reg-seq-nexp(x;k));
                reg-seq-mul(x;accelerate(BB;v))))

---

Latex:

---

Latex:

1.  k  :  \{2...\}
2.  x  :  \mBbbR{}
\mvdash{}  bdd-diff(accelerate((k  *  ((canon-bnd(x)\^{}(k  -  1)  \mdiv{}  2\^{}(k  -  1))  +  1))  +  1;reg-seq-nexp(x;k));
                      reg-seq-mul(x;accelerate(((k  -  1)  *  ((canon-bnd(x)\^{}(k  -  1  -  1)  \mdiv{}  2\^{}(k  -  1  -  1))  +  1))
                      +  1;reg-seq-nexp(x;k  -  1))))


By

---

Latex:
((GenConclTerm  \mkleeneopen{}reg-seq-nexp(x;k  -  1)\mkleeneclose{}\mcdot{}  THENA  Auto)
  THEN  MoveToConcl    (-2)
  THEN  (RWO  "exp-fastexp<"  0  THENA  Auto)
  THEN  (GenConcl  \mkleeneopen{}(canon-bnd(x)\^{}(k  -  1  -  1)  \mdiv{}  2\^{}(k  -  1  -  1))  =  B\mkleeneclose{}\mcdot{}  THENA  Auto)
  THEN  (GenConcl  \mkleeneopen{}(((k  -  1)  *  (B  +  1))  +  1)  =  BB\mkleeneclose{}\mcdot{}  THENA  Auto))

---

Home Index