closing to keep a single issue

Fixed

There is not enough constraint here
"EqlS :: Equal n m -> Equal (S n) (S m)"
and
|=| is not covering all cases

No, try the previous algorithm. It will time out.

The logic behind this is to greatly reduce numbers looped, sometimes up to one fourth, especially on large numbers. When I get a divisor I get its complement. When I reach a number that is already in the list, I know that I have already reached the second side of divisors, thus I have got everything. I can get out of the loop after that. For example, let's see how 12 is processed:

divisors(12)
# iteration 1
[1,12] # identifies 1 as divisor and then gets the complement of it to 12, which is 12. The largest divisor is half of that one, so we can break out of the loop halfway through anyway
# iteration 2
[1,12,2,6]
# iteration 3
[1,12,2,6,3,4]
#iteration 4
break # because I have ran into a number already in the divisors list, that means I have got all the divisors and all the complements.

Actually I can optimize it further by using fromkeys

No reason. I had a mild malfunction and thought nub works in the same way as group. Obviously, that wouldn't make sense, my mistake.