simplified code in CAP_INTERNAL_INSTALL_OPPOSITE_ADDS_FROM_CATEGORY

Author: mohamed-barakat

CAP/gap/OppositeCategory.gi

@@ -89,6 +89,14 @@ BindGlobal( "CAP_INTERNAL_INSTALL_OPPOSITE_ADDS_FROM_CATEGORY",
 
     recnames := AsSortedList( RecNames( CAP_INTERNAL_METHOD_NAME_RECORD ) );
 
+    ## No support for twocells
+    recnames := Difference( recnames,
+                        [ "HorizontalPreCompose",
+                          "HorizontalPostCompose",
+                          "VerticalPreCompose",
+                          "VerticalPostCompose",
+                          "IdenticalTwoCell" ] );
+    
     for current_recname in recnames do
 
         current_entry := CAP_INTERNAL_METHOD_NAME_RECORD.( current_recname );
@@ -97,15 +105,6 @@ BindGlobal( "CAP_INTERNAL_INSTALL_OPPOSITE_ADDS_FROM_CATEGORY",
             continue;
         fi;
 
-        ## No support for twocells
-        if current_recname in [ "HorizontalPreCompose",
-                                "HorizontalPostCompose",
-                                "VerticalPreCompose",
-                                "VerticalPostCompose",
-                                "IdenticalTwoCell" ] then
-            continue;
-        fi;
-        
         ## Conservative
         if not IsBound( current_entry.dual_operation ) then
             continue;