let x be set ; :: thesis: ( x tohilb is symmetric & dom (x tohilb) = rng (x tohilb) )
set g = x tohilb ;
per cases ( x <> {} or x = {} ) ;
end;