Step
*
of Lemma
rv-circle-circle-lemma2'
No Annotations
∀r1,r2:{r:ℝ| r0 ≤ r} . ∀b:ℝ^2.
  ((r0 < ||b||)
  
⇒ ((r1^2 - r2^2) + ||b||^2^2 ≤ (r(4) * ||b||^2 * r1^2))
  
⇒ (∃u,v:ℝ^2
       (((||u|| = r1) ∧ (||u - b|| = r2))
       ∧ ((||v|| = r1) ∧ (||v - b|| = r2))
       ∧ (((r1^2 - r2^2) + ||b||^2^2 < (r(4) * ||b||^2 * r1^2)) 
⇒ (r2-left(u;b;λi.r0) ∧ r2-left(v;λi.r0;b))))))
BY
{ ((InstLemma `rv-circle-circle-lemma` [⌜2⌝]⋅ THENA Auto) THEN (RepeatFor 4 ((ParallelLast' THENA Auto)) THENA Auto)) }
1
1. r1 : {r:ℝ| r0 ≤ r} 
2. r2 : {r:ℝ| r0 ≤ r} 
3. b : ℝ^2
4. r0 < ||b||
5. ∀b':ℝ^2
     ((b⋅b' = r0)
     
⇒ (||b'|| = ||b||)
     
⇒ ((r1^2 - r2^2) + ||b||^2^2 ≤ (r(4) * ||b||^2 * r1^2))
     
⇒ let c = ((r1^2 - r2^2) + ||b||^2/r(2)) in
         let d = (||b||^2 * r1^2) - c^2 in
         ∀x:ℝ^2
           ((req-vec(2;x;(r1/||b||^2)*c*b + rsqrt(d)*b') ∨ req-vec(2;x;(r1/||b||^2)*c*b - rsqrt(d)*b'))
           
⇒ ((||x|| = r1) ∧ (||x - b|| = r2))))
⊢ ((r1^2 - r2^2) + ||b||^2^2 ≤ (r(4) * ||b||^2 * r1^2))
⇒ (∃u,v:ℝ^2
     (((||u|| = r1) ∧ (||u - b|| = r2))
     ∧ ((||v|| = r1) ∧ (||v - b|| = r2))
     ∧ (((r1^2 - r2^2) + ||b||^2^2 < (r(4) * ||b||^2 * r1^2)) 
⇒ (r2-left(u;b;λi.r0) ∧ r2-left(v;λi.r0;b)))))
Latex:
Latex:
No  Annotations
\mforall{}r1,r2:\{r:\mBbbR{}|  r0  \mleq{}  r\}  .  \mforall{}b:\mBbbR{}\^{}2.
    ((r0  <  ||b||)
    {}\mRightarrow{}  ((r1\^{}2  -  r2\^{}2)  +  ||b||\^{}2\^{}2  \mleq{}  (r(4)  *  ||b||\^{}2  *  r1\^{}2))
    {}\mRightarrow{}  (\mexists{}u,v:\mBbbR{}\^{}2
              (((||u||  =  r1)  \mwedge{}  (||u  -  b||  =  r2))
              \mwedge{}  ((||v||  =  r1)  \mwedge{}  (||v  -  b||  =  r2))
              \mwedge{}  (((r1\^{}2  -  r2\^{}2)  +  ||b||\^{}2\^{}2  <  (r(4)  *  ||b||\^{}2  *  r1\^{}2))
                  {}\mRightarrow{}  (r2-left(u;b;\mlambda{}i.r0)  \mwedge{}  r2-left(v;\mlambda{}i.r0;b))))))
By
Latex:
((InstLemma  `rv-circle-circle-lemma`  [\mkleeneopen{}2\mkleeneclose{}]\mcdot{}  THENA  Auto)
  THEN  (RepeatFor  4  ((ParallelLast'  THENA  Auto))  THENA  Auto)
  )
Home
Index