Space
module Field : Field.S
type scalar = Field.scalar
type ('n, 'm) matrix
type 'n vector = ('n, Nat.zero Nat.succ) matrix
module Vector : sig ... end
module Matrix : sig ... end