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

diff --git a/matita/contribs/CoRN-Decl/algebra/CVectorSpace.ma b/matita/contribs/CoRN-Decl/algebra/CVectorSpace.ma
index e10b4867a..7c3b81250 100644
--- a/matita/contribs/CoRN-Decl/algebra/CVectorSpace.ma
+++ b/matita/contribs/CoRN-Decl/algebra/CVectorSpace.ma
@@ -16,13 +16,13 @@
 
 set "baseuri" "cic:/matita/CoRN-Decl/algebra/CVectorSpace".
 
+include "CoRN.ma".
+
 (* $Id: CVectorSpace.v,v 1.4 2004/04/23 10:00:54 lcf Exp $ *)
 
 (*#* printing ['] %{'}% #'# *)
 
-(* INCLUDE
-CFields
-*)
+include "algebra/CFields.ma".
 
 (*#*
 * Vector Spaces
@@ -42,7 +42,9 @@ Unset Strict Implicit.
 
 (* end hide *)
 
-inline cic:/CoRN/algebra/CVectorSpace/VSpace.ind.
+inline "cic:/CoRN/algebra/CVectorSpace/VSpace.ind".
+
+coercion cic:/matita/CoRN-Decl/algebra/CVectorSpace/vs_vs.con 0 (* compounds *).
 
 (* begin hide *)
 
@@ -64,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]
@@ -71,49 +77,49 @@ 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.
+inline "cic:/CoRN/algebra/CVectorSpace/vs_op_zero.con".
 
-inline cic:/CoRN/algebra/CVectorSpace/zero_vs_op.con.
+inline "cic:/CoRN/algebra/CVectorSpace/zero_vs_op.con".
 
 (* UNEXPORTED
 Hint Resolve vs_op_zero zero_vs_op: algebra.
 *)
 
-inline cic:/CoRN/algebra/CVectorSpace/vs_op_inv_V.con.
+inline "cic:/CoRN/algebra/CVectorSpace/vs_op_inv_V.con".
 
-inline cic:/CoRN/algebra/CVectorSpace/vs_op_inv_S.con.
+inline "cic:/CoRN/algebra/CVectorSpace/vs_op_inv_S.con".
 
 (* UNEXPORTED
 Hint Resolve vs_op_inv_V vs_op_inv_S: algebra.
 *)
 
-inline cic:/CoRN/algebra/CVectorSpace/vs_inv_assoc.con.
+inline "cic:/CoRN/algebra/CVectorSpace/vs_inv_assoc.con".
 
 (* UNEXPORTED
 Hint Resolve vs_inv_assoc: algebra.
 *)
 
-inline cic:/CoRN/algebra/CVectorSpace/ap_zero_vs_op_l.con.
+inline "cic:/CoRN/algebra/CVectorSpace/ap_zero_vs_op_l.con".
 
-inline cic:/CoRN/algebra/CVectorSpace/ap_zero_vs_op_r.con.
+inline "cic:/CoRN/algebra/CVectorSpace/ap_zero_vs_op_r.con".
 
 (* note this is the same proof as mult_resp_ap_zero *)
 
-inline cic:/CoRN/algebra/CVectorSpace/vs_op_resp_ap_rht.con.
+inline "cic:/CoRN/algebra/CVectorSpace/vs_op_resp_ap_rht.con".
 
-inline cic:/CoRN/algebra/CVectorSpace/vs_op_resp_ap_zero.con.
+inline "cic:/CoRN/algebra/CVectorSpace/vs_op_resp_ap_zero.con".
 
-inline cic:/CoRN/algebra/CVectorSpace/vs_op_resp_ap_lft.con.
+inline "cic:/CoRN/algebra/CVectorSpace/vs_op_resp_ap_lft.con".
 
 (* UNEXPORTED
-End VS_basics.
+End VS_basics
 *)
 
 (* UNEXPORTED