module DenseMatrix =
    type DenseMatrix<'t> =
        {
            NumRows : int;
            NumCols : int;
            Data : 't array
        }

        static member inline (+) (x, y) =
            DenseMatrix<_>.map2 (+) x y
            // Failed to inline the value 'map2' marked 'inline',
            //perhaps because a recursive value was marked 'inline'


        static member inline map2 f x y =
            {
                NumRows = x.NumRows;
                NumCols = x.NumCols;
                Data = Array.map2 f x.Data y.Data
            }