theorem Th24:
    (canHom q).:(canHom q)"M1 = M1
    proof
      rng (canHom q) = (the carrier of A/q) by FUNCT_2:def 3;
      hence thesis by FUNCT_1:77;
    end;
