function F = lt(X,Y)
% Internal class for constraint lists

% Author Johan Löfberg
% $Id: lt.m,v 1.1 2004/06/17 08:40:02 johanl Exp $

superiorto('sdpvar');
superiorto('double');

% Try to evaluate
try
    if isa(X,'constraint')
        % (z > w) < y
        Z = Y - X.List{end};
        F = X;
        F.List{end+1} = '<';
        F.List{end+1} = Y;
        F.Evaluated{end+1} = Z;
        F.strict(end+1) = 1;
    else
        % x < (w > y)
        Z = Y.List{1} - X;
        F = Y;
        F.List = {X,'<',F.List{:}};
        F.Evaluated = {Z,F.Evaluated{:}};
        F.strict = [1 F.strict];
    end
catch
    error(lasterr);
end