:: deftheorem Def4 defines -subsetpreserving REALSET1:def 4 :
for X being set
for A being Subset of X
for F being BinOp of X holds
( F is A -subsetpreserving iff for x being set st x in [:A,A:] holds
F . x in A );