1package body Discr49_Rec2 is
2   function Value (Obj : Child) return Integer is
3   begin
4      return Value (Parent (Obj));
5   end;
6end Discr49_Rec2;
7