let p1, p2 be Point of (TOP-REAL 2); :: thesis: for a, b, c, d being Real st a < b & c < d & p1 `2 = c & p2 `2 = c & a < p2 `1 & p2 `1 < p1 `1 & p1 `1 <= b holds
LE p1,p2, rectangle (a,b,c,d)

let a, b, c, d be Real; :: thesis: ( a < b & c < d & p1 `2 = c & p2 `2 = c & a < p2 `1 & p2 `1 < p1 `1 & p1 `1 <= b implies LE p1,p2, rectangle (a,b,c,d) )
set K = rectangle (a,b,c,d);
assume that
A1: a < b and
A2: c < d and
A3: p1 `2 = c and
A4: p2 `2 = c and
A5: a < p2 `1 and
A6: p2 `1 < p1 `1 and
A7: p1 `1 <= b ; :: thesis: LE p1,p2, rectangle (a,b,c,d)
b > p2 `1 by A6, A7, XXREAL_0:2;
then A8: p2 in LSeg (|[b,c]|,|[a,c]|) by A1, A4, A5, Th1;
W-min (rectangle (a,b,c,d)) = |[a,c]| by A1, A2, JGRAPH_6:46;
then A9: (W-min (rectangle (a,b,c,d))) `1 = a by EUCLID:52;
p1 `1 > a by A5, A6, XXREAL_0:2;
then p1 in LSeg (|[b,c]|,|[a,c]|) by A1, A3, A7, Th1;
hence LE p1,p2, rectangle (a,b,c,d) by A1, A2, A5, A6, A8, A9, JGRAPH_6:62; :: thesis: verum