Step
*
of Lemma
qpositive-qabs
∀[r:ℚ]. ↑qpositive(|r|) supposing ¬(r = 0 ∈ ℚ)
BY
{ xxx(xxxAutoxxx
      THEN (Unfold `qabs` 0 THEN (CallByValueReduce 0 THENA Auto))
      THEN xxxInstLemma `q_trichotomy` [⌜r⌝]⋅xxx
      THEN Auto
      THEN SplitOrHyps
      THEN Auto
      THEN xxxxxxAutoBoolCase qpositive(r)⋅xxxxxx)xxx }
Latex:
Latex:
\mforall{}[r:\mBbbQ{}].  \muparrow{}qpositive(|r|)  supposing  \mneg{}(r  =  0)
By
Latex:
xxx(xxxAutoxxx
        THEN  (Unfold  `qabs`  0  THEN  (CallByValueReduce  0  THENA  Auto))
        THEN  xxxInstLemma  `q\_trichotomy`  [\mkleeneopen{}r\mkleeneclose{}]\mcdot{}xxx
        THEN  Auto
        THEN  SplitOrHyps
        THEN  Auto
        THEN  xxxxxxAutoBoolCase  qpositive(r)\mcdot{}xxxxxx)xxx
Home
Index