installed Range for QPA paths

Author: mohamed-barakat

PackageInfo.g

@@ -11,7 +11,7 @@ SetPackageInfo( rec(
 PackageName := "Algebroids",
 Subtitle := "Algebroids and bialgebroids as preadditive categories generated by enhanced quivers",
 Version := Maximum( [
-                   "2021.02-01", ## Mohamed's version
+                   "2021.02-02", ## Mohamed's version
                    ## this line prevents merge conflicts
                    "2020.09-08", ## Kamal's version
                    ## this line prevents merge conflicts

gap/Algebroids.gi

@@ -34,6 +34,13 @@ DeclareRepresentation( "IsCapCategoryMorphismInAlgebroidRep",
 #
 ####################################
 
+##
+InstallOtherMethod( Range,
+        "for a primitive path",
+        [ IsPrimitivePath and IsNontrivialPath and IsArrow ],
+        
+  Target );
+
 ##
 InstallMethod( SetOfObjects,
         "for an algebroid",