---

Step * 1 1 of Lemma omega_start_wf


1. n : ℕ
2. eqs : {L:ℤ List| ||L|| = (n + 1) ∈ ℤ}  List
3. ineqs : {L:ℤ List| ||L|| = (n + 1) ∈ ℤ}  List
4. x : {L:ℤ List| ||L|| = (n + 1) ∈ ℤ}  List
5. gcd-reduce-eq-constraints([];eqs) = (inl x) ∈ ({L:ℤ List| ||L|| = (n + 1) ∈ ℤ}  List?)
6. yyy : {L:ℤ List| ||L|| = (n + 1) ∈ ℤ}  List?
7. gcd-reduce-ineq-constraints([];ineqs) = yyy ∈ ({L:ℤ List| ||L|| = (n + 1) ∈ ℤ}  List?)
⊢ case yyy of inl(ineqs') => inl <x, ineqs'> | inr(x) => inr x  ∈ IntConstraints
BY
{ (DVar `yyy' THEN Reduce 0) }

1
1. n : ℕ
2. eqs : {L:ℤ List| ||L|| = (n + 1) ∈ ℤ}  List
3. ineqs : {L:ℤ List| ||L|| = (n + 1) ∈ ℤ}  List
4. x : {L:ℤ List| ||L|| = (n + 1) ∈ ℤ}  List
5. gcd-reduce-eq-constraints([];eqs) = (inl x) ∈ ({L:ℤ List| ||L|| = (n + 1) ∈ ℤ}  List?)
6. x1 : {L:ℤ List| ||L|| = (n + 1) ∈ ℤ}  List
7. gcd-reduce-ineq-constraints([];ineqs) = (inl x1) ∈ ({L:ℤ List| ||L|| = (n + 1) ∈ ℤ}  List?)
⊢ inl <x, x1> ∈ IntConstraints

2
1. n : ℕ
2. eqs : {L:ℤ List| ||L|| = (n + 1) ∈ ℤ}  List
3. ineqs : {L:ℤ List| ||L|| = (n + 1) ∈ ℤ}  List
4. x : {L:ℤ List| ||L|| = (n + 1) ∈ ℤ}  List
5. gcd-reduce-eq-constraints([];eqs) = (inl x) ∈ ({L:ℤ List| ||L|| = (n + 1) ∈ ℤ}  List?)
6. y : Unit
7. gcd-reduce-ineq-constraints([];ineqs) = (inr y ) ∈ ({L:ℤ List| ||L|| = (n + 1) ∈ ℤ}  List?)
⊢ inr y  ∈ IntConstraints

---

Latex:

---

Latex:

1.  n  :  \mBbbN{}
2.  eqs  :  \{L:\mBbbZ{}  List|  ||L||  =  (n  +  1)\}    List
3.  ineqs  :  \{L:\mBbbZ{}  List|  ||L||  =  (n  +  1)\}    List
4.  x  :  \{L:\mBbbZ{}  List|  ||L||  =  (n  +  1)\}    List
5.  gcd-reduce-eq-constraints([];eqs)  =  (inl  x)
6.  yyy  :  \{L:\mBbbZ{}  List|  ||L||  =  (n  +  1)\}    List?
7.  gcd-reduce-ineq-constraints([];ineqs)  =  yyy
\mvdash{}  case  yyy  of  inl(ineqs')  =>  inl  <x,  ineqs'>  |  inr(x)  =>  inr  x    \mmember{}  IntConstraints


By

---

Latex:
(DVar  `yyy'  THEN  Reduce  0)

---

Home Index