type i1 = interface end; i2 = interface where T: i1; end; t1 = class(i1, i2>) end; t2 = class(i2>, i1) end; begin end.