Add utility functions for Transform types

src/Data/NumIdr/Transform/Trivial.idr

@@ -0,0 +1,23 @@
+module Data.NumIdr.Transform.Trivial
+
+import Data.Vect
+import Data.NumIdr.Interfaces
+import Data.NumIdr.Array
+import Data.NumIdr.Vector
+import Data.NumIdr.Matrix
+import Data.NumIdr.Homogeneous
+import Data.NumIdr.Transform.Point
+import Data.NumIdr.Transform.Transform
+
+%default total
+
+
+public export
+Trivial : Nat -> Type -> Type
+Trivial = Transform TTrivial
+
+
+export
+isTrivial : (Eq a, Num a) => HMatrix' n a -> Bool
+isTrivial {n} mat with (viewShape mat)
+  _ | Shape [S n,S n] = mat == identity