for a, b, c, d being Real st a <= b & c <= d holds
S-bound (closed_inside_of_rectangle (a,b,c,d)) = c