3 type Moment is new Positive;
5 type Multi_Moment_History is array (Natural range <>, Moment range <>) of Float;
7 type Rec_Multi_Moment_History (Len : Natural; Size : Moment) is
9 Moments : Multi_Moment_History(0..Len, 1..Size);
13 function Sub_History_Of (History : Rec_Multi_Moment_History)
14 return Rec_Multi_Moment_History;