1package Discr49_Rec1 is 2 type Parent (Discr_1 : Boolean; Discr_2 : Boolean) is private; 3 function Value (Obj : Parent) return Integer; 4private 5 type Parent (Discr_1 : Boolean; Discr_2 : Boolean) is record 6 V : Integer := 123; 7 end record; 8end Discr49_Rec1; 9