type t1 = class where T: List; end; t2 = class(t1) where T: List, constructor; end; begin Assert(1=1) end.