---

Step * 2 2 1 1 1 of Lemma infn-rleq


1. I : {I:Interval| icompact(I)} 
2. n : ℤ
3. 0 < n
4. f : {f:I^n ⟶ ℝ| ∀a,b:I^n.  (req-vec(n;a;b) ⇒ ((f a) = (f b)))} 
5. x : I^n
6. ∀z:{x:ℝ| x ∈ I} . (λa.(f a++z) ∈ {f:I^n - 1 ⟶ ℝ| ∀a,b:I^n - 1.  (req-vec(n - 1;a;b) ⇒ ((f a) = (f b)))} )
7. x (n - 1) ∈ {x:ℝ| x ∈ I} 
8. (infn(n - 1;I) (λa.(f a++x (n - 1)))) ≤ (f x++x (n - 1))
9. ∀f,g:I^n ⟶ ℝ.
     ((∀x,y:I^n.  (req-vec(n;x;y) ⇒ ((f x) = (f y)))) ⇒ (∀x:I^n. ((f x) = (g x))) ⇒ ((infn(n;I) f) = (infn(n;I) g)))
⊢ (infn(n;I) f) ≤ (f x)
BY
{ (Unfold `infn` -1
   THEN (RWO  "primrec-unroll" (-1) THENA Auto)
   THEN Fold `infn` (-1)
   THEN (Subst' n <z 1 ~ ff -1 THENA Auto)
   THEN Reduce -1
   THEN Unfold `infn` 0
   THEN ((RWO  "primrec-unroll" 0 THENM OReduce 0) THENA Auto)
   THEN Fold `infn` 0) }

1
1. I : {I:Interval| icompact(I)} 
2. n : ℤ
3. 0 < n
4. f : {f:I^n ⟶ ℝ| ∀a,b:I^n.  (req-vec(n;a;b) ⇒ ((f a) = (f b)))} 
5. x : I^n
6. ∀z:{x:ℝ| x ∈ I} . (λa.(f a++z) ∈ {f:I^n - 1 ⟶ ℝ| ∀a,b:I^n - 1.  (req-vec(n - 1;a;b) ⇒ ((f a) = (f b)))} )
7. x (n - 1) ∈ {x:ℝ| x ∈ I} 
8. (infn(n - 1;I) (λa.(f a++x (n - 1)))) ≤ (f x++x (n - 1))
9. ∀f,g:I^n ⟶ ℝ.
     ((∀x,y:I^n.  (req-vec(n;x;y) ⇒ ((f x) = (f y))))
     ⇒ (∀x:I^n. ((f x) = (g x)))
     ⇒ (inf{infn(n - 1;I) (λa.(f a++z)) | z ∈ I} = inf{infn(n - 1;I) (λa.(g a++z)) | z ∈ I}))
⊢ inf{infn(n - 1;I) (λa.(f a++z)) | z ∈ I} ≤ (f x)

---

Latex:

---

Latex:

1.  I  :  \{I:Interval|  icompact(I)\} 
2.  n  :  \mBbbZ{}
3.  0  <  n
4.  f  :  \{f:I\^{}n  {}\mrightarrow{}  \mBbbR{}|  \mforall{}a,b:I\^{}n.    (req-vec(n;a;b)  {}\mRightarrow{}  ((f  a)  =  (f  b)))\} 
5.  x  :  I\^{}n
6.  \mforall{}z:\{x:\mBbbR{}|  x  \mmember{}  I\} 
          (\mlambda{}a.(f  a++z)  \mmember{}  \{f:I\^{}n  -  1  {}\mrightarrow{}  \mBbbR{}|  \mforall{}a,b:I\^{}n  -  1.    (req-vec(n  -  1;a;b)  {}\mRightarrow{}  ((f  a)  =  (f  b)))\}  )
7.  x  (n  -  1)  \mmember{}  \{x:\mBbbR{}|  x  \mmember{}  I\} 
8.  (infn(n  -  1;I)  (\mlambda{}a.(f  a++x  (n  -  1))))  \mleq{}  (f  x++x  (n  -  1))
9.  \mforall{}f,g:I\^{}n  {}\mrightarrow{}  \mBbbR{}.
          ((\mforall{}x,y:I\^{}n.    (req-vec(n;x;y)  {}\mRightarrow{}  ((f  x)  =  (f  y))))
          {}\mRightarrow{}  (\mforall{}x:I\^{}n.  ((f  x)  =  (g  x)))
          {}\mRightarrow{}  ((infn(n;I)  f)  =  (infn(n;I)  g)))
\mvdash{}  (infn(n;I)  f)  \mleq{}  (f  x)


By

---

Latex:
(Unfold  `infn`  -1
  THEN  (RWO    "primrec-unroll"  (-1)  THENA  Auto)
  THEN  Fold  `infn`  (-1)
  THEN  (Subst'  n  <z  1  \msim{}  ff  -1  THENA  Auto)
  THEN  Reduce  -1
  THEN  Unfold  `infn`  0
  THEN  ((RWO    "primrec-unroll"  0  THENM  OReduce  0)  THENA  Auto)
  THEN  Fold  `infn`  0)

---

Home Index