xref: /dports/devel/matreshka/matreshka-0.7.0/source/amf/uml/amf-internals-tables-uml_constructors.adb

------------------------------------------------------------------------------
--                                                                          --
--                            Matreshka Project                             --
--                                                                          --
--                          Ada Modeling Framework                          --
--                                                                          --
--                        Runtime Library Component                         --
--                                                                          --
------------------------------------------------------------------------------
--                                                                          --
-- Copyright © 2011-2013, Vadim Godunko <vgodunko@gmail.com>                --
-- All rights reserved.                                                     --
--                                                                          --
-- Redistribution and use in source and binary forms, with or without       --
-- modification, are permitted provided that the following conditions       --
-- are met:                                                                 --
--                                                                          --
--  * Redistributions of source code must retain the above copyright        --
--    notice, this list of conditions and the following disclaimer.         --
--                                                                          --
--  * Redistributions in binary form must reproduce the above copyright     --
--    notice, this list of conditions and the following disclaimer in the   --
--    documentation and/or other materials provided with the distribution.  --
--                                                                          --
--  * Neither the name of the Vadim Godunko, IE nor the names of its        --
--    contributors may be used to endorse or promote products derived from  --
--    this software without specific prior written permission.              --
--                                                                          --
-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS      --
-- "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT        --
-- LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR    --
-- A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT     --
-- HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,   --
-- SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED --
-- TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR   --
-- PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF   --
-- LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING     --
-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS       --
-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.             --
--                                                                          --
------------------------------------------------------------------------------
--  $Revision: 3637 $ $Date: 2013-01-07 21:22:12 +0400 (Mon, 07 Jan 2013) $
------------------------------------------------------------------------------
--  This file is generated, don't edit it.
------------------------------------------------------------------------------
with AMF.Internals.Element_Collections;
with AMF.Internals.Standard_Profile_L2_Auxiliaries;
with AMF.Internals.Standard_Profile_L2_Calls;
with AMF.Internals.Standard_Profile_L2_Creates;
with AMF.Internals.Standard_Profile_L2_Derives;
with AMF.Internals.Standard_Profile_L2_Destroies;
with AMF.Internals.Standard_Profile_L2_Documents;
with AMF.Internals.Standard_Profile_L2_Entities;
with AMF.Internals.Standard_Profile_L2_Executables;
with AMF.Internals.Standard_Profile_L2_Focuses;
with AMF.Internals.Standard_Profile_L2_Frameworks;
with AMF.Internals.Standard_Profile_L2_Implementation_Classes;
with AMF.Internals.Standard_Profile_L2_Implements;
with AMF.Internals.Standard_Profile_L2_Instantiates;
with AMF.Internals.Standard_Profile_L2_Libraries;
with AMF.Internals.Standard_Profile_L2_Metaclasses;
with AMF.Internals.Standard_Profile_L2_Model_Libraries;
with AMF.Internals.Standard_Profile_L2_Processes;
with AMF.Internals.Standard_Profile_L2_Realizations;
with AMF.Internals.Standard_Profile_L2_Refines;
with AMF.Internals.Standard_Profile_L2_Responsibilities;
with AMF.Internals.Standard_Profile_L2_Scripts;
with AMF.Internals.Standard_Profile_L2_Sends;
with AMF.Internals.Standard_Profile_L2_Services;
with AMF.Internals.Standard_Profile_L2_Sources;
with AMF.Internals.Standard_Profile_L2_Specifications;
with AMF.Internals.Standard_Profile_L2_Subsystems;
with AMF.Internals.Standard_Profile_L2_Traces;
with AMF.Internals.Standard_Profile_L2_Types;
with AMF.Internals.Standard_Profile_L2_Utilities;
with AMF.Internals.Standard_Profile_L3_Build_Components;
with AMF.Internals.Standard_Profile_L3_Metamodels;
with AMF.Internals.Standard_Profile_L3_System_Models;
with AMF.Internals.Tables.DI_Metamodel;
with AMF.Internals.Tables.UMLDI_Metamodel;
with AMF.Internals.Tables.UML_Element_Table;
with AMF.Internals.Tables.UML_Metamodel;
with AMF.Internals.Tables.UML_Types;
with AMF.Internals.UMLDI_UML_Activity_Diagrams;
with AMF.Internals.UMLDI_UML_Association_End_Labels;
with AMF.Internals.UMLDI_UML_Association_Or_Connector_Or_Link_Shapes;
with AMF.Internals.UMLDI_UML_Class_Diagrams;
with AMF.Internals.UMLDI_UML_Classifier_Shapes;
with AMF.Internals.UMLDI_UML_Compartmentable_Shapes;
with AMF.Internals.UMLDI_UML_Compartments;
with AMF.Internals.UMLDI_UML_Component_Diagrams;
with AMF.Internals.UMLDI_UML_Composite_Structure_Diagrams;
with AMF.Internals.UMLDI_UML_Deployment_Diagrams;
with AMF.Internals.UMLDI_UML_Edges;
with AMF.Internals.UMLDI_UML_Interaction_Diagrams;
with AMF.Internals.UMLDI_UML_Interaction_Table_Labels;
with AMF.Internals.UMLDI_UML_Keyword_Labels;
with AMF.Internals.UMLDI_UML_Labels;
with AMF.Internals.UMLDI_UML_Multiplicity_Labels;
with AMF.Internals.UMLDI_UML_Name_Labels;
with AMF.Internals.UMLDI_UML_Object_Diagrams;
with AMF.Internals.UMLDI_UML_Package_Diagrams;
with AMF.Internals.UMLDI_UML_Profile_Diagrams;
with AMF.Internals.UMLDI_UML_Redefines_Labels;
with AMF.Internals.UMLDI_UML_Shapes;
with AMF.Internals.UMLDI_UML_State_Machine_Diagrams;
with AMF.Internals.UMLDI_UML_State_Shapes;
with AMF.Internals.UMLDI_UML_Stereotype_Property_Value_Labels;
with AMF.Internals.UMLDI_UML_Styles;
with AMF.Internals.UMLDI_UML_Typed_Element_Labels;
with AMF.Internals.UMLDI_UML_Use_Case_Diagrams;
with AMF.Internals.UML_Abstractions;
with AMF.Internals.UML_Accept_Call_Actions;
with AMF.Internals.UML_Accept_Event_Actions;
with AMF.Internals.UML_Action_Execution_Specifications;
with AMF.Internals.UML_Action_Input_Pins;
with AMF.Internals.UML_Activities;
with AMF.Internals.UML_Activity_Final_Nodes;
with AMF.Internals.UML_Activity_Parameter_Nodes;
with AMF.Internals.UML_Activity_Partitions;
with AMF.Internals.UML_Actors;
with AMF.Internals.UML_Add_Structural_Feature_Value_Actions;
with AMF.Internals.UML_Add_Variable_Value_Actions;
with AMF.Internals.UML_Any_Receive_Events;
with AMF.Internals.UML_Artifacts;
with AMF.Internals.UML_Association_Classes;
with AMF.Internals.UML_Associations;
with AMF.Internals.UML_Behavior_Execution_Specifications;
with AMF.Internals.UML_Broadcast_Signal_Actions;
with AMF.Internals.UML_Call_Behavior_Actions;
with AMF.Internals.UML_Call_Events;
with AMF.Internals.UML_Call_Operation_Actions;
with AMF.Internals.UML_Central_Buffer_Nodes;
with AMF.Internals.UML_Change_Events;
with AMF.Internals.UML_Classes;
with AMF.Internals.UML_Classifier_Template_Parameters;
with AMF.Internals.UML_Clauses;
with AMF.Internals.UML_Clear_Association_Actions;
with AMF.Internals.UML_Clear_Structural_Feature_Actions;
with AMF.Internals.UML_Clear_Variable_Actions;
with AMF.Internals.UML_Collaboration_Uses;
with AMF.Internals.UML_Collaborations;
with AMF.Internals.UML_Combined_Fragments;
with AMF.Internals.UML_Comments;
with AMF.Internals.UML_Communication_Paths;
with AMF.Internals.UML_Component_Realizations;
with AMF.Internals.UML_Components;
with AMF.Internals.UML_Conditional_Nodes;
with AMF.Internals.UML_Connectable_Element_Template_Parameters;
with AMF.Internals.UML_Connection_Point_References;
with AMF.Internals.UML_Connector_Ends;
with AMF.Internals.UML_Connectors;
with AMF.Internals.UML_Consider_Ignore_Fragments;
with AMF.Internals.UML_Constraints;
with AMF.Internals.UML_Continuations;
with AMF.Internals.UML_Control_Flows;
with AMF.Internals.UML_Create_Link_Actions;
with AMF.Internals.UML_Create_Link_Object_Actions;
with AMF.Internals.UML_Create_Object_Actions;
with AMF.Internals.UML_Data_Store_Nodes;
with AMF.Internals.UML_Data_Types;
with AMF.Internals.UML_Decision_Nodes;
with AMF.Internals.UML_Dependencies;
with AMF.Internals.UML_Deployment_Specifications;
with AMF.Internals.UML_Deployments;
with AMF.Internals.UML_Destroy_Link_Actions;
with AMF.Internals.UML_Destroy_Object_Actions;
with AMF.Internals.UML_Destruction_Occurrence_Specifications;
with AMF.Internals.UML_Devices;
with AMF.Internals.UML_Duration_Constraints;
with AMF.Internals.UML_Duration_Intervals;
with AMF.Internals.UML_Duration_Observations;
with AMF.Internals.UML_Durations;
with AMF.Internals.UML_Element_Imports;
with AMF.Internals.UML_Enumeration_Literals;
with AMF.Internals.UML_Enumerations;
with AMF.Internals.UML_Exception_Handlers;
with AMF.Internals.UML_Execution_Environments;
with AMF.Internals.UML_Execution_Occurrence_Specifications;
with AMF.Internals.UML_Expansion_Nodes;
with AMF.Internals.UML_Expansion_Regions;
with AMF.Internals.UML_Expressions;
with AMF.Internals.UML_Extends;
with AMF.Internals.UML_Extension_Ends;
with AMF.Internals.UML_Extension_Points;
with AMF.Internals.UML_Extensions;
with AMF.Internals.UML_Final_States;
with AMF.Internals.UML_Flow_Final_Nodes;
with AMF.Internals.UML_Fork_Nodes;
with AMF.Internals.UML_Function_Behaviors;
with AMF.Internals.UML_Gates;
with AMF.Internals.UML_General_Orderings;
with AMF.Internals.UML_Generalization_Sets;
with AMF.Internals.UML_Generalizations;
with AMF.Internals.UML_Images;
with AMF.Internals.UML_Includes;
with AMF.Internals.UML_Information_Flows;
with AMF.Internals.UML_Information_Items;
with AMF.Internals.UML_Initial_Nodes;
with AMF.Internals.UML_Input_Pins;
with AMF.Internals.UML_Instance_Specifications;
with AMF.Internals.UML_Instance_Values;
with AMF.Internals.UML_Interaction_Constraints;
with AMF.Internals.UML_Interaction_Operands;
with AMF.Internals.UML_Interaction_Uses;
with AMF.Internals.UML_Interactions;
with AMF.Internals.UML_Interface_Realizations;
with AMF.Internals.UML_Interfaces;
with AMF.Internals.UML_Interruptible_Activity_Regions;
with AMF.Internals.UML_Interval_Constraints;
with AMF.Internals.UML_Intervals;
with AMF.Internals.UML_Join_Nodes;
with AMF.Internals.UML_Lifelines;
with AMF.Internals.UML_Link_End_Creation_Datas;
with AMF.Internals.UML_Link_End_Datas;
with AMF.Internals.UML_Link_End_Destruction_Datas;
with AMF.Internals.UML_Literal_Booleans;
with AMF.Internals.UML_Literal_Integers;
with AMF.Internals.UML_Literal_Nulls;
with AMF.Internals.UML_Literal_Reals;
with AMF.Internals.UML_Literal_Strings;
with AMF.Internals.UML_Literal_Unlimited_Naturals;
with AMF.Internals.UML_Loop_Nodes;
with AMF.Internals.UML_Manifestations;
with AMF.Internals.UML_Merge_Nodes;
with AMF.Internals.UML_Message_Occurrence_Specifications;
with AMF.Internals.UML_Messages;
with AMF.Internals.UML_Models;
with AMF.Internals.UML_Nodes;
with AMF.Internals.UML_Object_Flows;
with AMF.Internals.UML_Occurrence_Specifications;
with AMF.Internals.UML_Opaque_Actions;
with AMF.Internals.UML_Opaque_Behaviors;
with AMF.Internals.UML_Opaque_Expressions;
with AMF.Internals.UML_Operation_Template_Parameters;
with AMF.Internals.UML_Operations;
with AMF.Internals.UML_Output_Pins;
with AMF.Internals.UML_Package_Imports;
with AMF.Internals.UML_Package_Merges;
with AMF.Internals.UML_Packages;
with AMF.Internals.UML_Parameter_Sets;
with AMF.Internals.UML_Parameters;
with AMF.Internals.UML_Part_Decompositions;
with AMF.Internals.UML_Ports;
with AMF.Internals.UML_Primitive_Types;
with AMF.Internals.UML_Profile_Applications;
with AMF.Internals.UML_Profiles;
with AMF.Internals.UML_Properties;
with AMF.Internals.UML_Protocol_Conformances;
with AMF.Internals.UML_Protocol_State_Machines;
with AMF.Internals.UML_Protocol_Transitions;
with AMF.Internals.UML_Pseudostates;
with AMF.Internals.UML_Qualifier_Values;
with AMF.Internals.UML_Raise_Exception_Actions;
with AMF.Internals.UML_Read_Extent_Actions;
with AMF.Internals.UML_Read_Is_Classified_Object_Actions;
with AMF.Internals.UML_Read_Link_Actions;
with AMF.Internals.UML_Read_Link_Object_End_Actions;
with AMF.Internals.UML_Read_Link_Object_End_Qualifier_Actions;
with AMF.Internals.UML_Read_Self_Actions;
with AMF.Internals.UML_Read_Structural_Feature_Actions;
with AMF.Internals.UML_Read_Variable_Actions;
with AMF.Internals.UML_Realizations;
with AMF.Internals.UML_Receptions;
with AMF.Internals.UML_Reclassify_Object_Actions;
with AMF.Internals.UML_Redefinable_Template_Signatures;
with AMF.Internals.UML_Reduce_Actions;
with AMF.Internals.UML_Regions;
with AMF.Internals.UML_Remove_Structural_Feature_Value_Actions;
with AMF.Internals.UML_Remove_Variable_Value_Actions;
with AMF.Internals.UML_Reply_Actions;
with AMF.Internals.UML_Send_Object_Actions;
with AMF.Internals.UML_Send_Signal_Actions;
with AMF.Internals.UML_Sequence_Nodes;
with AMF.Internals.UML_Signal_Events;
with AMF.Internals.UML_Signals;
with AMF.Internals.UML_Slots;
with AMF.Internals.UML_Start_Classifier_Behavior_Actions;
with AMF.Internals.UML_Start_Object_Behavior_Actions;
with AMF.Internals.UML_State_Invariants;
with AMF.Internals.UML_State_Machines;
with AMF.Internals.UML_States;
with AMF.Internals.UML_Stereotypes;
with AMF.Internals.UML_String_Expressions;
with AMF.Internals.UML_Structured_Activity_Nodes;
with AMF.Internals.UML_Substitutions;
with AMF.Internals.UML_Template_Bindings;
with AMF.Internals.UML_Template_Parameter_Substitutions;
with AMF.Internals.UML_Template_Parameters;
with AMF.Internals.UML_Template_Signatures;
with AMF.Internals.UML_Test_Identity_Actions;
with AMF.Internals.UML_Time_Constraints;
with AMF.Internals.UML_Time_Events;
with AMF.Internals.UML_Time_Expressions;
with AMF.Internals.UML_Time_Intervals;
with AMF.Internals.UML_Time_Observations;
with AMF.Internals.UML_Transitions;
with AMF.Internals.UML_Triggers;
with AMF.Internals.UML_Unmarshall_Actions;
with AMF.Internals.UML_Usages;
with AMF.Internals.UML_Use_Cases;
with AMF.Internals.UML_Value_Pins;
with AMF.Internals.UML_Value_Specification_Actions;
with AMF.Internals.UML_Variables;
with AMF.UML;
with AMF.UMLDI;
with Matreshka.Internals.Strings;

package body AMF.Internals.Tables.UML_Constructors is

   use AMF.Internals.Tables;
   use type AMF.Internals.AMF_Collection_Of_Element;

   ------------------------------------------
   -- Create_Standard_Profile_L2_Auxiliary --
   ------------------------------------------

   function Create_Standard_Profile_L2_Auxiliary return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Auxiliary,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L2_Auxiliaries.Standard_Profile_L2_Auxiliary_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Class
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L2_Auxiliary;

   -------------------------------------
   -- Create_Standard_Profile_L2_Call --
   -------------------------------------

   function Create_Standard_Profile_L2_Call return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Call,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L2_Calls.Standard_Profile_L2_Call_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Usage
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L2_Call;

   ---------------------------------------
   -- Create_Standard_Profile_L2_Create --
   ---------------------------------------

   function Create_Standard_Profile_L2_Create return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Create,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L2_Creates.Standard_Profile_L2_Create_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_BehavioralFeature
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Usage
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L2_Create;

   ---------------------------------------
   -- Create_Standard_Profile_L2_Derive --
   ---------------------------------------

   function Create_Standard_Profile_L2_Derive return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Derive,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L2_Derives.Standard_Profile_L2_Derive_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Abstraction
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  computation
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L2_Derive;

   ----------------------------------------
   -- Create_Standard_Profile_L2_Destroy --
   ----------------------------------------

   function Create_Standard_Profile_L2_Destroy return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Destroy,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L2_Destroies.Standard_Profile_L2_Destroy_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_BehavioralFeature
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L2_Destroy;

   -----------------------------------------
   -- Create_Standard_Profile_L2_Document --
   -----------------------------------------

   function Create_Standard_Profile_L2_Document return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Document,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L2_Documents.Standard_Profile_L2_Document_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Artifact
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Artifact
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L2_Document;

   ---------------------------------------
   -- Create_Standard_Profile_L2_Entity --
   ---------------------------------------

   function Create_Standard_Profile_L2_Entity return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Entity,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L2_Entities.Standard_Profile_L2_Entity_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Component
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L2_Entity;

   -------------------------------------------
   -- Create_Standard_Profile_L2_Executable --
   -------------------------------------------

   function Create_Standard_Profile_L2_Executable return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Executable,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L2_Executables.Standard_Profile_L2_Executable_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Artifact
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Artifact
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L2_Executable;

   --------------------------------------
   -- Create_Standard_Profile_L2_Focus --
   --------------------------------------

   function Create_Standard_Profile_L2_Focus return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Focus,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L2_Focuses.Standard_Profile_L2_Focus_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Class
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L2_Focus;

   ------------------------------------------
   -- Create_Standard_Profile_L2_Framework --
   ------------------------------------------

   function Create_Standard_Profile_L2_Framework return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Framework,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L2_Frameworks.Standard_Profile_L2_Framework_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Package
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L2_Framework;

   ------------------------------------------
   -- Create_Standard_Profile_L2_Implement --
   ------------------------------------------

   function Create_Standard_Profile_L2_Implement return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Implement,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L2_Implements.Standard_Profile_L2_Implement_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Component
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L2_Implement;

   -----------------------------------------------------
   -- Create_Standard_Profile_L2_Implementation_Class --
   -----------------------------------------------------

   function Create_Standard_Profile_L2_Implementation_Class return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Implementation_Class,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L2_Implementation_Classes.Standard_Profile_L2_Implementation_Class_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Class
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L2_Implementation_Class;

   --------------------------------------------
   -- Create_Standard_Profile_L2_Instantiate --
   --------------------------------------------

   function Create_Standard_Profile_L2_Instantiate return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Instantiate,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L2_Instantiates.Standard_Profile_L2_Instantiate_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Usage
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L2_Instantiate;

   ----------------------------------------
   -- Create_Standard_Profile_L2_Library --
   ----------------------------------------

   function Create_Standard_Profile_L2_Library return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Library,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L2_Libraries.Standard_Profile_L2_Library_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Artifact
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Artifact
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L2_Library;

   ------------------------------------------
   -- Create_Standard_Profile_L2_Metaclass --
   ------------------------------------------

   function Create_Standard_Profile_L2_Metaclass return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Metaclass,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L2_Metaclasses.Standard_Profile_L2_Metaclass_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Class
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L2_Metaclass;

   ----------------------------------------------
   -- Create_Standard_Profile_L2_Model_Library --
   ----------------------------------------------

   function Create_Standard_Profile_L2_Model_Library return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Model_Library,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L2_Model_Libraries.Standard_Profile_L2_Model_Library_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Package
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L2_Model_Library;

   ----------------------------------------
   -- Create_Standard_Profile_L2_Process --
   ----------------------------------------

   function Create_Standard_Profile_L2_Process return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Process,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L2_Processes.Standard_Profile_L2_Process_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Component
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L2_Process;

   --------------------------------------------
   -- Create_Standard_Profile_L2_Realization --
   --------------------------------------------

   function Create_Standard_Profile_L2_Realization return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Realization,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L2_Realizations.Standard_Profile_L2_Realization_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Classifier
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L2_Realization;

   ---------------------------------------
   -- Create_Standard_Profile_L2_Refine --
   ---------------------------------------

   function Create_Standard_Profile_L2_Refine return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Refine,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L2_Refines.Standard_Profile_L2_Refine_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Abstraction
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L2_Refine;

   -----------------------------------------------
   -- Create_Standard_Profile_L2_Responsibility --
   -----------------------------------------------

   function Create_Standard_Profile_L2_Responsibility return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Responsibility,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L2_Responsibilities.Standard_Profile_L2_Responsibility_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Usage
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L2_Responsibility;

   ---------------------------------------
   -- Create_Standard_Profile_L2_Script --
   ---------------------------------------

   function Create_Standard_Profile_L2_Script return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Script,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L2_Scripts.Standard_Profile_L2_Script_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Artifact
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Artifact
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L2_Script;

   -------------------------------------
   -- Create_Standard_Profile_L2_Send --
   -------------------------------------

   function Create_Standard_Profile_L2_Send return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Send,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L2_Sends.Standard_Profile_L2_Send_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Usage
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L2_Send;

   ----------------------------------------
   -- Create_Standard_Profile_L2_Service --
   ----------------------------------------

   function Create_Standard_Profile_L2_Service return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Service,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L2_Services.Standard_Profile_L2_Service_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Component
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L2_Service;

   ---------------------------------------
   -- Create_Standard_Profile_L2_Source --
   ---------------------------------------

   function Create_Standard_Profile_L2_Source return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Source,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L2_Sources.Standard_Profile_L2_Source_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Artifact
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Artifact
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L2_Source;

   ----------------------------------------------
   -- Create_Standard_Profile_L2_Specification --
   ----------------------------------------------

   function Create_Standard_Profile_L2_Specification return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Specification,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L2_Specifications.Standard_Profile_L2_Specification_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Classifier
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L2_Specification;

   ------------------------------------------
   -- Create_Standard_Profile_L2_Subsystem --
   ------------------------------------------

   function Create_Standard_Profile_L2_Subsystem return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Subsystem,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L2_Subsystems.Standard_Profile_L2_Subsystem_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Component
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L2_Subsystem;

   --------------------------------------
   -- Create_Standard_Profile_L2_Trace --
   --------------------------------------

   function Create_Standard_Profile_L2_Trace return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Trace,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L2_Traces.Standard_Profile_L2_Trace_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Abstraction
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L2_Trace;

   -------------------------------------
   -- Create_Standard_Profile_L2_Type --
   -------------------------------------

   function Create_Standard_Profile_L2_Type return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Type,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L2_Types.Standard_Profile_L2_Type_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Class
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L2_Type;

   ----------------------------------------
   -- Create_Standard_Profile_L2_Utility --
   ----------------------------------------

   function Create_Standard_Profile_L2_Utility return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Utility,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L2_Utilities.Standard_Profile_L2_Utility_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Class
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L2_Utility;

   ------------------------------------------------
   -- Create_Standard_Profile_L3_Build_Component --
   ------------------------------------------------

   function Create_Standard_Profile_L3_Build_Component return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L3_Build_Component,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L3_Build_Components.Standard_Profile_L3_Build_Component_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Component
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L3_Build_Component;

   ------------------------------------------
   -- Create_Standard_Profile_L3_Metamodel --
   ------------------------------------------

   function Create_Standard_Profile_L3_Metamodel return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L3_Metamodel,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L3_Metamodels.Standard_Profile_L3_Metamodel_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Model
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L3_Metamodel;

   ---------------------------------------------
   -- Create_Standard_Profile_L3_System_Model --
   ---------------------------------------------

   function Create_Standard_Profile_L3_System_Model return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_Standard_Profile_L3_System_Model,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.Standard_Profile_L3_System_Models.Standard_Profile_L3_System_Model_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  base_Model
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      return Self;
   end Create_Standard_Profile_L3_System_Model;

   ----------------------------
   -- Create_UML_Abstraction --
   ----------------------------

   function Create_UML_Abstraction return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Abstraction,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Abstractions.UML_Abstraction_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  mapping
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  client

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Client_Named_Element_Client_Dependency,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  relatedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  source

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  supplier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Supplier_A_Supplier_Dependency,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  target

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Abstraction;

   -----------------------------------
   -- Create_UML_Accept_Call_Action --
   -----------------------------------

   function Create_UML_Accept_Call_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Accept_Call_Actions.UML_Accept_Call_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          12     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isUnmarshall
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  returnInformation
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  result

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Accept_Event_Action_Result_A_Accept_Event_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  trigger

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Accept_Event_Action_Trigger_A_Accept_Event_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      return Self;
   end Create_UML_Accept_Call_Action;

   ------------------------------------
   -- Create_UML_Accept_Event_Action --
   ------------------------------------

   function Create_UML_Accept_Event_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Accept_Event_Actions.UML_Accept_Event_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          12     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isUnmarshall
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  result

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Accept_Event_Action_Result_A_Accept_Event_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  trigger

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Accept_Event_Action_Trigger_A_Accept_Event_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      return Self;
   end Create_UML_Accept_Event_Action;

   -----------------------------------------------
   -- Create_UML_Action_Execution_Specification --
   -----------------------------------------------

   function Create_UML_Action_Execution_Specification return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Action_Execution_Specification,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Action_Execution_Specifications.UML_Action_Execution_Specification_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  action
          18     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  enclosingInteraction
          19     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  enclosingOperand
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  finish
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  start
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  covered

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Covered_Lifeline_Covered_By,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  generalOrdering

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_General_Ordering_A_Interaction_Fragment,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Action_Execution_Specification;

   ---------------------------------
   -- Create_UML_Action_Input_Pin --
   ---------------------------------

   function Create_UML_Action_Input_Pin return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Action_Input_Pins.UML_Action_Input_Pin_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          22     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  fromAction
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          21     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isControl
          17     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isControlType
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          12     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isOrdered
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isUnique
          14     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Integer, (False, 1)),
                       --  lower
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  lowerValue
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          18     => (AMF.Internals.Tables.UML_Types.M_Object_Node_Ordering_Kind, AMF.UML.FIFO),
                       --  ordering
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          19     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  selection
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          15     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Unlimited_Natural, (False, (False, 1))),
                       --  upper
          20     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  upperBound
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  upperValue
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  inState

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_In_State_A_Object_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Action_Input_Pin;

   -------------------------
   -- Create_UML_Activity --
   -------------------------

   function Create_UML_Activity return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Activity,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Activities.UML_Activity_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  classifierBehavior
          21     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAbstract
          20     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isActive
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isFinalSpecialization
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          24     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isReadOnly
          22     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isReentrant
          18     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isSingleExecution
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  package
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  representation
          23     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  specification
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  attribute

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  collaborationUse

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  edge

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_Activity_Edge_Activity,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  extension

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Extension_Extension_Metaclass,
        UML_Element_Table.Table (Self).Member (0).Collection + 33);

      --  feature

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  general

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  generalization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  group

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Activity_Group_In_Activity,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inheritedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  interfaceRealization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 25);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  nestedClassifier

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Nested_Classifier_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 34);

      --  node

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Node_Activity,
        UML_Element_Table.Table (Self).Member (0).Collection + 44);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Attribute_Property_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 35);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Attribute_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 28);

      --  ownedBehavior

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 26);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedConnector

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Connector_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 29);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedOperation

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Operation_Operation_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 36);

      --  ownedParameter

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Owned_Parameter_A_Behavior,
        UML_Element_Table.Table (Self).Member (0).Collection + 39);

      --  ownedParameterSet

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Owned_Parameter_Set_A_Behavior,
        UML_Element_Table.Table (Self).Member (0).Collection + 40);

      --  ownedPort

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Encapsulated_Classifier_Owned_Port_A_Encapsulated_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 32);

      --  ownedReception

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Reception_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 37);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  ownedUseCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  part

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Part_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 30);

      --  partition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Partition_A_Activity,
        UML_Element_Table.Table (Self).Member (0).Collection + 45);

      --  postcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Postcondition_A_Behavior,
        UML_Element_Table.Table (Self).Member (0).Collection + 41);

      --  powertypeExtent

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  precondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Precondition_A_Behavior,
        UML_Element_Table.Table (Self).Member (0).Collection + 42);

      --  redefinedBehavior

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Redefined_Behavior_A_Behavior,
        UML_Element_Table.Table (Self).Member (0).Collection + 43);

      --  redefinedClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  role

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Role_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 31);

      --  structuredNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Structured_Node_Structured_Activity_Node_Activity,
        UML_Element_Table.Table (Self).Member (0).Collection + 46);

      --  substitution

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  superClass

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Super_Class_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 38);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  useCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      --  variable

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Variable_Variable_Activity_Scope,
        UML_Element_Table.Table (Self).Member (0).Collection + 47);

      return Self;
   end Create_UML_Activity;

   ------------------------------------
   -- Create_UML_Activity_Final_Node --
   ------------------------------------

   function Create_UML_Activity_Final_Node return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Activity_Final_Node,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Activity_Final_Nodes.UML_Activity_Final_Node_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Activity_Final_Node;

   ----------------------------------------
   -- Create_UML_Activity_Parameter_Node --
   ----------------------------------------

   function Create_UML_Activity_Parameter_Node return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          17     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isControlType
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          18     => (AMF.Internals.Tables.UML_Types.M_Object_Node_Ordering_Kind, AMF.UML.FIFO),
                       --  ordering
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  parameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          19     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  selection
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          20     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  upperBound
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  inState

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_In_State_A_Object_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Activity_Parameter_Node;

   -----------------------------------
   -- Create_UML_Activity_Partition --
   -----------------------------------

   function Create_UML_Activity_Partition return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Activity_Partition,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Activity_Partitions.UML_Activity_Partition_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inActivity
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isDimension
          8      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isExternal
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  represents
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  superGroup
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  superPartition
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  containedEdge

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Contained_Edge_Activity_Edge_In_Group,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      --  containedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Contained_Node_Activity_Node_In_Group,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  edge

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Partition_Edge_Activity_Edge_In_Partition,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  node

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Partition_Node_Activity_Node_In_Partition,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  subgroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Subgroup_Activity_Group_Super_Group,
        UML_Element_Table.Table (Self).Member (0).Collection + 25);

      --  subpartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Partition_Subpartition_Activity_Partition_Super_Partition,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      return Self;
   end Create_UML_Activity_Partition;

   ----------------------
   -- Create_UML_Actor --
   ----------------------

   function Create_UML_Actor return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Actor,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Actors.UML_Actor_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  classifierBehavior
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAbstract
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isFinalSpecialization
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  package
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  representation
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  attribute

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  collaborationUse

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  feature

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  general

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  generalization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inheritedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  interfaceRealization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 25);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  ownedBehavior

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 26);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  ownedUseCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  powertypeExtent

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  redefinedClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  substitution

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  useCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      return Self;
   end Create_UML_Actor;

   ----------------------------------------------------
   -- Create_UML_Add_Structural_Feature_Value_Action --
   ----------------------------------------------------

   function Create_UML_Add_Structural_Feature_Value_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          17     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  insertAt
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          14     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isReplaceAll
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  object
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  result
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  structuralFeature
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  value
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Add_Structural_Feature_Value_Action;

   ------------------------------------------
   -- Create_UML_Add_Variable_Value_Action --
   ------------------------------------------

   function Create_UML_Add_Variable_Value_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  insertAt
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          14     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isReplaceAll
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  value
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  variable
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Add_Variable_Value_Action;

   ----------------------------------
   -- Create_UML_Any_Receive_Event --
   ----------------------------------

   function Create_UML_Any_Receive_Event return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Any_Receive_Event,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Any_Receive_Events.UML_Any_Receive_Event_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Any_Receive_Event;

   -------------------------
   -- Create_UML_Artifact --
   -------------------------

   function Create_UML_Artifact return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Artifact,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Artifacts.UML_Artifact_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  fileName
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAbstract
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isFinalSpecialization
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  package
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  representation
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  attribute

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  collaborationUse

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  feature

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  general

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  generalization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inheritedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  manifestation

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Artifact_Manifestation_A_Artifact,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  nestedArtifact

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Artifact_Nested_Artifact_A_Artifact,
        UML_Element_Table.Table (Self).Member (0).Collection + 25);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Artifact_Owned_Attribute_A_Artifact,
        UML_Element_Table.Table (Self).Member (0).Collection + 26);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedOperation

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Artifact_Owned_Operation_A_Artifact,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  ownedUseCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  powertypeExtent

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  redefinedClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  substitution

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  useCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      return Self;
   end Create_UML_Artifact;

   ----------------------------
   -- Create_UML_Association --
   ----------------------------

   function Create_UML_Association return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Association,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Associations.UML_Association_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAbstract
          18     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isDerived
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isFinalSpecialization
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  package
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  representation
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  attribute

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  collaborationUse

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  endType

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_End_Type_A_Association,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  feature

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  general

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  generalization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inheritedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  memberEnd

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Member_End_Property_Association,
        UML_Element_Table.Table (Self).Member (0).Collection + 39);

      --  navigableOwnedEnd

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Navigable_Owned_End_A_Association,
        UML_Element_Table.Table (Self).Member (0).Collection + 40);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedEnd

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Owned_End_Property_Owning_Association,
        UML_Element_Table.Table (Self).Member (0).Collection + 41);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  ownedUseCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  powertypeExtent

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  redefinedClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  relatedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  substitution

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  useCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      return Self;
   end Create_UML_Association;

   ----------------------------------
   -- Create_UML_Association_Class --
   ----------------------------------

   function Create_UML_Association_Class return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Association_Class,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Association_Classes.UML_Association_Class_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  classifierBehavior
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAbstract
          20     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isActive
          18     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isDerived
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isFinalSpecialization
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  package
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  representation
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  attribute

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  collaborationUse

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  endType

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_End_Type_A_Association,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  extension

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Extension_Extension_Metaclass,
        UML_Element_Table.Table (Self).Member (0).Collection + 33);

      --  feature

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  general

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  generalization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inheritedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  interfaceRealization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 25);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  memberEnd

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Member_End_Property_Association,
        UML_Element_Table.Table (Self).Member (0).Collection + 39);

      --  navigableOwnedEnd

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Navigable_Owned_End_A_Association,
        UML_Element_Table.Table (Self).Member (0).Collection + 40);

      --  nestedClassifier

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Nested_Classifier_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 34);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Attribute_Property_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 35);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Attribute_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 28);

      --  ownedBehavior

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 26);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedConnector

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Connector_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 29);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedEnd

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Owned_End_Property_Owning_Association,
        UML_Element_Table.Table (Self).Member (0).Collection + 41);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedOperation

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Operation_Operation_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 36);

      --  ownedPort

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Encapsulated_Classifier_Owned_Port_A_Encapsulated_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 32);

      --  ownedReception

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Reception_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 37);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  ownedUseCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  part

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Part_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 30);

      --  powertypeExtent

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  redefinedClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  relatedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  role

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Role_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 31);

      --  substitution

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  superClass

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Super_Class_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 38);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  useCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      return Self;
   end Create_UML_Association_Class;

   -------------------------------------------------
   -- Create_UML_Behavior_Execution_Specification --
   -------------------------------------------------

   function Create_UML_Behavior_Execution_Specification return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Behavior_Execution_Specification,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Behavior_Execution_Specifications.UML_Behavior_Execution_Specification_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  behavior
          18     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  enclosingInteraction
          19     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  enclosingOperand
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  finish
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  start
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  covered

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Covered_Lifeline_Covered_By,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  generalOrdering

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_General_Ordering_A_Interaction_Fragment,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Behavior_Execution_Specification;

   ----------------------------------------
   -- Create_UML_Broadcast_Signal_Action --
   ----------------------------------------

   function Create_UML_Broadcast_Signal_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  onPort
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  signal
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  argument

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Invocation_Action_Argument_A_Invocation_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Broadcast_Signal_Action;

   -------------------------------------
   -- Create_UML_Call_Behavior_Action --
   -------------------------------------

   function Create_UML_Call_Behavior_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Call_Behavior_Actions.UML_Call_Behavior_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  behavior
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isSynchronous
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  onPort
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  argument

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Invocation_Action_Argument_A_Invocation_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  result

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Call_Action_Result_A_Call_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      return Self;
   end Create_UML_Call_Behavior_Action;

   ---------------------------
   -- Create_UML_Call_Event --
   ---------------------------

   function Create_UML_Call_Event return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Call_Event,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Call_Events.UML_Call_Event_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  operation
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Call_Event;

   --------------------------------------
   -- Create_UML_Call_Operation_Action --
   --------------------------------------

   function Create_UML_Call_Operation_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Call_Operation_Actions.UML_Call_Operation_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isSynchronous
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  onPort
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  operation
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  target
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  argument

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Invocation_Action_Argument_A_Invocation_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  result

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Call_Action_Result_A_Call_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      return Self;
   end Create_UML_Call_Operation_Action;

   ------------------------------------
   -- Create_UML_Central_Buffer_Node --
   ------------------------------------

   function Create_UML_Central_Buffer_Node return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Central_Buffer_Node,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Central_Buffer_Nodes.UML_Central_Buffer_Node_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          17     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isControlType
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          18     => (AMF.Internals.Tables.UML_Types.M_Object_Node_Ordering_Kind, AMF.UML.FIFO),
                       --  ordering
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          19     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  selection
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          20     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  upperBound
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  inState

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_In_State_A_Object_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Central_Buffer_Node;

   -----------------------------
   -- Create_UML_Change_Event --
   -----------------------------

   function Create_UML_Change_Event return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Change_Event,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Change_Events.UML_Change_Event_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  changeExpression
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Change_Event;

   ----------------------
   -- Create_UML_Class --
   ----------------------

   function Create_UML_Class return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Class,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Classes.UML_Class_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  classifierBehavior
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAbstract
          20     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isActive
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isFinalSpecialization
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  package
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  representation
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  attribute

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  collaborationUse

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  extension

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Extension_Extension_Metaclass,
        UML_Element_Table.Table (Self).Member (0).Collection + 33);

      --  feature

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  general

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  generalization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inheritedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  interfaceRealization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 25);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  nestedClassifier

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Nested_Classifier_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 34);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Attribute_Property_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 35);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Attribute_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 28);

      --  ownedBehavior

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 26);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedConnector

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Connector_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 29);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedOperation

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Operation_Operation_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 36);

      --  ownedPort

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Encapsulated_Classifier_Owned_Port_A_Encapsulated_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 32);

      --  ownedReception

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Reception_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 37);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  ownedUseCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  part

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Part_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 30);

      --  powertypeExtent

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  redefinedClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  role

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Role_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 31);

      --  substitution

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  superClass

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Super_Class_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 38);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  useCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      return Self;
   end Create_UML_Class;

   ----------------------------------------------
   -- Create_UML_Classifier_Template_Parameter --
   ----------------------------------------------

   function Create_UML_Classifier_Template_Parameter return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Classifier_Template_Parameter,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  allowSubstitutable
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  default
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedDefault
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedParameteredElement
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  parameteredElement
          5      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  parameteredElement
          6      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  signature
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  constrainingClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Constraining_Classifier_A_Classifier_Template_Parameter,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Classifier_Template_Parameter;

   -----------------------
   -- Create_UML_Clause --
   -----------------------

   function Create_UML_Clause return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Clause,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Clauses.UML_Clause_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  decider
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  body

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Clause_Body_A_Clause,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  bodyOutput

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Clause_Body_Output_A_Clause,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  predecessorClause

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Clause_Predecessor_Clause_Clause_Successor_Clause,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  successorClause

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Clause_Successor_Clause_Clause_Predecessor_Clause,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  test

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Clause_Test_A_Clause,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      return Self;
   end Create_UML_Clause;

   -----------------------------------------
   -- Create_UML_Clear_Association_Action --
   -----------------------------------------

   function Create_UML_Clear_Association_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Clear_Association_Actions.UML_Clear_Association_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  association
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  object
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Clear_Association_Action;

   ------------------------------------------------
   -- Create_UML_Clear_Structural_Feature_Action --
   ------------------------------------------------

   function Create_UML_Clear_Structural_Feature_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  object
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  result
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  structuralFeature
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Clear_Structural_Feature_Action;

   --------------------------------------
   -- Create_UML_Clear_Variable_Action --
   --------------------------------------

   function Create_UML_Clear_Variable_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Clear_Variable_Actions.UML_Clear_Variable_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  variable
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Clear_Variable_Action;

   ------------------------------
   -- Create_UML_Collaboration --
   ------------------------------

   function Create_UML_Collaboration return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Collaboration,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Collaborations.UML_Collaboration_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  classifierBehavior
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAbstract
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isFinalSpecialization
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  package
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  representation
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  attribute

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  collaborationRole

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Collaboration_Collaboration_Role_A_Collaboration,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  collaborationUse

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  feature

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  general

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  generalization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inheritedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  interfaceRealization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 25);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Attribute_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 28);

      --  ownedBehavior

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 26);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedConnector

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Connector_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 29);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  ownedUseCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  part

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Part_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 30);

      --  powertypeExtent

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  redefinedClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  role

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Role_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 31);

      --  substitution

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  useCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      return Self;
   end Create_UML_Collaboration;

   ----------------------------------
   -- Create_UML_Collaboration_Use --
   ----------------------------------

   function Create_UML_Collaboration_Use return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Collaboration_Use,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Collaboration_Uses.UML_Collaboration_Use_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  roleBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Collaboration_Use_Role_Binding_A_Collaboration_Use,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      return Self;
   end Create_UML_Collaboration_Use;

   ----------------------------------
   -- Create_UML_Combined_Fragment --
   ----------------------------------

   function Create_UML_Combined_Fragment return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Combined_Fragment,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Combined_Fragments.UML_Combined_Fragment_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          18     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  enclosingInteraction
          19     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  enclosingOperand
          7      => (AMF.Internals.Tables.UML_Types.M_Interaction_Operator_Kind, AMF.UML.Seq_Operator),
                       --  interactionOperator
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  cfragmentGate

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Combined_Fragment_Cfragment_Gate_A_Combined_Fragment,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  covered

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Covered_Lifeline_Covered_By,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  generalOrdering

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_General_Ordering_A_Interaction_Fragment,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  operand

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Combined_Fragment_Operand_A_Combined_Fragment,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Combined_Fragment;

   ------------------------
   -- Create_UML_Comment --
   ------------------------

   function Create_UML_Comment return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Comment,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Comments.UML_Comment_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  body
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  annotatedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Comment_Annotated_Element_A_Comment,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Comment;

   -----------------------------------
   -- Create_UML_Communication_Path --
   -----------------------------------

   function Create_UML_Communication_Path return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Communication_Path,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Communication_Paths.UML_Communication_Path_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAbstract
          18     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isDerived
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isFinalSpecialization
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  package
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  representation
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  attribute

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  collaborationUse

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  endType

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_End_Type_A_Association,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  feature

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  general

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  generalization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inheritedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  memberEnd

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Member_End_Property_Association,
        UML_Element_Table.Table (Self).Member (0).Collection + 39);

      --  navigableOwnedEnd

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Navigable_Owned_End_A_Association,
        UML_Element_Table.Table (Self).Member (0).Collection + 40);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedEnd

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Owned_End_Property_Owning_Association,
        UML_Element_Table.Table (Self).Member (0).Collection + 41);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  ownedUseCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  powertypeExtent

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  redefinedClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  relatedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  substitution

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  useCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      return Self;
   end Create_UML_Communication_Path;

   --------------------------
   -- Create_UML_Component --
   --------------------------

   function Create_UML_Component return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Component,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Components.UML_Component_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  classifierBehavior
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAbstract
          20     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isActive
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isFinalSpecialization
          18     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isIndirectlyInstantiated
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  package
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  representation
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  attribute

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  collaborationUse

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  extension

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Extension_Extension_Metaclass,
        UML_Element_Table.Table (Self).Member (0).Collection + 33);

      --  feature

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  general

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  generalization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inheritedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  interfaceRealization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 25);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  nestedClassifier

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Nested_Classifier_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 34);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Attribute_Property_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 35);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Attribute_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 28);

      --  ownedBehavior

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 26);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedConnector

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Connector_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 29);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedOperation

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Operation_Operation_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 36);

      --  ownedPort

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Encapsulated_Classifier_Owned_Port_A_Encapsulated_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 32);

      --  ownedReception

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Reception_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 37);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  ownedUseCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  packagedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Component_Packaged_Element_A_Component,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  part

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Part_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 30);

      --  powertypeExtent

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  provided

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Component_Provided_A_Component,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  realization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Component_Realization_Component_Realization_Abstraction,
        UML_Element_Table.Table (Self).Member (0).Collection + 39);

      --  redefinedClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  required

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Component_Required_A_Component,
        UML_Element_Table.Table (Self).Member (0).Collection + 40);

      --  role

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Role_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 31);

      --  substitution

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  superClass

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Super_Class_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 38);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  useCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      return Self;
   end Create_UML_Component;

   --------------------------------------
   -- Create_UML_Component_Realization --
   --------------------------------------

   function Create_UML_Component_Realization return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Component_Realization,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Component_Realizations.UML_Component_Realization_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  abstraction
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  mapping
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  client

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Client_Named_Element_Client_Dependency,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  realizingClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Component_Realization_Realizing_Classifier_A_Component_Realization,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  relatedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  source

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  supplier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Supplier_A_Supplier_Dependency,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  target

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Component_Realization;

   ---------------------------------
   -- Create_UML_Conditional_Node --
   ---------------------------------

   function Create_UML_Conditional_Node return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Conditional_Nodes.UML_Conditional_Node_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inActivity
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          16     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAssured
          17     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isDeterminate
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          15     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  mustIsolate
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  superGroup
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clause

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Conditional_Node_Clause_A_Conditional_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 31);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  containedEdge

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Contained_Edge_Activity_Edge_In_Group,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      --  containedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Contained_Node_Activity_Node_In_Group,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  edge

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Edge_Activity_Edge_In_Structured_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 26);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  node

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Node_Activity_Node_In_Structured_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  result

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Conditional_Node_Result_A_Conditional_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 32);

      --  structuredNodeInput

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Structured_Node_Input_A_Structured_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 28);

      --  structuredNodeOutput

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Structured_Node_Output_A_Structured_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 29);

      --  subgroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Subgroup_Activity_Group_Super_Group,
        UML_Element_Table.Table (Self).Member (0).Collection + 25);

      --  variable

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Variable_Variable_Scope,
        UML_Element_Table.Table (Self).Member (0).Collection + 30);

      return Self;
   end Create_UML_Conditional_Node;

   -------------------------------------------------------
   -- Create_UML_Connectable_Element_Template_Parameter --
   -------------------------------------------------------

   function Create_UML_Connectable_Element_Template_Parameter return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Connectable_Element_Template_Parameter,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  default
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedDefault
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedParameteredElement
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  parameteredElement
          5      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  parameteredElement
          6      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  signature
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Connectable_Element_Template_Parameter;

   -------------------------------------------
   -- Create_UML_Connection_Point_Reference --
   -------------------------------------------

   function Create_UML_Connection_Point_Reference return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Connection_Point_Reference,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Connection_Point_References.UML_Connection_Point_Reference_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  container
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  state
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  entry

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Connection_Point_Reference_Entry_A_Connection_Point_Reference,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  exit

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Connection_Point_Reference_Exit_A_Connection_Point_Reference,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Vertex_Incoming_Transition_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Vertex_Outgoing_Transition_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Connection_Point_Reference;

   --------------------------
   -- Create_UML_Connector --
   --------------------------

   function Create_UML_Connector return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Connector,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Connectors.UML_Connector_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          17     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isStatic
          8      => (AMF.Internals.Tables.UML_Types.M_Connector_Kind, AMF.UML.Assembly),
                       --  kind
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  contract

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Connector_Contract_A_Connector,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  end

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Connector_End_A_Connector,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  featuringClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Feature_Featuring_Classifier_Classifier_Feature,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedConnector

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Connector_Redefined_Connector_A_Connector,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Connector;

   ------------------------------
   -- Create_UML_Connector_End --
   ------------------------------

   function Create_UML_Connector_End return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Connector_End,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Connector_Ends.UML_Connector_End_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  definingEnd
          12     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isOrdered
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isUnique
          14     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Integer, (False, 1)),
                       --  lower
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  lowerValue
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  partWithPort
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  role
          15     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Unlimited_Natural, (False, (False, 1))),
                       --  upper
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  upperValue
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Connector_End;

   -----------------------------------------
   -- Create_UML_Consider_Ignore_Fragment --
   -----------------------------------------

   function Create_UML_Consider_Ignore_Fragment return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Consider_Ignore_Fragment,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Consider_Ignore_Fragments.UML_Consider_Ignore_Fragment_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          18     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  enclosingInteraction
          19     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  enclosingOperand
          7      => (AMF.Internals.Tables.UML_Types.M_Interaction_Operator_Kind, AMF.UML.Seq_Operator),
                       --  interactionOperator
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  cfragmentGate

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Combined_Fragment_Cfragment_Gate_A_Combined_Fragment,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  covered

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Covered_Lifeline_Covered_By,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  generalOrdering

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_General_Ordering_A_Interaction_Fragment,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  message

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Consider_Ignore_Fragment_Message_A_Consider_Ignore_Fragment,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  operand

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Combined_Fragment_Operand_A_Combined_Fragment,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Consider_Ignore_Fragment;

   ---------------------------
   -- Create_UML_Constraint --
   ---------------------------

   function Create_UML_Constraint return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Constraint,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Constraints.UML_Constraint_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  specification
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  constrainedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Constraint_Constrained_Element_A_Constraint,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Constraint;

   -----------------------------
   -- Create_UML_Continuation --
   -----------------------------

   function Create_UML_Continuation return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Continuation,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Continuations.UML_Continuation_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          18     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  enclosingInteraction
          19     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  enclosingOperand
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  setting
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  covered

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Covered_Lifeline_Covered_By,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  generalOrdering

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_General_Ordering_A_Interaction_Fragment,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Continuation;

   -----------------------------
   -- Create_UML_Control_Flow --
   -----------------------------

   function Create_UML_Control_Flow return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Control_Flow,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Control_Flows.UML_Control_Flow_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  guard
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  interrupts
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  source
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  target
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  weight
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_In_Group_Activity_Group_Contained_Edge,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_In_Partition_Activity_Partition_Edge,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedEdge

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_Redefined_Edge_A_Activity_Edge,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Control_Flow;

   -----------------------------------
   -- Create_UML_Create_Link_Action --
   -----------------------------------

   function Create_UML_Create_Link_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Create_Link_Actions.UML_Create_Link_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  endData

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Create_Link_Action_End_Data_A_Create_Link_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  endData

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_Action_End_Data_A_Link_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  inputValue

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_Action_Input_Value_A_Link_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Create_Link_Action;

   ------------------------------------------
   -- Create_UML_Create_Link_Object_Action --
   ------------------------------------------

   function Create_UML_Create_Link_Object_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Create_Link_Object_Actions.UML_Create_Link_Object_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  result
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  endData

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Create_Link_Action_End_Data_A_Create_Link_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  endData

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_Action_End_Data_A_Link_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  inputValue

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_Action_Input_Value_A_Link_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Create_Link_Object_Action;

   -------------------------------------
   -- Create_UML_Create_Object_Action --
   -------------------------------------

   function Create_UML_Create_Object_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Create_Object_Actions.UML_Create_Object_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  classifier
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  result
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Create_Object_Action;

   ---------------------------------------
   -- Create_UMLDI_UML_Activity_Diagram --
   ---------------------------------------

   function Create_UMLDI_UML_Activity_Diagram return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Activity_Diagram,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UMLDI_UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Bounds, (Is_Empty => True)),
                       --  bounds
          18     => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  documentation
          20     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  heading
          24     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isActivityFrame
          21     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isFrame
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isIcon
          22     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isIso
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          25     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          23     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          2      => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          19     => (AMF.Internals.Tables.UML_Types.M_Real, 3.00000000000000E+02),
                       --  resolution
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  modelElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      return Self;
   end Create_UMLDI_UML_Activity_Diagram;

   --------------------------------------------
   -- Create_UMLDI_UML_Association_End_Label --
   --------------------------------------------

   function Create_UMLDI_UML_Association_End_Label return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Association_End_Label,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UMLDI_UML_Association_End_Labels.UMLDI_UML_Association_End_Label_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Bounds, (Is_Empty => True)),
                       --  bounds
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isIcon
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          1      => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  text
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  modelElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      return Self;
   end Create_UMLDI_UML_Association_End_Label;

   -------------------------------------------------------------
   -- Create_UMLDI_UML_Association_Or_Connector_Or_Link_Shape --
   -------------------------------------------------------------

   function Create_UMLDI_UML_Association_Or_Connector_Or_Link_Shape return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Association_Or_Connector_Or_Link_Shape,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UMLDI_UML_Association_Or_Connector_Or_Link_Shapes.UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Bounds, (Is_Empty => True)),
                       --  bounds
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isIcon
          1      => (AMF.Internals.Tables.UML_Types.M_UML_Association_Or_Connector_Or_Link_Shape_Kind, AMF.UMLDI.Diamond),
                       --  kind
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  modelElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      return Self;
   end Create_UMLDI_UML_Association_Or_Connector_Or_Link_Shape;

   ------------------------------------
   -- Create_UMLDI_UML_Class_Diagram --
   ------------------------------------

   function Create_UMLDI_UML_Class_Diagram return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Class_Diagram,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UMLDI_UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Bounds, (Is_Empty => True)),
                       --  bounds
          18     => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  documentation
          20     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  heading
          23     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAssociationDotShown
          21     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isFrame
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isIcon
          22     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isIso
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          2      => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          24     => (AMF.Internals.Tables.UML_Types.M_UML_Navigability_Notation_Kind, AMF.UMLDI.Always),
                       --  navigabilityNotation
          25     => (AMF.Internals.Tables.UML_Types.M_UML_Navigability_Notation_Kind, AMF.UMLDI.Never),
                       --  nonNavigabilityNotation
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          19     => (AMF.Internals.Tables.UML_Types.M_Real, 3.00000000000000E+02),
                       --  resolution
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  modelElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      return Self;
   end Create_UMLDI_UML_Class_Diagram;

   ---------------------------------------
   -- Create_UMLDI_UML_Classifier_Shape --
   ---------------------------------------

   function Create_UMLDI_UML_Classifier_Shape return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Classifier_Shape,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UMLDI_UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Bounds, (Is_Empty => True)),
                       --  bounds
          1      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isDoubleSided
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isIcon
          2      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isIndentForVisibility
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  compartment

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Compartmentable_Shape_Compartment_A_Compartmented_Shape,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  modelElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      return Self;
   end Create_UMLDI_UML_Classifier_Shape;

   ----------------------------------
   -- Create_UMLDI_UML_Compartment --
   ----------------------------------

   function Create_UMLDI_UML_Compartment return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Compartment,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UMLDI_UML_Compartments.UMLDI_UML_Compartment_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isIcon
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  elementInCompartment

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Compartment_Element_In_Compartment_A_Owning_Compartment,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  modelElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      return Self;
   end Create_UMLDI_UML_Compartment;

   --------------------------------------------
   -- Create_UMLDI_UML_Compartmentable_Shape --
   --------------------------------------------

   function Create_UMLDI_UML_Compartmentable_Shape return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Compartmentable_Shape,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UMLDI_UML_Compartmentable_Shapes.UMLDI_UML_Compartmentable_Shape_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Bounds, (Is_Empty => True)),
                       --  bounds
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isIcon
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  compartment

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Compartmentable_Shape_Compartment_A_Compartmented_Shape,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  modelElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      return Self;
   end Create_UMLDI_UML_Compartmentable_Shape;

   ----------------------------------------
   -- Create_UMLDI_UML_Component_Diagram --
   ----------------------------------------

   function Create_UMLDI_UML_Component_Diagram return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Component_Diagram,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UMLDI_UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Bounds, (Is_Empty => True)),
                       --  bounds
          18     => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  documentation
          20     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  heading
          21     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isFrame
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isIcon
          22     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isIso
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          2      => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          19     => (AMF.Internals.Tables.UML_Types.M_Real, 3.00000000000000E+02),
                       --  resolution
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  modelElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      return Self;
   end Create_UMLDI_UML_Component_Diagram;

   --------------------------------------------------
   -- Create_UMLDI_UML_Composite_Structure_Diagram --
   --------------------------------------------------

   function Create_UMLDI_UML_Composite_Structure_Diagram return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Composite_Structure_Diagram,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UMLDI_UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Bounds, (Is_Empty => True)),
                       --  bounds
          18     => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  documentation
          20     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  heading
          23     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAssociationDotShown
          21     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isFrame
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isIcon
          22     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isIso
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          2      => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          24     => (AMF.Internals.Tables.UML_Types.M_UML_Navigability_Notation_Kind, AMF.UMLDI.Always),
                       --  navigabilityNotation
          25     => (AMF.Internals.Tables.UML_Types.M_UML_Navigability_Notation_Kind, AMF.UMLDI.Never),
                       --  nonNavigabilityNotation
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          19     => (AMF.Internals.Tables.UML_Types.M_Real, 3.00000000000000E+02),
                       --  resolution
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  modelElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      return Self;
   end Create_UMLDI_UML_Composite_Structure_Diagram;

   -----------------------------------------
   -- Create_UMLDI_UML_Deployment_Diagram --
   -----------------------------------------

   function Create_UMLDI_UML_Deployment_Diagram return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Deployment_Diagram,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UMLDI_UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Bounds, (Is_Empty => True)),
                       --  bounds
          18     => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  documentation
          20     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  heading
          21     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isFrame
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isIcon
          22     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isIso
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          2      => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          19     => (AMF.Internals.Tables.UML_Types.M_Real, 3.00000000000000E+02),
                       --  resolution
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  modelElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      return Self;
   end Create_UMLDI_UML_Deployment_Diagram;

   ---------------------------
   -- Create_UMLDI_UML_Edge --
   ---------------------------

   function Create_UMLDI_UML_Edge return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Edge,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UMLDI_UML_Edges.UMLDI_UML_Edge_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isIcon
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  source
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  source
          5      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  target
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  target
          3      => (AMF.Internals.Tables.UML_Types.M_Collection_Of_Point, 0),
                       --  waypoint
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  modelElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      return Self;
   end Create_UMLDI_UML_Edge;

   ------------------------------------------
   -- Create_UMLDI_UML_Interaction_Diagram --
   ------------------------------------------

   function Create_UMLDI_UML_Interaction_Diagram return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Diagram,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UMLDI_UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Bounds, (Is_Empty => True)),
                       --  bounds
          18     => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  documentation
          20     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  heading
          21     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isFrame
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isIcon
          22     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isIso
          24     => (AMF.Internals.Tables.UML_Types.M_UML_Interaction_Diagram_Kind, AMF.UMLDI.Sequence),
                       --  kind
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          23     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          25     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          2      => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          19     => (AMF.Internals.Tables.UML_Types.M_Real, 3.00000000000000E+02),
                       --  resolution
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  modelElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      return Self;
   end Create_UMLDI_UML_Interaction_Diagram;

   ----------------------------------------------
   -- Create_UMLDI_UML_Interaction_Table_Label --
   ----------------------------------------------

   function Create_UMLDI_UML_Interaction_Table_Label return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Table_Label,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UMLDI_UML_Interaction_Table_Labels.UMLDI_UML_Interaction_Table_Label_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Bounds, (Is_Empty => True)),
                       --  bounds
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isIcon
          2      => (AMF.Internals.Tables.UML_Types.M_UML_Interaction_Table_Label_Kind, AMF.UMLDI.Constraint),
                       --  kind
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          1      => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  text
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  modelElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      return Self;
   end Create_UMLDI_UML_Interaction_Table_Label;

   ------------------------------------
   -- Create_UMLDI_UML_Keyword_Label --
   ------------------------------------

   function Create_UMLDI_UML_Keyword_Label return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Keyword_Label,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UMLDI_UML_Keyword_Labels.UMLDI_UML_Keyword_Label_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Bounds, (Is_Empty => True)),
                       --  bounds
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isIcon
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          1      => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  text
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  modelElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      return Self;
   end Create_UMLDI_UML_Keyword_Label;

   ----------------------------
   -- Create_UMLDI_UML_Label --
   ----------------------------

   function Create_UMLDI_UML_Label return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Label,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UMLDI_UML_Labels.UMLDI_UML_Label_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Bounds, (Is_Empty => True)),
                       --  bounds
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isIcon
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          1      => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  text
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  modelElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      return Self;
   end Create_UMLDI_UML_Label;

   -----------------------------------------
   -- Create_UMLDI_UML_Multiplicity_Label --
   -----------------------------------------

   function Create_UMLDI_UML_Multiplicity_Label return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Multiplicity_Label,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UMLDI_UML_Multiplicity_Labels.UMLDI_UML_Multiplicity_Label_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Bounds, (Is_Empty => True)),
                       --  bounds
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isIcon
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          1      => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  text
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  modelElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      return Self;
   end Create_UMLDI_UML_Multiplicity_Label;

   ---------------------------------
   -- Create_UMLDI_UML_Name_Label --
   ---------------------------------

   function Create_UMLDI_UML_Name_Label return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Name_Label,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UMLDI_UML_Name_Labels.UMLDI_UML_Name_Label_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Bounds, (Is_Empty => True)),
                       --  bounds
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isIcon
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modeElement
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          1      => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  text
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  modelElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      return Self;
   end Create_UMLDI_UML_Name_Label;

   -------------------------------------
   -- Create_UMLDI_UML_Object_Diagram --
   -------------------------------------

   function Create_UMLDI_UML_Object_Diagram return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Object_Diagram,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UMLDI_UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Bounds, (Is_Empty => True)),
                       --  bounds
          18     => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  documentation
          20     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  heading
          21     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isFrame
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isIcon
          22     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isIso
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          2      => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          19     => (AMF.Internals.Tables.UML_Types.M_Real, 3.00000000000000E+02),
                       --  resolution
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  modelElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      return Self;
   end Create_UMLDI_UML_Object_Diagram;

   --------------------------------------
   -- Create_UMLDI_UML_Package_Diagram --
   --------------------------------------

   function Create_UMLDI_UML_Package_Diagram return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Package_Diagram,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UMLDI_UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Bounds, (Is_Empty => True)),
                       --  bounds
          18     => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  documentation
          20     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  heading
          21     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isFrame
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isIcon
          22     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isIso
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          2      => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          19     => (AMF.Internals.Tables.UML_Types.M_Real, 3.00000000000000E+02),
                       --  resolution
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  modelElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      return Self;
   end Create_UMLDI_UML_Package_Diagram;

   --------------------------------------
   -- Create_UMLDI_UML_Profile_Diagram --
   --------------------------------------

   function Create_UMLDI_UML_Profile_Diagram return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Profile_Diagram,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UMLDI_UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Bounds, (Is_Empty => True)),
                       --  bounds
          18     => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  documentation
          20     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  heading
          21     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isFrame
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isIcon
          22     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isIso
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          2      => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          19     => (AMF.Internals.Tables.UML_Types.M_Real, 3.00000000000000E+02),
                       --  resolution
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  modelElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      return Self;
   end Create_UMLDI_UML_Profile_Diagram;

   --------------------------------------
   -- Create_UMLDI_UML_Redefines_Label --
   --------------------------------------

   function Create_UMLDI_UML_Redefines_Label return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Redefines_Label,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UMLDI_UML_Redefines_Labels.UMLDI_UML_Redefines_Label_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Bounds, (Is_Empty => True)),
                       --  bounds
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isIcon
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          1      => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  text
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  modelElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      return Self;
   end Create_UMLDI_UML_Redefines_Label;

   ----------------------------
   -- Create_UMLDI_UML_Shape --
   ----------------------------

   function Create_UMLDI_UML_Shape return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Shape,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UMLDI_UML_Shapes.UMLDI_UML_Shape_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Bounds, (Is_Empty => True)),
                       --  bounds
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isIcon
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  modelElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      return Self;
   end Create_UMLDI_UML_Shape;

   --------------------------------------------
   -- Create_UMLDI_UML_State_Machine_Diagram --
   --------------------------------------------

   function Create_UMLDI_UML_State_Machine_Diagram return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Machine_Diagram,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UMLDI_UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Bounds, (Is_Empty => True)),
                       --  bounds
          18     => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  documentation
          20     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  heading
          24     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_UML_Inherited_State_Border_Kind, (Is_Empty => True)),
                       --  inheritedStateBorder
          25     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isCollapseStateIcon
          21     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isFrame
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isIcon
          22     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isIso
          26     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isTransitionOriented
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          23     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          27     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          2      => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          19     => (AMF.Internals.Tables.UML_Types.M_Real, 3.00000000000000E+02),
                       --  resolution
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  modelElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      return Self;
   end Create_UMLDI_UML_State_Machine_Diagram;

   ----------------------------------
   -- Create_UMLDI_UML_State_Shape --
   ----------------------------------

   function Create_UMLDI_UML_State_Shape return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Shape,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UMLDI_UML_State_Shapes.UMLDI_UML_State_Shape_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Bounds, (Is_Empty => True)),
                       --  bounds
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isIcon
          1      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isTabbed
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  compartment

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Compartmentable_Shape_Compartment_A_Compartmented_Shape,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  modelElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  modelElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_State_Shape_Model_Element_A_Uml_Diagram_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      return Self;
   end Create_UMLDI_UML_State_Shape;

   ------------------------------------------------------
   -- Create_UMLDI_UML_Stereotype_Property_Value_Label --
   ------------------------------------------------------

   function Create_UMLDI_UML_Stereotype_Property_Value_Label return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Stereotype_Property_Value_Label,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UMLDI_UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Bounds, (Is_Empty => True)),
                       --  bounds
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isIcon
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  stereotypedElement
          1      => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  text
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  modelElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      return Self;
   end Create_UMLDI_UML_Stereotype_Property_Value_Label;

   ----------------------------
   -- Create_UMLDI_UML_Style --
   ----------------------------

   function Create_UMLDI_UML_Style return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Style,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UMLDI_UML_Styles.UMLDI_UML_Style_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  fontName
          10     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Real, (Is_Empty => True)),
                       --  fontSize
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UMLDI_UML_Style;

   ------------------------------------------
   -- Create_UMLDI_UML_Typed_Element_Label --
   ------------------------------------------

   function Create_UMLDI_UML_Typed_Element_Label return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Typed_Element_Label,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UMLDI_UML_Typed_Element_Labels.UMLDI_UML_Typed_Element_Label_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Bounds, (Is_Empty => True)),
                       --  bounds
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isIcon
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          1      => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  text
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  modelElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      return Self;
   end Create_UMLDI_UML_Typed_Element_Label;

   ---------------------------------------
   -- Create_UMLDI_UML_Use_Case_Diagram --
   ---------------------------------------

   function Create_UMLDI_UML_Use_Case_Diagram return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Use_Case_Diagram,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UMLDI_UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Bounds, (Is_Empty => True)),
                       --  bounds
          18     => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  documentation
          20     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  heading
          21     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isFrame
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isIcon
          22     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isIso
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  localStyle
          23     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  modelElement
          2      => (AMF.Internals.Tables.UML_Types.M_String, Matreshka.Internals.Strings.Shared_Empty'Access),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningElement
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          19     => (AMF.Internals.Tables.UML_Types.M_Real, 3.00000000000000E+02),
                       --  resolution
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sharedStyle
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  modelElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      return Self;
   end Create_UMLDI_UML_Use_Case_Diagram;

   --------------------------------
   -- Create_UML_Data_Store_Node --
   --------------------------------

   function Create_UML_Data_Store_Node return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Data_Store_Node,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Data_Store_Nodes.UML_Data_Store_Node_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          17     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isControlType
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          18     => (AMF.Internals.Tables.UML_Types.M_Object_Node_Ordering_Kind, AMF.UML.FIFO),
                       --  ordering
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          19     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  selection
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          20     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  upperBound
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  inState

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_In_State_A_Object_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Data_Store_Node;

   --------------------------
   -- Create_UML_Data_Type --
   --------------------------

   function Create_UML_Data_Type return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Data_Type,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Data_Types.UML_Data_Type_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAbstract
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isFinalSpecialization
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  package
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  representation
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  attribute

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  collaborationUse

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  feature

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  general

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  generalization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inheritedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Data_Type_Owned_Attribute_Property_Datatype,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedOperation

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Data_Type_Owned_Operation_Operation_Datatype,
        UML_Element_Table.Table (Self).Member (0).Collection + 25);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  ownedUseCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  powertypeExtent

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  redefinedClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  substitution

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  useCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      return Self;
   end Create_UML_Data_Type;

   ------------------------------
   -- Create_UML_Decision_Node --
   ------------------------------

   function Create_UML_Decision_Node return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Decision_Node,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Decision_Nodes.UML_Decision_Node_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  decisionInput
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  decisionInputFlow
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Decision_Node;

   ---------------------------
   -- Create_UML_Dependency --
   ---------------------------

   function Create_UML_Dependency return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Dependency,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Dependencies.UML_Dependency_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  client

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Client_Named_Element_Client_Dependency,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  relatedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  source

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  supplier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Supplier_A_Supplier_Dependency,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  target

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Dependency;

   ---------------------------
   -- Create_UML_Deployment --
   ---------------------------

   function Create_UML_Deployment return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Deployment,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Deployments.UML_Deployment_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  location
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  client

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Client_Named_Element_Client_Dependency,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  configuration

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Configuration_Deployment_Specification_Deployment,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  deployedArtifact

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Deployed_Artifact_A_Deployment,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  relatedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  source

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  supplier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Supplier_A_Supplier_Dependency,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  target

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Deployment;

   -----------------------------------------
   -- Create_UML_Deployment_Specification --
   -----------------------------------------

   function Create_UML_Deployment_Specification return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Deployment_Specifications.UML_Deployment_Specification_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          18     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  deployment
          19     => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  deploymentLocation
          20     => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  executionLocation
          17     => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  fileName
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAbstract
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isFinalSpecialization
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  package
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  representation
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  attribute

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  collaborationUse

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  feature

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  general

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  generalization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inheritedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  manifestation

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Artifact_Manifestation_A_Artifact,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  nestedArtifact

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Artifact_Nested_Artifact_A_Artifact,
        UML_Element_Table.Table (Self).Member (0).Collection + 25);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Artifact_Owned_Attribute_A_Artifact,
        UML_Element_Table.Table (Self).Member (0).Collection + 26);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedOperation

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Artifact_Owned_Operation_A_Artifact,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  ownedUseCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  powertypeExtent

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  redefinedClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  substitution

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  useCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      return Self;
   end Create_UML_Deployment_Specification;

   ------------------------------------
   -- Create_UML_Destroy_Link_Action --
   ------------------------------------

   function Create_UML_Destroy_Link_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Destroy_Link_Actions.UML_Destroy_Link_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  endData

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Destroy_Link_Action_End_Data_A_Destroy_Link_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  endData

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_Action_End_Data_A_Link_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  inputValue

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_Action_Input_Value_A_Link_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Destroy_Link_Action;

   --------------------------------------
   -- Create_UML_Destroy_Object_Action --
   --------------------------------------

   function Create_UML_Destroy_Object_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Destroy_Object_Actions.UML_Destroy_Object_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          12     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isDestroyLinks
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isDestroyOwnedObjects
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  target
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Destroy_Object_Action;

   -----------------------------------------------------
   -- Create_UML_Destruction_Occurrence_Specification --
   -----------------------------------------------------

   function Create_UML_Destruction_Occurrence_Specification return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Destruction_Occurrence_Specification,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Destruction_Occurrence_Specifications.UML_Destruction_Occurrence_Specification_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  covered
          18     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  enclosingInteraction
          19     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  enclosingOperand
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  message
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  covered

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Covered_Lifeline_Covered_By,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  generalOrdering

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_General_Ordering_A_Interaction_Fragment,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  toAfter

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Occurrence_Specification_To_After_General_Ordering_Before,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  toBefore

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Occurrence_Specification_To_Before_General_Ordering_After,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Destruction_Occurrence_Specification;

   -----------------------
   -- Create_UML_Device --
   -----------------------

   function Create_UML_Device return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Device,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Devices.UML_Device_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  classifierBehavior
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAbstract
          20     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isActive
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isFinalSpecialization
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  package
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  representation
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  attribute

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  collaborationUse

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  deployedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployed_Element_A_Deployment_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  deployment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployment_Deployment_Location,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  extension

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Extension_Extension_Metaclass,
        UML_Element_Table.Table (Self).Member (0).Collection + 33);

      --  feature

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  general

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  generalization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inheritedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  interfaceRealization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 25);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  nestedClassifier

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Nested_Classifier_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 34);

      --  nestedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Node_Nested_Node_A_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 39);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Attribute_Property_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 35);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Attribute_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 28);

      --  ownedBehavior

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 26);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedConnector

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Connector_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 29);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedOperation

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Operation_Operation_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 36);

      --  ownedPort

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Encapsulated_Classifier_Owned_Port_A_Encapsulated_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 32);

      --  ownedReception

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Reception_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 37);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  ownedUseCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  part

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Part_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 30);

      --  powertypeExtent

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  redefinedClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  role

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Role_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 31);

      --  substitution

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  superClass

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Super_Class_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 38);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  useCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      return Self;
   end Create_UML_Device;

   -------------------------
   -- Create_UML_Duration --
   -------------------------

   function Create_UML_Duration return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Duration,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Durations.UML_Duration_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  expr
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  observation

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Duration_Observation_A_Duration,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Duration;

   ------------------------------------
   -- Create_UML_Duration_Constraint --
   ------------------------------------

   function Create_UML_Duration_Constraint return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Duration_Constraint,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Duration_Constraints.UML_Duration_Constraint_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          12     => (AMF.Internals.Tables.UML_Types.M_Collection_Of_Boolean, 0),
                       --  firstEvent
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  specification
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  specification
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  specification
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  constrainedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Constraint_Constrained_Element_A_Constraint,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Duration_Constraint;

   ----------------------------------
   -- Create_UML_Duration_Interval --
   ----------------------------------

   function Create_UML_Duration_Interval return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Duration_Interval,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Duration_Intervals.UML_Duration_Interval_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  max
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  max
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  min
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  min
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Duration_Interval;

   -------------------------------------
   -- Create_UML_Duration_Observation --
   -------------------------------------

   function Create_UML_Duration_Observation return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Duration_Observation,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Duration_Observations.UML_Duration_Observation_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          12     => (AMF.Internals.Tables.UML_Types.M_Collection_Of_Boolean, 0),
                       --  firstEvent
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  event

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Duration_Observation_Event_A_Duration_Observation,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Duration_Observation;

   -------------------------------
   -- Create_UML_Element_Import --
   -------------------------------

   function Create_UML_Element_Import return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Element_Import,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Element_Imports.UML_Element_Import_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          3      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  alias
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  importedElement
          5      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  importingNamespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          2      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind, AMF.UML.Public_Visibility),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  relatedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  source

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  target

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Element_Import;

   ----------------------------
   -- Create_UML_Enumeration --
   ----------------------------

   function Create_UML_Enumeration return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Enumeration,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Enumerations.UML_Enumeration_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAbstract
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isFinalSpecialization
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  package
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  representation
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  attribute

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  collaborationUse

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  feature

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  general

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  generalization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inheritedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Data_Type_Owned_Attribute_Property_Datatype,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedLiteral

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Enumeration_Owned_Literal_Enumeration_Literal_Enumeration,
        UML_Element_Table.Table (Self).Member (0).Collection + 26);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedOperation

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Data_Type_Owned_Operation_Operation_Datatype,
        UML_Element_Table.Table (Self).Member (0).Collection + 25);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  ownedUseCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  powertypeExtent

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  redefinedClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  substitution

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  useCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      return Self;
   end Create_UML_Enumeration;

   ------------------------------------
   -- Create_UML_Enumeration_Literal --
   ------------------------------------

   function Create_UML_Enumeration_Literal return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Enumeration_Literal,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Enumeration_Literals.UML_Enumeration_Literal_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  classifier
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  enumeration
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  specification
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  classifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Instance_Specification_Classifier_A_Instance_Specification,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  deployedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployed_Element_A_Deployment_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  deployment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployment_Deployment_Location,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  slot

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Instance_Specification_Slot_Slot_Owning_Instance,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Enumeration_Literal;

   ----------------------------------
   -- Create_UML_Exception_Handler --
   ----------------------------------

   function Create_UML_Exception_Handler return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Exception_Handler,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Exception_Handlers.UML_Exception_Handler_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  exceptionInput
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  handlerBody
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  protectedNode
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  exceptionType

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Exception_Handler_Exception_Type_A_Exception_Handler,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Exception_Handler;

   --------------------------------------
   -- Create_UML_Execution_Environment --
   --------------------------------------

   function Create_UML_Execution_Environment return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Execution_Environments.UML_Execution_Environment_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  classifierBehavior
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAbstract
          20     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isActive
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isFinalSpecialization
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  package
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  representation
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  attribute

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  collaborationUse

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  deployedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployed_Element_A_Deployment_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  deployment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployment_Deployment_Location,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  extension

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Extension_Extension_Metaclass,
        UML_Element_Table.Table (Self).Member (0).Collection + 33);

      --  feature

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  general

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  generalization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inheritedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  interfaceRealization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 25);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  nestedClassifier

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Nested_Classifier_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 34);

      --  nestedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Node_Nested_Node_A_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 39);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Attribute_Property_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 35);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Attribute_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 28);

      --  ownedBehavior

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 26);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedConnector

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Connector_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 29);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedOperation

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Operation_Operation_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 36);

      --  ownedPort

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Encapsulated_Classifier_Owned_Port_A_Encapsulated_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 32);

      --  ownedReception

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Reception_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 37);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  ownedUseCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  part

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Part_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 30);

      --  powertypeExtent

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  redefinedClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  role

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Role_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 31);

      --  substitution

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  superClass

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Super_Class_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 38);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  useCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      return Self;
   end Create_UML_Execution_Environment;

   ---------------------------------------------------
   -- Create_UML_Execution_Occurrence_Specification --
   ---------------------------------------------------

   function Create_UML_Execution_Occurrence_Specification return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Execution_Occurrence_Specification,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Execution_Occurrence_Specifications.UML_Execution_Occurrence_Specification_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  covered
          18     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  enclosingInteraction
          19     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  enclosingOperand
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  execution
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  covered

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Covered_Lifeline_Covered_By,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  generalOrdering

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_General_Ordering_A_Interaction_Fragment,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  toAfter

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Occurrence_Specification_To_After_General_Ordering_Before,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  toBefore

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Occurrence_Specification_To_Before_General_Ordering_After,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Execution_Occurrence_Specification;

   -------------------------------
   -- Create_UML_Expansion_Node --
   -------------------------------

   function Create_UML_Expansion_Node return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Expansion_Nodes.UML_Expansion_Node_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          17     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isControlType
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          18     => (AMF.Internals.Tables.UML_Types.M_Object_Node_Ordering_Kind, AMF.UML.FIFO),
                       --  ordering
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  regionAsInput
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  regionAsOutput
          19     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  selection
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          20     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  upperBound
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  inState

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_In_State_A_Object_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Expansion_Node;

   ---------------------------------
   -- Create_UML_Expansion_Region --
   ---------------------------------

   function Create_UML_Expansion_Region return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Expansion_Regions.UML_Expansion_Region_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inActivity
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          16     => (AMF.Internals.Tables.UML_Types.M_Expansion_Kind, AMF.UML.Iterative),
                       --  mode
          15     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  mustIsolate
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  superGroup
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  containedEdge

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Contained_Edge_Activity_Edge_In_Group,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      --  containedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Contained_Node_Activity_Node_In_Group,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  edge

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Edge_Activity_Edge_In_Structured_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 26);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  inputElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Expansion_Region_Input_Element_Expansion_Node_Region_As_Input,
        UML_Element_Table.Table (Self).Member (0).Collection + 31);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  node

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Node_Activity_Node_In_Structured_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  outputElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Expansion_Region_Output_Element_Expansion_Node_Region_As_Output,
        UML_Element_Table.Table (Self).Member (0).Collection + 32);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  structuredNodeInput

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Structured_Node_Input_A_Structured_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 28);

      --  structuredNodeOutput

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Structured_Node_Output_A_Structured_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 29);

      --  subgroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Subgroup_Activity_Group_Super_Group,
        UML_Element_Table.Table (Self).Member (0).Collection + 25);

      --  variable

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Variable_Variable_Scope,
        UML_Element_Table.Table (Self).Member (0).Collection + 30);

      return Self;
   end Create_UML_Expansion_Region;

   ---------------------------
   -- Create_UML_Expression --
   ---------------------------

   function Create_UML_Expression return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Expression,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Expressions.UML_Expression_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          7      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  symbol
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  operand

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Expression_Operand_A_Expression,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Expression;

   -----------------------
   -- Create_UML_Extend --
   -----------------------

   function Create_UML_Extend return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Extend,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Extends.UML_Extend_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  condition
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  extendedCase
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  extension
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  extensionLocation

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Extend_Extension_Location_A_Extension,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  relatedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  source

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  target

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Extend;

   --------------------------
   -- Create_UML_Extension --
   --------------------------

   function Create_UML_Extension return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Extension,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Extensions.UML_Extension_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAbstract
          18     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isDerived
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isFinalSpecialization
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          17     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isRequired
          19     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  metaclass
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          20     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedEnd
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  package
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  representation
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  attribute

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  collaborationUse

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  endType

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_End_Type_A_Association,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  feature

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  general

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  generalization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inheritedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  memberEnd

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Member_End_Property_Association,
        UML_Element_Table.Table (Self).Member (0).Collection + 39);

      --  navigableOwnedEnd

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Navigable_Owned_End_A_Association,
        UML_Element_Table.Table (Self).Member (0).Collection + 40);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedEnd

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Owned_End_Property_Owning_Association,
        UML_Element_Table.Table (Self).Member (0).Collection + 41);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  ownedUseCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  powertypeExtent

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  redefinedClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  relatedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  substitution

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  useCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      return Self;
   end Create_UML_Extension;

   ------------------------------
   -- Create_UML_Extension_End --
   ------------------------------

   function Create_UML_Extension_End return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Extension_End,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Extension_Ends.UML_Extension_End_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          22     => (AMF.Internals.Tables.UML_Types.M_Aggregation_Kind, AMF.UML.None),
                       --  aggregation
          23     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  association
          25     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  associationEnd
          26     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  class
          27     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  datatype
          21     => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  default
          28     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  defaultValue
          29     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  interface
          20     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isComposite
          18     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isDerived
          30     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isDerivedUnion
          31     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isID
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          12     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isOrdered
          24     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isReadOnly
          17     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isStatic
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isUnique
          14     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Integer, (False, 0)),
                       --  lower
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  lowerValue
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          32     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  opposite
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          33     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningAssociation
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          19     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          34     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          15     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Unlimited_Natural, (False, (False, 1))),
                       --  upper
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  upperValue
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  deployedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployed_Element_A_Deployment_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  deployment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployment_Deployment_Location,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  end

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Connectable_Element_End_Connector_End_Role,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  featuringClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Feature_Featuring_Classifier_Classifier_Feature,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  qualifier

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Qualifier_Property_Association_End,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedProperty

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Redefined_Property_A_Property,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  subsettedProperty

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Subsetted_Property_A_Property,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      return Self;
   end Create_UML_Extension_End;

   --------------------------------
   -- Create_UML_Extension_Point --
   --------------------------------

   function Create_UML_Extension_Point return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Extension_Point,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Extension_Points.UML_Extension_Point_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  useCase
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Extension_Point;

   ----------------------------
   -- Create_UML_Final_State --
   ----------------------------

   function Create_UML_Final_State return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Final_State,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Final_States.UML_Final_State_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  container
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  doActivity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  entry
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  exit
          20     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isComposite
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          12     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isOrthogonal
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isSimple
          14     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isSubmachineState
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  redefinedState
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  redefinitionContext
          17     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  stateInvariant
          18     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  submachine
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  connection

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Connection_Connection_Point_Reference_State,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  connectionPoint

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Connection_Point_Pseudostate_State,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  deferrableTrigger

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Deferrable_Trigger_A_State,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Vertex_Incoming_Transition_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Vertex_Outgoing_Transition_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  region

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Region_Region_State,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      return Self;
   end Create_UML_Final_State;

   --------------------------------
   -- Create_UML_Flow_Final_Node --
   --------------------------------

   function Create_UML_Flow_Final_Node return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Flow_Final_Node,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Flow_Final_Nodes.UML_Flow_Final_Node_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Flow_Final_Node;

   --------------------------
   -- Create_UML_Fork_Node --
   --------------------------

   function Create_UML_Fork_Node return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Fork_Node,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Fork_Nodes.UML_Fork_Node_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Fork_Node;

   ----------------------------------
   -- Create_UML_Function_Behavior --
   ----------------------------------

   function Create_UML_Function_Behavior return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Function_Behaviors.UML_Function_Behavior_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          18     => (AMF.Internals.Tables.UML_Types.M_Collection_Of_String, 0),
                       --  body
          17     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  classifierBehavior
          21     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAbstract
          20     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isActive
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isFinalSpecialization
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          22     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isReentrant
          19     => (AMF.Internals.Tables.UML_Types.M_Collection_Of_String, 0),
                       --  language
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  package
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  representation
          23     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  specification
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  attribute

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  collaborationUse

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  extension

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Extension_Extension_Metaclass,
        UML_Element_Table.Table (Self).Member (0).Collection + 33);

      --  feature

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  general

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  generalization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inheritedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  interfaceRealization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 25);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  nestedClassifier

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Nested_Classifier_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 34);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Attribute_Property_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 35);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Attribute_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 28);

      --  ownedBehavior

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 26);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedConnector

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Connector_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 29);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedOperation

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Operation_Operation_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 36);

      --  ownedParameter

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Owned_Parameter_A_Behavior,
        UML_Element_Table.Table (Self).Member (0).Collection + 39);

      --  ownedParameterSet

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Owned_Parameter_Set_A_Behavior,
        UML_Element_Table.Table (Self).Member (0).Collection + 40);

      --  ownedPort

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Encapsulated_Classifier_Owned_Port_A_Encapsulated_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 32);

      --  ownedReception

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Reception_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 37);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  ownedUseCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  part

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Part_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 30);

      --  postcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Postcondition_A_Behavior,
        UML_Element_Table.Table (Self).Member (0).Collection + 41);

      --  powertypeExtent

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  precondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Precondition_A_Behavior,
        UML_Element_Table.Table (Self).Member (0).Collection + 42);

      --  redefinedBehavior

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Redefined_Behavior_A_Behavior,
        UML_Element_Table.Table (Self).Member (0).Collection + 43);

      --  redefinedClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  role

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Role_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 31);

      --  substitution

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  superClass

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Super_Class_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 38);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  useCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      return Self;
   end Create_UML_Function_Behavior;

   ---------------------
   -- Create_UML_Gate --
   ---------------------

   function Create_UML_Gate return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Gate,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Gates.UML_Gate_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  message
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Gate;

   ---------------------------------
   -- Create_UML_General_Ordering --
   ---------------------------------

   function Create_UML_General_Ordering return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_General_Ordering,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_General_Orderings.UML_General_Ordering_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  after
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  before
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_General_Ordering;

   -------------------------------
   -- Create_UML_Generalization --
   -------------------------------

   function Create_UML_Generalization return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Generalization,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Generalizations.UML_Generalization_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  general
          3      => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Boolean, (False, True)),
                       --  isSubstitutable
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  specific
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  generalizationSet

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Generalization_Generalization_Set_Generalization_Set_Generalization,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  relatedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  source

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  target

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Generalization;

   -----------------------------------
   -- Create_UML_Generalization_Set --
   -----------------------------------

   function Create_UML_Generalization_Set return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Generalization_Set,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Generalization_Sets.UML_Generalization_Set_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isCovering
          10     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isDisjoint
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  powertype
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  generalization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Generalization_Set_Generalization_Generalization_Generalization_Set,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Generalization_Set;

   ----------------------
   -- Create_UML_Image --
   ----------------------

   function Create_UML_Image return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Image,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Images.UML_Image_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  content
          3      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  format
          4      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  location
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Image;

   ------------------------
   -- Create_UML_Include --
   ------------------------

   function Create_UML_Include return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Include,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Includes.UML_Include_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  addition
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  includingCase
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  relatedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  source

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  target

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Include;

   ---------------------------------
   -- Create_UML_Information_Flow --
   ---------------------------------

   function Create_UML_Information_Flow return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Information_Flow,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Information_Flows.UML_Information_Flow_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  conveyed

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Information_Flow_Conveyed_A_Information_Flow,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  informationSource

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Information_Flow_Information_Source_A_Information_Flow,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  informationTarget

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Information_Flow_Information_Target_A_Information_Flow,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  realization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Information_Flow_Realization_A_Abstraction,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  realizingActivityEdge

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Information_Flow_Realizing_Activity_Edge_A_Information_Flow,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  realizingConnector

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Information_Flow_Realizing_Connector_A_Information_Flow,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  realizingMessage

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Information_Flow_Realizing_Message_A_Information_Flow,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  relatedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  source

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  target

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Information_Flow;

   ---------------------------------
   -- Create_UML_Information_Item --
   ---------------------------------

   function Create_UML_Information_Item return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Information_Item,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Information_Items.UML_Information_Item_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAbstract
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isFinalSpecialization
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  package
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  representation
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  attribute

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  collaborationUse

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  feature

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  general

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  generalization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inheritedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  ownedUseCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  powertypeExtent

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  redefinedClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  represented

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Information_Item_Represented_A_Representation,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  substitution

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  useCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      return Self;
   end Create_UML_Information_Item;

   -----------------------------
   -- Create_UML_Initial_Node --
   -----------------------------

   function Create_UML_Initial_Node return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Initial_Node,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Initial_Nodes.UML_Initial_Node_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Initial_Node;

   --------------------------
   -- Create_UML_Input_Pin --
   --------------------------

   function Create_UML_Input_Pin return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Input_Pin,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Input_Pins.UML_Input_Pin_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          21     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isControl
          17     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isControlType
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          12     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isOrdered
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isUnique
          14     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Integer, (False, 1)),
                       --  lower
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  lowerValue
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          18     => (AMF.Internals.Tables.UML_Types.M_Object_Node_Ordering_Kind, AMF.UML.FIFO),
                       --  ordering
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          19     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  selection
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          15     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Unlimited_Natural, (False, (False, 1))),
                       --  upper
          20     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  upperBound
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  upperValue
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  inState

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_In_State_A_Object_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Input_Pin;

   ---------------------------------------
   -- Create_UML_Instance_Specification --
   ---------------------------------------

   function Create_UML_Instance_Specification return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Instance_Specification,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Instance_Specifications.UML_Instance_Specification_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  specification
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  classifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Instance_Specification_Classifier_A_Instance_Specification,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  deployedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployed_Element_A_Deployment_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  deployment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployment_Deployment_Location,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  slot

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Instance_Specification_Slot_Slot_Owning_Instance,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Instance_Specification;

   -------------------------------
   -- Create_UML_Instance_Value --
   -------------------------------

   function Create_UML_Instance_Value return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Instance_Value,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Instance_Values.UML_Instance_Value_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  instance
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Instance_Value;

   ----------------------------
   -- Create_UML_Interaction --
   ----------------------------

   function Create_UML_Interaction return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Interaction,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Interactions.UML_Interaction_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  classifierBehavior
          21     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          18     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  enclosingInteraction
          19     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  enclosingOperand
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAbstract
          20     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isActive
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isFinalSpecialization
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          22     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isReentrant
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  package
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  representation
          23     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  specification
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  action

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Action_A_Interaction,
        UML_Element_Table.Table (Self).Member (0).Collection + 44);

      --  attribute

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  collaborationUse

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  covered

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Covered_Lifeline_Covered_By,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  extension

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Extension_Extension_Metaclass,
        UML_Element_Table.Table (Self).Member (0).Collection + 33);

      --  feature

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  formalGate

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Formal_Gate_A_Interaction,
        UML_Element_Table.Table (Self).Member (0).Collection + 45);

      --  fragment

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Interaction_Fragment_Enclosing_Interaction,
        UML_Element_Table.Table (Self).Member (0).Collection + 46);

      --  general

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  generalOrdering

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_General_Ordering_A_Interaction_Fragment,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  generalization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inheritedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  interfaceRealization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 25);

      --  lifeline

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Lifeline_Lifeline_Interaction,
        UML_Element_Table.Table (Self).Member (0).Collection + 47);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  message

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Message_Message_Interaction,
        UML_Element_Table.Table (Self).Member (0).Collection + 48);

      --  nestedClassifier

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Nested_Classifier_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 34);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Attribute_Property_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 35);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Attribute_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 28);

      --  ownedBehavior

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 26);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedConnector

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Connector_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 29);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedOperation

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Operation_Operation_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 36);

      --  ownedParameter

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Owned_Parameter_A_Behavior,
        UML_Element_Table.Table (Self).Member (0).Collection + 39);

      --  ownedParameterSet

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Owned_Parameter_Set_A_Behavior,
        UML_Element_Table.Table (Self).Member (0).Collection + 40);

      --  ownedPort

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Encapsulated_Classifier_Owned_Port_A_Encapsulated_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 32);

      --  ownedReception

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Reception_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 37);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  ownedUseCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  part

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Part_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 30);

      --  postcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Postcondition_A_Behavior,
        UML_Element_Table.Table (Self).Member (0).Collection + 41);

      --  powertypeExtent

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  precondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Precondition_A_Behavior,
        UML_Element_Table.Table (Self).Member (0).Collection + 42);

      --  redefinedBehavior

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Redefined_Behavior_A_Behavior,
        UML_Element_Table.Table (Self).Member (0).Collection + 43);

      --  redefinedClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  role

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Role_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 31);

      --  substitution

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  superClass

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Super_Class_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 38);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  useCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      return Self;
   end Create_UML_Interaction;

   ---------------------------------------
   -- Create_UML_Interaction_Constraint --
   ---------------------------------------

   function Create_UML_Interaction_Constraint return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Interaction_Constraint,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Interaction_Constraints.UML_Interaction_Constraint_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  maxint
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  minint
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  specification
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  constrainedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Constraint_Constrained_Element_A_Constraint,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Interaction_Constraint;

   ------------------------------------
   -- Create_UML_Interaction_Operand --
   ------------------------------------

   function Create_UML_Interaction_Operand return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Interaction_Operand,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Interaction_Operands.UML_Interaction_Operand_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          18     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  enclosingInteraction
          19     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  enclosingOperand
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  guard
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  covered

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Covered_Lifeline_Covered_By,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  fragment

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Operand_Fragment_Interaction_Fragment_Enclosing_Operand,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  generalOrdering

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_General_Ordering_A_Interaction_Fragment,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      return Self;
   end Create_UML_Interaction_Operand;

   --------------------------------
   -- Create_UML_Interaction_Use --
   --------------------------------

   function Create_UML_Interaction_Use return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Interaction_Use,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Interaction_Uses.UML_Interaction_Use_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          18     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  enclosingInteraction
          19     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  enclosingOperand
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  refersTo
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  returnValue
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  returnValueRecipient
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  actualGate

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Use_Actual_Gate_A_Interaction_Use,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  argument

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Use_Argument_A_Interaction_Use,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  covered

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Covered_Lifeline_Covered_By,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  generalOrdering

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_General_Ordering_A_Interaction_Fragment,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Interaction_Use;

   --------------------------
   -- Create_UML_Interface --
   --------------------------

   function Create_UML_Interface return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Interface,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Interfaces.UML_Interface_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAbstract
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isFinalSpecialization
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  package
          17     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  protocol
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  representation
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  attribute

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  collaborationUse

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  feature

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  general

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  generalization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inheritedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  nestedClassifier

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interface_Nested_Classifier_A_Interface,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interface_Owned_Attribute_Property_Interface,
        UML_Element_Table.Table (Self).Member (0).Collection + 25);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedOperation

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interface_Owned_Operation_Operation_Interface,
        UML_Element_Table.Table (Self).Member (0).Collection + 26);

      --  ownedReception

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interface_Owned_Reception_A_Interface,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  ownedUseCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  powertypeExtent

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  redefinedClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedInterface

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interface_Redefined_Interface_A_Interface,
        UML_Element_Table.Table (Self).Member (0).Collection + 28);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  substitution

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  useCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      return Self;
   end Create_UML_Interface;

   --------------------------------------
   -- Create_UML_Interface_Realization --
   --------------------------------------

   function Create_UML_Interface_Realization return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Interface_Realization,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Interface_Realizations.UML_Interface_Realization_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  contract
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  implementingClassifier
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  mapping
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  client

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Client_Named_Element_Client_Dependency,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  relatedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  source

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  supplier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Supplier_A_Supplier_Dependency,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  target

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Interface_Realization;

   ----------------------------------------------
   -- Create_UML_Interruptible_Activity_Region --
   ----------------------------------------------

   function Create_UML_Interruptible_Activity_Region return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Interruptible_Activity_Region,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Interruptible_Activity_Regions.UML_Interruptible_Activity_Region_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inActivity
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  superGroup
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  containedEdge

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Contained_Edge_Activity_Edge_In_Group,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      --  containedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Contained_Node_Activity_Node_In_Group,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  interruptingEdge

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interruptible_Activity_Region_Interrupting_Edge_Activity_Edge_Interrupts,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  node

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interruptible_Activity_Region_Node_Activity_Node_In_Interruptible_Region,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  subgroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Subgroup_Activity_Group_Super_Group,
        UML_Element_Table.Table (Self).Member (0).Collection + 25);

      return Self;
   end Create_UML_Interruptible_Activity_Region;

   -------------------------
   -- Create_UML_Interval --
   -------------------------

   function Create_UML_Interval return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Interval,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Intervals.UML_Interval_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  max
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  min
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Interval;

   ------------------------------------
   -- Create_UML_Interval_Constraint --
   ------------------------------------

   function Create_UML_Interval_Constraint return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Interval_Constraint,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Interval_Constraints.UML_Interval_Constraint_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  specification
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  specification
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  constrainedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Constraint_Constrained_Element_A_Constraint,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Interval_Constraint;

   --------------------------
   -- Create_UML_Join_Node --
   --------------------------

   function Create_UML_Join_Node return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Join_Node,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Join_Nodes.UML_Join_Node_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          10     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isCombineDuplicate
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  joinSpec
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Join_Node;

   -------------------------
   -- Create_UML_Lifeline --
   -------------------------

   function Create_UML_Lifeline return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Lifeline,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Lifelines.UML_Lifeline_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  decomposedAs
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  interaction
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  represents
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  selector
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  coveredBy

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Lifeline_Covered_By_Interaction_Fragment_Covered,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Lifeline;

   ---------------------------------------
   -- Create_UML_Link_End_Creation_Data --
   ---------------------------------------

   function Create_UML_Link_End_Creation_Data return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Link_End_Creation_Data,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Link_End_Creation_Datas.UML_Link_End_Creation_Data_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  end
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  insertAt
          14     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isReplaceAll
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  value
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  qualifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_End_Data_Qualifier_A_Link_End_Data,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      return Self;
   end Create_UML_Link_End_Creation_Data;

   ------------------------------
   -- Create_UML_Link_End_Data --
   ------------------------------

   function Create_UML_Link_End_Data return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Link_End_Data,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Link_End_Datas.UML_Link_End_Data_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  end
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  value
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  qualifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_End_Data_Qualifier_A_Link_End_Data,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      return Self;
   end Create_UML_Link_End_Data;

   ------------------------------------------
   -- Create_UML_Link_End_Destruction_Data --
   ------------------------------------------

   function Create_UML_Link_End_Destruction_Data return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Link_End_Destruction_Data,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Link_End_Destruction_Datas.UML_Link_End_Destruction_Data_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  destroyAt
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  end
          5      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isDestroyDuplicates
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  value
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  qualifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_End_Data_Qualifier_A_Link_End_Data,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      return Self;
   end Create_UML_Link_End_Destruction_Data;

   --------------------------------
   -- Create_UML_Literal_Boolean --
   --------------------------------

   function Create_UML_Literal_Boolean return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Literal_Boolean,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Literal_Booleans.UML_Literal_Boolean_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  value
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Literal_Boolean;

   --------------------------------
   -- Create_UML_Literal_Integer --
   --------------------------------

   function Create_UML_Literal_Integer return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Literal_Integer,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Literal_Integers.UML_Literal_Integer_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          7      => (AMF.Internals.Tables.UML_Types.M_Integer, 0),
                       --  value
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Literal_Integer;

   -----------------------------
   -- Create_UML_Literal_Null --
   -----------------------------

   function Create_UML_Literal_Null return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Literal_Null,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Literal_Nulls.UML_Literal_Null_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Literal_Null;

   -----------------------------
   -- Create_UML_Literal_Real --
   -----------------------------

   function Create_UML_Literal_Real return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Literal_Real,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Literal_Reals.UML_Literal_Real_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          7      => (AMF.Internals.Tables.UML_Types.M_Real, 0.0),
                       --  value
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Literal_Real;

   -------------------------------
   -- Create_UML_Literal_String --
   -------------------------------

   function Create_UML_Literal_String return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Literal_String,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Literal_Strings.UML_Literal_String_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          7      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  value
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Literal_String;

   ------------------------------------------
   -- Create_UML_Literal_Unlimited_Natural --
   ------------------------------------------

   function Create_UML_Literal_Unlimited_Natural return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Literal_Unlimited_Natural,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Literal_Unlimited_Naturals.UML_Literal_Unlimited_Natural_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          7      => (AMF.Internals.Tables.UML_Types.M_Unlimited_Natural, (False, 0)),
                       --  value
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Literal_Unlimited_Natural;

   --------------------------
   -- Create_UML_Loop_Node --
   --------------------------

   function Create_UML_Loop_Node return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Loop_Node,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Loop_Nodes.UML_Loop_Node_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  decider
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inActivity
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          17     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isTestedFirst
          15     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  mustIsolate
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  superGroup
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  bodyOutput

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Loop_Node_Body_Output_A_Loop_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 31);

      --  bodyPart

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Loop_Node_Body_Part_A_Loop_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 32);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  containedEdge

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Contained_Edge_Activity_Edge_In_Group,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      --  containedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Contained_Node_Activity_Node_In_Group,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  edge

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Edge_Activity_Edge_In_Structured_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 26);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  loopVariable

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Loop_Node_Loop_Variable_A_Loop_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 33);

      --  loopVariableInput

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Loop_Node_Loop_Variable_Input_A_Loop_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 34);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  node

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Node_Activity_Node_In_Structured_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  result

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Loop_Node_Result_A_Loop_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 35);

      --  setupPart

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Loop_Node_Setup_Part_A_Loop_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 36);

      --  structuredNodeInput

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Structured_Node_Input_A_Structured_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 28);

      --  structuredNodeOutput

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Structured_Node_Output_A_Structured_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 29);

      --  subgroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Subgroup_Activity_Group_Super_Group,
        UML_Element_Table.Table (Self).Member (0).Collection + 25);

      --  test

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Loop_Node_Test_A_Loop_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 37);

      --  variable

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Variable_Variable_Scope,
        UML_Element_Table.Table (Self).Member (0).Collection + 30);

      return Self;
   end Create_UML_Loop_Node;

   ------------------------------
   -- Create_UML_Manifestation --
   ------------------------------

   function Create_UML_Manifestation return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Manifestation,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Manifestations.UML_Manifestation_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  mapping
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  utilizedElement
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  client

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Client_Named_Element_Client_Dependency,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  relatedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  source

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  supplier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Supplier_A_Supplier_Dependency,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  target

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Manifestation;

   ---------------------------
   -- Create_UML_Merge_Node --
   ---------------------------

   function Create_UML_Merge_Node return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Merge_Node,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Merge_Nodes.UML_Merge_Node_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Merge_Node;

   ------------------------
   -- Create_UML_Message --
   ------------------------

   function Create_UML_Message return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Message,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Messages.UML_Message_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  connector
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  interaction
          9      => (AMF.Internals.Tables.UML_Types.M_Message_Kind, AMF.UML.Unknown),
                       --  messageKind
          10     => (AMF.Internals.Tables.UML_Types.M_Message_Sort, AMF.UML.Synch_Call),
                       --  messageSort
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  receiveEvent
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  sendEvent
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  signature
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  argument

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Message_Argument_A_Message,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Message;

   -------------------------------------------------
   -- Create_UML_Message_Occurrence_Specification --
   -------------------------------------------------

   function Create_UML_Message_Occurrence_Specification return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Message_Occurrence_Specification,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Message_Occurrence_Specifications.UML_Message_Occurrence_Specification_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  covered
          18     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  enclosingInteraction
          19     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  enclosingOperand
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  message
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  covered

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Covered_Lifeline_Covered_By,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  generalOrdering

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_General_Ordering_A_Interaction_Fragment,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  toAfter

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Occurrence_Specification_To_After_General_Ordering_Before,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  toBefore

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Occurrence_Specification_To_Before_General_Ordering_After,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Message_Occurrence_Specification;

   ----------------------
   -- Create_UML_Model --
   ----------------------

   function Create_UML_Model return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Model,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Models.UML_Model_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  URI
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nestingPackage
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          12     => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  viewpoint
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  nestedPackage

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Nested_Package_Package_Nesting_Package,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  ownedStereotype

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Owned_Stereotype_A_Owning_Package,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedType

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Owned_Type_Type_Package,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  packageMerge

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Package_Merge_Package_Merge_Receiving_Package,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  packagedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Packaged_Element_A_Owning_Package,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  profileApplication

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Profile_Application_Profile_Application_Applying_Package,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      return Self;
   end Create_UML_Model;

   ---------------------
   -- Create_UML_Node --
   ---------------------

   function Create_UML_Node return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Node,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Nodes.UML_Node_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  classifierBehavior
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAbstract
          20     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isActive
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isFinalSpecialization
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  package
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  representation
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  attribute

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  collaborationUse

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  deployedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployed_Element_A_Deployment_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  deployment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployment_Deployment_Location,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  extension

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Extension_Extension_Metaclass,
        UML_Element_Table.Table (Self).Member (0).Collection + 33);

      --  feature

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  general

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  generalization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inheritedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  interfaceRealization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 25);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  nestedClassifier

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Nested_Classifier_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 34);

      --  nestedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Node_Nested_Node_A_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 39);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Attribute_Property_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 35);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Attribute_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 28);

      --  ownedBehavior

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 26);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedConnector

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Connector_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 29);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedOperation

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Operation_Operation_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 36);

      --  ownedPort

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Encapsulated_Classifier_Owned_Port_A_Encapsulated_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 32);

      --  ownedReception

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Reception_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 37);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  ownedUseCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  part

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Part_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 30);

      --  powertypeExtent

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  redefinedClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  role

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Role_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 31);

      --  substitution

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  superClass

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Super_Class_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 38);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  useCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      return Self;
   end Create_UML_Node;

   ----------------------------
   -- Create_UML_Object_Flow --
   ----------------------------

   function Create_UML_Object_Flow return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Object_Flow,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Object_Flows.UML_Object_Flow_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  guard
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  interrupts
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          15     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isMulticast
          16     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isMultireceive
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          17     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  selection
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  source
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  target
          18     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  transformation
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  weight
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_In_Group_Activity_Group_Contained_Edge,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_In_Partition_Activity_Partition_Edge,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedEdge

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_Redefined_Edge_A_Activity_Edge,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Object_Flow;

   -----------------------------------------
   -- Create_UML_Occurrence_Specification --
   -----------------------------------------

   function Create_UML_Occurrence_Specification return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Occurrence_Specification,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Occurrence_Specifications.UML_Occurrence_Specification_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  covered
          18     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  enclosingInteraction
          19     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  enclosingOperand
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  covered

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Covered_Lifeline_Covered_By,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  generalOrdering

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_General_Ordering_A_Interaction_Fragment,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  toAfter

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Occurrence_Specification_To_After_General_Ordering_Before,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  toBefore

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Occurrence_Specification_To_Before_General_Ordering_After,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Occurrence_Specification;

   ------------------------------
   -- Create_UML_Opaque_Action --
   ------------------------------

   function Create_UML_Opaque_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Opaque_Actions.UML_Opaque_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          18     => (AMF.Internals.Tables.UML_Types.M_Collection_Of_String, 0),
                       --  body
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          19     => (AMF.Internals.Tables.UML_Types.M_Collection_Of_String, 0),
                       --  language
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  inputValue

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Opaque_Action_Input_Value_A_Opaque_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  outputValue

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Opaque_Action_Output_Value_A_Opaque_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Opaque_Action;

   --------------------------------
   -- Create_UML_Opaque_Behavior --
   --------------------------------

   function Create_UML_Opaque_Behavior return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Opaque_Behaviors.UML_Opaque_Behavior_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          18     => (AMF.Internals.Tables.UML_Types.M_Collection_Of_String, 0),
                       --  body
          17     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  classifierBehavior
          21     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAbstract
          20     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isActive
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isFinalSpecialization
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          22     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isReentrant
          19     => (AMF.Internals.Tables.UML_Types.M_Collection_Of_String, 0),
                       --  language
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  package
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  representation
          23     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  specification
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  attribute

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  collaborationUse

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  extension

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Extension_Extension_Metaclass,
        UML_Element_Table.Table (Self).Member (0).Collection + 33);

      --  feature

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  general

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  generalization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inheritedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  interfaceRealization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 25);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  nestedClassifier

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Nested_Classifier_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 34);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Attribute_Property_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 35);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Attribute_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 28);

      --  ownedBehavior

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 26);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedConnector

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Connector_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 29);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedOperation

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Operation_Operation_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 36);

      --  ownedParameter

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Owned_Parameter_A_Behavior,
        UML_Element_Table.Table (Self).Member (0).Collection + 39);

      --  ownedParameterSet

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Owned_Parameter_Set_A_Behavior,
        UML_Element_Table.Table (Self).Member (0).Collection + 40);

      --  ownedPort

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Encapsulated_Classifier_Owned_Port_A_Encapsulated_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 32);

      --  ownedReception

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Reception_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 37);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  ownedUseCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  part

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Part_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 30);

      --  postcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Postcondition_A_Behavior,
        UML_Element_Table.Table (Self).Member (0).Collection + 41);

      --  powertypeExtent

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  precondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Precondition_A_Behavior,
        UML_Element_Table.Table (Self).Member (0).Collection + 42);

      --  redefinedBehavior

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Redefined_Behavior_A_Behavior,
        UML_Element_Table.Table (Self).Member (0).Collection + 43);

      --  redefinedClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  role

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Role_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 31);

      --  substitution

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  superClass

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Super_Class_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 38);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  useCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      return Self;
   end Create_UML_Opaque_Behavior;

   ----------------------------------
   -- Create_UML_Opaque_Expression --
   ----------------------------------

   function Create_UML_Opaque_Expression return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Opaque_Expression,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Opaque_Expressions.UML_Opaque_Expression_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  behavior
          18     => (AMF.Internals.Tables.UML_Types.M_Collection_Of_String, 0),
                       --  body
          19     => (AMF.Internals.Tables.UML_Types.M_Collection_Of_String, 0),
                       --  language
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  result
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Opaque_Expression;

   --------------------------
   -- Create_UML_Operation --
   --------------------------

   function Create_UML_Operation return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Operation,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Operations.UML_Operation_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          18     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  bodyCondition
          19     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  class
          16     => (AMF.Internals.Tables.UML_Types.M_Call_Concurrency_Kind, AMF.UML.Sequential),
                       --  concurrency
          20     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  datatype
          21     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  interface
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAbstract
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          12     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isOrdered
          22     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isQuery
          17     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isStatic
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isUnique
          14     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Integer, (False, 1)),
                       --  lower
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          23     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          24     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          15     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Unlimited_Natural, (False, (False, 1))),
                       --  upper
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  featuringClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Feature_Featuring_Classifier_Classifier_Feature,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  method

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavioral_Feature_Method_Behavior_Specification,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedParameter

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavioral_Feature_Owned_Parameter_A_Owner_Formal_Param,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  ownedParameter

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Operation_Owned_Parameter_Parameter_Operation,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  ownedParameterSet

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavioral_Feature_Owned_Parameter_Set_A_Behavioral_Feature,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  postcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Operation_Postcondition_A_Post_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  precondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Operation_Precondition_A_Pre_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  raisedException

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavioral_Feature_Raised_Exception_A_Behavioral_Feature,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  raisedException

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Operation_Raised_Exception_A_Operation,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedOperation

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Operation_Redefined_Operation_A_Operation,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      return Self;
   end Create_UML_Operation;

   ---------------------------------------------
   -- Create_UML_Operation_Template_Parameter --
   ---------------------------------------------

   function Create_UML_Operation_Template_Parameter return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Operation_Template_Parameter,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Operation_Template_Parameters.UML_Operation_Template_Parameter_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  default
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedDefault
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedParameteredElement
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  parameteredElement
          5      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  parameteredElement
          6      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  signature
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Operation_Template_Parameter;

   ---------------------------
   -- Create_UML_Output_Pin --
   ---------------------------

   function Create_UML_Output_Pin return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Output_Pin,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Output_Pins.UML_Output_Pin_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          21     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isControl
          17     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isControlType
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          12     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isOrdered
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isUnique
          14     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Integer, (False, 1)),
                       --  lower
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  lowerValue
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          18     => (AMF.Internals.Tables.UML_Types.M_Object_Node_Ordering_Kind, AMF.UML.FIFO),
                       --  ordering
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          19     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  selection
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          15     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Unlimited_Natural, (False, (False, 1))),
                       --  upper
          20     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  upperBound
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  upperValue
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  inState

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_In_State_A_Object_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Output_Pin;

   ------------------------
   -- Create_UML_Package --
   ------------------------

   function Create_UML_Package return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Package,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Packages.UML_Package_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  URI
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nestingPackage
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  nestedPackage

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Nested_Package_Package_Nesting_Package,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  ownedStereotype

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Owned_Stereotype_A_Owning_Package,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedType

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Owned_Type_Type_Package,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  packageMerge

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Package_Merge_Package_Merge_Receiving_Package,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  packagedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Packaged_Element_A_Owning_Package,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  profileApplication

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Profile_Application_Profile_Application_Applying_Package,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      return Self;
   end Create_UML_Package;

   -------------------------------
   -- Create_UML_Package_Import --
   -------------------------------

   function Create_UML_Package_Import return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Package_Import,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Package_Imports.UML_Package_Import_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  importedPackage
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  importingNamespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          2      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind, AMF.UML.Public_Visibility),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  relatedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  source

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  target

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Package_Import;

   ------------------------------
   -- Create_UML_Package_Merge --
   ------------------------------

   function Create_UML_Package_Merge return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Package_Merge,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Package_Merges.UML_Package_Merge_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  mergedPackage
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  receivingPackage
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  relatedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  source

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  target

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Package_Merge;

   --------------------------
   -- Create_UML_Parameter --
   --------------------------

   function Create_UML_Parameter return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Parameter,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Parameters.UML_Parameter_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          21     => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  default
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  defaultValue
          17     => (AMF.Internals.Tables.UML_Types.M_Parameter_Direction_Kind, AMF.UML.In_Parameter),
                       --  direction
          18     => (AMF.Internals.Tables.UML_Types.M_Parameter_Effect_Kind_Holder, (Is_Empty => True)),
                       --  effect
          20     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isException
          12     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isOrdered
          22     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isStream
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isUnique
          14     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Integer, (False, 1)),
                       --  lower
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  lowerValue
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          23     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  operation
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          19     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          15     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Unlimited_Natural, (False, (False, 1))),
                       --  upper
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  upperValue
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  end

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Connectable_Element_End_Connector_End_Role,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  parameterSet

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameter_Parameter_Set_Parameter_Set_Parameter,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      return Self;
   end Create_UML_Parameter;

   ------------------------------
   -- Create_UML_Parameter_Set --
   ------------------------------

   function Create_UML_Parameter_Set return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Parameter_Set,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Parameter_Sets.UML_Parameter_Set_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  condition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameter_Set_Condition_A_Parameter_Set,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  parameter

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameter_Set_Parameter_Parameter_Parameter_Set,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Parameter_Set;

   -----------------------------------
   -- Create_UML_Part_Decomposition --
   -----------------------------------

   function Create_UML_Part_Decomposition return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Part_Decomposition,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Part_Decompositions.UML_Part_Decomposition_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          18     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  enclosingInteraction
          19     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  enclosingOperand
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  refersTo
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  returnValue
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  returnValueRecipient
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  actualGate

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Use_Actual_Gate_A_Interaction_Use,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  argument

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Use_Argument_A_Interaction_Use,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  covered

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Covered_Lifeline_Covered_By,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  generalOrdering

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_General_Ordering_A_Interaction_Fragment,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Part_Decomposition;

   ---------------------
   -- Create_UML_Port --
   ---------------------

   function Create_UML_Port return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Port,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Ports.UML_Port_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          22     => (AMF.Internals.Tables.UML_Types.M_Aggregation_Kind, AMF.UML.None),
                       --  aggregation
          23     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  association
          25     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  associationEnd
          26     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  class
          27     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  datatype
          21     => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  default
          28     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  defaultValue
          29     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  interface
          34     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isBehavior
          20     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isComposite
          35     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isConjugated
          18     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isDerived
          30     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isDerivedUnion
          31     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isID
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          12     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isOrdered
          24     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isReadOnly
          36     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isService
          17     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isStatic
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isUnique
          14     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Integer, (False, 1)),
                       --  lower
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  lowerValue
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          32     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  opposite
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          33     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningAssociation
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          37     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  protocol
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          19     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          15     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Unlimited_Natural, (False, (False, 1))),
                       --  upper
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  upperValue
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  deployedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployed_Element_A_Deployment_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  deployment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployment_Deployment_Location,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  end

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Connectable_Element_End_Connector_End_Role,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  featuringClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Feature_Featuring_Classifier_Classifier_Feature,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  provided

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Port_Provided_A_Port,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  qualifier

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Qualifier_Property_Association_End,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedPort

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Port_Redefined_Port_A_Port,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  redefinedProperty

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Redefined_Property_A_Property,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  required

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Port_Required_A_Port,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  subsettedProperty

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Subsetted_Property_A_Property,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      return Self;
   end Create_UML_Port;

   -------------------------------
   -- Create_UML_Primitive_Type --
   -------------------------------

   function Create_UML_Primitive_Type return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Primitive_Types.UML_Primitive_Type_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAbstract
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isFinalSpecialization
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  package
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  representation
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  attribute

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  collaborationUse

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  feature

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  general

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  generalization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inheritedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Data_Type_Owned_Attribute_Property_Datatype,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedOperation

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Data_Type_Owned_Operation_Operation_Datatype,
        UML_Element_Table.Table (Self).Member (0).Collection + 25);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  ownedUseCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  powertypeExtent

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  redefinedClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  substitution

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  useCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      return Self;
   end Create_UML_Primitive_Type;

   ------------------------
   -- Create_UML_Profile --
   ------------------------

   function Create_UML_Profile return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Profile,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Profiles.UML_Profile_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  URI
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nestingPackage
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  metaclassReference

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Profile_Metaclass_Reference_A_Profile,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  metamodelReference

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Profile_Metamodel_Reference_A_Profile,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  nestedPackage

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Nested_Package_Package_Nesting_Package,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  ownedStereotype

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Owned_Stereotype_A_Owning_Package,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  ownedType

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Owned_Type_Type_Package,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  packageMerge

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Package_Merge_Package_Merge_Receiving_Package,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  packagedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Packaged_Element_A_Owning_Package,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  profileApplication

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Profile_Application_Profile_Application_Applying_Package,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      return Self;
   end Create_UML_Profile;

   ------------------------------------
   -- Create_UML_Profile_Application --
   ------------------------------------

   function Create_UML_Profile_Application return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Profile_Application,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Profile_Applications.UML_Profile_Application_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  appliedProfile
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  applyingPackage
          4      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isStrict
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  relatedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  source

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  target

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Profile_Application;

   -------------------------
   -- Create_UML_Property --
   -------------------------

   function Create_UML_Property return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Property,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Properties.UML_Property_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          22     => (AMF.Internals.Tables.UML_Types.M_Aggregation_Kind, AMF.UML.None),
                       --  aggregation
          23     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  association
          25     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  associationEnd
          26     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  class
          27     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  datatype
          21     => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  default
          28     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  defaultValue
          29     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  interface
          20     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isComposite
          18     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isDerived
          30     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isDerivedUnion
          31     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isID
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          12     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isOrdered
          24     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isReadOnly
          17     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isStatic
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isUnique
          14     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Integer, (False, 1)),
                       --  lower
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  lowerValue
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          32     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  opposite
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          33     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningAssociation
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          19     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          15     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Unlimited_Natural, (False, (False, 1))),
                       --  upper
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  upperValue
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  deployedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployed_Element_A_Deployment_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  deployment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployment_Deployment_Location,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  end

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Connectable_Element_End_Connector_End_Role,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  featuringClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Feature_Featuring_Classifier_Classifier_Feature,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  qualifier

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Qualifier_Property_Association_End,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedProperty

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Redefined_Property_A_Property,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  subsettedProperty

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Subsetted_Property_A_Property,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      return Self;
   end Create_UML_Property;

   -------------------------------------
   -- Create_UML_Protocol_Conformance --
   -------------------------------------

   function Create_UML_Protocol_Conformance return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Protocol_Conformance,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Protocol_Conformances.UML_Protocol_Conformance_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  generalMachine
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  specificMachine
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  relatedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  source

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  target

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Protocol_Conformance;

   ---------------------------------------
   -- Create_UML_Protocol_State_Machine --
   ---------------------------------------

   function Create_UML_Protocol_State_Machine return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Protocol_State_Machines.UML_Protocol_State_Machine_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  classifierBehavior
          21     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAbstract
          20     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isActive
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isFinalSpecialization
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          22     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isReentrant
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  package
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  representation
          23     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  specification
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  attribute

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  collaborationUse

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  conformance

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Protocol_State_Machine_Conformance_Protocol_Conformance_Specific_Machine,
        UML_Element_Table.Table (Self).Member (0).Collection + 46);

      --  connectionPoint

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Machine_Connection_Point_Pseudostate_State_Machine,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  extendedStateMachine

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Machine_Extended_State_Machine_A_State_Machine,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  extension

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Extension_Extension_Metaclass,
        UML_Element_Table.Table (Self).Member (0).Collection + 33);

      --  feature

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  general

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  generalization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inheritedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  interfaceRealization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 25);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  nestedClassifier

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Nested_Classifier_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 34);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Attribute_Property_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 35);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Attribute_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 28);

      --  ownedBehavior

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 26);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedConnector

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Connector_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 29);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedOperation

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Operation_Operation_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 36);

      --  ownedParameter

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Owned_Parameter_A_Behavior,
        UML_Element_Table.Table (Self).Member (0).Collection + 39);

      --  ownedParameterSet

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Owned_Parameter_Set_A_Behavior,
        UML_Element_Table.Table (Self).Member (0).Collection + 40);

      --  ownedPort

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Encapsulated_Classifier_Owned_Port_A_Encapsulated_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 32);

      --  ownedReception

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Reception_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 37);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  ownedUseCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  part

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Part_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 30);

      --  postcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Postcondition_A_Behavior,
        UML_Element_Table.Table (Self).Member (0).Collection + 41);

      --  powertypeExtent

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  precondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Precondition_A_Behavior,
        UML_Element_Table.Table (Self).Member (0).Collection + 42);

      --  redefinedBehavior

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Redefined_Behavior_A_Behavior,
        UML_Element_Table.Table (Self).Member (0).Collection + 43);

      --  redefinedClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  region

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Machine_Region_Region_State_Machine,
        UML_Element_Table.Table (Self).Member (0).Collection + 44);

      --  role

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Role_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 31);

      --  submachineState

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Machine_Submachine_State_State_Submachine,
        UML_Element_Table.Table (Self).Member (0).Collection + 45);

      --  substitution

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  superClass

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Super_Class_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 38);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  useCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      return Self;
   end Create_UML_Protocol_State_Machine;

   ------------------------------------
   -- Create_UML_Protocol_Transition --
   ------------------------------------

   function Create_UML_Protocol_Transition return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Protocol_Transitions.UML_Protocol_Transition_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  container
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  effect
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  guard
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Transition_Kind, AMF.UML.External),
                       --  kind
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  postCondition
          17     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  preCondition
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  redefinedTransition
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  redefinitionContext
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  source
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  target
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  referred

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Protocol_Transition_Referred_A_Protocol_Transition,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  trigger

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Trigger_A_Transition,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      return Self;
   end Create_UML_Protocol_Transition;

   ----------------------------
   -- Create_UML_Pseudostate --
   ----------------------------

   function Create_UML_Pseudostate return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Pseudostate,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Pseudostates.UML_Pseudostate_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  container
          7      => (AMF.Internals.Tables.UML_Types.M_Pseudostate_Kind, AMF.UML.Initial_Pseudostate),
                       --  kind
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  state
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  stateMachine
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Vertex_Incoming_Transition_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Vertex_Outgoing_Transition_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Pseudostate;

   --------------------------------
   -- Create_UML_Qualifier_Value --
   --------------------------------

   function Create_UML_Qualifier_Value return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Qualifier_Value,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Qualifier_Values.UML_Qualifier_Value_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  qualifier
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  value
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Qualifier_Value;

   ---------------------------------------
   -- Create_UML_Raise_Exception_Action --
   ---------------------------------------

   function Create_UML_Raise_Exception_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Raise_Exception_Actions.UML_Raise_Exception_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  exception
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Raise_Exception_Action;

   -----------------------------------
   -- Create_UML_Read_Extent_Action --
   -----------------------------------

   function Create_UML_Read_Extent_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Read_Extent_Actions.UML_Read_Extent_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  classifier
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  result
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Read_Extent_Action;

   -------------------------------------------------
   -- Create_UML_Read_Is_Classified_Object_Action --
   -------------------------------------------------

   function Create_UML_Read_Is_Classified_Object_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  classifier
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isDirect
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  object
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  result
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Read_Is_Classified_Object_Action;

   ---------------------------------
   -- Create_UML_Read_Link_Action --
   ---------------------------------

   function Create_UML_Read_Link_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Read_Link_Actions.UML_Read_Link_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  result
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  endData

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_Action_End_Data_A_Link_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  inputValue

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_Action_Input_Value_A_Link_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Read_Link_Action;

   --------------------------------------------
   -- Create_UML_Read_Link_Object_End_Action --
   --------------------------------------------

   function Create_UML_Read_Link_Object_End_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  end
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  object
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  result
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Read_Link_Object_End_Action;

   ------------------------------------------------------
   -- Create_UML_Read_Link_Object_End_Qualifier_Action --
   ------------------------------------------------------

   function Create_UML_Read_Link_Object_End_Qualifier_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  object
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  qualifier
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  result
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Read_Link_Object_End_Qualifier_Action;

   ---------------------------------
   -- Create_UML_Read_Self_Action --
   ---------------------------------

   function Create_UML_Read_Self_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Read_Self_Actions.UML_Read_Self_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  result
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Read_Self_Action;

   -----------------------------------------------
   -- Create_UML_Read_Structural_Feature_Action --
   -----------------------------------------------

   function Create_UML_Read_Structural_Feature_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  object
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  result
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  structuralFeature
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Read_Structural_Feature_Action;

   -------------------------------------
   -- Create_UML_Read_Variable_Action --
   -------------------------------------

   function Create_UML_Read_Variable_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Read_Variable_Actions.UML_Read_Variable_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  result
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  variable
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Read_Variable_Action;

   ----------------------------
   -- Create_UML_Realization --
   ----------------------------

   function Create_UML_Realization return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Realization,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Realizations.UML_Realization_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  mapping
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  client

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Client_Named_Element_Client_Dependency,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  relatedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  source

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  supplier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Supplier_A_Supplier_Dependency,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  target

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Realization;

   --------------------------
   -- Create_UML_Reception --
   --------------------------

   function Create_UML_Reception return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Reception,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Receptions.UML_Reception_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          16     => (AMF.Internals.Tables.UML_Types.M_Call_Concurrency_Kind, AMF.UML.Sequential),
                       --  concurrency
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAbstract
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          17     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isStatic
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  signal
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  featuringClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Feature_Featuring_Classifier_Classifier_Feature,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  method

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavioral_Feature_Method_Behavior_Specification,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedParameter

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavioral_Feature_Owned_Parameter_A_Owner_Formal_Param,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  ownedParameterSet

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavioral_Feature_Owned_Parameter_Set_A_Behavioral_Feature,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  raisedException

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavioral_Feature_Raised_Exception_A_Behavioral_Feature,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Reception;

   -----------------------------------------
   -- Create_UML_Reclassify_Object_Action --
   -----------------------------------------

   function Create_UML_Reclassify_Object_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Reclassify_Object_Actions.UML_Reclassify_Object_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          14     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isReplaceAll
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  object
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  newClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Reclassify_Object_Action_New_Classifier_A_Reclassify_Object_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  oldClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Reclassify_Object_Action_Old_Classifier_A_Reclassify_Object_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Reclassify_Object_Action;

   -----------------------------------------------
   -- Create_UML_Redefinable_Template_Signature --
   -----------------------------------------------

   function Create_UML_Redefinable_Template_Signature return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Redefinable_Template_Signature,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  classifier
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  template
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  extendedSignature

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Template_Signature_Extended_Signature_A_Redefinable_Template_Signature,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  inheritedParameter

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Template_Signature_Inherited_Parameter_A_Redefinable_Template_Signature,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedParameter

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Signature_Owned_Parameter_Template_Parameter_Signature,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  parameter

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Signature_Parameter_A_Template_Signature,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Redefinable_Template_Signature;

   ------------------------------
   -- Create_UML_Reduce_Action --
   ------------------------------

   function Create_UML_Reduce_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Reduce_Actions.UML_Reduce_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  collection
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          12     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isOrdered
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  reducer
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  result
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Reduce_Action;

   -----------------------
   -- Create_UML_Region --
   -----------------------

   function Create_UML_Region return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Region,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Regions.UML_Region_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  extendedRegion
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  redefinitionContext
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  state
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  stateMachine
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  subvertex

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Region_Subvertex_Vertex_Container,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  transition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Region_Transition_Transition_Container,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      return Self;
   end Create_UML_Region;

   -------------------------------------------------------
   -- Create_UML_Remove_Structural_Feature_Value_Action --
   -------------------------------------------------------

   function Create_UML_Remove_Structural_Feature_Value_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          14     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isRemoveDuplicates
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  object
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          17     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  removeAt
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  result
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  structuralFeature
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  value
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Remove_Structural_Feature_Value_Action;

   ---------------------------------------------
   -- Create_UML_Remove_Variable_Value_Action --
   ---------------------------------------------

   function Create_UML_Remove_Variable_Value_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          14     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isRemoveDuplicates
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  removeAt
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  value
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  variable
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Remove_Variable_Value_Action;

   -----------------------------
   -- Create_UML_Reply_Action --
   -----------------------------

   function Create_UML_Reply_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Reply_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Reply_Actions.UML_Reply_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  replyToCall
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  returnInformation
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  replyValue

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Reply_Action_Reply_Value_A_Reply_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      return Self;
   end Create_UML_Reply_Action;

   -----------------------------------
   -- Create_UML_Send_Object_Action --
   -----------------------------------

   function Create_UML_Send_Object_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Send_Object_Actions.UML_Send_Object_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  onPort
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  request
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  target
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  argument

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Invocation_Action_Argument_A_Invocation_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Send_Object_Action;

   -----------------------------------
   -- Create_UML_Send_Signal_Action --
   -----------------------------------

   function Create_UML_Send_Signal_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Send_Signal_Actions.UML_Send_Signal_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  onPort
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  signal
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  target
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  argument

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Invocation_Action_Argument_A_Invocation_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Send_Signal_Action;

   ------------------------------
   -- Create_UML_Sequence_Node --
   ------------------------------

   function Create_UML_Sequence_Node return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Sequence_Nodes.UML_Sequence_Node_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inActivity
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          15     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  mustIsolate
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  superGroup
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  containedEdge

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Contained_Edge_Activity_Edge_In_Group,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      --  containedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Contained_Node_Activity_Node_In_Group,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  edge

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Edge_Activity_Edge_In_Structured_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 26);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  executableNode

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Sequence_Node_Executable_Node_A_Sequence_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 31);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  node

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Node_Activity_Node_In_Structured_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  structuredNodeInput

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Structured_Node_Input_A_Structured_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 28);

      --  structuredNodeOutput

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Structured_Node_Output_A_Structured_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 29);

      --  subgroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Subgroup_Activity_Group_Super_Group,
        UML_Element_Table.Table (Self).Member (0).Collection + 25);

      --  variable

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Variable_Variable_Scope,
        UML_Element_Table.Table (Self).Member (0).Collection + 30);

      return Self;
   end Create_UML_Sequence_Node;

   -----------------------
   -- Create_UML_Signal --
   -----------------------

   function Create_UML_Signal return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Signal,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Signals.UML_Signal_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAbstract
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isFinalSpecialization
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  package
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  representation
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  attribute

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  collaborationUse

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  feature

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  general

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  generalization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inheritedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Signal_Owned_Attribute_A_Owning_Signal,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  ownedUseCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  powertypeExtent

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  redefinedClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  substitution

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  useCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      return Self;
   end Create_UML_Signal;

   -----------------------------
   -- Create_UML_Signal_Event --
   -----------------------------

   function Create_UML_Signal_Event return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Signal_Event,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Signal_Events.UML_Signal_Event_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  signal
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Signal_Event;

   ---------------------
   -- Create_UML_Slot --
   ---------------------

   function Create_UML_Slot return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Slot,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Slots.UML_Slot_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  definingFeature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningInstance
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  value

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Slot_Value_A_Owning_Slot,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      return Self;
   end Create_UML_Slot;

   -------------------------------------------------
   -- Create_UML_Start_Classifier_Behavior_Action --
   -------------------------------------------------

   function Create_UML_Start_Classifier_Behavior_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  object
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Start_Classifier_Behavior_Action;

   ---------------------------------------------
   -- Create_UML_Start_Object_Behavior_Action --
   ---------------------------------------------

   function Create_UML_Start_Object_Behavior_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isSynchronous
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  object
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  onPort
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  argument

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Invocation_Action_Argument_A_Invocation_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  result

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Call_Action_Result_A_Call_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      return Self;
   end Create_UML_Start_Object_Behavior_Action;

   ----------------------
   -- Create_UML_State --
   ----------------------

   function Create_UML_State return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_State,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_States.UML_State_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  container
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  doActivity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  entry
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  exit
          20     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isComposite
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          12     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isOrthogonal
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isSimple
          14     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isSubmachineState
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  redefinedState
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  redefinitionContext
          17     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  stateInvariant
          18     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  submachine
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  connection

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Connection_Connection_Point_Reference_State,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  connectionPoint

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Connection_Point_Pseudostate_State,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  deferrableTrigger

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Deferrable_Trigger_A_State,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Vertex_Incoming_Transition_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Vertex_Outgoing_Transition_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  region

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Region_Region_State,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      return Self;
   end Create_UML_State;

   --------------------------------
   -- Create_UML_State_Invariant --
   --------------------------------

   function Create_UML_State_Invariant return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_State_Invariant,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_State_Invariants.UML_State_Invariant_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  covered
          18     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  enclosingInteraction
          19     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  enclosingOperand
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  invariant
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  covered

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Covered_Lifeline_Covered_By,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  generalOrdering

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_General_Ordering_A_Interaction_Fragment,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_State_Invariant;

   ------------------------------
   -- Create_UML_State_Machine --
   ------------------------------

   function Create_UML_State_Machine return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_State_Machine,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_State_Machines.UML_State_Machine_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  classifierBehavior
          21     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAbstract
          20     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isActive
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isFinalSpecialization
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          22     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isReentrant
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  package
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  representation
          23     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  specification
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  attribute

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  collaborationUse

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  connectionPoint

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Machine_Connection_Point_Pseudostate_State_Machine,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  extendedStateMachine

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Machine_Extended_State_Machine_A_State_Machine,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  extension

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Extension_Extension_Metaclass,
        UML_Element_Table.Table (Self).Member (0).Collection + 33);

      --  feature

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  general

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  generalization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inheritedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  interfaceRealization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 25);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  nestedClassifier

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Nested_Classifier_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 34);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Attribute_Property_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 35);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Attribute_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 28);

      --  ownedBehavior

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 26);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedConnector

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Connector_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 29);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedOperation

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Operation_Operation_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 36);

      --  ownedParameter

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Owned_Parameter_A_Behavior,
        UML_Element_Table.Table (Self).Member (0).Collection + 39);

      --  ownedParameterSet

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Owned_Parameter_Set_A_Behavior,
        UML_Element_Table.Table (Self).Member (0).Collection + 40);

      --  ownedPort

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Encapsulated_Classifier_Owned_Port_A_Encapsulated_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 32);

      --  ownedReception

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Reception_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 37);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  ownedUseCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  part

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Part_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 30);

      --  postcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Postcondition_A_Behavior,
        UML_Element_Table.Table (Self).Member (0).Collection + 41);

      --  powertypeExtent

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  precondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Precondition_A_Behavior,
        UML_Element_Table.Table (Self).Member (0).Collection + 42);

      --  redefinedBehavior

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Redefined_Behavior_A_Behavior,
        UML_Element_Table.Table (Self).Member (0).Collection + 43);

      --  redefinedClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  region

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Machine_Region_Region_State_Machine,
        UML_Element_Table.Table (Self).Member (0).Collection + 44);

      --  role

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Role_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 31);

      --  submachineState

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Machine_Submachine_State_State_Submachine,
        UML_Element_Table.Table (Self).Member (0).Collection + 45);

      --  substitution

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  superClass

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Super_Class_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 38);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  useCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      return Self;
   end Create_UML_State_Machine;

   ---------------------------
   -- Create_UML_Stereotype --
   ---------------------------

   function Create_UML_Stereotype return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Stereotype,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Stereotypes.UML_Stereotype_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  classifierBehavior
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAbstract
          20     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isActive
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isFinalSpecialization
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  package
          18     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  profile
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  representation
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  attribute

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  collaborationUse

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  extension

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Extension_Extension_Metaclass,
        UML_Element_Table.Table (Self).Member (0).Collection + 33);

      --  feature

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  general

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  generalization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  icon

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Stereotype_Icon_A_Stereotype,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inheritedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  interfaceRealization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 25);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  nestedClassifier

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Nested_Classifier_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 34);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Attribute_Property_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 35);

      --  ownedAttribute

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Attribute_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 28);

      --  ownedBehavior

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 26);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedConnector

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Connector_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 29);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedOperation

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Operation_Operation_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 36);

      --  ownedPort

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Encapsulated_Classifier_Owned_Port_A_Encapsulated_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 32);

      --  ownedReception

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Reception_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 37);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  ownedUseCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  part

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Part_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 30);

      --  powertypeExtent

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  redefinedClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  role

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Role_A_Structured_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 31);

      --  substitution

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  superClass

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Super_Class_A_Class,
        UML_Element_Table.Table (Self).Member (0).Collection + 38);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  useCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      return Self;
   end Create_UML_Stereotype;

   ----------------------------------
   -- Create_UML_String_Expression --
   ----------------------------------

   function Create_UML_String_Expression return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_String_Expression,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_String_Expressions.UML_String_Expression_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningExpression
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          7      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  symbol
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  operand

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Expression_Operand_A_Expression,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  subExpression

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_String_Expression_Sub_Expression_String_Expression_Owning_Expression,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      return Self;
   end Create_UML_String_Expression;

   -----------------------------------------
   -- Create_UML_Structured_Activity_Node --
   -----------------------------------------

   function Create_UML_Structured_Activity_Node return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Structured_Activity_Nodes.UML_Structured_Activity_Node_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inActivity
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          15     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  mustIsolate
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  superGroup
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  containedEdge

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Contained_Edge_Activity_Edge_In_Group,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      --  containedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Contained_Node_Activity_Node_In_Group,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  edge

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Edge_Activity_Edge_In_Structured_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 26);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  node

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Node_Activity_Node_In_Structured_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  structuredNodeInput

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Structured_Node_Input_A_Structured_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 28);

      --  structuredNodeOutput

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Structured_Node_Output_A_Structured_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 29);

      --  subgroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Subgroup_Activity_Group_Super_Group,
        UML_Element_Table.Table (Self).Member (0).Collection + 25);

      --  variable

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Variable_Variable_Scope,
        UML_Element_Table.Table (Self).Member (0).Collection + 30);

      return Self;
   end Create_UML_Structured_Activity_Node;

   -----------------------------
   -- Create_UML_Substitution --
   -----------------------------

   function Create_UML_Substitution return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Substitution,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Substitutions.UML_Substitution_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  contract
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  mapping
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  substitutingClassifier
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  client

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Client_Named_Element_Client_Dependency,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  relatedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  source

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  supplier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Supplier_A_Supplier_Dependency,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  target

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Substitution;

   ---------------------------------
   -- Create_UML_Template_Binding --
   ---------------------------------

   function Create_UML_Template_Binding return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Template_Binding,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Template_Bindings.UML_Template_Binding_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  boundElement
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  signature
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  parameterSubstitution

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Binding_Parameter_Substitution_Template_Parameter_Substitution_Template_Binding,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  relatedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  source

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  target

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Template_Binding;

   -----------------------------------
   -- Create_UML_Template_Parameter --
   -----------------------------------

   function Create_UML_Template_Parameter return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Template_Parameters.UML_Template_Parameter_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  default
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedDefault
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedParameteredElement
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  parameteredElement
          6      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  signature
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Template_Parameter;

   ------------------------------------------------
   -- Create_UML_Template_Parameter_Substitution --
   ------------------------------------------------

   function Create_UML_Template_Parameter_Substitution return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter_Substitution,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Template_Parameter_Substitutions.UML_Template_Parameter_Substitution_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  actual
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  formal
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedActual
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateBinding
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Template_Parameter_Substitution;

   -----------------------------------
   -- Create_UML_Template_Signature --
   -----------------------------------

   function Create_UML_Template_Signature return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Template_Signature,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Template_Signatures.UML_Template_Signature_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  template
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedParameter

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Signature_Owned_Parameter_Template_Parameter_Signature,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  parameter

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Signature_Parameter_A_Template_Signature,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      return Self;
   end Create_UML_Template_Signature;

   -------------------------------------
   -- Create_UML_Test_Identity_Action --
   -------------------------------------

   function Create_UML_Test_Identity_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Test_Identity_Actions.UML_Test_Identity_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  first
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  result
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  second
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Test_Identity_Action;

   --------------------------------
   -- Create_UML_Time_Constraint --
   --------------------------------

   function Create_UML_Time_Constraint return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Time_Constraint,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Time_Constraints.UML_Time_Constraint_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          12     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Boolean, (False, True)),
                       --  firstEvent
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  specification
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  specification
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  specification
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  constrainedElement

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Constraint_Constrained_Element_A_Constraint,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Time_Constraint;

   ---------------------------
   -- Create_UML_Time_Event --
   ---------------------------

   function Create_UML_Time_Event return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Time_Event,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Time_Events.UML_Time_Event_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isRelative
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  when
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Time_Event;

   --------------------------------
   -- Create_UML_Time_Expression --
   --------------------------------

   function Create_UML_Time_Expression return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Time_Expression,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Time_Expressions.UML_Time_Expression_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  expr
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  observation

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Time_Expression_Observation_A_Time_Expression,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Time_Expression;

   ------------------------------
   -- Create_UML_Time_Interval --
   ------------------------------

   function Create_UML_Time_Interval return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Time_Interval,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Time_Intervals.UML_Time_Interval_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  max
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  max
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  min
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  min
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Time_Interval;

   ---------------------------------
   -- Create_UML_Time_Observation --
   ---------------------------------

   function Create_UML_Time_Observation return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Time_Observation,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Time_Observations.UML_Time_Observation_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  event
          10     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  firstEvent
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Time_Observation;

   ---------------------------
   -- Create_UML_Transition --
   ---------------------------

   function Create_UML_Transition return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Transition,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Transitions.UML_Transition_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  container
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  effect
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  guard
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Transition_Kind, AMF.UML.External),
                       --  kind
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  redefinedTransition
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  redefinitionContext
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  source
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  target
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  trigger

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Trigger_A_Transition,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      return Self;
   end Create_UML_Transition;

   ------------------------
   -- Create_UML_Trigger --
   ------------------------

   function Create_UML_Trigger return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Trigger,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Triggers.UML_Trigger_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  event
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  port

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Trigger_Port_A_Trigger,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      return Self;
   end Create_UML_Trigger;

   ----------------------------------
   -- Create_UML_Unmarshall_Action --
   ----------------------------------

   function Create_UML_Unmarshall_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Unmarshall_Actions.UML_Unmarshall_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  object
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  unmarshallType
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  result

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Unmarshall_Action_Result_A_Unmarshall_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      return Self;
   end Create_UML_Unmarshall_Action;

   ----------------------
   -- Create_UML_Usage --
   ----------------------

   function Create_UML_Usage return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Usage,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Usages.UML_Usage_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  client

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Client_Named_Element_Client_Dependency,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  relatedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  source

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  supplier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Supplier_A_Supplier_Dependency,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  target

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Usage;

   -------------------------
   -- Create_UML_Use_Case --
   -------------------------

   function Create_UML_Use_Case return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Use_Case,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Use_Cases.UML_Use_Case_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          17     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  classifierBehavior
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isAbstract
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isFinalSpecialization
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          14     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  ownedTemplateSignature
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  package
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          15     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  representation
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (False, AMF.UML.Public_Visibility)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  attribute

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  collaborationUse

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  elementImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  extend

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Use_Case_Extend_Extend_Extension,
        UML_Element_Table.Table (Self).Member (0).Collection + 24);

      --  extensionPoint

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Use_Case_Extension_Point_Extension_Point_Use_Case,
        UML_Element_Table.Table (Self).Member (0).Collection + 27);

      --  feature

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  general

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  generalization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  importedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 13);

      --  include

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Use_Case_Include_Include_Including_Case,
        UML_Element_Table.Table (Self).Member (0).Collection + 28);

      --  inheritedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  interfaceRealization

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 25);

      --  member

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 14);

      --  ownedBehavior

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 26);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  ownedMember

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 15);

      --  ownedRule

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context,
        UML_Element_Table.Table (Self).Member (0).Collection + 16);

      --  ownedUseCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  packageImport

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace,
        UML_Element_Table.Table (Self).Member (0).Collection + 17);

      --  powertypeExtent

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  redefinedClassifier

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      --  subject

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Use_Case_Subject_Classifier_Use_Case,
        UML_Element_Table.Table (Self).Member (0).Collection + 29);

      --  substitution

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  templateBinding

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  useCase

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject,
        UML_Element_Table.Table (Self).Member (0).Collection + 23);

      return Self;
   end Create_UML_Use_Case;

   --------------------------
   -- Create_UML_Value_Pin --
   --------------------------

   function Create_UML_Value_Pin return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Value_Pin,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Value_Pins.UML_Value_Pin_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          21     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isControl
          17     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isControlType
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          12     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isOrdered
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isUnique
          14     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Integer, (False, 1)),
                       --  lower
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  lowerValue
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          18     => (AMF.Internals.Tables.UML_Types.M_Object_Node_Ordering_Kind, AMF.UML.FIFO),
                       --  ordering
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          19     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  selection
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          15     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Unlimited_Natural, (False, (False, 1))),
                       --  upper
          20     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  upperBound
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  upperValue
          22     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  value
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  inState

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_In_State_A_Object_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 12);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Value_Pin;

   -------------------------------------------
   -- Create_UML_Value_Specification_Action --
   -------------------------------------------

   function Create_UML_Value_Specification_Action return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Value_Specification_Actions.UML_Value_Specification_Action_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activity
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  context
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  inStructuredNode
          7      => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLeaf
          11     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isLocallyReentrant
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          12     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  result
          13     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  value
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  handler

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 18);

      --  inGroup

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  inInterruptibleRegion

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 7);

      --  inPartition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 8);

      --  incoming

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target,
        UML_Element_Table.Table (Self).Member (0).Collection + 9);

      --  input

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 19);

      --  localPostcondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 20);

      --  localPrecondition

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 21);

      --  outgoing

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source,
        UML_Element_Table.Table (Self).Member (0).Collection + 10);

      --  output

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action,
        UML_Element_Table.Table (Self).Member (0).Collection + 22);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      --  redefinedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 4);

      --  redefinedNode

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node,
        UML_Element_Table.Table (Self).Member (0).Collection + 11);

      --  redefinitionContext

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 5);

      return Self;
   end Create_UML_Value_Specification_Action;

   -------------------------
   -- Create_UML_Variable --
   -------------------------

   function Create_UML_Variable return AMF.Internals.AMF_Element is
      Self : AMF.Internals.AMF_Element;

   begin
      UML_Element_Table.Increment_Last;
      Self := UML_Element_Table.Last;

      UML_Element_Table.Table (Self).all :=
       (Kind     => AMF.Internals.Tables.UML_Types.E_UML_Variable,
        Extent   => 0,
        Proxy    =>
          new AMF.Internals.UML_Variables.UML_Variable_Proxy'(Element => Self),
        Member   =>
         (0      => (Kind => AMF.Internals.Tables.UML_Types.M_None),
          7      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  activityScope
          12     => (AMF.Internals.Tables.UML_Types.M_Boolean, False),
                       --  isOrdered
          13     => (AMF.Internals.Tables.UML_Types.M_Boolean, True),
                       --  isUnique
          14     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Integer, (False, 1)),
                       --  lower
          10     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  lowerValue
          2      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  name
          3      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  nameExpression
          4      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  namespace
          1      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owner
          8      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  owningTemplateParameter
          5      => (AMF.Internals.Tables.UML_Types.M_String, null),
                       --  qualifiedName
          17     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  scope
          19     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          9      => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  templateParameter
          11     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  type
          15     => (AMF.Internals.Tables.UML_Types.M_Holder_Of_Unlimited_Natural, (False, (False, 1))),
                       --  upper
          16     => (AMF.Internals.Tables.UML_Types.M_Element, No_AMF_Link),
                       --  upperValue
          6      => (AMF.Internals.Tables.UML_Types.M_Visibility_Kind_Holder, (Is_Empty => True)),
                       --  visibility
          others => (Kind => AMF.Internals.Tables.UML_Types.M_None)));
      UML_Element_Table.Table (Self).Member (0) :=
       (AMF.Internals.Tables.UML_Types.M_Collection_Of_Element,
        AMF.Internals.Element_Collections.Allocate_Collections (246));

      --  clientDependency

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client,
        UML_Element_Table.Table (Self).Member (0).Collection + 3);

      --  end

      AMF.Internals.Element_Collections.Initialize_Ordered_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Connectable_Element_End_Connector_End_Role,
        UML_Element_Table.Table (Self).Member (0).Collection + 6);

      --  ownedComment

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element,
        UML_Element_Table.Table (Self).Member (0).Collection + 1);

      --  ownedElement

      AMF.Internals.Element_Collections.Initialize_Set_Collection
       (Self,
        AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner,
        UML_Element_Table.Table (Self).Member (0).Collection + 2);

      return Self;
   end Create_UML_Variable;

end AMF.Internals.Tables.UML_Constructors;