---

Step * 1 1 1 of Lemma separable-translation-group_iff

.....aux..... 
1. rv : InnerProductSpace
2. e : {e:Point(rv)| e^2 = r1} 
3. T : ℝ ⟶ Point(rv) ⟶ Point(rv)
4. translation-group-fun(rv;e;T)
5. translation-group-fun(rv;e;T)
6. separable-kernel(rv;e;λh,t. ρ(h;t))
7. phi : ℝ ⟶ ℝ
8. psi : {h:Point(rv)| h ⋅ e = r0}  ⟶ {r:ℝ| r0 < r} 
9. ∀h:{h:Point(rv)| h ⋅ e = r0} . ∀t:ℝ.  (ρ(h;t) = ((phi t) * (psi h)))
10. (phi r0) = r0
11. (psi 0) = r1
12. ∀t,s:ℝ.  ((t < s) ⇒ ((phi t) < (phi s)))
13. ∀t:ℝ. ∃s:ℝ. ((phi s) = t)
14. ∀h1,h2:{h:Point(rv)| h ⋅ e = r0} .  (psi h1 ≠ psi h2 ⇒ h1 # h2)
15. ∀t,s:ℝ.  (phi t ≠ phi s ⇒ t ≠ s)
16. h : {h:Point(rv)| h ⋅ e = r0} 
17. t : ℝ
18. h + ρ(h;t)*e - h ≡ ρ(h;t)*e
19. v : ℝ
20. (phi t) = v ∈ ℝ
21. v1 : {r:ℝ| r0 < r} 
22. (psi h) = v1 ∈ {r:ℝ| r0 < r} 
⊢ ((|v| * |v1|) * ||e||) = (|v| * v1)
BY
{ ((Assert ||e|| = r1 BY
          (RWW "rv-norm-eq-iff rnexp-one" 0 THEN Auto))
   THEN (RWO "-1" 0 THENA Auto)
   THEN nRNorm 0
   THEN BLemma `rmul_functionality`
   THEN Auto
   THEN DVar `v1'
   THEN Unhide
   THEN Auto
   THEN BLemma `rabs-of-nonneg`
   THEN Auto) }

---

Latex:

---

Latex:
.....aux..... 
1.  rv  :  InnerProductSpace
2.  e  :  \{e:Point(rv)|  e\^{}2  =  r1\} 
3.  T  :  \mBbbR{}  {}\mrightarrow{}  Point(rv)  {}\mrightarrow{}  Point(rv)
4.  translation-group-fun(rv;e;T)
5.  translation-group-fun(rv;e;T)
6.  separable-kernel(rv;e;\mlambda{}h,t.  \mrho{}(h;t))
7.  phi  :  \mBbbR{}  {}\mrightarrow{}  \mBbbR{}
8.  psi  :  \{h:Point(rv)|  h  \mcdot{}  e  =  r0\}    {}\mrightarrow{}  \{r:\mBbbR{}|  r0  <  r\} 
9.  \mforall{}h:\{h:Point(rv)|  h  \mcdot{}  e  =  r0\}  .  \mforall{}t:\mBbbR{}.    (\mrho{}(h;t)  =  ((phi  t)  *  (psi  h)))
10.  (phi  r0)  =  r0
11.  (psi  0)  =  r1
12.  \mforall{}t,s:\mBbbR{}.    ((t  <  s)  {}\mRightarrow{}  ((phi  t)  <  (phi  s)))
13.  \mforall{}t:\mBbbR{}.  \mexists{}s:\mBbbR{}.  ((phi  s)  =  t)
14.  \mforall{}h1,h2:\{h:Point(rv)|  h  \mcdot{}  e  =  r0\}  .    (psi  h1  \mneq{}  psi  h2  {}\mRightarrow{}  h1  \#  h2)
15.  \mforall{}t,s:\mBbbR{}.    (phi  t  \mneq{}  phi  s  {}\mRightarrow{}  t  \mneq{}  s)
16.  h  :  \{h:Point(rv)|  h  \mcdot{}  e  =  r0\} 
17.  t  :  \mBbbR{}
18.  h  +  \mrho{}(h;t)*e  -  h  \mequiv{}  \mrho{}(h;t)*e
19.  v  :  \mBbbR{}
20.  (phi  t)  =  v
21.  v1  :  \{r:\mBbbR{}|  r0  <  r\} 
22.  (psi  h)  =  v1
\mvdash{}  ((|v|  *  |v1|)  *  ||e||)  =  (|v|  *  v1)


By

---

Latex:
((Assert  ||e||  =  r1  BY
                (RWW  "rv-norm-eq-iff  rnexp-one"  0  THEN  Auto))
  THEN  (RWO  "-1"  0  THENA  Auto)
  THEN  nRNorm  0
  THEN  BLemma  `rmul\_functionality`
  THEN  Auto
  THEN  DVar  `v1'
  THEN  Unhide
  THEN  Auto
  THEN  BLemma  `rabs-of-nonneg`
  THEN  Auto)

---

Home Index