Add a RedispatchOnCondition to SubdirectProductOp

Since some aspects of being a group homomorphism are Properties, not
Categories, we need to allow for the chance that some mapping doesn't
know it is a homomorphism, but is. This can't happen in a call from
SubdirectProduct, but could happen if the operations is ever called
from elsewhere.

lib/gprd.gi

@@ -522,6 +522,12 @@ end);
 ##
 #M  SubdirectProduct( <G1>, <G2>, <phi1>, <phi2> )
 ##
+
+RedispatchOnCondition(SubdirectProductOp, "check mappings", true, 
+        [IsGroup, IsGroup, IsGeneralMapping, IsGeneralMapping],
+        [IsObject, IsObject, IsGroupHomomorphism, IsGroupHomomorphism],
+        10);
+
 InstallMethod( SubdirectProductOp,"groups", true,
   [ IsGroup, IsGroup, IsGroupHomomorphism, IsGroupHomomorphism ], 0,
 function( G, H, gh, hh )