theorem :: JORDAN6:69
for C being Simple_closed_curve
for r being Real st W-bound C <= r & r <= E-bound C holds
LSeg (|[r,(S-bound C)]|,|[r,(N-bound C)]|) meets Upper_Arc C