Step
*
of Lemma
strong-continuity-test-bound-unroll
∀[T:Type]. ∀[M:n:ℕ ⟶ (ℕn ⟶ T) ⟶ (ℕ?)]. ∀[n:ℕ]. ∀[f,b:Top].
  (strong-continuity-test-bound(M;n;f;b) ~ if (n =z 0) then inr Ax 
  if n - 1 <z b then inr Ax 
  if (n - 1 =z b) then inl b
  if isl(M (n - 1) f) then inr Ax 
  else strong-continuity-test-bound(M;n - 1;f;b)
  fi )
BY
{ (UnivCD THENA Auto) }
1
1. T : Type
2. M : n:ℕ ⟶ (ℕn ⟶ T) ⟶ (ℕ?)
3. n : ℕ
4. f : Top
5. b : Top
⊢ strong-continuity-test-bound(M;n;f;b) ~ if (n =z 0) then inr Ax 
if n - 1 <z b then inr Ax 
if (n - 1 =z b) then inl b
if isl(M (n - 1) f) then inr Ax 
else strong-continuity-test-bound(M;n - 1;f;b)
fi 
Latex:
Latex:
\mforall{}[T:Type].  \mforall{}[M:n:\mBbbN{}  {}\mrightarrow{}  (\mBbbN{}n  {}\mrightarrow{}  T)  {}\mrightarrow{}  (\mBbbN{}?)].  \mforall{}[n:\mBbbN{}].  \mforall{}[f,b:Top].
    (strong-continuity-test-bound(M;n;f;b)  \msim{}  if  (n  =\msubz{}  0)  then  inr  Ax 
    if  n  -  1  <z  b  then  inr  Ax 
    if  (n  -  1  =\msubz{}  b)  then  inl  b
    if  isl(M  (n  -  1)  f)  then  inr  Ax 
    else  strong-continuity-test-bound(M;n  -  1;f;b)
    fi  )
By
Latex:
(UnivCD  THENA  Auto)
Home
Index