Add name suggestions to types

src/Data/NumIdr/Array/Array.idr

@@ -43,6 +43,8 @@ data Array : (s : Vect rk Nat) -> (a : Type) -> Type where
   MkArray : (ord : Order) -> (sts : Vect rk Nat) ->
             (s : Vect rk Nat) -> PrimArray a -> Array s a
 
+%name Array arr
+
 
 --------------------------------------------------------------------------------
 -- Properties of arrays

src/Data/NumIdr/Matrix.idr

@@ -15,6 +15,8 @@ public export
 Matrix : Nat -> Nat -> Type -> Type
 Matrix m n = Array [m,n]
 
+%name Matrix mat
+
 ||| A synonym for a square matrix with dimensions of length `n`.
 public export
 Matrix' : Nat -> Type -> Type
@@ -477,7 +479,7 @@ decompLUP {m,n} mat with (viewShape mat)
 
 
 --------------------------------------------------------------------------------
--- Matrix properties
+-- Determinant
 --------------------------------------------------------------------------------
 
 

src/Data/NumIdr/Transform/Point.idr

@@ -5,7 +5,7 @@ import Data.NumIdr.PrimArray
 import Data.NumIdr.Array
 import Data.NumIdr.Vector
 import Data.NumIdr.Matrix
-import Data.NumIdr.Multiply
+import Data.NumIdr.Interfaces
 
 %default total
 
@@ -15,6 +15,8 @@ record Point n a where
   constructor MkPoint
   vec : Vector n a
 
+%name Point p,q,r
+
 
 --------------------------------------------------------------------------------
 -- Point constructors

src/Data/NumIdr/Transform/Translation.idr

@@ -1,7 +1,7 @@
 module Data.NumIdr.Transform.Translation
 
 import Data.Vect
-import Data.NumIdr.Multiply
+import Data.NumIdr.Interfaces
 import Data.NumIdr.Array
 import Data.NumIdr.Vector
 import Data.NumIdr.Transform.Point

src/Data/NumIdr/Vector.idr

@@ -13,6 +13,7 @@ public export
 Vector : Nat -> Type -> Type
 Vector n = Array [n]
 
+%name Vector v,w,u
 
 ||| The length (number of dimensions) of the vector.
 public export