1package body Freezing1_Pack is
2   function Create_Collection
3     (Factory : in T_Factory) return I_Interface_Collection'Class
4   is
5   begin
6      return Implem'(null record);
7   end Create_Collection;
8end Freezing1_Pack;
9