Fixed phase name

phases/dim_reduce.ml

@@ -60,4 +60,4 @@ let rec phase input =
     match input with
     | Ast (node, args) ->
         Ast (expand_dims node, args)
-    | _ -> raise (InvalidInput "desugar")
+    | _ -> raise (InvalidInput "dimension reduction")