(* $Id: Matrices.v,v 1.5 2000/11/10 11:27:33 freek Exp $ *)

(* Obsolete but maintained *)

Require Export FinDimVecSp.
Require Export matrix.

(* matrices over a Ring *)

Transparent sym_eq.
Transparent f_equal.

Section Matrix_mult.
Variable F : CField.
Variable m,n,p : nat.
Variable A : (Fmn F m p).
Variable B : (Fmn F p n).

Definition MMult : (Fmn F m n) := (mmult Zero::F (csg_op F) (cr_mult F) A B).

End Matrix_mult.


