---

Step * 1 2 1 1 1 1 of Lemma in-hull-leftmost


1. g : OrientedPlane
2. xs : {xs:Point List| geo-general-position(g;xs)} 
3. 2 < ||xs||
4. i : ℕ||xs||
5. j : ℕ||xs||
6. ¬(i = j ∈ ℤ)
7. ij ∈ Hull(xs)
8. hull-cmp(g;xs;i;j) ∈ comparison({k:ℕ||xs||| (¬(k = i ∈ ℤ)) ∧ (¬(k = j ∈ ℤ))} )
9. filter(λk.((¬b(k =z i)) ∧b (¬b(k =z j)));upto(||xs||)) ∈ {k:ℕ||xs||| (¬(k = i ∈ ℤ)) ∧ (¬(k = j ∈ ℤ))}  List+
10. v : {k:ℕ||xs||| (¬(k = i ∈ ℤ)) ∧ (¬(k = j ∈ ℤ))} 
11. [%13] : (v ∈ filter(λk.((¬b(k =z i)) ∧b (¬b(k =z j)));upto(||xs||)))
∧ (∀x∈filter(λk.((¬b(k =z i)) ∧b (¬b(k =z j)));upto(||xs||)).0 ≤ (hull-cmp(g;xs;i;j) x v))
12. y : {k:ℕ||xs||| (¬(k = i ∈ ℤ)) ∧ (¬(k = j ∈ ℤ))} 
13. ¬(v = y ∈ ℤ)
⊢ ↑v L iy
BY
{ (Assert ¬(v = i ∈ ℤ) BY
         (DSetVars THEN Auto)) }

1
1. g : OrientedPlane
2. xs : {xs:Point List| geo-general-position(g;xs)} 
3. 2 < ||xs||
4. i : ℕ||xs||
5. j : ℕ||xs||
6. ¬(i = j ∈ ℤ)
7. ij ∈ Hull(xs)
8. hull-cmp(g;xs;i;j) ∈ comparison({k:ℕ||xs||| (¬(k = i ∈ ℤ)) ∧ (¬(k = j ∈ ℤ))} )
9. filter(λk.((¬b(k =z i)) ∧b (¬b(k =z j)));upto(||xs||)) ∈ {k:ℕ||xs||| (¬(k = i ∈ ℤ)) ∧ (¬(k = j ∈ ℤ))}  List+
10. v : {k:ℕ||xs||| (¬(k = i ∈ ℤ)) ∧ (¬(k = j ∈ ℤ))} 
11. [%13] : (v ∈ filter(λk.((¬b(k =z i)) ∧b (¬b(k =z j)));upto(||xs||)))
∧ (∀x∈filter(λk.((¬b(k =z i)) ∧b (¬b(k =z j)));upto(||xs||)).0 ≤ (hull-cmp(g;xs;i;j) x v))
12. y : {k:ℕ||xs||| (¬(k = i ∈ ℤ)) ∧ (¬(k = j ∈ ℤ))} 
13. ¬(v = y ∈ ℤ)
14. ¬(v = i ∈ ℤ)
⊢ ↑v L iy

---

Latex:

---

Latex:

1.  g  :  OrientedPlane
2.  xs  :  \{xs:Point  List|  geo-general-position(g;xs)\} 
3.  2  <  ||xs||
4.  i  :  \mBbbN{}||xs||
5.  j  :  \mBbbN{}||xs||
6.  \mneg{}(i  =  j)
7.  ij  \mmember{}  Hull(xs)
8.  hull-cmp(g;xs;i;j)  \mmember{}  comparison(\{k:\mBbbN{}||xs|||  (\mneg{}(k  =  i))  \mwedge{}  (\mneg{}(k  =  j))\}  )
9.  filter(\mlambda{}k.((\mneg{}\msubb{}(k  =\msubz{}  i))  \mwedge{}\msubb{}  (\mneg{}\msubb{}(k  =\msubz{}  j)));upto(||xs||))  \mmember{}  \{k:\mBbbN{}||xs|||  (\mneg{}(k  =  i))  \mwedge{}  (\mneg{}(k  =  j))\}    Li\000Cst\msupplus{}
10.  v  :  \{k:\mBbbN{}||xs|||  (\mneg{}(k  =  i))  \mwedge{}  (\mneg{}(k  =  j))\} 
11.  [\%13]  :  (v  \mmember{}  filter(\mlambda{}k.((\mneg{}\msubb{}(k  =\msubz{}  i))  \mwedge{}\msubb{}  (\mneg{}\msubb{}(k  =\msubz{}  j)));upto(||xs||)))
\mwedge{}  (\mforall{}x\mmember{}filter(\mlambda{}k.((\mneg{}\msubb{}(k  =\msubz{}  i))  \mwedge{}\msubb{}  (\mneg{}\msubb{}(k  =\msubz{}  j)));upto(||xs||)).0  \mleq{}  (hull-cmp(g;xs;i;j)  x  v))
12.  y  :  \{k:\mBbbN{}||xs|||  (\mneg{}(k  =  i))  \mwedge{}  (\mneg{}(k  =  j))\} 
13.  \mneg{}(v  =  y)
\mvdash{}  \muparrow{}v  L  iy


By

---

Latex:
(Assert  \mneg{}(v  =  i)  BY
              (DSetVars  THEN  Auto))

---

Home Index