% Testing rlcad
% Convexity of unit square

rlset reals;


{}


as5v := all({x1,y1,x2,y2},(0<x1<1 and 0<y1<1 and 0<x2<1 and 0<y2<1) impl
all(l, (0<l and l<1) impl (0<x1+l*(-x1+x2)<1 and 0<y1+l*(-y1+y2)<1)))$



rlqe as5v;


true


end;

Tested on alfred running Linux 4.4.38.1.amd64-smp x86_64 CSL
Time (counter 1): 50 ms  plus GC time: 40 ms
1: real 0.34
user 0.20
sys 0.04
