function C=minI_L(A,B);

%
% Produto min-I_L
%

[m,n]=size(A);

if size(B,1)~=n
	disp('Inner matrix dimensions must agree.');
	return
end

C=ones(m,size(B,2));
for i=1:m
	for j=1:n
		C(i,:)=min(C(i,:),A(i,j)-B(j,:)+1);
	end
end