function b = islip(phi1)
global Ainl Binl Ain1 Bin1 GG iif
%b = all(Ain1*phi1'<=Bin1+1e-6);
b = all(Ainl*phi1'<=Binl+1e-6);
return