1package body Equal6_Types is
2
3   function "=" (L, R : in Mail_Box_Data_T) return Boolean is
4      use type Bits_T;
5   begin
6      Equal1_Called := True;
7      return L.Message (1) = R.Message (1);
8   end "=";
9
10   function "=" (L, R : in To_Evc_Optional_Packet_List_T) return Boolean is
11   begin
12      Equal2_Called := True;
13      return L.List (1) = R.List (1);
14   end "=";
15end Equal6_Types;
16