Another case:

| ?- V = v(- (a;b)), writeq(V).
v(-(a ';' b))

Expected:

v(- (a;b))