---

Step * 1 1 1 1 1 1 1 of Lemma unsat-omega_step


1. n : ℕ
2. ¬(n = 0 ∈ ℤ)
3. newineqs : {L:ℤ List| ||L|| = ((n - 1) + 1) ∈ ℤ}  List
4. xs : ℤ List
5. (∀as∈[].xs ⋅ as =0)
6. (∀bs∈newineqs.xs ⋅ bs ≥0)
⊢ unsat(case gcd-reduce-eq-constraints([];[])
 of inl(eqs') =>
 case gcd-reduce-ineq-constraints([];newineqs) of inl(ineqs') => inl <eqs', ineqs'> | inr(x) => inr x 
 | inr(x) =>
 inr x )
⇒ False
BY
{ xxx(RepUR ``gcd-reduce-eq-constraints`` 0 THEN DVar `newineqs')xxx }

1
1. n : ℕ
2. ¬(n = 0 ∈ ℤ)
3. xs : ℤ List
4. (∀as∈[].xs ⋅ as =0)
5. (∀bs∈[].xs ⋅ bs ≥0)
⊢ unsat(case gcd-reduce-ineq-constraints([];[]) of inl(ineqs') => inl <[], ineqs'> | inr(x) => inr x ) ⇒ False

2
1. n : ℕ
2. ¬(n = 0 ∈ ℤ)
3. u : {L:ℤ List| ||L|| = ((n - 1) + 1) ∈ ℤ} 
4. v : {L:ℤ List| ||L|| = ((n - 1) + 1) ∈ ℤ}  List
5. xs : ℤ List
6. (∀as∈[].xs ⋅ as =0)
7. (∀bs∈[u / v].xs ⋅ bs ≥0)
⊢ unsat(case gcd-reduce-ineq-constraints([];[u / v]) of inl(ineqs') => inl <[], ineqs'> | inr(x) => inr x ) ⇒ False

---

Latex:

---

Latex:

1.  n  :  \mBbbN{}
2.  \mneg{}(n  =  0)
3.  newineqs  :  \{L:\mBbbZ{}  List|  ||L||  =  ((n  -  1)  +  1)\}    List
4.  xs  :  \mBbbZ{}  List
5.  (\mforall{}as\mmember{}[].xs  \mcdot{}  as  =0)
6.  (\mforall{}bs\mmember{}newineqs.xs  \mcdot{}  bs  \mgeq{}0)
\mvdash{}  unsat(case  gcd-reduce-eq-constraints([];[])
  of  inl(eqs')  =>
  case  gcd-reduce-ineq-constraints([];newineqs)  of  inl(ineqs')  =>  inl  <eqs',  ineqs'>  |  inr(x)  =>  inr  \000Cx 
  |  inr(x)  =>
  inr  x  )
{}\mRightarrow{}  False


By

---

Latex:
xxx(RepUR  ``gcd-reduce-eq-constraints``  0  THEN  DVar  `newineqs')xxx

---

Home Index