---

Step * 1 1 1 2 3 of Lemma int_is_mono

.....subterm..... T:t
1:n
1. 0 ∈ ℤ
2. v : ℤ
3. x : ℤ
4. 0 < x
5. λ%.Ax ∈ (x - 1 ≤ 0) ⇒ (0 ≤ x - 1)
6. x ≤ 0
⊢ Ax ∈ 0 ≤ x
BY
{ ((Assert ⌜False⌝⋅ THEN Auto)
   THEN (Assert ⌜(0 =z x) ≤ (0 =z 0)⌝⋅ THENA Auto)
   THEN Reduce (-1)
   THEN MoveToConcl (-1)
   THEN AutoBoolCase ⌜(0 =z x)⌝⋅
   THEN Auto
   THEN InstLemma `not-bfalse-sqle-btrue` []
   THEN Auto) }

---

Latex:

---

Latex:
.....subterm.....  T:t
1:n
1.  0  \mmember{}  \mBbbZ{}
2.  v  :  \mBbbZ{}
3.  x  :  \mBbbZ{}
4.  0  <  x
5.  \mlambda{}\%.Ax  \mmember{}  (x  -  1  \mleq{}  0)  {}\mRightarrow{}  (0  \mleq{}  x  -  1)
6.  x  \mleq{}  0
\mvdash{}  Ax  \mmember{}  0  \mleq{}  x


By

---

Latex:
((Assert  \mkleeneopen{}False\mkleeneclose{}\mcdot{}  THEN  Auto)
  THEN  (Assert  \mkleeneopen{}(0  =\msubz{}  x)  \mleq{}  (0  =\msubz{}  0)\mkleeneclose{}\mcdot{}  THENA  Auto)
  THEN  Reduce  (-1)
  THEN  MoveToConcl  (-1)
  THEN  AutoBoolCase  \mkleeneopen{}(0  =\msubz{}  x)\mkleeneclose{}\mcdot{}
  THEN  Auto
  THEN  InstLemma  `not-bfalse-sqle-btrue`  []
  THEN  Auto)

---

Home Index