Step * 1 of Lemma infn_wf


1. {I:Interval| icompact(I)} 
2. : ℤ
⊢ λf.(f ⋅) ∈ {F:{f:I^0 ⟶ ℝ| ∀a,b:I^0.  (req-vec(0;a;b)  ((f a) (f b)))}  ⟶ ℝ
              ∀f,g:{f:I^0 ⟶ ℝ| ∀a,b:I^0.  (req-vec(0;a;b)  ((f a) (f b)))} .
                ((∀x:I^0. ((f x) (g x)))  ((F f) (F g)))} 
BY
((Assert ⋅ ∈ I^0 BY
          (SubsumeC ⌜Top⌝⋅
           THEN Auto
           THEN (D THENA Auto)
           THEN (Unfold `interval-vec` THEN MemTypeCD THEN Auto)
           THEN Unfold `real-vec` 0
           THEN FunExt
           THEN Auto))
   THEN MemTypeCD
   THEN Auto
   THEN Reduce 0
   THEN BackThruSomeHyp
   THEN Auto) }


Latex:


Latex:

1.  I  :  \{I:Interval|  icompact(I)\} 
2.  n  :  \mBbbZ{}
\mvdash{}  \mlambda{}f.(f  \mcdot{})  \mmember{}  \{F:\{f:I\^{}0  {}\mrightarrow{}  \mBbbR{}|  \mforall{}a,b:I\^{}0.    (req-vec(0;a;b)  {}\mRightarrow{}  ((f  a)  =  (f  b)))\}    {}\mrightarrow{}  \mBbbR{}| 
                            \mforall{}f,g:\{f:I\^{}0  {}\mrightarrow{}  \mBbbR{}|  \mforall{}a,b:I\^{}0.    (req-vec(0;a;b)  {}\mRightarrow{}  ((f  a)  =  (f  b)))\}  .
                                ((\mforall{}x:I\^{}0.  ((f  x)  =  (g  x)))  {}\mRightarrow{}  ((F  f)  =  (F  g)))\} 


By


Latex:
((Assert  \mcdot{}  \mmember{}  I\^{}0  BY
                (SubsumeC  \mkleeneopen{}Top\mkleeneclose{}\mcdot{}
                  THEN  Auto
                  THEN  (D  0  THENA  Auto)
                  THEN  (Unfold  `interval-vec`  0  THEN  MemTypeCD  THEN  Auto)
                  THEN  Unfold  `real-vec`  0
                  THEN  FunExt
                  THEN  Auto))
  THEN  MemTypeCD
  THEN  Auto
  THEN  Reduce  0
  THEN  BackThruSomeHyp
  THEN  Auto)




Home Index