---

Step * 1 1 4 1 1 2 1 1 1 of Lemma satisfiable-exact-reduce-constraints


1. eqs : ℤ List List
2. i : ℕ||eqs||
3. j : ℕ+||eqs[i]||
4. ineqs : ℤ List List
5. xs : ℤ List
6. satisfies-integer-problem(eqs;ineqs;xs)
7. (∀e∈eqs.||e|| = ||xs|| ∈ ℤ)
8. (∀e∈ineqs.||e|| = ||xs|| ∈ ℤ)
9. ||eqs[i]|| ~ ||xs||
10. eqs ∈ {l:ℤ List| ||l|| = ||eqs[i]|| ∈ ℤ}  List
11. ineqs ∈ {l:ℤ List| ||l|| = ||eqs[i]|| ∈ ℤ}  List
12. 1 ≤ j
13. j < ||xs||
14. 0 < ||xs\j||
15. hd(xs\j) = hd(xs) ∈ ℤ
16. (∀as∈eqs.xs ⋅ as =0)
17. ∀i:ℕ||ineqs||. xs ⋅ ineqs[i] ≥0
18. i@0 : ℕ||ineqs||
19. ||xs|| = ||ineqs[i@0]|| ∈ ℤ
20. 0 < ||xs||
21. hd(xs) = 1 ∈ ℤ
22. ineqs[i@0] ⋅ xs ≥ 0 
23. 0 < ||xs\j||
24. hd(xs\j) = 1 ∈ ℤ
25. ||xs|| = ||ineqs[i@0]|| ∈ ℤ
26. 0 < ||xs||
27. hd(xs) = 1 ∈ ℤ
28. ineqs[i@0] ⋅ xs ≥ 0 
29. xs[j] = if (eqs[i][j] =z 1) then -1 * eqs[i]\j ⋅ xs\j else eqs[i]\j ⋅ xs\j fi  ∈ ℤ
30. v : ℤ
31. eqs[i][j] = v ∈ ℤ
⊢ (|v| = 1 ∈ ℤ) ⇒ (if (v =z 1) then -1 * eqs[i]\j ⋅ xs\j else eqs[i]\j ⋅ xs\j fi  = -v * eqs[i]\j ⋅ xs\j ∈ ℤ)
BY
{ TACTIC:((D 0 THENA Auto)
          THEN (RWO "absval_cases" (-1) THENA Auto)
          THEN (D -1 THEN HypSubst' (-1) 0)
          THEN Reduce 0
          THEN Auto) }

1
1. eqs : ℤ List List
2. i : ℕ||eqs||
3. j : ℕ+||eqs[i]||
4. ineqs : ℤ List List
5. xs : ℤ List
6. satisfies-integer-problem(eqs;ineqs;xs)
7. (∀e∈eqs.||e|| = ||xs|| ∈ ℤ)
8. (∀e∈ineqs.||e|| = ||xs|| ∈ ℤ)
9. ||eqs[i]|| ~ ||xs||
10. eqs ∈ {l:ℤ List| ||l|| = ||eqs[i]|| ∈ ℤ}  List
11. ineqs ∈ {l:ℤ List| ||l|| = ||eqs[i]|| ∈ ℤ}  List
12. 1 ≤ j
13. j < ||xs||
14. 0 < ||xs\j||
15. hd(xs\j) = hd(xs) ∈ ℤ
16. (∀as∈eqs.xs ⋅ as =0)
17. ∀i:ℕ||ineqs||. xs ⋅ ineqs[i] ≥0
18. i@0 : ℕ||ineqs||
19. ||xs|| = ||ineqs[i@0]|| ∈ ℤ
20. 0 < ||xs||
21. hd(xs) = 1 ∈ ℤ
22. ineqs[i@0] ⋅ xs ≥ 0 
23. 0 < ||xs\j||
24. hd(xs\j) = 1 ∈ ℤ
25. ||xs|| = ||ineqs[i@0]|| ∈ ℤ
26. 0 < ||xs||
27. hd(xs) = 1 ∈ ℤ
28. ineqs[i@0] ⋅ xs ≥ 0 
29. xs[j] = if (eqs[i][j] =z 1) then -1 * eqs[i]\j ⋅ xs\j else eqs[i]\j ⋅ xs\j fi  ∈ ℤ
30. v : ℤ
31. eqs[i][j] = v ∈ ℤ
32. v = (-1) ∈ ℤ
⊢ eqs[i]\j ⋅ xs\j = 1 * eqs[i]\j ⋅ xs\j ∈ ℤ

---

Latex:

---

Latex:

1.  eqs  :  \mBbbZ{}  List  List
2.  i  :  \mBbbN{}||eqs||
3.  j  :  \mBbbN{}\msupplus{}||eqs[i]||
4.  ineqs  :  \mBbbZ{}  List  List
5.  xs  :  \mBbbZ{}  List
6.  satisfies-integer-problem(eqs;ineqs;xs)
7.  (\mforall{}e\mmember{}eqs.||e||  =  ||xs||)
8.  (\mforall{}e\mmember{}ineqs.||e||  =  ||xs||)
9.  ||eqs[i]||  \msim{}  ||xs||
10.  eqs  \mmember{}  \{l:\mBbbZ{}  List|  ||l||  =  ||eqs[i]||\}    List
11.  ineqs  \mmember{}  \{l:\mBbbZ{}  List|  ||l||  =  ||eqs[i]||\}    List
12.  1  \mleq{}  j
13.  j  <  ||xs||
14.  0  <  ||xs\mbackslash{}j||
15.  hd(xs\mbackslash{}j)  =  hd(xs)
16.  (\mforall{}as\mmember{}eqs.xs  \mcdot{}  as  =0)
17.  \mforall{}i:\mBbbN{}||ineqs||.  xs  \mcdot{}  ineqs[i]  \mgeq{}0
18.  i@0  :  \mBbbN{}||ineqs||
19.  ||xs||  =  ||ineqs[i@0]||
20.  0  <  ||xs||
21.  hd(xs)  =  1
22.  ineqs[i@0]  \mcdot{}  xs  \mgeq{}  0 
23.  0  <  ||xs\mbackslash{}j||
24.  hd(xs\mbackslash{}j)  =  1
25.  ||xs||  =  ||ineqs[i@0]||
26.  0  <  ||xs||
27.  hd(xs)  =  1
28.  ineqs[i@0]  \mcdot{}  xs  \mgeq{}  0 
29.  xs[j]  =  if  (eqs[i][j]  =\msubz{}  1)  then  -1  *  eqs[i]\mbackslash{}j  \mcdot{}  xs\mbackslash{}j  else  eqs[i]\mbackslash{}j  \mcdot{}  xs\mbackslash{}j  fi 
30.  v  :  \mBbbZ{}
31.  eqs[i][j]  =  v
\mvdash{}  (|v|  =  1)
{}\mRightarrow{}  (if  (v  =\msubz{}  1)  then  -1  *  eqs[i]\mbackslash{}j  \mcdot{}  xs\mbackslash{}j  else  eqs[i]\mbackslash{}j  \mcdot{}  xs\mbackslash{}j  fi    =  -v  *  eqs[i]\mbackslash{}j  \mcdot{}  xs\mbackslash{}j)


By

---

Latex:
TACTIC:((D  0  THENA  Auto)
                THEN  (RWO  "absval\_cases"  (-1)  THENA  Auto)
                THEN  (D  -1  THEN  HypSubst'  (-1)  0)
                THEN  Reduce  0
                THEN  Auto)

---

Home Index