X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FCoRN-Decl%2Falgebra%2FCVectorSpace.ma;h=7c3b812504fe2952b2830c0d8fe653711e1fa9f5;hb=842e243be954d67360788d08701289f3237c2699;hp=afaa471d20ba07010bfb1a8d2efa2887a55ddd55;hpb=80110e17ef1d38d71473e9471ce15beddde663bb;p=helm.git

diff --git a/helm/software/matita/contribs/CoRN-Decl/algebra/CVectorSpace.ma b/helm/software/matita/contribs/CoRN-Decl/algebra/CVectorSpace.ma
index afaa471d2..7c3b81250 100644
--- a/helm/software/matita/contribs/CoRN-Decl/algebra/CVectorSpace.ma
+++ b/helm/software/matita/contribs/CoRN-Decl/algebra/CVectorSpace.ma
@@ -44,7 +44,7 @@ Unset Strict Implicit.
 
 inline "cic:/CoRN/algebra/CVectorSpace/VSpace.ind".
 
-coercion "cic:/matita/CoRN-Decl/algebra/CVectorSpace/vs_vs.con" 0 (* compounds *).
+coercion cic:/matita/CoRN-Decl/algebra/CVectorSpace/vs_vs.con 0 (* compounds *).
 
 (* begin hide *)
 
@@ -66,6 +66,10 @@ Hint Resolve vs_assoc vs_unit vs_distl vs_distr: algebra.
 Implicit Arguments vs_op [F v].
 *)
 
+(* NOTATION
+Infix "[']" := vs_op (at level 30, no associativity).
+*)
+
 (*#*
 %\begin{convention}%
 Let [F] be a fiels and let [V] be a vector space over [F]
@@ -73,12 +77,12 @@ Let [F] be a fiels and let [V] be a vector space over [F]
 *)
 
 (* UNEXPORTED
-Section VS_basics.
+Section VS_basics
 *)
 
-inline "cic:/CoRN/algebra/CVectorSpace/F.var".
+alias id "F" = "cic:/CoRN/algebra/CVectorSpace/VS_basics/F.var".
 
-inline "cic:/CoRN/algebra/CVectorSpace/V.var".
+alias id "V" = "cic:/CoRN/algebra/CVectorSpace/VS_basics/V.var".
 
 inline "cic:/CoRN/algebra/CVectorSpace/vs_op_zero.con".
 
@@ -115,7 +119,7 @@ inline "cic:/CoRN/algebra/CVectorSpace/vs_op_resp_ap_zero.con".
 inline "cic:/CoRN/algebra/CVectorSpace/vs_op_resp_ap_lft.con".
 
 (* UNEXPORTED
-End VS_basics.
+End VS_basics
 *)
 
 (* UNEXPORTED