Step
*
of Lemma
rcp-mul2
∀[a,b:ℝ^3]. ∀[c:ℝ].  req-vec(3;(a x c*b);c*(a x b))
BY
{ (Auto THEN D 0 THEN RepUR ``rcp real-vec-mul real-vec-add`` 0 THEN Try (IntSegCases (-1)) THEN Reduce 0 THEN Auto) }
Latex:
Latex:
\mforall{}[a,b:\mBbbR{}\^{}3].  \mforall{}[c:\mBbbR{}].    req-vec(3;(a  x  c*b);c*(a  x  b))
By
Latex:
(Auto
  THEN  D  0
  THEN  RepUR  ``rcp  real-vec-mul  real-vec-add``  0
  THEN  Try  (IntSegCases  (-1))
  THEN  Reduce  0
  THEN  Auto)
Home
Index