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