src/input/subset.input regression test subset? function

SI ==> Set Integer
SSI ==> Set SI
si:SI := set [2]      -- {2}
subset?(si,si)        -- true
ssi:SSI := set [si]   -- {{2}}
subset?(ssi,ssi)      -- true (fixed bug 7247)