Step * 4 of Lemma iproper-nonvoid


1. Top
2. y1 : ℝ
3. (False ∧ True)  (case ⊥ of inl(a) => inr(a) => a < case inr y1  of inl(b) => inr(b) => b)
⊢ ∃r:ℝ(r < y1)
BY
((D With ⌜y1 r1⌝  THEN Auto) THEN nRAdd ⌜-(y1)⌝ 0⋅ THEN Auto) }


Latex:


Latex:

1.  y  :  Top
2.  y1  :  \mBbbR{}
3.  (False  \mwedge{}  True)
{}\mRightarrow{}  (case  \mbot{}  of  inl(a)  =>  a  |  inr(a)  =>  a  <  case  inr  y1    of  inl(b)  =>  b  |  inr(b)  =>  b)
\mvdash{}  \mexists{}r:\mBbbR{}.  (r  <  y1)


By


Latex:
((D  0  With  \mkleeneopen{}y1  -  r1\mkleeneclose{}    THEN  Auto)  THEN  nRAdd  \mkleeneopen{}-(y1)\mkleeneclose{}  0\mcdot{}  THEN  Auto)




Home Index