X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcontribs%2FCoRN-Decl%2Falgebra%2FCVectorSpace.ma;h=7c3b812504fe2952b2830c0d8fe653711e1fa9f5;hb=0a9ed4329c069d2e06902934b6d1d58d3690959c;hp=6b2f8969a3da757cadc830cb22b689e7903dc2b5;hpb=94873bb61a663b4fca3dc6d07b7bb9f42122003e;p=helm.git

diff --git a/matita/contribs/CoRN-Decl/algebra/CVectorSpace.ma b/matita/contribs/CoRN-Decl/algebra/CVectorSpace.ma
index 6b2f8969a..7c3b81250 100644
--- a/matita/contribs/CoRN-Decl/algebra/CVectorSpace.ma
+++ b/matita/contribs/CoRN-Decl/algebra/CVectorSpace.ma
@@ -16,7 +16,7 @@
 
 set "baseuri" "cic:/matita/CoRN-Decl/algebra/CVectorSpace".
 
-include "CoRN_notation.ma".
+include "CoRN.ma".
 
 (* $Id: CVectorSpace.v,v 1.4 2004/04/23 10:00:54 lcf Exp $ *)
 
@@ -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