---

Step * 3 1 1 1 of Lemma hull-cmp_wf


1. g : OrientedPlane
2. xs : Point List
3. geo-general-position(g;xs)
4. i : ℕ||xs||
5. j : ℕ||xs||
6. ¬(i = j ∈ ℤ)
7. ij ∈ Hull(xs)
8. hull-cmp(g;xs;i;j) ∈ {k:ℕ||xs||| (¬(k = i ∈ ℤ)) ∧ (¬(k = j ∈ ℤ))} 
   ⟶ {k:ℕ||xs||| (¬(k = i ∈ ℤ)) ∧ (¬(k = j ∈ ℤ))} 
   ⟶ ℤ
9. ∀x,y:{k:ℕ||xs||| (¬(k = i ∈ ℤ)) ∧ (¬(k = j ∈ ℤ))} .  ((hull-cmp(g;xs;i;j) x y) = (-(hull-cmp(g;xs;i;j) y x)) ∈ ℤ)
10. ∀x,y:{k:ℕ||xs||| (¬(k = i ∈ ℤ)) ∧ (¬(k = j ∈ ℤ))} .
      (((hull-cmp(g;xs;i;j) x y) = 0 ∈ ℤ)
      ⇒ (∀z:{k:ℕ||xs||| (¬(k = i ∈ ℤ)) ∧ (¬(k = j ∈ ℤ))} . ((hull-cmp(g;xs;i;j) x z) = (hull-cmp(g;xs;i;j) y z) ∈ ℤ)))
11. x : ℕ||xs||
12. ¬(x = i ∈ ℤ)
13. ¬(x = j ∈ ℤ)
14. y : ℕ||xs||
15. ¬(y = i ∈ ℤ)
16. ¬(y = j ∈ ℤ)
17. z : ℕ||xs||
18. ((¬(z = y ∈ ℤ)) ∧ (↑z L iy)) ⇒ ((¬(y = x ∈ ℤ)) ∧ (↑y L ix)) ⇒ ((¬(z = x ∈ ℤ)) ∧ (↑z L ix))
19. ¬(z = i ∈ ℤ)
20. ¬(z = j ∈ ℤ)
21. 0 ≤ (hull-cmp(g;xs;i;j) x y)
22. 0 ≤ (hull-cmp(g;xs;i;j) y z)
23. 0 ≤ 1
24. ¬(x = y ∈ ℤ)
25. ↑y L ix
⊢ 0 ≤ (hull-cmp(g;xs;i;j) x z)
BY
{ (RepUR ``hull-cmp`` -4
   THEN ((SplitOnHypITE -4  THENA Auto) THENL [(RevHypSubst' (-1) 0 THEN Auto); (SplitOnHypITE -5  THEN Auto)])
   ) }

1
.....truecase..... 
1. g : OrientedPlane
2. xs : Point List
3. geo-general-position(g;xs)
4. i : ℕ||xs||
5. j : ℕ||xs||
6. ¬(i = j ∈ ℤ)
7. ij ∈ Hull(xs)
8. hull-cmp(g;xs;i;j) ∈ {k:ℕ||xs||| (¬(k = i ∈ ℤ)) ∧ (¬(k = j ∈ ℤ))} 
   ⟶ {k:ℕ||xs||| (¬(k = i ∈ ℤ)) ∧ (¬(k = j ∈ ℤ))} 
   ⟶ ℤ
9. ∀x,y:{k:ℕ||xs||| (¬(k = i ∈ ℤ)) ∧ (¬(k = j ∈ ℤ))} .  ((hull-cmp(g;xs;i;j) x y) = (-(hull-cmp(g;xs;i;j) y x)) ∈ ℤ)
10. ∀x,y:{k:ℕ||xs||| (¬(k = i ∈ ℤ)) ∧ (¬(k = j ∈ ℤ))} .
      (((hull-cmp(g;xs;i;j) x y) = 0 ∈ ℤ)
      ⇒ (∀z:{k:ℕ||xs||| (¬(k = i ∈ ℤ)) ∧ (¬(k = j ∈ ℤ))} . ((hull-cmp(g;xs;i;j) x z) = (hull-cmp(g;xs;i;j) y z) ∈ ℤ)))
11. x : ℕ||xs||
12. ¬(x = i ∈ ℤ)
13. ¬(x = j ∈ ℤ)
14. y : ℕ||xs||
15. ¬(y = i ∈ ℤ)
16. ¬(y = j ∈ ℤ)
17. z : ℕ||xs||
18. ((¬(z = y ∈ ℤ)) ∧ (↑z L iy)) ⇒ ((¬(y = x ∈ ℤ)) ∧ (↑y L ix)) ⇒ ((¬(z = x ∈ ℤ)) ∧ (↑z L ix))
19. ¬(z = i ∈ ℤ)
20. ¬(z = j ∈ ℤ)
21. 0 ≤ (hull-cmp(g;xs;i;j) x y)
22. 0 ≤ 1
23. 0 ≤ 1
24. ¬(x = y ∈ ℤ)
25. ↑y L ix
26. ¬(y = z ∈ ℤ)
27. ↑z L iy
⊢ 0 ≤ (hull-cmp(g;xs;i;j) x z)

---

Latex:

---

Latex:

1.  g  :  OrientedPlane
2.  xs  :  Point  List
3.  geo-general-position(g;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{}  \{k:\mBbbN{}||xs|||  (\mneg{}(k  =  i))  \mwedge{}  (\mneg{}(k  =  j))\} 
      {}\mrightarrow{}  \{k:\mBbbN{}||xs|||  (\mneg{}(k  =  i))  \mwedge{}  (\mneg{}(k  =  j))\} 
      {}\mrightarrow{}  \mBbbZ{}
9.  \mforall{}x,y:\{k:\mBbbN{}||xs|||  (\mneg{}(k  =  i))  \mwedge{}  (\mneg{}(k  =  j))\}  .
          ((hull-cmp(g;xs;i;j)  x  y)  =  (-(hull-cmp(g;xs;i;j)  y  x)))
10.  \mforall{}x,y:\{k:\mBbbN{}||xs|||  (\mneg{}(k  =  i))  \mwedge{}  (\mneg{}(k  =  j))\}  .
            (((hull-cmp(g;xs;i;j)  x  y)  =  0)
            {}\mRightarrow{}  (\mforall{}z:\{k:\mBbbN{}||xs|||  (\mneg{}(k  =  i))  \mwedge{}  (\mneg{}(k  =  j))\} 
                        ((hull-cmp(g;xs;i;j)  x  z)  =  (hull-cmp(g;xs;i;j)  y  z))))
11.  x  :  \mBbbN{}||xs||
12.  \mneg{}(x  =  i)
13.  \mneg{}(x  =  j)
14.  y  :  \mBbbN{}||xs||
15.  \mneg{}(y  =  i)
16.  \mneg{}(y  =  j)
17.  z  :  \mBbbN{}||xs||
18.  ((\mneg{}(z  =  y))  \mwedge{}  (\muparrow{}z  L  iy))  {}\mRightarrow{}  ((\mneg{}(y  =  x))  \mwedge{}  (\muparrow{}y  L  ix))  {}\mRightarrow{}  ((\mneg{}(z  =  x))  \mwedge{}  (\muparrow{}z  L  ix))
19.  \mneg{}(z  =  i)
20.  \mneg{}(z  =  j)
21.  0  \mleq{}  (hull-cmp(g;xs;i;j)  x  y)
22.  0  \mleq{}  (hull-cmp(g;xs;i;j)  y  z)
23.  0  \mleq{}  1
24.  \mneg{}(x  =  y)
25.  \muparrow{}y  L  ix
\mvdash{}  0  \mleq{}  (hull-cmp(g;xs;i;j)  x  z)


By

---

Latex:
(RepUR  ``hull-cmp``  -4
  THEN  ((SplitOnHypITE  -4    THENA  Auto)
              THENL  [(RevHypSubst'  (-1)  0  THEN  Auto);  (SplitOnHypITE  -5    THEN  Auto)]
            )
  )

---

Home Index