Step * 2 1 1 of Lemma vs-map-quotients


1. CRng
2. VectorSpace(K)
3. VectorSpace(K)
4. Point(A) ⟶ ℙ
5. Point(B) ⟶ ℙ
6. vs-subspace(K;A;z.P[z])
7. vs-subspace(K;B;z.Q[z])
8. Point(A) ⟶ Point(B)
9. ∀u,v:Point(A).  ((f v) v ∈ Point(B))
10. ∀a:|K|. ∀u:Point(A).  ((f u) u ∈ Point(B))
11. ∀a:Point(A). (P[a]  Q[f a])
12. {{f} ∈ {{Point({{A}//z.{{P}[{z}]}})} ⟶ {Point({{B}//z.{{Q}[{z}]}})}}}
13. x,y:Point(A)//x mod (z.P[z])
14. x,y:Point(A)//x mod (z.P[z])
⊢ (f v) v ∈ (x,y:Point(B)//x mod (z.Q[z]))
BY
((D -2 THENW EAuto 1)
   THEN (D -1 THENW EAuto 1)
   THEN RepUR ``vs-add`` 0
   THEN Fold `vs-add` 0
   THEN EqTypeCD
   THEN EAuto 1
   THEN All (RepUR ``eq-mod-subspace``)) }

1
1. CRng
2. VectorSpace(K)
3. VectorSpace(K)
4. Point(A) ⟶ ℙ
5. Point(B) ⟶ ℙ
6. vs-subspace(K;A;z.P[z])
7. vs-subspace(K;B;z.Q[z])
8. Point(A) ⟶ Point(B)
9. ∀u,v:Point(A).  ((f v) v ∈ Point(B))
10. ∀a:|K|. ∀u:Point(A).  ((f u) u ∈ Point(B))
11. ∀a:Point(A). (P[a]  Q[f a])
12. {{f} ∈ {{Point({{A}//z.{{P}[{z}]}})} ⟶ {Point({{B}//z.{{Q}[{z}]}})}}}
13. Base
14. u1 Base
15. u1 ∈ (x,y:Point(A)//P[x -(y)])
16. u ∈ Point(A)
17. u1 ∈ Point(A)
18. P[u -(u1)]
19. Base
20. v1 Base
21. v1 ∈ (x,y:Point(A)//P[x -(y)])
22. v ∈ Point(A)
23. v1 ∈ Point(A)
24. P[v -(v1)]
⊢ Q[f -(f u1 v1)]


Latex:


Latex:

1.  K  :  CRng
2.  A  :  VectorSpace(K)
3.  B  :  VectorSpace(K)
4.  P  :  Point(A)  {}\mrightarrow{}  \mBbbP{}
5.  Q  :  Point(B)  {}\mrightarrow{}  \mBbbP{}
6.  vs-subspace(K;A;z.P[z])
7.  vs-subspace(K;B;z.Q[z])
8.  f  :  Point(A)  {}\mrightarrow{}  Point(B)
9.  \mforall{}u,v:Point(A).    ((f  u  +  v)  =  f  u  +  f  v)
10.  \mforall{}a:|K|.  \mforall{}u:Point(A).    ((f  a  *  u)  =  a  *  f  u)
11.  \mforall{}a:Point(A).  (P[a]  {}\mRightarrow{}  Q[f  a])
12.  \{\{f\}  \mmember{}  \{\{Point(\{\{A\}//z.\{\{P\}[\{z\}]\}\})\}  {}\mrightarrow{}  \{Point(\{\{B\}//z.\{\{Q\}[\{z\}]\}\})\}\}\}
13.  u  :  x,y:Point(A)//x  =  y  mod  (z.P[z])
14.  v  :  x,y:Point(A)//x  =  y  mod  (z.P[z])
\mvdash{}  (f  u  +  v)  =  f  u  +  f  v


By


Latex:
((D  -2  THENW  EAuto  1)
  THEN  (D  -1  THENW  EAuto  1)
  THEN  RepUR  ``vs-add``  0
  THEN  Fold  `vs-add`  0
  THEN  EqTypeCD
  THEN  EAuto  1
  THEN  All  (RepUR  ``eq-mod-subspace``))




Home Index