1with Text_IO; use Text_IO; 2package body Ifaces is 3 procedure op1 (this : Root) is begin null; end; 4 procedure op2 (this : DT) is begin null; end; 5end; 6