multM m1 m2 | l1 /= l2  = error "matrizes incompatíveis"
            | otherwise = [[prodInterno l c | c<-transpose m2] | l<-m1]
            where l1 = snd $ lengthM m1
                  l2 = fst $ lengthM m2
