package Rec_Ids with SPARK_Mode is

   function P_Rec_Id (X : Positive) return Positive;
   function Contains_Through_Model_Id (X : Integer) return Integer;
   function Element_Through_Model_Id (X : Integer) return Integer;
   function Has_Element_Through_Model_Id (X : Positive) return Positive;
end Rec_Ids;
