type I1 = interface procedure operator+=(x, y: I1); end; begin end.