1------------------------------------------------------------------------------
2--                                                                          --
3--                            Matreshka Project                             --
4--                                                                          --
5--                          Ada Modeling Framework                          --
6--                                                                          --
7--                        Runtime Library Component                         --
8--                                                                          --
9------------------------------------------------------------------------------
10--                                                                          --
11-- Copyright © 2011-2012, Vadim Godunko <vgodunko@gmail.com>                --
12-- All rights reserved.                                                     --
13--                                                                          --
14-- Redistribution and use in source and binary forms, with or without       --
15-- modification, are permitted provided that the following conditions       --
16-- are met:                                                                 --
17--                                                                          --
18--  * Redistributions of source code must retain the above copyright        --
19--    notice, this list of conditions and the following disclaimer.         --
20--                                                                          --
21--  * Redistributions in binary form must reproduce the above copyright     --
22--    notice, this list of conditions and the following disclaimer in the   --
23--    documentation and/or other materials provided with the distribution.  --
24--                                                                          --
25--  * Neither the name of the Vadim Godunko, IE nor the names of its        --
26--    contributors may be used to endorse or promote products derived from  --
27--    this software without specific prior written permission.              --
28--                                                                          --
29-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS      --
30-- "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT        --
31-- LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR    --
32-- A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT     --
33-- HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,   --
34-- SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED --
35-- TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR   --
36-- PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF   --
37-- LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING     --
38-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS       --
39-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.             --
40--                                                                          --
41------------------------------------------------------------------------------
42--  $Revision: 3434 $ $Date: 2012-11-14 00:56:53 +0400 (Wed, 14 Nov 2012) $
43------------------------------------------------------------------------------
44--  This file is generated, don't edit it.
45------------------------------------------------------------------------------
46with AMF.Boolean_Collections.Internals;
47with AMF.CMOF.Elements;
48with AMF.DC.Holders;
49with AMF.DC.Point_Collections.Internals;
50with AMF.DI.Diagram_Elements.Collections;
51with AMF.DI.Styles;
52with AMF.Holders.Elements;
53with AMF.Holders.Reals;
54with AMF.Holders.Unlimited_Naturals;
55with AMF.Internals.Helpers;
56with AMF.Internals.Holders.CMOF_Holders;
57with AMF.Internals.Holders.DI_Holders;
58with AMF.Internals.Holders.UMLDI_Holders;
59with AMF.Internals.Holders.UML_Holders;
60with AMF.Internals.Tables.DI_Metamodel;
61with AMF.Internals.Tables.Standard_Profile_L2_Metamodel;
62with AMF.Internals.Tables.Standard_Profile_L3_Metamodel;
63with AMF.Internals.Tables.UMLDI_Metamodel;
64with AMF.Internals.Tables.UML_Element_Table;
65with AMF.Internals.Tables.UML_Metamodel;
66with AMF.Internals.Tables.UML_Types;
67with AMF.Standard_Profile_L2.Auxiliaries;
68with AMF.Standard_Profile_L2.Calls;
69with AMF.Standard_Profile_L2.Creates;
70with AMF.Standard_Profile_L2.Derives;
71with AMF.Standard_Profile_L2.Destroies;
72with AMF.Standard_Profile_L2.Documents;
73with AMF.Standard_Profile_L2.Entities;
74with AMF.Standard_Profile_L2.Executables;
75with AMF.Standard_Profile_L2.Focuses;
76with AMF.Standard_Profile_L2.Frameworks;
77with AMF.Standard_Profile_L2.Implementation_Classes;
78with AMF.Standard_Profile_L2.Implements;
79with AMF.Standard_Profile_L2.Instantiates;
80with AMF.Standard_Profile_L2.Libraries;
81with AMF.Standard_Profile_L2.Metaclasses;
82with AMF.Standard_Profile_L2.Model_Libraries;
83with AMF.Standard_Profile_L2.Processes;
84with AMF.Standard_Profile_L2.Realizations;
85with AMF.Standard_Profile_L2.Refines;
86with AMF.Standard_Profile_L2.Responsibilities;
87with AMF.Standard_Profile_L2.Scripts;
88with AMF.Standard_Profile_L2.Sends;
89with AMF.Standard_Profile_L2.Services;
90with AMF.Standard_Profile_L2.Sources;
91with AMF.Standard_Profile_L2.Specifications;
92with AMF.Standard_Profile_L2.Subsystems;
93with AMF.Standard_Profile_L2.Traces;
94with AMF.Standard_Profile_L2.Types;
95with AMF.Standard_Profile_L2.Utilities;
96with AMF.Standard_Profile_L3.Build_Components;
97with AMF.Standard_Profile_L3.Metamodels;
98with AMF.Standard_Profile_L3.System_Models;
99with AMF.String_Collections.Internals;
100with AMF.UML.Abstractions;
101with AMF.UML.Accept_Call_Actions;
102with AMF.UML.Accept_Event_Actions;
103with AMF.UML.Action_Execution_Specifications;
104with AMF.UML.Action_Input_Pins;
105with AMF.UML.Actions.Collections;
106with AMF.UML.Activities;
107with AMF.UML.Activity_Edges.Collections;
108with AMF.UML.Activity_Final_Nodes;
109with AMF.UML.Activity_Groups.Collections;
110with AMF.UML.Activity_Nodes.Collections;
111with AMF.UML.Activity_Parameter_Nodes;
112with AMF.UML.Activity_Partitions.Collections;
113with AMF.UML.Actors;
114with AMF.UML.Add_Structural_Feature_Value_Actions;
115with AMF.UML.Add_Variable_Value_Actions;
116with AMF.UML.Any_Receive_Events;
117with AMF.UML.Artifacts.Collections;
118with AMF.UML.Association_Classes;
119with AMF.UML.Associations;
120with AMF.UML.Behavior_Execution_Specifications;
121with AMF.UML.Behavioral_Features;
122with AMF.UML.Behaviored_Classifiers;
123with AMF.UML.Behaviors.Collections;
124with AMF.UML.Broadcast_Signal_Actions;
125with AMF.UML.Call_Behavior_Actions;
126with AMF.UML.Call_Events;
127with AMF.UML.Call_Operation_Actions;
128with AMF.UML.Central_Buffer_Nodes;
129with AMF.UML.Change_Events;
130with AMF.UML.Classes.Collections;
131with AMF.UML.Classifier_Template_Parameters;
132with AMF.UML.Classifiers.Collections;
133with AMF.UML.Clauses.Collections;
134with AMF.UML.Clear_Association_Actions;
135with AMF.UML.Clear_Structural_Feature_Actions;
136with AMF.UML.Clear_Variable_Actions;
137with AMF.UML.Collaboration_Uses.Collections;
138with AMF.UML.Collaborations;
139with AMF.UML.Combined_Fragments;
140with AMF.UML.Comments.Collections;
141with AMF.UML.Communication_Paths;
142with AMF.UML.Component_Realizations.Collections;
143with AMF.UML.Components;
144with AMF.UML.Conditional_Nodes;
145with AMF.UML.Connectable_Element_Template_Parameters;
146with AMF.UML.Connectable_Elements.Collections;
147with AMF.UML.Connection_Point_References.Collections;
148with AMF.UML.Connector_Ends.Collections;
149with AMF.UML.Connectors.Collections;
150with AMF.UML.Consider_Ignore_Fragments;
151with AMF.UML.Constraints.Collections;
152with AMF.UML.Continuations;
153with AMF.UML.Control_Flows;
154with AMF.UML.Create_Link_Actions;
155with AMF.UML.Create_Link_Object_Actions;
156with AMF.UML.Create_Object_Actions;
157with AMF.UML.Data_Store_Nodes;
158with AMF.UML.Data_Types;
159with AMF.UML.Decision_Nodes;
160with AMF.UML.Dependencies.Collections;
161with AMF.UML.Deployed_Artifacts.Collections;
162with AMF.UML.Deployment_Specifications.Collections;
163with AMF.UML.Deployment_Targets;
164with AMF.UML.Deployments.Collections;
165with AMF.UML.Destroy_Link_Actions;
166with AMF.UML.Destroy_Object_Actions;
167with AMF.UML.Destruction_Occurrence_Specifications;
168with AMF.UML.Devices;
169with AMF.UML.Duration_Constraints;
170with AMF.UML.Duration_Intervals;
171with AMF.UML.Duration_Observations;
172with AMF.UML.Durations;
173with AMF.UML.Element_Imports.Collections;
174with AMF.UML.Elements.Collections;
175with AMF.UML.Enumeration_Literals.Collections;
176with AMF.UML.Enumerations;
177with AMF.UML.Events;
178with AMF.UML.Exception_Handlers.Collections;
179with AMF.UML.Executable_Nodes.Collections;
180with AMF.UML.Execution_Environments;
181with AMF.UML.Execution_Occurrence_Specifications;
182with AMF.UML.Execution_Specifications;
183with AMF.UML.Expansion_Nodes.Collections;
184with AMF.UML.Expansion_Regions;
185with AMF.UML.Expressions;
186with AMF.UML.Extends.Collections;
187with AMF.UML.Extension_Ends;
188with AMF.UML.Extension_Points.Collections;
189with AMF.UML.Extensions.Collections;
190with AMF.UML.Features.Collections;
191with AMF.UML.Final_States;
192with AMF.UML.Flow_Final_Nodes;
193with AMF.UML.Fork_Nodes;
194with AMF.UML.Function_Behaviors;
195with AMF.UML.Gates.Collections;
196with AMF.UML.General_Orderings.Collections;
197with AMF.UML.Generalization_Sets.Collections;
198with AMF.UML.Generalizations.Collections;
199with AMF.UML.Holders.Aggregation_Kinds;
200with AMF.UML.Holders.Call_Concurrency_Kinds;
201with AMF.UML.Holders.Connector_Kinds;
202with AMF.UML.Holders.Expansion_Kinds;
203with AMF.UML.Holders.Interaction_Operator_Kinds;
204with AMF.UML.Holders.Message_Kinds;
205with AMF.UML.Holders.Message_Sorts;
206with AMF.UML.Holders.Object_Node_Ordering_Kinds;
207with AMF.UML.Holders.Parameter_Direction_Kinds;
208with AMF.UML.Holders.Pseudostate_Kinds;
209with AMF.UML.Holders.Transition_Kinds;
210with AMF.UML.Holders.Visibility_Kinds;
211with AMF.UML.Images.Collections;
212with AMF.UML.Includes.Collections;
213with AMF.UML.Information_Flows;
214with AMF.UML.Information_Items;
215with AMF.UML.Initial_Nodes;
216with AMF.UML.Input_Pins.Collections;
217with AMF.UML.Instance_Specifications;
218with AMF.UML.Instance_Values;
219with AMF.UML.Interaction_Constraints;
220with AMF.UML.Interaction_Fragments.Collections;
221with AMF.UML.Interaction_Operands.Collections;
222with AMF.UML.Interaction_Uses;
223with AMF.UML.Interactions;
224with AMF.UML.Interface_Realizations.Collections;
225with AMF.UML.Interfaces.Collections;
226with AMF.UML.Interruptible_Activity_Regions.Collections;
227with AMF.UML.Interval_Constraints;
228with AMF.UML.Intervals;
229with AMF.UML.Join_Nodes;
230with AMF.UML.Lifelines.Collections;
231with AMF.UML.Link_End_Creation_Datas.Collections;
232with AMF.UML.Link_End_Datas.Collections;
233with AMF.UML.Link_End_Destruction_Datas.Collections;
234with AMF.UML.Literal_Booleans;
235with AMF.UML.Literal_Integers;
236with AMF.UML.Literal_Nulls;
237with AMF.UML.Literal_Reals;
238with AMF.UML.Literal_Strings;
239with AMF.UML.Literal_Unlimited_Naturals;
240with AMF.UML.Loop_Nodes;
241with AMF.UML.Manifestations.Collections;
242with AMF.UML.Merge_Nodes;
243with AMF.UML.Message_Ends;
244with AMF.UML.Message_Occurrence_Specifications;
245with AMF.UML.Messages.Collections;
246with AMF.UML.Models;
247with AMF.UML.Multiplicity_Elements;
248with AMF.UML.Named_Elements.Collections;
249with AMF.UML.Namespaces;
250with AMF.UML.Nodes.Collections;
251with AMF.UML.Object_Flows;
252with AMF.UML.Object_Nodes;
253with AMF.UML.Observations.Collections;
254with AMF.UML.Occurrence_Specifications;
255with AMF.UML.Opaque_Actions;
256with AMF.UML.Opaque_Behaviors;
257with AMF.UML.Opaque_Expressions;
258with AMF.UML.Operation_Template_Parameters;
259with AMF.UML.Operations.Collections;
260with AMF.UML.Output_Pins.Collections;
261with AMF.UML.Package_Imports.Collections;
262with AMF.UML.Package_Merges.Collections;
263with AMF.UML.Packageable_Elements.Collections;
264with AMF.UML.Packages.Collections;
265with AMF.UML.Parameter_Sets.Collections;
266with AMF.UML.Parameterable_Elements;
267with AMF.UML.Parameters.Collections;
268with AMF.UML.Part_Decompositions;
269with AMF.UML.Ports.Collections;
270with AMF.UML.Primitive_Types;
271with AMF.UML.Profile_Applications.Collections;
272with AMF.UML.Profiles;
273with AMF.UML.Properties.Collections;
274with AMF.UML.Protocol_Conformances.Collections;
275with AMF.UML.Protocol_State_Machines;
276with AMF.UML.Protocol_Transitions;
277with AMF.UML.Pseudostates.Collections;
278with AMF.UML.Qualifier_Values.Collections;
279with AMF.UML.Raise_Exception_Actions;
280with AMF.UML.Read_Extent_Actions;
281with AMF.UML.Read_Is_Classified_Object_Actions;
282with AMF.UML.Read_Link_Actions;
283with AMF.UML.Read_Link_Object_End_Actions;
284with AMF.UML.Read_Link_Object_End_Qualifier_Actions;
285with AMF.UML.Read_Self_Actions;
286with AMF.UML.Read_Structural_Feature_Actions;
287with AMF.UML.Read_Variable_Actions;
288with AMF.UML.Realizations;
289with AMF.UML.Receptions.Collections;
290with AMF.UML.Reclassify_Object_Actions;
291with AMF.UML.Redefinable_Elements.Collections;
292with AMF.UML.Redefinable_Template_Signatures.Collections;
293with AMF.UML.Reduce_Actions;
294with AMF.UML.Regions.Collections;
295with AMF.UML.Relationships.Collections;
296with AMF.UML.Remove_Structural_Feature_Value_Actions;
297with AMF.UML.Remove_Variable_Value_Actions;
298with AMF.UML.Reply_Actions;
299with AMF.UML.Send_Object_Actions;
300with AMF.UML.Send_Signal_Actions;
301with AMF.UML.Sequence_Nodes;
302with AMF.UML.Signal_Events;
303with AMF.UML.Signals;
304with AMF.UML.Slots.Collections;
305with AMF.UML.Start_Classifier_Behavior_Actions;
306with AMF.UML.Start_Object_Behavior_Actions;
307with AMF.UML.State_Invariants;
308with AMF.UML.State_Machines.Collections;
309with AMF.UML.States.Collections;
310with AMF.UML.Stereotypes.Collections;
311with AMF.UML.String_Expressions.Collections;
312with AMF.UML.Structural_Features;
313with AMF.UML.Structured_Activity_Nodes.Collections;
314with AMF.UML.Substitutions.Collections;
315with AMF.UML.Template_Bindings.Collections;
316with AMF.UML.Template_Parameter_Substitutions.Collections;
317with AMF.UML.Template_Parameters.Collections;
318with AMF.UML.Template_Signatures;
319with AMF.UML.Templateable_Elements;
320with AMF.UML.Test_Identity_Actions;
321with AMF.UML.Time_Constraints;
322with AMF.UML.Time_Events;
323with AMF.UML.Time_Expressions;
324with AMF.UML.Time_Intervals;
325with AMF.UML.Time_Observations;
326with AMF.UML.Transitions.Collections;
327with AMF.UML.Triggers.Collections;
328with AMF.UML.Types.Collections;
329with AMF.UML.Unmarshall_Actions;
330with AMF.UML.Usages;
331with AMF.UML.Use_Cases.Collections;
332with AMF.UML.Value_Pins;
333with AMF.UML.Value_Specification_Actions;
334with AMF.UML.Value_Specifications.Collections;
335with AMF.UML.Variables.Collections;
336with AMF.UML.Vertexs.Collections;
337with AMF.UMLDI.Holders.UML_Association_Or_Connector_Or_Link_Shape_Kinds;
338with AMF.UMLDI.Holders.UML_Interaction_Diagram_Kinds;
339with AMF.UMLDI.Holders.UML_Interaction_Table_Label_Kinds;
340with AMF.UMLDI.Holders.UML_Navigability_Notation_Kinds;
341with AMF.UMLDI.UML_Activity_Diagrams;
342with AMF.UMLDI.UML_Association_End_Labels;
343with AMF.UMLDI.UML_Association_Or_Connector_Or_Link_Shapes;
344with AMF.UMLDI.UML_Class_Diagrams;
345with AMF.UMLDI.UML_Classifier_Shapes;
346with AMF.UMLDI.UML_Compartmentable_Shapes;
347with AMF.UMLDI.UML_Compartments.Collections;
348with AMF.UMLDI.UML_Component_Diagrams;
349with AMF.UMLDI.UML_Composite_Structure_Diagrams;
350with AMF.UMLDI.UML_Deployment_Diagrams;
351with AMF.UMLDI.UML_Diagram_Elements.Collections;
352with AMF.UMLDI.UML_Edges;
353with AMF.UMLDI.UML_Interaction_Diagrams;
354with AMF.UMLDI.UML_Interaction_Table_Labels;
355with AMF.UMLDI.UML_Keyword_Labels;
356with AMF.UMLDI.UML_Labels;
357with AMF.UMLDI.UML_Multiplicity_Labels;
358with AMF.UMLDI.UML_Name_Labels;
359with AMF.UMLDI.UML_Object_Diagrams;
360with AMF.UMLDI.UML_Package_Diagrams;
361with AMF.UMLDI.UML_Profile_Diagrams;
362with AMF.UMLDI.UML_Redefines_Labels;
363with AMF.UMLDI.UML_Shapes;
364with AMF.UMLDI.UML_State_Machine_Diagrams;
365with AMF.UMLDI.UML_State_Shapes;
366with AMF.UMLDI.UML_Stereotype_Property_Value_Labels;
367with AMF.UMLDI.UML_Styles;
368with AMF.UMLDI.UML_Typed_Element_Labels;
369with AMF.UMLDI.UML_Use_Case_Diagrams;
370with League.Holders.Booleans;
371with League.Holders.Integers;
372
373package body AMF.Internals.Tables.UML_Reflection is
374
375   ---------
376   -- Get --
377   ---------
378
379   function Get
380    (Self     : AMF.Internals.AMF_Element;
381     Property : CMOF_Element) return League.Holders.Holder
382   is
383
384      function Standard_Profile_L2_Auxiliary_Get return League.Holders.Holder;
385      --  Returns attribute's value of instance of Auxiliary class.
386
387      function Standard_Profile_L2_Call_Get return League.Holders.Holder;
388      --  Returns attribute's value of instance of Call class.
389
390      function Standard_Profile_L2_Create_Get return League.Holders.Holder;
391      --  Returns attribute's value of instance of Create class.
392
393      function Standard_Profile_L2_Derive_Get return League.Holders.Holder;
394      --  Returns attribute's value of instance of Derive class.
395
396      function Standard_Profile_L2_Destroy_Get return League.Holders.Holder;
397      --  Returns attribute's value of instance of Destroy class.
398
399      function Standard_Profile_L2_Document_Get return League.Holders.Holder;
400      --  Returns attribute's value of instance of Document class.
401
402      function Standard_Profile_L2_Entity_Get return League.Holders.Holder;
403      --  Returns attribute's value of instance of Entity class.
404
405      function Standard_Profile_L2_Executable_Get return League.Holders.Holder;
406      --  Returns attribute's value of instance of Executable class.
407
408      function Standard_Profile_L2_Focus_Get return League.Holders.Holder;
409      --  Returns attribute's value of instance of Focus class.
410
411      function Standard_Profile_L2_Framework_Get return League.Holders.Holder;
412      --  Returns attribute's value of instance of Framework class.
413
414      function Standard_Profile_L2_Implement_Get return League.Holders.Holder;
415      --  Returns attribute's value of instance of Implement class.
416
417      function Standard_Profile_L2_Implementation_Class_Get return League.Holders.Holder;
418      --  Returns attribute's value of instance of ImplementationClass class.
419
420      function Standard_Profile_L2_Instantiate_Get return League.Holders.Holder;
421      --  Returns attribute's value of instance of Instantiate class.
422
423      function Standard_Profile_L2_Library_Get return League.Holders.Holder;
424      --  Returns attribute's value of instance of Library class.
425
426      function Standard_Profile_L2_Metaclass_Get return League.Holders.Holder;
427      --  Returns attribute's value of instance of Metaclass class.
428
429      function Standard_Profile_L2_Model_Library_Get return League.Holders.Holder;
430      --  Returns attribute's value of instance of ModelLibrary class.
431
432      function Standard_Profile_L2_Process_Get return League.Holders.Holder;
433      --  Returns attribute's value of instance of Process class.
434
435      function Standard_Profile_L2_Realization_Get return League.Holders.Holder;
436      --  Returns attribute's value of instance of Realization class.
437
438      function Standard_Profile_L2_Refine_Get return League.Holders.Holder;
439      --  Returns attribute's value of instance of Refine class.
440
441      function Standard_Profile_L2_Responsibility_Get return League.Holders.Holder;
442      --  Returns attribute's value of instance of Responsibility class.
443
444      function Standard_Profile_L2_Script_Get return League.Holders.Holder;
445      --  Returns attribute's value of instance of Script class.
446
447      function Standard_Profile_L2_Send_Get return League.Holders.Holder;
448      --  Returns attribute's value of instance of Send class.
449
450      function Standard_Profile_L2_Service_Get return League.Holders.Holder;
451      --  Returns attribute's value of instance of Service class.
452
453      function Standard_Profile_L2_Source_Get return League.Holders.Holder;
454      --  Returns attribute's value of instance of Source class.
455
456      function Standard_Profile_L2_Specification_Get return League.Holders.Holder;
457      --  Returns attribute's value of instance of Specification class.
458
459      function Standard_Profile_L2_Subsystem_Get return League.Holders.Holder;
460      --  Returns attribute's value of instance of Subsystem class.
461
462      function Standard_Profile_L2_Trace_Get return League.Holders.Holder;
463      --  Returns attribute's value of instance of Trace class.
464
465      function Standard_Profile_L2_Type_Get return League.Holders.Holder;
466      --  Returns attribute's value of instance of Type class.
467
468      function Standard_Profile_L2_Utility_Get return League.Holders.Holder;
469      --  Returns attribute's value of instance of Utility class.
470
471      function Standard_Profile_L3_Build_Component_Get return League.Holders.Holder;
472      --  Returns attribute's value of instance of BuildComponent class.
473
474      function Standard_Profile_L3_Metamodel_Get return League.Holders.Holder;
475      --  Returns attribute's value of instance of Metamodel class.
476
477      function Standard_Profile_L3_System_Model_Get return League.Holders.Holder;
478      --  Returns attribute's value of instance of SystemModel class.
479
480      function UML_Abstraction_Get return League.Holders.Holder;
481      --  Returns attribute's value of instance of Abstraction class.
482
483      function UML_Accept_Call_Action_Get return League.Holders.Holder;
484      --  Returns attribute's value of instance of AcceptCallAction class.
485
486      function UML_Accept_Event_Action_Get return League.Holders.Holder;
487      --  Returns attribute's value of instance of AcceptEventAction class.
488
489      function UML_Action_Execution_Specification_Get return League.Holders.Holder;
490      --  Returns attribute's value of instance of ActionExecutionSpecification class.
491
492      function UML_Action_Input_Pin_Get return League.Holders.Holder;
493      --  Returns attribute's value of instance of ActionInputPin class.
494
495      function UML_Activity_Get return League.Holders.Holder;
496      --  Returns attribute's value of instance of Activity class.
497
498      function UML_Activity_Final_Node_Get return League.Holders.Holder;
499      --  Returns attribute's value of instance of ActivityFinalNode class.
500
501      function UML_Activity_Parameter_Node_Get return League.Holders.Holder;
502      --  Returns attribute's value of instance of ActivityParameterNode class.
503
504      function UML_Activity_Partition_Get return League.Holders.Holder;
505      --  Returns attribute's value of instance of ActivityPartition class.
506
507      function UML_Actor_Get return League.Holders.Holder;
508      --  Returns attribute's value of instance of Actor class.
509
510      function UML_Add_Structural_Feature_Value_Action_Get return League.Holders.Holder;
511      --  Returns attribute's value of instance of AddStructuralFeatureValueAction class.
512
513      function UML_Add_Variable_Value_Action_Get return League.Holders.Holder;
514      --  Returns attribute's value of instance of AddVariableValueAction class.
515
516      function UML_Any_Receive_Event_Get return League.Holders.Holder;
517      --  Returns attribute's value of instance of AnyReceiveEvent class.
518
519      function UML_Artifact_Get return League.Holders.Holder;
520      --  Returns attribute's value of instance of Artifact class.
521
522      function UML_Association_Get return League.Holders.Holder;
523      --  Returns attribute's value of instance of Association class.
524
525      function UML_Association_Class_Get return League.Holders.Holder;
526      --  Returns attribute's value of instance of AssociationClass class.
527
528      function UML_Behavior_Execution_Specification_Get return League.Holders.Holder;
529      --  Returns attribute's value of instance of BehaviorExecutionSpecification class.
530
531      function UML_Broadcast_Signal_Action_Get return League.Holders.Holder;
532      --  Returns attribute's value of instance of BroadcastSignalAction class.
533
534      function UML_Call_Behavior_Action_Get return League.Holders.Holder;
535      --  Returns attribute's value of instance of CallBehaviorAction class.
536
537      function UML_Call_Event_Get return League.Holders.Holder;
538      --  Returns attribute's value of instance of CallEvent class.
539
540      function UML_Call_Operation_Action_Get return League.Holders.Holder;
541      --  Returns attribute's value of instance of CallOperationAction class.
542
543      function UML_Central_Buffer_Node_Get return League.Holders.Holder;
544      --  Returns attribute's value of instance of CentralBufferNode class.
545
546      function UML_Change_Event_Get return League.Holders.Holder;
547      --  Returns attribute's value of instance of ChangeEvent class.
548
549      function UML_Class_Get return League.Holders.Holder;
550      --  Returns attribute's value of instance of Class class.
551
552      function UML_Classifier_Template_Parameter_Get return League.Holders.Holder;
553      --  Returns attribute's value of instance of ClassifierTemplateParameter class.
554
555      function UML_Clause_Get return League.Holders.Holder;
556      --  Returns attribute's value of instance of Clause class.
557
558      function UML_Clear_Association_Action_Get return League.Holders.Holder;
559      --  Returns attribute's value of instance of ClearAssociationAction class.
560
561      function UML_Clear_Structural_Feature_Action_Get return League.Holders.Holder;
562      --  Returns attribute's value of instance of ClearStructuralFeatureAction class.
563
564      function UML_Clear_Variable_Action_Get return League.Holders.Holder;
565      --  Returns attribute's value of instance of ClearVariableAction class.
566
567      function UML_Collaboration_Get return League.Holders.Holder;
568      --  Returns attribute's value of instance of Collaboration class.
569
570      function UML_Collaboration_Use_Get return League.Holders.Holder;
571      --  Returns attribute's value of instance of CollaborationUse class.
572
573      function UML_Combined_Fragment_Get return League.Holders.Holder;
574      --  Returns attribute's value of instance of CombinedFragment class.
575
576      function UML_Comment_Get return League.Holders.Holder;
577      --  Returns attribute's value of instance of Comment class.
578
579      function UML_Communication_Path_Get return League.Holders.Holder;
580      --  Returns attribute's value of instance of CommunicationPath class.
581
582      function UML_Component_Get return League.Holders.Holder;
583      --  Returns attribute's value of instance of Component class.
584
585      function UML_Component_Realization_Get return League.Holders.Holder;
586      --  Returns attribute's value of instance of ComponentRealization class.
587
588      function UML_Conditional_Node_Get return League.Holders.Holder;
589      --  Returns attribute's value of instance of ConditionalNode class.
590
591      function UML_Connectable_Element_Template_Parameter_Get return League.Holders.Holder;
592      --  Returns attribute's value of instance of ConnectableElementTemplateParameter class.
593
594      function UML_Connection_Point_Reference_Get return League.Holders.Holder;
595      --  Returns attribute's value of instance of ConnectionPointReference class.
596
597      function UML_Connector_Get return League.Holders.Holder;
598      --  Returns attribute's value of instance of Connector class.
599
600      function UML_Connector_End_Get return League.Holders.Holder;
601      --  Returns attribute's value of instance of ConnectorEnd class.
602
603      function UML_Consider_Ignore_Fragment_Get return League.Holders.Holder;
604      --  Returns attribute's value of instance of ConsiderIgnoreFragment class.
605
606      function UML_Constraint_Get return League.Holders.Holder;
607      --  Returns attribute's value of instance of Constraint class.
608
609      function UML_Continuation_Get return League.Holders.Holder;
610      --  Returns attribute's value of instance of Continuation class.
611
612      function UML_Control_Flow_Get return League.Holders.Holder;
613      --  Returns attribute's value of instance of ControlFlow class.
614
615      function UML_Create_Link_Action_Get return League.Holders.Holder;
616      --  Returns attribute's value of instance of CreateLinkAction class.
617
618      function UML_Create_Link_Object_Action_Get return League.Holders.Holder;
619      --  Returns attribute's value of instance of CreateLinkObjectAction class.
620
621      function UML_Create_Object_Action_Get return League.Holders.Holder;
622      --  Returns attribute's value of instance of CreateObjectAction class.
623
624      function UMLDI_UML_Activity_Diagram_Get return League.Holders.Holder;
625      --  Returns attribute's value of instance of UMLActivityDiagram class.
626
627      function UMLDI_UML_Association_End_Label_Get return League.Holders.Holder;
628      --  Returns attribute's value of instance of UMLAssociationEndLabel class.
629
630      function UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Get return League.Holders.Holder;
631      --  Returns attribute's value of instance of UMLAssociationOrConnectorOrLinkShape class.
632
633      function UMLDI_UML_Class_Diagram_Get return League.Holders.Holder;
634      --  Returns attribute's value of instance of UMLClassDiagram class.
635
636      function UMLDI_UML_Classifier_Shape_Get return League.Holders.Holder;
637      --  Returns attribute's value of instance of UMLClassifierShape class.
638
639      function UMLDI_UML_Compartment_Get return League.Holders.Holder;
640      --  Returns attribute's value of instance of UMLCompartment class.
641
642      function UMLDI_UML_Compartmentable_Shape_Get return League.Holders.Holder;
643      --  Returns attribute's value of instance of UMLCompartmentableShape class.
644
645      function UMLDI_UML_Component_Diagram_Get return League.Holders.Holder;
646      --  Returns attribute's value of instance of UMLComponentDiagram class.
647
648      function UMLDI_UML_Composite_Structure_Diagram_Get return League.Holders.Holder;
649      --  Returns attribute's value of instance of UMLCompositeStructureDiagram class.
650
651      function UMLDI_UML_Deployment_Diagram_Get return League.Holders.Holder;
652      --  Returns attribute's value of instance of UMLDeploymentDiagram class.
653
654      function UMLDI_UML_Edge_Get return League.Holders.Holder;
655      --  Returns attribute's value of instance of UMLEdge class.
656
657      function UMLDI_UML_Interaction_Diagram_Get return League.Holders.Holder;
658      --  Returns attribute's value of instance of UMLInteractionDiagram class.
659
660      function UMLDI_UML_Interaction_Table_Label_Get return League.Holders.Holder;
661      --  Returns attribute's value of instance of UMLInteractionTableLabel class.
662
663      function UMLDI_UML_Keyword_Label_Get return League.Holders.Holder;
664      --  Returns attribute's value of instance of UMLKeywordLabel class.
665
666      function UMLDI_UML_Label_Get return League.Holders.Holder;
667      --  Returns attribute's value of instance of UMLLabel class.
668
669      function UMLDI_UML_Multiplicity_Label_Get return League.Holders.Holder;
670      --  Returns attribute's value of instance of UMLMultiplicityLabel class.
671
672      function UMLDI_UML_Name_Label_Get return League.Holders.Holder;
673      --  Returns attribute's value of instance of UMLNameLabel class.
674
675      function UMLDI_UML_Object_Diagram_Get return League.Holders.Holder;
676      --  Returns attribute's value of instance of UMLObjectDiagram class.
677
678      function UMLDI_UML_Package_Diagram_Get return League.Holders.Holder;
679      --  Returns attribute's value of instance of UMLPackageDiagram class.
680
681      function UMLDI_UML_Profile_Diagram_Get return League.Holders.Holder;
682      --  Returns attribute's value of instance of UMLProfileDiagram class.
683
684      function UMLDI_UML_Redefines_Label_Get return League.Holders.Holder;
685      --  Returns attribute's value of instance of UMLRedefinesLabel class.
686
687      function UMLDI_UML_Shape_Get return League.Holders.Holder;
688      --  Returns attribute's value of instance of UMLShape class.
689
690      function UMLDI_UML_State_Machine_Diagram_Get return League.Holders.Holder;
691      --  Returns attribute's value of instance of UMLStateMachineDiagram class.
692
693      function UMLDI_UML_State_Shape_Get return League.Holders.Holder;
694      --  Returns attribute's value of instance of UMLStateShape class.
695
696      function UMLDI_UML_Stereotype_Property_Value_Label_Get return League.Holders.Holder;
697      --  Returns attribute's value of instance of UMLStereotypePropertyValueLabel class.
698
699      function UMLDI_UML_Style_Get return League.Holders.Holder;
700      --  Returns attribute's value of instance of UMLStyle class.
701
702      function UMLDI_UML_Typed_Element_Label_Get return League.Holders.Holder;
703      --  Returns attribute's value of instance of UMLTypedElementLabel class.
704
705      function UMLDI_UML_Use_Case_Diagram_Get return League.Holders.Holder;
706      --  Returns attribute's value of instance of UMLUseCaseDiagram class.
707
708      function UML_Data_Store_Node_Get return League.Holders.Holder;
709      --  Returns attribute's value of instance of DataStoreNode class.
710
711      function UML_Data_Type_Get return League.Holders.Holder;
712      --  Returns attribute's value of instance of DataType class.
713
714      function UML_Decision_Node_Get return League.Holders.Holder;
715      --  Returns attribute's value of instance of DecisionNode class.
716
717      function UML_Dependency_Get return League.Holders.Holder;
718      --  Returns attribute's value of instance of Dependency class.
719
720      function UML_Deployment_Get return League.Holders.Holder;
721      --  Returns attribute's value of instance of Deployment class.
722
723      function UML_Deployment_Specification_Get return League.Holders.Holder;
724      --  Returns attribute's value of instance of DeploymentSpecification class.
725
726      function UML_Destroy_Link_Action_Get return League.Holders.Holder;
727      --  Returns attribute's value of instance of DestroyLinkAction class.
728
729      function UML_Destroy_Object_Action_Get return League.Holders.Holder;
730      --  Returns attribute's value of instance of DestroyObjectAction class.
731
732      function UML_Destruction_Occurrence_Specification_Get return League.Holders.Holder;
733      --  Returns attribute's value of instance of DestructionOccurrenceSpecification class.
734
735      function UML_Device_Get return League.Holders.Holder;
736      --  Returns attribute's value of instance of Device class.
737
738      function UML_Duration_Get return League.Holders.Holder;
739      --  Returns attribute's value of instance of Duration class.
740
741      function UML_Duration_Constraint_Get return League.Holders.Holder;
742      --  Returns attribute's value of instance of DurationConstraint class.
743
744      function UML_Duration_Interval_Get return League.Holders.Holder;
745      --  Returns attribute's value of instance of DurationInterval class.
746
747      function UML_Duration_Observation_Get return League.Holders.Holder;
748      --  Returns attribute's value of instance of DurationObservation class.
749
750      function UML_Element_Import_Get return League.Holders.Holder;
751      --  Returns attribute's value of instance of ElementImport class.
752
753      function UML_Enumeration_Get return League.Holders.Holder;
754      --  Returns attribute's value of instance of Enumeration class.
755
756      function UML_Enumeration_Literal_Get return League.Holders.Holder;
757      --  Returns attribute's value of instance of EnumerationLiteral class.
758
759      function UML_Exception_Handler_Get return League.Holders.Holder;
760      --  Returns attribute's value of instance of ExceptionHandler class.
761
762      function UML_Execution_Environment_Get return League.Holders.Holder;
763      --  Returns attribute's value of instance of ExecutionEnvironment class.
764
765      function UML_Execution_Occurrence_Specification_Get return League.Holders.Holder;
766      --  Returns attribute's value of instance of ExecutionOccurrenceSpecification class.
767
768      function UML_Expansion_Node_Get return League.Holders.Holder;
769      --  Returns attribute's value of instance of ExpansionNode class.
770
771      function UML_Expansion_Region_Get return League.Holders.Holder;
772      --  Returns attribute's value of instance of ExpansionRegion class.
773
774      function UML_Expression_Get return League.Holders.Holder;
775      --  Returns attribute's value of instance of Expression class.
776
777      function UML_Extend_Get return League.Holders.Holder;
778      --  Returns attribute's value of instance of Extend class.
779
780      function UML_Extension_Get return League.Holders.Holder;
781      --  Returns attribute's value of instance of Extension class.
782
783      function UML_Extension_End_Get return League.Holders.Holder;
784      --  Returns attribute's value of instance of ExtensionEnd class.
785
786      function UML_Extension_Point_Get return League.Holders.Holder;
787      --  Returns attribute's value of instance of ExtensionPoint class.
788
789      function UML_Final_State_Get return League.Holders.Holder;
790      --  Returns attribute's value of instance of FinalState class.
791
792      function UML_Flow_Final_Node_Get return League.Holders.Holder;
793      --  Returns attribute's value of instance of FlowFinalNode class.
794
795      function UML_Fork_Node_Get return League.Holders.Holder;
796      --  Returns attribute's value of instance of ForkNode class.
797
798      function UML_Function_Behavior_Get return League.Holders.Holder;
799      --  Returns attribute's value of instance of FunctionBehavior class.
800
801      function UML_Gate_Get return League.Holders.Holder;
802      --  Returns attribute's value of instance of Gate class.
803
804      function UML_General_Ordering_Get return League.Holders.Holder;
805      --  Returns attribute's value of instance of GeneralOrdering class.
806
807      function UML_Generalization_Get return League.Holders.Holder;
808      --  Returns attribute's value of instance of Generalization class.
809
810      function UML_Generalization_Set_Get return League.Holders.Holder;
811      --  Returns attribute's value of instance of GeneralizationSet class.
812
813      function UML_Image_Get return League.Holders.Holder;
814      --  Returns attribute's value of instance of Image class.
815
816      function UML_Include_Get return League.Holders.Holder;
817      --  Returns attribute's value of instance of Include class.
818
819      function UML_Information_Flow_Get return League.Holders.Holder;
820      --  Returns attribute's value of instance of InformationFlow class.
821
822      function UML_Information_Item_Get return League.Holders.Holder;
823      --  Returns attribute's value of instance of InformationItem class.
824
825      function UML_Initial_Node_Get return League.Holders.Holder;
826      --  Returns attribute's value of instance of InitialNode class.
827
828      function UML_Input_Pin_Get return League.Holders.Holder;
829      --  Returns attribute's value of instance of InputPin class.
830
831      function UML_Instance_Specification_Get return League.Holders.Holder;
832      --  Returns attribute's value of instance of InstanceSpecification class.
833
834      function UML_Instance_Value_Get return League.Holders.Holder;
835      --  Returns attribute's value of instance of InstanceValue class.
836
837      function UML_Interaction_Get return League.Holders.Holder;
838      --  Returns attribute's value of instance of Interaction class.
839
840      function UML_Interaction_Constraint_Get return League.Holders.Holder;
841      --  Returns attribute's value of instance of InteractionConstraint class.
842
843      function UML_Interaction_Operand_Get return League.Holders.Holder;
844      --  Returns attribute's value of instance of InteractionOperand class.
845
846      function UML_Interaction_Use_Get return League.Holders.Holder;
847      --  Returns attribute's value of instance of InteractionUse class.
848
849      function UML_Interface_Get return League.Holders.Holder;
850      --  Returns attribute's value of instance of Interface class.
851
852      function UML_Interface_Realization_Get return League.Holders.Holder;
853      --  Returns attribute's value of instance of InterfaceRealization class.
854
855      function UML_Interruptible_Activity_Region_Get return League.Holders.Holder;
856      --  Returns attribute's value of instance of InterruptibleActivityRegion class.
857
858      function UML_Interval_Get return League.Holders.Holder;
859      --  Returns attribute's value of instance of Interval class.
860
861      function UML_Interval_Constraint_Get return League.Holders.Holder;
862      --  Returns attribute's value of instance of IntervalConstraint class.
863
864      function UML_Join_Node_Get return League.Holders.Holder;
865      --  Returns attribute's value of instance of JoinNode class.
866
867      function UML_Lifeline_Get return League.Holders.Holder;
868      --  Returns attribute's value of instance of Lifeline class.
869
870      function UML_Link_End_Creation_Data_Get return League.Holders.Holder;
871      --  Returns attribute's value of instance of LinkEndCreationData class.
872
873      function UML_Link_End_Data_Get return League.Holders.Holder;
874      --  Returns attribute's value of instance of LinkEndData class.
875
876      function UML_Link_End_Destruction_Data_Get return League.Holders.Holder;
877      --  Returns attribute's value of instance of LinkEndDestructionData class.
878
879      function UML_Literal_Boolean_Get return League.Holders.Holder;
880      --  Returns attribute's value of instance of LiteralBoolean class.
881
882      function UML_Literal_Integer_Get return League.Holders.Holder;
883      --  Returns attribute's value of instance of LiteralInteger class.
884
885      function UML_Literal_Null_Get return League.Holders.Holder;
886      --  Returns attribute's value of instance of LiteralNull class.
887
888      function UML_Literal_Real_Get return League.Holders.Holder;
889      --  Returns attribute's value of instance of LiteralReal class.
890
891      function UML_Literal_String_Get return League.Holders.Holder;
892      --  Returns attribute's value of instance of LiteralString class.
893
894      function UML_Literal_Unlimited_Natural_Get return League.Holders.Holder;
895      --  Returns attribute's value of instance of LiteralUnlimitedNatural class.
896
897      function UML_Loop_Node_Get return League.Holders.Holder;
898      --  Returns attribute's value of instance of LoopNode class.
899
900      function UML_Manifestation_Get return League.Holders.Holder;
901      --  Returns attribute's value of instance of Manifestation class.
902
903      function UML_Merge_Node_Get return League.Holders.Holder;
904      --  Returns attribute's value of instance of MergeNode class.
905
906      function UML_Message_Get return League.Holders.Holder;
907      --  Returns attribute's value of instance of Message class.
908
909      function UML_Message_Occurrence_Specification_Get return League.Holders.Holder;
910      --  Returns attribute's value of instance of MessageOccurrenceSpecification class.
911
912      function UML_Model_Get return League.Holders.Holder;
913      --  Returns attribute's value of instance of Model class.
914
915      function UML_Node_Get return League.Holders.Holder;
916      --  Returns attribute's value of instance of Node class.
917
918      function UML_Object_Flow_Get return League.Holders.Holder;
919      --  Returns attribute's value of instance of ObjectFlow class.
920
921      function UML_Occurrence_Specification_Get return League.Holders.Holder;
922      --  Returns attribute's value of instance of OccurrenceSpecification class.
923
924      function UML_Opaque_Action_Get return League.Holders.Holder;
925      --  Returns attribute's value of instance of OpaqueAction class.
926
927      function UML_Opaque_Behavior_Get return League.Holders.Holder;
928      --  Returns attribute's value of instance of OpaqueBehavior class.
929
930      function UML_Opaque_Expression_Get return League.Holders.Holder;
931      --  Returns attribute's value of instance of OpaqueExpression class.
932
933      function UML_Operation_Get return League.Holders.Holder;
934      --  Returns attribute's value of instance of Operation class.
935
936      function UML_Operation_Template_Parameter_Get return League.Holders.Holder;
937      --  Returns attribute's value of instance of OperationTemplateParameter class.
938
939      function UML_Output_Pin_Get return League.Holders.Holder;
940      --  Returns attribute's value of instance of OutputPin class.
941
942      function UML_Package_Get return League.Holders.Holder;
943      --  Returns attribute's value of instance of Package class.
944
945      function UML_Package_Import_Get return League.Holders.Holder;
946      --  Returns attribute's value of instance of PackageImport class.
947
948      function UML_Package_Merge_Get return League.Holders.Holder;
949      --  Returns attribute's value of instance of PackageMerge class.
950
951      function UML_Parameter_Get return League.Holders.Holder;
952      --  Returns attribute's value of instance of Parameter class.
953
954      function UML_Parameter_Set_Get return League.Holders.Holder;
955      --  Returns attribute's value of instance of ParameterSet class.
956
957      function UML_Part_Decomposition_Get return League.Holders.Holder;
958      --  Returns attribute's value of instance of PartDecomposition class.
959
960      function UML_Port_Get return League.Holders.Holder;
961      --  Returns attribute's value of instance of Port class.
962
963      function UML_Primitive_Type_Get return League.Holders.Holder;
964      --  Returns attribute's value of instance of PrimitiveType class.
965
966      function UML_Profile_Get return League.Holders.Holder;
967      --  Returns attribute's value of instance of Profile class.
968
969      function UML_Profile_Application_Get return League.Holders.Holder;
970      --  Returns attribute's value of instance of ProfileApplication class.
971
972      function UML_Property_Get return League.Holders.Holder;
973      --  Returns attribute's value of instance of Property class.
974
975      function UML_Protocol_Conformance_Get return League.Holders.Holder;
976      --  Returns attribute's value of instance of ProtocolConformance class.
977
978      function UML_Protocol_State_Machine_Get return League.Holders.Holder;
979      --  Returns attribute's value of instance of ProtocolStateMachine class.
980
981      function UML_Protocol_Transition_Get return League.Holders.Holder;
982      --  Returns attribute's value of instance of ProtocolTransition class.
983
984      function UML_Pseudostate_Get return League.Holders.Holder;
985      --  Returns attribute's value of instance of Pseudostate class.
986
987      function UML_Qualifier_Value_Get return League.Holders.Holder;
988      --  Returns attribute's value of instance of QualifierValue class.
989
990      function UML_Raise_Exception_Action_Get return League.Holders.Holder;
991      --  Returns attribute's value of instance of RaiseExceptionAction class.
992
993      function UML_Read_Extent_Action_Get return League.Holders.Holder;
994      --  Returns attribute's value of instance of ReadExtentAction class.
995
996      function UML_Read_Is_Classified_Object_Action_Get return League.Holders.Holder;
997      --  Returns attribute's value of instance of ReadIsClassifiedObjectAction class.
998
999      function UML_Read_Link_Action_Get return League.Holders.Holder;
1000      --  Returns attribute's value of instance of ReadLinkAction class.
1001
1002      function UML_Read_Link_Object_End_Action_Get return League.Holders.Holder;
1003      --  Returns attribute's value of instance of ReadLinkObjectEndAction class.
1004
1005      function UML_Read_Link_Object_End_Qualifier_Action_Get return League.Holders.Holder;
1006      --  Returns attribute's value of instance of ReadLinkObjectEndQualifierAction class.
1007
1008      function UML_Read_Self_Action_Get return League.Holders.Holder;
1009      --  Returns attribute's value of instance of ReadSelfAction class.
1010
1011      function UML_Read_Structural_Feature_Action_Get return League.Holders.Holder;
1012      --  Returns attribute's value of instance of ReadStructuralFeatureAction class.
1013
1014      function UML_Read_Variable_Action_Get return League.Holders.Holder;
1015      --  Returns attribute's value of instance of ReadVariableAction class.
1016
1017      function UML_Realization_Get return League.Holders.Holder;
1018      --  Returns attribute's value of instance of Realization class.
1019
1020      function UML_Reception_Get return League.Holders.Holder;
1021      --  Returns attribute's value of instance of Reception class.
1022
1023      function UML_Reclassify_Object_Action_Get return League.Holders.Holder;
1024      --  Returns attribute's value of instance of ReclassifyObjectAction class.
1025
1026      function UML_Redefinable_Template_Signature_Get return League.Holders.Holder;
1027      --  Returns attribute's value of instance of RedefinableTemplateSignature class.
1028
1029      function UML_Reduce_Action_Get return League.Holders.Holder;
1030      --  Returns attribute's value of instance of ReduceAction class.
1031
1032      function UML_Region_Get return League.Holders.Holder;
1033      --  Returns attribute's value of instance of Region class.
1034
1035      function UML_Remove_Structural_Feature_Value_Action_Get return League.Holders.Holder;
1036      --  Returns attribute's value of instance of RemoveStructuralFeatureValueAction class.
1037
1038      function UML_Remove_Variable_Value_Action_Get return League.Holders.Holder;
1039      --  Returns attribute's value of instance of RemoveVariableValueAction class.
1040
1041      function UML_Reply_Action_Get return League.Holders.Holder;
1042      --  Returns attribute's value of instance of ReplyAction class.
1043
1044      function UML_Send_Object_Action_Get return League.Holders.Holder;
1045      --  Returns attribute's value of instance of SendObjectAction class.
1046
1047      function UML_Send_Signal_Action_Get return League.Holders.Holder;
1048      --  Returns attribute's value of instance of SendSignalAction class.
1049
1050      function UML_Sequence_Node_Get return League.Holders.Holder;
1051      --  Returns attribute's value of instance of SequenceNode class.
1052
1053      function UML_Signal_Get return League.Holders.Holder;
1054      --  Returns attribute's value of instance of Signal class.
1055
1056      function UML_Signal_Event_Get return League.Holders.Holder;
1057      --  Returns attribute's value of instance of SignalEvent class.
1058
1059      function UML_Slot_Get return League.Holders.Holder;
1060      --  Returns attribute's value of instance of Slot class.
1061
1062      function UML_Start_Classifier_Behavior_Action_Get return League.Holders.Holder;
1063      --  Returns attribute's value of instance of StartClassifierBehaviorAction class.
1064
1065      function UML_Start_Object_Behavior_Action_Get return League.Holders.Holder;
1066      --  Returns attribute's value of instance of StartObjectBehaviorAction class.
1067
1068      function UML_State_Get return League.Holders.Holder;
1069      --  Returns attribute's value of instance of State class.
1070
1071      function UML_State_Invariant_Get return League.Holders.Holder;
1072      --  Returns attribute's value of instance of StateInvariant class.
1073
1074      function UML_State_Machine_Get return League.Holders.Holder;
1075      --  Returns attribute's value of instance of StateMachine class.
1076
1077      function UML_Stereotype_Get return League.Holders.Holder;
1078      --  Returns attribute's value of instance of Stereotype class.
1079
1080      function UML_String_Expression_Get return League.Holders.Holder;
1081      --  Returns attribute's value of instance of StringExpression class.
1082
1083      function UML_Structured_Activity_Node_Get return League.Holders.Holder;
1084      --  Returns attribute's value of instance of StructuredActivityNode class.
1085
1086      function UML_Substitution_Get return League.Holders.Holder;
1087      --  Returns attribute's value of instance of Substitution class.
1088
1089      function UML_Template_Binding_Get return League.Holders.Holder;
1090      --  Returns attribute's value of instance of TemplateBinding class.
1091
1092      function UML_Template_Parameter_Get return League.Holders.Holder;
1093      --  Returns attribute's value of instance of TemplateParameter class.
1094
1095      function UML_Template_Parameter_Substitution_Get return League.Holders.Holder;
1096      --  Returns attribute's value of instance of TemplateParameterSubstitution class.
1097
1098      function UML_Template_Signature_Get return League.Holders.Holder;
1099      --  Returns attribute's value of instance of TemplateSignature class.
1100
1101      function UML_Test_Identity_Action_Get return League.Holders.Holder;
1102      --  Returns attribute's value of instance of TestIdentityAction class.
1103
1104      function UML_Time_Constraint_Get return League.Holders.Holder;
1105      --  Returns attribute's value of instance of TimeConstraint class.
1106
1107      function UML_Time_Event_Get return League.Holders.Holder;
1108      --  Returns attribute's value of instance of TimeEvent class.
1109
1110      function UML_Time_Expression_Get return League.Holders.Holder;
1111      --  Returns attribute's value of instance of TimeExpression class.
1112
1113      function UML_Time_Interval_Get return League.Holders.Holder;
1114      --  Returns attribute's value of instance of TimeInterval class.
1115
1116      function UML_Time_Observation_Get return League.Holders.Holder;
1117      --  Returns attribute's value of instance of TimeObservation class.
1118
1119      function UML_Transition_Get return League.Holders.Holder;
1120      --  Returns attribute's value of instance of Transition class.
1121
1122      function UML_Trigger_Get return League.Holders.Holder;
1123      --  Returns attribute's value of instance of Trigger class.
1124
1125      function UML_Unmarshall_Action_Get return League.Holders.Holder;
1126      --  Returns attribute's value of instance of UnmarshallAction class.
1127
1128      function UML_Usage_Get return League.Holders.Holder;
1129      --  Returns attribute's value of instance of Usage class.
1130
1131      function UML_Use_Case_Get return League.Holders.Holder;
1132      --  Returns attribute's value of instance of UseCase class.
1133
1134      function UML_Value_Pin_Get return League.Holders.Holder;
1135      --  Returns attribute's value of instance of ValuePin class.
1136
1137      function UML_Value_Specification_Action_Get return League.Holders.Holder;
1138      --  Returns attribute's value of instance of ValueSpecificationAction class.
1139
1140      function UML_Variable_Get return League.Holders.Holder;
1141      --  Returns attribute's value of instance of Variable class.
1142
1143      ---------------------------------------
1144      -- Standard_Profile_L2_Auxiliary_Get --
1145      ---------------------------------------
1146
1147      function Standard_Profile_L2_Auxiliary_Get return League.Holders.Holder is
1148      begin
1149         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Auxiliary_Base_Class_A_Extension_Auxiliary then
1150            --  Auxiliary::base_Class : Class
1151
1152            return
1153              AMF.Internals.Holders.UML_Holders.To_Holder
1154               (AMF.UML.Classes.UML_Class_Access'
1155                 (AMF.Standard_Profile_L2.Auxiliaries.Standard_Profile_L2_Auxiliary_Access
1156                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Class));
1157
1158         else
1159            raise Program_Error;
1160         end if;
1161      end Standard_Profile_L2_Auxiliary_Get;
1162
1163      ----------------------------------
1164      -- Standard_Profile_L2_Call_Get --
1165      ----------------------------------
1166
1167      function Standard_Profile_L2_Call_Get return League.Holders.Holder is
1168      begin
1169         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Call_Base_Usage_A_Extension_Call then
1170            --  Call::base_Usage : Usage
1171
1172            return
1173              AMF.Internals.Holders.UML_Holders.To_Holder
1174               (AMF.UML.Usages.UML_Usage_Access'
1175                 (AMF.Standard_Profile_L2.Calls.Standard_Profile_L2_Call_Access
1176                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Usage));
1177
1178         else
1179            raise Program_Error;
1180         end if;
1181      end Standard_Profile_L2_Call_Get;
1182
1183      ------------------------------------
1184      -- Standard_Profile_L2_Create_Get --
1185      ------------------------------------
1186
1187      function Standard_Profile_L2_Create_Get return League.Holders.Holder is
1188      begin
1189         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Create_Base_Behavioral_Feature_A_Extension_Create then
1190            --  Create::base_BehavioralFeature : BehavioralFeature
1191
1192            return
1193              AMF.Internals.Holders.UML_Holders.To_Holder
1194               (AMF.UML.Behavioral_Features.UML_Behavioral_Feature_Access'
1195                 (AMF.Standard_Profile_L2.Creates.Standard_Profile_L2_Create_Access
1196                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Behavioral_Feature));
1197
1198         elsif Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Create_Base_Usage_A_Extension_Create then
1199            --  Create::base_Usage : Usage
1200
1201            return
1202              AMF.Internals.Holders.UML_Holders.To_Holder
1203               (AMF.UML.Usages.UML_Usage_Access'
1204                 (AMF.Standard_Profile_L2.Creates.Standard_Profile_L2_Create_Access
1205                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Usage));
1206
1207         else
1208            raise Program_Error;
1209         end if;
1210      end Standard_Profile_L2_Create_Get;
1211
1212      ------------------------------------
1213      -- Standard_Profile_L2_Derive_Get --
1214      ------------------------------------
1215
1216      function Standard_Profile_L2_Derive_Get return League.Holders.Holder is
1217      begin
1218         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Derive_Base_Abstraction_A_Extension_Derive then
1219            --  Derive::base_Abstraction : Abstraction
1220
1221            return
1222              AMF.Internals.Holders.UML_Holders.To_Holder
1223               (AMF.UML.Abstractions.UML_Abstraction_Access'
1224                 (AMF.Standard_Profile_L2.Derives.Standard_Profile_L2_Derive_Access
1225                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Abstraction));
1226
1227         elsif Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Derive_Computation_A_Extension_Derive then
1228            --  Derive::computation : ValueSpecification
1229
1230            return
1231              AMF.Internals.Holders.UML_Holders.To_Holder
1232               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
1233                 (AMF.Standard_Profile_L2.Derives.Standard_Profile_L2_Derive_Access
1234                   (AMF.Internals.Helpers.To_Element (Self)).Get_Computation));
1235
1236         else
1237            raise Program_Error;
1238         end if;
1239      end Standard_Profile_L2_Derive_Get;
1240
1241      -------------------------------------
1242      -- Standard_Profile_L2_Destroy_Get --
1243      -------------------------------------
1244
1245      function Standard_Profile_L2_Destroy_Get return League.Holders.Holder is
1246      begin
1247         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Destroy_Base_Behavioral_Feature_A_Extension_Destroy then
1248            --  Destroy::base_BehavioralFeature : BehavioralFeature
1249
1250            return
1251              AMF.Internals.Holders.UML_Holders.To_Holder
1252               (AMF.UML.Behavioral_Features.UML_Behavioral_Feature_Access'
1253                 (AMF.Standard_Profile_L2.Destroies.Standard_Profile_L2_Destroy_Access
1254                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Behavioral_Feature));
1255
1256         else
1257            raise Program_Error;
1258         end if;
1259      end Standard_Profile_L2_Destroy_Get;
1260
1261      --------------------------------------
1262      -- Standard_Profile_L2_Document_Get --
1263      --------------------------------------
1264
1265      function Standard_Profile_L2_Document_Get return League.Holders.Holder is
1266      begin
1267         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Document_Base_Artifact_A_Extension_Document then
1268            --  Document::base_Artifact : Artifact
1269
1270            return
1271              AMF.Internals.Holders.UML_Holders.To_Holder
1272               (AMF.UML.Artifacts.UML_Artifact_Access'
1273                 (AMF.Standard_Profile_L2.Documents.Standard_Profile_L2_Document_Access
1274                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Artifact));
1275
1276         elsif Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_File_Base_Artifact_A_Extension_File then
1277            --  File::base_Artifact : Artifact
1278
1279            return
1280              AMF.Internals.Holders.UML_Holders.To_Holder
1281               (AMF.UML.Artifacts.UML_Artifact_Access'
1282                 (AMF.Standard_Profile_L2.Documents.Standard_Profile_L2_Document_Access
1283                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Artifact));
1284
1285         else
1286            raise Program_Error;
1287         end if;
1288      end Standard_Profile_L2_Document_Get;
1289
1290      ------------------------------------
1291      -- Standard_Profile_L2_Entity_Get --
1292      ------------------------------------
1293
1294      function Standard_Profile_L2_Entity_Get return League.Holders.Holder is
1295      begin
1296         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Entity_Base_Component_A_Extension_Entity then
1297            --  Entity::base_Component : Component
1298
1299            return
1300              AMF.Internals.Holders.UML_Holders.To_Holder
1301               (AMF.UML.Components.UML_Component_Access'
1302                 (AMF.Standard_Profile_L2.Entities.Standard_Profile_L2_Entity_Access
1303                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Component));
1304
1305         else
1306            raise Program_Error;
1307         end if;
1308      end Standard_Profile_L2_Entity_Get;
1309
1310      ----------------------------------------
1311      -- Standard_Profile_L2_Executable_Get --
1312      ----------------------------------------
1313
1314      function Standard_Profile_L2_Executable_Get return League.Holders.Holder is
1315      begin
1316         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Executable_Base_Artifact_A_Extension_Executable then
1317            --  Executable::base_Artifact : Artifact
1318
1319            return
1320              AMF.Internals.Holders.UML_Holders.To_Holder
1321               (AMF.UML.Artifacts.UML_Artifact_Access'
1322                 (AMF.Standard_Profile_L2.Executables.Standard_Profile_L2_Executable_Access
1323                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Artifact));
1324
1325         elsif Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_File_Base_Artifact_A_Extension_File then
1326            --  File::base_Artifact : Artifact
1327
1328            return
1329              AMF.Internals.Holders.UML_Holders.To_Holder
1330               (AMF.UML.Artifacts.UML_Artifact_Access'
1331                 (AMF.Standard_Profile_L2.Executables.Standard_Profile_L2_Executable_Access
1332                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Artifact));
1333
1334         else
1335            raise Program_Error;
1336         end if;
1337      end Standard_Profile_L2_Executable_Get;
1338
1339      -----------------------------------
1340      -- Standard_Profile_L2_Focus_Get --
1341      -----------------------------------
1342
1343      function Standard_Profile_L2_Focus_Get return League.Holders.Holder is
1344      begin
1345         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Focus_Base_Class_A_Extension_Focus then
1346            --  Focus::base_Class : Class
1347
1348            return
1349              AMF.Internals.Holders.UML_Holders.To_Holder
1350               (AMF.UML.Classes.UML_Class_Access'
1351                 (AMF.Standard_Profile_L2.Focuses.Standard_Profile_L2_Focus_Access
1352                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Class));
1353
1354         else
1355            raise Program_Error;
1356         end if;
1357      end Standard_Profile_L2_Focus_Get;
1358
1359      ---------------------------------------
1360      -- Standard_Profile_L2_Framework_Get --
1361      ---------------------------------------
1362
1363      function Standard_Profile_L2_Framework_Get return League.Holders.Holder is
1364      begin
1365         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Framework_Base_Package_A_Extension_Framework then
1366            --  Framework::base_Package : Package
1367
1368            return
1369              AMF.Internals.Holders.UML_Holders.To_Holder
1370               (AMF.UML.Packages.UML_Package_Access'
1371                 (AMF.Standard_Profile_L2.Frameworks.Standard_Profile_L2_Framework_Access
1372                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Package));
1373
1374         else
1375            raise Program_Error;
1376         end if;
1377      end Standard_Profile_L2_Framework_Get;
1378
1379      ---------------------------------------
1380      -- Standard_Profile_L2_Implement_Get --
1381      ---------------------------------------
1382
1383      function Standard_Profile_L2_Implement_Get return League.Holders.Holder is
1384      begin
1385         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Implement_Base_Component_A_Extension_Implement then
1386            --  Implement::base_Component : Component
1387
1388            return
1389              AMF.Internals.Holders.UML_Holders.To_Holder
1390               (AMF.UML.Components.UML_Component_Access'
1391                 (AMF.Standard_Profile_L2.Implements.Standard_Profile_L2_Implement_Access
1392                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Component));
1393
1394         else
1395            raise Program_Error;
1396         end if;
1397      end Standard_Profile_L2_Implement_Get;
1398
1399      --------------------------------------------------
1400      -- Standard_Profile_L2_Implementation_Class_Get --
1401      --------------------------------------------------
1402
1403      function Standard_Profile_L2_Implementation_Class_Get return League.Holders.Holder is
1404      begin
1405         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Implementation_Class_Base_Class_A_Extension_Implementation_Class then
1406            --  ImplementationClass::base_Class : Class
1407
1408            return
1409              AMF.Internals.Holders.UML_Holders.To_Holder
1410               (AMF.UML.Classes.UML_Class_Access'
1411                 (AMF.Standard_Profile_L2.Implementation_Classes.Standard_Profile_L2_Implementation_Class_Access
1412                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Class));
1413
1414         else
1415            raise Program_Error;
1416         end if;
1417      end Standard_Profile_L2_Implementation_Class_Get;
1418
1419      -----------------------------------------
1420      -- Standard_Profile_L2_Instantiate_Get --
1421      -----------------------------------------
1422
1423      function Standard_Profile_L2_Instantiate_Get return League.Holders.Holder is
1424      begin
1425         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Instantiate_Base_Usage_A_Extension_Instantiate then
1426            --  Instantiate::base_Usage : Usage
1427
1428            return
1429              AMF.Internals.Holders.UML_Holders.To_Holder
1430               (AMF.UML.Usages.UML_Usage_Access'
1431                 (AMF.Standard_Profile_L2.Instantiates.Standard_Profile_L2_Instantiate_Access
1432                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Usage));
1433
1434         else
1435            raise Program_Error;
1436         end if;
1437      end Standard_Profile_L2_Instantiate_Get;
1438
1439      -------------------------------------
1440      -- Standard_Profile_L2_Library_Get --
1441      -------------------------------------
1442
1443      function Standard_Profile_L2_Library_Get return League.Holders.Holder is
1444      begin
1445         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_File_Base_Artifact_A_Extension_File then
1446            --  File::base_Artifact : Artifact
1447
1448            return
1449              AMF.Internals.Holders.UML_Holders.To_Holder
1450               (AMF.UML.Artifacts.UML_Artifact_Access'
1451                 (AMF.Standard_Profile_L2.Libraries.Standard_Profile_L2_Library_Access
1452                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Artifact));
1453
1454         elsif Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Library_Base_Artifact_A_Extension_Library then
1455            --  Library::base_Artifact : Artifact
1456
1457            return
1458              AMF.Internals.Holders.UML_Holders.To_Holder
1459               (AMF.UML.Artifacts.UML_Artifact_Access'
1460                 (AMF.Standard_Profile_L2.Libraries.Standard_Profile_L2_Library_Access
1461                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Artifact));
1462
1463         else
1464            raise Program_Error;
1465         end if;
1466      end Standard_Profile_L2_Library_Get;
1467
1468      ---------------------------------------
1469      -- Standard_Profile_L2_Metaclass_Get --
1470      ---------------------------------------
1471
1472      function Standard_Profile_L2_Metaclass_Get return League.Holders.Holder is
1473      begin
1474         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Metaclass_Base_Class_A_Extension_Metaclass then
1475            --  Metaclass::base_Class : Class
1476
1477            return
1478              AMF.Internals.Holders.UML_Holders.To_Holder
1479               (AMF.UML.Classes.UML_Class_Access'
1480                 (AMF.Standard_Profile_L2.Metaclasses.Standard_Profile_L2_Metaclass_Access
1481                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Class));
1482
1483         else
1484            raise Program_Error;
1485         end if;
1486      end Standard_Profile_L2_Metaclass_Get;
1487
1488      -------------------------------------------
1489      -- Standard_Profile_L2_Model_Library_Get --
1490      -------------------------------------------
1491
1492      function Standard_Profile_L2_Model_Library_Get return League.Holders.Holder is
1493      begin
1494         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Model_Library_Base_Package_A_Extension_Model_Library then
1495            --  ModelLibrary::base_Package : Package
1496
1497            return
1498              AMF.Internals.Holders.UML_Holders.To_Holder
1499               (AMF.UML.Packages.UML_Package_Access'
1500                 (AMF.Standard_Profile_L2.Model_Libraries.Standard_Profile_L2_Model_Library_Access
1501                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Package));
1502
1503         else
1504            raise Program_Error;
1505         end if;
1506      end Standard_Profile_L2_Model_Library_Get;
1507
1508      -------------------------------------
1509      -- Standard_Profile_L2_Process_Get --
1510      -------------------------------------
1511
1512      function Standard_Profile_L2_Process_Get return League.Holders.Holder is
1513      begin
1514         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Process_Base_Component_A_Extension_Process then
1515            --  Process::base_Component : Component
1516
1517            return
1518              AMF.Internals.Holders.UML_Holders.To_Holder
1519               (AMF.UML.Components.UML_Component_Access'
1520                 (AMF.Standard_Profile_L2.Processes.Standard_Profile_L2_Process_Access
1521                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Component));
1522
1523         else
1524            raise Program_Error;
1525         end if;
1526      end Standard_Profile_L2_Process_Get;
1527
1528      -----------------------------------------
1529      -- Standard_Profile_L2_Realization_Get --
1530      -----------------------------------------
1531
1532      function Standard_Profile_L2_Realization_Get return League.Holders.Holder is
1533      begin
1534         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Realization_Base_Classifier_A_Extension_Realization then
1535            --  Realization::base_Classifier : Classifier
1536
1537            return
1538              AMF.Internals.Holders.UML_Holders.To_Holder
1539               (AMF.UML.Classifiers.UML_Classifier_Access'
1540                 (AMF.Standard_Profile_L2.Realizations.Standard_Profile_L2_Realization_Access
1541                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Classifier));
1542
1543         else
1544            raise Program_Error;
1545         end if;
1546      end Standard_Profile_L2_Realization_Get;
1547
1548      ------------------------------------
1549      -- Standard_Profile_L2_Refine_Get --
1550      ------------------------------------
1551
1552      function Standard_Profile_L2_Refine_Get return League.Holders.Holder is
1553      begin
1554         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Refine_Base_Abstraction_A_Extension_Refine then
1555            --  Refine::base_Abstraction : Abstraction
1556
1557            return
1558              AMF.Internals.Holders.UML_Holders.To_Holder
1559               (AMF.UML.Abstractions.UML_Abstraction_Access'
1560                 (AMF.Standard_Profile_L2.Refines.Standard_Profile_L2_Refine_Access
1561                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Abstraction));
1562
1563         else
1564            raise Program_Error;
1565         end if;
1566      end Standard_Profile_L2_Refine_Get;
1567
1568      --------------------------------------------
1569      -- Standard_Profile_L2_Responsibility_Get --
1570      --------------------------------------------
1571
1572      function Standard_Profile_L2_Responsibility_Get return League.Holders.Holder is
1573      begin
1574         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Responsibility_Base_Usage_A_Extension_Responsibility then
1575            --  Responsibility::base_Usage : Usage
1576
1577            return
1578              AMF.Internals.Holders.UML_Holders.To_Holder
1579               (AMF.UML.Usages.UML_Usage_Access'
1580                 (AMF.Standard_Profile_L2.Responsibilities.Standard_Profile_L2_Responsibility_Access
1581                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Usage));
1582
1583         else
1584            raise Program_Error;
1585         end if;
1586      end Standard_Profile_L2_Responsibility_Get;
1587
1588      ------------------------------------
1589      -- Standard_Profile_L2_Script_Get --
1590      ------------------------------------
1591
1592      function Standard_Profile_L2_Script_Get return League.Holders.Holder is
1593      begin
1594         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_File_Base_Artifact_A_Extension_File then
1595            --  File::base_Artifact : Artifact
1596
1597            return
1598              AMF.Internals.Holders.UML_Holders.To_Holder
1599               (AMF.UML.Artifacts.UML_Artifact_Access'
1600                 (AMF.Standard_Profile_L2.Scripts.Standard_Profile_L2_Script_Access
1601                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Artifact));
1602
1603         elsif Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Script_Base_Artifact_A_Extension_Script then
1604            --  Script::base_Artifact : Artifact
1605
1606            return
1607              AMF.Internals.Holders.UML_Holders.To_Holder
1608               (AMF.UML.Artifacts.UML_Artifact_Access'
1609                 (AMF.Standard_Profile_L2.Scripts.Standard_Profile_L2_Script_Access
1610                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Artifact));
1611
1612         else
1613            raise Program_Error;
1614         end if;
1615      end Standard_Profile_L2_Script_Get;
1616
1617      ----------------------------------
1618      -- Standard_Profile_L2_Send_Get --
1619      ----------------------------------
1620
1621      function Standard_Profile_L2_Send_Get return League.Holders.Holder is
1622      begin
1623         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Send_Base_Usage_A_Extension_Send then
1624            --  Send::base_Usage : Usage
1625
1626            return
1627              AMF.Internals.Holders.UML_Holders.To_Holder
1628               (AMF.UML.Usages.UML_Usage_Access'
1629                 (AMF.Standard_Profile_L2.Sends.Standard_Profile_L2_Send_Access
1630                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Usage));
1631
1632         else
1633            raise Program_Error;
1634         end if;
1635      end Standard_Profile_L2_Send_Get;
1636
1637      -------------------------------------
1638      -- Standard_Profile_L2_Service_Get --
1639      -------------------------------------
1640
1641      function Standard_Profile_L2_Service_Get return League.Holders.Holder is
1642      begin
1643         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Service_Base_Component_A_Extension_Service then
1644            --  Service::base_Component : Component
1645
1646            return
1647              AMF.Internals.Holders.UML_Holders.To_Holder
1648               (AMF.UML.Components.UML_Component_Access'
1649                 (AMF.Standard_Profile_L2.Services.Standard_Profile_L2_Service_Access
1650                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Component));
1651
1652         else
1653            raise Program_Error;
1654         end if;
1655      end Standard_Profile_L2_Service_Get;
1656
1657      ------------------------------------
1658      -- Standard_Profile_L2_Source_Get --
1659      ------------------------------------
1660
1661      function Standard_Profile_L2_Source_Get return League.Holders.Holder is
1662      begin
1663         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_File_Base_Artifact_A_Extension_File then
1664            --  File::base_Artifact : Artifact
1665
1666            return
1667              AMF.Internals.Holders.UML_Holders.To_Holder
1668               (AMF.UML.Artifacts.UML_Artifact_Access'
1669                 (AMF.Standard_Profile_L2.Sources.Standard_Profile_L2_Source_Access
1670                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Artifact));
1671
1672         elsif Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Source_Base_Artifact_A_Extension_Source then
1673            --  Source::base_Artifact : Artifact
1674
1675            return
1676              AMF.Internals.Holders.UML_Holders.To_Holder
1677               (AMF.UML.Artifacts.UML_Artifact_Access'
1678                 (AMF.Standard_Profile_L2.Sources.Standard_Profile_L2_Source_Access
1679                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Artifact));
1680
1681         else
1682            raise Program_Error;
1683         end if;
1684      end Standard_Profile_L2_Source_Get;
1685
1686      -------------------------------------------
1687      -- Standard_Profile_L2_Specification_Get --
1688      -------------------------------------------
1689
1690      function Standard_Profile_L2_Specification_Get return League.Holders.Holder is
1691      begin
1692         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Specification_Base_Classifier_A_Extension_Specification then
1693            --  Specification::base_Classifier : Classifier
1694
1695            return
1696              AMF.Internals.Holders.UML_Holders.To_Holder
1697               (AMF.UML.Classifiers.UML_Classifier_Access'
1698                 (AMF.Standard_Profile_L2.Specifications.Standard_Profile_L2_Specification_Access
1699                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Classifier));
1700
1701         else
1702            raise Program_Error;
1703         end if;
1704      end Standard_Profile_L2_Specification_Get;
1705
1706      ---------------------------------------
1707      -- Standard_Profile_L2_Subsystem_Get --
1708      ---------------------------------------
1709
1710      function Standard_Profile_L2_Subsystem_Get return League.Holders.Holder is
1711      begin
1712         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Subsystem_Base_Component_A_Extension_Subsystem then
1713            --  Subsystem::base_Component : Component
1714
1715            return
1716              AMF.Internals.Holders.UML_Holders.To_Holder
1717               (AMF.UML.Components.UML_Component_Access'
1718                 (AMF.Standard_Profile_L2.Subsystems.Standard_Profile_L2_Subsystem_Access
1719                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Component));
1720
1721         else
1722            raise Program_Error;
1723         end if;
1724      end Standard_Profile_L2_Subsystem_Get;
1725
1726      -----------------------------------
1727      -- Standard_Profile_L2_Trace_Get --
1728      -----------------------------------
1729
1730      function Standard_Profile_L2_Trace_Get return League.Holders.Holder is
1731      begin
1732         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Trace_Base_Abstraction_A_Extension_Trace then
1733            --  Trace::base_Abstraction : Abstraction
1734
1735            return
1736              AMF.Internals.Holders.UML_Holders.To_Holder
1737               (AMF.UML.Abstractions.UML_Abstraction_Access'
1738                 (AMF.Standard_Profile_L2.Traces.Standard_Profile_L2_Trace_Access
1739                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Abstraction));
1740
1741         else
1742            raise Program_Error;
1743         end if;
1744      end Standard_Profile_L2_Trace_Get;
1745
1746      ----------------------------------
1747      -- Standard_Profile_L2_Type_Get --
1748      ----------------------------------
1749
1750      function Standard_Profile_L2_Type_Get return League.Holders.Holder is
1751      begin
1752         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Type_Base_Class_A_Extension_Type then
1753            --  Type::base_Class : Class
1754
1755            return
1756              AMF.Internals.Holders.UML_Holders.To_Holder
1757               (AMF.UML.Classes.UML_Class_Access'
1758                 (AMF.Standard_Profile_L2.Types.Standard_Profile_L2_Type_Access
1759                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Class));
1760
1761         else
1762            raise Program_Error;
1763         end if;
1764      end Standard_Profile_L2_Type_Get;
1765
1766      -------------------------------------
1767      -- Standard_Profile_L2_Utility_Get --
1768      -------------------------------------
1769
1770      function Standard_Profile_L2_Utility_Get return League.Holders.Holder is
1771      begin
1772         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Utility_Base_Class_A_Extension_Utility then
1773            --  Utility::base_Class : Class
1774
1775            return
1776              AMF.Internals.Holders.UML_Holders.To_Holder
1777               (AMF.UML.Classes.UML_Class_Access'
1778                 (AMF.Standard_Profile_L2.Utilities.Standard_Profile_L2_Utility_Access
1779                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Class));
1780
1781         else
1782            raise Program_Error;
1783         end if;
1784      end Standard_Profile_L2_Utility_Get;
1785
1786      ---------------------------------------------
1787      -- Standard_Profile_L3_Build_Component_Get --
1788      ---------------------------------------------
1789
1790      function Standard_Profile_L3_Build_Component_Get return League.Holders.Holder is
1791      begin
1792         if Property = AMF.Internals.Tables.Standard_Profile_L3_Metamodel.MP_Standard_Profile_L3_Build_Component_Base_Component_A_Extension_Build_Component then
1793            --  BuildComponent::base_Component : Component
1794
1795            return
1796              AMF.Internals.Holders.UML_Holders.To_Holder
1797               (AMF.UML.Components.UML_Component_Access'
1798                 (AMF.Standard_Profile_L3.Build_Components.Standard_Profile_L3_Build_Component_Access
1799                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Component));
1800
1801         else
1802            raise Program_Error;
1803         end if;
1804      end Standard_Profile_L3_Build_Component_Get;
1805
1806      ---------------------------------------
1807      -- Standard_Profile_L3_Metamodel_Get --
1808      ---------------------------------------
1809
1810      function Standard_Profile_L3_Metamodel_Get return League.Holders.Holder is
1811      begin
1812         if Property = AMF.Internals.Tables.Standard_Profile_L3_Metamodel.MP_Standard_Profile_L3_Metamodel_Base_Model_A_Extension_Metamodel then
1813            --  Metamodel::base_Model : Model
1814
1815            return
1816              AMF.Internals.Holders.UML_Holders.To_Holder
1817               (AMF.UML.Models.UML_Model_Access'
1818                 (AMF.Standard_Profile_L3.Metamodels.Standard_Profile_L3_Metamodel_Access
1819                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Model));
1820
1821         else
1822            raise Program_Error;
1823         end if;
1824      end Standard_Profile_L3_Metamodel_Get;
1825
1826      ------------------------------------------
1827      -- Standard_Profile_L3_System_Model_Get --
1828      ------------------------------------------
1829
1830      function Standard_Profile_L3_System_Model_Get return League.Holders.Holder is
1831      begin
1832         if Property = AMF.Internals.Tables.Standard_Profile_L3_Metamodel.MP_Standard_Profile_L3_System_Model_Base_Model_A_Extension_System_Model then
1833            --  SystemModel::base_Model : Model
1834
1835            return
1836              AMF.Internals.Holders.UML_Holders.To_Holder
1837               (AMF.UML.Models.UML_Model_Access'
1838                 (AMF.Standard_Profile_L3.System_Models.Standard_Profile_L3_System_Model_Access
1839                   (AMF.Internals.Helpers.To_Element (Self)).Get_Base_Model));
1840
1841         else
1842            raise Program_Error;
1843         end if;
1844      end Standard_Profile_L3_System_Model_Get;
1845
1846      -------------------------
1847      -- UML_Abstraction_Get --
1848      -------------------------
1849
1850      function UML_Abstraction_Get return League.Holders.Holder is
1851      begin
1852         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Client_Named_Element_Client_Dependency then
1853            --  Dependency::client : NamedElement
1854
1855            return
1856              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
1857               (AMF.UML.Abstractions.UML_Abstraction_Access
1858                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client);
1859
1860         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
1861            --  NamedElement::clientDependency : Dependency
1862
1863            return
1864              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
1865               (AMF.UML.Abstractions.UML_Abstraction_Access
1866                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
1867
1868         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Abstraction_Mapping_A_Abstraction then
1869            --  Abstraction::mapping : OpaqueExpression
1870
1871            return
1872              AMF.Internals.Holders.UML_Holders.To_Holder
1873               (AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access'
1874                 (AMF.UML.Abstractions.UML_Abstraction_Access
1875                   (AMF.Internals.Helpers.To_Element (Self)).Get_Mapping));
1876
1877         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
1878            --  NamedElement::name : String
1879
1880            return
1881              AMF.Holders.To_Holder
1882               (AMF.UML.Abstractions.UML_Abstraction_Access
1883                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
1884
1885         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
1886            --  NamedElement::nameExpression : StringExpression
1887
1888            return
1889              AMF.Internals.Holders.UML_Holders.To_Holder
1890               (AMF.UML.String_Expressions.UML_String_Expression_Access'
1891                 (AMF.UML.Abstractions.UML_Abstraction_Access
1892                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
1893
1894         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
1895            --  NamedElement::namespace : Namespace
1896
1897            return
1898              AMF.Internals.Holders.UML_Holders.To_Holder
1899               (AMF.UML.Namespaces.UML_Namespace_Access'
1900                 (AMF.UML.Abstractions.UML_Abstraction_Access
1901                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
1902
1903         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
1904            --  Element::ownedComment : Comment
1905
1906            return
1907              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
1908               (AMF.UML.Abstractions.UML_Abstraction_Access
1909                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
1910
1911         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
1912            --  Element::ownedElement : Element
1913
1914            return
1915              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
1916               (AMF.UML.Abstractions.UML_Abstraction_Access
1917                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
1918
1919         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
1920            --  Element::owner : Element
1921
1922            return
1923              AMF.Internals.Holders.UML_Holders.To_Holder
1924               (AMF.UML.Elements.UML_Element_Access'
1925                 (AMF.UML.Abstractions.UML_Abstraction_Access
1926                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
1927
1928         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
1929            --  ParameterableElement::owningTemplateParameter : TemplateParameter
1930
1931            return
1932              AMF.Internals.Holders.UML_Holders.To_Holder
1933               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
1934                 (AMF.UML.Abstractions.UML_Abstraction_Access
1935                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
1936
1937         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
1938            --  NamedElement::qualifiedName : String
1939
1940            return
1941              AMF.Holders.To_Holder
1942               (AMF.UML.Abstractions.UML_Abstraction_Access
1943                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
1944
1945         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship then
1946            --  Relationship::relatedElement : Element
1947
1948            return
1949              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
1950               (AMF.UML.Abstractions.UML_Abstraction_Access
1951                 (AMF.Internals.Helpers.To_Element (Self)).Get_Related_Element);
1952
1953         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship then
1954            --  DirectedRelationship::source : Element
1955
1956            return
1957              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
1958               (AMF.UML.Abstractions.UML_Abstraction_Access
1959                 (AMF.Internals.Helpers.To_Element (Self)).Get_Source);
1960
1961         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Supplier_A_Supplier_Dependency then
1962            --  Dependency::supplier : NamedElement
1963
1964            return
1965              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
1966               (AMF.UML.Abstractions.UML_Abstraction_Access
1967                 (AMF.Internals.Helpers.To_Element (Self)).Get_Supplier);
1968
1969         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship then
1970            --  DirectedRelationship::target : Element
1971
1972            return
1973              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
1974               (AMF.UML.Abstractions.UML_Abstraction_Access
1975                 (AMF.Internals.Helpers.To_Element (Self)).Get_Target);
1976
1977         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
1978            --  ParameterableElement::templateParameter : TemplateParameter
1979
1980            return
1981              AMF.Internals.Holders.UML_Holders.To_Holder
1982               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
1983                 (AMF.UML.Abstractions.UML_Abstraction_Access
1984                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
1985
1986         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
1987            --  NamedElement::visibility : VisibilityKind
1988
1989            return
1990              AMF.UML.Holders.To_Holder
1991               (AMF.UML.Abstractions.UML_Abstraction_Access
1992                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
1993
1994         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
1995            --  PackageableElement::visibility : VisibilityKind
1996
1997            return
1998              AMF.UML.Holders.Visibility_Kinds.To_Holder
1999               (AMF.UML.Abstractions.UML_Abstraction_Access
2000                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
2001
2002         else
2003            raise Program_Error;
2004         end if;
2005      end UML_Abstraction_Get;
2006
2007      --------------------------------
2008      -- UML_Accept_Call_Action_Get --
2009      --------------------------------
2010
2011      function UML_Accept_Call_Action_Get return League.Holders.Holder is
2012      begin
2013         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
2014            --  ActivityNode::activity : Activity
2015
2016            return
2017              AMF.Internals.Holders.UML_Holders.To_Holder
2018               (AMF.UML.Activities.UML_Activity_Access'
2019                 (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2020                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
2021
2022         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
2023            --  NamedElement::clientDependency : Dependency
2024
2025            return
2026              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
2027               (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2028                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
2029
2030         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
2031            --  Action::context : Classifier
2032
2033            return
2034              AMF.Internals.Holders.UML_Holders.To_Holder
2035               (AMF.UML.Classifiers.UML_Classifier_Access'
2036                 (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2037                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
2038
2039         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
2040            --  ExecutableNode::handler : ExceptionHandler
2041
2042            return
2043              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
2044               (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2045                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
2046
2047         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
2048            --  ActivityNode::inGroup : ActivityGroup
2049
2050            return
2051              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
2052               (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2053                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
2054
2055         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
2056            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
2057
2058            return
2059              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
2060               (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2061                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
2062
2063         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
2064            --  ActivityNode::inPartition : ActivityPartition
2065
2066            return
2067              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
2068               (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2069                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
2070
2071         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
2072            --  ActivityNode::inStructuredNode : StructuredActivityNode
2073
2074            return
2075              AMF.Internals.Holders.UML_Holders.To_Holder
2076               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
2077                 (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2078                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
2079
2080         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
2081            --  ActivityNode::incoming : ActivityEdge
2082
2083            return
2084              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
2085               (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2086                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
2087
2088         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
2089            --  Action::input : InputPin
2090
2091            return
2092              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
2093               (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2094                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
2095
2096         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
2097            --  RedefinableElement::isLeaf : Boolean
2098
2099            return
2100              League.Holders.Booleans.To_Holder
2101               (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2102                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
2103
2104         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
2105            --  Action::isLocallyReentrant : Boolean
2106
2107            return
2108              League.Holders.Booleans.To_Holder
2109               (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2110                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
2111
2112         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Accept_Event_Action_Is_Unmarshall then
2113            --  AcceptEventAction::isUnmarshall : Boolean
2114
2115            return
2116              League.Holders.Booleans.To_Holder
2117               (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2118                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Unmarshall);
2119
2120         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
2121            --  Action::localPostcondition : Constraint
2122
2123            return
2124              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
2125               (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2126                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
2127
2128         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
2129            --  Action::localPrecondition : Constraint
2130
2131            return
2132              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
2133               (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2134                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
2135
2136         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
2137            --  NamedElement::name : String
2138
2139            return
2140              AMF.Holders.To_Holder
2141               (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2142                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
2143
2144         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
2145            --  NamedElement::nameExpression : StringExpression
2146
2147            return
2148              AMF.Internals.Holders.UML_Holders.To_Holder
2149               (AMF.UML.String_Expressions.UML_String_Expression_Access'
2150                 (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2151                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
2152
2153         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
2154            --  NamedElement::namespace : Namespace
2155
2156            return
2157              AMF.Internals.Holders.UML_Holders.To_Holder
2158               (AMF.UML.Namespaces.UML_Namespace_Access'
2159                 (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2160                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
2161
2162         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
2163            --  ActivityNode::outgoing : ActivityEdge
2164
2165            return
2166              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
2167               (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2168                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
2169
2170         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
2171            --  Action::output : OutputPin
2172
2173            return
2174              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
2175               (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2176                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
2177
2178         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
2179            --  Element::ownedComment : Comment
2180
2181            return
2182              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
2183               (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2184                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
2185
2186         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
2187            --  Element::ownedElement : Element
2188
2189            return
2190              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
2191               (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2192                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
2193
2194         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
2195            --  Element::owner : Element
2196
2197            return
2198              AMF.Internals.Holders.UML_Holders.To_Holder
2199               (AMF.UML.Elements.UML_Element_Access'
2200                 (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2201                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
2202
2203         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
2204            --  NamedElement::qualifiedName : String
2205
2206            return
2207              AMF.Holders.To_Holder
2208               (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2209                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
2210
2211         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
2212            --  RedefinableElement::redefinedElement : RedefinableElement
2213
2214            return
2215              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
2216               (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2217                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
2218
2219         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
2220            --  ActivityNode::redefinedNode : ActivityNode
2221
2222            return
2223              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
2224               (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2225                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
2226
2227         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
2228            --  RedefinableElement::redefinitionContext : Classifier
2229
2230            return
2231              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
2232               (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2233                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
2234
2235         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Accept_Event_Action_Result_A_Accept_Event_Action then
2236            --  AcceptEventAction::result : OutputPin
2237
2238            return
2239              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
2240               (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2241                 (AMF.Internals.Helpers.To_Element (Self)).Get_Result);
2242
2243         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Accept_Call_Action_Return_Information_A_Accept_Call_Action then
2244            --  AcceptCallAction::returnInformation : OutputPin
2245
2246            return
2247              AMF.Internals.Holders.UML_Holders.To_Holder
2248               (AMF.UML.Output_Pins.UML_Output_Pin_Access'
2249                 (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2250                   (AMF.Internals.Helpers.To_Element (Self)).Get_Return_Information));
2251
2252         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Accept_Event_Action_Trigger_A_Accept_Event_Action then
2253            --  AcceptEventAction::trigger : Trigger
2254
2255            return
2256              AMF.UML.Triggers.Collections.UML_Trigger_Collections.Internals.To_Holder
2257               (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2258                 (AMF.Internals.Helpers.To_Element (Self)).Get_Trigger);
2259
2260         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
2261            --  NamedElement::visibility : VisibilityKind
2262
2263            return
2264              AMF.UML.Holders.To_Holder
2265               (AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
2266                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
2267
2268         else
2269            raise Program_Error;
2270         end if;
2271      end UML_Accept_Call_Action_Get;
2272
2273      ---------------------------------
2274      -- UML_Accept_Event_Action_Get --
2275      ---------------------------------
2276
2277      function UML_Accept_Event_Action_Get return League.Holders.Holder is
2278      begin
2279         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
2280            --  ActivityNode::activity : Activity
2281
2282            return
2283              AMF.Internals.Holders.UML_Holders.To_Holder
2284               (AMF.UML.Activities.UML_Activity_Access'
2285                 (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
2286                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
2287
2288         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
2289            --  NamedElement::clientDependency : Dependency
2290
2291            return
2292              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
2293               (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
2294                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
2295
2296         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
2297            --  Action::context : Classifier
2298
2299            return
2300              AMF.Internals.Holders.UML_Holders.To_Holder
2301               (AMF.UML.Classifiers.UML_Classifier_Access'
2302                 (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
2303                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
2304
2305         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
2306            --  ExecutableNode::handler : ExceptionHandler
2307
2308            return
2309              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
2310               (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
2311                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
2312
2313         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
2314            --  ActivityNode::inGroup : ActivityGroup
2315
2316            return
2317              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
2318               (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
2319                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
2320
2321         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
2322            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
2323
2324            return
2325              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
2326               (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
2327                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
2328
2329         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
2330            --  ActivityNode::inPartition : ActivityPartition
2331
2332            return
2333              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
2334               (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
2335                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
2336
2337         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
2338            --  ActivityNode::inStructuredNode : StructuredActivityNode
2339
2340            return
2341              AMF.Internals.Holders.UML_Holders.To_Holder
2342               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
2343                 (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
2344                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
2345
2346         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
2347            --  ActivityNode::incoming : ActivityEdge
2348
2349            return
2350              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
2351               (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
2352                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
2353
2354         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
2355            --  Action::input : InputPin
2356
2357            return
2358              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
2359               (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
2360                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
2361
2362         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
2363            --  RedefinableElement::isLeaf : Boolean
2364
2365            return
2366              League.Holders.Booleans.To_Holder
2367               (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
2368                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
2369
2370         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
2371            --  Action::isLocallyReentrant : Boolean
2372
2373            return
2374              League.Holders.Booleans.To_Holder
2375               (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
2376                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
2377
2378         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Accept_Event_Action_Is_Unmarshall then
2379            --  AcceptEventAction::isUnmarshall : Boolean
2380
2381            return
2382              League.Holders.Booleans.To_Holder
2383               (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
2384                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Unmarshall);
2385
2386         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
2387            --  Action::localPostcondition : Constraint
2388
2389            return
2390              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
2391               (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
2392                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
2393
2394         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
2395            --  Action::localPrecondition : Constraint
2396
2397            return
2398              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
2399               (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
2400                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
2401
2402         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
2403            --  NamedElement::name : String
2404
2405            return
2406              AMF.Holders.To_Holder
2407               (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
2408                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
2409
2410         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
2411            --  NamedElement::nameExpression : StringExpression
2412
2413            return
2414              AMF.Internals.Holders.UML_Holders.To_Holder
2415               (AMF.UML.String_Expressions.UML_String_Expression_Access'
2416                 (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
2417                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
2418
2419         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
2420            --  NamedElement::namespace : Namespace
2421
2422            return
2423              AMF.Internals.Holders.UML_Holders.To_Holder
2424               (AMF.UML.Namespaces.UML_Namespace_Access'
2425                 (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
2426                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
2427
2428         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
2429            --  ActivityNode::outgoing : ActivityEdge
2430
2431            return
2432              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
2433               (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
2434                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
2435
2436         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
2437            --  Action::output : OutputPin
2438
2439            return
2440              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
2441               (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
2442                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
2443
2444         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
2445            --  Element::ownedComment : Comment
2446
2447            return
2448              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
2449               (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
2450                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
2451
2452         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
2453            --  Element::ownedElement : Element
2454
2455            return
2456              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
2457               (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
2458                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
2459
2460         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
2461            --  Element::owner : Element
2462
2463            return
2464              AMF.Internals.Holders.UML_Holders.To_Holder
2465               (AMF.UML.Elements.UML_Element_Access'
2466                 (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
2467                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
2468
2469         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
2470            --  NamedElement::qualifiedName : String
2471
2472            return
2473              AMF.Holders.To_Holder
2474               (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
2475                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
2476
2477         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
2478            --  RedefinableElement::redefinedElement : RedefinableElement
2479
2480            return
2481              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
2482               (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
2483                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
2484
2485         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
2486            --  ActivityNode::redefinedNode : ActivityNode
2487
2488            return
2489              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
2490               (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
2491                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
2492
2493         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
2494            --  RedefinableElement::redefinitionContext : Classifier
2495
2496            return
2497              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
2498               (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
2499                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
2500
2501         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Accept_Event_Action_Result_A_Accept_Event_Action then
2502            --  AcceptEventAction::result : OutputPin
2503
2504            return
2505              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
2506               (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
2507                 (AMF.Internals.Helpers.To_Element (Self)).Get_Result);
2508
2509         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Accept_Event_Action_Trigger_A_Accept_Event_Action then
2510            --  AcceptEventAction::trigger : Trigger
2511
2512            return
2513              AMF.UML.Triggers.Collections.UML_Trigger_Collections.Internals.To_Holder
2514               (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
2515                 (AMF.Internals.Helpers.To_Element (Self)).Get_Trigger);
2516
2517         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
2518            --  NamedElement::visibility : VisibilityKind
2519
2520            return
2521              AMF.UML.Holders.To_Holder
2522               (AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
2523                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
2524
2525         else
2526            raise Program_Error;
2527         end if;
2528      end UML_Accept_Event_Action_Get;
2529
2530      --------------------------------------------
2531      -- UML_Action_Execution_Specification_Get --
2532      --------------------------------------------
2533
2534      function UML_Action_Execution_Specification_Get return League.Holders.Holder is
2535      begin
2536         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Execution_Specification_Action_A_Action_Execution_Specification then
2537            --  ActionExecutionSpecification::action : Action
2538
2539            return
2540              AMF.Internals.Holders.UML_Holders.To_Holder
2541               (AMF.UML.Actions.UML_Action_Access'
2542                 (AMF.UML.Action_Execution_Specifications.UML_Action_Execution_Specification_Access
2543                   (AMF.Internals.Helpers.To_Element (Self)).Get_Action));
2544
2545         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
2546            --  NamedElement::clientDependency : Dependency
2547
2548            return
2549              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
2550               (AMF.UML.Action_Execution_Specifications.UML_Action_Execution_Specification_Access
2551                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
2552
2553         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Covered_Lifeline_Covered_By then
2554            --  InteractionFragment::covered : Lifeline
2555
2556            return
2557              AMF.UML.Lifelines.Collections.UML_Lifeline_Collections.Internals.To_Holder
2558               (AMF.UML.Action_Execution_Specifications.UML_Action_Execution_Specification_Access
2559                 (AMF.Internals.Helpers.To_Element (Self)).Get_Covered);
2560
2561         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Interaction_Interaction_Fragment then
2562            --  InteractionFragment::enclosingInteraction : Interaction
2563
2564            return
2565              AMF.Internals.Holders.UML_Holders.To_Holder
2566               (AMF.UML.Interactions.UML_Interaction_Access'
2567                 (AMF.UML.Action_Execution_Specifications.UML_Action_Execution_Specification_Access
2568                   (AMF.Internals.Helpers.To_Element (Self)).Get_Enclosing_Interaction));
2569
2570         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Operand_Interaction_Operand_Fragment then
2571            --  InteractionFragment::enclosingOperand : InteractionOperand
2572
2573            return
2574              AMF.Internals.Holders.UML_Holders.To_Holder
2575               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access'
2576                 (AMF.UML.Action_Execution_Specifications.UML_Action_Execution_Specification_Access
2577                   (AMF.Internals.Helpers.To_Element (Self)).Get_Enclosing_Operand));
2578
2579         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Execution_Specification_Finish_A_Execution_Specification then
2580            --  ExecutionSpecification::finish : OccurrenceSpecification
2581
2582            return
2583              AMF.Internals.Holders.UML_Holders.To_Holder
2584               (AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access'
2585                 (AMF.UML.Action_Execution_Specifications.UML_Action_Execution_Specification_Access
2586                   (AMF.Internals.Helpers.To_Element (Self)).Get_Finish));
2587
2588         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_General_Ordering_A_Interaction_Fragment then
2589            --  InteractionFragment::generalOrdering : GeneralOrdering
2590
2591            return
2592              AMF.UML.General_Orderings.Collections.UML_General_Ordering_Collections.Internals.To_Holder
2593               (AMF.UML.Action_Execution_Specifications.UML_Action_Execution_Specification_Access
2594                 (AMF.Internals.Helpers.To_Element (Self)).Get_General_Ordering);
2595
2596         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
2597            --  NamedElement::name : String
2598
2599            return
2600              AMF.Holders.To_Holder
2601               (AMF.UML.Action_Execution_Specifications.UML_Action_Execution_Specification_Access
2602                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
2603
2604         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
2605            --  NamedElement::nameExpression : StringExpression
2606
2607            return
2608              AMF.Internals.Holders.UML_Holders.To_Holder
2609               (AMF.UML.String_Expressions.UML_String_Expression_Access'
2610                 (AMF.UML.Action_Execution_Specifications.UML_Action_Execution_Specification_Access
2611                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
2612
2613         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
2614            --  NamedElement::namespace : Namespace
2615
2616            return
2617              AMF.Internals.Holders.UML_Holders.To_Holder
2618               (AMF.UML.Namespaces.UML_Namespace_Access'
2619                 (AMF.UML.Action_Execution_Specifications.UML_Action_Execution_Specification_Access
2620                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
2621
2622         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
2623            --  Element::ownedComment : Comment
2624
2625            return
2626              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
2627               (AMF.UML.Action_Execution_Specifications.UML_Action_Execution_Specification_Access
2628                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
2629
2630         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
2631            --  Element::ownedElement : Element
2632
2633            return
2634              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
2635               (AMF.UML.Action_Execution_Specifications.UML_Action_Execution_Specification_Access
2636                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
2637
2638         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
2639            --  Element::owner : Element
2640
2641            return
2642              AMF.Internals.Holders.UML_Holders.To_Holder
2643               (AMF.UML.Elements.UML_Element_Access'
2644                 (AMF.UML.Action_Execution_Specifications.UML_Action_Execution_Specification_Access
2645                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
2646
2647         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
2648            --  NamedElement::qualifiedName : String
2649
2650            return
2651              AMF.Holders.To_Holder
2652               (AMF.UML.Action_Execution_Specifications.UML_Action_Execution_Specification_Access
2653                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
2654
2655         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Execution_Specification_Start_A_Execution_Specification then
2656            --  ExecutionSpecification::start : OccurrenceSpecification
2657
2658            return
2659              AMF.Internals.Holders.UML_Holders.To_Holder
2660               (AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access'
2661                 (AMF.UML.Action_Execution_Specifications.UML_Action_Execution_Specification_Access
2662                   (AMF.Internals.Helpers.To_Element (Self)).Get_Start));
2663
2664         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
2665            --  NamedElement::visibility : VisibilityKind
2666
2667            return
2668              AMF.UML.Holders.To_Holder
2669               (AMF.UML.Action_Execution_Specifications.UML_Action_Execution_Specification_Access
2670                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
2671
2672         else
2673            raise Program_Error;
2674         end if;
2675      end UML_Action_Execution_Specification_Get;
2676
2677      ------------------------------
2678      -- UML_Action_Input_Pin_Get --
2679      ------------------------------
2680
2681      function UML_Action_Input_Pin_Get return League.Holders.Holder is
2682      begin
2683         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
2684            --  ActivityNode::activity : Activity
2685
2686            return
2687              AMF.Internals.Holders.UML_Holders.To_Holder
2688               (AMF.UML.Activities.UML_Activity_Access'
2689                 (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2690                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
2691
2692         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
2693            --  NamedElement::clientDependency : Dependency
2694
2695            return
2696              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
2697               (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2698                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
2699
2700         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_Pin_From_Action_A_Action_Input_Pin then
2701            --  ActionInputPin::fromAction : Action
2702
2703            return
2704              AMF.Internals.Holders.UML_Holders.To_Holder
2705               (AMF.UML.Actions.UML_Action_Access'
2706                 (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2707                   (AMF.Internals.Helpers.To_Element (Self)).Get_From_Action));
2708
2709         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
2710            --  ActivityNode::inGroup : ActivityGroup
2711
2712            return
2713              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
2714               (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2715                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
2716
2717         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
2718            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
2719
2720            return
2721              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
2722               (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2723                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
2724
2725         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
2726            --  ActivityNode::inPartition : ActivityPartition
2727
2728            return
2729              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
2730               (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2731                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
2732
2733         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_In_State_A_Object_Node then
2734            --  ObjectNode::inState : State
2735
2736            return
2737              AMF.UML.States.Collections.UML_State_Collections.Internals.To_Holder
2738               (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2739                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_State);
2740
2741         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
2742            --  ActivityNode::inStructuredNode : StructuredActivityNode
2743
2744            return
2745              AMF.Internals.Holders.UML_Holders.To_Holder
2746               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
2747                 (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2748                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
2749
2750         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
2751            --  ActivityNode::incoming : ActivityEdge
2752
2753            return
2754              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
2755               (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2756                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
2757
2758         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Pin_Is_Control then
2759            --  Pin::isControl : Boolean
2760
2761            return
2762              League.Holders.Booleans.To_Holder
2763               (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2764                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Control);
2765
2766         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Is_Control_Type then
2767            --  ObjectNode::isControlType : Boolean
2768
2769            return
2770              League.Holders.Booleans.To_Holder
2771               (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2772                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Control_Type);
2773
2774         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
2775            --  RedefinableElement::isLeaf : Boolean
2776
2777            return
2778              League.Holders.Booleans.To_Holder
2779               (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2780                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
2781
2782         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Ordered then
2783            --  MultiplicityElement::isOrdered : Boolean
2784
2785            return
2786              League.Holders.Booleans.To_Holder
2787               (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2788                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Ordered);
2789
2790         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Unique then
2791            --  MultiplicityElement::isUnique : Boolean
2792
2793            return
2794              League.Holders.Booleans.To_Holder
2795               (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2796                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Unique);
2797
2798         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower then
2799            --  MultiplicityElement::lower : Integer
2800
2801            return
2802              AMF.Holders.To_Holder
2803               (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2804                 (AMF.Internals.Helpers.To_Element (Self)).Get_Lower);
2805
2806         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower_Value_A_Owning_Lower then
2807            --  MultiplicityElement::lowerValue : ValueSpecification
2808
2809            return
2810              AMF.Internals.Holders.UML_Holders.To_Holder
2811               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
2812                 (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2813                   (AMF.Internals.Helpers.To_Element (Self)).Get_Lower_Value));
2814
2815         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
2816            --  NamedElement::name : String
2817
2818            return
2819              AMF.Holders.To_Holder
2820               (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2821                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
2822
2823         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
2824            --  NamedElement::nameExpression : StringExpression
2825
2826            return
2827              AMF.Internals.Holders.UML_Holders.To_Holder
2828               (AMF.UML.String_Expressions.UML_String_Expression_Access'
2829                 (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2830                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
2831
2832         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
2833            --  NamedElement::namespace : Namespace
2834
2835            return
2836              AMF.Internals.Holders.UML_Holders.To_Holder
2837               (AMF.UML.Namespaces.UML_Namespace_Access'
2838                 (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2839                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
2840
2841         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Ordering then
2842            --  ObjectNode::ordering : ObjectNodeOrderingKind
2843
2844            return
2845              AMF.UML.Holders.Object_Node_Ordering_Kinds.To_Holder
2846               (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2847                 (AMF.Internals.Helpers.To_Element (Self)).Get_Ordering);
2848
2849         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
2850            --  ActivityNode::outgoing : ActivityEdge
2851
2852            return
2853              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
2854               (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2855                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
2856
2857         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
2858            --  Element::ownedComment : Comment
2859
2860            return
2861              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
2862               (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2863                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
2864
2865         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
2866            --  Element::ownedElement : Element
2867
2868            return
2869              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
2870               (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2871                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
2872
2873         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
2874            --  Element::owner : Element
2875
2876            return
2877              AMF.Internals.Holders.UML_Holders.To_Holder
2878               (AMF.UML.Elements.UML_Element_Access'
2879                 (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2880                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
2881
2882         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
2883            --  NamedElement::qualifiedName : String
2884
2885            return
2886              AMF.Holders.To_Holder
2887               (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2888                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
2889
2890         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
2891            --  RedefinableElement::redefinedElement : RedefinableElement
2892
2893            return
2894              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
2895               (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2896                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
2897
2898         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
2899            --  ActivityNode::redefinedNode : ActivityNode
2900
2901            return
2902              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
2903               (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2904                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
2905
2906         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
2907            --  RedefinableElement::redefinitionContext : Classifier
2908
2909            return
2910              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
2911               (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2912                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
2913
2914         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Selection_A_Object_Node then
2915            --  ObjectNode::selection : Behavior
2916
2917            return
2918              AMF.Internals.Holders.UML_Holders.To_Holder
2919               (AMF.UML.Behaviors.UML_Behavior_Access'
2920                 (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2921                   (AMF.Internals.Helpers.To_Element (Self)).Get_Selection));
2922
2923         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
2924            --  TypedElement::type : Type
2925
2926            return
2927              AMF.Internals.Holders.UML_Holders.To_Holder
2928               (AMF.UML.Types.UML_Type_Access'
2929                 (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2930                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
2931
2932         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper then
2933            --  MultiplicityElement::upper : UnlimitedNatural
2934
2935            return
2936              AMF.Holders.To_Holder
2937               (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2938                 (AMF.Internals.Helpers.To_Element (Self)).Get_Upper);
2939
2940         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Upper_Bound_A_Object_Node then
2941            --  ObjectNode::upperBound : ValueSpecification
2942
2943            return
2944              AMF.Internals.Holders.UML_Holders.To_Holder
2945               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
2946                 (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2947                   (AMF.Internals.Helpers.To_Element (Self)).Get_Upper_Bound));
2948
2949         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper_Value_A_Owning_Upper then
2950            --  MultiplicityElement::upperValue : ValueSpecification
2951
2952            return
2953              AMF.Internals.Holders.UML_Holders.To_Holder
2954               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
2955                 (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2956                   (AMF.Internals.Helpers.To_Element (Self)).Get_Upper_Value));
2957
2958         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
2959            --  NamedElement::visibility : VisibilityKind
2960
2961            return
2962              AMF.UML.Holders.To_Holder
2963               (AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
2964                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
2965
2966         else
2967            raise Program_Error;
2968         end if;
2969      end UML_Action_Input_Pin_Get;
2970
2971      ----------------------
2972      -- UML_Activity_Get --
2973      ----------------------
2974
2975      function UML_Activity_Get return League.Holders.Holder is
2976      begin
2977         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier then
2978            --  Classifier::attribute : Property
2979
2980            return
2981              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
2982               (AMF.UML.Activities.UML_Activity_Access
2983                 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute);
2984
2985         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
2986            --  BehavioredClassifier::classifierBehavior : Behavior
2987
2988            return
2989              AMF.Internals.Holders.UML_Holders.To_Holder
2990               (AMF.UML.Behaviors.UML_Behavior_Access'
2991                 (AMF.UML.Activities.UML_Activity_Access
2992                   (AMF.Internals.Helpers.To_Element (Self)).Get_Classifier_Behavior));
2993
2994         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
2995            --  NamedElement::clientDependency : Dependency
2996
2997            return
2998              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
2999               (AMF.UML.Activities.UML_Activity_Access
3000                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
3001
3002         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier then
3003            --  Classifier::collaborationUse : CollaborationUse
3004
3005            return
3006              AMF.UML.Collaboration_Uses.Collections.UML_Collaboration_Use_Collections.Internals.To_Holder
3007               (AMF.UML.Activities.UML_Activity_Access
3008                 (AMF.Internals.Helpers.To_Element (Self)).Get_Collaboration_Use);
3009
3010         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Context_A_Behavior then
3011            --  Behavior::context : BehavioredClassifier
3012
3013            return
3014              AMF.Internals.Holders.UML_Holders.To_Holder
3015               (AMF.UML.Behaviored_Classifiers.UML_Behaviored_Classifier_Access'
3016                 (AMF.UML.Activities.UML_Activity_Access
3017                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
3018
3019         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_Activity_Edge_Activity then
3020            --  Activity::edge : ActivityEdge
3021
3022            return
3023              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
3024               (AMF.UML.Activities.UML_Activity_Access
3025                 (AMF.Internals.Helpers.To_Element (Self)).Get_Edge);
3026
3027         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
3028            --  Namespace::elementImport : ElementImport
3029
3030            return
3031              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
3032               (AMF.UML.Activities.UML_Activity_Access
3033                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
3034
3035         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Extension_Extension_Metaclass then
3036            --  Class::extension : Extension
3037
3038            return
3039              AMF.UML.Extensions.Collections.UML_Extension_Collections.Internals.To_Holder
3040               (AMF.UML.Activities.UML_Activity_Access
3041                 (AMF.Internals.Helpers.To_Element (Self)).Get_Extension);
3042
3043         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier then
3044            --  Classifier::feature : Feature
3045
3046            return
3047              AMF.UML.Features.Collections.UML_Feature_Collections.Internals.To_Holder
3048               (AMF.UML.Activities.UML_Activity_Access
3049                 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature);
3050
3051         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier then
3052            --  Classifier::general : Classifier
3053
3054            return
3055              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
3056               (AMF.UML.Activities.UML_Activity_Access
3057                 (AMF.Internals.Helpers.To_Element (Self)).Get_General);
3058
3059         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific then
3060            --  Classifier::generalization : Generalization
3061
3062            return
3063              AMF.UML.Generalizations.Collections.UML_Generalization_Collections.Internals.To_Holder
3064               (AMF.UML.Activities.UML_Activity_Access
3065                 (AMF.Internals.Helpers.To_Element (Self)).Get_Generalization);
3066
3067         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Activity_Group_In_Activity then
3068            --  Activity::group : ActivityGroup
3069
3070            return
3071              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
3072               (AMF.UML.Activities.UML_Activity_Access
3073                 (AMF.Internals.Helpers.To_Element (Self)).Get_Group);
3074
3075         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
3076            --  Namespace::importedMember : PackageableElement
3077
3078            return
3079              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
3080               (AMF.UML.Activities.UML_Activity_Access
3081                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
3082
3083         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier then
3084            --  Classifier::inheritedMember : NamedElement
3085
3086            return
3087              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
3088               (AMF.UML.Activities.UML_Activity_Access
3089                 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member);
3090
3091         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier then
3092            --  BehavioredClassifier::interfaceRealization : InterfaceRealization
3093
3094            return
3095              AMF.UML.Interface_Realizations.Collections.UML_Interface_Realization_Collections.Internals.To_Holder
3096               (AMF.UML.Activities.UML_Activity_Access
3097                 (AMF.Internals.Helpers.To_Element (Self)).Get_Interface_Realization);
3098
3099         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Abstract then
3100            --  Class::isAbstract : Boolean
3101
3102            return
3103              League.Holders.Booleans.To_Holder
3104               (AMF.UML.Activities.UML_Activity_Access
3105                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
3106
3107         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
3108            --  Classifier::isAbstract : Boolean
3109
3110            return
3111              League.Holders.Booleans.To_Holder
3112               (AMF.UML.Activities.UML_Activity_Access
3113                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
3114
3115         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Active then
3116            --  Class::isActive : Boolean
3117
3118            return
3119              League.Holders.Booleans.To_Holder
3120               (AMF.UML.Activities.UML_Activity_Access
3121                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Active);
3122
3123         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
3124            --  Classifier::isFinalSpecialization : Boolean
3125
3126            return
3127              League.Holders.Booleans.To_Holder
3128               (AMF.UML.Activities.UML_Activity_Access
3129                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization);
3130
3131         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
3132            --  RedefinableElement::isLeaf : Boolean
3133
3134            return
3135              League.Holders.Booleans.To_Holder
3136               (AMF.UML.Activities.UML_Activity_Access
3137                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
3138
3139         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Is_Read_Only then
3140            --  Activity::isReadOnly : Boolean
3141
3142            return
3143              League.Holders.Booleans.To_Holder
3144               (AMF.UML.Activities.UML_Activity_Access
3145                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Read_Only);
3146
3147         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Is_Reentrant then
3148            --  Behavior::isReentrant : Boolean
3149
3150            return
3151              League.Holders.Booleans.To_Holder
3152               (AMF.UML.Activities.UML_Activity_Access
3153                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Reentrant);
3154
3155         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Is_Single_Execution then
3156            --  Activity::isSingleExecution : Boolean
3157
3158            return
3159              League.Holders.Booleans.To_Holder
3160               (AMF.UML.Activities.UML_Activity_Access
3161                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Single_Execution);
3162
3163         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
3164            --  Namespace::member : NamedElement
3165
3166            return
3167              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
3168               (AMF.UML.Activities.UML_Activity_Access
3169                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
3170
3171         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
3172            --  NamedElement::name : String
3173
3174            return
3175              AMF.Holders.To_Holder
3176               (AMF.UML.Activities.UML_Activity_Access
3177                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
3178
3179         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
3180            --  NamedElement::nameExpression : StringExpression
3181
3182            return
3183              AMF.Internals.Holders.UML_Holders.To_Holder
3184               (AMF.UML.String_Expressions.UML_String_Expression_Access'
3185                 (AMF.UML.Activities.UML_Activity_Access
3186                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
3187
3188         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
3189            --  NamedElement::namespace : Namespace
3190
3191            return
3192              AMF.Internals.Holders.UML_Holders.To_Holder
3193               (AMF.UML.Namespaces.UML_Namespace_Access'
3194                 (AMF.UML.Activities.UML_Activity_Access
3195                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
3196
3197         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Nested_Classifier_A_Class then
3198            --  Class::nestedClassifier : Classifier
3199
3200            return
3201              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
3202               (AMF.UML.Activities.UML_Activity_Access
3203                 (AMF.Internals.Helpers.To_Element (Self)).Get_Nested_Classifier);
3204
3205         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Node_Activity then
3206            --  Activity::node : ActivityNode
3207
3208            return
3209              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
3210               (AMF.UML.Activities.UML_Activity_Access
3211                 (AMF.Internals.Helpers.To_Element (Self)).Get_Node);
3212
3213         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Attribute_Property_Class then
3214            --  Class::ownedAttribute : Property
3215
3216            return
3217              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
3218               (AMF.UML.Activities.UML_Activity_Access
3219                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
3220
3221         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Attribute_A_Structured_Classifier then
3222            --  StructuredClassifier::ownedAttribute : Property
3223
3224            return
3225              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
3226               (AMF.UML.Activities.UML_Activity_Access
3227                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
3228
3229         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier then
3230            --  BehavioredClassifier::ownedBehavior : Behavior
3231
3232            return
3233              AMF.UML.Behaviors.Collections.UML_Behavior_Collections.Internals.To_Holder
3234               (AMF.UML.Activities.UML_Activity_Access
3235                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Behavior);
3236
3237         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
3238            --  Element::ownedComment : Comment
3239
3240            return
3241              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
3242               (AMF.UML.Activities.UML_Activity_Access
3243                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
3244
3245         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Connector_A_Structured_Classifier then
3246            --  StructuredClassifier::ownedConnector : Connector
3247
3248            return
3249              AMF.UML.Connectors.Collections.UML_Connector_Collections.Internals.To_Holder
3250               (AMF.UML.Activities.UML_Activity_Access
3251                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Connector);
3252
3253         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
3254            --  Element::ownedElement : Element
3255
3256            return
3257              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
3258               (AMF.UML.Activities.UML_Activity_Access
3259                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
3260
3261         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
3262            --  Namespace::ownedMember : NamedElement
3263
3264            return
3265              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
3266               (AMF.UML.Activities.UML_Activity_Access
3267                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
3268
3269         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Operation_Operation_Class then
3270            --  Class::ownedOperation : Operation
3271
3272            return
3273              AMF.UML.Operations.Collections.UML_Operation_Collections.Internals.To_Holder
3274               (AMF.UML.Activities.UML_Activity_Access
3275                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Operation);
3276
3277         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Owned_Parameter_A_Behavior then
3278            --  Behavior::ownedParameter : Parameter
3279
3280            return
3281              AMF.UML.Parameters.Collections.UML_Parameter_Collections.Internals.To_Holder
3282               (AMF.UML.Activities.UML_Activity_Access
3283                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Parameter);
3284
3285         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Owned_Parameter_Set_A_Behavior then
3286            --  Behavior::ownedParameterSet : ParameterSet
3287
3288            return
3289              AMF.UML.Parameter_Sets.Collections.UML_Parameter_Set_Collections.Internals.To_Holder
3290               (AMF.UML.Activities.UML_Activity_Access
3291                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Parameter_Set);
3292
3293         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Encapsulated_Classifier_Owned_Port_A_Encapsulated_Classifier then
3294            --  EncapsulatedClassifier::ownedPort : Port
3295
3296            return
3297              AMF.UML.Ports.Collections.UML_Port_Collections.Internals.To_Holder
3298               (AMF.UML.Activities.UML_Activity_Access
3299                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Port);
3300
3301         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Reception_A_Class then
3302            --  Class::ownedReception : Reception
3303
3304            return
3305              AMF.UML.Receptions.Collections.UML_Reception_Collections.Internals.To_Holder
3306               (AMF.UML.Activities.UML_Activity_Access
3307                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Reception);
3308
3309         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
3310            --  Namespace::ownedRule : Constraint
3311
3312            return
3313              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
3314               (AMF.UML.Activities.UML_Activity_Access
3315                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
3316
3317         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
3318            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
3319
3320            return
3321              AMF.Internals.Holders.UML_Holders.To_Holder
3322               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access'
3323                 (AMF.UML.Activities.UML_Activity_Access
3324                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
3325
3326         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
3327            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
3328
3329            return
3330              AMF.Internals.Holders.UML_Holders.To_Holder
3331               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
3332                 (AMF.UML.Activities.UML_Activity_Access
3333                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
3334
3335         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier then
3336            --  Classifier::ownedUseCase : UseCase
3337
3338            return
3339              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
3340               (AMF.UML.Activities.UML_Activity_Access
3341                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Use_Case);
3342
3343         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
3344            --  Element::owner : Element
3345
3346            return
3347              AMF.Internals.Holders.UML_Holders.To_Holder
3348               (AMF.UML.Elements.UML_Element_Access'
3349                 (AMF.UML.Activities.UML_Activity_Access
3350                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
3351
3352         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
3353            --  ParameterableElement::owningTemplateParameter : TemplateParameter
3354
3355            return
3356              AMF.Internals.Holders.UML_Holders.To_Holder
3357               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
3358                 (AMF.UML.Activities.UML_Activity_Access
3359                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
3360
3361         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
3362            --  Type::package : Package
3363
3364            return
3365              AMF.Internals.Holders.UML_Holders.To_Holder
3366               (AMF.UML.Packages.UML_Package_Access'
3367                 (AMF.UML.Activities.UML_Activity_Access
3368                   (AMF.Internals.Helpers.To_Element (Self)).Get_Package));
3369
3370         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
3371            --  Namespace::packageImport : PackageImport
3372
3373            return
3374              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
3375               (AMF.UML.Activities.UML_Activity_Access
3376                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
3377
3378         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Part_A_Structured_Classifier then
3379            --  StructuredClassifier::part : Property
3380
3381            return
3382              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
3383               (AMF.UML.Activities.UML_Activity_Access
3384                 (AMF.Internals.Helpers.To_Element (Self)).Get_Part);
3385
3386         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Partition_A_Activity then
3387            --  Activity::partition : ActivityPartition
3388
3389            return
3390              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
3391               (AMF.UML.Activities.UML_Activity_Access
3392                 (AMF.Internals.Helpers.To_Element (Self)).Get_Partition);
3393
3394         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Postcondition_A_Behavior then
3395            --  Behavior::postcondition : Constraint
3396
3397            return
3398              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
3399               (AMF.UML.Activities.UML_Activity_Access
3400                 (AMF.Internals.Helpers.To_Element (Self)).Get_Postcondition);
3401
3402         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype then
3403            --  Classifier::powertypeExtent : GeneralizationSet
3404
3405            return
3406              AMF.UML.Generalization_Sets.Collections.UML_Generalization_Set_Collections.Internals.To_Holder
3407               (AMF.UML.Activities.UML_Activity_Access
3408                 (AMF.Internals.Helpers.To_Element (Self)).Get_Powertype_Extent);
3409
3410         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Precondition_A_Behavior then
3411            --  Behavior::precondition : Constraint
3412
3413            return
3414              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
3415               (AMF.UML.Activities.UML_Activity_Access
3416                 (AMF.Internals.Helpers.To_Element (Self)).Get_Precondition);
3417
3418         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
3419            --  NamedElement::qualifiedName : String
3420
3421            return
3422              AMF.Holders.To_Holder
3423               (AMF.UML.Activities.UML_Activity_Access
3424                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
3425
3426         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Redefined_Behavior_A_Behavior then
3427            --  Behavior::redefinedBehavior : Behavior
3428
3429            return
3430              AMF.UML.Behaviors.Collections.UML_Behavior_Collections.Internals.To_Holder
3431               (AMF.UML.Activities.UML_Activity_Access
3432                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Behavior);
3433
3434         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier then
3435            --  Classifier::redefinedClassifier : Classifier
3436
3437            return
3438              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
3439               (AMF.UML.Activities.UML_Activity_Access
3440                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Classifier);
3441
3442         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
3443            --  RedefinableElement::redefinedElement : RedefinableElement
3444
3445            return
3446              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
3447               (AMF.UML.Activities.UML_Activity_Access
3448                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
3449
3450         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
3451            --  RedefinableElement::redefinitionContext : Classifier
3452
3453            return
3454              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
3455               (AMF.UML.Activities.UML_Activity_Access
3456                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
3457
3458         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
3459            --  Classifier::representation : CollaborationUse
3460
3461            return
3462              AMF.Internals.Holders.UML_Holders.To_Holder
3463               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access'
3464                 (AMF.UML.Activities.UML_Activity_Access
3465                   (AMF.Internals.Helpers.To_Element (Self)).Get_Representation));
3466
3467         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Role_A_Structured_Classifier then
3468            --  StructuredClassifier::role : ConnectableElement
3469
3470            return
3471              AMF.UML.Connectable_Elements.Collections.UML_Connectable_Element_Collections.Internals.To_Holder
3472               (AMF.UML.Activities.UML_Activity_Access
3473                 (AMF.Internals.Helpers.To_Element (Self)).Get_Role);
3474
3475         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Specification_Behavioral_Feature_Method then
3476            --  Behavior::specification : BehavioralFeature
3477
3478            return
3479              AMF.Internals.Holders.UML_Holders.To_Holder
3480               (AMF.UML.Behavioral_Features.UML_Behavioral_Feature_Access'
3481                 (AMF.UML.Activities.UML_Activity_Access
3482                   (AMF.Internals.Helpers.To_Element (Self)).Get_Specification));
3483
3484         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Structured_Node_Structured_Activity_Node_Activity then
3485            --  Activity::structuredNode : StructuredActivityNode
3486
3487            return
3488              AMF.UML.Structured_Activity_Nodes.Collections.UML_Structured_Activity_Node_Collections.Internals.To_Holder
3489               (AMF.UML.Activities.UML_Activity_Access
3490                 (AMF.Internals.Helpers.To_Element (Self)).Get_Structured_Node);
3491
3492         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier then
3493            --  Classifier::substitution : Substitution
3494
3495            return
3496              AMF.UML.Substitutions.Collections.UML_Substitution_Collections.Internals.To_Holder
3497               (AMF.UML.Activities.UML_Activity_Access
3498                 (AMF.Internals.Helpers.To_Element (Self)).Get_Substitution);
3499
3500         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Super_Class_A_Class then
3501            --  Class::superClass : Class
3502
3503            return
3504              AMF.UML.Classes.Collections.UML_Class_Collections.Internals.To_Holder
3505               (AMF.UML.Activities.UML_Activity_Access
3506                 (AMF.Internals.Helpers.To_Element (Self)).Get_Super_Class);
3507
3508         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
3509            --  TemplateableElement::templateBinding : TemplateBinding
3510
3511            return
3512              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
3513               (AMF.UML.Activities.UML_Activity_Access
3514                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
3515
3516         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
3517            --  Classifier::templateParameter : ClassifierTemplateParameter
3518
3519            return
3520              AMF.Internals.Holders.UML_Holders.To_Holder
3521               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access'
3522                 (AMF.UML.Activities.UML_Activity_Access
3523                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
3524
3525         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
3526            --  ParameterableElement::templateParameter : TemplateParameter
3527
3528            return
3529              AMF.Internals.Holders.UML_Holders.To_Holder
3530               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
3531                 (AMF.UML.Activities.UML_Activity_Access
3532                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
3533
3534         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject then
3535            --  Classifier::useCase : UseCase
3536
3537            return
3538              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
3539               (AMF.UML.Activities.UML_Activity_Access
3540                 (AMF.Internals.Helpers.To_Element (Self)).Get_Use_Case);
3541
3542         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Variable_Variable_Activity_Scope then
3543            --  Activity::variable : Variable
3544
3545            return
3546              AMF.UML.Variables.Collections.UML_Variable_Collections.Internals.To_Holder
3547               (AMF.UML.Activities.UML_Activity_Access
3548                 (AMF.Internals.Helpers.To_Element (Self)).Get_Variable);
3549
3550         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
3551            --  NamedElement::visibility : VisibilityKind
3552
3553            return
3554              AMF.UML.Holders.To_Holder
3555               (AMF.UML.Activities.UML_Activity_Access
3556                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
3557
3558         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
3559            --  PackageableElement::visibility : VisibilityKind
3560
3561            return
3562              AMF.UML.Holders.Visibility_Kinds.To_Holder
3563               (AMF.UML.Activities.UML_Activity_Access
3564                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
3565
3566         else
3567            raise Program_Error;
3568         end if;
3569      end UML_Activity_Get;
3570
3571      ---------------------------------
3572      -- UML_Activity_Final_Node_Get --
3573      ---------------------------------
3574
3575      function UML_Activity_Final_Node_Get return League.Holders.Holder is
3576      begin
3577         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
3578            --  ActivityNode::activity : Activity
3579
3580            return
3581              AMF.Internals.Holders.UML_Holders.To_Holder
3582               (AMF.UML.Activities.UML_Activity_Access'
3583                 (AMF.UML.Activity_Final_Nodes.UML_Activity_Final_Node_Access
3584                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
3585
3586         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
3587            --  NamedElement::clientDependency : Dependency
3588
3589            return
3590              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
3591               (AMF.UML.Activity_Final_Nodes.UML_Activity_Final_Node_Access
3592                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
3593
3594         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
3595            --  ActivityNode::inGroup : ActivityGroup
3596
3597            return
3598              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
3599               (AMF.UML.Activity_Final_Nodes.UML_Activity_Final_Node_Access
3600                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
3601
3602         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
3603            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
3604
3605            return
3606              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
3607               (AMF.UML.Activity_Final_Nodes.UML_Activity_Final_Node_Access
3608                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
3609
3610         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
3611            --  ActivityNode::inPartition : ActivityPartition
3612
3613            return
3614              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
3615               (AMF.UML.Activity_Final_Nodes.UML_Activity_Final_Node_Access
3616                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
3617
3618         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
3619            --  ActivityNode::inStructuredNode : StructuredActivityNode
3620
3621            return
3622              AMF.Internals.Holders.UML_Holders.To_Holder
3623               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
3624                 (AMF.UML.Activity_Final_Nodes.UML_Activity_Final_Node_Access
3625                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
3626
3627         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
3628            --  ActivityNode::incoming : ActivityEdge
3629
3630            return
3631              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
3632               (AMF.UML.Activity_Final_Nodes.UML_Activity_Final_Node_Access
3633                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
3634
3635         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
3636            --  RedefinableElement::isLeaf : Boolean
3637
3638            return
3639              League.Holders.Booleans.To_Holder
3640               (AMF.UML.Activity_Final_Nodes.UML_Activity_Final_Node_Access
3641                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
3642
3643         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
3644            --  NamedElement::name : String
3645
3646            return
3647              AMF.Holders.To_Holder
3648               (AMF.UML.Activity_Final_Nodes.UML_Activity_Final_Node_Access
3649                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
3650
3651         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
3652            --  NamedElement::nameExpression : StringExpression
3653
3654            return
3655              AMF.Internals.Holders.UML_Holders.To_Holder
3656               (AMF.UML.String_Expressions.UML_String_Expression_Access'
3657                 (AMF.UML.Activity_Final_Nodes.UML_Activity_Final_Node_Access
3658                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
3659
3660         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
3661            --  NamedElement::namespace : Namespace
3662
3663            return
3664              AMF.Internals.Holders.UML_Holders.To_Holder
3665               (AMF.UML.Namespaces.UML_Namespace_Access'
3666                 (AMF.UML.Activity_Final_Nodes.UML_Activity_Final_Node_Access
3667                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
3668
3669         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
3670            --  ActivityNode::outgoing : ActivityEdge
3671
3672            return
3673              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
3674               (AMF.UML.Activity_Final_Nodes.UML_Activity_Final_Node_Access
3675                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
3676
3677         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
3678            --  Element::ownedComment : Comment
3679
3680            return
3681              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
3682               (AMF.UML.Activity_Final_Nodes.UML_Activity_Final_Node_Access
3683                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
3684
3685         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
3686            --  Element::ownedElement : Element
3687
3688            return
3689              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
3690               (AMF.UML.Activity_Final_Nodes.UML_Activity_Final_Node_Access
3691                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
3692
3693         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
3694            --  Element::owner : Element
3695
3696            return
3697              AMF.Internals.Holders.UML_Holders.To_Holder
3698               (AMF.UML.Elements.UML_Element_Access'
3699                 (AMF.UML.Activity_Final_Nodes.UML_Activity_Final_Node_Access
3700                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
3701
3702         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
3703            --  NamedElement::qualifiedName : String
3704
3705            return
3706              AMF.Holders.To_Holder
3707               (AMF.UML.Activity_Final_Nodes.UML_Activity_Final_Node_Access
3708                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
3709
3710         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
3711            --  RedefinableElement::redefinedElement : RedefinableElement
3712
3713            return
3714              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
3715               (AMF.UML.Activity_Final_Nodes.UML_Activity_Final_Node_Access
3716                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
3717
3718         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
3719            --  ActivityNode::redefinedNode : ActivityNode
3720
3721            return
3722              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
3723               (AMF.UML.Activity_Final_Nodes.UML_Activity_Final_Node_Access
3724                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
3725
3726         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
3727            --  RedefinableElement::redefinitionContext : Classifier
3728
3729            return
3730              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
3731               (AMF.UML.Activity_Final_Nodes.UML_Activity_Final_Node_Access
3732                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
3733
3734         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
3735            --  NamedElement::visibility : VisibilityKind
3736
3737            return
3738              AMF.UML.Holders.To_Holder
3739               (AMF.UML.Activity_Final_Nodes.UML_Activity_Final_Node_Access
3740                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
3741
3742         else
3743            raise Program_Error;
3744         end if;
3745      end UML_Activity_Final_Node_Get;
3746
3747      -------------------------------------
3748      -- UML_Activity_Parameter_Node_Get --
3749      -------------------------------------
3750
3751      function UML_Activity_Parameter_Node_Get return League.Holders.Holder is
3752      begin
3753         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
3754            --  ActivityNode::activity : Activity
3755
3756            return
3757              AMF.Internals.Holders.UML_Holders.To_Holder
3758               (AMF.UML.Activities.UML_Activity_Access'
3759                 (AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
3760                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
3761
3762         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
3763            --  NamedElement::clientDependency : Dependency
3764
3765            return
3766              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
3767               (AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
3768                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
3769
3770         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
3771            --  ActivityNode::inGroup : ActivityGroup
3772
3773            return
3774              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
3775               (AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
3776                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
3777
3778         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
3779            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
3780
3781            return
3782              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
3783               (AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
3784                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
3785
3786         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
3787            --  ActivityNode::inPartition : ActivityPartition
3788
3789            return
3790              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
3791               (AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
3792                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
3793
3794         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_In_State_A_Object_Node then
3795            --  ObjectNode::inState : State
3796
3797            return
3798              AMF.UML.States.Collections.UML_State_Collections.Internals.To_Holder
3799               (AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
3800                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_State);
3801
3802         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
3803            --  ActivityNode::inStructuredNode : StructuredActivityNode
3804
3805            return
3806              AMF.Internals.Holders.UML_Holders.To_Holder
3807               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
3808                 (AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
3809                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
3810
3811         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
3812            --  ActivityNode::incoming : ActivityEdge
3813
3814            return
3815              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
3816               (AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
3817                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
3818
3819         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Is_Control_Type then
3820            --  ObjectNode::isControlType : Boolean
3821
3822            return
3823              League.Holders.Booleans.To_Holder
3824               (AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
3825                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Control_Type);
3826
3827         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
3828            --  RedefinableElement::isLeaf : Boolean
3829
3830            return
3831              League.Holders.Booleans.To_Holder
3832               (AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
3833                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
3834
3835         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
3836            --  NamedElement::name : String
3837
3838            return
3839              AMF.Holders.To_Holder
3840               (AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
3841                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
3842
3843         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
3844            --  NamedElement::nameExpression : StringExpression
3845
3846            return
3847              AMF.Internals.Holders.UML_Holders.To_Holder
3848               (AMF.UML.String_Expressions.UML_String_Expression_Access'
3849                 (AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
3850                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
3851
3852         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
3853            --  NamedElement::namespace : Namespace
3854
3855            return
3856              AMF.Internals.Holders.UML_Holders.To_Holder
3857               (AMF.UML.Namespaces.UML_Namespace_Access'
3858                 (AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
3859                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
3860
3861         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Ordering then
3862            --  ObjectNode::ordering : ObjectNodeOrderingKind
3863
3864            return
3865              AMF.UML.Holders.Object_Node_Ordering_Kinds.To_Holder
3866               (AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
3867                 (AMF.Internals.Helpers.To_Element (Self)).Get_Ordering);
3868
3869         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
3870            --  ActivityNode::outgoing : ActivityEdge
3871
3872            return
3873              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
3874               (AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
3875                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
3876
3877         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
3878            --  Element::ownedComment : Comment
3879
3880            return
3881              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
3882               (AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
3883                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
3884
3885         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
3886            --  Element::ownedElement : Element
3887
3888            return
3889              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
3890               (AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
3891                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
3892
3893         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
3894            --  Element::owner : Element
3895
3896            return
3897              AMF.Internals.Holders.UML_Holders.To_Holder
3898               (AMF.UML.Elements.UML_Element_Access'
3899                 (AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
3900                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
3901
3902         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Parameter_Node_Parameter_A_Activity_Parameter_Node then
3903            --  ActivityParameterNode::parameter : Parameter
3904
3905            return
3906              AMF.Internals.Holders.UML_Holders.To_Holder
3907               (AMF.UML.Parameters.UML_Parameter_Access'
3908                 (AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
3909                   (AMF.Internals.Helpers.To_Element (Self)).Get_Parameter));
3910
3911         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
3912            --  NamedElement::qualifiedName : String
3913
3914            return
3915              AMF.Holders.To_Holder
3916               (AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
3917                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
3918
3919         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
3920            --  RedefinableElement::redefinedElement : RedefinableElement
3921
3922            return
3923              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
3924               (AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
3925                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
3926
3927         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
3928            --  ActivityNode::redefinedNode : ActivityNode
3929
3930            return
3931              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
3932               (AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
3933                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
3934
3935         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
3936            --  RedefinableElement::redefinitionContext : Classifier
3937
3938            return
3939              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
3940               (AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
3941                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
3942
3943         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Selection_A_Object_Node then
3944            --  ObjectNode::selection : Behavior
3945
3946            return
3947              AMF.Internals.Holders.UML_Holders.To_Holder
3948               (AMF.UML.Behaviors.UML_Behavior_Access'
3949                 (AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
3950                   (AMF.Internals.Helpers.To_Element (Self)).Get_Selection));
3951
3952         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
3953            --  TypedElement::type : Type
3954
3955            return
3956              AMF.Internals.Holders.UML_Holders.To_Holder
3957               (AMF.UML.Types.UML_Type_Access'
3958                 (AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
3959                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
3960
3961         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Upper_Bound_A_Object_Node then
3962            --  ObjectNode::upperBound : ValueSpecification
3963
3964            return
3965              AMF.Internals.Holders.UML_Holders.To_Holder
3966               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
3967                 (AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
3968                   (AMF.Internals.Helpers.To_Element (Self)).Get_Upper_Bound));
3969
3970         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
3971            --  NamedElement::visibility : VisibilityKind
3972
3973            return
3974              AMF.UML.Holders.To_Holder
3975               (AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
3976                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
3977
3978         else
3979            raise Program_Error;
3980         end if;
3981      end UML_Activity_Parameter_Node_Get;
3982
3983      --------------------------------
3984      -- UML_Activity_Partition_Get --
3985      --------------------------------
3986
3987      function UML_Activity_Partition_Get return League.Holders.Holder is
3988      begin
3989         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
3990            --  NamedElement::clientDependency : Dependency
3991
3992            return
3993              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
3994               (AMF.UML.Activity_Partitions.UML_Activity_Partition_Access
3995                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
3996
3997         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Contained_Edge_Activity_Edge_In_Group then
3998            --  ActivityGroup::containedEdge : ActivityEdge
3999
4000            return
4001              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
4002               (AMF.UML.Activity_Partitions.UML_Activity_Partition_Access
4003                 (AMF.Internals.Helpers.To_Element (Self)).Get_Contained_Edge);
4004
4005         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Contained_Node_Activity_Node_In_Group then
4006            --  ActivityGroup::containedNode : ActivityNode
4007
4008            return
4009              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
4010               (AMF.UML.Activity_Partitions.UML_Activity_Partition_Access
4011                 (AMF.Internals.Helpers.To_Element (Self)).Get_Contained_Node);
4012
4013         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Partition_Edge_Activity_Edge_In_Partition then
4014            --  ActivityPartition::edge : ActivityEdge
4015
4016            return
4017              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
4018               (AMF.UML.Activity_Partitions.UML_Activity_Partition_Access
4019                 (AMF.Internals.Helpers.To_Element (Self)).Get_Edge);
4020
4021         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_In_Activity_Activity_Group then
4022            --  ActivityGroup::inActivity : Activity
4023
4024            return
4025              AMF.Internals.Holders.UML_Holders.To_Holder
4026               (AMF.UML.Activities.UML_Activity_Access'
4027                 (AMF.UML.Activity_Partitions.UML_Activity_Partition_Access
4028                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Activity));
4029
4030         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Partition_Is_Dimension then
4031            --  ActivityPartition::isDimension : Boolean
4032
4033            return
4034              League.Holders.Booleans.To_Holder
4035               (AMF.UML.Activity_Partitions.UML_Activity_Partition_Access
4036                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Dimension);
4037
4038         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Partition_Is_External then
4039            --  ActivityPartition::isExternal : Boolean
4040
4041            return
4042              League.Holders.Booleans.To_Holder
4043               (AMF.UML.Activity_Partitions.UML_Activity_Partition_Access
4044                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_External);
4045
4046         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
4047            --  NamedElement::name : String
4048
4049            return
4050              AMF.Holders.To_Holder
4051               (AMF.UML.Activity_Partitions.UML_Activity_Partition_Access
4052                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
4053
4054         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
4055            --  NamedElement::nameExpression : StringExpression
4056
4057            return
4058              AMF.Internals.Holders.UML_Holders.To_Holder
4059               (AMF.UML.String_Expressions.UML_String_Expression_Access'
4060                 (AMF.UML.Activity_Partitions.UML_Activity_Partition_Access
4061                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
4062
4063         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
4064            --  NamedElement::namespace : Namespace
4065
4066            return
4067              AMF.Internals.Holders.UML_Holders.To_Holder
4068               (AMF.UML.Namespaces.UML_Namespace_Access'
4069                 (AMF.UML.Activity_Partitions.UML_Activity_Partition_Access
4070                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
4071
4072         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Partition_Node_Activity_Node_In_Partition then
4073            --  ActivityPartition::node : ActivityNode
4074
4075            return
4076              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
4077               (AMF.UML.Activity_Partitions.UML_Activity_Partition_Access
4078                 (AMF.Internals.Helpers.To_Element (Self)).Get_Node);
4079
4080         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
4081            --  Element::ownedComment : Comment
4082
4083            return
4084              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
4085               (AMF.UML.Activity_Partitions.UML_Activity_Partition_Access
4086                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
4087
4088         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
4089            --  Element::ownedElement : Element
4090
4091            return
4092              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
4093               (AMF.UML.Activity_Partitions.UML_Activity_Partition_Access
4094                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
4095
4096         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
4097            --  Element::owner : Element
4098
4099            return
4100              AMF.Internals.Holders.UML_Holders.To_Holder
4101               (AMF.UML.Elements.UML_Element_Access'
4102                 (AMF.UML.Activity_Partitions.UML_Activity_Partition_Access
4103                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
4104
4105         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
4106            --  NamedElement::qualifiedName : String
4107
4108            return
4109              AMF.Holders.To_Holder
4110               (AMF.UML.Activity_Partitions.UML_Activity_Partition_Access
4111                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
4112
4113         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Partition_Represents_A_Activity_Partition then
4114            --  ActivityPartition::represents : Element
4115
4116            return
4117              AMF.Internals.Holders.UML_Holders.To_Holder
4118               (AMF.UML.Elements.UML_Element_Access'
4119                 (AMF.UML.Activity_Partitions.UML_Activity_Partition_Access
4120                   (AMF.Internals.Helpers.To_Element (Self)).Get_Represents));
4121
4122         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Subgroup_Activity_Group_Super_Group then
4123            --  ActivityGroup::subgroup : ActivityGroup
4124
4125            return
4126              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
4127               (AMF.UML.Activity_Partitions.UML_Activity_Partition_Access
4128                 (AMF.Internals.Helpers.To_Element (Self)).Get_Subgroup);
4129
4130         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Partition_Subpartition_Activity_Partition_Super_Partition then
4131            --  ActivityPartition::subpartition : ActivityPartition
4132
4133            return
4134              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
4135               (AMF.UML.Activity_Partitions.UML_Activity_Partition_Access
4136                 (AMF.Internals.Helpers.To_Element (Self)).Get_Subpartition);
4137
4138         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Super_Group_Activity_Group_Subgroup then
4139            --  ActivityGroup::superGroup : ActivityGroup
4140
4141            return
4142              AMF.Internals.Holders.UML_Holders.To_Holder
4143               (AMF.UML.Activity_Groups.UML_Activity_Group_Access'
4144                 (AMF.UML.Activity_Partitions.UML_Activity_Partition_Access
4145                   (AMF.Internals.Helpers.To_Element (Self)).Get_Super_Group));
4146
4147         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Partition_Super_Partition_Activity_Partition_Subpartition then
4148            --  ActivityPartition::superPartition : ActivityPartition
4149
4150            return
4151              AMF.Internals.Holders.UML_Holders.To_Holder
4152               (AMF.UML.Activity_Partitions.UML_Activity_Partition_Access'
4153                 (AMF.UML.Activity_Partitions.UML_Activity_Partition_Access
4154                   (AMF.Internals.Helpers.To_Element (Self)).Get_Super_Partition));
4155
4156         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
4157            --  NamedElement::visibility : VisibilityKind
4158
4159            return
4160              AMF.UML.Holders.To_Holder
4161               (AMF.UML.Activity_Partitions.UML_Activity_Partition_Access
4162                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
4163
4164         else
4165            raise Program_Error;
4166         end if;
4167      end UML_Activity_Partition_Get;
4168
4169      -------------------
4170      -- UML_Actor_Get --
4171      -------------------
4172
4173      function UML_Actor_Get return League.Holders.Holder is
4174      begin
4175         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier then
4176            --  Classifier::attribute : Property
4177
4178            return
4179              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
4180               (AMF.UML.Actors.UML_Actor_Access
4181                 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute);
4182
4183         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
4184            --  BehavioredClassifier::classifierBehavior : Behavior
4185
4186            return
4187              AMF.Internals.Holders.UML_Holders.To_Holder
4188               (AMF.UML.Behaviors.UML_Behavior_Access'
4189                 (AMF.UML.Actors.UML_Actor_Access
4190                   (AMF.Internals.Helpers.To_Element (Self)).Get_Classifier_Behavior));
4191
4192         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
4193            --  NamedElement::clientDependency : Dependency
4194
4195            return
4196              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
4197               (AMF.UML.Actors.UML_Actor_Access
4198                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
4199
4200         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier then
4201            --  Classifier::collaborationUse : CollaborationUse
4202
4203            return
4204              AMF.UML.Collaboration_Uses.Collections.UML_Collaboration_Use_Collections.Internals.To_Holder
4205               (AMF.UML.Actors.UML_Actor_Access
4206                 (AMF.Internals.Helpers.To_Element (Self)).Get_Collaboration_Use);
4207
4208         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
4209            --  Namespace::elementImport : ElementImport
4210
4211            return
4212              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
4213               (AMF.UML.Actors.UML_Actor_Access
4214                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
4215
4216         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier then
4217            --  Classifier::feature : Feature
4218
4219            return
4220              AMF.UML.Features.Collections.UML_Feature_Collections.Internals.To_Holder
4221               (AMF.UML.Actors.UML_Actor_Access
4222                 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature);
4223
4224         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier then
4225            --  Classifier::general : Classifier
4226
4227            return
4228              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
4229               (AMF.UML.Actors.UML_Actor_Access
4230                 (AMF.Internals.Helpers.To_Element (Self)).Get_General);
4231
4232         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific then
4233            --  Classifier::generalization : Generalization
4234
4235            return
4236              AMF.UML.Generalizations.Collections.UML_Generalization_Collections.Internals.To_Holder
4237               (AMF.UML.Actors.UML_Actor_Access
4238                 (AMF.Internals.Helpers.To_Element (Self)).Get_Generalization);
4239
4240         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
4241            --  Namespace::importedMember : PackageableElement
4242
4243            return
4244              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
4245               (AMF.UML.Actors.UML_Actor_Access
4246                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
4247
4248         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier then
4249            --  Classifier::inheritedMember : NamedElement
4250
4251            return
4252              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
4253               (AMF.UML.Actors.UML_Actor_Access
4254                 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member);
4255
4256         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier then
4257            --  BehavioredClassifier::interfaceRealization : InterfaceRealization
4258
4259            return
4260              AMF.UML.Interface_Realizations.Collections.UML_Interface_Realization_Collections.Internals.To_Holder
4261               (AMF.UML.Actors.UML_Actor_Access
4262                 (AMF.Internals.Helpers.To_Element (Self)).Get_Interface_Realization);
4263
4264         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
4265            --  Classifier::isAbstract : Boolean
4266
4267            return
4268              League.Holders.Booleans.To_Holder
4269               (AMF.UML.Actors.UML_Actor_Access
4270                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
4271
4272         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
4273            --  Classifier::isFinalSpecialization : Boolean
4274
4275            return
4276              League.Holders.Booleans.To_Holder
4277               (AMF.UML.Actors.UML_Actor_Access
4278                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization);
4279
4280         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
4281            --  RedefinableElement::isLeaf : Boolean
4282
4283            return
4284              League.Holders.Booleans.To_Holder
4285               (AMF.UML.Actors.UML_Actor_Access
4286                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
4287
4288         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
4289            --  Namespace::member : NamedElement
4290
4291            return
4292              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
4293               (AMF.UML.Actors.UML_Actor_Access
4294                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
4295
4296         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
4297            --  NamedElement::name : String
4298
4299            return
4300              AMF.Holders.To_Holder
4301               (AMF.UML.Actors.UML_Actor_Access
4302                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
4303
4304         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
4305            --  NamedElement::nameExpression : StringExpression
4306
4307            return
4308              AMF.Internals.Holders.UML_Holders.To_Holder
4309               (AMF.UML.String_Expressions.UML_String_Expression_Access'
4310                 (AMF.UML.Actors.UML_Actor_Access
4311                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
4312
4313         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
4314            --  NamedElement::namespace : Namespace
4315
4316            return
4317              AMF.Internals.Holders.UML_Holders.To_Holder
4318               (AMF.UML.Namespaces.UML_Namespace_Access'
4319                 (AMF.UML.Actors.UML_Actor_Access
4320                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
4321
4322         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier then
4323            --  BehavioredClassifier::ownedBehavior : Behavior
4324
4325            return
4326              AMF.UML.Behaviors.Collections.UML_Behavior_Collections.Internals.To_Holder
4327               (AMF.UML.Actors.UML_Actor_Access
4328                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Behavior);
4329
4330         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
4331            --  Element::ownedComment : Comment
4332
4333            return
4334              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
4335               (AMF.UML.Actors.UML_Actor_Access
4336                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
4337
4338         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
4339            --  Element::ownedElement : Element
4340
4341            return
4342              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
4343               (AMF.UML.Actors.UML_Actor_Access
4344                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
4345
4346         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
4347            --  Namespace::ownedMember : NamedElement
4348
4349            return
4350              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
4351               (AMF.UML.Actors.UML_Actor_Access
4352                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
4353
4354         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
4355            --  Namespace::ownedRule : Constraint
4356
4357            return
4358              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
4359               (AMF.UML.Actors.UML_Actor_Access
4360                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
4361
4362         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
4363            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
4364
4365            return
4366              AMF.Internals.Holders.UML_Holders.To_Holder
4367               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access'
4368                 (AMF.UML.Actors.UML_Actor_Access
4369                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
4370
4371         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
4372            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
4373
4374            return
4375              AMF.Internals.Holders.UML_Holders.To_Holder
4376               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
4377                 (AMF.UML.Actors.UML_Actor_Access
4378                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
4379
4380         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier then
4381            --  Classifier::ownedUseCase : UseCase
4382
4383            return
4384              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
4385               (AMF.UML.Actors.UML_Actor_Access
4386                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Use_Case);
4387
4388         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
4389            --  Element::owner : Element
4390
4391            return
4392              AMF.Internals.Holders.UML_Holders.To_Holder
4393               (AMF.UML.Elements.UML_Element_Access'
4394                 (AMF.UML.Actors.UML_Actor_Access
4395                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
4396
4397         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
4398            --  ParameterableElement::owningTemplateParameter : TemplateParameter
4399
4400            return
4401              AMF.Internals.Holders.UML_Holders.To_Holder
4402               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
4403                 (AMF.UML.Actors.UML_Actor_Access
4404                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
4405
4406         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
4407            --  Type::package : Package
4408
4409            return
4410              AMF.Internals.Holders.UML_Holders.To_Holder
4411               (AMF.UML.Packages.UML_Package_Access'
4412                 (AMF.UML.Actors.UML_Actor_Access
4413                   (AMF.Internals.Helpers.To_Element (Self)).Get_Package));
4414
4415         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
4416            --  Namespace::packageImport : PackageImport
4417
4418            return
4419              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
4420               (AMF.UML.Actors.UML_Actor_Access
4421                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
4422
4423         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype then
4424            --  Classifier::powertypeExtent : GeneralizationSet
4425
4426            return
4427              AMF.UML.Generalization_Sets.Collections.UML_Generalization_Set_Collections.Internals.To_Holder
4428               (AMF.UML.Actors.UML_Actor_Access
4429                 (AMF.Internals.Helpers.To_Element (Self)).Get_Powertype_Extent);
4430
4431         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
4432            --  NamedElement::qualifiedName : String
4433
4434            return
4435              AMF.Holders.To_Holder
4436               (AMF.UML.Actors.UML_Actor_Access
4437                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
4438
4439         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier then
4440            --  Classifier::redefinedClassifier : Classifier
4441
4442            return
4443              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
4444               (AMF.UML.Actors.UML_Actor_Access
4445                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Classifier);
4446
4447         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
4448            --  RedefinableElement::redefinedElement : RedefinableElement
4449
4450            return
4451              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
4452               (AMF.UML.Actors.UML_Actor_Access
4453                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
4454
4455         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
4456            --  RedefinableElement::redefinitionContext : Classifier
4457
4458            return
4459              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
4460               (AMF.UML.Actors.UML_Actor_Access
4461                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
4462
4463         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
4464            --  Classifier::representation : CollaborationUse
4465
4466            return
4467              AMF.Internals.Holders.UML_Holders.To_Holder
4468               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access'
4469                 (AMF.UML.Actors.UML_Actor_Access
4470                   (AMF.Internals.Helpers.To_Element (Self)).Get_Representation));
4471
4472         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier then
4473            --  Classifier::substitution : Substitution
4474
4475            return
4476              AMF.UML.Substitutions.Collections.UML_Substitution_Collections.Internals.To_Holder
4477               (AMF.UML.Actors.UML_Actor_Access
4478                 (AMF.Internals.Helpers.To_Element (Self)).Get_Substitution);
4479
4480         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
4481            --  TemplateableElement::templateBinding : TemplateBinding
4482
4483            return
4484              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
4485               (AMF.UML.Actors.UML_Actor_Access
4486                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
4487
4488         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
4489            --  Classifier::templateParameter : ClassifierTemplateParameter
4490
4491            return
4492              AMF.Internals.Holders.UML_Holders.To_Holder
4493               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access'
4494                 (AMF.UML.Actors.UML_Actor_Access
4495                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
4496
4497         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
4498            --  ParameterableElement::templateParameter : TemplateParameter
4499
4500            return
4501              AMF.Internals.Holders.UML_Holders.To_Holder
4502               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
4503                 (AMF.UML.Actors.UML_Actor_Access
4504                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
4505
4506         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject then
4507            --  Classifier::useCase : UseCase
4508
4509            return
4510              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
4511               (AMF.UML.Actors.UML_Actor_Access
4512                 (AMF.Internals.Helpers.To_Element (Self)).Get_Use_Case);
4513
4514         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
4515            --  NamedElement::visibility : VisibilityKind
4516
4517            return
4518              AMF.UML.Holders.To_Holder
4519               (AMF.UML.Actors.UML_Actor_Access
4520                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
4521
4522         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
4523            --  PackageableElement::visibility : VisibilityKind
4524
4525            return
4526              AMF.UML.Holders.Visibility_Kinds.To_Holder
4527               (AMF.UML.Actors.UML_Actor_Access
4528                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
4529
4530         else
4531            raise Program_Error;
4532         end if;
4533      end UML_Actor_Get;
4534
4535      -------------------------------------------------
4536      -- UML_Add_Structural_Feature_Value_Action_Get --
4537      -------------------------------------------------
4538
4539      function UML_Add_Structural_Feature_Value_Action_Get return League.Holders.Holder is
4540      begin
4541         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
4542            --  ActivityNode::activity : Activity
4543
4544            return
4545              AMF.Internals.Holders.UML_Holders.To_Holder
4546               (AMF.UML.Activities.UML_Activity_Access'
4547                 (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4548                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
4549
4550         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
4551            --  NamedElement::clientDependency : Dependency
4552
4553            return
4554              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
4555               (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4556                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
4557
4558         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
4559            --  Action::context : Classifier
4560
4561            return
4562              AMF.Internals.Holders.UML_Holders.To_Holder
4563               (AMF.UML.Classifiers.UML_Classifier_Access'
4564                 (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4565                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
4566
4567         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
4568            --  ExecutableNode::handler : ExceptionHandler
4569
4570            return
4571              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
4572               (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4573                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
4574
4575         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
4576            --  ActivityNode::inGroup : ActivityGroup
4577
4578            return
4579              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
4580               (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4581                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
4582
4583         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
4584            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
4585
4586            return
4587              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
4588               (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4589                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
4590
4591         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
4592            --  ActivityNode::inPartition : ActivityPartition
4593
4594            return
4595              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
4596               (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4597                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
4598
4599         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
4600            --  ActivityNode::inStructuredNode : StructuredActivityNode
4601
4602            return
4603              AMF.Internals.Holders.UML_Holders.To_Holder
4604               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
4605                 (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4606                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
4607
4608         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
4609            --  ActivityNode::incoming : ActivityEdge
4610
4611            return
4612              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
4613               (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4614                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
4615
4616         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
4617            --  Action::input : InputPin
4618
4619            return
4620              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
4621               (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4622                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
4623
4624         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Add_Structural_Feature_Value_Action_Insert_At_A_Add_Structural_Feature_Value_Action then
4625            --  AddStructuralFeatureValueAction::insertAt : InputPin
4626
4627            return
4628              AMF.Internals.Holders.UML_Holders.To_Holder
4629               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
4630                 (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4631                   (AMF.Internals.Helpers.To_Element (Self)).Get_Insert_At));
4632
4633         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
4634            --  RedefinableElement::isLeaf : Boolean
4635
4636            return
4637              League.Holders.Booleans.To_Holder
4638               (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4639                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
4640
4641         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
4642            --  Action::isLocallyReentrant : Boolean
4643
4644            return
4645              League.Holders.Booleans.To_Holder
4646               (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4647                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
4648
4649         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Add_Structural_Feature_Value_Action_Is_Replace_All then
4650            --  AddStructuralFeatureValueAction::isReplaceAll : Boolean
4651
4652            return
4653              League.Holders.Booleans.To_Holder
4654               (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4655                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Replace_All);
4656
4657         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
4658            --  Action::localPostcondition : Constraint
4659
4660            return
4661              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
4662               (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4663                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
4664
4665         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
4666            --  Action::localPrecondition : Constraint
4667
4668            return
4669              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
4670               (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4671                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
4672
4673         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
4674            --  NamedElement::name : String
4675
4676            return
4677              AMF.Holders.To_Holder
4678               (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4679                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
4680
4681         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
4682            --  NamedElement::nameExpression : StringExpression
4683
4684            return
4685              AMF.Internals.Holders.UML_Holders.To_Holder
4686               (AMF.UML.String_Expressions.UML_String_Expression_Access'
4687                 (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4688                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
4689
4690         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
4691            --  NamedElement::namespace : Namespace
4692
4693            return
4694              AMF.Internals.Holders.UML_Holders.To_Holder
4695               (AMF.UML.Namespaces.UML_Namespace_Access'
4696                 (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4697                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
4698
4699         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structural_Feature_Action_Object_A_Structural_Feature_Action then
4700            --  StructuralFeatureAction::object : InputPin
4701
4702            return
4703              AMF.Internals.Holders.UML_Holders.To_Holder
4704               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
4705                 (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4706                   (AMF.Internals.Helpers.To_Element (Self)).Get_Object));
4707
4708         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
4709            --  ActivityNode::outgoing : ActivityEdge
4710
4711            return
4712              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
4713               (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4714                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
4715
4716         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
4717            --  Action::output : OutputPin
4718
4719            return
4720              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
4721               (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4722                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
4723
4724         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
4725            --  Element::ownedComment : Comment
4726
4727            return
4728              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
4729               (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4730                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
4731
4732         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
4733            --  Element::ownedElement : Element
4734
4735            return
4736              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
4737               (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4738                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
4739
4740         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
4741            --  Element::owner : Element
4742
4743            return
4744              AMF.Internals.Holders.UML_Holders.To_Holder
4745               (AMF.UML.Elements.UML_Element_Access'
4746                 (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4747                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
4748
4749         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
4750            --  NamedElement::qualifiedName : String
4751
4752            return
4753              AMF.Holders.To_Holder
4754               (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4755                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
4756
4757         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
4758            --  RedefinableElement::redefinedElement : RedefinableElement
4759
4760            return
4761              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
4762               (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4763                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
4764
4765         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
4766            --  ActivityNode::redefinedNode : ActivityNode
4767
4768            return
4769              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
4770               (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4771                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
4772
4773         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
4774            --  RedefinableElement::redefinitionContext : Classifier
4775
4776            return
4777              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
4778               (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4779                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
4780
4781         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Write_Structural_Feature_Action_Result_A_Write_Structural_Feature_Action then
4782            --  WriteStructuralFeatureAction::result : OutputPin
4783
4784            return
4785              AMF.Internals.Holders.UML_Holders.To_Holder
4786               (AMF.UML.Output_Pins.UML_Output_Pin_Access'
4787                 (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4788                   (AMF.Internals.Helpers.To_Element (Self)).Get_Result));
4789
4790         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structural_Feature_Action_Structural_Feature_A_Structural_Feature_Action then
4791            --  StructuralFeatureAction::structuralFeature : StructuralFeature
4792
4793            return
4794              AMF.Internals.Holders.UML_Holders.To_Holder
4795               (AMF.UML.Structural_Features.UML_Structural_Feature_Access'
4796                 (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4797                   (AMF.Internals.Helpers.To_Element (Self)).Get_Structural_Feature));
4798
4799         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Write_Structural_Feature_Action_Value_A_Write_Structural_Feature_Action then
4800            --  WriteStructuralFeatureAction::value : InputPin
4801
4802            return
4803              AMF.Internals.Holders.UML_Holders.To_Holder
4804               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
4805                 (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4806                   (AMF.Internals.Helpers.To_Element (Self)).Get_Value));
4807
4808         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
4809            --  NamedElement::visibility : VisibilityKind
4810
4811            return
4812              AMF.UML.Holders.To_Holder
4813               (AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
4814                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
4815
4816         else
4817            raise Program_Error;
4818         end if;
4819      end UML_Add_Structural_Feature_Value_Action_Get;
4820
4821      ---------------------------------------
4822      -- UML_Add_Variable_Value_Action_Get --
4823      ---------------------------------------
4824
4825      function UML_Add_Variable_Value_Action_Get return League.Holders.Holder is
4826      begin
4827         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
4828            --  ActivityNode::activity : Activity
4829
4830            return
4831              AMF.Internals.Holders.UML_Holders.To_Holder
4832               (AMF.UML.Activities.UML_Activity_Access'
4833                 (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
4834                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
4835
4836         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
4837            --  NamedElement::clientDependency : Dependency
4838
4839            return
4840              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
4841               (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
4842                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
4843
4844         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
4845            --  Action::context : Classifier
4846
4847            return
4848              AMF.Internals.Holders.UML_Holders.To_Holder
4849               (AMF.UML.Classifiers.UML_Classifier_Access'
4850                 (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
4851                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
4852
4853         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
4854            --  ExecutableNode::handler : ExceptionHandler
4855
4856            return
4857              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
4858               (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
4859                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
4860
4861         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
4862            --  ActivityNode::inGroup : ActivityGroup
4863
4864            return
4865              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
4866               (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
4867                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
4868
4869         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
4870            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
4871
4872            return
4873              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
4874               (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
4875                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
4876
4877         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
4878            --  ActivityNode::inPartition : ActivityPartition
4879
4880            return
4881              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
4882               (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
4883                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
4884
4885         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
4886            --  ActivityNode::inStructuredNode : StructuredActivityNode
4887
4888            return
4889              AMF.Internals.Holders.UML_Holders.To_Holder
4890               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
4891                 (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
4892                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
4893
4894         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
4895            --  ActivityNode::incoming : ActivityEdge
4896
4897            return
4898              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
4899               (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
4900                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
4901
4902         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
4903            --  Action::input : InputPin
4904
4905            return
4906              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
4907               (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
4908                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
4909
4910         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Add_Variable_Value_Action_Insert_At_A_Add_Variable_Value_Action then
4911            --  AddVariableValueAction::insertAt : InputPin
4912
4913            return
4914              AMF.Internals.Holders.UML_Holders.To_Holder
4915               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
4916                 (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
4917                   (AMF.Internals.Helpers.To_Element (Self)).Get_Insert_At));
4918
4919         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
4920            --  RedefinableElement::isLeaf : Boolean
4921
4922            return
4923              League.Holders.Booleans.To_Holder
4924               (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
4925                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
4926
4927         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
4928            --  Action::isLocallyReentrant : Boolean
4929
4930            return
4931              League.Holders.Booleans.To_Holder
4932               (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
4933                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
4934
4935         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Add_Variable_Value_Action_Is_Replace_All then
4936            --  AddVariableValueAction::isReplaceAll : Boolean
4937
4938            return
4939              League.Holders.Booleans.To_Holder
4940               (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
4941                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Replace_All);
4942
4943         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
4944            --  Action::localPostcondition : Constraint
4945
4946            return
4947              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
4948               (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
4949                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
4950
4951         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
4952            --  Action::localPrecondition : Constraint
4953
4954            return
4955              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
4956               (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
4957                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
4958
4959         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
4960            --  NamedElement::name : String
4961
4962            return
4963              AMF.Holders.To_Holder
4964               (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
4965                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
4966
4967         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
4968            --  NamedElement::nameExpression : StringExpression
4969
4970            return
4971              AMF.Internals.Holders.UML_Holders.To_Holder
4972               (AMF.UML.String_Expressions.UML_String_Expression_Access'
4973                 (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
4974                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
4975
4976         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
4977            --  NamedElement::namespace : Namespace
4978
4979            return
4980              AMF.Internals.Holders.UML_Holders.To_Holder
4981               (AMF.UML.Namespaces.UML_Namespace_Access'
4982                 (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
4983                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
4984
4985         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
4986            --  ActivityNode::outgoing : ActivityEdge
4987
4988            return
4989              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
4990               (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
4991                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
4992
4993         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
4994            --  Action::output : OutputPin
4995
4996            return
4997              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
4998               (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
4999                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
5000
5001         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
5002            --  Element::ownedComment : Comment
5003
5004            return
5005              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
5006               (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
5007                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
5008
5009         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
5010            --  Element::ownedElement : Element
5011
5012            return
5013              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
5014               (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
5015                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
5016
5017         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
5018            --  Element::owner : Element
5019
5020            return
5021              AMF.Internals.Holders.UML_Holders.To_Holder
5022               (AMF.UML.Elements.UML_Element_Access'
5023                 (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
5024                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
5025
5026         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
5027            --  NamedElement::qualifiedName : String
5028
5029            return
5030              AMF.Holders.To_Holder
5031               (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
5032                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
5033
5034         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
5035            --  RedefinableElement::redefinedElement : RedefinableElement
5036
5037            return
5038              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
5039               (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
5040                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
5041
5042         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
5043            --  ActivityNode::redefinedNode : ActivityNode
5044
5045            return
5046              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
5047               (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
5048                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
5049
5050         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
5051            --  RedefinableElement::redefinitionContext : Classifier
5052
5053            return
5054              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
5055               (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
5056                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
5057
5058         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Write_Variable_Action_Value_A_Write_Variable_Action then
5059            --  WriteVariableAction::value : InputPin
5060
5061            return
5062              AMF.Internals.Holders.UML_Holders.To_Holder
5063               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
5064                 (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
5065                   (AMF.Internals.Helpers.To_Element (Self)).Get_Value));
5066
5067         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Variable_Action_Variable_A_Variable_Action then
5068            --  VariableAction::variable : Variable
5069
5070            return
5071              AMF.Internals.Holders.UML_Holders.To_Holder
5072               (AMF.UML.Variables.UML_Variable_Access'
5073                 (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
5074                   (AMF.Internals.Helpers.To_Element (Self)).Get_Variable));
5075
5076         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
5077            --  NamedElement::visibility : VisibilityKind
5078
5079            return
5080              AMF.UML.Holders.To_Holder
5081               (AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
5082                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
5083
5084         else
5085            raise Program_Error;
5086         end if;
5087      end UML_Add_Variable_Value_Action_Get;
5088
5089      -------------------------------
5090      -- UML_Any_Receive_Event_Get --
5091      -------------------------------
5092
5093      function UML_Any_Receive_Event_Get return League.Holders.Holder is
5094      begin
5095         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
5096            --  NamedElement::clientDependency : Dependency
5097
5098            return
5099              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
5100               (AMF.UML.Any_Receive_Events.UML_Any_Receive_Event_Access
5101                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
5102
5103         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
5104            --  NamedElement::name : String
5105
5106            return
5107              AMF.Holders.To_Holder
5108               (AMF.UML.Any_Receive_Events.UML_Any_Receive_Event_Access
5109                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
5110
5111         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
5112            --  NamedElement::nameExpression : StringExpression
5113
5114            return
5115              AMF.Internals.Holders.UML_Holders.To_Holder
5116               (AMF.UML.String_Expressions.UML_String_Expression_Access'
5117                 (AMF.UML.Any_Receive_Events.UML_Any_Receive_Event_Access
5118                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
5119
5120         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
5121            --  NamedElement::namespace : Namespace
5122
5123            return
5124              AMF.Internals.Holders.UML_Holders.To_Holder
5125               (AMF.UML.Namespaces.UML_Namespace_Access'
5126                 (AMF.UML.Any_Receive_Events.UML_Any_Receive_Event_Access
5127                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
5128
5129         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
5130            --  Element::ownedComment : Comment
5131
5132            return
5133              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
5134               (AMF.UML.Any_Receive_Events.UML_Any_Receive_Event_Access
5135                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
5136
5137         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
5138            --  Element::ownedElement : Element
5139
5140            return
5141              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
5142               (AMF.UML.Any_Receive_Events.UML_Any_Receive_Event_Access
5143                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
5144
5145         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
5146            --  Element::owner : Element
5147
5148            return
5149              AMF.Internals.Holders.UML_Holders.To_Holder
5150               (AMF.UML.Elements.UML_Element_Access'
5151                 (AMF.UML.Any_Receive_Events.UML_Any_Receive_Event_Access
5152                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
5153
5154         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
5155            --  ParameterableElement::owningTemplateParameter : TemplateParameter
5156
5157            return
5158              AMF.Internals.Holders.UML_Holders.To_Holder
5159               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
5160                 (AMF.UML.Any_Receive_Events.UML_Any_Receive_Event_Access
5161                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
5162
5163         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
5164            --  NamedElement::qualifiedName : String
5165
5166            return
5167              AMF.Holders.To_Holder
5168               (AMF.UML.Any_Receive_Events.UML_Any_Receive_Event_Access
5169                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
5170
5171         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
5172            --  ParameterableElement::templateParameter : TemplateParameter
5173
5174            return
5175              AMF.Internals.Holders.UML_Holders.To_Holder
5176               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
5177                 (AMF.UML.Any_Receive_Events.UML_Any_Receive_Event_Access
5178                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
5179
5180         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
5181            --  NamedElement::visibility : VisibilityKind
5182
5183            return
5184              AMF.UML.Holders.To_Holder
5185               (AMF.UML.Any_Receive_Events.UML_Any_Receive_Event_Access
5186                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
5187
5188         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
5189            --  PackageableElement::visibility : VisibilityKind
5190
5191            return
5192              AMF.UML.Holders.Visibility_Kinds.To_Holder
5193               (AMF.UML.Any_Receive_Events.UML_Any_Receive_Event_Access
5194                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
5195
5196         else
5197            raise Program_Error;
5198         end if;
5199      end UML_Any_Receive_Event_Get;
5200
5201      ----------------------
5202      -- UML_Artifact_Get --
5203      ----------------------
5204
5205      function UML_Artifact_Get return League.Holders.Holder is
5206      begin
5207         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier then
5208            --  Classifier::attribute : Property
5209
5210            return
5211              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
5212               (AMF.UML.Artifacts.UML_Artifact_Access
5213                 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute);
5214
5215         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
5216            --  NamedElement::clientDependency : Dependency
5217
5218            return
5219              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
5220               (AMF.UML.Artifacts.UML_Artifact_Access
5221                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
5222
5223         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier then
5224            --  Classifier::collaborationUse : CollaborationUse
5225
5226            return
5227              AMF.UML.Collaboration_Uses.Collections.UML_Collaboration_Use_Collections.Internals.To_Holder
5228               (AMF.UML.Artifacts.UML_Artifact_Access
5229                 (AMF.Internals.Helpers.To_Element (Self)).Get_Collaboration_Use);
5230
5231         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
5232            --  Namespace::elementImport : ElementImport
5233
5234            return
5235              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
5236               (AMF.UML.Artifacts.UML_Artifact_Access
5237                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
5238
5239         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier then
5240            --  Classifier::feature : Feature
5241
5242            return
5243              AMF.UML.Features.Collections.UML_Feature_Collections.Internals.To_Holder
5244               (AMF.UML.Artifacts.UML_Artifact_Access
5245                 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature);
5246
5247         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Artifact_File_Name then
5248            --  Artifact::fileName : String
5249
5250            return
5251              AMF.Holders.To_Holder
5252               (AMF.UML.Artifacts.UML_Artifact_Access
5253                 (AMF.Internals.Helpers.To_Element (Self)).Get_File_Name);
5254
5255         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier then
5256            --  Classifier::general : Classifier
5257
5258            return
5259              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
5260               (AMF.UML.Artifacts.UML_Artifact_Access
5261                 (AMF.Internals.Helpers.To_Element (Self)).Get_General);
5262
5263         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific then
5264            --  Classifier::generalization : Generalization
5265
5266            return
5267              AMF.UML.Generalizations.Collections.UML_Generalization_Collections.Internals.To_Holder
5268               (AMF.UML.Artifacts.UML_Artifact_Access
5269                 (AMF.Internals.Helpers.To_Element (Self)).Get_Generalization);
5270
5271         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
5272            --  Namespace::importedMember : PackageableElement
5273
5274            return
5275              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
5276               (AMF.UML.Artifacts.UML_Artifact_Access
5277                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
5278
5279         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier then
5280            --  Classifier::inheritedMember : NamedElement
5281
5282            return
5283              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
5284               (AMF.UML.Artifacts.UML_Artifact_Access
5285                 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member);
5286
5287         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
5288            --  Classifier::isAbstract : Boolean
5289
5290            return
5291              League.Holders.Booleans.To_Holder
5292               (AMF.UML.Artifacts.UML_Artifact_Access
5293                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
5294
5295         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
5296            --  Classifier::isFinalSpecialization : Boolean
5297
5298            return
5299              League.Holders.Booleans.To_Holder
5300               (AMF.UML.Artifacts.UML_Artifact_Access
5301                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization);
5302
5303         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
5304            --  RedefinableElement::isLeaf : Boolean
5305
5306            return
5307              League.Holders.Booleans.To_Holder
5308               (AMF.UML.Artifacts.UML_Artifact_Access
5309                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
5310
5311         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Artifact_Manifestation_A_Artifact then
5312            --  Artifact::manifestation : Manifestation
5313
5314            return
5315              AMF.UML.Manifestations.Collections.UML_Manifestation_Collections.Internals.To_Holder
5316               (AMF.UML.Artifacts.UML_Artifact_Access
5317                 (AMF.Internals.Helpers.To_Element (Self)).Get_Manifestation);
5318
5319         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
5320            --  Namespace::member : NamedElement
5321
5322            return
5323              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
5324               (AMF.UML.Artifacts.UML_Artifact_Access
5325                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
5326
5327         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
5328            --  NamedElement::name : String
5329
5330            return
5331              AMF.Holders.To_Holder
5332               (AMF.UML.Artifacts.UML_Artifact_Access
5333                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
5334
5335         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
5336            --  NamedElement::nameExpression : StringExpression
5337
5338            return
5339              AMF.Internals.Holders.UML_Holders.To_Holder
5340               (AMF.UML.String_Expressions.UML_String_Expression_Access'
5341                 (AMF.UML.Artifacts.UML_Artifact_Access
5342                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
5343
5344         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
5345            --  NamedElement::namespace : Namespace
5346
5347            return
5348              AMF.Internals.Holders.UML_Holders.To_Holder
5349               (AMF.UML.Namespaces.UML_Namespace_Access'
5350                 (AMF.UML.Artifacts.UML_Artifact_Access
5351                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
5352
5353         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Artifact_Nested_Artifact_A_Artifact then
5354            --  Artifact::nestedArtifact : Artifact
5355
5356            return
5357              AMF.UML.Artifacts.Collections.UML_Artifact_Collections.Internals.To_Holder
5358               (AMF.UML.Artifacts.UML_Artifact_Access
5359                 (AMF.Internals.Helpers.To_Element (Self)).Get_Nested_Artifact);
5360
5361         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Artifact_Owned_Attribute_A_Artifact then
5362            --  Artifact::ownedAttribute : Property
5363
5364            return
5365              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
5366               (AMF.UML.Artifacts.UML_Artifact_Access
5367                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
5368
5369         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
5370            --  Element::ownedComment : Comment
5371
5372            return
5373              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
5374               (AMF.UML.Artifacts.UML_Artifact_Access
5375                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
5376
5377         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
5378            --  Element::ownedElement : Element
5379
5380            return
5381              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
5382               (AMF.UML.Artifacts.UML_Artifact_Access
5383                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
5384
5385         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
5386            --  Namespace::ownedMember : NamedElement
5387
5388            return
5389              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
5390               (AMF.UML.Artifacts.UML_Artifact_Access
5391                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
5392
5393         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Artifact_Owned_Operation_A_Artifact then
5394            --  Artifact::ownedOperation : Operation
5395
5396            return
5397              AMF.UML.Operations.Collections.UML_Operation_Collections.Internals.To_Holder
5398               (AMF.UML.Artifacts.UML_Artifact_Access
5399                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Operation);
5400
5401         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
5402            --  Namespace::ownedRule : Constraint
5403
5404            return
5405              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
5406               (AMF.UML.Artifacts.UML_Artifact_Access
5407                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
5408
5409         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
5410            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
5411
5412            return
5413              AMF.Internals.Holders.UML_Holders.To_Holder
5414               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access'
5415                 (AMF.UML.Artifacts.UML_Artifact_Access
5416                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
5417
5418         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
5419            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
5420
5421            return
5422              AMF.Internals.Holders.UML_Holders.To_Holder
5423               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
5424                 (AMF.UML.Artifacts.UML_Artifact_Access
5425                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
5426
5427         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier then
5428            --  Classifier::ownedUseCase : UseCase
5429
5430            return
5431              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
5432               (AMF.UML.Artifacts.UML_Artifact_Access
5433                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Use_Case);
5434
5435         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
5436            --  Element::owner : Element
5437
5438            return
5439              AMF.Internals.Holders.UML_Holders.To_Holder
5440               (AMF.UML.Elements.UML_Element_Access'
5441                 (AMF.UML.Artifacts.UML_Artifact_Access
5442                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
5443
5444         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
5445            --  ParameterableElement::owningTemplateParameter : TemplateParameter
5446
5447            return
5448              AMF.Internals.Holders.UML_Holders.To_Holder
5449               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
5450                 (AMF.UML.Artifacts.UML_Artifact_Access
5451                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
5452
5453         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
5454            --  Type::package : Package
5455
5456            return
5457              AMF.Internals.Holders.UML_Holders.To_Holder
5458               (AMF.UML.Packages.UML_Package_Access'
5459                 (AMF.UML.Artifacts.UML_Artifact_Access
5460                   (AMF.Internals.Helpers.To_Element (Self)).Get_Package));
5461
5462         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
5463            --  Namespace::packageImport : PackageImport
5464
5465            return
5466              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
5467               (AMF.UML.Artifacts.UML_Artifact_Access
5468                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
5469
5470         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype then
5471            --  Classifier::powertypeExtent : GeneralizationSet
5472
5473            return
5474              AMF.UML.Generalization_Sets.Collections.UML_Generalization_Set_Collections.Internals.To_Holder
5475               (AMF.UML.Artifacts.UML_Artifact_Access
5476                 (AMF.Internals.Helpers.To_Element (Self)).Get_Powertype_Extent);
5477
5478         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
5479            --  NamedElement::qualifiedName : String
5480
5481            return
5482              AMF.Holders.To_Holder
5483               (AMF.UML.Artifacts.UML_Artifact_Access
5484                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
5485
5486         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier then
5487            --  Classifier::redefinedClassifier : Classifier
5488
5489            return
5490              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
5491               (AMF.UML.Artifacts.UML_Artifact_Access
5492                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Classifier);
5493
5494         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
5495            --  RedefinableElement::redefinedElement : RedefinableElement
5496
5497            return
5498              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
5499               (AMF.UML.Artifacts.UML_Artifact_Access
5500                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
5501
5502         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
5503            --  RedefinableElement::redefinitionContext : Classifier
5504
5505            return
5506              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
5507               (AMF.UML.Artifacts.UML_Artifact_Access
5508                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
5509
5510         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
5511            --  Classifier::representation : CollaborationUse
5512
5513            return
5514              AMF.Internals.Holders.UML_Holders.To_Holder
5515               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access'
5516                 (AMF.UML.Artifacts.UML_Artifact_Access
5517                   (AMF.Internals.Helpers.To_Element (Self)).Get_Representation));
5518
5519         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier then
5520            --  Classifier::substitution : Substitution
5521
5522            return
5523              AMF.UML.Substitutions.Collections.UML_Substitution_Collections.Internals.To_Holder
5524               (AMF.UML.Artifacts.UML_Artifact_Access
5525                 (AMF.Internals.Helpers.To_Element (Self)).Get_Substitution);
5526
5527         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
5528            --  TemplateableElement::templateBinding : TemplateBinding
5529
5530            return
5531              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
5532               (AMF.UML.Artifacts.UML_Artifact_Access
5533                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
5534
5535         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
5536            --  Classifier::templateParameter : ClassifierTemplateParameter
5537
5538            return
5539              AMF.Internals.Holders.UML_Holders.To_Holder
5540               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access'
5541                 (AMF.UML.Artifacts.UML_Artifact_Access
5542                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
5543
5544         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
5545            --  ParameterableElement::templateParameter : TemplateParameter
5546
5547            return
5548              AMF.Internals.Holders.UML_Holders.To_Holder
5549               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
5550                 (AMF.UML.Artifacts.UML_Artifact_Access
5551                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
5552
5553         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject then
5554            --  Classifier::useCase : UseCase
5555
5556            return
5557              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
5558               (AMF.UML.Artifacts.UML_Artifact_Access
5559                 (AMF.Internals.Helpers.To_Element (Self)).Get_Use_Case);
5560
5561         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
5562            --  NamedElement::visibility : VisibilityKind
5563
5564            return
5565              AMF.UML.Holders.To_Holder
5566               (AMF.UML.Artifacts.UML_Artifact_Access
5567                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
5568
5569         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
5570            --  PackageableElement::visibility : VisibilityKind
5571
5572            return
5573              AMF.UML.Holders.Visibility_Kinds.To_Holder
5574               (AMF.UML.Artifacts.UML_Artifact_Access
5575                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
5576
5577         else
5578            raise Program_Error;
5579         end if;
5580      end UML_Artifact_Get;
5581
5582      -------------------------
5583      -- UML_Association_Get --
5584      -------------------------
5585
5586      function UML_Association_Get return League.Holders.Holder is
5587      begin
5588         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier then
5589            --  Classifier::attribute : Property
5590
5591            return
5592              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
5593               (AMF.UML.Associations.UML_Association_Access
5594                 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute);
5595
5596         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
5597            --  NamedElement::clientDependency : Dependency
5598
5599            return
5600              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
5601               (AMF.UML.Associations.UML_Association_Access
5602                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
5603
5604         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier then
5605            --  Classifier::collaborationUse : CollaborationUse
5606
5607            return
5608              AMF.UML.Collaboration_Uses.Collections.UML_Collaboration_Use_Collections.Internals.To_Holder
5609               (AMF.UML.Associations.UML_Association_Access
5610                 (AMF.Internals.Helpers.To_Element (Self)).Get_Collaboration_Use);
5611
5612         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
5613            --  Namespace::elementImport : ElementImport
5614
5615            return
5616              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
5617               (AMF.UML.Associations.UML_Association_Access
5618                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
5619
5620         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_End_Type_A_Association then
5621            --  Association::endType : Type
5622
5623            return
5624              AMF.UML.Types.Collections.UML_Type_Collections.Internals.To_Holder
5625               (AMF.UML.Associations.UML_Association_Access
5626                 (AMF.Internals.Helpers.To_Element (Self)).Get_End_Type);
5627
5628         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier then
5629            --  Classifier::feature : Feature
5630
5631            return
5632              AMF.UML.Features.Collections.UML_Feature_Collections.Internals.To_Holder
5633               (AMF.UML.Associations.UML_Association_Access
5634                 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature);
5635
5636         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier then
5637            --  Classifier::general : Classifier
5638
5639            return
5640              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
5641               (AMF.UML.Associations.UML_Association_Access
5642                 (AMF.Internals.Helpers.To_Element (Self)).Get_General);
5643
5644         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific then
5645            --  Classifier::generalization : Generalization
5646
5647            return
5648              AMF.UML.Generalizations.Collections.UML_Generalization_Collections.Internals.To_Holder
5649               (AMF.UML.Associations.UML_Association_Access
5650                 (AMF.Internals.Helpers.To_Element (Self)).Get_Generalization);
5651
5652         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
5653            --  Namespace::importedMember : PackageableElement
5654
5655            return
5656              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
5657               (AMF.UML.Associations.UML_Association_Access
5658                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
5659
5660         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier then
5661            --  Classifier::inheritedMember : NamedElement
5662
5663            return
5664              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
5665               (AMF.UML.Associations.UML_Association_Access
5666                 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member);
5667
5668         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
5669            --  Classifier::isAbstract : Boolean
5670
5671            return
5672              League.Holders.Booleans.To_Holder
5673               (AMF.UML.Associations.UML_Association_Access
5674                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
5675
5676         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Is_Derived then
5677            --  Association::isDerived : Boolean
5678
5679            return
5680              League.Holders.Booleans.To_Holder
5681               (AMF.UML.Associations.UML_Association_Access
5682                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Derived);
5683
5684         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
5685            --  Classifier::isFinalSpecialization : Boolean
5686
5687            return
5688              League.Holders.Booleans.To_Holder
5689               (AMF.UML.Associations.UML_Association_Access
5690                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization);
5691
5692         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
5693            --  RedefinableElement::isLeaf : Boolean
5694
5695            return
5696              League.Holders.Booleans.To_Holder
5697               (AMF.UML.Associations.UML_Association_Access
5698                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
5699
5700         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
5701            --  Namespace::member : NamedElement
5702
5703            return
5704              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
5705               (AMF.UML.Associations.UML_Association_Access
5706                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
5707
5708         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Member_End_Property_Association then
5709            --  Association::memberEnd : Property
5710
5711            return
5712              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
5713               (AMF.UML.Associations.UML_Association_Access
5714                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member_End);
5715
5716         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
5717            --  NamedElement::name : String
5718
5719            return
5720              AMF.Holders.To_Holder
5721               (AMF.UML.Associations.UML_Association_Access
5722                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
5723
5724         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
5725            --  NamedElement::nameExpression : StringExpression
5726
5727            return
5728              AMF.Internals.Holders.UML_Holders.To_Holder
5729               (AMF.UML.String_Expressions.UML_String_Expression_Access'
5730                 (AMF.UML.Associations.UML_Association_Access
5731                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
5732
5733         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
5734            --  NamedElement::namespace : Namespace
5735
5736            return
5737              AMF.Internals.Holders.UML_Holders.To_Holder
5738               (AMF.UML.Namespaces.UML_Namespace_Access'
5739                 (AMF.UML.Associations.UML_Association_Access
5740                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
5741
5742         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Navigable_Owned_End_A_Association then
5743            --  Association::navigableOwnedEnd : Property
5744
5745            return
5746              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
5747               (AMF.UML.Associations.UML_Association_Access
5748                 (AMF.Internals.Helpers.To_Element (Self)).Get_Navigable_Owned_End);
5749
5750         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
5751            --  Element::ownedComment : Comment
5752
5753            return
5754              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
5755               (AMF.UML.Associations.UML_Association_Access
5756                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
5757
5758         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
5759            --  Element::ownedElement : Element
5760
5761            return
5762              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
5763               (AMF.UML.Associations.UML_Association_Access
5764                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
5765
5766         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Owned_End_Property_Owning_Association then
5767            --  Association::ownedEnd : Property
5768
5769            return
5770              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
5771               (AMF.UML.Associations.UML_Association_Access
5772                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_End);
5773
5774         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
5775            --  Namespace::ownedMember : NamedElement
5776
5777            return
5778              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
5779               (AMF.UML.Associations.UML_Association_Access
5780                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
5781
5782         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
5783            --  Namespace::ownedRule : Constraint
5784
5785            return
5786              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
5787               (AMF.UML.Associations.UML_Association_Access
5788                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
5789
5790         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
5791            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
5792
5793            return
5794              AMF.Internals.Holders.UML_Holders.To_Holder
5795               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access'
5796                 (AMF.UML.Associations.UML_Association_Access
5797                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
5798
5799         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
5800            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
5801
5802            return
5803              AMF.Internals.Holders.UML_Holders.To_Holder
5804               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
5805                 (AMF.UML.Associations.UML_Association_Access
5806                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
5807
5808         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier then
5809            --  Classifier::ownedUseCase : UseCase
5810
5811            return
5812              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
5813               (AMF.UML.Associations.UML_Association_Access
5814                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Use_Case);
5815
5816         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
5817            --  Element::owner : Element
5818
5819            return
5820              AMF.Internals.Holders.UML_Holders.To_Holder
5821               (AMF.UML.Elements.UML_Element_Access'
5822                 (AMF.UML.Associations.UML_Association_Access
5823                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
5824
5825         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
5826            --  ParameterableElement::owningTemplateParameter : TemplateParameter
5827
5828            return
5829              AMF.Internals.Holders.UML_Holders.To_Holder
5830               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
5831                 (AMF.UML.Associations.UML_Association_Access
5832                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
5833
5834         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
5835            --  Type::package : Package
5836
5837            return
5838              AMF.Internals.Holders.UML_Holders.To_Holder
5839               (AMF.UML.Packages.UML_Package_Access'
5840                 (AMF.UML.Associations.UML_Association_Access
5841                   (AMF.Internals.Helpers.To_Element (Self)).Get_Package));
5842
5843         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
5844            --  Namespace::packageImport : PackageImport
5845
5846            return
5847              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
5848               (AMF.UML.Associations.UML_Association_Access
5849                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
5850
5851         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype then
5852            --  Classifier::powertypeExtent : GeneralizationSet
5853
5854            return
5855              AMF.UML.Generalization_Sets.Collections.UML_Generalization_Set_Collections.Internals.To_Holder
5856               (AMF.UML.Associations.UML_Association_Access
5857                 (AMF.Internals.Helpers.To_Element (Self)).Get_Powertype_Extent);
5858
5859         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
5860            --  NamedElement::qualifiedName : String
5861
5862            return
5863              AMF.Holders.To_Holder
5864               (AMF.UML.Associations.UML_Association_Access
5865                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
5866
5867         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier then
5868            --  Classifier::redefinedClassifier : Classifier
5869
5870            return
5871              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
5872               (AMF.UML.Associations.UML_Association_Access
5873                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Classifier);
5874
5875         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
5876            --  RedefinableElement::redefinedElement : RedefinableElement
5877
5878            return
5879              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
5880               (AMF.UML.Associations.UML_Association_Access
5881                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
5882
5883         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
5884            --  RedefinableElement::redefinitionContext : Classifier
5885
5886            return
5887              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
5888               (AMF.UML.Associations.UML_Association_Access
5889                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
5890
5891         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship then
5892            --  Relationship::relatedElement : Element
5893
5894            return
5895              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
5896               (AMF.UML.Associations.UML_Association_Access
5897                 (AMF.Internals.Helpers.To_Element (Self)).Get_Related_Element);
5898
5899         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
5900            --  Classifier::representation : CollaborationUse
5901
5902            return
5903              AMF.Internals.Holders.UML_Holders.To_Holder
5904               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access'
5905                 (AMF.UML.Associations.UML_Association_Access
5906                   (AMF.Internals.Helpers.To_Element (Self)).Get_Representation));
5907
5908         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier then
5909            --  Classifier::substitution : Substitution
5910
5911            return
5912              AMF.UML.Substitutions.Collections.UML_Substitution_Collections.Internals.To_Holder
5913               (AMF.UML.Associations.UML_Association_Access
5914                 (AMF.Internals.Helpers.To_Element (Self)).Get_Substitution);
5915
5916         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
5917            --  TemplateableElement::templateBinding : TemplateBinding
5918
5919            return
5920              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
5921               (AMF.UML.Associations.UML_Association_Access
5922                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
5923
5924         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
5925            --  Classifier::templateParameter : ClassifierTemplateParameter
5926
5927            return
5928              AMF.Internals.Holders.UML_Holders.To_Holder
5929               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access'
5930                 (AMF.UML.Associations.UML_Association_Access
5931                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
5932
5933         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
5934            --  ParameterableElement::templateParameter : TemplateParameter
5935
5936            return
5937              AMF.Internals.Holders.UML_Holders.To_Holder
5938               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
5939                 (AMF.UML.Associations.UML_Association_Access
5940                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
5941
5942         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject then
5943            --  Classifier::useCase : UseCase
5944
5945            return
5946              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
5947               (AMF.UML.Associations.UML_Association_Access
5948                 (AMF.Internals.Helpers.To_Element (Self)).Get_Use_Case);
5949
5950         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
5951            --  NamedElement::visibility : VisibilityKind
5952
5953            return
5954              AMF.UML.Holders.To_Holder
5955               (AMF.UML.Associations.UML_Association_Access
5956                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
5957
5958         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
5959            --  PackageableElement::visibility : VisibilityKind
5960
5961            return
5962              AMF.UML.Holders.Visibility_Kinds.To_Holder
5963               (AMF.UML.Associations.UML_Association_Access
5964                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
5965
5966         else
5967            raise Program_Error;
5968         end if;
5969      end UML_Association_Get;
5970
5971      -------------------------------
5972      -- UML_Association_Class_Get --
5973      -------------------------------
5974
5975      function UML_Association_Class_Get return League.Holders.Holder is
5976      begin
5977         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier then
5978            --  Classifier::attribute : Property
5979
5980            return
5981              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
5982               (AMF.UML.Association_Classes.UML_Association_Class_Access
5983                 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute);
5984
5985         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
5986            --  BehavioredClassifier::classifierBehavior : Behavior
5987
5988            return
5989              AMF.Internals.Holders.UML_Holders.To_Holder
5990               (AMF.UML.Behaviors.UML_Behavior_Access'
5991                 (AMF.UML.Association_Classes.UML_Association_Class_Access
5992                   (AMF.Internals.Helpers.To_Element (Self)).Get_Classifier_Behavior));
5993
5994         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
5995            --  NamedElement::clientDependency : Dependency
5996
5997            return
5998              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
5999               (AMF.UML.Association_Classes.UML_Association_Class_Access
6000                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
6001
6002         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier then
6003            --  Classifier::collaborationUse : CollaborationUse
6004
6005            return
6006              AMF.UML.Collaboration_Uses.Collections.UML_Collaboration_Use_Collections.Internals.To_Holder
6007               (AMF.UML.Association_Classes.UML_Association_Class_Access
6008                 (AMF.Internals.Helpers.To_Element (Self)).Get_Collaboration_Use);
6009
6010         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
6011            --  Namespace::elementImport : ElementImport
6012
6013            return
6014              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
6015               (AMF.UML.Association_Classes.UML_Association_Class_Access
6016                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
6017
6018         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_End_Type_A_Association then
6019            --  Association::endType : Type
6020
6021            return
6022              AMF.UML.Types.Collections.UML_Type_Collections.Internals.To_Holder
6023               (AMF.UML.Association_Classes.UML_Association_Class_Access
6024                 (AMF.Internals.Helpers.To_Element (Self)).Get_End_Type);
6025
6026         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Extension_Extension_Metaclass then
6027            --  Class::extension : Extension
6028
6029            return
6030              AMF.UML.Extensions.Collections.UML_Extension_Collections.Internals.To_Holder
6031               (AMF.UML.Association_Classes.UML_Association_Class_Access
6032                 (AMF.Internals.Helpers.To_Element (Self)).Get_Extension);
6033
6034         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier then
6035            --  Classifier::feature : Feature
6036
6037            return
6038              AMF.UML.Features.Collections.UML_Feature_Collections.Internals.To_Holder
6039               (AMF.UML.Association_Classes.UML_Association_Class_Access
6040                 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature);
6041
6042         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier then
6043            --  Classifier::general : Classifier
6044
6045            return
6046              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
6047               (AMF.UML.Association_Classes.UML_Association_Class_Access
6048                 (AMF.Internals.Helpers.To_Element (Self)).Get_General);
6049
6050         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific then
6051            --  Classifier::generalization : Generalization
6052
6053            return
6054              AMF.UML.Generalizations.Collections.UML_Generalization_Collections.Internals.To_Holder
6055               (AMF.UML.Association_Classes.UML_Association_Class_Access
6056                 (AMF.Internals.Helpers.To_Element (Self)).Get_Generalization);
6057
6058         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
6059            --  Namespace::importedMember : PackageableElement
6060
6061            return
6062              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
6063               (AMF.UML.Association_Classes.UML_Association_Class_Access
6064                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
6065
6066         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier then
6067            --  Classifier::inheritedMember : NamedElement
6068
6069            return
6070              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
6071               (AMF.UML.Association_Classes.UML_Association_Class_Access
6072                 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member);
6073
6074         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier then
6075            --  BehavioredClassifier::interfaceRealization : InterfaceRealization
6076
6077            return
6078              AMF.UML.Interface_Realizations.Collections.UML_Interface_Realization_Collections.Internals.To_Holder
6079               (AMF.UML.Association_Classes.UML_Association_Class_Access
6080                 (AMF.Internals.Helpers.To_Element (Self)).Get_Interface_Realization);
6081
6082         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Abstract then
6083            --  Class::isAbstract : Boolean
6084
6085            return
6086              League.Holders.Booleans.To_Holder
6087               (AMF.UML.Association_Classes.UML_Association_Class_Access
6088                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
6089
6090         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
6091            --  Classifier::isAbstract : Boolean
6092
6093            return
6094              League.Holders.Booleans.To_Holder
6095               (AMF.UML.Association_Classes.UML_Association_Class_Access
6096                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
6097
6098         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Active then
6099            --  Class::isActive : Boolean
6100
6101            return
6102              League.Holders.Booleans.To_Holder
6103               (AMF.UML.Association_Classes.UML_Association_Class_Access
6104                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Active);
6105
6106         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Is_Derived then
6107            --  Association::isDerived : Boolean
6108
6109            return
6110              League.Holders.Booleans.To_Holder
6111               (AMF.UML.Association_Classes.UML_Association_Class_Access
6112                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Derived);
6113
6114         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
6115            --  Classifier::isFinalSpecialization : Boolean
6116
6117            return
6118              League.Holders.Booleans.To_Holder
6119               (AMF.UML.Association_Classes.UML_Association_Class_Access
6120                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization);
6121
6122         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
6123            --  RedefinableElement::isLeaf : Boolean
6124
6125            return
6126              League.Holders.Booleans.To_Holder
6127               (AMF.UML.Association_Classes.UML_Association_Class_Access
6128                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
6129
6130         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
6131            --  Namespace::member : NamedElement
6132
6133            return
6134              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
6135               (AMF.UML.Association_Classes.UML_Association_Class_Access
6136                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
6137
6138         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Member_End_Property_Association then
6139            --  Association::memberEnd : Property
6140
6141            return
6142              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
6143               (AMF.UML.Association_Classes.UML_Association_Class_Access
6144                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member_End);
6145
6146         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
6147            --  NamedElement::name : String
6148
6149            return
6150              AMF.Holders.To_Holder
6151               (AMF.UML.Association_Classes.UML_Association_Class_Access
6152                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
6153
6154         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
6155            --  NamedElement::nameExpression : StringExpression
6156
6157            return
6158              AMF.Internals.Holders.UML_Holders.To_Holder
6159               (AMF.UML.String_Expressions.UML_String_Expression_Access'
6160                 (AMF.UML.Association_Classes.UML_Association_Class_Access
6161                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
6162
6163         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
6164            --  NamedElement::namespace : Namespace
6165
6166            return
6167              AMF.Internals.Holders.UML_Holders.To_Holder
6168               (AMF.UML.Namespaces.UML_Namespace_Access'
6169                 (AMF.UML.Association_Classes.UML_Association_Class_Access
6170                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
6171
6172         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Navigable_Owned_End_A_Association then
6173            --  Association::navigableOwnedEnd : Property
6174
6175            return
6176              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
6177               (AMF.UML.Association_Classes.UML_Association_Class_Access
6178                 (AMF.Internals.Helpers.To_Element (Self)).Get_Navigable_Owned_End);
6179
6180         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Nested_Classifier_A_Class then
6181            --  Class::nestedClassifier : Classifier
6182
6183            return
6184              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
6185               (AMF.UML.Association_Classes.UML_Association_Class_Access
6186                 (AMF.Internals.Helpers.To_Element (Self)).Get_Nested_Classifier);
6187
6188         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Attribute_Property_Class then
6189            --  Class::ownedAttribute : Property
6190
6191            return
6192              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
6193               (AMF.UML.Association_Classes.UML_Association_Class_Access
6194                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
6195
6196         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Attribute_A_Structured_Classifier then
6197            --  StructuredClassifier::ownedAttribute : Property
6198
6199            return
6200              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
6201               (AMF.UML.Association_Classes.UML_Association_Class_Access
6202                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
6203
6204         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier then
6205            --  BehavioredClassifier::ownedBehavior : Behavior
6206
6207            return
6208              AMF.UML.Behaviors.Collections.UML_Behavior_Collections.Internals.To_Holder
6209               (AMF.UML.Association_Classes.UML_Association_Class_Access
6210                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Behavior);
6211
6212         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
6213            --  Element::ownedComment : Comment
6214
6215            return
6216              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
6217               (AMF.UML.Association_Classes.UML_Association_Class_Access
6218                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
6219
6220         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Connector_A_Structured_Classifier then
6221            --  StructuredClassifier::ownedConnector : Connector
6222
6223            return
6224              AMF.UML.Connectors.Collections.UML_Connector_Collections.Internals.To_Holder
6225               (AMF.UML.Association_Classes.UML_Association_Class_Access
6226                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Connector);
6227
6228         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
6229            --  Element::ownedElement : Element
6230
6231            return
6232              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
6233               (AMF.UML.Association_Classes.UML_Association_Class_Access
6234                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
6235
6236         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Owned_End_Property_Owning_Association then
6237            --  Association::ownedEnd : Property
6238
6239            return
6240              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
6241               (AMF.UML.Association_Classes.UML_Association_Class_Access
6242                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_End);
6243
6244         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
6245            --  Namespace::ownedMember : NamedElement
6246
6247            return
6248              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
6249               (AMF.UML.Association_Classes.UML_Association_Class_Access
6250                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
6251
6252         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Operation_Operation_Class then
6253            --  Class::ownedOperation : Operation
6254
6255            return
6256              AMF.UML.Operations.Collections.UML_Operation_Collections.Internals.To_Holder
6257               (AMF.UML.Association_Classes.UML_Association_Class_Access
6258                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Operation);
6259
6260         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Encapsulated_Classifier_Owned_Port_A_Encapsulated_Classifier then
6261            --  EncapsulatedClassifier::ownedPort : Port
6262
6263            return
6264              AMF.UML.Ports.Collections.UML_Port_Collections.Internals.To_Holder
6265               (AMF.UML.Association_Classes.UML_Association_Class_Access
6266                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Port);
6267
6268         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Reception_A_Class then
6269            --  Class::ownedReception : Reception
6270
6271            return
6272              AMF.UML.Receptions.Collections.UML_Reception_Collections.Internals.To_Holder
6273               (AMF.UML.Association_Classes.UML_Association_Class_Access
6274                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Reception);
6275
6276         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
6277            --  Namespace::ownedRule : Constraint
6278
6279            return
6280              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
6281               (AMF.UML.Association_Classes.UML_Association_Class_Access
6282                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
6283
6284         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
6285            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
6286
6287            return
6288              AMF.Internals.Holders.UML_Holders.To_Holder
6289               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access'
6290                 (AMF.UML.Association_Classes.UML_Association_Class_Access
6291                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
6292
6293         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
6294            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
6295
6296            return
6297              AMF.Internals.Holders.UML_Holders.To_Holder
6298               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
6299                 (AMF.UML.Association_Classes.UML_Association_Class_Access
6300                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
6301
6302         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier then
6303            --  Classifier::ownedUseCase : UseCase
6304
6305            return
6306              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
6307               (AMF.UML.Association_Classes.UML_Association_Class_Access
6308                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Use_Case);
6309
6310         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
6311            --  Element::owner : Element
6312
6313            return
6314              AMF.Internals.Holders.UML_Holders.To_Holder
6315               (AMF.UML.Elements.UML_Element_Access'
6316                 (AMF.UML.Association_Classes.UML_Association_Class_Access
6317                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
6318
6319         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
6320            --  ParameterableElement::owningTemplateParameter : TemplateParameter
6321
6322            return
6323              AMF.Internals.Holders.UML_Holders.To_Holder
6324               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
6325                 (AMF.UML.Association_Classes.UML_Association_Class_Access
6326                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
6327
6328         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
6329            --  Type::package : Package
6330
6331            return
6332              AMF.Internals.Holders.UML_Holders.To_Holder
6333               (AMF.UML.Packages.UML_Package_Access'
6334                 (AMF.UML.Association_Classes.UML_Association_Class_Access
6335                   (AMF.Internals.Helpers.To_Element (Self)).Get_Package));
6336
6337         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
6338            --  Namespace::packageImport : PackageImport
6339
6340            return
6341              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
6342               (AMF.UML.Association_Classes.UML_Association_Class_Access
6343                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
6344
6345         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Part_A_Structured_Classifier then
6346            --  StructuredClassifier::part : Property
6347
6348            return
6349              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
6350               (AMF.UML.Association_Classes.UML_Association_Class_Access
6351                 (AMF.Internals.Helpers.To_Element (Self)).Get_Part);
6352
6353         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype then
6354            --  Classifier::powertypeExtent : GeneralizationSet
6355
6356            return
6357              AMF.UML.Generalization_Sets.Collections.UML_Generalization_Set_Collections.Internals.To_Holder
6358               (AMF.UML.Association_Classes.UML_Association_Class_Access
6359                 (AMF.Internals.Helpers.To_Element (Self)).Get_Powertype_Extent);
6360
6361         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
6362            --  NamedElement::qualifiedName : String
6363
6364            return
6365              AMF.Holders.To_Holder
6366               (AMF.UML.Association_Classes.UML_Association_Class_Access
6367                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
6368
6369         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier then
6370            --  Classifier::redefinedClassifier : Classifier
6371
6372            return
6373              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
6374               (AMF.UML.Association_Classes.UML_Association_Class_Access
6375                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Classifier);
6376
6377         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
6378            --  RedefinableElement::redefinedElement : RedefinableElement
6379
6380            return
6381              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
6382               (AMF.UML.Association_Classes.UML_Association_Class_Access
6383                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
6384
6385         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
6386            --  RedefinableElement::redefinitionContext : Classifier
6387
6388            return
6389              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
6390               (AMF.UML.Association_Classes.UML_Association_Class_Access
6391                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
6392
6393         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship then
6394            --  Relationship::relatedElement : Element
6395
6396            return
6397              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
6398               (AMF.UML.Association_Classes.UML_Association_Class_Access
6399                 (AMF.Internals.Helpers.To_Element (Self)).Get_Related_Element);
6400
6401         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
6402            --  Classifier::representation : CollaborationUse
6403
6404            return
6405              AMF.Internals.Holders.UML_Holders.To_Holder
6406               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access'
6407                 (AMF.UML.Association_Classes.UML_Association_Class_Access
6408                   (AMF.Internals.Helpers.To_Element (Self)).Get_Representation));
6409
6410         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Role_A_Structured_Classifier then
6411            --  StructuredClassifier::role : ConnectableElement
6412
6413            return
6414              AMF.UML.Connectable_Elements.Collections.UML_Connectable_Element_Collections.Internals.To_Holder
6415               (AMF.UML.Association_Classes.UML_Association_Class_Access
6416                 (AMF.Internals.Helpers.To_Element (Self)).Get_Role);
6417
6418         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier then
6419            --  Classifier::substitution : Substitution
6420
6421            return
6422              AMF.UML.Substitutions.Collections.UML_Substitution_Collections.Internals.To_Holder
6423               (AMF.UML.Association_Classes.UML_Association_Class_Access
6424                 (AMF.Internals.Helpers.To_Element (Self)).Get_Substitution);
6425
6426         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Super_Class_A_Class then
6427            --  Class::superClass : Class
6428
6429            return
6430              AMF.UML.Classes.Collections.UML_Class_Collections.Internals.To_Holder
6431               (AMF.UML.Association_Classes.UML_Association_Class_Access
6432                 (AMF.Internals.Helpers.To_Element (Self)).Get_Super_Class);
6433
6434         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
6435            --  TemplateableElement::templateBinding : TemplateBinding
6436
6437            return
6438              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
6439               (AMF.UML.Association_Classes.UML_Association_Class_Access
6440                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
6441
6442         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
6443            --  Classifier::templateParameter : ClassifierTemplateParameter
6444
6445            return
6446              AMF.Internals.Holders.UML_Holders.To_Holder
6447               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access'
6448                 (AMF.UML.Association_Classes.UML_Association_Class_Access
6449                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
6450
6451         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
6452            --  ParameterableElement::templateParameter : TemplateParameter
6453
6454            return
6455              AMF.Internals.Holders.UML_Holders.To_Holder
6456               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
6457                 (AMF.UML.Association_Classes.UML_Association_Class_Access
6458                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
6459
6460         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject then
6461            --  Classifier::useCase : UseCase
6462
6463            return
6464              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
6465               (AMF.UML.Association_Classes.UML_Association_Class_Access
6466                 (AMF.Internals.Helpers.To_Element (Self)).Get_Use_Case);
6467
6468         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
6469            --  NamedElement::visibility : VisibilityKind
6470
6471            return
6472              AMF.UML.Holders.To_Holder
6473               (AMF.UML.Association_Classes.UML_Association_Class_Access
6474                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
6475
6476         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
6477            --  PackageableElement::visibility : VisibilityKind
6478
6479            return
6480              AMF.UML.Holders.Visibility_Kinds.To_Holder
6481               (AMF.UML.Association_Classes.UML_Association_Class_Access
6482                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
6483
6484         else
6485            raise Program_Error;
6486         end if;
6487      end UML_Association_Class_Get;
6488
6489      ----------------------------------------------
6490      -- UML_Behavior_Execution_Specification_Get --
6491      ----------------------------------------------
6492
6493      function UML_Behavior_Execution_Specification_Get return League.Holders.Holder is
6494      begin
6495         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Execution_Specification_Behavior_A_Behavior_Execution_Specification then
6496            --  BehaviorExecutionSpecification::behavior : Behavior
6497
6498            return
6499              AMF.Internals.Holders.UML_Holders.To_Holder
6500               (AMF.UML.Behaviors.UML_Behavior_Access'
6501                 (AMF.UML.Behavior_Execution_Specifications.UML_Behavior_Execution_Specification_Access
6502                   (AMF.Internals.Helpers.To_Element (Self)).Get_Behavior));
6503
6504         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
6505            --  NamedElement::clientDependency : Dependency
6506
6507            return
6508              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
6509               (AMF.UML.Behavior_Execution_Specifications.UML_Behavior_Execution_Specification_Access
6510                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
6511
6512         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Covered_Lifeline_Covered_By then
6513            --  InteractionFragment::covered : Lifeline
6514
6515            return
6516              AMF.UML.Lifelines.Collections.UML_Lifeline_Collections.Internals.To_Holder
6517               (AMF.UML.Behavior_Execution_Specifications.UML_Behavior_Execution_Specification_Access
6518                 (AMF.Internals.Helpers.To_Element (Self)).Get_Covered);
6519
6520         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Interaction_Interaction_Fragment then
6521            --  InteractionFragment::enclosingInteraction : Interaction
6522
6523            return
6524              AMF.Internals.Holders.UML_Holders.To_Holder
6525               (AMF.UML.Interactions.UML_Interaction_Access'
6526                 (AMF.UML.Behavior_Execution_Specifications.UML_Behavior_Execution_Specification_Access
6527                   (AMF.Internals.Helpers.To_Element (Self)).Get_Enclosing_Interaction));
6528
6529         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Operand_Interaction_Operand_Fragment then
6530            --  InteractionFragment::enclosingOperand : InteractionOperand
6531
6532            return
6533              AMF.Internals.Holders.UML_Holders.To_Holder
6534               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access'
6535                 (AMF.UML.Behavior_Execution_Specifications.UML_Behavior_Execution_Specification_Access
6536                   (AMF.Internals.Helpers.To_Element (Self)).Get_Enclosing_Operand));
6537
6538         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Execution_Specification_Finish_A_Execution_Specification then
6539            --  ExecutionSpecification::finish : OccurrenceSpecification
6540
6541            return
6542              AMF.Internals.Holders.UML_Holders.To_Holder
6543               (AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access'
6544                 (AMF.UML.Behavior_Execution_Specifications.UML_Behavior_Execution_Specification_Access
6545                   (AMF.Internals.Helpers.To_Element (Self)).Get_Finish));
6546
6547         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_General_Ordering_A_Interaction_Fragment then
6548            --  InteractionFragment::generalOrdering : GeneralOrdering
6549
6550            return
6551              AMF.UML.General_Orderings.Collections.UML_General_Ordering_Collections.Internals.To_Holder
6552               (AMF.UML.Behavior_Execution_Specifications.UML_Behavior_Execution_Specification_Access
6553                 (AMF.Internals.Helpers.To_Element (Self)).Get_General_Ordering);
6554
6555         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
6556            --  NamedElement::name : String
6557
6558            return
6559              AMF.Holders.To_Holder
6560               (AMF.UML.Behavior_Execution_Specifications.UML_Behavior_Execution_Specification_Access
6561                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
6562
6563         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
6564            --  NamedElement::nameExpression : StringExpression
6565
6566            return
6567              AMF.Internals.Holders.UML_Holders.To_Holder
6568               (AMF.UML.String_Expressions.UML_String_Expression_Access'
6569                 (AMF.UML.Behavior_Execution_Specifications.UML_Behavior_Execution_Specification_Access
6570                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
6571
6572         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
6573            --  NamedElement::namespace : Namespace
6574
6575            return
6576              AMF.Internals.Holders.UML_Holders.To_Holder
6577               (AMF.UML.Namespaces.UML_Namespace_Access'
6578                 (AMF.UML.Behavior_Execution_Specifications.UML_Behavior_Execution_Specification_Access
6579                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
6580
6581         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
6582            --  Element::ownedComment : Comment
6583
6584            return
6585              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
6586               (AMF.UML.Behavior_Execution_Specifications.UML_Behavior_Execution_Specification_Access
6587                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
6588
6589         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
6590            --  Element::ownedElement : Element
6591
6592            return
6593              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
6594               (AMF.UML.Behavior_Execution_Specifications.UML_Behavior_Execution_Specification_Access
6595                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
6596
6597         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
6598            --  Element::owner : Element
6599
6600            return
6601              AMF.Internals.Holders.UML_Holders.To_Holder
6602               (AMF.UML.Elements.UML_Element_Access'
6603                 (AMF.UML.Behavior_Execution_Specifications.UML_Behavior_Execution_Specification_Access
6604                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
6605
6606         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
6607            --  NamedElement::qualifiedName : String
6608
6609            return
6610              AMF.Holders.To_Holder
6611               (AMF.UML.Behavior_Execution_Specifications.UML_Behavior_Execution_Specification_Access
6612                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
6613
6614         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Execution_Specification_Start_A_Execution_Specification then
6615            --  ExecutionSpecification::start : OccurrenceSpecification
6616
6617            return
6618              AMF.Internals.Holders.UML_Holders.To_Holder
6619               (AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access'
6620                 (AMF.UML.Behavior_Execution_Specifications.UML_Behavior_Execution_Specification_Access
6621                   (AMF.Internals.Helpers.To_Element (Self)).Get_Start));
6622
6623         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
6624            --  NamedElement::visibility : VisibilityKind
6625
6626            return
6627              AMF.UML.Holders.To_Holder
6628               (AMF.UML.Behavior_Execution_Specifications.UML_Behavior_Execution_Specification_Access
6629                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
6630
6631         else
6632            raise Program_Error;
6633         end if;
6634      end UML_Behavior_Execution_Specification_Get;
6635
6636      -------------------------------------
6637      -- UML_Broadcast_Signal_Action_Get --
6638      -------------------------------------
6639
6640      function UML_Broadcast_Signal_Action_Get return League.Holders.Holder is
6641      begin
6642         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
6643            --  ActivityNode::activity : Activity
6644
6645            return
6646              AMF.Internals.Holders.UML_Holders.To_Holder
6647               (AMF.UML.Activities.UML_Activity_Access'
6648                 (AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
6649                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
6650
6651         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Invocation_Action_Argument_A_Invocation_Action then
6652            --  InvocationAction::argument : InputPin
6653
6654            return
6655              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
6656               (AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
6657                 (AMF.Internals.Helpers.To_Element (Self)).Get_Argument);
6658
6659         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
6660            --  NamedElement::clientDependency : Dependency
6661
6662            return
6663              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
6664               (AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
6665                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
6666
6667         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
6668            --  Action::context : Classifier
6669
6670            return
6671              AMF.Internals.Holders.UML_Holders.To_Holder
6672               (AMF.UML.Classifiers.UML_Classifier_Access'
6673                 (AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
6674                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
6675
6676         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
6677            --  ExecutableNode::handler : ExceptionHandler
6678
6679            return
6680              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
6681               (AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
6682                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
6683
6684         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
6685            --  ActivityNode::inGroup : ActivityGroup
6686
6687            return
6688              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
6689               (AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
6690                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
6691
6692         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
6693            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
6694
6695            return
6696              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
6697               (AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
6698                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
6699
6700         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
6701            --  ActivityNode::inPartition : ActivityPartition
6702
6703            return
6704              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
6705               (AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
6706                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
6707
6708         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
6709            --  ActivityNode::inStructuredNode : StructuredActivityNode
6710
6711            return
6712              AMF.Internals.Holders.UML_Holders.To_Holder
6713               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
6714                 (AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
6715                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
6716
6717         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
6718            --  ActivityNode::incoming : ActivityEdge
6719
6720            return
6721              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
6722               (AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
6723                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
6724
6725         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
6726            --  Action::input : InputPin
6727
6728            return
6729              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
6730               (AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
6731                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
6732
6733         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
6734            --  RedefinableElement::isLeaf : Boolean
6735
6736            return
6737              League.Holders.Booleans.To_Holder
6738               (AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
6739                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
6740
6741         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
6742            --  Action::isLocallyReentrant : Boolean
6743
6744            return
6745              League.Holders.Booleans.To_Holder
6746               (AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
6747                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
6748
6749         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
6750            --  Action::localPostcondition : Constraint
6751
6752            return
6753              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
6754               (AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
6755                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
6756
6757         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
6758            --  Action::localPrecondition : Constraint
6759
6760            return
6761              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
6762               (AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
6763                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
6764
6765         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
6766            --  NamedElement::name : String
6767
6768            return
6769              AMF.Holders.To_Holder
6770               (AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
6771                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
6772
6773         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
6774            --  NamedElement::nameExpression : StringExpression
6775
6776            return
6777              AMF.Internals.Holders.UML_Holders.To_Holder
6778               (AMF.UML.String_Expressions.UML_String_Expression_Access'
6779                 (AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
6780                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
6781
6782         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
6783            --  NamedElement::namespace : Namespace
6784
6785            return
6786              AMF.Internals.Holders.UML_Holders.To_Holder
6787               (AMF.UML.Namespaces.UML_Namespace_Access'
6788                 (AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
6789                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
6790
6791         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Invocation_Action_On_Port_A_Invocation_Action then
6792            --  InvocationAction::onPort : Port
6793
6794            return
6795              AMF.Internals.Holders.UML_Holders.To_Holder
6796               (AMF.UML.Ports.UML_Port_Access'
6797                 (AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
6798                   (AMF.Internals.Helpers.To_Element (Self)).Get_On_Port));
6799
6800         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
6801            --  ActivityNode::outgoing : ActivityEdge
6802
6803            return
6804              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
6805               (AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
6806                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
6807
6808         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
6809            --  Action::output : OutputPin
6810
6811            return
6812              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
6813               (AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
6814                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
6815
6816         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
6817            --  Element::ownedComment : Comment
6818
6819            return
6820              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
6821               (AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
6822                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
6823
6824         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
6825            --  Element::ownedElement : Element
6826
6827            return
6828              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
6829               (AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
6830                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
6831
6832         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
6833            --  Element::owner : Element
6834
6835            return
6836              AMF.Internals.Holders.UML_Holders.To_Holder
6837               (AMF.UML.Elements.UML_Element_Access'
6838                 (AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
6839                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
6840
6841         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
6842            --  NamedElement::qualifiedName : String
6843
6844            return
6845              AMF.Holders.To_Holder
6846               (AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
6847                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
6848
6849         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
6850            --  RedefinableElement::redefinedElement : RedefinableElement
6851
6852            return
6853              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
6854               (AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
6855                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
6856
6857         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
6858            --  ActivityNode::redefinedNode : ActivityNode
6859
6860            return
6861              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
6862               (AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
6863                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
6864
6865         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
6866            --  RedefinableElement::redefinitionContext : Classifier
6867
6868            return
6869              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
6870               (AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
6871                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
6872
6873         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Broadcast_Signal_Action_Signal_A_Broadcast_Signal_Action then
6874            --  BroadcastSignalAction::signal : Signal
6875
6876            return
6877              AMF.Internals.Holders.UML_Holders.To_Holder
6878               (AMF.UML.Signals.UML_Signal_Access'
6879                 (AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
6880                   (AMF.Internals.Helpers.To_Element (Self)).Get_Signal));
6881
6882         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
6883            --  NamedElement::visibility : VisibilityKind
6884
6885            return
6886              AMF.UML.Holders.To_Holder
6887               (AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
6888                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
6889
6890         else
6891            raise Program_Error;
6892         end if;
6893      end UML_Broadcast_Signal_Action_Get;
6894
6895      ----------------------------------
6896      -- UML_Call_Behavior_Action_Get --
6897      ----------------------------------
6898
6899      function UML_Call_Behavior_Action_Get return League.Holders.Holder is
6900      begin
6901         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
6902            --  ActivityNode::activity : Activity
6903
6904            return
6905              AMF.Internals.Holders.UML_Holders.To_Holder
6906               (AMF.UML.Activities.UML_Activity_Access'
6907                 (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
6908                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
6909
6910         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Invocation_Action_Argument_A_Invocation_Action then
6911            --  InvocationAction::argument : InputPin
6912
6913            return
6914              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
6915               (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
6916                 (AMF.Internals.Helpers.To_Element (Self)).Get_Argument);
6917
6918         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Call_Behavior_Action_Behavior_A_Call_Behavior_Action then
6919            --  CallBehaviorAction::behavior : Behavior
6920
6921            return
6922              AMF.Internals.Holders.UML_Holders.To_Holder
6923               (AMF.UML.Behaviors.UML_Behavior_Access'
6924                 (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
6925                   (AMF.Internals.Helpers.To_Element (Self)).Get_Behavior));
6926
6927         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
6928            --  NamedElement::clientDependency : Dependency
6929
6930            return
6931              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
6932               (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
6933                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
6934
6935         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
6936            --  Action::context : Classifier
6937
6938            return
6939              AMF.Internals.Holders.UML_Holders.To_Holder
6940               (AMF.UML.Classifiers.UML_Classifier_Access'
6941                 (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
6942                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
6943
6944         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
6945            --  ExecutableNode::handler : ExceptionHandler
6946
6947            return
6948              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
6949               (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
6950                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
6951
6952         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
6953            --  ActivityNode::inGroup : ActivityGroup
6954
6955            return
6956              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
6957               (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
6958                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
6959
6960         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
6961            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
6962
6963            return
6964              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
6965               (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
6966                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
6967
6968         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
6969            --  ActivityNode::inPartition : ActivityPartition
6970
6971            return
6972              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
6973               (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
6974                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
6975
6976         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
6977            --  ActivityNode::inStructuredNode : StructuredActivityNode
6978
6979            return
6980              AMF.Internals.Holders.UML_Holders.To_Holder
6981               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
6982                 (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
6983                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
6984
6985         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
6986            --  ActivityNode::incoming : ActivityEdge
6987
6988            return
6989              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
6990               (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
6991                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
6992
6993         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
6994            --  Action::input : InputPin
6995
6996            return
6997              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
6998               (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
6999                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
7000
7001         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
7002            --  RedefinableElement::isLeaf : Boolean
7003
7004            return
7005              League.Holders.Booleans.To_Holder
7006               (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
7007                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
7008
7009         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
7010            --  Action::isLocallyReentrant : Boolean
7011
7012            return
7013              League.Holders.Booleans.To_Holder
7014               (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
7015                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
7016
7017         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Call_Action_Is_Synchronous then
7018            --  CallAction::isSynchronous : Boolean
7019
7020            return
7021              League.Holders.Booleans.To_Holder
7022               (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
7023                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Synchronous);
7024
7025         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
7026            --  Action::localPostcondition : Constraint
7027
7028            return
7029              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
7030               (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
7031                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
7032
7033         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
7034            --  Action::localPrecondition : Constraint
7035
7036            return
7037              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
7038               (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
7039                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
7040
7041         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
7042            --  NamedElement::name : String
7043
7044            return
7045              AMF.Holders.To_Holder
7046               (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
7047                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
7048
7049         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
7050            --  NamedElement::nameExpression : StringExpression
7051
7052            return
7053              AMF.Internals.Holders.UML_Holders.To_Holder
7054               (AMF.UML.String_Expressions.UML_String_Expression_Access'
7055                 (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
7056                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
7057
7058         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
7059            --  NamedElement::namespace : Namespace
7060
7061            return
7062              AMF.Internals.Holders.UML_Holders.To_Holder
7063               (AMF.UML.Namespaces.UML_Namespace_Access'
7064                 (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
7065                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
7066
7067         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Invocation_Action_On_Port_A_Invocation_Action then
7068            --  InvocationAction::onPort : Port
7069
7070            return
7071              AMF.Internals.Holders.UML_Holders.To_Holder
7072               (AMF.UML.Ports.UML_Port_Access'
7073                 (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
7074                   (AMF.Internals.Helpers.To_Element (Self)).Get_On_Port));
7075
7076         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
7077            --  ActivityNode::outgoing : ActivityEdge
7078
7079            return
7080              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
7081               (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
7082                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
7083
7084         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
7085            --  Action::output : OutputPin
7086
7087            return
7088              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
7089               (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
7090                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
7091
7092         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
7093            --  Element::ownedComment : Comment
7094
7095            return
7096              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
7097               (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
7098                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
7099
7100         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
7101            --  Element::ownedElement : Element
7102
7103            return
7104              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
7105               (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
7106                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
7107
7108         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
7109            --  Element::owner : Element
7110
7111            return
7112              AMF.Internals.Holders.UML_Holders.To_Holder
7113               (AMF.UML.Elements.UML_Element_Access'
7114                 (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
7115                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
7116
7117         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
7118            --  NamedElement::qualifiedName : String
7119
7120            return
7121              AMF.Holders.To_Holder
7122               (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
7123                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
7124
7125         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
7126            --  RedefinableElement::redefinedElement : RedefinableElement
7127
7128            return
7129              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
7130               (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
7131                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
7132
7133         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
7134            --  ActivityNode::redefinedNode : ActivityNode
7135
7136            return
7137              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
7138               (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
7139                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
7140
7141         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
7142            --  RedefinableElement::redefinitionContext : Classifier
7143
7144            return
7145              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
7146               (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
7147                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
7148
7149         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Call_Action_Result_A_Call_Action then
7150            --  CallAction::result : OutputPin
7151
7152            return
7153              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
7154               (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
7155                 (AMF.Internals.Helpers.To_Element (Self)).Get_Result);
7156
7157         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
7158            --  NamedElement::visibility : VisibilityKind
7159
7160            return
7161              AMF.UML.Holders.To_Holder
7162               (AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
7163                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
7164
7165         else
7166            raise Program_Error;
7167         end if;
7168      end UML_Call_Behavior_Action_Get;
7169
7170      ------------------------
7171      -- UML_Call_Event_Get --
7172      ------------------------
7173
7174      function UML_Call_Event_Get return League.Holders.Holder is
7175      begin
7176         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
7177            --  NamedElement::clientDependency : Dependency
7178
7179            return
7180              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
7181               (AMF.UML.Call_Events.UML_Call_Event_Access
7182                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
7183
7184         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
7185            --  NamedElement::name : String
7186
7187            return
7188              AMF.Holders.To_Holder
7189               (AMF.UML.Call_Events.UML_Call_Event_Access
7190                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
7191
7192         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
7193            --  NamedElement::nameExpression : StringExpression
7194
7195            return
7196              AMF.Internals.Holders.UML_Holders.To_Holder
7197               (AMF.UML.String_Expressions.UML_String_Expression_Access'
7198                 (AMF.UML.Call_Events.UML_Call_Event_Access
7199                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
7200
7201         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
7202            --  NamedElement::namespace : Namespace
7203
7204            return
7205              AMF.Internals.Holders.UML_Holders.To_Holder
7206               (AMF.UML.Namespaces.UML_Namespace_Access'
7207                 (AMF.UML.Call_Events.UML_Call_Event_Access
7208                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
7209
7210         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Call_Event_Operation_A_Call_Event then
7211            --  CallEvent::operation : Operation
7212
7213            return
7214              AMF.Internals.Holders.UML_Holders.To_Holder
7215               (AMF.UML.Operations.UML_Operation_Access'
7216                 (AMF.UML.Call_Events.UML_Call_Event_Access
7217                   (AMF.Internals.Helpers.To_Element (Self)).Get_Operation));
7218
7219         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
7220            --  Element::ownedComment : Comment
7221
7222            return
7223              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
7224               (AMF.UML.Call_Events.UML_Call_Event_Access
7225                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
7226
7227         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
7228            --  Element::ownedElement : Element
7229
7230            return
7231              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
7232               (AMF.UML.Call_Events.UML_Call_Event_Access
7233                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
7234
7235         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
7236            --  Element::owner : Element
7237
7238            return
7239              AMF.Internals.Holders.UML_Holders.To_Holder
7240               (AMF.UML.Elements.UML_Element_Access'
7241                 (AMF.UML.Call_Events.UML_Call_Event_Access
7242                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
7243
7244         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
7245            --  ParameterableElement::owningTemplateParameter : TemplateParameter
7246
7247            return
7248              AMF.Internals.Holders.UML_Holders.To_Holder
7249               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
7250                 (AMF.UML.Call_Events.UML_Call_Event_Access
7251                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
7252
7253         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
7254            --  NamedElement::qualifiedName : String
7255
7256            return
7257              AMF.Holders.To_Holder
7258               (AMF.UML.Call_Events.UML_Call_Event_Access
7259                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
7260
7261         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
7262            --  ParameterableElement::templateParameter : TemplateParameter
7263
7264            return
7265              AMF.Internals.Holders.UML_Holders.To_Holder
7266               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
7267                 (AMF.UML.Call_Events.UML_Call_Event_Access
7268                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
7269
7270         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
7271            --  NamedElement::visibility : VisibilityKind
7272
7273            return
7274              AMF.UML.Holders.To_Holder
7275               (AMF.UML.Call_Events.UML_Call_Event_Access
7276                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
7277
7278         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
7279            --  PackageableElement::visibility : VisibilityKind
7280
7281            return
7282              AMF.UML.Holders.Visibility_Kinds.To_Holder
7283               (AMF.UML.Call_Events.UML_Call_Event_Access
7284                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
7285
7286         else
7287            raise Program_Error;
7288         end if;
7289      end UML_Call_Event_Get;
7290
7291      -----------------------------------
7292      -- UML_Call_Operation_Action_Get --
7293      -----------------------------------
7294
7295      function UML_Call_Operation_Action_Get return League.Holders.Holder is
7296      begin
7297         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
7298            --  ActivityNode::activity : Activity
7299
7300            return
7301              AMF.Internals.Holders.UML_Holders.To_Holder
7302               (AMF.UML.Activities.UML_Activity_Access'
7303                 (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7304                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
7305
7306         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Invocation_Action_Argument_A_Invocation_Action then
7307            --  InvocationAction::argument : InputPin
7308
7309            return
7310              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
7311               (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7312                 (AMF.Internals.Helpers.To_Element (Self)).Get_Argument);
7313
7314         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
7315            --  NamedElement::clientDependency : Dependency
7316
7317            return
7318              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
7319               (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7320                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
7321
7322         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
7323            --  Action::context : Classifier
7324
7325            return
7326              AMF.Internals.Holders.UML_Holders.To_Holder
7327               (AMF.UML.Classifiers.UML_Classifier_Access'
7328                 (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7329                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
7330
7331         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
7332            --  ExecutableNode::handler : ExceptionHandler
7333
7334            return
7335              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
7336               (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7337                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
7338
7339         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
7340            --  ActivityNode::inGroup : ActivityGroup
7341
7342            return
7343              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
7344               (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7345                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
7346
7347         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
7348            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
7349
7350            return
7351              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
7352               (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7353                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
7354
7355         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
7356            --  ActivityNode::inPartition : ActivityPartition
7357
7358            return
7359              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
7360               (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7361                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
7362
7363         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
7364            --  ActivityNode::inStructuredNode : StructuredActivityNode
7365
7366            return
7367              AMF.Internals.Holders.UML_Holders.To_Holder
7368               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
7369                 (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7370                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
7371
7372         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
7373            --  ActivityNode::incoming : ActivityEdge
7374
7375            return
7376              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
7377               (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7378                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
7379
7380         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
7381            --  Action::input : InputPin
7382
7383            return
7384              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
7385               (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7386                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
7387
7388         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
7389            --  RedefinableElement::isLeaf : Boolean
7390
7391            return
7392              League.Holders.Booleans.To_Holder
7393               (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7394                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
7395
7396         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
7397            --  Action::isLocallyReentrant : Boolean
7398
7399            return
7400              League.Holders.Booleans.To_Holder
7401               (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7402                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
7403
7404         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Call_Action_Is_Synchronous then
7405            --  CallAction::isSynchronous : Boolean
7406
7407            return
7408              League.Holders.Booleans.To_Holder
7409               (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7410                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Synchronous);
7411
7412         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
7413            --  Action::localPostcondition : Constraint
7414
7415            return
7416              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
7417               (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7418                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
7419
7420         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
7421            --  Action::localPrecondition : Constraint
7422
7423            return
7424              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
7425               (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7426                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
7427
7428         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
7429            --  NamedElement::name : String
7430
7431            return
7432              AMF.Holders.To_Holder
7433               (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7434                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
7435
7436         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
7437            --  NamedElement::nameExpression : StringExpression
7438
7439            return
7440              AMF.Internals.Holders.UML_Holders.To_Holder
7441               (AMF.UML.String_Expressions.UML_String_Expression_Access'
7442                 (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7443                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
7444
7445         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
7446            --  NamedElement::namespace : Namespace
7447
7448            return
7449              AMF.Internals.Holders.UML_Holders.To_Holder
7450               (AMF.UML.Namespaces.UML_Namespace_Access'
7451                 (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7452                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
7453
7454         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Invocation_Action_On_Port_A_Invocation_Action then
7455            --  InvocationAction::onPort : Port
7456
7457            return
7458              AMF.Internals.Holders.UML_Holders.To_Holder
7459               (AMF.UML.Ports.UML_Port_Access'
7460                 (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7461                   (AMF.Internals.Helpers.To_Element (Self)).Get_On_Port));
7462
7463         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Call_Operation_Action_Operation_A_Call_Operation_Action then
7464            --  CallOperationAction::operation : Operation
7465
7466            return
7467              AMF.Internals.Holders.UML_Holders.To_Holder
7468               (AMF.UML.Operations.UML_Operation_Access'
7469                 (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7470                   (AMF.Internals.Helpers.To_Element (Self)).Get_Operation));
7471
7472         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
7473            --  ActivityNode::outgoing : ActivityEdge
7474
7475            return
7476              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
7477               (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7478                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
7479
7480         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
7481            --  Action::output : OutputPin
7482
7483            return
7484              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
7485               (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7486                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
7487
7488         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
7489            --  Element::ownedComment : Comment
7490
7491            return
7492              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
7493               (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7494                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
7495
7496         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
7497            --  Element::ownedElement : Element
7498
7499            return
7500              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
7501               (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7502                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
7503
7504         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
7505            --  Element::owner : Element
7506
7507            return
7508              AMF.Internals.Holders.UML_Holders.To_Holder
7509               (AMF.UML.Elements.UML_Element_Access'
7510                 (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7511                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
7512
7513         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
7514            --  NamedElement::qualifiedName : String
7515
7516            return
7517              AMF.Holders.To_Holder
7518               (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7519                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
7520
7521         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
7522            --  RedefinableElement::redefinedElement : RedefinableElement
7523
7524            return
7525              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
7526               (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7527                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
7528
7529         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
7530            --  ActivityNode::redefinedNode : ActivityNode
7531
7532            return
7533              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
7534               (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7535                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
7536
7537         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
7538            --  RedefinableElement::redefinitionContext : Classifier
7539
7540            return
7541              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
7542               (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7543                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
7544
7545         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Call_Action_Result_A_Call_Action then
7546            --  CallAction::result : OutputPin
7547
7548            return
7549              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
7550               (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7551                 (AMF.Internals.Helpers.To_Element (Self)).Get_Result);
7552
7553         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Call_Operation_Action_Target_A_Call_Operation_Action then
7554            --  CallOperationAction::target : InputPin
7555
7556            return
7557              AMF.Internals.Holders.UML_Holders.To_Holder
7558               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
7559                 (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7560                   (AMF.Internals.Helpers.To_Element (Self)).Get_Target));
7561
7562         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
7563            --  NamedElement::visibility : VisibilityKind
7564
7565            return
7566              AMF.UML.Holders.To_Holder
7567               (AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
7568                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
7569
7570         else
7571            raise Program_Error;
7572         end if;
7573      end UML_Call_Operation_Action_Get;
7574
7575      ---------------------------------
7576      -- UML_Central_Buffer_Node_Get --
7577      ---------------------------------
7578
7579      function UML_Central_Buffer_Node_Get return League.Holders.Holder is
7580      begin
7581         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
7582            --  ActivityNode::activity : Activity
7583
7584            return
7585              AMF.Internals.Holders.UML_Holders.To_Holder
7586               (AMF.UML.Activities.UML_Activity_Access'
7587                 (AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
7588                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
7589
7590         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
7591            --  NamedElement::clientDependency : Dependency
7592
7593            return
7594              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
7595               (AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
7596                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
7597
7598         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
7599            --  ActivityNode::inGroup : ActivityGroup
7600
7601            return
7602              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
7603               (AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
7604                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
7605
7606         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
7607            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
7608
7609            return
7610              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
7611               (AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
7612                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
7613
7614         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
7615            --  ActivityNode::inPartition : ActivityPartition
7616
7617            return
7618              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
7619               (AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
7620                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
7621
7622         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_In_State_A_Object_Node then
7623            --  ObjectNode::inState : State
7624
7625            return
7626              AMF.UML.States.Collections.UML_State_Collections.Internals.To_Holder
7627               (AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
7628                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_State);
7629
7630         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
7631            --  ActivityNode::inStructuredNode : StructuredActivityNode
7632
7633            return
7634              AMF.Internals.Holders.UML_Holders.To_Holder
7635               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
7636                 (AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
7637                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
7638
7639         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
7640            --  ActivityNode::incoming : ActivityEdge
7641
7642            return
7643              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
7644               (AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
7645                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
7646
7647         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Is_Control_Type then
7648            --  ObjectNode::isControlType : Boolean
7649
7650            return
7651              League.Holders.Booleans.To_Holder
7652               (AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
7653                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Control_Type);
7654
7655         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
7656            --  RedefinableElement::isLeaf : Boolean
7657
7658            return
7659              League.Holders.Booleans.To_Holder
7660               (AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
7661                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
7662
7663         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
7664            --  NamedElement::name : String
7665
7666            return
7667              AMF.Holders.To_Holder
7668               (AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
7669                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
7670
7671         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
7672            --  NamedElement::nameExpression : StringExpression
7673
7674            return
7675              AMF.Internals.Holders.UML_Holders.To_Holder
7676               (AMF.UML.String_Expressions.UML_String_Expression_Access'
7677                 (AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
7678                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
7679
7680         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
7681            --  NamedElement::namespace : Namespace
7682
7683            return
7684              AMF.Internals.Holders.UML_Holders.To_Holder
7685               (AMF.UML.Namespaces.UML_Namespace_Access'
7686                 (AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
7687                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
7688
7689         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Ordering then
7690            --  ObjectNode::ordering : ObjectNodeOrderingKind
7691
7692            return
7693              AMF.UML.Holders.Object_Node_Ordering_Kinds.To_Holder
7694               (AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
7695                 (AMF.Internals.Helpers.To_Element (Self)).Get_Ordering);
7696
7697         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
7698            --  ActivityNode::outgoing : ActivityEdge
7699
7700            return
7701              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
7702               (AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
7703                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
7704
7705         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
7706            --  Element::ownedComment : Comment
7707
7708            return
7709              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
7710               (AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
7711                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
7712
7713         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
7714            --  Element::ownedElement : Element
7715
7716            return
7717              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
7718               (AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
7719                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
7720
7721         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
7722            --  Element::owner : Element
7723
7724            return
7725              AMF.Internals.Holders.UML_Holders.To_Holder
7726               (AMF.UML.Elements.UML_Element_Access'
7727                 (AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
7728                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
7729
7730         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
7731            --  NamedElement::qualifiedName : String
7732
7733            return
7734              AMF.Holders.To_Holder
7735               (AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
7736                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
7737
7738         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
7739            --  RedefinableElement::redefinedElement : RedefinableElement
7740
7741            return
7742              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
7743               (AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
7744                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
7745
7746         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
7747            --  ActivityNode::redefinedNode : ActivityNode
7748
7749            return
7750              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
7751               (AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
7752                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
7753
7754         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
7755            --  RedefinableElement::redefinitionContext : Classifier
7756
7757            return
7758              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
7759               (AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
7760                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
7761
7762         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Selection_A_Object_Node then
7763            --  ObjectNode::selection : Behavior
7764
7765            return
7766              AMF.Internals.Holders.UML_Holders.To_Holder
7767               (AMF.UML.Behaviors.UML_Behavior_Access'
7768                 (AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
7769                   (AMF.Internals.Helpers.To_Element (Self)).Get_Selection));
7770
7771         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
7772            --  TypedElement::type : Type
7773
7774            return
7775              AMF.Internals.Holders.UML_Holders.To_Holder
7776               (AMF.UML.Types.UML_Type_Access'
7777                 (AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
7778                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
7779
7780         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Upper_Bound_A_Object_Node then
7781            --  ObjectNode::upperBound : ValueSpecification
7782
7783            return
7784              AMF.Internals.Holders.UML_Holders.To_Holder
7785               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
7786                 (AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
7787                   (AMF.Internals.Helpers.To_Element (Self)).Get_Upper_Bound));
7788
7789         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
7790            --  NamedElement::visibility : VisibilityKind
7791
7792            return
7793              AMF.UML.Holders.To_Holder
7794               (AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
7795                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
7796
7797         else
7798            raise Program_Error;
7799         end if;
7800      end UML_Central_Buffer_Node_Get;
7801
7802      --------------------------
7803      -- UML_Change_Event_Get --
7804      --------------------------
7805
7806      function UML_Change_Event_Get return League.Holders.Holder is
7807      begin
7808         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Change_Event_Change_Expression_A_Change_Event then
7809            --  ChangeEvent::changeExpression : ValueSpecification
7810
7811            return
7812              AMF.Internals.Holders.UML_Holders.To_Holder
7813               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
7814                 (AMF.UML.Change_Events.UML_Change_Event_Access
7815                   (AMF.Internals.Helpers.To_Element (Self)).Get_Change_Expression));
7816
7817         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
7818            --  NamedElement::clientDependency : Dependency
7819
7820            return
7821              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
7822               (AMF.UML.Change_Events.UML_Change_Event_Access
7823                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
7824
7825         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
7826            --  NamedElement::name : String
7827
7828            return
7829              AMF.Holders.To_Holder
7830               (AMF.UML.Change_Events.UML_Change_Event_Access
7831                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
7832
7833         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
7834            --  NamedElement::nameExpression : StringExpression
7835
7836            return
7837              AMF.Internals.Holders.UML_Holders.To_Holder
7838               (AMF.UML.String_Expressions.UML_String_Expression_Access'
7839                 (AMF.UML.Change_Events.UML_Change_Event_Access
7840                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
7841
7842         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
7843            --  NamedElement::namespace : Namespace
7844
7845            return
7846              AMF.Internals.Holders.UML_Holders.To_Holder
7847               (AMF.UML.Namespaces.UML_Namespace_Access'
7848                 (AMF.UML.Change_Events.UML_Change_Event_Access
7849                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
7850
7851         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
7852            --  Element::ownedComment : Comment
7853
7854            return
7855              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
7856               (AMF.UML.Change_Events.UML_Change_Event_Access
7857                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
7858
7859         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
7860            --  Element::ownedElement : Element
7861
7862            return
7863              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
7864               (AMF.UML.Change_Events.UML_Change_Event_Access
7865                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
7866
7867         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
7868            --  Element::owner : Element
7869
7870            return
7871              AMF.Internals.Holders.UML_Holders.To_Holder
7872               (AMF.UML.Elements.UML_Element_Access'
7873                 (AMF.UML.Change_Events.UML_Change_Event_Access
7874                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
7875
7876         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
7877            --  ParameterableElement::owningTemplateParameter : TemplateParameter
7878
7879            return
7880              AMF.Internals.Holders.UML_Holders.To_Holder
7881               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
7882                 (AMF.UML.Change_Events.UML_Change_Event_Access
7883                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
7884
7885         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
7886            --  NamedElement::qualifiedName : String
7887
7888            return
7889              AMF.Holders.To_Holder
7890               (AMF.UML.Change_Events.UML_Change_Event_Access
7891                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
7892
7893         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
7894            --  ParameterableElement::templateParameter : TemplateParameter
7895
7896            return
7897              AMF.Internals.Holders.UML_Holders.To_Holder
7898               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
7899                 (AMF.UML.Change_Events.UML_Change_Event_Access
7900                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
7901
7902         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
7903            --  NamedElement::visibility : VisibilityKind
7904
7905            return
7906              AMF.UML.Holders.To_Holder
7907               (AMF.UML.Change_Events.UML_Change_Event_Access
7908                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
7909
7910         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
7911            --  PackageableElement::visibility : VisibilityKind
7912
7913            return
7914              AMF.UML.Holders.Visibility_Kinds.To_Holder
7915               (AMF.UML.Change_Events.UML_Change_Event_Access
7916                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
7917
7918         else
7919            raise Program_Error;
7920         end if;
7921      end UML_Change_Event_Get;
7922
7923      -------------------
7924      -- UML_Class_Get --
7925      -------------------
7926
7927      function UML_Class_Get return League.Holders.Holder is
7928      begin
7929         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier then
7930            --  Classifier::attribute : Property
7931
7932            return
7933              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
7934               (AMF.UML.Classes.UML_Class_Access
7935                 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute);
7936
7937         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
7938            --  BehavioredClassifier::classifierBehavior : Behavior
7939
7940            return
7941              AMF.Internals.Holders.UML_Holders.To_Holder
7942               (AMF.UML.Behaviors.UML_Behavior_Access'
7943                 (AMF.UML.Classes.UML_Class_Access
7944                   (AMF.Internals.Helpers.To_Element (Self)).Get_Classifier_Behavior));
7945
7946         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
7947            --  NamedElement::clientDependency : Dependency
7948
7949            return
7950              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
7951               (AMF.UML.Classes.UML_Class_Access
7952                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
7953
7954         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier then
7955            --  Classifier::collaborationUse : CollaborationUse
7956
7957            return
7958              AMF.UML.Collaboration_Uses.Collections.UML_Collaboration_Use_Collections.Internals.To_Holder
7959               (AMF.UML.Classes.UML_Class_Access
7960                 (AMF.Internals.Helpers.To_Element (Self)).Get_Collaboration_Use);
7961
7962         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
7963            --  Namespace::elementImport : ElementImport
7964
7965            return
7966              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
7967               (AMF.UML.Classes.UML_Class_Access
7968                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
7969
7970         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Extension_Extension_Metaclass then
7971            --  Class::extension : Extension
7972
7973            return
7974              AMF.UML.Extensions.Collections.UML_Extension_Collections.Internals.To_Holder
7975               (AMF.UML.Classes.UML_Class_Access
7976                 (AMF.Internals.Helpers.To_Element (Self)).Get_Extension);
7977
7978         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier then
7979            --  Classifier::feature : Feature
7980
7981            return
7982              AMF.UML.Features.Collections.UML_Feature_Collections.Internals.To_Holder
7983               (AMF.UML.Classes.UML_Class_Access
7984                 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature);
7985
7986         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier then
7987            --  Classifier::general : Classifier
7988
7989            return
7990              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
7991               (AMF.UML.Classes.UML_Class_Access
7992                 (AMF.Internals.Helpers.To_Element (Self)).Get_General);
7993
7994         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific then
7995            --  Classifier::generalization : Generalization
7996
7997            return
7998              AMF.UML.Generalizations.Collections.UML_Generalization_Collections.Internals.To_Holder
7999               (AMF.UML.Classes.UML_Class_Access
8000                 (AMF.Internals.Helpers.To_Element (Self)).Get_Generalization);
8001
8002         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
8003            --  Namespace::importedMember : PackageableElement
8004
8005            return
8006              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
8007               (AMF.UML.Classes.UML_Class_Access
8008                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
8009
8010         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier then
8011            --  Classifier::inheritedMember : NamedElement
8012
8013            return
8014              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
8015               (AMF.UML.Classes.UML_Class_Access
8016                 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member);
8017
8018         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier then
8019            --  BehavioredClassifier::interfaceRealization : InterfaceRealization
8020
8021            return
8022              AMF.UML.Interface_Realizations.Collections.UML_Interface_Realization_Collections.Internals.To_Holder
8023               (AMF.UML.Classes.UML_Class_Access
8024                 (AMF.Internals.Helpers.To_Element (Self)).Get_Interface_Realization);
8025
8026         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Abstract then
8027            --  Class::isAbstract : Boolean
8028
8029            return
8030              League.Holders.Booleans.To_Holder
8031               (AMF.UML.Classes.UML_Class_Access
8032                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
8033
8034         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
8035            --  Classifier::isAbstract : Boolean
8036
8037            return
8038              League.Holders.Booleans.To_Holder
8039               (AMF.UML.Classes.UML_Class_Access
8040                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
8041
8042         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Active then
8043            --  Class::isActive : Boolean
8044
8045            return
8046              League.Holders.Booleans.To_Holder
8047               (AMF.UML.Classes.UML_Class_Access
8048                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Active);
8049
8050         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
8051            --  Classifier::isFinalSpecialization : Boolean
8052
8053            return
8054              League.Holders.Booleans.To_Holder
8055               (AMF.UML.Classes.UML_Class_Access
8056                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization);
8057
8058         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
8059            --  RedefinableElement::isLeaf : Boolean
8060
8061            return
8062              League.Holders.Booleans.To_Holder
8063               (AMF.UML.Classes.UML_Class_Access
8064                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
8065
8066         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
8067            --  Namespace::member : NamedElement
8068
8069            return
8070              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
8071               (AMF.UML.Classes.UML_Class_Access
8072                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
8073
8074         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
8075            --  NamedElement::name : String
8076
8077            return
8078              AMF.Holders.To_Holder
8079               (AMF.UML.Classes.UML_Class_Access
8080                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
8081
8082         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
8083            --  NamedElement::nameExpression : StringExpression
8084
8085            return
8086              AMF.Internals.Holders.UML_Holders.To_Holder
8087               (AMF.UML.String_Expressions.UML_String_Expression_Access'
8088                 (AMF.UML.Classes.UML_Class_Access
8089                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
8090
8091         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
8092            --  NamedElement::namespace : Namespace
8093
8094            return
8095              AMF.Internals.Holders.UML_Holders.To_Holder
8096               (AMF.UML.Namespaces.UML_Namespace_Access'
8097                 (AMF.UML.Classes.UML_Class_Access
8098                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
8099
8100         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Nested_Classifier_A_Class then
8101            --  Class::nestedClassifier : Classifier
8102
8103            return
8104              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
8105               (AMF.UML.Classes.UML_Class_Access
8106                 (AMF.Internals.Helpers.To_Element (Self)).Get_Nested_Classifier);
8107
8108         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Attribute_Property_Class then
8109            --  Class::ownedAttribute : Property
8110
8111            return
8112              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
8113               (AMF.UML.Classes.UML_Class_Access
8114                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
8115
8116         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Attribute_A_Structured_Classifier then
8117            --  StructuredClassifier::ownedAttribute : Property
8118
8119            return
8120              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
8121               (AMF.UML.Classes.UML_Class_Access
8122                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
8123
8124         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier then
8125            --  BehavioredClassifier::ownedBehavior : Behavior
8126
8127            return
8128              AMF.UML.Behaviors.Collections.UML_Behavior_Collections.Internals.To_Holder
8129               (AMF.UML.Classes.UML_Class_Access
8130                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Behavior);
8131
8132         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
8133            --  Element::ownedComment : Comment
8134
8135            return
8136              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
8137               (AMF.UML.Classes.UML_Class_Access
8138                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
8139
8140         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Connector_A_Structured_Classifier then
8141            --  StructuredClassifier::ownedConnector : Connector
8142
8143            return
8144              AMF.UML.Connectors.Collections.UML_Connector_Collections.Internals.To_Holder
8145               (AMF.UML.Classes.UML_Class_Access
8146                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Connector);
8147
8148         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
8149            --  Element::ownedElement : Element
8150
8151            return
8152              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
8153               (AMF.UML.Classes.UML_Class_Access
8154                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
8155
8156         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
8157            --  Namespace::ownedMember : NamedElement
8158
8159            return
8160              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
8161               (AMF.UML.Classes.UML_Class_Access
8162                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
8163
8164         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Operation_Operation_Class then
8165            --  Class::ownedOperation : Operation
8166
8167            return
8168              AMF.UML.Operations.Collections.UML_Operation_Collections.Internals.To_Holder
8169               (AMF.UML.Classes.UML_Class_Access
8170                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Operation);
8171
8172         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Encapsulated_Classifier_Owned_Port_A_Encapsulated_Classifier then
8173            --  EncapsulatedClassifier::ownedPort : Port
8174
8175            return
8176              AMF.UML.Ports.Collections.UML_Port_Collections.Internals.To_Holder
8177               (AMF.UML.Classes.UML_Class_Access
8178                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Port);
8179
8180         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Reception_A_Class then
8181            --  Class::ownedReception : Reception
8182
8183            return
8184              AMF.UML.Receptions.Collections.UML_Reception_Collections.Internals.To_Holder
8185               (AMF.UML.Classes.UML_Class_Access
8186                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Reception);
8187
8188         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
8189            --  Namespace::ownedRule : Constraint
8190
8191            return
8192              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
8193               (AMF.UML.Classes.UML_Class_Access
8194                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
8195
8196         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
8197            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
8198
8199            return
8200              AMF.Internals.Holders.UML_Holders.To_Holder
8201               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access'
8202                 (AMF.UML.Classes.UML_Class_Access
8203                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
8204
8205         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
8206            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
8207
8208            return
8209              AMF.Internals.Holders.UML_Holders.To_Holder
8210               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
8211                 (AMF.UML.Classes.UML_Class_Access
8212                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
8213
8214         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier then
8215            --  Classifier::ownedUseCase : UseCase
8216
8217            return
8218              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
8219               (AMF.UML.Classes.UML_Class_Access
8220                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Use_Case);
8221
8222         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
8223            --  Element::owner : Element
8224
8225            return
8226              AMF.Internals.Holders.UML_Holders.To_Holder
8227               (AMF.UML.Elements.UML_Element_Access'
8228                 (AMF.UML.Classes.UML_Class_Access
8229                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
8230
8231         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
8232            --  ParameterableElement::owningTemplateParameter : TemplateParameter
8233
8234            return
8235              AMF.Internals.Holders.UML_Holders.To_Holder
8236               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
8237                 (AMF.UML.Classes.UML_Class_Access
8238                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
8239
8240         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
8241            --  Type::package : Package
8242
8243            return
8244              AMF.Internals.Holders.UML_Holders.To_Holder
8245               (AMF.UML.Packages.UML_Package_Access'
8246                 (AMF.UML.Classes.UML_Class_Access
8247                   (AMF.Internals.Helpers.To_Element (Self)).Get_Package));
8248
8249         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
8250            --  Namespace::packageImport : PackageImport
8251
8252            return
8253              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
8254               (AMF.UML.Classes.UML_Class_Access
8255                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
8256
8257         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Part_A_Structured_Classifier then
8258            --  StructuredClassifier::part : Property
8259
8260            return
8261              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
8262               (AMF.UML.Classes.UML_Class_Access
8263                 (AMF.Internals.Helpers.To_Element (Self)).Get_Part);
8264
8265         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype then
8266            --  Classifier::powertypeExtent : GeneralizationSet
8267
8268            return
8269              AMF.UML.Generalization_Sets.Collections.UML_Generalization_Set_Collections.Internals.To_Holder
8270               (AMF.UML.Classes.UML_Class_Access
8271                 (AMF.Internals.Helpers.To_Element (Self)).Get_Powertype_Extent);
8272
8273         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
8274            --  NamedElement::qualifiedName : String
8275
8276            return
8277              AMF.Holders.To_Holder
8278               (AMF.UML.Classes.UML_Class_Access
8279                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
8280
8281         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier then
8282            --  Classifier::redefinedClassifier : Classifier
8283
8284            return
8285              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
8286               (AMF.UML.Classes.UML_Class_Access
8287                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Classifier);
8288
8289         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
8290            --  RedefinableElement::redefinedElement : RedefinableElement
8291
8292            return
8293              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
8294               (AMF.UML.Classes.UML_Class_Access
8295                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
8296
8297         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
8298            --  RedefinableElement::redefinitionContext : Classifier
8299
8300            return
8301              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
8302               (AMF.UML.Classes.UML_Class_Access
8303                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
8304
8305         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
8306            --  Classifier::representation : CollaborationUse
8307
8308            return
8309              AMF.Internals.Holders.UML_Holders.To_Holder
8310               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access'
8311                 (AMF.UML.Classes.UML_Class_Access
8312                   (AMF.Internals.Helpers.To_Element (Self)).Get_Representation));
8313
8314         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Role_A_Structured_Classifier then
8315            --  StructuredClassifier::role : ConnectableElement
8316
8317            return
8318              AMF.UML.Connectable_Elements.Collections.UML_Connectable_Element_Collections.Internals.To_Holder
8319               (AMF.UML.Classes.UML_Class_Access
8320                 (AMF.Internals.Helpers.To_Element (Self)).Get_Role);
8321
8322         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier then
8323            --  Classifier::substitution : Substitution
8324
8325            return
8326              AMF.UML.Substitutions.Collections.UML_Substitution_Collections.Internals.To_Holder
8327               (AMF.UML.Classes.UML_Class_Access
8328                 (AMF.Internals.Helpers.To_Element (Self)).Get_Substitution);
8329
8330         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Super_Class_A_Class then
8331            --  Class::superClass : Class
8332
8333            return
8334              AMF.UML.Classes.Collections.UML_Class_Collections.Internals.To_Holder
8335               (AMF.UML.Classes.UML_Class_Access
8336                 (AMF.Internals.Helpers.To_Element (Self)).Get_Super_Class);
8337
8338         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
8339            --  TemplateableElement::templateBinding : TemplateBinding
8340
8341            return
8342              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
8343               (AMF.UML.Classes.UML_Class_Access
8344                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
8345
8346         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
8347            --  Classifier::templateParameter : ClassifierTemplateParameter
8348
8349            return
8350              AMF.Internals.Holders.UML_Holders.To_Holder
8351               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access'
8352                 (AMF.UML.Classes.UML_Class_Access
8353                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
8354
8355         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
8356            --  ParameterableElement::templateParameter : TemplateParameter
8357
8358            return
8359              AMF.Internals.Holders.UML_Holders.To_Holder
8360               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
8361                 (AMF.UML.Classes.UML_Class_Access
8362                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
8363
8364         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject then
8365            --  Classifier::useCase : UseCase
8366
8367            return
8368              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
8369               (AMF.UML.Classes.UML_Class_Access
8370                 (AMF.Internals.Helpers.To_Element (Self)).Get_Use_Case);
8371
8372         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
8373            --  NamedElement::visibility : VisibilityKind
8374
8375            return
8376              AMF.UML.Holders.To_Holder
8377               (AMF.UML.Classes.UML_Class_Access
8378                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
8379
8380         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
8381            --  PackageableElement::visibility : VisibilityKind
8382
8383            return
8384              AMF.UML.Holders.Visibility_Kinds.To_Holder
8385               (AMF.UML.Classes.UML_Class_Access
8386                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
8387
8388         else
8389            raise Program_Error;
8390         end if;
8391      end UML_Class_Get;
8392
8393      -------------------------------------------
8394      -- UML_Classifier_Template_Parameter_Get --
8395      -------------------------------------------
8396
8397      function UML_Classifier_Template_Parameter_Get return League.Holders.Holder is
8398      begin
8399         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Allow_Substitutable then
8400            --  ClassifierTemplateParameter::allowSubstitutable : Boolean
8401
8402            return
8403              League.Holders.Booleans.To_Holder
8404               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access
8405                 (AMF.Internals.Helpers.To_Element (Self)).Get_Allow_Substitutable);
8406
8407         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Constraining_Classifier_A_Classifier_Template_Parameter then
8408            --  ClassifierTemplateParameter::constrainingClassifier : Classifier
8409
8410            return
8411              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
8412               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access
8413                 (AMF.Internals.Helpers.To_Element (Self)).Get_Constraining_Classifier);
8414
8415         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Default_A_Template_Parameter then
8416            --  TemplateParameter::default : ParameterableElement
8417
8418            return
8419              AMF.Internals.Holders.UML_Holders.To_Holder
8420               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access'
8421                 (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access
8422                   (AMF.Internals.Helpers.To_Element (Self)).Get_Default));
8423
8424         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
8425            --  Element::ownedComment : Comment
8426
8427            return
8428              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
8429               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access
8430                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
8431
8432         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Owned_Default_A_Template_Parameter then
8433            --  TemplateParameter::ownedDefault : ParameterableElement
8434
8435            return
8436              AMF.Internals.Holders.UML_Holders.To_Holder
8437               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access'
8438                 (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access
8439                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Default));
8440
8441         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
8442            --  Element::ownedElement : Element
8443
8444            return
8445              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
8446               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access
8447                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
8448
8449         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Owned_Parametered_Element_Parameterable_Element_Owning_Template_Parameter then
8450            --  TemplateParameter::ownedParameteredElement : ParameterableElement
8451
8452            return
8453              AMF.Internals.Holders.UML_Holders.To_Holder
8454               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access'
8455                 (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access
8456                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Parametered_Element));
8457
8458         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
8459            --  Element::owner : Element
8460
8461            return
8462              AMF.Internals.Holders.UML_Holders.To_Holder
8463               (AMF.UML.Elements.UML_Element_Access'
8464                 (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access
8465                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
8466
8467         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Parametered_Element_Classifier_Template_Parameter then
8468            --  ClassifierTemplateParameter::parameteredElement : Classifier
8469
8470            return
8471              AMF.Internals.Holders.UML_Holders.To_Holder
8472               (AMF.UML.Classifiers.UML_Classifier_Access'
8473                 (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access
8474                   (AMF.Internals.Helpers.To_Element (Self)).Get_Parametered_Element));
8475
8476         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Parametered_Element_Parameterable_Element_Template_Parameter then
8477            --  TemplateParameter::parameteredElement : ParameterableElement
8478
8479            return
8480              AMF.Internals.Holders.UML_Holders.To_Holder
8481               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access'
8482                 (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access
8483                   (AMF.Internals.Helpers.To_Element (Self)).Get_Parametered_Element));
8484
8485         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Signature_Template_Signature_Owned_Parameter then
8486            --  TemplateParameter::signature : TemplateSignature
8487
8488            return
8489              AMF.Internals.Holders.UML_Holders.To_Holder
8490               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
8491                 (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access
8492                   (AMF.Internals.Helpers.To_Element (Self)).Get_Signature));
8493
8494         else
8495            raise Program_Error;
8496         end if;
8497      end UML_Classifier_Template_Parameter_Get;
8498
8499      --------------------
8500      -- UML_Clause_Get --
8501      --------------------
8502
8503      function UML_Clause_Get return League.Holders.Holder is
8504      begin
8505         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Clause_Body_A_Clause then
8506            --  Clause::body : ExecutableNode
8507
8508            return
8509              AMF.UML.Executable_Nodes.Collections.UML_Executable_Node_Collections.Internals.To_Holder
8510               (AMF.UML.Clauses.UML_Clause_Access
8511                 (AMF.Internals.Helpers.To_Element (Self)).Get_Body);
8512
8513         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Clause_Body_Output_A_Clause then
8514            --  Clause::bodyOutput : OutputPin
8515
8516            return
8517              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
8518               (AMF.UML.Clauses.UML_Clause_Access
8519                 (AMF.Internals.Helpers.To_Element (Self)).Get_Body_Output);
8520
8521         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Clause_Decider_A_Clause then
8522            --  Clause::decider : OutputPin
8523
8524            return
8525              AMF.Internals.Holders.UML_Holders.To_Holder
8526               (AMF.UML.Output_Pins.UML_Output_Pin_Access'
8527                 (AMF.UML.Clauses.UML_Clause_Access
8528                   (AMF.Internals.Helpers.To_Element (Self)).Get_Decider));
8529
8530         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
8531            --  Element::ownedComment : Comment
8532
8533            return
8534              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
8535               (AMF.UML.Clauses.UML_Clause_Access
8536                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
8537
8538         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
8539            --  Element::ownedElement : Element
8540
8541            return
8542              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
8543               (AMF.UML.Clauses.UML_Clause_Access
8544                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
8545
8546         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
8547            --  Element::owner : Element
8548
8549            return
8550              AMF.Internals.Holders.UML_Holders.To_Holder
8551               (AMF.UML.Elements.UML_Element_Access'
8552                 (AMF.UML.Clauses.UML_Clause_Access
8553                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
8554
8555         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Clause_Predecessor_Clause_Clause_Successor_Clause then
8556            --  Clause::predecessorClause : Clause
8557
8558            return
8559              AMF.UML.Clauses.Collections.UML_Clause_Collections.Internals.To_Holder
8560               (AMF.UML.Clauses.UML_Clause_Access
8561                 (AMF.Internals.Helpers.To_Element (Self)).Get_Predecessor_Clause);
8562
8563         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Clause_Successor_Clause_Clause_Predecessor_Clause then
8564            --  Clause::successorClause : Clause
8565
8566            return
8567              AMF.UML.Clauses.Collections.UML_Clause_Collections.Internals.To_Holder
8568               (AMF.UML.Clauses.UML_Clause_Access
8569                 (AMF.Internals.Helpers.To_Element (Self)).Get_Successor_Clause);
8570
8571         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Clause_Test_A_Clause then
8572            --  Clause::test : ExecutableNode
8573
8574            return
8575              AMF.UML.Executable_Nodes.Collections.UML_Executable_Node_Collections.Internals.To_Holder
8576               (AMF.UML.Clauses.UML_Clause_Access
8577                 (AMF.Internals.Helpers.To_Element (Self)).Get_Test);
8578
8579         else
8580            raise Program_Error;
8581         end if;
8582      end UML_Clause_Get;
8583
8584      --------------------------------------
8585      -- UML_Clear_Association_Action_Get --
8586      --------------------------------------
8587
8588      function UML_Clear_Association_Action_Get return League.Holders.Holder is
8589      begin
8590         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
8591            --  ActivityNode::activity : Activity
8592
8593            return
8594              AMF.Internals.Holders.UML_Holders.To_Holder
8595               (AMF.UML.Activities.UML_Activity_Access'
8596                 (AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
8597                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
8598
8599         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Clear_Association_Action_Association_A_Clear_Association_Action then
8600            --  ClearAssociationAction::association : Association
8601
8602            return
8603              AMF.Internals.Holders.UML_Holders.To_Holder
8604               (AMF.UML.Associations.UML_Association_Access'
8605                 (AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
8606                   (AMF.Internals.Helpers.To_Element (Self)).Get_Association));
8607
8608         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
8609            --  NamedElement::clientDependency : Dependency
8610
8611            return
8612              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
8613               (AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
8614                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
8615
8616         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
8617            --  Action::context : Classifier
8618
8619            return
8620              AMF.Internals.Holders.UML_Holders.To_Holder
8621               (AMF.UML.Classifiers.UML_Classifier_Access'
8622                 (AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
8623                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
8624
8625         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
8626            --  ExecutableNode::handler : ExceptionHandler
8627
8628            return
8629              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
8630               (AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
8631                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
8632
8633         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
8634            --  ActivityNode::inGroup : ActivityGroup
8635
8636            return
8637              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
8638               (AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
8639                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
8640
8641         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
8642            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
8643
8644            return
8645              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
8646               (AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
8647                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
8648
8649         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
8650            --  ActivityNode::inPartition : ActivityPartition
8651
8652            return
8653              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
8654               (AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
8655                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
8656
8657         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
8658            --  ActivityNode::inStructuredNode : StructuredActivityNode
8659
8660            return
8661              AMF.Internals.Holders.UML_Holders.To_Holder
8662               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
8663                 (AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
8664                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
8665
8666         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
8667            --  ActivityNode::incoming : ActivityEdge
8668
8669            return
8670              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
8671               (AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
8672                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
8673
8674         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
8675            --  Action::input : InputPin
8676
8677            return
8678              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
8679               (AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
8680                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
8681
8682         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
8683            --  RedefinableElement::isLeaf : Boolean
8684
8685            return
8686              League.Holders.Booleans.To_Holder
8687               (AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
8688                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
8689
8690         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
8691            --  Action::isLocallyReentrant : Boolean
8692
8693            return
8694              League.Holders.Booleans.To_Holder
8695               (AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
8696                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
8697
8698         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
8699            --  Action::localPostcondition : Constraint
8700
8701            return
8702              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
8703               (AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
8704                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
8705
8706         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
8707            --  Action::localPrecondition : Constraint
8708
8709            return
8710              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
8711               (AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
8712                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
8713
8714         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
8715            --  NamedElement::name : String
8716
8717            return
8718              AMF.Holders.To_Holder
8719               (AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
8720                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
8721
8722         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
8723            --  NamedElement::nameExpression : StringExpression
8724
8725            return
8726              AMF.Internals.Holders.UML_Holders.To_Holder
8727               (AMF.UML.String_Expressions.UML_String_Expression_Access'
8728                 (AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
8729                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
8730
8731         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
8732            --  NamedElement::namespace : Namespace
8733
8734            return
8735              AMF.Internals.Holders.UML_Holders.To_Holder
8736               (AMF.UML.Namespaces.UML_Namespace_Access'
8737                 (AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
8738                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
8739
8740         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Clear_Association_Action_Object_A_Clear_Association_Action then
8741            --  ClearAssociationAction::object : InputPin
8742
8743            return
8744              AMF.Internals.Holders.UML_Holders.To_Holder
8745               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
8746                 (AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
8747                   (AMF.Internals.Helpers.To_Element (Self)).Get_Object));
8748
8749         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
8750            --  ActivityNode::outgoing : ActivityEdge
8751
8752            return
8753              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
8754               (AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
8755                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
8756
8757         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
8758            --  Action::output : OutputPin
8759
8760            return
8761              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
8762               (AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
8763                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
8764
8765         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
8766            --  Element::ownedComment : Comment
8767
8768            return
8769              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
8770               (AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
8771                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
8772
8773         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
8774            --  Element::ownedElement : Element
8775
8776            return
8777              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
8778               (AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
8779                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
8780
8781         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
8782            --  Element::owner : Element
8783
8784            return
8785              AMF.Internals.Holders.UML_Holders.To_Holder
8786               (AMF.UML.Elements.UML_Element_Access'
8787                 (AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
8788                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
8789
8790         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
8791            --  NamedElement::qualifiedName : String
8792
8793            return
8794              AMF.Holders.To_Holder
8795               (AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
8796                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
8797
8798         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
8799            --  RedefinableElement::redefinedElement : RedefinableElement
8800
8801            return
8802              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
8803               (AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
8804                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
8805
8806         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
8807            --  ActivityNode::redefinedNode : ActivityNode
8808
8809            return
8810              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
8811               (AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
8812                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
8813
8814         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
8815            --  RedefinableElement::redefinitionContext : Classifier
8816
8817            return
8818              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
8819               (AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
8820                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
8821
8822         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
8823            --  NamedElement::visibility : VisibilityKind
8824
8825            return
8826              AMF.UML.Holders.To_Holder
8827               (AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
8828                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
8829
8830         else
8831            raise Program_Error;
8832         end if;
8833      end UML_Clear_Association_Action_Get;
8834
8835      ---------------------------------------------
8836      -- UML_Clear_Structural_Feature_Action_Get --
8837      ---------------------------------------------
8838
8839      function UML_Clear_Structural_Feature_Action_Get return League.Holders.Holder is
8840      begin
8841         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
8842            --  ActivityNode::activity : Activity
8843
8844            return
8845              AMF.Internals.Holders.UML_Holders.To_Holder
8846               (AMF.UML.Activities.UML_Activity_Access'
8847                 (AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
8848                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
8849
8850         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
8851            --  NamedElement::clientDependency : Dependency
8852
8853            return
8854              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
8855               (AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
8856                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
8857
8858         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
8859            --  Action::context : Classifier
8860
8861            return
8862              AMF.Internals.Holders.UML_Holders.To_Holder
8863               (AMF.UML.Classifiers.UML_Classifier_Access'
8864                 (AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
8865                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
8866
8867         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
8868            --  ExecutableNode::handler : ExceptionHandler
8869
8870            return
8871              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
8872               (AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
8873                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
8874
8875         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
8876            --  ActivityNode::inGroup : ActivityGroup
8877
8878            return
8879              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
8880               (AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
8881                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
8882
8883         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
8884            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
8885
8886            return
8887              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
8888               (AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
8889                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
8890
8891         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
8892            --  ActivityNode::inPartition : ActivityPartition
8893
8894            return
8895              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
8896               (AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
8897                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
8898
8899         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
8900            --  ActivityNode::inStructuredNode : StructuredActivityNode
8901
8902            return
8903              AMF.Internals.Holders.UML_Holders.To_Holder
8904               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
8905                 (AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
8906                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
8907
8908         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
8909            --  ActivityNode::incoming : ActivityEdge
8910
8911            return
8912              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
8913               (AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
8914                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
8915
8916         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
8917            --  Action::input : InputPin
8918
8919            return
8920              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
8921               (AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
8922                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
8923
8924         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
8925            --  RedefinableElement::isLeaf : Boolean
8926
8927            return
8928              League.Holders.Booleans.To_Holder
8929               (AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
8930                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
8931
8932         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
8933            --  Action::isLocallyReentrant : Boolean
8934
8935            return
8936              League.Holders.Booleans.To_Holder
8937               (AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
8938                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
8939
8940         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
8941            --  Action::localPostcondition : Constraint
8942
8943            return
8944              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
8945               (AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
8946                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
8947
8948         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
8949            --  Action::localPrecondition : Constraint
8950
8951            return
8952              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
8953               (AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
8954                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
8955
8956         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
8957            --  NamedElement::name : String
8958
8959            return
8960              AMF.Holders.To_Holder
8961               (AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
8962                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
8963
8964         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
8965            --  NamedElement::nameExpression : StringExpression
8966
8967            return
8968              AMF.Internals.Holders.UML_Holders.To_Holder
8969               (AMF.UML.String_Expressions.UML_String_Expression_Access'
8970                 (AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
8971                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
8972
8973         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
8974            --  NamedElement::namespace : Namespace
8975
8976            return
8977              AMF.Internals.Holders.UML_Holders.To_Holder
8978               (AMF.UML.Namespaces.UML_Namespace_Access'
8979                 (AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
8980                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
8981
8982         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structural_Feature_Action_Object_A_Structural_Feature_Action then
8983            --  StructuralFeatureAction::object : InputPin
8984
8985            return
8986              AMF.Internals.Holders.UML_Holders.To_Holder
8987               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
8988                 (AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
8989                   (AMF.Internals.Helpers.To_Element (Self)).Get_Object));
8990
8991         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
8992            --  ActivityNode::outgoing : ActivityEdge
8993
8994            return
8995              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
8996               (AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
8997                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
8998
8999         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
9000            --  Action::output : OutputPin
9001
9002            return
9003              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
9004               (AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
9005                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
9006
9007         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
9008            --  Element::ownedComment : Comment
9009
9010            return
9011              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
9012               (AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
9013                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
9014
9015         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
9016            --  Element::ownedElement : Element
9017
9018            return
9019              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
9020               (AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
9021                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
9022
9023         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
9024            --  Element::owner : Element
9025
9026            return
9027              AMF.Internals.Holders.UML_Holders.To_Holder
9028               (AMF.UML.Elements.UML_Element_Access'
9029                 (AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
9030                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
9031
9032         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
9033            --  NamedElement::qualifiedName : String
9034
9035            return
9036              AMF.Holders.To_Holder
9037               (AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
9038                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
9039
9040         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
9041            --  RedefinableElement::redefinedElement : RedefinableElement
9042
9043            return
9044              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
9045               (AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
9046                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
9047
9048         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
9049            --  ActivityNode::redefinedNode : ActivityNode
9050
9051            return
9052              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
9053               (AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
9054                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
9055
9056         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
9057            --  RedefinableElement::redefinitionContext : Classifier
9058
9059            return
9060              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
9061               (AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
9062                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
9063
9064         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Clear_Structural_Feature_Action_Result_A_Clear_Structural_Feature_Action then
9065            --  ClearStructuralFeatureAction::result : OutputPin
9066
9067            return
9068              AMF.Internals.Holders.UML_Holders.To_Holder
9069               (AMF.UML.Output_Pins.UML_Output_Pin_Access'
9070                 (AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
9071                   (AMF.Internals.Helpers.To_Element (Self)).Get_Result));
9072
9073         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structural_Feature_Action_Structural_Feature_A_Structural_Feature_Action then
9074            --  StructuralFeatureAction::structuralFeature : StructuralFeature
9075
9076            return
9077              AMF.Internals.Holders.UML_Holders.To_Holder
9078               (AMF.UML.Structural_Features.UML_Structural_Feature_Access'
9079                 (AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
9080                   (AMF.Internals.Helpers.To_Element (Self)).Get_Structural_Feature));
9081
9082         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
9083            --  NamedElement::visibility : VisibilityKind
9084
9085            return
9086              AMF.UML.Holders.To_Holder
9087               (AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
9088                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
9089
9090         else
9091            raise Program_Error;
9092         end if;
9093      end UML_Clear_Structural_Feature_Action_Get;
9094
9095      -----------------------------------
9096      -- UML_Clear_Variable_Action_Get --
9097      -----------------------------------
9098
9099      function UML_Clear_Variable_Action_Get return League.Holders.Holder is
9100      begin
9101         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
9102            --  ActivityNode::activity : Activity
9103
9104            return
9105              AMF.Internals.Holders.UML_Holders.To_Holder
9106               (AMF.UML.Activities.UML_Activity_Access'
9107                 (AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
9108                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
9109
9110         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
9111            --  NamedElement::clientDependency : Dependency
9112
9113            return
9114              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
9115               (AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
9116                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
9117
9118         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
9119            --  Action::context : Classifier
9120
9121            return
9122              AMF.Internals.Holders.UML_Holders.To_Holder
9123               (AMF.UML.Classifiers.UML_Classifier_Access'
9124                 (AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
9125                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
9126
9127         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
9128            --  ExecutableNode::handler : ExceptionHandler
9129
9130            return
9131              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
9132               (AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
9133                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
9134
9135         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
9136            --  ActivityNode::inGroup : ActivityGroup
9137
9138            return
9139              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
9140               (AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
9141                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
9142
9143         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
9144            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
9145
9146            return
9147              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
9148               (AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
9149                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
9150
9151         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
9152            --  ActivityNode::inPartition : ActivityPartition
9153
9154            return
9155              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
9156               (AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
9157                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
9158
9159         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
9160            --  ActivityNode::inStructuredNode : StructuredActivityNode
9161
9162            return
9163              AMF.Internals.Holders.UML_Holders.To_Holder
9164               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
9165                 (AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
9166                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
9167
9168         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
9169            --  ActivityNode::incoming : ActivityEdge
9170
9171            return
9172              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
9173               (AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
9174                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
9175
9176         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
9177            --  Action::input : InputPin
9178
9179            return
9180              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
9181               (AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
9182                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
9183
9184         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
9185            --  RedefinableElement::isLeaf : Boolean
9186
9187            return
9188              League.Holders.Booleans.To_Holder
9189               (AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
9190                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
9191
9192         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
9193            --  Action::isLocallyReentrant : Boolean
9194
9195            return
9196              League.Holders.Booleans.To_Holder
9197               (AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
9198                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
9199
9200         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
9201            --  Action::localPostcondition : Constraint
9202
9203            return
9204              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
9205               (AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
9206                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
9207
9208         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
9209            --  Action::localPrecondition : Constraint
9210
9211            return
9212              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
9213               (AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
9214                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
9215
9216         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
9217            --  NamedElement::name : String
9218
9219            return
9220              AMF.Holders.To_Holder
9221               (AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
9222                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
9223
9224         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
9225            --  NamedElement::nameExpression : StringExpression
9226
9227            return
9228              AMF.Internals.Holders.UML_Holders.To_Holder
9229               (AMF.UML.String_Expressions.UML_String_Expression_Access'
9230                 (AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
9231                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
9232
9233         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
9234            --  NamedElement::namespace : Namespace
9235
9236            return
9237              AMF.Internals.Holders.UML_Holders.To_Holder
9238               (AMF.UML.Namespaces.UML_Namespace_Access'
9239                 (AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
9240                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
9241
9242         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
9243            --  ActivityNode::outgoing : ActivityEdge
9244
9245            return
9246              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
9247               (AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
9248                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
9249
9250         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
9251            --  Action::output : OutputPin
9252
9253            return
9254              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
9255               (AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
9256                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
9257
9258         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
9259            --  Element::ownedComment : Comment
9260
9261            return
9262              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
9263               (AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
9264                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
9265
9266         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
9267            --  Element::ownedElement : Element
9268
9269            return
9270              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
9271               (AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
9272                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
9273
9274         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
9275            --  Element::owner : Element
9276
9277            return
9278              AMF.Internals.Holders.UML_Holders.To_Holder
9279               (AMF.UML.Elements.UML_Element_Access'
9280                 (AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
9281                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
9282
9283         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
9284            --  NamedElement::qualifiedName : String
9285
9286            return
9287              AMF.Holders.To_Holder
9288               (AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
9289                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
9290
9291         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
9292            --  RedefinableElement::redefinedElement : RedefinableElement
9293
9294            return
9295              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
9296               (AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
9297                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
9298
9299         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
9300            --  ActivityNode::redefinedNode : ActivityNode
9301
9302            return
9303              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
9304               (AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
9305                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
9306
9307         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
9308            --  RedefinableElement::redefinitionContext : Classifier
9309
9310            return
9311              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
9312               (AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
9313                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
9314
9315         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Variable_Action_Variable_A_Variable_Action then
9316            --  VariableAction::variable : Variable
9317
9318            return
9319              AMF.Internals.Holders.UML_Holders.To_Holder
9320               (AMF.UML.Variables.UML_Variable_Access'
9321                 (AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
9322                   (AMF.Internals.Helpers.To_Element (Self)).Get_Variable));
9323
9324         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
9325            --  NamedElement::visibility : VisibilityKind
9326
9327            return
9328              AMF.UML.Holders.To_Holder
9329               (AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
9330                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
9331
9332         else
9333            raise Program_Error;
9334         end if;
9335      end UML_Clear_Variable_Action_Get;
9336
9337      ---------------------------
9338      -- UML_Collaboration_Get --
9339      ---------------------------
9340
9341      function UML_Collaboration_Get return League.Holders.Holder is
9342      begin
9343         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier then
9344            --  Classifier::attribute : Property
9345
9346            return
9347              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
9348               (AMF.UML.Collaborations.UML_Collaboration_Access
9349                 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute);
9350
9351         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
9352            --  BehavioredClassifier::classifierBehavior : Behavior
9353
9354            return
9355              AMF.Internals.Holders.UML_Holders.To_Holder
9356               (AMF.UML.Behaviors.UML_Behavior_Access'
9357                 (AMF.UML.Collaborations.UML_Collaboration_Access
9358                   (AMF.Internals.Helpers.To_Element (Self)).Get_Classifier_Behavior));
9359
9360         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
9361            --  NamedElement::clientDependency : Dependency
9362
9363            return
9364              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
9365               (AMF.UML.Collaborations.UML_Collaboration_Access
9366                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
9367
9368         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Collaboration_Collaboration_Role_A_Collaboration then
9369            --  Collaboration::collaborationRole : ConnectableElement
9370
9371            return
9372              AMF.UML.Connectable_Elements.Collections.UML_Connectable_Element_Collections.Internals.To_Holder
9373               (AMF.UML.Collaborations.UML_Collaboration_Access
9374                 (AMF.Internals.Helpers.To_Element (Self)).Get_Collaboration_Role);
9375
9376         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier then
9377            --  Classifier::collaborationUse : CollaborationUse
9378
9379            return
9380              AMF.UML.Collaboration_Uses.Collections.UML_Collaboration_Use_Collections.Internals.To_Holder
9381               (AMF.UML.Collaborations.UML_Collaboration_Access
9382                 (AMF.Internals.Helpers.To_Element (Self)).Get_Collaboration_Use);
9383
9384         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
9385            --  Namespace::elementImport : ElementImport
9386
9387            return
9388              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
9389               (AMF.UML.Collaborations.UML_Collaboration_Access
9390                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
9391
9392         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier then
9393            --  Classifier::feature : Feature
9394
9395            return
9396              AMF.UML.Features.Collections.UML_Feature_Collections.Internals.To_Holder
9397               (AMF.UML.Collaborations.UML_Collaboration_Access
9398                 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature);
9399
9400         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier then
9401            --  Classifier::general : Classifier
9402
9403            return
9404              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
9405               (AMF.UML.Collaborations.UML_Collaboration_Access
9406                 (AMF.Internals.Helpers.To_Element (Self)).Get_General);
9407
9408         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific then
9409            --  Classifier::generalization : Generalization
9410
9411            return
9412              AMF.UML.Generalizations.Collections.UML_Generalization_Collections.Internals.To_Holder
9413               (AMF.UML.Collaborations.UML_Collaboration_Access
9414                 (AMF.Internals.Helpers.To_Element (Self)).Get_Generalization);
9415
9416         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
9417            --  Namespace::importedMember : PackageableElement
9418
9419            return
9420              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
9421               (AMF.UML.Collaborations.UML_Collaboration_Access
9422                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
9423
9424         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier then
9425            --  Classifier::inheritedMember : NamedElement
9426
9427            return
9428              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
9429               (AMF.UML.Collaborations.UML_Collaboration_Access
9430                 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member);
9431
9432         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier then
9433            --  BehavioredClassifier::interfaceRealization : InterfaceRealization
9434
9435            return
9436              AMF.UML.Interface_Realizations.Collections.UML_Interface_Realization_Collections.Internals.To_Holder
9437               (AMF.UML.Collaborations.UML_Collaboration_Access
9438                 (AMF.Internals.Helpers.To_Element (Self)).Get_Interface_Realization);
9439
9440         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
9441            --  Classifier::isAbstract : Boolean
9442
9443            return
9444              League.Holders.Booleans.To_Holder
9445               (AMF.UML.Collaborations.UML_Collaboration_Access
9446                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
9447
9448         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
9449            --  Classifier::isFinalSpecialization : Boolean
9450
9451            return
9452              League.Holders.Booleans.To_Holder
9453               (AMF.UML.Collaborations.UML_Collaboration_Access
9454                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization);
9455
9456         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
9457            --  RedefinableElement::isLeaf : Boolean
9458
9459            return
9460              League.Holders.Booleans.To_Holder
9461               (AMF.UML.Collaborations.UML_Collaboration_Access
9462                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
9463
9464         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
9465            --  Namespace::member : NamedElement
9466
9467            return
9468              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
9469               (AMF.UML.Collaborations.UML_Collaboration_Access
9470                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
9471
9472         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
9473            --  NamedElement::name : String
9474
9475            return
9476              AMF.Holders.To_Holder
9477               (AMF.UML.Collaborations.UML_Collaboration_Access
9478                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
9479
9480         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
9481            --  NamedElement::nameExpression : StringExpression
9482
9483            return
9484              AMF.Internals.Holders.UML_Holders.To_Holder
9485               (AMF.UML.String_Expressions.UML_String_Expression_Access'
9486                 (AMF.UML.Collaborations.UML_Collaboration_Access
9487                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
9488
9489         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
9490            --  NamedElement::namespace : Namespace
9491
9492            return
9493              AMF.Internals.Holders.UML_Holders.To_Holder
9494               (AMF.UML.Namespaces.UML_Namespace_Access'
9495                 (AMF.UML.Collaborations.UML_Collaboration_Access
9496                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
9497
9498         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Attribute_A_Structured_Classifier then
9499            --  StructuredClassifier::ownedAttribute : Property
9500
9501            return
9502              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
9503               (AMF.UML.Collaborations.UML_Collaboration_Access
9504                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
9505
9506         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier then
9507            --  BehavioredClassifier::ownedBehavior : Behavior
9508
9509            return
9510              AMF.UML.Behaviors.Collections.UML_Behavior_Collections.Internals.To_Holder
9511               (AMF.UML.Collaborations.UML_Collaboration_Access
9512                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Behavior);
9513
9514         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
9515            --  Element::ownedComment : Comment
9516
9517            return
9518              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
9519               (AMF.UML.Collaborations.UML_Collaboration_Access
9520                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
9521
9522         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Connector_A_Structured_Classifier then
9523            --  StructuredClassifier::ownedConnector : Connector
9524
9525            return
9526              AMF.UML.Connectors.Collections.UML_Connector_Collections.Internals.To_Holder
9527               (AMF.UML.Collaborations.UML_Collaboration_Access
9528                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Connector);
9529
9530         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
9531            --  Element::ownedElement : Element
9532
9533            return
9534              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
9535               (AMF.UML.Collaborations.UML_Collaboration_Access
9536                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
9537
9538         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
9539            --  Namespace::ownedMember : NamedElement
9540
9541            return
9542              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
9543               (AMF.UML.Collaborations.UML_Collaboration_Access
9544                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
9545
9546         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
9547            --  Namespace::ownedRule : Constraint
9548
9549            return
9550              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
9551               (AMF.UML.Collaborations.UML_Collaboration_Access
9552                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
9553
9554         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
9555            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
9556
9557            return
9558              AMF.Internals.Holders.UML_Holders.To_Holder
9559               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access'
9560                 (AMF.UML.Collaborations.UML_Collaboration_Access
9561                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
9562
9563         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
9564            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
9565
9566            return
9567              AMF.Internals.Holders.UML_Holders.To_Holder
9568               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
9569                 (AMF.UML.Collaborations.UML_Collaboration_Access
9570                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
9571
9572         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier then
9573            --  Classifier::ownedUseCase : UseCase
9574
9575            return
9576              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
9577               (AMF.UML.Collaborations.UML_Collaboration_Access
9578                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Use_Case);
9579
9580         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
9581            --  Element::owner : Element
9582
9583            return
9584              AMF.Internals.Holders.UML_Holders.To_Holder
9585               (AMF.UML.Elements.UML_Element_Access'
9586                 (AMF.UML.Collaborations.UML_Collaboration_Access
9587                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
9588
9589         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
9590            --  ParameterableElement::owningTemplateParameter : TemplateParameter
9591
9592            return
9593              AMF.Internals.Holders.UML_Holders.To_Holder
9594               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
9595                 (AMF.UML.Collaborations.UML_Collaboration_Access
9596                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
9597
9598         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
9599            --  Type::package : Package
9600
9601            return
9602              AMF.Internals.Holders.UML_Holders.To_Holder
9603               (AMF.UML.Packages.UML_Package_Access'
9604                 (AMF.UML.Collaborations.UML_Collaboration_Access
9605                   (AMF.Internals.Helpers.To_Element (Self)).Get_Package));
9606
9607         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
9608            --  Namespace::packageImport : PackageImport
9609
9610            return
9611              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
9612               (AMF.UML.Collaborations.UML_Collaboration_Access
9613                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
9614
9615         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Part_A_Structured_Classifier then
9616            --  StructuredClassifier::part : Property
9617
9618            return
9619              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
9620               (AMF.UML.Collaborations.UML_Collaboration_Access
9621                 (AMF.Internals.Helpers.To_Element (Self)).Get_Part);
9622
9623         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype then
9624            --  Classifier::powertypeExtent : GeneralizationSet
9625
9626            return
9627              AMF.UML.Generalization_Sets.Collections.UML_Generalization_Set_Collections.Internals.To_Holder
9628               (AMF.UML.Collaborations.UML_Collaboration_Access
9629                 (AMF.Internals.Helpers.To_Element (Self)).Get_Powertype_Extent);
9630
9631         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
9632            --  NamedElement::qualifiedName : String
9633
9634            return
9635              AMF.Holders.To_Holder
9636               (AMF.UML.Collaborations.UML_Collaboration_Access
9637                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
9638
9639         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier then
9640            --  Classifier::redefinedClassifier : Classifier
9641
9642            return
9643              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
9644               (AMF.UML.Collaborations.UML_Collaboration_Access
9645                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Classifier);
9646
9647         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
9648            --  RedefinableElement::redefinedElement : RedefinableElement
9649
9650            return
9651              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
9652               (AMF.UML.Collaborations.UML_Collaboration_Access
9653                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
9654
9655         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
9656            --  RedefinableElement::redefinitionContext : Classifier
9657
9658            return
9659              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
9660               (AMF.UML.Collaborations.UML_Collaboration_Access
9661                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
9662
9663         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
9664            --  Classifier::representation : CollaborationUse
9665
9666            return
9667              AMF.Internals.Holders.UML_Holders.To_Holder
9668               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access'
9669                 (AMF.UML.Collaborations.UML_Collaboration_Access
9670                   (AMF.Internals.Helpers.To_Element (Self)).Get_Representation));
9671
9672         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Role_A_Structured_Classifier then
9673            --  StructuredClassifier::role : ConnectableElement
9674
9675            return
9676              AMF.UML.Connectable_Elements.Collections.UML_Connectable_Element_Collections.Internals.To_Holder
9677               (AMF.UML.Collaborations.UML_Collaboration_Access
9678                 (AMF.Internals.Helpers.To_Element (Self)).Get_Role);
9679
9680         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier then
9681            --  Classifier::substitution : Substitution
9682
9683            return
9684              AMF.UML.Substitutions.Collections.UML_Substitution_Collections.Internals.To_Holder
9685               (AMF.UML.Collaborations.UML_Collaboration_Access
9686                 (AMF.Internals.Helpers.To_Element (Self)).Get_Substitution);
9687
9688         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
9689            --  TemplateableElement::templateBinding : TemplateBinding
9690
9691            return
9692              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
9693               (AMF.UML.Collaborations.UML_Collaboration_Access
9694                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
9695
9696         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
9697            --  Classifier::templateParameter : ClassifierTemplateParameter
9698
9699            return
9700              AMF.Internals.Holders.UML_Holders.To_Holder
9701               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access'
9702                 (AMF.UML.Collaborations.UML_Collaboration_Access
9703                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
9704
9705         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
9706            --  ParameterableElement::templateParameter : TemplateParameter
9707
9708            return
9709              AMF.Internals.Holders.UML_Holders.To_Holder
9710               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
9711                 (AMF.UML.Collaborations.UML_Collaboration_Access
9712                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
9713
9714         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject then
9715            --  Classifier::useCase : UseCase
9716
9717            return
9718              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
9719               (AMF.UML.Collaborations.UML_Collaboration_Access
9720                 (AMF.Internals.Helpers.To_Element (Self)).Get_Use_Case);
9721
9722         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
9723            --  NamedElement::visibility : VisibilityKind
9724
9725            return
9726              AMF.UML.Holders.To_Holder
9727               (AMF.UML.Collaborations.UML_Collaboration_Access
9728                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
9729
9730         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
9731            --  PackageableElement::visibility : VisibilityKind
9732
9733            return
9734              AMF.UML.Holders.Visibility_Kinds.To_Holder
9735               (AMF.UML.Collaborations.UML_Collaboration_Access
9736                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
9737
9738         else
9739            raise Program_Error;
9740         end if;
9741      end UML_Collaboration_Get;
9742
9743      -------------------------------
9744      -- UML_Collaboration_Use_Get --
9745      -------------------------------
9746
9747      function UML_Collaboration_Use_Get return League.Holders.Holder is
9748      begin
9749         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
9750            --  NamedElement::clientDependency : Dependency
9751
9752            return
9753              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
9754               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access
9755                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
9756
9757         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
9758            --  NamedElement::name : String
9759
9760            return
9761              AMF.Holders.To_Holder
9762               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access
9763                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
9764
9765         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
9766            --  NamedElement::nameExpression : StringExpression
9767
9768            return
9769              AMF.Internals.Holders.UML_Holders.To_Holder
9770               (AMF.UML.String_Expressions.UML_String_Expression_Access'
9771                 (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access
9772                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
9773
9774         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
9775            --  NamedElement::namespace : Namespace
9776
9777            return
9778              AMF.Internals.Holders.UML_Holders.To_Holder
9779               (AMF.UML.Namespaces.UML_Namespace_Access'
9780                 (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access
9781                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
9782
9783         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
9784            --  Element::ownedComment : Comment
9785
9786            return
9787              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
9788               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access
9789                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
9790
9791         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
9792            --  Element::ownedElement : Element
9793
9794            return
9795              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
9796               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access
9797                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
9798
9799         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
9800            --  Element::owner : Element
9801
9802            return
9803              AMF.Internals.Holders.UML_Holders.To_Holder
9804               (AMF.UML.Elements.UML_Element_Access'
9805                 (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access
9806                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
9807
9808         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
9809            --  NamedElement::qualifiedName : String
9810
9811            return
9812              AMF.Holders.To_Holder
9813               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access
9814                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
9815
9816         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Collaboration_Use_Role_Binding_A_Collaboration_Use then
9817            --  CollaborationUse::roleBinding : Dependency
9818
9819            return
9820              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
9821               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access
9822                 (AMF.Internals.Helpers.To_Element (Self)).Get_Role_Binding);
9823
9824         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Collaboration_Use_Type_A_Collaboration_Use then
9825            --  CollaborationUse::type : Collaboration
9826
9827            return
9828              AMF.Internals.Holders.UML_Holders.To_Holder
9829               (AMF.UML.Collaborations.UML_Collaboration_Access'
9830                 (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access
9831                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
9832
9833         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
9834            --  NamedElement::visibility : VisibilityKind
9835
9836            return
9837              AMF.UML.Holders.To_Holder
9838               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access
9839                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
9840
9841         else
9842            raise Program_Error;
9843         end if;
9844      end UML_Collaboration_Use_Get;
9845
9846      -------------------------------
9847      -- UML_Combined_Fragment_Get --
9848      -------------------------------
9849
9850      function UML_Combined_Fragment_Get return League.Holders.Holder is
9851      begin
9852         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Combined_Fragment_Cfragment_Gate_A_Combined_Fragment then
9853            --  CombinedFragment::cfragmentGate : Gate
9854
9855            return
9856              AMF.UML.Gates.Collections.UML_Gate_Collections.Internals.To_Holder
9857               (AMF.UML.Combined_Fragments.UML_Combined_Fragment_Access
9858                 (AMF.Internals.Helpers.To_Element (Self)).Get_Cfragment_Gate);
9859
9860         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
9861            --  NamedElement::clientDependency : Dependency
9862
9863            return
9864              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
9865               (AMF.UML.Combined_Fragments.UML_Combined_Fragment_Access
9866                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
9867
9868         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Covered_Lifeline_Covered_By then
9869            --  InteractionFragment::covered : Lifeline
9870
9871            return
9872              AMF.UML.Lifelines.Collections.UML_Lifeline_Collections.Internals.To_Holder
9873               (AMF.UML.Combined_Fragments.UML_Combined_Fragment_Access
9874                 (AMF.Internals.Helpers.To_Element (Self)).Get_Covered);
9875
9876         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Interaction_Interaction_Fragment then
9877            --  InteractionFragment::enclosingInteraction : Interaction
9878
9879            return
9880              AMF.Internals.Holders.UML_Holders.To_Holder
9881               (AMF.UML.Interactions.UML_Interaction_Access'
9882                 (AMF.UML.Combined_Fragments.UML_Combined_Fragment_Access
9883                   (AMF.Internals.Helpers.To_Element (Self)).Get_Enclosing_Interaction));
9884
9885         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Operand_Interaction_Operand_Fragment then
9886            --  InteractionFragment::enclosingOperand : InteractionOperand
9887
9888            return
9889              AMF.Internals.Holders.UML_Holders.To_Holder
9890               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access'
9891                 (AMF.UML.Combined_Fragments.UML_Combined_Fragment_Access
9892                   (AMF.Internals.Helpers.To_Element (Self)).Get_Enclosing_Operand));
9893
9894         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_General_Ordering_A_Interaction_Fragment then
9895            --  InteractionFragment::generalOrdering : GeneralOrdering
9896
9897            return
9898              AMF.UML.General_Orderings.Collections.UML_General_Ordering_Collections.Internals.To_Holder
9899               (AMF.UML.Combined_Fragments.UML_Combined_Fragment_Access
9900                 (AMF.Internals.Helpers.To_Element (Self)).Get_General_Ordering);
9901
9902         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Combined_Fragment_Interaction_Operator then
9903            --  CombinedFragment::interactionOperator : InteractionOperatorKind
9904
9905            return
9906              AMF.UML.Holders.Interaction_Operator_Kinds.To_Holder
9907               (AMF.UML.Combined_Fragments.UML_Combined_Fragment_Access
9908                 (AMF.Internals.Helpers.To_Element (Self)).Get_Interaction_Operator);
9909
9910         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
9911            --  NamedElement::name : String
9912
9913            return
9914              AMF.Holders.To_Holder
9915               (AMF.UML.Combined_Fragments.UML_Combined_Fragment_Access
9916                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
9917
9918         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
9919            --  NamedElement::nameExpression : StringExpression
9920
9921            return
9922              AMF.Internals.Holders.UML_Holders.To_Holder
9923               (AMF.UML.String_Expressions.UML_String_Expression_Access'
9924                 (AMF.UML.Combined_Fragments.UML_Combined_Fragment_Access
9925                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
9926
9927         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
9928            --  NamedElement::namespace : Namespace
9929
9930            return
9931              AMF.Internals.Holders.UML_Holders.To_Holder
9932               (AMF.UML.Namespaces.UML_Namespace_Access'
9933                 (AMF.UML.Combined_Fragments.UML_Combined_Fragment_Access
9934                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
9935
9936         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Combined_Fragment_Operand_A_Combined_Fragment then
9937            --  CombinedFragment::operand : InteractionOperand
9938
9939            return
9940              AMF.UML.Interaction_Operands.Collections.UML_Interaction_Operand_Collections.Internals.To_Holder
9941               (AMF.UML.Combined_Fragments.UML_Combined_Fragment_Access
9942                 (AMF.Internals.Helpers.To_Element (Self)).Get_Operand);
9943
9944         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
9945            --  Element::ownedComment : Comment
9946
9947            return
9948              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
9949               (AMF.UML.Combined_Fragments.UML_Combined_Fragment_Access
9950                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
9951
9952         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
9953            --  Element::ownedElement : Element
9954
9955            return
9956              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
9957               (AMF.UML.Combined_Fragments.UML_Combined_Fragment_Access
9958                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
9959
9960         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
9961            --  Element::owner : Element
9962
9963            return
9964              AMF.Internals.Holders.UML_Holders.To_Holder
9965               (AMF.UML.Elements.UML_Element_Access'
9966                 (AMF.UML.Combined_Fragments.UML_Combined_Fragment_Access
9967                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
9968
9969         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
9970            --  NamedElement::qualifiedName : String
9971
9972            return
9973              AMF.Holders.To_Holder
9974               (AMF.UML.Combined_Fragments.UML_Combined_Fragment_Access
9975                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
9976
9977         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
9978            --  NamedElement::visibility : VisibilityKind
9979
9980            return
9981              AMF.UML.Holders.To_Holder
9982               (AMF.UML.Combined_Fragments.UML_Combined_Fragment_Access
9983                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
9984
9985         else
9986            raise Program_Error;
9987         end if;
9988      end UML_Combined_Fragment_Get;
9989
9990      ---------------------
9991      -- UML_Comment_Get --
9992      ---------------------
9993
9994      function UML_Comment_Get return League.Holders.Holder is
9995      begin
9996         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Comment_Annotated_Element_A_Comment then
9997            --  Comment::annotatedElement : Element
9998
9999            return
10000              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
10001               (AMF.UML.Comments.UML_Comment_Access
10002                 (AMF.Internals.Helpers.To_Element (Self)).Get_Annotated_Element);
10003
10004         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Comment_Body then
10005            --  Comment::body : String
10006
10007            return
10008              AMF.Holders.To_Holder
10009               (AMF.UML.Comments.UML_Comment_Access
10010                 (AMF.Internals.Helpers.To_Element (Self)).Get_Body);
10011
10012         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
10013            --  Element::ownedComment : Comment
10014
10015            return
10016              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
10017               (AMF.UML.Comments.UML_Comment_Access
10018                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
10019
10020         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
10021            --  Element::ownedElement : Element
10022
10023            return
10024              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
10025               (AMF.UML.Comments.UML_Comment_Access
10026                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
10027
10028         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
10029            --  Element::owner : Element
10030
10031            return
10032              AMF.Internals.Holders.UML_Holders.To_Holder
10033               (AMF.UML.Elements.UML_Element_Access'
10034                 (AMF.UML.Comments.UML_Comment_Access
10035                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
10036
10037         else
10038            raise Program_Error;
10039         end if;
10040      end UML_Comment_Get;
10041
10042      --------------------------------
10043      -- UML_Communication_Path_Get --
10044      --------------------------------
10045
10046      function UML_Communication_Path_Get return League.Holders.Holder is
10047      begin
10048         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier then
10049            --  Classifier::attribute : Property
10050
10051            return
10052              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
10053               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10054                 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute);
10055
10056         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
10057            --  NamedElement::clientDependency : Dependency
10058
10059            return
10060              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
10061               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10062                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
10063
10064         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier then
10065            --  Classifier::collaborationUse : CollaborationUse
10066
10067            return
10068              AMF.UML.Collaboration_Uses.Collections.UML_Collaboration_Use_Collections.Internals.To_Holder
10069               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10070                 (AMF.Internals.Helpers.To_Element (Self)).Get_Collaboration_Use);
10071
10072         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
10073            --  Namespace::elementImport : ElementImport
10074
10075            return
10076              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
10077               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10078                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
10079
10080         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_End_Type_A_Association then
10081            --  Association::endType : Type
10082
10083            return
10084              AMF.UML.Types.Collections.UML_Type_Collections.Internals.To_Holder
10085               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10086                 (AMF.Internals.Helpers.To_Element (Self)).Get_End_Type);
10087
10088         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier then
10089            --  Classifier::feature : Feature
10090
10091            return
10092              AMF.UML.Features.Collections.UML_Feature_Collections.Internals.To_Holder
10093               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10094                 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature);
10095
10096         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier then
10097            --  Classifier::general : Classifier
10098
10099            return
10100              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
10101               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10102                 (AMF.Internals.Helpers.To_Element (Self)).Get_General);
10103
10104         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific then
10105            --  Classifier::generalization : Generalization
10106
10107            return
10108              AMF.UML.Generalizations.Collections.UML_Generalization_Collections.Internals.To_Holder
10109               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10110                 (AMF.Internals.Helpers.To_Element (Self)).Get_Generalization);
10111
10112         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
10113            --  Namespace::importedMember : PackageableElement
10114
10115            return
10116              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
10117               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10118                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
10119
10120         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier then
10121            --  Classifier::inheritedMember : NamedElement
10122
10123            return
10124              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
10125               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10126                 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member);
10127
10128         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
10129            --  Classifier::isAbstract : Boolean
10130
10131            return
10132              League.Holders.Booleans.To_Holder
10133               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10134                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
10135
10136         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Is_Derived then
10137            --  Association::isDerived : Boolean
10138
10139            return
10140              League.Holders.Booleans.To_Holder
10141               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10142                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Derived);
10143
10144         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
10145            --  Classifier::isFinalSpecialization : Boolean
10146
10147            return
10148              League.Holders.Booleans.To_Holder
10149               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10150                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization);
10151
10152         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
10153            --  RedefinableElement::isLeaf : Boolean
10154
10155            return
10156              League.Holders.Booleans.To_Holder
10157               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10158                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
10159
10160         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
10161            --  Namespace::member : NamedElement
10162
10163            return
10164              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
10165               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10166                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
10167
10168         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Member_End_Property_Association then
10169            --  Association::memberEnd : Property
10170
10171            return
10172              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
10173               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10174                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member_End);
10175
10176         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
10177            --  NamedElement::name : String
10178
10179            return
10180              AMF.Holders.To_Holder
10181               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10182                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
10183
10184         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
10185            --  NamedElement::nameExpression : StringExpression
10186
10187            return
10188              AMF.Internals.Holders.UML_Holders.To_Holder
10189               (AMF.UML.String_Expressions.UML_String_Expression_Access'
10190                 (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10191                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
10192
10193         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
10194            --  NamedElement::namespace : Namespace
10195
10196            return
10197              AMF.Internals.Holders.UML_Holders.To_Holder
10198               (AMF.UML.Namespaces.UML_Namespace_Access'
10199                 (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10200                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
10201
10202         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Navigable_Owned_End_A_Association then
10203            --  Association::navigableOwnedEnd : Property
10204
10205            return
10206              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
10207               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10208                 (AMF.Internals.Helpers.To_Element (Self)).Get_Navigable_Owned_End);
10209
10210         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
10211            --  Element::ownedComment : Comment
10212
10213            return
10214              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
10215               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10216                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
10217
10218         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
10219            --  Element::ownedElement : Element
10220
10221            return
10222              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
10223               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10224                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
10225
10226         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Owned_End_Property_Owning_Association then
10227            --  Association::ownedEnd : Property
10228
10229            return
10230              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
10231               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10232                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_End);
10233
10234         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
10235            --  Namespace::ownedMember : NamedElement
10236
10237            return
10238              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
10239               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10240                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
10241
10242         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
10243            --  Namespace::ownedRule : Constraint
10244
10245            return
10246              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
10247               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10248                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
10249
10250         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
10251            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
10252
10253            return
10254              AMF.Internals.Holders.UML_Holders.To_Holder
10255               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access'
10256                 (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10257                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
10258
10259         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
10260            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
10261
10262            return
10263              AMF.Internals.Holders.UML_Holders.To_Holder
10264               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
10265                 (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10266                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
10267
10268         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier then
10269            --  Classifier::ownedUseCase : UseCase
10270
10271            return
10272              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
10273               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10274                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Use_Case);
10275
10276         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
10277            --  Element::owner : Element
10278
10279            return
10280              AMF.Internals.Holders.UML_Holders.To_Holder
10281               (AMF.UML.Elements.UML_Element_Access'
10282                 (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10283                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
10284
10285         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
10286            --  ParameterableElement::owningTemplateParameter : TemplateParameter
10287
10288            return
10289              AMF.Internals.Holders.UML_Holders.To_Holder
10290               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
10291                 (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10292                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
10293
10294         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
10295            --  Type::package : Package
10296
10297            return
10298              AMF.Internals.Holders.UML_Holders.To_Holder
10299               (AMF.UML.Packages.UML_Package_Access'
10300                 (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10301                   (AMF.Internals.Helpers.To_Element (Self)).Get_Package));
10302
10303         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
10304            --  Namespace::packageImport : PackageImport
10305
10306            return
10307              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
10308               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10309                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
10310
10311         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype then
10312            --  Classifier::powertypeExtent : GeneralizationSet
10313
10314            return
10315              AMF.UML.Generalization_Sets.Collections.UML_Generalization_Set_Collections.Internals.To_Holder
10316               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10317                 (AMF.Internals.Helpers.To_Element (Self)).Get_Powertype_Extent);
10318
10319         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
10320            --  NamedElement::qualifiedName : String
10321
10322            return
10323              AMF.Holders.To_Holder
10324               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10325                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
10326
10327         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier then
10328            --  Classifier::redefinedClassifier : Classifier
10329
10330            return
10331              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
10332               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10333                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Classifier);
10334
10335         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
10336            --  RedefinableElement::redefinedElement : RedefinableElement
10337
10338            return
10339              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
10340               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10341                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
10342
10343         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
10344            --  RedefinableElement::redefinitionContext : Classifier
10345
10346            return
10347              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
10348               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10349                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
10350
10351         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship then
10352            --  Relationship::relatedElement : Element
10353
10354            return
10355              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
10356               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10357                 (AMF.Internals.Helpers.To_Element (Self)).Get_Related_Element);
10358
10359         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
10360            --  Classifier::representation : CollaborationUse
10361
10362            return
10363              AMF.Internals.Holders.UML_Holders.To_Holder
10364               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access'
10365                 (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10366                   (AMF.Internals.Helpers.To_Element (Self)).Get_Representation));
10367
10368         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier then
10369            --  Classifier::substitution : Substitution
10370
10371            return
10372              AMF.UML.Substitutions.Collections.UML_Substitution_Collections.Internals.To_Holder
10373               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10374                 (AMF.Internals.Helpers.To_Element (Self)).Get_Substitution);
10375
10376         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
10377            --  TemplateableElement::templateBinding : TemplateBinding
10378
10379            return
10380              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
10381               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10382                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
10383
10384         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
10385            --  Classifier::templateParameter : ClassifierTemplateParameter
10386
10387            return
10388              AMF.Internals.Holders.UML_Holders.To_Holder
10389               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access'
10390                 (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10391                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
10392
10393         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
10394            --  ParameterableElement::templateParameter : TemplateParameter
10395
10396            return
10397              AMF.Internals.Holders.UML_Holders.To_Holder
10398               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
10399                 (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10400                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
10401
10402         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject then
10403            --  Classifier::useCase : UseCase
10404
10405            return
10406              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
10407               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10408                 (AMF.Internals.Helpers.To_Element (Self)).Get_Use_Case);
10409
10410         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
10411            --  NamedElement::visibility : VisibilityKind
10412
10413            return
10414              AMF.UML.Holders.To_Holder
10415               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10416                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
10417
10418         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
10419            --  PackageableElement::visibility : VisibilityKind
10420
10421            return
10422              AMF.UML.Holders.Visibility_Kinds.To_Holder
10423               (AMF.UML.Communication_Paths.UML_Communication_Path_Access
10424                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
10425
10426         else
10427            raise Program_Error;
10428         end if;
10429      end UML_Communication_Path_Get;
10430
10431      -----------------------
10432      -- UML_Component_Get --
10433      -----------------------
10434
10435      function UML_Component_Get return League.Holders.Holder is
10436      begin
10437         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier then
10438            --  Classifier::attribute : Property
10439
10440            return
10441              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
10442               (AMF.UML.Components.UML_Component_Access
10443                 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute);
10444
10445         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
10446            --  BehavioredClassifier::classifierBehavior : Behavior
10447
10448            return
10449              AMF.Internals.Holders.UML_Holders.To_Holder
10450               (AMF.UML.Behaviors.UML_Behavior_Access'
10451                 (AMF.UML.Components.UML_Component_Access
10452                   (AMF.Internals.Helpers.To_Element (Self)).Get_Classifier_Behavior));
10453
10454         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
10455            --  NamedElement::clientDependency : Dependency
10456
10457            return
10458              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
10459               (AMF.UML.Components.UML_Component_Access
10460                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
10461
10462         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier then
10463            --  Classifier::collaborationUse : CollaborationUse
10464
10465            return
10466              AMF.UML.Collaboration_Uses.Collections.UML_Collaboration_Use_Collections.Internals.To_Holder
10467               (AMF.UML.Components.UML_Component_Access
10468                 (AMF.Internals.Helpers.To_Element (Self)).Get_Collaboration_Use);
10469
10470         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
10471            --  Namespace::elementImport : ElementImport
10472
10473            return
10474              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
10475               (AMF.UML.Components.UML_Component_Access
10476                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
10477
10478         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Extension_Extension_Metaclass then
10479            --  Class::extension : Extension
10480
10481            return
10482              AMF.UML.Extensions.Collections.UML_Extension_Collections.Internals.To_Holder
10483               (AMF.UML.Components.UML_Component_Access
10484                 (AMF.Internals.Helpers.To_Element (Self)).Get_Extension);
10485
10486         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier then
10487            --  Classifier::feature : Feature
10488
10489            return
10490              AMF.UML.Features.Collections.UML_Feature_Collections.Internals.To_Holder
10491               (AMF.UML.Components.UML_Component_Access
10492                 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature);
10493
10494         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier then
10495            --  Classifier::general : Classifier
10496
10497            return
10498              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
10499               (AMF.UML.Components.UML_Component_Access
10500                 (AMF.Internals.Helpers.To_Element (Self)).Get_General);
10501
10502         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific then
10503            --  Classifier::generalization : Generalization
10504
10505            return
10506              AMF.UML.Generalizations.Collections.UML_Generalization_Collections.Internals.To_Holder
10507               (AMF.UML.Components.UML_Component_Access
10508                 (AMF.Internals.Helpers.To_Element (Self)).Get_Generalization);
10509
10510         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
10511            --  Namespace::importedMember : PackageableElement
10512
10513            return
10514              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
10515               (AMF.UML.Components.UML_Component_Access
10516                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
10517
10518         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier then
10519            --  Classifier::inheritedMember : NamedElement
10520
10521            return
10522              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
10523               (AMF.UML.Components.UML_Component_Access
10524                 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member);
10525
10526         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier then
10527            --  BehavioredClassifier::interfaceRealization : InterfaceRealization
10528
10529            return
10530              AMF.UML.Interface_Realizations.Collections.UML_Interface_Realization_Collections.Internals.To_Holder
10531               (AMF.UML.Components.UML_Component_Access
10532                 (AMF.Internals.Helpers.To_Element (Self)).Get_Interface_Realization);
10533
10534         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Abstract then
10535            --  Class::isAbstract : Boolean
10536
10537            return
10538              League.Holders.Booleans.To_Holder
10539               (AMF.UML.Components.UML_Component_Access
10540                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
10541
10542         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
10543            --  Classifier::isAbstract : Boolean
10544
10545            return
10546              League.Holders.Booleans.To_Holder
10547               (AMF.UML.Components.UML_Component_Access
10548                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
10549
10550         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Active then
10551            --  Class::isActive : Boolean
10552
10553            return
10554              League.Holders.Booleans.To_Holder
10555               (AMF.UML.Components.UML_Component_Access
10556                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Active);
10557
10558         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
10559            --  Classifier::isFinalSpecialization : Boolean
10560
10561            return
10562              League.Holders.Booleans.To_Holder
10563               (AMF.UML.Components.UML_Component_Access
10564                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization);
10565
10566         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Component_Is_Indirectly_Instantiated then
10567            --  Component::isIndirectlyInstantiated : Boolean
10568
10569            return
10570              League.Holders.Booleans.To_Holder
10571               (AMF.UML.Components.UML_Component_Access
10572                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Indirectly_Instantiated);
10573
10574         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
10575            --  RedefinableElement::isLeaf : Boolean
10576
10577            return
10578              League.Holders.Booleans.To_Holder
10579               (AMF.UML.Components.UML_Component_Access
10580                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
10581
10582         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
10583            --  Namespace::member : NamedElement
10584
10585            return
10586              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
10587               (AMF.UML.Components.UML_Component_Access
10588                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
10589
10590         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
10591            --  NamedElement::name : String
10592
10593            return
10594              AMF.Holders.To_Holder
10595               (AMF.UML.Components.UML_Component_Access
10596                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
10597
10598         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
10599            --  NamedElement::nameExpression : StringExpression
10600
10601            return
10602              AMF.Internals.Holders.UML_Holders.To_Holder
10603               (AMF.UML.String_Expressions.UML_String_Expression_Access'
10604                 (AMF.UML.Components.UML_Component_Access
10605                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
10606
10607         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
10608            --  NamedElement::namespace : Namespace
10609
10610            return
10611              AMF.Internals.Holders.UML_Holders.To_Holder
10612               (AMF.UML.Namespaces.UML_Namespace_Access'
10613                 (AMF.UML.Components.UML_Component_Access
10614                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
10615
10616         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Nested_Classifier_A_Class then
10617            --  Class::nestedClassifier : Classifier
10618
10619            return
10620              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
10621               (AMF.UML.Components.UML_Component_Access
10622                 (AMF.Internals.Helpers.To_Element (Self)).Get_Nested_Classifier);
10623
10624         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Attribute_Property_Class then
10625            --  Class::ownedAttribute : Property
10626
10627            return
10628              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
10629               (AMF.UML.Components.UML_Component_Access
10630                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
10631
10632         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Attribute_A_Structured_Classifier then
10633            --  StructuredClassifier::ownedAttribute : Property
10634
10635            return
10636              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
10637               (AMF.UML.Components.UML_Component_Access
10638                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
10639
10640         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier then
10641            --  BehavioredClassifier::ownedBehavior : Behavior
10642
10643            return
10644              AMF.UML.Behaviors.Collections.UML_Behavior_Collections.Internals.To_Holder
10645               (AMF.UML.Components.UML_Component_Access
10646                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Behavior);
10647
10648         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
10649            --  Element::ownedComment : Comment
10650
10651            return
10652              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
10653               (AMF.UML.Components.UML_Component_Access
10654                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
10655
10656         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Connector_A_Structured_Classifier then
10657            --  StructuredClassifier::ownedConnector : Connector
10658
10659            return
10660              AMF.UML.Connectors.Collections.UML_Connector_Collections.Internals.To_Holder
10661               (AMF.UML.Components.UML_Component_Access
10662                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Connector);
10663
10664         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
10665            --  Element::ownedElement : Element
10666
10667            return
10668              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
10669               (AMF.UML.Components.UML_Component_Access
10670                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
10671
10672         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
10673            --  Namespace::ownedMember : NamedElement
10674
10675            return
10676              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
10677               (AMF.UML.Components.UML_Component_Access
10678                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
10679
10680         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Operation_Operation_Class then
10681            --  Class::ownedOperation : Operation
10682
10683            return
10684              AMF.UML.Operations.Collections.UML_Operation_Collections.Internals.To_Holder
10685               (AMF.UML.Components.UML_Component_Access
10686                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Operation);
10687
10688         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Encapsulated_Classifier_Owned_Port_A_Encapsulated_Classifier then
10689            --  EncapsulatedClassifier::ownedPort : Port
10690
10691            return
10692              AMF.UML.Ports.Collections.UML_Port_Collections.Internals.To_Holder
10693               (AMF.UML.Components.UML_Component_Access
10694                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Port);
10695
10696         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Reception_A_Class then
10697            --  Class::ownedReception : Reception
10698
10699            return
10700              AMF.UML.Receptions.Collections.UML_Reception_Collections.Internals.To_Holder
10701               (AMF.UML.Components.UML_Component_Access
10702                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Reception);
10703
10704         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
10705            --  Namespace::ownedRule : Constraint
10706
10707            return
10708              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
10709               (AMF.UML.Components.UML_Component_Access
10710                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
10711
10712         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
10713            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
10714
10715            return
10716              AMF.Internals.Holders.UML_Holders.To_Holder
10717               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access'
10718                 (AMF.UML.Components.UML_Component_Access
10719                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
10720
10721         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
10722            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
10723
10724            return
10725              AMF.Internals.Holders.UML_Holders.To_Holder
10726               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
10727                 (AMF.UML.Components.UML_Component_Access
10728                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
10729
10730         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier then
10731            --  Classifier::ownedUseCase : UseCase
10732
10733            return
10734              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
10735               (AMF.UML.Components.UML_Component_Access
10736                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Use_Case);
10737
10738         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
10739            --  Element::owner : Element
10740
10741            return
10742              AMF.Internals.Holders.UML_Holders.To_Holder
10743               (AMF.UML.Elements.UML_Element_Access'
10744                 (AMF.UML.Components.UML_Component_Access
10745                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
10746
10747         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
10748            --  ParameterableElement::owningTemplateParameter : TemplateParameter
10749
10750            return
10751              AMF.Internals.Holders.UML_Holders.To_Holder
10752               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
10753                 (AMF.UML.Components.UML_Component_Access
10754                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
10755
10756         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
10757            --  Type::package : Package
10758
10759            return
10760              AMF.Internals.Holders.UML_Holders.To_Holder
10761               (AMF.UML.Packages.UML_Package_Access'
10762                 (AMF.UML.Components.UML_Component_Access
10763                   (AMF.Internals.Helpers.To_Element (Self)).Get_Package));
10764
10765         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
10766            --  Namespace::packageImport : PackageImport
10767
10768            return
10769              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
10770               (AMF.UML.Components.UML_Component_Access
10771                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
10772
10773         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Component_Packaged_Element_A_Component then
10774            --  Component::packagedElement : PackageableElement
10775
10776            return
10777              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
10778               (AMF.UML.Components.UML_Component_Access
10779                 (AMF.Internals.Helpers.To_Element (Self)).Get_Packaged_Element);
10780
10781         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Part_A_Structured_Classifier then
10782            --  StructuredClassifier::part : Property
10783
10784            return
10785              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
10786               (AMF.UML.Components.UML_Component_Access
10787                 (AMF.Internals.Helpers.To_Element (Self)).Get_Part);
10788
10789         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype then
10790            --  Classifier::powertypeExtent : GeneralizationSet
10791
10792            return
10793              AMF.UML.Generalization_Sets.Collections.UML_Generalization_Set_Collections.Internals.To_Holder
10794               (AMF.UML.Components.UML_Component_Access
10795                 (AMF.Internals.Helpers.To_Element (Self)).Get_Powertype_Extent);
10796
10797         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Component_Provided_A_Component then
10798            --  Component::provided : Interface
10799
10800            return
10801              AMF.UML.Interfaces.Collections.UML_Interface_Collections.Internals.To_Holder
10802               (AMF.UML.Components.UML_Component_Access
10803                 (AMF.Internals.Helpers.To_Element (Self)).Get_Provided);
10804
10805         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
10806            --  NamedElement::qualifiedName : String
10807
10808            return
10809              AMF.Holders.To_Holder
10810               (AMF.UML.Components.UML_Component_Access
10811                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
10812
10813         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Component_Realization_Component_Realization_Abstraction then
10814            --  Component::realization : ComponentRealization
10815
10816            return
10817              AMF.UML.Component_Realizations.Collections.UML_Component_Realization_Collections.Internals.To_Holder
10818               (AMF.UML.Components.UML_Component_Access
10819                 (AMF.Internals.Helpers.To_Element (Self)).Get_Realization);
10820
10821         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier then
10822            --  Classifier::redefinedClassifier : Classifier
10823
10824            return
10825              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
10826               (AMF.UML.Components.UML_Component_Access
10827                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Classifier);
10828
10829         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
10830            --  RedefinableElement::redefinedElement : RedefinableElement
10831
10832            return
10833              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
10834               (AMF.UML.Components.UML_Component_Access
10835                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
10836
10837         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
10838            --  RedefinableElement::redefinitionContext : Classifier
10839
10840            return
10841              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
10842               (AMF.UML.Components.UML_Component_Access
10843                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
10844
10845         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
10846            --  Classifier::representation : CollaborationUse
10847
10848            return
10849              AMF.Internals.Holders.UML_Holders.To_Holder
10850               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access'
10851                 (AMF.UML.Components.UML_Component_Access
10852                   (AMF.Internals.Helpers.To_Element (Self)).Get_Representation));
10853
10854         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Component_Required_A_Component then
10855            --  Component::required : Interface
10856
10857            return
10858              AMF.UML.Interfaces.Collections.UML_Interface_Collections.Internals.To_Holder
10859               (AMF.UML.Components.UML_Component_Access
10860                 (AMF.Internals.Helpers.To_Element (Self)).Get_Required);
10861
10862         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Role_A_Structured_Classifier then
10863            --  StructuredClassifier::role : ConnectableElement
10864
10865            return
10866              AMF.UML.Connectable_Elements.Collections.UML_Connectable_Element_Collections.Internals.To_Holder
10867               (AMF.UML.Components.UML_Component_Access
10868                 (AMF.Internals.Helpers.To_Element (Self)).Get_Role);
10869
10870         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier then
10871            --  Classifier::substitution : Substitution
10872
10873            return
10874              AMF.UML.Substitutions.Collections.UML_Substitution_Collections.Internals.To_Holder
10875               (AMF.UML.Components.UML_Component_Access
10876                 (AMF.Internals.Helpers.To_Element (Self)).Get_Substitution);
10877
10878         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Super_Class_A_Class then
10879            --  Class::superClass : Class
10880
10881            return
10882              AMF.UML.Classes.Collections.UML_Class_Collections.Internals.To_Holder
10883               (AMF.UML.Components.UML_Component_Access
10884                 (AMF.Internals.Helpers.To_Element (Self)).Get_Super_Class);
10885
10886         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
10887            --  TemplateableElement::templateBinding : TemplateBinding
10888
10889            return
10890              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
10891               (AMF.UML.Components.UML_Component_Access
10892                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
10893
10894         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
10895            --  Classifier::templateParameter : ClassifierTemplateParameter
10896
10897            return
10898              AMF.Internals.Holders.UML_Holders.To_Holder
10899               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access'
10900                 (AMF.UML.Components.UML_Component_Access
10901                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
10902
10903         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
10904            --  ParameterableElement::templateParameter : TemplateParameter
10905
10906            return
10907              AMF.Internals.Holders.UML_Holders.To_Holder
10908               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
10909                 (AMF.UML.Components.UML_Component_Access
10910                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
10911
10912         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject then
10913            --  Classifier::useCase : UseCase
10914
10915            return
10916              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
10917               (AMF.UML.Components.UML_Component_Access
10918                 (AMF.Internals.Helpers.To_Element (Self)).Get_Use_Case);
10919
10920         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
10921            --  NamedElement::visibility : VisibilityKind
10922
10923            return
10924              AMF.UML.Holders.To_Holder
10925               (AMF.UML.Components.UML_Component_Access
10926                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
10927
10928         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
10929            --  PackageableElement::visibility : VisibilityKind
10930
10931            return
10932              AMF.UML.Holders.Visibility_Kinds.To_Holder
10933               (AMF.UML.Components.UML_Component_Access
10934                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
10935
10936         else
10937            raise Program_Error;
10938         end if;
10939      end UML_Component_Get;
10940
10941      -----------------------------------
10942      -- UML_Component_Realization_Get --
10943      -----------------------------------
10944
10945      function UML_Component_Realization_Get return League.Holders.Holder is
10946      begin
10947         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Component_Realization_Abstraction_Component_Realization then
10948            --  ComponentRealization::abstraction : Component
10949
10950            return
10951              AMF.Internals.Holders.UML_Holders.To_Holder
10952               (AMF.UML.Components.UML_Component_Access'
10953                 (AMF.UML.Component_Realizations.UML_Component_Realization_Access
10954                   (AMF.Internals.Helpers.To_Element (Self)).Get_Abstraction));
10955
10956         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Client_Named_Element_Client_Dependency then
10957            --  Dependency::client : NamedElement
10958
10959            return
10960              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
10961               (AMF.UML.Component_Realizations.UML_Component_Realization_Access
10962                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client);
10963
10964         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
10965            --  NamedElement::clientDependency : Dependency
10966
10967            return
10968              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
10969               (AMF.UML.Component_Realizations.UML_Component_Realization_Access
10970                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
10971
10972         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Abstraction_Mapping_A_Abstraction then
10973            --  Abstraction::mapping : OpaqueExpression
10974
10975            return
10976              AMF.Internals.Holders.UML_Holders.To_Holder
10977               (AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access'
10978                 (AMF.UML.Component_Realizations.UML_Component_Realization_Access
10979                   (AMF.Internals.Helpers.To_Element (Self)).Get_Mapping));
10980
10981         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
10982            --  NamedElement::name : String
10983
10984            return
10985              AMF.Holders.To_Holder
10986               (AMF.UML.Component_Realizations.UML_Component_Realization_Access
10987                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
10988
10989         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
10990            --  NamedElement::nameExpression : StringExpression
10991
10992            return
10993              AMF.Internals.Holders.UML_Holders.To_Holder
10994               (AMF.UML.String_Expressions.UML_String_Expression_Access'
10995                 (AMF.UML.Component_Realizations.UML_Component_Realization_Access
10996                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
10997
10998         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
10999            --  NamedElement::namespace : Namespace
11000
11001            return
11002              AMF.Internals.Holders.UML_Holders.To_Holder
11003               (AMF.UML.Namespaces.UML_Namespace_Access'
11004                 (AMF.UML.Component_Realizations.UML_Component_Realization_Access
11005                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
11006
11007         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
11008            --  Element::ownedComment : Comment
11009
11010            return
11011              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
11012               (AMF.UML.Component_Realizations.UML_Component_Realization_Access
11013                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
11014
11015         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
11016            --  Element::ownedElement : Element
11017
11018            return
11019              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
11020               (AMF.UML.Component_Realizations.UML_Component_Realization_Access
11021                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
11022
11023         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
11024            --  Element::owner : Element
11025
11026            return
11027              AMF.Internals.Holders.UML_Holders.To_Holder
11028               (AMF.UML.Elements.UML_Element_Access'
11029                 (AMF.UML.Component_Realizations.UML_Component_Realization_Access
11030                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
11031
11032         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
11033            --  ParameterableElement::owningTemplateParameter : TemplateParameter
11034
11035            return
11036              AMF.Internals.Holders.UML_Holders.To_Holder
11037               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
11038                 (AMF.UML.Component_Realizations.UML_Component_Realization_Access
11039                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
11040
11041         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
11042            --  NamedElement::qualifiedName : String
11043
11044            return
11045              AMF.Holders.To_Holder
11046               (AMF.UML.Component_Realizations.UML_Component_Realization_Access
11047                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
11048
11049         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Component_Realization_Realizing_Classifier_A_Component_Realization then
11050            --  ComponentRealization::realizingClassifier : Classifier
11051
11052            return
11053              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
11054               (AMF.UML.Component_Realizations.UML_Component_Realization_Access
11055                 (AMF.Internals.Helpers.To_Element (Self)).Get_Realizing_Classifier);
11056
11057         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship then
11058            --  Relationship::relatedElement : Element
11059
11060            return
11061              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
11062               (AMF.UML.Component_Realizations.UML_Component_Realization_Access
11063                 (AMF.Internals.Helpers.To_Element (Self)).Get_Related_Element);
11064
11065         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship then
11066            --  DirectedRelationship::source : Element
11067
11068            return
11069              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
11070               (AMF.UML.Component_Realizations.UML_Component_Realization_Access
11071                 (AMF.Internals.Helpers.To_Element (Self)).Get_Source);
11072
11073         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Supplier_A_Supplier_Dependency then
11074            --  Dependency::supplier : NamedElement
11075
11076            return
11077              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
11078               (AMF.UML.Component_Realizations.UML_Component_Realization_Access
11079                 (AMF.Internals.Helpers.To_Element (Self)).Get_Supplier);
11080
11081         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship then
11082            --  DirectedRelationship::target : Element
11083
11084            return
11085              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
11086               (AMF.UML.Component_Realizations.UML_Component_Realization_Access
11087                 (AMF.Internals.Helpers.To_Element (Self)).Get_Target);
11088
11089         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
11090            --  ParameterableElement::templateParameter : TemplateParameter
11091
11092            return
11093              AMF.Internals.Holders.UML_Holders.To_Holder
11094               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
11095                 (AMF.UML.Component_Realizations.UML_Component_Realization_Access
11096                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
11097
11098         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
11099            --  NamedElement::visibility : VisibilityKind
11100
11101            return
11102              AMF.UML.Holders.To_Holder
11103               (AMF.UML.Component_Realizations.UML_Component_Realization_Access
11104                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
11105
11106         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
11107            --  PackageableElement::visibility : VisibilityKind
11108
11109            return
11110              AMF.UML.Holders.Visibility_Kinds.To_Holder
11111               (AMF.UML.Component_Realizations.UML_Component_Realization_Access
11112                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
11113
11114         else
11115            raise Program_Error;
11116         end if;
11117      end UML_Component_Realization_Get;
11118
11119      ------------------------------
11120      -- UML_Conditional_Node_Get --
11121      ------------------------------
11122
11123      function UML_Conditional_Node_Get return League.Holders.Holder is
11124      begin
11125         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
11126            --  ActivityNode::activity : Activity
11127
11128            return
11129              AMF.Internals.Holders.UML_Holders.To_Holder
11130               (AMF.UML.Activities.UML_Activity_Access'
11131                 (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11132                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
11133
11134         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Activity_Activity_Structured_Node then
11135            --  StructuredActivityNode::activity : Activity
11136
11137            return
11138              AMF.Internals.Holders.UML_Holders.To_Holder
11139               (AMF.UML.Activities.UML_Activity_Access'
11140                 (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11141                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
11142
11143         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Conditional_Node_Clause_A_Conditional_Node then
11144            --  ConditionalNode::clause : Clause
11145
11146            return
11147              AMF.UML.Clauses.Collections.UML_Clause_Collections.Internals.To_Holder
11148               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11149                 (AMF.Internals.Helpers.To_Element (Self)).Get_Clause);
11150
11151         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
11152            --  NamedElement::clientDependency : Dependency
11153
11154            return
11155              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
11156               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11157                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
11158
11159         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Contained_Edge_Activity_Edge_In_Group then
11160            --  ActivityGroup::containedEdge : ActivityEdge
11161
11162            return
11163              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
11164               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11165                 (AMF.Internals.Helpers.To_Element (Self)).Get_Contained_Edge);
11166
11167         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Contained_Node_Activity_Node_In_Group then
11168            --  ActivityGroup::containedNode : ActivityNode
11169
11170            return
11171              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
11172               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11173                 (AMF.Internals.Helpers.To_Element (Self)).Get_Contained_Node);
11174
11175         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
11176            --  Action::context : Classifier
11177
11178            return
11179              AMF.Internals.Holders.UML_Holders.To_Holder
11180               (AMF.UML.Classifiers.UML_Classifier_Access'
11181                 (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11182                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
11183
11184         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Edge_Activity_Edge_In_Structured_Node then
11185            --  StructuredActivityNode::edge : ActivityEdge
11186
11187            return
11188              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
11189               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11190                 (AMF.Internals.Helpers.To_Element (Self)).Get_Edge);
11191
11192         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
11193            --  Namespace::elementImport : ElementImport
11194
11195            return
11196              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
11197               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11198                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
11199
11200         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
11201            --  ExecutableNode::handler : ExceptionHandler
11202
11203            return
11204              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
11205               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11206                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
11207
11208         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
11209            --  Namespace::importedMember : PackageableElement
11210
11211            return
11212              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
11213               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11214                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
11215
11216         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_In_Activity_Activity_Group then
11217            --  ActivityGroup::inActivity : Activity
11218
11219            return
11220              AMF.Internals.Holders.UML_Holders.To_Holder
11221               (AMF.UML.Activities.UML_Activity_Access'
11222                 (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11223                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Activity));
11224
11225         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
11226            --  ActivityNode::inGroup : ActivityGroup
11227
11228            return
11229              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
11230               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11231                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
11232
11233         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
11234            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
11235
11236            return
11237              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
11238               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11239                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
11240
11241         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
11242            --  ActivityNode::inPartition : ActivityPartition
11243
11244            return
11245              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
11246               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11247                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
11248
11249         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
11250            --  ActivityNode::inStructuredNode : StructuredActivityNode
11251
11252            return
11253              AMF.Internals.Holders.UML_Holders.To_Holder
11254               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
11255                 (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11256                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
11257
11258         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
11259            --  ActivityNode::incoming : ActivityEdge
11260
11261            return
11262              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
11263               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11264                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
11265
11266         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
11267            --  Action::input : InputPin
11268
11269            return
11270              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
11271               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11272                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
11273
11274         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Conditional_Node_Is_Assured then
11275            --  ConditionalNode::isAssured : Boolean
11276
11277            return
11278              League.Holders.Booleans.To_Holder
11279               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11280                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Assured);
11281
11282         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Conditional_Node_Is_Determinate then
11283            --  ConditionalNode::isDeterminate : Boolean
11284
11285            return
11286              League.Holders.Booleans.To_Holder
11287               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11288                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Determinate);
11289
11290         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
11291            --  RedefinableElement::isLeaf : Boolean
11292
11293            return
11294              League.Holders.Booleans.To_Holder
11295               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11296                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
11297
11298         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
11299            --  Action::isLocallyReentrant : Boolean
11300
11301            return
11302              League.Holders.Booleans.To_Holder
11303               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11304                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
11305
11306         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
11307            --  Action::localPostcondition : Constraint
11308
11309            return
11310              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
11311               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11312                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
11313
11314         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
11315            --  Action::localPrecondition : Constraint
11316
11317            return
11318              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
11319               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11320                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
11321
11322         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
11323            --  Namespace::member : NamedElement
11324
11325            return
11326              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
11327               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11328                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
11329
11330         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Must_Isolate then
11331            --  StructuredActivityNode::mustIsolate : Boolean
11332
11333            return
11334              League.Holders.Booleans.To_Holder
11335               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11336                 (AMF.Internals.Helpers.To_Element (Self)).Get_Must_Isolate);
11337
11338         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
11339            --  NamedElement::name : String
11340
11341            return
11342              AMF.Holders.To_Holder
11343               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11344                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
11345
11346         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
11347            --  NamedElement::nameExpression : StringExpression
11348
11349            return
11350              AMF.Internals.Holders.UML_Holders.To_Holder
11351               (AMF.UML.String_Expressions.UML_String_Expression_Access'
11352                 (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11353                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
11354
11355         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
11356            --  NamedElement::namespace : Namespace
11357
11358            return
11359              AMF.Internals.Holders.UML_Holders.To_Holder
11360               (AMF.UML.Namespaces.UML_Namespace_Access'
11361                 (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11362                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
11363
11364         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Node_Activity_Node_In_Structured_Node then
11365            --  StructuredActivityNode::node : ActivityNode
11366
11367            return
11368              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
11369               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11370                 (AMF.Internals.Helpers.To_Element (Self)).Get_Node);
11371
11372         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
11373            --  ActivityNode::outgoing : ActivityEdge
11374
11375            return
11376              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
11377               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11378                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
11379
11380         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
11381            --  Action::output : OutputPin
11382
11383            return
11384              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
11385               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11386                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
11387
11388         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
11389            --  Element::ownedComment : Comment
11390
11391            return
11392              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
11393               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11394                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
11395
11396         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
11397            --  Element::ownedElement : Element
11398
11399            return
11400              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
11401               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11402                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
11403
11404         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
11405            --  Namespace::ownedMember : NamedElement
11406
11407            return
11408              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
11409               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11410                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
11411
11412         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
11413            --  Namespace::ownedRule : Constraint
11414
11415            return
11416              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
11417               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11418                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
11419
11420         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
11421            --  Element::owner : Element
11422
11423            return
11424              AMF.Internals.Holders.UML_Holders.To_Holder
11425               (AMF.UML.Elements.UML_Element_Access'
11426                 (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11427                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
11428
11429         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
11430            --  Namespace::packageImport : PackageImport
11431
11432            return
11433              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
11434               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11435                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
11436
11437         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
11438            --  NamedElement::qualifiedName : String
11439
11440            return
11441              AMF.Holders.To_Holder
11442               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11443                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
11444
11445         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
11446            --  RedefinableElement::redefinedElement : RedefinableElement
11447
11448            return
11449              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
11450               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11451                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
11452
11453         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
11454            --  ActivityNode::redefinedNode : ActivityNode
11455
11456            return
11457              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
11458               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11459                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
11460
11461         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
11462            --  RedefinableElement::redefinitionContext : Classifier
11463
11464            return
11465              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
11466               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11467                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
11468
11469         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Conditional_Node_Result_A_Conditional_Node then
11470            --  ConditionalNode::result : OutputPin
11471
11472            return
11473              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
11474               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11475                 (AMF.Internals.Helpers.To_Element (Self)).Get_Result);
11476
11477         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Structured_Node_Input_A_Structured_Activity_Node then
11478            --  StructuredActivityNode::structuredNodeInput : InputPin
11479
11480            return
11481              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
11482               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11483                 (AMF.Internals.Helpers.To_Element (Self)).Get_Structured_Node_Input);
11484
11485         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Structured_Node_Output_A_Structured_Activity_Node then
11486            --  StructuredActivityNode::structuredNodeOutput : OutputPin
11487
11488            return
11489              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
11490               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11491                 (AMF.Internals.Helpers.To_Element (Self)).Get_Structured_Node_Output);
11492
11493         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Subgroup_Activity_Group_Super_Group then
11494            --  ActivityGroup::subgroup : ActivityGroup
11495
11496            return
11497              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
11498               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11499                 (AMF.Internals.Helpers.To_Element (Self)).Get_Subgroup);
11500
11501         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Super_Group_Activity_Group_Subgroup then
11502            --  ActivityGroup::superGroup : ActivityGroup
11503
11504            return
11505              AMF.Internals.Holders.UML_Holders.To_Holder
11506               (AMF.UML.Activity_Groups.UML_Activity_Group_Access'
11507                 (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11508                   (AMF.Internals.Helpers.To_Element (Self)).Get_Super_Group));
11509
11510         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Variable_Variable_Scope then
11511            --  StructuredActivityNode::variable : Variable
11512
11513            return
11514              AMF.UML.Variables.Collections.UML_Variable_Collections.Internals.To_Holder
11515               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11516                 (AMF.Internals.Helpers.To_Element (Self)).Get_Variable);
11517
11518         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
11519            --  NamedElement::visibility : VisibilityKind
11520
11521            return
11522              AMF.UML.Holders.To_Holder
11523               (AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
11524                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
11525
11526         else
11527            raise Program_Error;
11528         end if;
11529      end UML_Conditional_Node_Get;
11530
11531      ----------------------------------------------------
11532      -- UML_Connectable_Element_Template_Parameter_Get --
11533      ----------------------------------------------------
11534
11535      function UML_Connectable_Element_Template_Parameter_Get return League.Holders.Holder is
11536      begin
11537         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Default_A_Template_Parameter then
11538            --  TemplateParameter::default : ParameterableElement
11539
11540            return
11541              AMF.Internals.Holders.UML_Holders.To_Holder
11542               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access'
11543                 (AMF.UML.Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Access
11544                   (AMF.Internals.Helpers.To_Element (Self)).Get_Default));
11545
11546         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
11547            --  Element::ownedComment : Comment
11548
11549            return
11550              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
11551               (AMF.UML.Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Access
11552                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
11553
11554         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Owned_Default_A_Template_Parameter then
11555            --  TemplateParameter::ownedDefault : ParameterableElement
11556
11557            return
11558              AMF.Internals.Holders.UML_Holders.To_Holder
11559               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access'
11560                 (AMF.UML.Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Access
11561                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Default));
11562
11563         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
11564            --  Element::ownedElement : Element
11565
11566            return
11567              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
11568               (AMF.UML.Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Access
11569                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
11570
11571         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Owned_Parametered_Element_Parameterable_Element_Owning_Template_Parameter then
11572            --  TemplateParameter::ownedParameteredElement : ParameterableElement
11573
11574            return
11575              AMF.Internals.Holders.UML_Holders.To_Holder
11576               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access'
11577                 (AMF.UML.Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Access
11578                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Parametered_Element));
11579
11580         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
11581            --  Element::owner : Element
11582
11583            return
11584              AMF.Internals.Holders.UML_Holders.To_Holder
11585               (AMF.UML.Elements.UML_Element_Access'
11586                 (AMF.UML.Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Access
11587                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
11588
11589         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connectable_Element_Template_Parameter_Parametered_Element_Connectable_Element_Template_Parameter then
11590            --  ConnectableElementTemplateParameter::parameteredElement : ConnectableElement
11591
11592            return
11593              AMF.Internals.Holders.UML_Holders.To_Holder
11594               (AMF.UML.Connectable_Elements.UML_Connectable_Element_Access'
11595                 (AMF.UML.Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Access
11596                   (AMF.Internals.Helpers.To_Element (Self)).Get_Parametered_Element));
11597
11598         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Parametered_Element_Parameterable_Element_Template_Parameter then
11599            --  TemplateParameter::parameteredElement : ParameterableElement
11600
11601            return
11602              AMF.Internals.Holders.UML_Holders.To_Holder
11603               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access'
11604                 (AMF.UML.Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Access
11605                   (AMF.Internals.Helpers.To_Element (Self)).Get_Parametered_Element));
11606
11607         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Signature_Template_Signature_Owned_Parameter then
11608            --  TemplateParameter::signature : TemplateSignature
11609
11610            return
11611              AMF.Internals.Holders.UML_Holders.To_Holder
11612               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
11613                 (AMF.UML.Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Access
11614                   (AMF.Internals.Helpers.To_Element (Self)).Get_Signature));
11615
11616         else
11617            raise Program_Error;
11618         end if;
11619      end UML_Connectable_Element_Template_Parameter_Get;
11620
11621      ----------------------------------------
11622      -- UML_Connection_Point_Reference_Get --
11623      ----------------------------------------
11624
11625      function UML_Connection_Point_Reference_Get return League.Holders.Holder is
11626      begin
11627         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
11628            --  NamedElement::clientDependency : Dependency
11629
11630            return
11631              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
11632               (AMF.UML.Connection_Point_References.UML_Connection_Point_Reference_Access
11633                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
11634
11635         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Vertex_Container_Region_Subvertex then
11636            --  Vertex::container : Region
11637
11638            return
11639              AMF.Internals.Holders.UML_Holders.To_Holder
11640               (AMF.UML.Regions.UML_Region_Access'
11641                 (AMF.UML.Connection_Point_References.UML_Connection_Point_Reference_Access
11642                   (AMF.Internals.Helpers.To_Element (Self)).Get_Container));
11643
11644         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connection_Point_Reference_Entry_A_Connection_Point_Reference then
11645            --  ConnectionPointReference::entry : Pseudostate
11646
11647            return
11648              AMF.UML.Pseudostates.Collections.UML_Pseudostate_Collections.Internals.To_Holder
11649               (AMF.UML.Connection_Point_References.UML_Connection_Point_Reference_Access
11650                 (AMF.Internals.Helpers.To_Element (Self)).Get_Entry);
11651
11652         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connection_Point_Reference_Exit_A_Connection_Point_Reference then
11653            --  ConnectionPointReference::exit : Pseudostate
11654
11655            return
11656              AMF.UML.Pseudostates.Collections.UML_Pseudostate_Collections.Internals.To_Holder
11657               (AMF.UML.Connection_Point_References.UML_Connection_Point_Reference_Access
11658                 (AMF.Internals.Helpers.To_Element (Self)).Get_Exit);
11659
11660         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Vertex_Incoming_Transition_Target then
11661            --  Vertex::incoming : Transition
11662
11663            return
11664              AMF.UML.Transitions.Collections.UML_Transition_Collections.Internals.To_Holder
11665               (AMF.UML.Connection_Point_References.UML_Connection_Point_Reference_Access
11666                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
11667
11668         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
11669            --  NamedElement::name : String
11670
11671            return
11672              AMF.Holders.To_Holder
11673               (AMF.UML.Connection_Point_References.UML_Connection_Point_Reference_Access
11674                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
11675
11676         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
11677            --  NamedElement::nameExpression : StringExpression
11678
11679            return
11680              AMF.Internals.Holders.UML_Holders.To_Holder
11681               (AMF.UML.String_Expressions.UML_String_Expression_Access'
11682                 (AMF.UML.Connection_Point_References.UML_Connection_Point_Reference_Access
11683                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
11684
11685         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
11686            --  NamedElement::namespace : Namespace
11687
11688            return
11689              AMF.Internals.Holders.UML_Holders.To_Holder
11690               (AMF.UML.Namespaces.UML_Namespace_Access'
11691                 (AMF.UML.Connection_Point_References.UML_Connection_Point_Reference_Access
11692                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
11693
11694         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Vertex_Outgoing_Transition_Source then
11695            --  Vertex::outgoing : Transition
11696
11697            return
11698              AMF.UML.Transitions.Collections.UML_Transition_Collections.Internals.To_Holder
11699               (AMF.UML.Connection_Point_References.UML_Connection_Point_Reference_Access
11700                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
11701
11702         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
11703            --  Element::ownedComment : Comment
11704
11705            return
11706              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
11707               (AMF.UML.Connection_Point_References.UML_Connection_Point_Reference_Access
11708                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
11709
11710         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
11711            --  Element::ownedElement : Element
11712
11713            return
11714              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
11715               (AMF.UML.Connection_Point_References.UML_Connection_Point_Reference_Access
11716                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
11717
11718         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
11719            --  Element::owner : Element
11720
11721            return
11722              AMF.Internals.Holders.UML_Holders.To_Holder
11723               (AMF.UML.Elements.UML_Element_Access'
11724                 (AMF.UML.Connection_Point_References.UML_Connection_Point_Reference_Access
11725                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
11726
11727         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
11728            --  NamedElement::qualifiedName : String
11729
11730            return
11731              AMF.Holders.To_Holder
11732               (AMF.UML.Connection_Point_References.UML_Connection_Point_Reference_Access
11733                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
11734
11735         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connection_Point_Reference_State_State_Connection then
11736            --  ConnectionPointReference::state : State
11737
11738            return
11739              AMF.Internals.Holders.UML_Holders.To_Holder
11740               (AMF.UML.States.UML_State_Access'
11741                 (AMF.UML.Connection_Point_References.UML_Connection_Point_Reference_Access
11742                   (AMF.Internals.Helpers.To_Element (Self)).Get_State));
11743
11744         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
11745            --  NamedElement::visibility : VisibilityKind
11746
11747            return
11748              AMF.UML.Holders.To_Holder
11749               (AMF.UML.Connection_Point_References.UML_Connection_Point_Reference_Access
11750                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
11751
11752         else
11753            raise Program_Error;
11754         end if;
11755      end UML_Connection_Point_Reference_Get;
11756
11757      -----------------------
11758      -- UML_Connector_Get --
11759      -----------------------
11760
11761      function UML_Connector_Get return League.Holders.Holder is
11762      begin
11763         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
11764            --  NamedElement::clientDependency : Dependency
11765
11766            return
11767              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
11768               (AMF.UML.Connectors.UML_Connector_Access
11769                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
11770
11771         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connector_Contract_A_Connector then
11772            --  Connector::contract : Behavior
11773
11774            return
11775              AMF.UML.Behaviors.Collections.UML_Behavior_Collections.Internals.To_Holder
11776               (AMF.UML.Connectors.UML_Connector_Access
11777                 (AMF.Internals.Helpers.To_Element (Self)).Get_Contract);
11778
11779         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connector_End_A_Connector then
11780            --  Connector::end : ConnectorEnd
11781
11782            return
11783              AMF.UML.Connector_Ends.Collections.UML_Connector_End_Collections.Internals.To_Holder
11784               (AMF.UML.Connectors.UML_Connector_Access
11785                 (AMF.Internals.Helpers.To_Element (Self)).Get_End);
11786
11787         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Feature_Featuring_Classifier_Classifier_Feature then
11788            --  Feature::featuringClassifier : Classifier
11789
11790            return
11791              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
11792               (AMF.UML.Connectors.UML_Connector_Access
11793                 (AMF.Internals.Helpers.To_Element (Self)).Get_Featuring_Classifier);
11794
11795         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
11796            --  RedefinableElement::isLeaf : Boolean
11797
11798            return
11799              League.Holders.Booleans.To_Holder
11800               (AMF.UML.Connectors.UML_Connector_Access
11801                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
11802
11803         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Feature_Is_Static then
11804            --  Feature::isStatic : Boolean
11805
11806            return
11807              League.Holders.Booleans.To_Holder
11808               (AMF.UML.Connectors.UML_Connector_Access
11809                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Static);
11810
11811         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connector_Kind then
11812            --  Connector::kind : ConnectorKind
11813
11814            return
11815              AMF.UML.Holders.Connector_Kinds.To_Holder
11816               (AMF.UML.Connectors.UML_Connector_Access
11817                 (AMF.Internals.Helpers.To_Element (Self)).Get_Kind);
11818
11819         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
11820            --  NamedElement::name : String
11821
11822            return
11823              AMF.Holders.To_Holder
11824               (AMF.UML.Connectors.UML_Connector_Access
11825                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
11826
11827         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
11828            --  NamedElement::nameExpression : StringExpression
11829
11830            return
11831              AMF.Internals.Holders.UML_Holders.To_Holder
11832               (AMF.UML.String_Expressions.UML_String_Expression_Access'
11833                 (AMF.UML.Connectors.UML_Connector_Access
11834                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
11835
11836         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
11837            --  NamedElement::namespace : Namespace
11838
11839            return
11840              AMF.Internals.Holders.UML_Holders.To_Holder
11841               (AMF.UML.Namespaces.UML_Namespace_Access'
11842                 (AMF.UML.Connectors.UML_Connector_Access
11843                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
11844
11845         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
11846            --  Element::ownedComment : Comment
11847
11848            return
11849              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
11850               (AMF.UML.Connectors.UML_Connector_Access
11851                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
11852
11853         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
11854            --  Element::ownedElement : Element
11855
11856            return
11857              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
11858               (AMF.UML.Connectors.UML_Connector_Access
11859                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
11860
11861         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
11862            --  Element::owner : Element
11863
11864            return
11865              AMF.Internals.Holders.UML_Holders.To_Holder
11866               (AMF.UML.Elements.UML_Element_Access'
11867                 (AMF.UML.Connectors.UML_Connector_Access
11868                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
11869
11870         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
11871            --  NamedElement::qualifiedName : String
11872
11873            return
11874              AMF.Holders.To_Holder
11875               (AMF.UML.Connectors.UML_Connector_Access
11876                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
11877
11878         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connector_Redefined_Connector_A_Connector then
11879            --  Connector::redefinedConnector : Connector
11880
11881            return
11882              AMF.UML.Connectors.Collections.UML_Connector_Collections.Internals.To_Holder
11883               (AMF.UML.Connectors.UML_Connector_Access
11884                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Connector);
11885
11886         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
11887            --  RedefinableElement::redefinedElement : RedefinableElement
11888
11889            return
11890              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
11891               (AMF.UML.Connectors.UML_Connector_Access
11892                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
11893
11894         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
11895            --  RedefinableElement::redefinitionContext : Classifier
11896
11897            return
11898              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
11899               (AMF.UML.Connectors.UML_Connector_Access
11900                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
11901
11902         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connector_Type_A_Connector then
11903            --  Connector::type : Association
11904
11905            return
11906              AMF.Internals.Holders.UML_Holders.To_Holder
11907               (AMF.UML.Associations.UML_Association_Access'
11908                 (AMF.UML.Connectors.UML_Connector_Access
11909                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
11910
11911         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
11912            --  NamedElement::visibility : VisibilityKind
11913
11914            return
11915              AMF.UML.Holders.To_Holder
11916               (AMF.UML.Connectors.UML_Connector_Access
11917                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
11918
11919         else
11920            raise Program_Error;
11921         end if;
11922      end UML_Connector_Get;
11923
11924      ---------------------------
11925      -- UML_Connector_End_Get --
11926      ---------------------------
11927
11928      function UML_Connector_End_Get return League.Holders.Holder is
11929      begin
11930         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connector_End_Defining_End_A_Connector_End then
11931            --  ConnectorEnd::definingEnd : Property
11932
11933            return
11934              AMF.Internals.Holders.UML_Holders.To_Holder
11935               (AMF.UML.Properties.UML_Property_Access'
11936                 (AMF.UML.Connector_Ends.UML_Connector_End_Access
11937                   (AMF.Internals.Helpers.To_Element (Self)).Get_Defining_End));
11938
11939         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Ordered then
11940            --  MultiplicityElement::isOrdered : Boolean
11941
11942            return
11943              League.Holders.Booleans.To_Holder
11944               (AMF.UML.Connector_Ends.UML_Connector_End_Access
11945                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Ordered);
11946
11947         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Unique then
11948            --  MultiplicityElement::isUnique : Boolean
11949
11950            return
11951              League.Holders.Booleans.To_Holder
11952               (AMF.UML.Connector_Ends.UML_Connector_End_Access
11953                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Unique);
11954
11955         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower then
11956            --  MultiplicityElement::lower : Integer
11957
11958            return
11959              AMF.Holders.To_Holder
11960               (AMF.UML.Connector_Ends.UML_Connector_End_Access
11961                 (AMF.Internals.Helpers.To_Element (Self)).Get_Lower);
11962
11963         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower_Value_A_Owning_Lower then
11964            --  MultiplicityElement::lowerValue : ValueSpecification
11965
11966            return
11967              AMF.Internals.Holders.UML_Holders.To_Holder
11968               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
11969                 (AMF.UML.Connector_Ends.UML_Connector_End_Access
11970                   (AMF.Internals.Helpers.To_Element (Self)).Get_Lower_Value));
11971
11972         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
11973            --  Element::ownedComment : Comment
11974
11975            return
11976              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
11977               (AMF.UML.Connector_Ends.UML_Connector_End_Access
11978                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
11979
11980         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
11981            --  Element::ownedElement : Element
11982
11983            return
11984              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
11985               (AMF.UML.Connector_Ends.UML_Connector_End_Access
11986                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
11987
11988         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
11989            --  Element::owner : Element
11990
11991            return
11992              AMF.Internals.Holders.UML_Holders.To_Holder
11993               (AMF.UML.Elements.UML_Element_Access'
11994                 (AMF.UML.Connector_Ends.UML_Connector_End_Access
11995                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
11996
11997         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connector_End_Part_With_Port_A_Connector_End then
11998            --  ConnectorEnd::partWithPort : Property
11999
12000            return
12001              AMF.Internals.Holders.UML_Holders.To_Holder
12002               (AMF.UML.Properties.UML_Property_Access'
12003                 (AMF.UML.Connector_Ends.UML_Connector_End_Access
12004                   (AMF.Internals.Helpers.To_Element (Self)).Get_Part_With_Port));
12005
12006         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connector_End_Role_Connectable_Element_End then
12007            --  ConnectorEnd::role : ConnectableElement
12008
12009            return
12010              AMF.Internals.Holders.UML_Holders.To_Holder
12011               (AMF.UML.Connectable_Elements.UML_Connectable_Element_Access'
12012                 (AMF.UML.Connector_Ends.UML_Connector_End_Access
12013                   (AMF.Internals.Helpers.To_Element (Self)).Get_Role));
12014
12015         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper then
12016            --  MultiplicityElement::upper : UnlimitedNatural
12017
12018            return
12019              AMF.Holders.To_Holder
12020               (AMF.UML.Connector_Ends.UML_Connector_End_Access
12021                 (AMF.Internals.Helpers.To_Element (Self)).Get_Upper);
12022
12023         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper_Value_A_Owning_Upper then
12024            --  MultiplicityElement::upperValue : ValueSpecification
12025
12026            return
12027              AMF.Internals.Holders.UML_Holders.To_Holder
12028               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
12029                 (AMF.UML.Connector_Ends.UML_Connector_End_Access
12030                   (AMF.Internals.Helpers.To_Element (Self)).Get_Upper_Value));
12031
12032         else
12033            raise Program_Error;
12034         end if;
12035      end UML_Connector_End_Get;
12036
12037      --------------------------------------
12038      -- UML_Consider_Ignore_Fragment_Get --
12039      --------------------------------------
12040
12041      function UML_Consider_Ignore_Fragment_Get return League.Holders.Holder is
12042      begin
12043         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Combined_Fragment_Cfragment_Gate_A_Combined_Fragment then
12044            --  CombinedFragment::cfragmentGate : Gate
12045
12046            return
12047              AMF.UML.Gates.Collections.UML_Gate_Collections.Internals.To_Holder
12048               (AMF.UML.Consider_Ignore_Fragments.UML_Consider_Ignore_Fragment_Access
12049                 (AMF.Internals.Helpers.To_Element (Self)).Get_Cfragment_Gate);
12050
12051         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
12052            --  NamedElement::clientDependency : Dependency
12053
12054            return
12055              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
12056               (AMF.UML.Consider_Ignore_Fragments.UML_Consider_Ignore_Fragment_Access
12057                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
12058
12059         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Covered_Lifeline_Covered_By then
12060            --  InteractionFragment::covered : Lifeline
12061
12062            return
12063              AMF.UML.Lifelines.Collections.UML_Lifeline_Collections.Internals.To_Holder
12064               (AMF.UML.Consider_Ignore_Fragments.UML_Consider_Ignore_Fragment_Access
12065                 (AMF.Internals.Helpers.To_Element (Self)).Get_Covered);
12066
12067         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Interaction_Interaction_Fragment then
12068            --  InteractionFragment::enclosingInteraction : Interaction
12069
12070            return
12071              AMF.Internals.Holders.UML_Holders.To_Holder
12072               (AMF.UML.Interactions.UML_Interaction_Access'
12073                 (AMF.UML.Consider_Ignore_Fragments.UML_Consider_Ignore_Fragment_Access
12074                   (AMF.Internals.Helpers.To_Element (Self)).Get_Enclosing_Interaction));
12075
12076         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Operand_Interaction_Operand_Fragment then
12077            --  InteractionFragment::enclosingOperand : InteractionOperand
12078
12079            return
12080              AMF.Internals.Holders.UML_Holders.To_Holder
12081               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access'
12082                 (AMF.UML.Consider_Ignore_Fragments.UML_Consider_Ignore_Fragment_Access
12083                   (AMF.Internals.Helpers.To_Element (Self)).Get_Enclosing_Operand));
12084
12085         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_General_Ordering_A_Interaction_Fragment then
12086            --  InteractionFragment::generalOrdering : GeneralOrdering
12087
12088            return
12089              AMF.UML.General_Orderings.Collections.UML_General_Ordering_Collections.Internals.To_Holder
12090               (AMF.UML.Consider_Ignore_Fragments.UML_Consider_Ignore_Fragment_Access
12091                 (AMF.Internals.Helpers.To_Element (Self)).Get_General_Ordering);
12092
12093         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Combined_Fragment_Interaction_Operator then
12094            --  CombinedFragment::interactionOperator : InteractionOperatorKind
12095
12096            return
12097              AMF.UML.Holders.Interaction_Operator_Kinds.To_Holder
12098               (AMF.UML.Consider_Ignore_Fragments.UML_Consider_Ignore_Fragment_Access
12099                 (AMF.Internals.Helpers.To_Element (Self)).Get_Interaction_Operator);
12100
12101         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Consider_Ignore_Fragment_Message_A_Consider_Ignore_Fragment then
12102            --  ConsiderIgnoreFragment::message : NamedElement
12103
12104            return
12105              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
12106               (AMF.UML.Consider_Ignore_Fragments.UML_Consider_Ignore_Fragment_Access
12107                 (AMF.Internals.Helpers.To_Element (Self)).Get_Message);
12108
12109         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
12110            --  NamedElement::name : String
12111
12112            return
12113              AMF.Holders.To_Holder
12114               (AMF.UML.Consider_Ignore_Fragments.UML_Consider_Ignore_Fragment_Access
12115                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
12116
12117         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
12118            --  NamedElement::nameExpression : StringExpression
12119
12120            return
12121              AMF.Internals.Holders.UML_Holders.To_Holder
12122               (AMF.UML.String_Expressions.UML_String_Expression_Access'
12123                 (AMF.UML.Consider_Ignore_Fragments.UML_Consider_Ignore_Fragment_Access
12124                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
12125
12126         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
12127            --  NamedElement::namespace : Namespace
12128
12129            return
12130              AMF.Internals.Holders.UML_Holders.To_Holder
12131               (AMF.UML.Namespaces.UML_Namespace_Access'
12132                 (AMF.UML.Consider_Ignore_Fragments.UML_Consider_Ignore_Fragment_Access
12133                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
12134
12135         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Combined_Fragment_Operand_A_Combined_Fragment then
12136            --  CombinedFragment::operand : InteractionOperand
12137
12138            return
12139              AMF.UML.Interaction_Operands.Collections.UML_Interaction_Operand_Collections.Internals.To_Holder
12140               (AMF.UML.Consider_Ignore_Fragments.UML_Consider_Ignore_Fragment_Access
12141                 (AMF.Internals.Helpers.To_Element (Self)).Get_Operand);
12142
12143         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
12144            --  Element::ownedComment : Comment
12145
12146            return
12147              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
12148               (AMF.UML.Consider_Ignore_Fragments.UML_Consider_Ignore_Fragment_Access
12149                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
12150
12151         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
12152            --  Element::ownedElement : Element
12153
12154            return
12155              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
12156               (AMF.UML.Consider_Ignore_Fragments.UML_Consider_Ignore_Fragment_Access
12157                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
12158
12159         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
12160            --  Element::owner : Element
12161
12162            return
12163              AMF.Internals.Holders.UML_Holders.To_Holder
12164               (AMF.UML.Elements.UML_Element_Access'
12165                 (AMF.UML.Consider_Ignore_Fragments.UML_Consider_Ignore_Fragment_Access
12166                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
12167
12168         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
12169            --  NamedElement::qualifiedName : String
12170
12171            return
12172              AMF.Holders.To_Holder
12173               (AMF.UML.Consider_Ignore_Fragments.UML_Consider_Ignore_Fragment_Access
12174                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
12175
12176         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
12177            --  NamedElement::visibility : VisibilityKind
12178
12179            return
12180              AMF.UML.Holders.To_Holder
12181               (AMF.UML.Consider_Ignore_Fragments.UML_Consider_Ignore_Fragment_Access
12182                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
12183
12184         else
12185            raise Program_Error;
12186         end if;
12187      end UML_Consider_Ignore_Fragment_Get;
12188
12189      ------------------------
12190      -- UML_Constraint_Get --
12191      ------------------------
12192
12193      function UML_Constraint_Get return League.Holders.Holder is
12194      begin
12195         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
12196            --  NamedElement::clientDependency : Dependency
12197
12198            return
12199              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
12200               (AMF.UML.Constraints.UML_Constraint_Access
12201                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
12202
12203         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Constraint_Constrained_Element_A_Constraint then
12204            --  Constraint::constrainedElement : Element
12205
12206            return
12207              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
12208               (AMF.UML.Constraints.UML_Constraint_Access
12209                 (AMF.Internals.Helpers.To_Element (Self)).Get_Constrained_Element);
12210
12211         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Constraint_Context_Namespace_Owned_Rule then
12212            --  Constraint::context : Namespace
12213
12214            return
12215              AMF.Internals.Holders.UML_Holders.To_Holder
12216               (AMF.UML.Namespaces.UML_Namespace_Access'
12217                 (AMF.UML.Constraints.UML_Constraint_Access
12218                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
12219
12220         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
12221            --  NamedElement::name : String
12222
12223            return
12224              AMF.Holders.To_Holder
12225               (AMF.UML.Constraints.UML_Constraint_Access
12226                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
12227
12228         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
12229            --  NamedElement::nameExpression : StringExpression
12230
12231            return
12232              AMF.Internals.Holders.UML_Holders.To_Holder
12233               (AMF.UML.String_Expressions.UML_String_Expression_Access'
12234                 (AMF.UML.Constraints.UML_Constraint_Access
12235                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
12236
12237         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
12238            --  NamedElement::namespace : Namespace
12239
12240            return
12241              AMF.Internals.Holders.UML_Holders.To_Holder
12242               (AMF.UML.Namespaces.UML_Namespace_Access'
12243                 (AMF.UML.Constraints.UML_Constraint_Access
12244                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
12245
12246         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
12247            --  Element::ownedComment : Comment
12248
12249            return
12250              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
12251               (AMF.UML.Constraints.UML_Constraint_Access
12252                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
12253
12254         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
12255            --  Element::ownedElement : Element
12256
12257            return
12258              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
12259               (AMF.UML.Constraints.UML_Constraint_Access
12260                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
12261
12262         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
12263            --  Element::owner : Element
12264
12265            return
12266              AMF.Internals.Holders.UML_Holders.To_Holder
12267               (AMF.UML.Elements.UML_Element_Access'
12268                 (AMF.UML.Constraints.UML_Constraint_Access
12269                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
12270
12271         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
12272            --  ParameterableElement::owningTemplateParameter : TemplateParameter
12273
12274            return
12275              AMF.Internals.Holders.UML_Holders.To_Holder
12276               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
12277                 (AMF.UML.Constraints.UML_Constraint_Access
12278                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
12279
12280         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
12281            --  NamedElement::qualifiedName : String
12282
12283            return
12284              AMF.Holders.To_Holder
12285               (AMF.UML.Constraints.UML_Constraint_Access
12286                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
12287
12288         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Constraint_Specification_A_Owning_Constraint then
12289            --  Constraint::specification : ValueSpecification
12290
12291            return
12292              AMF.Internals.Holders.UML_Holders.To_Holder
12293               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
12294                 (AMF.UML.Constraints.UML_Constraint_Access
12295                   (AMF.Internals.Helpers.To_Element (Self)).Get_Specification));
12296
12297         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
12298            --  ParameterableElement::templateParameter : TemplateParameter
12299
12300            return
12301              AMF.Internals.Holders.UML_Holders.To_Holder
12302               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
12303                 (AMF.UML.Constraints.UML_Constraint_Access
12304                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
12305
12306         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
12307            --  NamedElement::visibility : VisibilityKind
12308
12309            return
12310              AMF.UML.Holders.To_Holder
12311               (AMF.UML.Constraints.UML_Constraint_Access
12312                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
12313
12314         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
12315            --  PackageableElement::visibility : VisibilityKind
12316
12317            return
12318              AMF.UML.Holders.Visibility_Kinds.To_Holder
12319               (AMF.UML.Constraints.UML_Constraint_Access
12320                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
12321
12322         else
12323            raise Program_Error;
12324         end if;
12325      end UML_Constraint_Get;
12326
12327      --------------------------
12328      -- UML_Continuation_Get --
12329      --------------------------
12330
12331      function UML_Continuation_Get return League.Holders.Holder is
12332      begin
12333         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
12334            --  NamedElement::clientDependency : Dependency
12335
12336            return
12337              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
12338               (AMF.UML.Continuations.UML_Continuation_Access
12339                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
12340
12341         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Covered_Lifeline_Covered_By then
12342            --  InteractionFragment::covered : Lifeline
12343
12344            return
12345              AMF.UML.Lifelines.Collections.UML_Lifeline_Collections.Internals.To_Holder
12346               (AMF.UML.Continuations.UML_Continuation_Access
12347                 (AMF.Internals.Helpers.To_Element (Self)).Get_Covered);
12348
12349         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Interaction_Interaction_Fragment then
12350            --  InteractionFragment::enclosingInteraction : Interaction
12351
12352            return
12353              AMF.Internals.Holders.UML_Holders.To_Holder
12354               (AMF.UML.Interactions.UML_Interaction_Access'
12355                 (AMF.UML.Continuations.UML_Continuation_Access
12356                   (AMF.Internals.Helpers.To_Element (Self)).Get_Enclosing_Interaction));
12357
12358         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Operand_Interaction_Operand_Fragment then
12359            --  InteractionFragment::enclosingOperand : InteractionOperand
12360
12361            return
12362              AMF.Internals.Holders.UML_Holders.To_Holder
12363               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access'
12364                 (AMF.UML.Continuations.UML_Continuation_Access
12365                   (AMF.Internals.Helpers.To_Element (Self)).Get_Enclosing_Operand));
12366
12367         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_General_Ordering_A_Interaction_Fragment then
12368            --  InteractionFragment::generalOrdering : GeneralOrdering
12369
12370            return
12371              AMF.UML.General_Orderings.Collections.UML_General_Ordering_Collections.Internals.To_Holder
12372               (AMF.UML.Continuations.UML_Continuation_Access
12373                 (AMF.Internals.Helpers.To_Element (Self)).Get_General_Ordering);
12374
12375         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
12376            --  NamedElement::name : String
12377
12378            return
12379              AMF.Holders.To_Holder
12380               (AMF.UML.Continuations.UML_Continuation_Access
12381                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
12382
12383         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
12384            --  NamedElement::nameExpression : StringExpression
12385
12386            return
12387              AMF.Internals.Holders.UML_Holders.To_Holder
12388               (AMF.UML.String_Expressions.UML_String_Expression_Access'
12389                 (AMF.UML.Continuations.UML_Continuation_Access
12390                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
12391
12392         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
12393            --  NamedElement::namespace : Namespace
12394
12395            return
12396              AMF.Internals.Holders.UML_Holders.To_Holder
12397               (AMF.UML.Namespaces.UML_Namespace_Access'
12398                 (AMF.UML.Continuations.UML_Continuation_Access
12399                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
12400
12401         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
12402            --  Element::ownedComment : Comment
12403
12404            return
12405              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
12406               (AMF.UML.Continuations.UML_Continuation_Access
12407                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
12408
12409         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
12410            --  Element::ownedElement : Element
12411
12412            return
12413              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
12414               (AMF.UML.Continuations.UML_Continuation_Access
12415                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
12416
12417         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
12418            --  Element::owner : Element
12419
12420            return
12421              AMF.Internals.Holders.UML_Holders.To_Holder
12422               (AMF.UML.Elements.UML_Element_Access'
12423                 (AMF.UML.Continuations.UML_Continuation_Access
12424                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
12425
12426         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
12427            --  NamedElement::qualifiedName : String
12428
12429            return
12430              AMF.Holders.To_Holder
12431               (AMF.UML.Continuations.UML_Continuation_Access
12432                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
12433
12434         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Continuation_Setting then
12435            --  Continuation::setting : Boolean
12436
12437            return
12438              League.Holders.Booleans.To_Holder
12439               (AMF.UML.Continuations.UML_Continuation_Access
12440                 (AMF.Internals.Helpers.To_Element (Self)).Get_Setting);
12441
12442         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
12443            --  NamedElement::visibility : VisibilityKind
12444
12445            return
12446              AMF.UML.Holders.To_Holder
12447               (AMF.UML.Continuations.UML_Continuation_Access
12448                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
12449
12450         else
12451            raise Program_Error;
12452         end if;
12453      end UML_Continuation_Get;
12454
12455      --------------------------
12456      -- UML_Control_Flow_Get --
12457      --------------------------
12458
12459      function UML_Control_Flow_Get return League.Holders.Holder is
12460      begin
12461         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_Activity_Activity_Edge then
12462            --  ActivityEdge::activity : Activity
12463
12464            return
12465              AMF.Internals.Holders.UML_Holders.To_Holder
12466               (AMF.UML.Activities.UML_Activity_Access'
12467                 (AMF.UML.Control_Flows.UML_Control_Flow_Access
12468                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
12469
12470         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
12471            --  NamedElement::clientDependency : Dependency
12472
12473            return
12474              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
12475               (AMF.UML.Control_Flows.UML_Control_Flow_Access
12476                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
12477
12478         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_Guard_A_Activity_Edge then
12479            --  ActivityEdge::guard : ValueSpecification
12480
12481            return
12482              AMF.Internals.Holders.UML_Holders.To_Holder
12483               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
12484                 (AMF.UML.Control_Flows.UML_Control_Flow_Access
12485                   (AMF.Internals.Helpers.To_Element (Self)).Get_Guard));
12486
12487         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_In_Group_Activity_Group_Contained_Edge then
12488            --  ActivityEdge::inGroup : ActivityGroup
12489
12490            return
12491              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
12492               (AMF.UML.Control_Flows.UML_Control_Flow_Access
12493                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
12494
12495         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_In_Partition_Activity_Partition_Edge then
12496            --  ActivityEdge::inPartition : ActivityPartition
12497
12498            return
12499              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
12500               (AMF.UML.Control_Flows.UML_Control_Flow_Access
12501                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
12502
12503         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_In_Structured_Node_Structured_Activity_Node_Edge then
12504            --  ActivityEdge::inStructuredNode : StructuredActivityNode
12505
12506            return
12507              AMF.Internals.Holders.UML_Holders.To_Holder
12508               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
12509                 (AMF.UML.Control_Flows.UML_Control_Flow_Access
12510                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
12511
12512         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_Interrupts_Interruptible_Activity_Region_Interrupting_Edge then
12513            --  ActivityEdge::interrupts : InterruptibleActivityRegion
12514
12515            return
12516              AMF.Internals.Holders.UML_Holders.To_Holder
12517               (AMF.UML.Interruptible_Activity_Regions.UML_Interruptible_Activity_Region_Access'
12518                 (AMF.UML.Control_Flows.UML_Control_Flow_Access
12519                   (AMF.Internals.Helpers.To_Element (Self)).Get_Interrupts));
12520
12521         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
12522            --  RedefinableElement::isLeaf : Boolean
12523
12524            return
12525              League.Holders.Booleans.To_Holder
12526               (AMF.UML.Control_Flows.UML_Control_Flow_Access
12527                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
12528
12529         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
12530            --  NamedElement::name : String
12531
12532            return
12533              AMF.Holders.To_Holder
12534               (AMF.UML.Control_Flows.UML_Control_Flow_Access
12535                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
12536
12537         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
12538            --  NamedElement::nameExpression : StringExpression
12539
12540            return
12541              AMF.Internals.Holders.UML_Holders.To_Holder
12542               (AMF.UML.String_Expressions.UML_String_Expression_Access'
12543                 (AMF.UML.Control_Flows.UML_Control_Flow_Access
12544                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
12545
12546         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
12547            --  NamedElement::namespace : Namespace
12548
12549            return
12550              AMF.Internals.Holders.UML_Holders.To_Holder
12551               (AMF.UML.Namespaces.UML_Namespace_Access'
12552                 (AMF.UML.Control_Flows.UML_Control_Flow_Access
12553                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
12554
12555         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
12556            --  Element::ownedComment : Comment
12557
12558            return
12559              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
12560               (AMF.UML.Control_Flows.UML_Control_Flow_Access
12561                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
12562
12563         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
12564            --  Element::ownedElement : Element
12565
12566            return
12567              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
12568               (AMF.UML.Control_Flows.UML_Control_Flow_Access
12569                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
12570
12571         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
12572            --  Element::owner : Element
12573
12574            return
12575              AMF.Internals.Holders.UML_Holders.To_Holder
12576               (AMF.UML.Elements.UML_Element_Access'
12577                 (AMF.UML.Control_Flows.UML_Control_Flow_Access
12578                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
12579
12580         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
12581            --  NamedElement::qualifiedName : String
12582
12583            return
12584              AMF.Holders.To_Holder
12585               (AMF.UML.Control_Flows.UML_Control_Flow_Access
12586                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
12587
12588         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_Redefined_Edge_A_Activity_Edge then
12589            --  ActivityEdge::redefinedEdge : ActivityEdge
12590
12591            return
12592              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
12593               (AMF.UML.Control_Flows.UML_Control_Flow_Access
12594                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Edge);
12595
12596         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
12597            --  RedefinableElement::redefinedElement : RedefinableElement
12598
12599            return
12600              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
12601               (AMF.UML.Control_Flows.UML_Control_Flow_Access
12602                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
12603
12604         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
12605            --  RedefinableElement::redefinitionContext : Classifier
12606
12607            return
12608              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
12609               (AMF.UML.Control_Flows.UML_Control_Flow_Access
12610                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
12611
12612         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_Source_Activity_Node_Outgoing then
12613            --  ActivityEdge::source : ActivityNode
12614
12615            return
12616              AMF.Internals.Holders.UML_Holders.To_Holder
12617               (AMF.UML.Activity_Nodes.UML_Activity_Node_Access'
12618                 (AMF.UML.Control_Flows.UML_Control_Flow_Access
12619                   (AMF.Internals.Helpers.To_Element (Self)).Get_Source));
12620
12621         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_Target_Activity_Node_Incoming then
12622            --  ActivityEdge::target : ActivityNode
12623
12624            return
12625              AMF.Internals.Holders.UML_Holders.To_Holder
12626               (AMF.UML.Activity_Nodes.UML_Activity_Node_Access'
12627                 (AMF.UML.Control_Flows.UML_Control_Flow_Access
12628                   (AMF.Internals.Helpers.To_Element (Self)).Get_Target));
12629
12630         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
12631            --  NamedElement::visibility : VisibilityKind
12632
12633            return
12634              AMF.UML.Holders.To_Holder
12635               (AMF.UML.Control_Flows.UML_Control_Flow_Access
12636                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
12637
12638         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_Weight_A_Activity_Edge then
12639            --  ActivityEdge::weight : ValueSpecification
12640
12641            return
12642              AMF.Internals.Holders.UML_Holders.To_Holder
12643               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
12644                 (AMF.UML.Control_Flows.UML_Control_Flow_Access
12645                   (AMF.Internals.Helpers.To_Element (Self)).Get_Weight));
12646
12647         else
12648            raise Program_Error;
12649         end if;
12650      end UML_Control_Flow_Get;
12651
12652      --------------------------------
12653      -- UML_Create_Link_Action_Get --
12654      --------------------------------
12655
12656      function UML_Create_Link_Action_Get return League.Holders.Holder is
12657      begin
12658         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
12659            --  ActivityNode::activity : Activity
12660
12661            return
12662              AMF.Internals.Holders.UML_Holders.To_Holder
12663               (AMF.UML.Activities.UML_Activity_Access'
12664                 (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
12665                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
12666
12667         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
12668            --  NamedElement::clientDependency : Dependency
12669
12670            return
12671              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
12672               (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
12673                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
12674
12675         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
12676            --  Action::context : Classifier
12677
12678            return
12679              AMF.Internals.Holders.UML_Holders.To_Holder
12680               (AMF.UML.Classifiers.UML_Classifier_Access'
12681                 (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
12682                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
12683
12684         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Create_Link_Action_End_Data_A_Create_Link_Action then
12685            --  CreateLinkAction::endData : LinkEndCreationData
12686
12687            return
12688              AMF.UML.Link_End_Creation_Datas.Collections.UML_Link_End_Creation_Data_Collections.Internals.To_Holder
12689               (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
12690                 (AMF.Internals.Helpers.To_Element (Self)).Get_End_Data);
12691
12692         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_Action_End_Data_A_Link_Action then
12693            --  LinkAction::endData : LinkEndData
12694
12695            return
12696              AMF.UML.Link_End_Datas.Collections.UML_Link_End_Data_Collections.Internals.To_Holder
12697               (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
12698                 (AMF.Internals.Helpers.To_Element (Self)).Get_End_Data);
12699
12700         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
12701            --  ExecutableNode::handler : ExceptionHandler
12702
12703            return
12704              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
12705               (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
12706                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
12707
12708         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
12709            --  ActivityNode::inGroup : ActivityGroup
12710
12711            return
12712              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
12713               (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
12714                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
12715
12716         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
12717            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
12718
12719            return
12720              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
12721               (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
12722                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
12723
12724         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
12725            --  ActivityNode::inPartition : ActivityPartition
12726
12727            return
12728              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
12729               (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
12730                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
12731
12732         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
12733            --  ActivityNode::inStructuredNode : StructuredActivityNode
12734
12735            return
12736              AMF.Internals.Holders.UML_Holders.To_Holder
12737               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
12738                 (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
12739                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
12740
12741         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
12742            --  ActivityNode::incoming : ActivityEdge
12743
12744            return
12745              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
12746               (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
12747                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
12748
12749         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
12750            --  Action::input : InputPin
12751
12752            return
12753              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
12754               (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
12755                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
12756
12757         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_Action_Input_Value_A_Link_Action then
12758            --  LinkAction::inputValue : InputPin
12759
12760            return
12761              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
12762               (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
12763                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input_Value);
12764
12765         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
12766            --  RedefinableElement::isLeaf : Boolean
12767
12768            return
12769              League.Holders.Booleans.To_Holder
12770               (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
12771                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
12772
12773         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
12774            --  Action::isLocallyReentrant : Boolean
12775
12776            return
12777              League.Holders.Booleans.To_Holder
12778               (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
12779                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
12780
12781         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
12782            --  Action::localPostcondition : Constraint
12783
12784            return
12785              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
12786               (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
12787                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
12788
12789         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
12790            --  Action::localPrecondition : Constraint
12791
12792            return
12793              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
12794               (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
12795                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
12796
12797         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
12798            --  NamedElement::name : String
12799
12800            return
12801              AMF.Holders.To_Holder
12802               (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
12803                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
12804
12805         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
12806            --  NamedElement::nameExpression : StringExpression
12807
12808            return
12809              AMF.Internals.Holders.UML_Holders.To_Holder
12810               (AMF.UML.String_Expressions.UML_String_Expression_Access'
12811                 (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
12812                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
12813
12814         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
12815            --  NamedElement::namespace : Namespace
12816
12817            return
12818              AMF.Internals.Holders.UML_Holders.To_Holder
12819               (AMF.UML.Namespaces.UML_Namespace_Access'
12820                 (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
12821                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
12822
12823         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
12824            --  ActivityNode::outgoing : ActivityEdge
12825
12826            return
12827              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
12828               (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
12829                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
12830
12831         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
12832            --  Action::output : OutputPin
12833
12834            return
12835              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
12836               (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
12837                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
12838
12839         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
12840            --  Element::ownedComment : Comment
12841
12842            return
12843              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
12844               (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
12845                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
12846
12847         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
12848            --  Element::ownedElement : Element
12849
12850            return
12851              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
12852               (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
12853                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
12854
12855         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
12856            --  Element::owner : Element
12857
12858            return
12859              AMF.Internals.Holders.UML_Holders.To_Holder
12860               (AMF.UML.Elements.UML_Element_Access'
12861                 (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
12862                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
12863
12864         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
12865            --  NamedElement::qualifiedName : String
12866
12867            return
12868              AMF.Holders.To_Holder
12869               (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
12870                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
12871
12872         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
12873            --  RedefinableElement::redefinedElement : RedefinableElement
12874
12875            return
12876              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
12877               (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
12878                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
12879
12880         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
12881            --  ActivityNode::redefinedNode : ActivityNode
12882
12883            return
12884              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
12885               (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
12886                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
12887
12888         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
12889            --  RedefinableElement::redefinitionContext : Classifier
12890
12891            return
12892              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
12893               (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
12894                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
12895
12896         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
12897            --  NamedElement::visibility : VisibilityKind
12898
12899            return
12900              AMF.UML.Holders.To_Holder
12901               (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
12902                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
12903
12904         else
12905            raise Program_Error;
12906         end if;
12907      end UML_Create_Link_Action_Get;
12908
12909      ---------------------------------------
12910      -- UML_Create_Link_Object_Action_Get --
12911      ---------------------------------------
12912
12913      function UML_Create_Link_Object_Action_Get return League.Holders.Holder is
12914      begin
12915         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
12916            --  ActivityNode::activity : Activity
12917
12918            return
12919              AMF.Internals.Holders.UML_Holders.To_Holder
12920               (AMF.UML.Activities.UML_Activity_Access'
12921                 (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
12922                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
12923
12924         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
12925            --  NamedElement::clientDependency : Dependency
12926
12927            return
12928              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
12929               (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
12930                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
12931
12932         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
12933            --  Action::context : Classifier
12934
12935            return
12936              AMF.Internals.Holders.UML_Holders.To_Holder
12937               (AMF.UML.Classifiers.UML_Classifier_Access'
12938                 (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
12939                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
12940
12941         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Create_Link_Action_End_Data_A_Create_Link_Action then
12942            --  CreateLinkAction::endData : LinkEndCreationData
12943
12944            return
12945              AMF.UML.Link_End_Creation_Datas.Collections.UML_Link_End_Creation_Data_Collections.Internals.To_Holder
12946               (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
12947                 (AMF.Internals.Helpers.To_Element (Self)).Get_End_Data);
12948
12949         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_Action_End_Data_A_Link_Action then
12950            --  LinkAction::endData : LinkEndData
12951
12952            return
12953              AMF.UML.Link_End_Datas.Collections.UML_Link_End_Data_Collections.Internals.To_Holder
12954               (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
12955                 (AMF.Internals.Helpers.To_Element (Self)).Get_End_Data);
12956
12957         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
12958            --  ExecutableNode::handler : ExceptionHandler
12959
12960            return
12961              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
12962               (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
12963                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
12964
12965         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
12966            --  ActivityNode::inGroup : ActivityGroup
12967
12968            return
12969              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
12970               (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
12971                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
12972
12973         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
12974            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
12975
12976            return
12977              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
12978               (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
12979                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
12980
12981         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
12982            --  ActivityNode::inPartition : ActivityPartition
12983
12984            return
12985              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
12986               (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
12987                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
12988
12989         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
12990            --  ActivityNode::inStructuredNode : StructuredActivityNode
12991
12992            return
12993              AMF.Internals.Holders.UML_Holders.To_Holder
12994               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
12995                 (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
12996                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
12997
12998         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
12999            --  ActivityNode::incoming : ActivityEdge
13000
13001            return
13002              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
13003               (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
13004                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
13005
13006         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
13007            --  Action::input : InputPin
13008
13009            return
13010              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
13011               (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
13012                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
13013
13014         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_Action_Input_Value_A_Link_Action then
13015            --  LinkAction::inputValue : InputPin
13016
13017            return
13018              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
13019               (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
13020                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input_Value);
13021
13022         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
13023            --  RedefinableElement::isLeaf : Boolean
13024
13025            return
13026              League.Holders.Booleans.To_Holder
13027               (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
13028                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
13029
13030         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
13031            --  Action::isLocallyReentrant : Boolean
13032
13033            return
13034              League.Holders.Booleans.To_Holder
13035               (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
13036                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
13037
13038         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
13039            --  Action::localPostcondition : Constraint
13040
13041            return
13042              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
13043               (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
13044                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
13045
13046         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
13047            --  Action::localPrecondition : Constraint
13048
13049            return
13050              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
13051               (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
13052                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
13053
13054         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
13055            --  NamedElement::name : String
13056
13057            return
13058              AMF.Holders.To_Holder
13059               (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
13060                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
13061
13062         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
13063            --  NamedElement::nameExpression : StringExpression
13064
13065            return
13066              AMF.Internals.Holders.UML_Holders.To_Holder
13067               (AMF.UML.String_Expressions.UML_String_Expression_Access'
13068                 (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
13069                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
13070
13071         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
13072            --  NamedElement::namespace : Namespace
13073
13074            return
13075              AMF.Internals.Holders.UML_Holders.To_Holder
13076               (AMF.UML.Namespaces.UML_Namespace_Access'
13077                 (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
13078                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
13079
13080         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
13081            --  ActivityNode::outgoing : ActivityEdge
13082
13083            return
13084              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
13085               (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
13086                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
13087
13088         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
13089            --  Action::output : OutputPin
13090
13091            return
13092              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
13093               (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
13094                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
13095
13096         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
13097            --  Element::ownedComment : Comment
13098
13099            return
13100              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
13101               (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
13102                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
13103
13104         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
13105            --  Element::ownedElement : Element
13106
13107            return
13108              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
13109               (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
13110                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
13111
13112         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
13113            --  Element::owner : Element
13114
13115            return
13116              AMF.Internals.Holders.UML_Holders.To_Holder
13117               (AMF.UML.Elements.UML_Element_Access'
13118                 (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
13119                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
13120
13121         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
13122            --  NamedElement::qualifiedName : String
13123
13124            return
13125              AMF.Holders.To_Holder
13126               (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
13127                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
13128
13129         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
13130            --  RedefinableElement::redefinedElement : RedefinableElement
13131
13132            return
13133              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
13134               (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
13135                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
13136
13137         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
13138            --  ActivityNode::redefinedNode : ActivityNode
13139
13140            return
13141              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
13142               (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
13143                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
13144
13145         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
13146            --  RedefinableElement::redefinitionContext : Classifier
13147
13148            return
13149              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
13150               (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
13151                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
13152
13153         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Create_Link_Object_Action_Result_A_Create_Link_Object_Action then
13154            --  CreateLinkObjectAction::result : OutputPin
13155
13156            return
13157              AMF.Internals.Holders.UML_Holders.To_Holder
13158               (AMF.UML.Output_Pins.UML_Output_Pin_Access'
13159                 (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
13160                   (AMF.Internals.Helpers.To_Element (Self)).Get_Result));
13161
13162         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
13163            --  NamedElement::visibility : VisibilityKind
13164
13165            return
13166              AMF.UML.Holders.To_Holder
13167               (AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
13168                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
13169
13170         else
13171            raise Program_Error;
13172         end if;
13173      end UML_Create_Link_Object_Action_Get;
13174
13175      ----------------------------------
13176      -- UML_Create_Object_Action_Get --
13177      ----------------------------------
13178
13179      function UML_Create_Object_Action_Get return League.Holders.Holder is
13180      begin
13181         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
13182            --  ActivityNode::activity : Activity
13183
13184            return
13185              AMF.Internals.Holders.UML_Holders.To_Holder
13186               (AMF.UML.Activities.UML_Activity_Access'
13187                 (AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
13188                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
13189
13190         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Create_Object_Action_Classifier_A_Create_Object_Action then
13191            --  CreateObjectAction::classifier : Classifier
13192
13193            return
13194              AMF.Internals.Holders.UML_Holders.To_Holder
13195               (AMF.UML.Classifiers.UML_Classifier_Access'
13196                 (AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
13197                   (AMF.Internals.Helpers.To_Element (Self)).Get_Classifier));
13198
13199         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
13200            --  NamedElement::clientDependency : Dependency
13201
13202            return
13203              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
13204               (AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
13205                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
13206
13207         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
13208            --  Action::context : Classifier
13209
13210            return
13211              AMF.Internals.Holders.UML_Holders.To_Holder
13212               (AMF.UML.Classifiers.UML_Classifier_Access'
13213                 (AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
13214                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
13215
13216         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
13217            --  ExecutableNode::handler : ExceptionHandler
13218
13219            return
13220              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
13221               (AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
13222                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
13223
13224         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
13225            --  ActivityNode::inGroup : ActivityGroup
13226
13227            return
13228              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
13229               (AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
13230                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
13231
13232         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
13233            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
13234
13235            return
13236              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
13237               (AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
13238                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
13239
13240         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
13241            --  ActivityNode::inPartition : ActivityPartition
13242
13243            return
13244              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
13245               (AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
13246                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
13247
13248         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
13249            --  ActivityNode::inStructuredNode : StructuredActivityNode
13250
13251            return
13252              AMF.Internals.Holders.UML_Holders.To_Holder
13253               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
13254                 (AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
13255                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
13256
13257         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
13258            --  ActivityNode::incoming : ActivityEdge
13259
13260            return
13261              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
13262               (AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
13263                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
13264
13265         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
13266            --  Action::input : InputPin
13267
13268            return
13269              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
13270               (AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
13271                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
13272
13273         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
13274            --  RedefinableElement::isLeaf : Boolean
13275
13276            return
13277              League.Holders.Booleans.To_Holder
13278               (AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
13279                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
13280
13281         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
13282            --  Action::isLocallyReentrant : Boolean
13283
13284            return
13285              League.Holders.Booleans.To_Holder
13286               (AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
13287                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
13288
13289         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
13290            --  Action::localPostcondition : Constraint
13291
13292            return
13293              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
13294               (AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
13295                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
13296
13297         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
13298            --  Action::localPrecondition : Constraint
13299
13300            return
13301              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
13302               (AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
13303                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
13304
13305         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
13306            --  NamedElement::name : String
13307
13308            return
13309              AMF.Holders.To_Holder
13310               (AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
13311                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
13312
13313         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
13314            --  NamedElement::nameExpression : StringExpression
13315
13316            return
13317              AMF.Internals.Holders.UML_Holders.To_Holder
13318               (AMF.UML.String_Expressions.UML_String_Expression_Access'
13319                 (AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
13320                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
13321
13322         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
13323            --  NamedElement::namespace : Namespace
13324
13325            return
13326              AMF.Internals.Holders.UML_Holders.To_Holder
13327               (AMF.UML.Namespaces.UML_Namespace_Access'
13328                 (AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
13329                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
13330
13331         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
13332            --  ActivityNode::outgoing : ActivityEdge
13333
13334            return
13335              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
13336               (AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
13337                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
13338
13339         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
13340            --  Action::output : OutputPin
13341
13342            return
13343              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
13344               (AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
13345                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
13346
13347         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
13348            --  Element::ownedComment : Comment
13349
13350            return
13351              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
13352               (AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
13353                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
13354
13355         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
13356            --  Element::ownedElement : Element
13357
13358            return
13359              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
13360               (AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
13361                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
13362
13363         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
13364            --  Element::owner : Element
13365
13366            return
13367              AMF.Internals.Holders.UML_Holders.To_Holder
13368               (AMF.UML.Elements.UML_Element_Access'
13369                 (AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
13370                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
13371
13372         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
13373            --  NamedElement::qualifiedName : String
13374
13375            return
13376              AMF.Holders.To_Holder
13377               (AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
13378                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
13379
13380         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
13381            --  RedefinableElement::redefinedElement : RedefinableElement
13382
13383            return
13384              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
13385               (AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
13386                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
13387
13388         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
13389            --  ActivityNode::redefinedNode : ActivityNode
13390
13391            return
13392              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
13393               (AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
13394                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
13395
13396         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
13397            --  RedefinableElement::redefinitionContext : Classifier
13398
13399            return
13400              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
13401               (AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
13402                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
13403
13404         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Create_Object_Action_Result_A_Create_Object_Action then
13405            --  CreateObjectAction::result : OutputPin
13406
13407            return
13408              AMF.Internals.Holders.UML_Holders.To_Holder
13409               (AMF.UML.Output_Pins.UML_Output_Pin_Access'
13410                 (AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
13411                   (AMF.Internals.Helpers.To_Element (Self)).Get_Result));
13412
13413         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
13414            --  NamedElement::visibility : VisibilityKind
13415
13416            return
13417              AMF.UML.Holders.To_Holder
13418               (AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
13419                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
13420
13421         else
13422            raise Program_Error;
13423         end if;
13424      end UML_Create_Object_Action_Get;
13425
13426      ------------------------------------
13427      -- UMLDI_UML_Activity_Diagram_Get --
13428      ------------------------------------
13429
13430      function UMLDI_UML_Activity_Diagram_Get return League.Holders.Holder is
13431      begin
13432         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
13433            --  Shape::bounds : Bounds
13434
13435            return
13436              AMF.DC.Holders.To_Holder
13437               (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13438                 (AMF.Internals.Helpers.To_Element (Self)).Get_Bounds);
13439
13440         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
13441            --  NamedElement::clientDependency : Dependency
13442
13443            return
13444              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
13445               (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13446                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
13447
13448         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Documentation then
13449            --  Diagram::documentation : String
13450
13451            return
13452              League.Holders.To_Holder
13453               (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13454                 (AMF.Internals.Helpers.To_Element (Self)).Get_Documentation);
13455
13456         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Heading_A_Headed_Diagram then
13457            --  UMLDiagram::heading : UMLLabel
13458
13459            return
13460              AMF.Internals.Holders.UMLDI_Holders.To_Holder
13461               (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access'
13462                 (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13463                   (AMF.Internals.Helpers.To_Element (Self)).Get_Heading));
13464
13465         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Activity_Diagram_Is_Activity_Frame then
13466            --  UMLActivityDiagram::isActivityFrame : Boolean
13467
13468            return
13469              League.Holders.Booleans.To_Holder
13470               (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13471                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Activity_Frame);
13472
13473         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Frame then
13474            --  UMLDiagram::isFrame : Boolean
13475
13476            return
13477              League.Holders.Booleans.To_Holder
13478               (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13479                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Frame);
13480
13481         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
13482            --  UMLDiagramElement::isIcon : Boolean
13483
13484            return
13485              League.Holders.Booleans.To_Holder
13486               (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13487                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Icon);
13488
13489         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Iso then
13490            --  UMLDiagram::isIso : Boolean
13491
13492            return
13493              League.Holders.Booleans.To_Holder
13494               (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13495                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Iso);
13496
13497         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
13498            --  UMLDiagramElement::localStyle : UMLStyle
13499
13500            return
13501              AMF.Internals.Holders.UMLDI_Holders.To_Holder
13502               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
13503                 (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13504                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
13505
13506         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
13507            --  DiagramElement::localStyle : Style
13508
13509            return
13510              AMF.Internals.Holders.DI_Holders.To_Holder
13511               (AMF.DI.Styles.DI_Style_Access'
13512                 (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13513                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
13514
13515         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Activity_Diagram_Model_Element_A_Uml_Diagram_Element then
13516            --  UMLActivityDiagram::modelElement : Activity
13517
13518            return
13519              AMF.Internals.Holders.UML_Holders.To_Holder
13520               (AMF.UML.Activities.UML_Activity_Access'
13521                 (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13522                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
13523
13524         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Behavior_Diagram_Model_Element_A_Uml_Diagram_Element then
13525            --  UMLBehaviorDiagram::modelElement : Behavior
13526
13527            return
13528              AMF.Internals.Holders.UML_Holders.To_Holder
13529               (AMF.UML.Behaviors.UML_Behavior_Access'
13530                 (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13531                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
13532
13533         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element then
13534            --  UMLDiagramElement::modelElement : Element
13535
13536            return
13537              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
13538               (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13539                 (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element);
13540
13541         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Model_Element_A_Diagram_Element then
13542            --  DiagramElement::modelElement : Element
13543
13544            return
13545              AMF.Internals.Holders.CMOF_Holders.To_Holder
13546               (AMF.CMOF.Elements.CMOF_Element_Access'
13547                 (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13548                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
13549
13550         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
13551            --  NamedElement::name : String
13552
13553            return
13554              AMF.Holders.To_Holder
13555               (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13556                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
13557
13558         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Name then
13559            --  Diagram::name : String
13560
13561            return
13562              League.Holders.To_Holder
13563               (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13564                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
13565
13566         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
13567            --  NamedElement::nameExpression : StringExpression
13568
13569            return
13570              AMF.Internals.Holders.UML_Holders.To_Holder
13571               (AMF.UML.String_Expressions.UML_String_Expression_Access'
13572                 (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13573                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
13574
13575         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
13576            --  NamedElement::namespace : Namespace
13577
13578            return
13579              AMF.Internals.Holders.UML_Holders.To_Holder
13580               (AMF.UML.Namespaces.UML_Namespace_Access'
13581                 (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13582                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
13583
13584         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
13585            --  Element::ownedComment : Comment
13586
13587            return
13588              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
13589               (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13590                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
13591
13592         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
13593            --  Element::ownedElement : Element
13594
13595            return
13596              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
13597               (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13598                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
13599
13600         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element then
13601            --  UMLDiagramElement::ownedElement : UMLDiagramElement
13602
13603            return
13604              AMF.UMLDI.UML_Diagram_Elements.Collections.UMLDI_UML_Diagram_Element_Collections.Internals.To_Holder
13605               (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13606                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
13607
13608         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element then
13609            --  DiagramElement::ownedElement : DiagramElement
13610
13611            return
13612              AMF.DI.Diagram_Elements.Collections.DI_Diagram_Element_Collections.Internals.To_Holder
13613               (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13614                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
13615
13616         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
13617            --  Element::owner : Element
13618
13619            return
13620              AMF.Internals.Holders.UML_Holders.To_Holder
13621               (AMF.UML.Elements.UML_Element_Access'
13622                 (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13623                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
13624
13625         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
13626            --  UMLDiagramElement::owningElement : UMLDiagramElement
13627
13628            return
13629              AMF.Internals.Holders.UMLDI_Holders.To_Holder
13630               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access'
13631                 (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13632                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
13633
13634         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owning_Element_Diagram_Element_Owned_Element then
13635            --  DiagramElement::owningElement : DiagramElement
13636
13637            return
13638              AMF.Internals.Holders.DI_Holders.To_Holder
13639               (AMF.DI.Diagram_Elements.DI_Diagram_Element_Access'
13640                 (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13641                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
13642
13643         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
13644            --  ParameterableElement::owningTemplateParameter : TemplateParameter
13645
13646            return
13647              AMF.Internals.Holders.UML_Holders.To_Holder
13648               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
13649                 (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13650                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
13651
13652         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
13653            --  NamedElement::qualifiedName : String
13654
13655            return
13656              AMF.Holders.To_Holder
13657               (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13658                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
13659
13660         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Resolution then
13661            --  Diagram::resolution : Real
13662
13663            return
13664              AMF.Holders.Reals.To_Holder
13665               (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13666                 (AMF.Internals.Helpers.To_Element (Self)).Get_Resolution);
13667
13668         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
13669            --  UMLDiagramElement::sharedStyle : UMLStyle
13670
13671            return
13672              AMF.Internals.Holders.UMLDI_Holders.To_Holder
13673               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
13674                 (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13675                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
13676
13677         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
13678            --  DiagramElement::sharedStyle : Style
13679
13680            return
13681              AMF.Internals.Holders.DI_Holders.To_Holder
13682               (AMF.DI.Styles.DI_Style_Access'
13683                 (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13684                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
13685
13686         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
13687            --  ParameterableElement::templateParameter : TemplateParameter
13688
13689            return
13690              AMF.Internals.Holders.UML_Holders.To_Holder
13691               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
13692                 (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13693                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
13694
13695         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
13696            --  NamedElement::visibility : VisibilityKind
13697
13698            return
13699              AMF.UML.Holders.To_Holder
13700               (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13701                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
13702
13703         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
13704            --  PackageableElement::visibility : VisibilityKind
13705
13706            return
13707              AMF.UML.Holders.Visibility_Kinds.To_Holder
13708               (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
13709                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
13710
13711         else
13712            raise Program_Error;
13713         end if;
13714      end UMLDI_UML_Activity_Diagram_Get;
13715
13716      -----------------------------------------
13717      -- UMLDI_UML_Association_End_Label_Get --
13718      -----------------------------------------
13719
13720      function UMLDI_UML_Association_End_Label_Get return League.Holders.Holder is
13721      begin
13722         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
13723            --  Shape::bounds : Bounds
13724
13725            return
13726              AMF.DC.Holders.To_Holder
13727               (AMF.UMLDI.UML_Association_End_Labels.UMLDI_UML_Association_End_Label_Access
13728                 (AMF.Internals.Helpers.To_Element (Self)).Get_Bounds);
13729
13730         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
13731            --  UMLDiagramElement::isIcon : Boolean
13732
13733            return
13734              League.Holders.Booleans.To_Holder
13735               (AMF.UMLDI.UML_Association_End_Labels.UMLDI_UML_Association_End_Label_Access
13736                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Icon);
13737
13738         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
13739            --  UMLDiagramElement::localStyle : UMLStyle
13740
13741            return
13742              AMF.Internals.Holders.UMLDI_Holders.To_Holder
13743               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
13744                 (AMF.UMLDI.UML_Association_End_Labels.UMLDI_UML_Association_End_Label_Access
13745                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
13746
13747         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
13748            --  DiagramElement::localStyle : Style
13749
13750            return
13751              AMF.Internals.Holders.DI_Holders.To_Holder
13752               (AMF.DI.Styles.DI_Style_Access'
13753                 (AMF.UMLDI.UML_Association_End_Labels.UMLDI_UML_Association_End_Label_Access
13754                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
13755
13756         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Association_End_Label_Model_Element_A_Uml_Diagram_Element then
13757            --  UMLAssociationEndLabel::modelElement : Property
13758
13759            return
13760              AMF.Internals.Holders.UML_Holders.To_Holder
13761               (AMF.UML.Properties.UML_Property_Access'
13762                 (AMF.UMLDI.UML_Association_End_Labels.UMLDI_UML_Association_End_Label_Access
13763                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
13764
13765         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element then
13766            --  UMLDiagramElement::modelElement : Element
13767
13768            return
13769              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
13770               (AMF.UMLDI.UML_Association_End_Labels.UMLDI_UML_Association_End_Label_Access
13771                 (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element);
13772
13773         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Model_Element_A_Diagram_Element then
13774            --  DiagramElement::modelElement : Element
13775
13776            return
13777              AMF.Internals.Holders.CMOF_Holders.To_Holder
13778               (AMF.CMOF.Elements.CMOF_Element_Access'
13779                 (AMF.UMLDI.UML_Association_End_Labels.UMLDI_UML_Association_End_Label_Access
13780                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
13781
13782         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element then
13783            --  UMLDiagramElement::ownedElement : UMLDiagramElement
13784
13785            return
13786              AMF.UMLDI.UML_Diagram_Elements.Collections.UMLDI_UML_Diagram_Element_Collections.Internals.To_Holder
13787               (AMF.UMLDI.UML_Association_End_Labels.UMLDI_UML_Association_End_Label_Access
13788                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
13789
13790         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element then
13791            --  DiagramElement::ownedElement : DiagramElement
13792
13793            return
13794              AMF.DI.Diagram_Elements.Collections.DI_Diagram_Element_Collections.Internals.To_Holder
13795               (AMF.UMLDI.UML_Association_End_Labels.UMLDI_UML_Association_End_Label_Access
13796                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
13797
13798         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
13799            --  UMLDiagramElement::owningElement : UMLDiagramElement
13800
13801            return
13802              AMF.Internals.Holders.UMLDI_Holders.To_Holder
13803               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access'
13804                 (AMF.UMLDI.UML_Association_End_Labels.UMLDI_UML_Association_End_Label_Access
13805                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
13806
13807         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owning_Element_Diagram_Element_Owned_Element then
13808            --  DiagramElement::owningElement : DiagramElement
13809
13810            return
13811              AMF.Internals.Holders.DI_Holders.To_Holder
13812               (AMF.DI.Diagram_Elements.DI_Diagram_Element_Access'
13813                 (AMF.UMLDI.UML_Association_End_Labels.UMLDI_UML_Association_End_Label_Access
13814                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
13815
13816         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
13817            --  UMLDiagramElement::sharedStyle : UMLStyle
13818
13819            return
13820              AMF.Internals.Holders.UMLDI_Holders.To_Holder
13821               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
13822                 (AMF.UMLDI.UML_Association_End_Labels.UMLDI_UML_Association_End_Label_Access
13823                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
13824
13825         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
13826            --  DiagramElement::sharedStyle : Style
13827
13828            return
13829              AMF.Internals.Holders.DI_Holders.To_Holder
13830               (AMF.DI.Styles.DI_Style_Access'
13831                 (AMF.UMLDI.UML_Association_End_Labels.UMLDI_UML_Association_End_Label_Access
13832                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
13833
13834         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Label_Text then
13835            --  UMLLabel::text : String
13836
13837            return
13838              League.Holders.To_Holder
13839               (AMF.UMLDI.UML_Association_End_Labels.UMLDI_UML_Association_End_Label_Access
13840                 (AMF.Internals.Helpers.To_Element (Self)).Get_Text);
13841
13842         else
13843            raise Program_Error;
13844         end if;
13845      end UMLDI_UML_Association_End_Label_Get;
13846
13847      ----------------------------------------------------------
13848      -- UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Get --
13849      ----------------------------------------------------------
13850
13851      function UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Get return League.Holders.Holder is
13852      begin
13853         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
13854            --  Shape::bounds : Bounds
13855
13856            return
13857              AMF.DC.Holders.To_Holder
13858               (AMF.UMLDI.UML_Association_Or_Connector_Or_Link_Shapes.UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Access
13859                 (AMF.Internals.Helpers.To_Element (Self)).Get_Bounds);
13860
13861         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
13862            --  UMLDiagramElement::isIcon : Boolean
13863
13864            return
13865              League.Holders.Booleans.To_Holder
13866               (AMF.UMLDI.UML_Association_Or_Connector_Or_Link_Shapes.UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Access
13867                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Icon);
13868
13869         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Kind then
13870            --  UMLAssociationOrConnectorOrLinkShape::kind : UMLAssociationOrConnectorOrLinkShapeKind
13871
13872            return
13873              AMF.UMLDI.Holders.UML_Association_Or_Connector_Or_Link_Shape_Kinds.To_Holder
13874               (AMF.UMLDI.UML_Association_Or_Connector_Or_Link_Shapes.UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Access
13875                 (AMF.Internals.Helpers.To_Element (Self)).Get_Kind);
13876
13877         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
13878            --  UMLDiagramElement::localStyle : UMLStyle
13879
13880            return
13881              AMF.Internals.Holders.UMLDI_Holders.To_Holder
13882               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
13883                 (AMF.UMLDI.UML_Association_Or_Connector_Or_Link_Shapes.UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Access
13884                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
13885
13886         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
13887            --  DiagramElement::localStyle : Style
13888
13889            return
13890              AMF.Internals.Holders.DI_Holders.To_Holder
13891               (AMF.DI.Styles.DI_Style_Access'
13892                 (AMF.UMLDI.UML_Association_Or_Connector_Or_Link_Shapes.UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Access
13893                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
13894
13895         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element then
13896            --  UMLDiagramElement::modelElement : Element
13897
13898            return
13899              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
13900               (AMF.UMLDI.UML_Association_Or_Connector_Or_Link_Shapes.UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Access
13901                 (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element);
13902
13903         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Model_Element_A_Diagram_Element then
13904            --  DiagramElement::modelElement : Element
13905
13906            return
13907              AMF.Internals.Holders.CMOF_Holders.To_Holder
13908               (AMF.CMOF.Elements.CMOF_Element_Access'
13909                 (AMF.UMLDI.UML_Association_Or_Connector_Or_Link_Shapes.UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Access
13910                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
13911
13912         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element then
13913            --  UMLDiagramElement::ownedElement : UMLDiagramElement
13914
13915            return
13916              AMF.UMLDI.UML_Diagram_Elements.Collections.UMLDI_UML_Diagram_Element_Collections.Internals.To_Holder
13917               (AMF.UMLDI.UML_Association_Or_Connector_Or_Link_Shapes.UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Access
13918                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
13919
13920         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element then
13921            --  DiagramElement::ownedElement : DiagramElement
13922
13923            return
13924              AMF.DI.Diagram_Elements.Collections.DI_Diagram_Element_Collections.Internals.To_Holder
13925               (AMF.UMLDI.UML_Association_Or_Connector_Or_Link_Shapes.UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Access
13926                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
13927
13928         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
13929            --  UMLDiagramElement::owningElement : UMLDiagramElement
13930
13931            return
13932              AMF.Internals.Holders.UMLDI_Holders.To_Holder
13933               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access'
13934                 (AMF.UMLDI.UML_Association_Or_Connector_Or_Link_Shapes.UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Access
13935                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
13936
13937         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owning_Element_Diagram_Element_Owned_Element then
13938            --  DiagramElement::owningElement : DiagramElement
13939
13940            return
13941              AMF.Internals.Holders.DI_Holders.To_Holder
13942               (AMF.DI.Diagram_Elements.DI_Diagram_Element_Access'
13943                 (AMF.UMLDI.UML_Association_Or_Connector_Or_Link_Shapes.UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Access
13944                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
13945
13946         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
13947            --  UMLDiagramElement::sharedStyle : UMLStyle
13948
13949            return
13950              AMF.Internals.Holders.UMLDI_Holders.To_Holder
13951               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
13952                 (AMF.UMLDI.UML_Association_Or_Connector_Or_Link_Shapes.UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Access
13953                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
13954
13955         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
13956            --  DiagramElement::sharedStyle : Style
13957
13958            return
13959              AMF.Internals.Holders.DI_Holders.To_Holder
13960               (AMF.DI.Styles.DI_Style_Access'
13961                 (AMF.UMLDI.UML_Association_Or_Connector_Or_Link_Shapes.UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Access
13962                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
13963
13964         else
13965            raise Program_Error;
13966         end if;
13967      end UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Get;
13968
13969      ---------------------------------
13970      -- UMLDI_UML_Class_Diagram_Get --
13971      ---------------------------------
13972
13973      function UMLDI_UML_Class_Diagram_Get return League.Holders.Holder is
13974      begin
13975         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
13976            --  Shape::bounds : Bounds
13977
13978            return
13979              AMF.DC.Holders.To_Holder
13980               (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
13981                 (AMF.Internals.Helpers.To_Element (Self)).Get_Bounds);
13982
13983         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
13984            --  NamedElement::clientDependency : Dependency
13985
13986            return
13987              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
13988               (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
13989                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
13990
13991         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Documentation then
13992            --  Diagram::documentation : String
13993
13994            return
13995              League.Holders.To_Holder
13996               (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
13997                 (AMF.Internals.Helpers.To_Element (Self)).Get_Documentation);
13998
13999         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Heading_A_Headed_Diagram then
14000            --  UMLDiagram::heading : UMLLabel
14001
14002            return
14003              AMF.Internals.Holders.UMLDI_Holders.To_Holder
14004               (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access'
14005                 (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
14006                   (AMF.Internals.Helpers.To_Element (Self)).Get_Heading));
14007
14008         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Class_Or_Composite_Structure_Diagram_Is_Association_Dot_Shown then
14009            --  UMLClassOrCompositeStructureDiagram::isAssociationDotShown : Boolean
14010
14011            return
14012              League.Holders.Booleans.To_Holder
14013               (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
14014                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Association_Dot_Shown);
14015
14016         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Frame then
14017            --  UMLDiagram::isFrame : Boolean
14018
14019            return
14020              League.Holders.Booleans.To_Holder
14021               (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
14022                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Frame);
14023
14024         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
14025            --  UMLDiagramElement::isIcon : Boolean
14026
14027            return
14028              League.Holders.Booleans.To_Holder
14029               (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
14030                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Icon);
14031
14032         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Iso then
14033            --  UMLDiagram::isIso : Boolean
14034
14035            return
14036              League.Holders.Booleans.To_Holder
14037               (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
14038                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Iso);
14039
14040         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
14041            --  UMLDiagramElement::localStyle : UMLStyle
14042
14043            return
14044              AMF.Internals.Holders.UMLDI_Holders.To_Holder
14045               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
14046                 (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
14047                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
14048
14049         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
14050            --  DiagramElement::localStyle : Style
14051
14052            return
14053              AMF.Internals.Holders.DI_Holders.To_Holder
14054               (AMF.DI.Styles.DI_Style_Access'
14055                 (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
14056                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
14057
14058         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element then
14059            --  UMLDiagramElement::modelElement : Element
14060
14061            return
14062              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
14063               (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
14064                 (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element);
14065
14066         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Model_Element_A_Diagram_Element then
14067            --  DiagramElement::modelElement : Element
14068
14069            return
14070              AMF.Internals.Holders.CMOF_Holders.To_Holder
14071               (AMF.CMOF.Elements.CMOF_Element_Access'
14072                 (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
14073                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
14074
14075         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
14076            --  NamedElement::name : String
14077
14078            return
14079              AMF.Holders.To_Holder
14080               (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
14081                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
14082
14083         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Name then
14084            --  Diagram::name : String
14085
14086            return
14087              League.Holders.To_Holder
14088               (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
14089                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
14090
14091         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
14092            --  NamedElement::nameExpression : StringExpression
14093
14094            return
14095              AMF.Internals.Holders.UML_Holders.To_Holder
14096               (AMF.UML.String_Expressions.UML_String_Expression_Access'
14097                 (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
14098                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
14099
14100         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
14101            --  NamedElement::namespace : Namespace
14102
14103            return
14104              AMF.Internals.Holders.UML_Holders.To_Holder
14105               (AMF.UML.Namespaces.UML_Namespace_Access'
14106                 (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
14107                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
14108
14109         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Class_Or_Composite_Structure_Diagram_Navigability_Notation then
14110            --  UMLClassOrCompositeStructureDiagram::navigabilityNotation : UMLNavigabilityNotationKind
14111
14112            return
14113              AMF.UMLDI.Holders.UML_Navigability_Notation_Kinds.To_Holder
14114               (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
14115                 (AMF.Internals.Helpers.To_Element (Self)).Get_Navigability_Notation);
14116
14117         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Class_Or_Composite_Structure_Diagram_Non_Navigability_Notation then
14118            --  UMLClassOrCompositeStructureDiagram::nonNavigabilityNotation : UMLNavigabilityNotationKind
14119
14120            return
14121              AMF.UMLDI.Holders.UML_Navigability_Notation_Kinds.To_Holder
14122               (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
14123                 (AMF.Internals.Helpers.To_Element (Self)).Get_Non_Navigability_Notation);
14124
14125         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
14126            --  Element::ownedComment : Comment
14127
14128            return
14129              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
14130               (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
14131                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
14132
14133         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
14134            --  Element::ownedElement : Element
14135
14136            return
14137              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
14138               (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
14139                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
14140
14141         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element then
14142            --  UMLDiagramElement::ownedElement : UMLDiagramElement
14143
14144            return
14145              AMF.UMLDI.UML_Diagram_Elements.Collections.UMLDI_UML_Diagram_Element_Collections.Internals.To_Holder
14146               (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
14147                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
14148
14149         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element then
14150            --  DiagramElement::ownedElement : DiagramElement
14151
14152            return
14153              AMF.DI.Diagram_Elements.Collections.DI_Diagram_Element_Collections.Internals.To_Holder
14154               (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
14155                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
14156
14157         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
14158            --  Element::owner : Element
14159
14160            return
14161              AMF.Internals.Holders.UML_Holders.To_Holder
14162               (AMF.UML.Elements.UML_Element_Access'
14163                 (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
14164                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
14165
14166         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
14167            --  UMLDiagramElement::owningElement : UMLDiagramElement
14168
14169            return
14170              AMF.Internals.Holders.UMLDI_Holders.To_Holder
14171               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access'
14172                 (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
14173                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
14174
14175         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owning_Element_Diagram_Element_Owned_Element then
14176            --  DiagramElement::owningElement : DiagramElement
14177
14178            return
14179              AMF.Internals.Holders.DI_Holders.To_Holder
14180               (AMF.DI.Diagram_Elements.DI_Diagram_Element_Access'
14181                 (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
14182                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
14183
14184         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
14185            --  ParameterableElement::owningTemplateParameter : TemplateParameter
14186
14187            return
14188              AMF.Internals.Holders.UML_Holders.To_Holder
14189               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
14190                 (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
14191                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
14192
14193         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
14194            --  NamedElement::qualifiedName : String
14195
14196            return
14197              AMF.Holders.To_Holder
14198               (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
14199                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
14200
14201         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Resolution then
14202            --  Diagram::resolution : Real
14203
14204            return
14205              AMF.Holders.Reals.To_Holder
14206               (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
14207                 (AMF.Internals.Helpers.To_Element (Self)).Get_Resolution);
14208
14209         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
14210            --  UMLDiagramElement::sharedStyle : UMLStyle
14211
14212            return
14213              AMF.Internals.Holders.UMLDI_Holders.To_Holder
14214               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
14215                 (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
14216                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
14217
14218         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
14219            --  DiagramElement::sharedStyle : Style
14220
14221            return
14222              AMF.Internals.Holders.DI_Holders.To_Holder
14223               (AMF.DI.Styles.DI_Style_Access'
14224                 (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
14225                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
14226
14227         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
14228            --  ParameterableElement::templateParameter : TemplateParameter
14229
14230            return
14231              AMF.Internals.Holders.UML_Holders.To_Holder
14232               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
14233                 (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
14234                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
14235
14236         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
14237            --  NamedElement::visibility : VisibilityKind
14238
14239            return
14240              AMF.UML.Holders.To_Holder
14241               (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
14242                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
14243
14244         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
14245            --  PackageableElement::visibility : VisibilityKind
14246
14247            return
14248              AMF.UML.Holders.Visibility_Kinds.To_Holder
14249               (AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
14250                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
14251
14252         else
14253            raise Program_Error;
14254         end if;
14255      end UMLDI_UML_Class_Diagram_Get;
14256
14257      ------------------------------------
14258      -- UMLDI_UML_Classifier_Shape_Get --
14259      ------------------------------------
14260
14261      function UMLDI_UML_Classifier_Shape_Get return League.Holders.Holder is
14262      begin
14263         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
14264            --  Shape::bounds : Bounds
14265
14266            return
14267              AMF.DC.Holders.To_Holder
14268               (AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access
14269                 (AMF.Internals.Helpers.To_Element (Self)).Get_Bounds);
14270
14271         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Compartmentable_Shape_Compartment_A_Compartmented_Shape then
14272            --  UMLCompartmentableShape::compartment : UMLCompartment
14273
14274            return
14275              AMF.UMLDI.UML_Compartments.Collections.UMLDI_UML_Compartment_Collections.Internals.To_Holder
14276               (AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access
14277                 (AMF.Internals.Helpers.To_Element (Self)).Get_Compartment);
14278
14279         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Classifier_Shape_Is_Double_Sided then
14280            --  UMLClassifierShape::isDoubleSided : Boolean
14281
14282            return
14283              League.Holders.Booleans.To_Holder
14284               (AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access
14285                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Double_Sided);
14286
14287         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
14288            --  UMLDiagramElement::isIcon : Boolean
14289
14290            return
14291              League.Holders.Booleans.To_Holder
14292               (AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access
14293                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Icon);
14294
14295         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Classifier_Shape_Is_Indent_For_Visibility then
14296            --  UMLClassifierShape::isIndentForVisibility : Boolean
14297
14298            return
14299              League.Holders.Booleans.To_Holder
14300               (AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access
14301                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Indent_For_Visibility);
14302
14303         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
14304            --  UMLDiagramElement::localStyle : UMLStyle
14305
14306            return
14307              AMF.Internals.Holders.UMLDI_Holders.To_Holder
14308               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
14309                 (AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access
14310                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
14311
14312         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
14313            --  DiagramElement::localStyle : Style
14314
14315            return
14316              AMF.Internals.Holders.DI_Holders.To_Holder
14317               (AMF.DI.Styles.DI_Style_Access'
14318                 (AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access
14319                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
14320
14321         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Classifier_Shape_Model_Element_A_Uml_Diagram_Element then
14322            --  UMLClassifierShape::modelElement : Classifier
14323
14324            return
14325              AMF.Internals.Holders.UML_Holders.To_Holder
14326               (AMF.UML.Classifiers.UML_Classifier_Access'
14327                 (AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access
14328                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
14329
14330         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element then
14331            --  UMLDiagramElement::modelElement : Element
14332
14333            return
14334              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
14335               (AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access
14336                 (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element);
14337
14338         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Model_Element_A_Diagram_Element then
14339            --  DiagramElement::modelElement : Element
14340
14341            return
14342              AMF.Internals.Holders.CMOF_Holders.To_Holder
14343               (AMF.CMOF.Elements.CMOF_Element_Access'
14344                 (AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access
14345                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
14346
14347         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element then
14348            --  UMLDiagramElement::ownedElement : UMLDiagramElement
14349
14350            return
14351              AMF.UMLDI.UML_Diagram_Elements.Collections.UMLDI_UML_Diagram_Element_Collections.Internals.To_Holder
14352               (AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access
14353                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
14354
14355         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element then
14356            --  DiagramElement::ownedElement : DiagramElement
14357
14358            return
14359              AMF.DI.Diagram_Elements.Collections.DI_Diagram_Element_Collections.Internals.To_Holder
14360               (AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access
14361                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
14362
14363         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
14364            --  UMLDiagramElement::owningElement : UMLDiagramElement
14365
14366            return
14367              AMF.Internals.Holders.UMLDI_Holders.To_Holder
14368               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access'
14369                 (AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access
14370                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
14371
14372         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owning_Element_Diagram_Element_Owned_Element then
14373            --  DiagramElement::owningElement : DiagramElement
14374
14375            return
14376              AMF.Internals.Holders.DI_Holders.To_Holder
14377               (AMF.DI.Diagram_Elements.DI_Diagram_Element_Access'
14378                 (AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access
14379                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
14380
14381         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
14382            --  UMLDiagramElement::sharedStyle : UMLStyle
14383
14384            return
14385              AMF.Internals.Holders.UMLDI_Holders.To_Holder
14386               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
14387                 (AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access
14388                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
14389
14390         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
14391            --  DiagramElement::sharedStyle : Style
14392
14393            return
14394              AMF.Internals.Holders.DI_Holders.To_Holder
14395               (AMF.DI.Styles.DI_Style_Access'
14396                 (AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access
14397                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
14398
14399         else
14400            raise Program_Error;
14401         end if;
14402      end UMLDI_UML_Classifier_Shape_Get;
14403
14404      -------------------------------
14405      -- UMLDI_UML_Compartment_Get --
14406      -------------------------------
14407
14408      function UMLDI_UML_Compartment_Get return League.Holders.Holder is
14409      begin
14410         if Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Compartment_Element_In_Compartment_A_Owning_Compartment then
14411            --  UMLCompartment::elementInCompartment : UMLDiagramElement
14412
14413            return
14414              AMF.UMLDI.UML_Diagram_Elements.Collections.UMLDI_UML_Diagram_Element_Collections.Internals.To_Holder
14415               (AMF.UMLDI.UML_Compartments.UMLDI_UML_Compartment_Access
14416                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_In_Compartment);
14417
14418         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
14419            --  UMLDiagramElement::isIcon : Boolean
14420
14421            return
14422              League.Holders.Booleans.To_Holder
14423               (AMF.UMLDI.UML_Compartments.UMLDI_UML_Compartment_Access
14424                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Icon);
14425
14426         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
14427            --  UMLDiagramElement::localStyle : UMLStyle
14428
14429            return
14430              AMF.Internals.Holders.UMLDI_Holders.To_Holder
14431               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
14432                 (AMF.UMLDI.UML_Compartments.UMLDI_UML_Compartment_Access
14433                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
14434
14435         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
14436            --  DiagramElement::localStyle : Style
14437
14438            return
14439              AMF.Internals.Holders.DI_Holders.To_Holder
14440               (AMF.DI.Styles.DI_Style_Access'
14441                 (AMF.UMLDI.UML_Compartments.UMLDI_UML_Compartment_Access
14442                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
14443
14444         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element then
14445            --  UMLDiagramElement::modelElement : Element
14446
14447            return
14448              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
14449               (AMF.UMLDI.UML_Compartments.UMLDI_UML_Compartment_Access
14450                 (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element);
14451
14452         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Model_Element_A_Diagram_Element then
14453            --  DiagramElement::modelElement : Element
14454
14455            return
14456              AMF.Internals.Holders.CMOF_Holders.To_Holder
14457               (AMF.CMOF.Elements.CMOF_Element_Access'
14458                 (AMF.UMLDI.UML_Compartments.UMLDI_UML_Compartment_Access
14459                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
14460
14461         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element then
14462            --  UMLDiagramElement::ownedElement : UMLDiagramElement
14463
14464            return
14465              AMF.UMLDI.UML_Diagram_Elements.Collections.UMLDI_UML_Diagram_Element_Collections.Internals.To_Holder
14466               (AMF.UMLDI.UML_Compartments.UMLDI_UML_Compartment_Access
14467                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
14468
14469         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element then
14470            --  DiagramElement::ownedElement : DiagramElement
14471
14472            return
14473              AMF.DI.Diagram_Elements.Collections.DI_Diagram_Element_Collections.Internals.To_Holder
14474               (AMF.UMLDI.UML_Compartments.UMLDI_UML_Compartment_Access
14475                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
14476
14477         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
14478            --  UMLDiagramElement::owningElement : UMLDiagramElement
14479
14480            return
14481              AMF.Internals.Holders.UMLDI_Holders.To_Holder
14482               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access'
14483                 (AMF.UMLDI.UML_Compartments.UMLDI_UML_Compartment_Access
14484                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
14485
14486         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owning_Element_Diagram_Element_Owned_Element then
14487            --  DiagramElement::owningElement : DiagramElement
14488
14489            return
14490              AMF.Internals.Holders.DI_Holders.To_Holder
14491               (AMF.DI.Diagram_Elements.DI_Diagram_Element_Access'
14492                 (AMF.UMLDI.UML_Compartments.UMLDI_UML_Compartment_Access
14493                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
14494
14495         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
14496            --  UMLDiagramElement::sharedStyle : UMLStyle
14497
14498            return
14499              AMF.Internals.Holders.UMLDI_Holders.To_Holder
14500               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
14501                 (AMF.UMLDI.UML_Compartments.UMLDI_UML_Compartment_Access
14502                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
14503
14504         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
14505            --  DiagramElement::sharedStyle : Style
14506
14507            return
14508              AMF.Internals.Holders.DI_Holders.To_Holder
14509               (AMF.DI.Styles.DI_Style_Access'
14510                 (AMF.UMLDI.UML_Compartments.UMLDI_UML_Compartment_Access
14511                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
14512
14513         else
14514            raise Program_Error;
14515         end if;
14516      end UMLDI_UML_Compartment_Get;
14517
14518      -----------------------------------------
14519      -- UMLDI_UML_Compartmentable_Shape_Get --
14520      -----------------------------------------
14521
14522      function UMLDI_UML_Compartmentable_Shape_Get return League.Holders.Holder is
14523      begin
14524         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
14525            --  Shape::bounds : Bounds
14526
14527            return
14528              AMF.DC.Holders.To_Holder
14529               (AMF.UMLDI.UML_Compartmentable_Shapes.UMLDI_UML_Compartmentable_Shape_Access
14530                 (AMF.Internals.Helpers.To_Element (Self)).Get_Bounds);
14531
14532         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Compartmentable_Shape_Compartment_A_Compartmented_Shape then
14533            --  UMLCompartmentableShape::compartment : UMLCompartment
14534
14535            return
14536              AMF.UMLDI.UML_Compartments.Collections.UMLDI_UML_Compartment_Collections.Internals.To_Holder
14537               (AMF.UMLDI.UML_Compartmentable_Shapes.UMLDI_UML_Compartmentable_Shape_Access
14538                 (AMF.Internals.Helpers.To_Element (Self)).Get_Compartment);
14539
14540         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
14541            --  UMLDiagramElement::isIcon : Boolean
14542
14543            return
14544              League.Holders.Booleans.To_Holder
14545               (AMF.UMLDI.UML_Compartmentable_Shapes.UMLDI_UML_Compartmentable_Shape_Access
14546                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Icon);
14547
14548         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
14549            --  UMLDiagramElement::localStyle : UMLStyle
14550
14551            return
14552              AMF.Internals.Holders.UMLDI_Holders.To_Holder
14553               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
14554                 (AMF.UMLDI.UML_Compartmentable_Shapes.UMLDI_UML_Compartmentable_Shape_Access
14555                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
14556
14557         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
14558            --  DiagramElement::localStyle : Style
14559
14560            return
14561              AMF.Internals.Holders.DI_Holders.To_Holder
14562               (AMF.DI.Styles.DI_Style_Access'
14563                 (AMF.UMLDI.UML_Compartmentable_Shapes.UMLDI_UML_Compartmentable_Shape_Access
14564                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
14565
14566         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element then
14567            --  UMLDiagramElement::modelElement : Element
14568
14569            return
14570              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
14571               (AMF.UMLDI.UML_Compartmentable_Shapes.UMLDI_UML_Compartmentable_Shape_Access
14572                 (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element);
14573
14574         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Model_Element_A_Diagram_Element then
14575            --  DiagramElement::modelElement : Element
14576
14577            return
14578              AMF.Internals.Holders.CMOF_Holders.To_Holder
14579               (AMF.CMOF.Elements.CMOF_Element_Access'
14580                 (AMF.UMLDI.UML_Compartmentable_Shapes.UMLDI_UML_Compartmentable_Shape_Access
14581                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
14582
14583         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element then
14584            --  UMLDiagramElement::ownedElement : UMLDiagramElement
14585
14586            return
14587              AMF.UMLDI.UML_Diagram_Elements.Collections.UMLDI_UML_Diagram_Element_Collections.Internals.To_Holder
14588               (AMF.UMLDI.UML_Compartmentable_Shapes.UMLDI_UML_Compartmentable_Shape_Access
14589                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
14590
14591         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element then
14592            --  DiagramElement::ownedElement : DiagramElement
14593
14594            return
14595              AMF.DI.Diagram_Elements.Collections.DI_Diagram_Element_Collections.Internals.To_Holder
14596               (AMF.UMLDI.UML_Compartmentable_Shapes.UMLDI_UML_Compartmentable_Shape_Access
14597                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
14598
14599         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
14600            --  UMLDiagramElement::owningElement : UMLDiagramElement
14601
14602            return
14603              AMF.Internals.Holders.UMLDI_Holders.To_Holder
14604               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access'
14605                 (AMF.UMLDI.UML_Compartmentable_Shapes.UMLDI_UML_Compartmentable_Shape_Access
14606                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
14607
14608         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owning_Element_Diagram_Element_Owned_Element then
14609            --  DiagramElement::owningElement : DiagramElement
14610
14611            return
14612              AMF.Internals.Holders.DI_Holders.To_Holder
14613               (AMF.DI.Diagram_Elements.DI_Diagram_Element_Access'
14614                 (AMF.UMLDI.UML_Compartmentable_Shapes.UMLDI_UML_Compartmentable_Shape_Access
14615                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
14616
14617         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
14618            --  UMLDiagramElement::sharedStyle : UMLStyle
14619
14620            return
14621              AMF.Internals.Holders.UMLDI_Holders.To_Holder
14622               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
14623                 (AMF.UMLDI.UML_Compartmentable_Shapes.UMLDI_UML_Compartmentable_Shape_Access
14624                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
14625
14626         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
14627            --  DiagramElement::sharedStyle : Style
14628
14629            return
14630              AMF.Internals.Holders.DI_Holders.To_Holder
14631               (AMF.DI.Styles.DI_Style_Access'
14632                 (AMF.UMLDI.UML_Compartmentable_Shapes.UMLDI_UML_Compartmentable_Shape_Access
14633                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
14634
14635         else
14636            raise Program_Error;
14637         end if;
14638      end UMLDI_UML_Compartmentable_Shape_Get;
14639
14640      -------------------------------------
14641      -- UMLDI_UML_Component_Diagram_Get --
14642      -------------------------------------
14643
14644      function UMLDI_UML_Component_Diagram_Get return League.Holders.Holder is
14645      begin
14646         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
14647            --  Shape::bounds : Bounds
14648
14649            return
14650              AMF.DC.Holders.To_Holder
14651               (AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
14652                 (AMF.Internals.Helpers.To_Element (Self)).Get_Bounds);
14653
14654         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
14655            --  NamedElement::clientDependency : Dependency
14656
14657            return
14658              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
14659               (AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
14660                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
14661
14662         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Documentation then
14663            --  Diagram::documentation : String
14664
14665            return
14666              League.Holders.To_Holder
14667               (AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
14668                 (AMF.Internals.Helpers.To_Element (Self)).Get_Documentation);
14669
14670         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Heading_A_Headed_Diagram then
14671            --  UMLDiagram::heading : UMLLabel
14672
14673            return
14674              AMF.Internals.Holders.UMLDI_Holders.To_Holder
14675               (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access'
14676                 (AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
14677                   (AMF.Internals.Helpers.To_Element (Self)).Get_Heading));
14678
14679         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Frame then
14680            --  UMLDiagram::isFrame : Boolean
14681
14682            return
14683              League.Holders.Booleans.To_Holder
14684               (AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
14685                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Frame);
14686
14687         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
14688            --  UMLDiagramElement::isIcon : Boolean
14689
14690            return
14691              League.Holders.Booleans.To_Holder
14692               (AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
14693                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Icon);
14694
14695         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Iso then
14696            --  UMLDiagram::isIso : Boolean
14697
14698            return
14699              League.Holders.Booleans.To_Holder
14700               (AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
14701                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Iso);
14702
14703         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
14704            --  UMLDiagramElement::localStyle : UMLStyle
14705
14706            return
14707              AMF.Internals.Holders.UMLDI_Holders.To_Holder
14708               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
14709                 (AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
14710                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
14711
14712         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
14713            --  DiagramElement::localStyle : Style
14714
14715            return
14716              AMF.Internals.Holders.DI_Holders.To_Holder
14717               (AMF.DI.Styles.DI_Style_Access'
14718                 (AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
14719                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
14720
14721         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element then
14722            --  UMLDiagramElement::modelElement : Element
14723
14724            return
14725              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
14726               (AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
14727                 (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element);
14728
14729         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Model_Element_A_Diagram_Element then
14730            --  DiagramElement::modelElement : Element
14731
14732            return
14733              AMF.Internals.Holders.CMOF_Holders.To_Holder
14734               (AMF.CMOF.Elements.CMOF_Element_Access'
14735                 (AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
14736                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
14737
14738         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
14739            --  NamedElement::name : String
14740
14741            return
14742              AMF.Holders.To_Holder
14743               (AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
14744                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
14745
14746         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Name then
14747            --  Diagram::name : String
14748
14749            return
14750              League.Holders.To_Holder
14751               (AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
14752                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
14753
14754         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
14755            --  NamedElement::nameExpression : StringExpression
14756
14757            return
14758              AMF.Internals.Holders.UML_Holders.To_Holder
14759               (AMF.UML.String_Expressions.UML_String_Expression_Access'
14760                 (AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
14761                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
14762
14763         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
14764            --  NamedElement::namespace : Namespace
14765
14766            return
14767              AMF.Internals.Holders.UML_Holders.To_Holder
14768               (AMF.UML.Namespaces.UML_Namespace_Access'
14769                 (AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
14770                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
14771
14772         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
14773            --  Element::ownedComment : Comment
14774
14775            return
14776              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
14777               (AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
14778                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
14779
14780         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
14781            --  Element::ownedElement : Element
14782
14783            return
14784              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
14785               (AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
14786                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
14787
14788         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element then
14789            --  UMLDiagramElement::ownedElement : UMLDiagramElement
14790
14791            return
14792              AMF.UMLDI.UML_Diagram_Elements.Collections.UMLDI_UML_Diagram_Element_Collections.Internals.To_Holder
14793               (AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
14794                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
14795
14796         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element then
14797            --  DiagramElement::ownedElement : DiagramElement
14798
14799            return
14800              AMF.DI.Diagram_Elements.Collections.DI_Diagram_Element_Collections.Internals.To_Holder
14801               (AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
14802                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
14803
14804         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
14805            --  Element::owner : Element
14806
14807            return
14808              AMF.Internals.Holders.UML_Holders.To_Holder
14809               (AMF.UML.Elements.UML_Element_Access'
14810                 (AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
14811                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
14812
14813         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
14814            --  UMLDiagramElement::owningElement : UMLDiagramElement
14815
14816            return
14817              AMF.Internals.Holders.UMLDI_Holders.To_Holder
14818               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access'
14819                 (AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
14820                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
14821
14822         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owning_Element_Diagram_Element_Owned_Element then
14823            --  DiagramElement::owningElement : DiagramElement
14824
14825            return
14826              AMF.Internals.Holders.DI_Holders.To_Holder
14827               (AMF.DI.Diagram_Elements.DI_Diagram_Element_Access'
14828                 (AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
14829                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
14830
14831         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
14832            --  ParameterableElement::owningTemplateParameter : TemplateParameter
14833
14834            return
14835              AMF.Internals.Holders.UML_Holders.To_Holder
14836               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
14837                 (AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
14838                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
14839
14840         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
14841            --  NamedElement::qualifiedName : String
14842
14843            return
14844              AMF.Holders.To_Holder
14845               (AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
14846                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
14847
14848         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Resolution then
14849            --  Diagram::resolution : Real
14850
14851            return
14852              AMF.Holders.Reals.To_Holder
14853               (AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
14854                 (AMF.Internals.Helpers.To_Element (Self)).Get_Resolution);
14855
14856         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
14857            --  UMLDiagramElement::sharedStyle : UMLStyle
14858
14859            return
14860              AMF.Internals.Holders.UMLDI_Holders.To_Holder
14861               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
14862                 (AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
14863                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
14864
14865         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
14866            --  DiagramElement::sharedStyle : Style
14867
14868            return
14869              AMF.Internals.Holders.DI_Holders.To_Holder
14870               (AMF.DI.Styles.DI_Style_Access'
14871                 (AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
14872                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
14873
14874         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
14875            --  ParameterableElement::templateParameter : TemplateParameter
14876
14877            return
14878              AMF.Internals.Holders.UML_Holders.To_Holder
14879               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
14880                 (AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
14881                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
14882
14883         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
14884            --  NamedElement::visibility : VisibilityKind
14885
14886            return
14887              AMF.UML.Holders.To_Holder
14888               (AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
14889                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
14890
14891         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
14892            --  PackageableElement::visibility : VisibilityKind
14893
14894            return
14895              AMF.UML.Holders.Visibility_Kinds.To_Holder
14896               (AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
14897                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
14898
14899         else
14900            raise Program_Error;
14901         end if;
14902      end UMLDI_UML_Component_Diagram_Get;
14903
14904      -----------------------------------------------
14905      -- UMLDI_UML_Composite_Structure_Diagram_Get --
14906      -----------------------------------------------
14907
14908      function UMLDI_UML_Composite_Structure_Diagram_Get return League.Holders.Holder is
14909      begin
14910         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
14911            --  Shape::bounds : Bounds
14912
14913            return
14914              AMF.DC.Holders.To_Holder
14915               (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
14916                 (AMF.Internals.Helpers.To_Element (Self)).Get_Bounds);
14917
14918         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
14919            --  NamedElement::clientDependency : Dependency
14920
14921            return
14922              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
14923               (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
14924                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
14925
14926         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Documentation then
14927            --  Diagram::documentation : String
14928
14929            return
14930              League.Holders.To_Holder
14931               (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
14932                 (AMF.Internals.Helpers.To_Element (Self)).Get_Documentation);
14933
14934         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Heading_A_Headed_Diagram then
14935            --  UMLDiagram::heading : UMLLabel
14936
14937            return
14938              AMF.Internals.Holders.UMLDI_Holders.To_Holder
14939               (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access'
14940                 (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
14941                   (AMF.Internals.Helpers.To_Element (Self)).Get_Heading));
14942
14943         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Class_Or_Composite_Structure_Diagram_Is_Association_Dot_Shown then
14944            --  UMLClassOrCompositeStructureDiagram::isAssociationDotShown : Boolean
14945
14946            return
14947              League.Holders.Booleans.To_Holder
14948               (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
14949                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Association_Dot_Shown);
14950
14951         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Frame then
14952            --  UMLDiagram::isFrame : Boolean
14953
14954            return
14955              League.Holders.Booleans.To_Holder
14956               (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
14957                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Frame);
14958
14959         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
14960            --  UMLDiagramElement::isIcon : Boolean
14961
14962            return
14963              League.Holders.Booleans.To_Holder
14964               (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
14965                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Icon);
14966
14967         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Iso then
14968            --  UMLDiagram::isIso : Boolean
14969
14970            return
14971              League.Holders.Booleans.To_Holder
14972               (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
14973                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Iso);
14974
14975         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
14976            --  UMLDiagramElement::localStyle : UMLStyle
14977
14978            return
14979              AMF.Internals.Holders.UMLDI_Holders.To_Holder
14980               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
14981                 (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
14982                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
14983
14984         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
14985            --  DiagramElement::localStyle : Style
14986
14987            return
14988              AMF.Internals.Holders.DI_Holders.To_Holder
14989               (AMF.DI.Styles.DI_Style_Access'
14990                 (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
14991                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
14992
14993         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element then
14994            --  UMLDiagramElement::modelElement : Element
14995
14996            return
14997              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
14998               (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
14999                 (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element);
15000
15001         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Model_Element_A_Diagram_Element then
15002            --  DiagramElement::modelElement : Element
15003
15004            return
15005              AMF.Internals.Holders.CMOF_Holders.To_Holder
15006               (AMF.CMOF.Elements.CMOF_Element_Access'
15007                 (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
15008                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
15009
15010         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
15011            --  NamedElement::name : String
15012
15013            return
15014              AMF.Holders.To_Holder
15015               (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
15016                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
15017
15018         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Name then
15019            --  Diagram::name : String
15020
15021            return
15022              League.Holders.To_Holder
15023               (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
15024                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
15025
15026         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
15027            --  NamedElement::nameExpression : StringExpression
15028
15029            return
15030              AMF.Internals.Holders.UML_Holders.To_Holder
15031               (AMF.UML.String_Expressions.UML_String_Expression_Access'
15032                 (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
15033                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
15034
15035         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
15036            --  NamedElement::namespace : Namespace
15037
15038            return
15039              AMF.Internals.Holders.UML_Holders.To_Holder
15040               (AMF.UML.Namespaces.UML_Namespace_Access'
15041                 (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
15042                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
15043
15044         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Class_Or_Composite_Structure_Diagram_Navigability_Notation then
15045            --  UMLClassOrCompositeStructureDiagram::navigabilityNotation : UMLNavigabilityNotationKind
15046
15047            return
15048              AMF.UMLDI.Holders.UML_Navigability_Notation_Kinds.To_Holder
15049               (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
15050                 (AMF.Internals.Helpers.To_Element (Self)).Get_Navigability_Notation);
15051
15052         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Class_Or_Composite_Structure_Diagram_Non_Navigability_Notation then
15053            --  UMLClassOrCompositeStructureDiagram::nonNavigabilityNotation : UMLNavigabilityNotationKind
15054
15055            return
15056              AMF.UMLDI.Holders.UML_Navigability_Notation_Kinds.To_Holder
15057               (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
15058                 (AMF.Internals.Helpers.To_Element (Self)).Get_Non_Navigability_Notation);
15059
15060         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
15061            --  Element::ownedComment : Comment
15062
15063            return
15064              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
15065               (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
15066                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
15067
15068         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
15069            --  Element::ownedElement : Element
15070
15071            return
15072              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
15073               (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
15074                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
15075
15076         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element then
15077            --  UMLDiagramElement::ownedElement : UMLDiagramElement
15078
15079            return
15080              AMF.UMLDI.UML_Diagram_Elements.Collections.UMLDI_UML_Diagram_Element_Collections.Internals.To_Holder
15081               (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
15082                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
15083
15084         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element then
15085            --  DiagramElement::ownedElement : DiagramElement
15086
15087            return
15088              AMF.DI.Diagram_Elements.Collections.DI_Diagram_Element_Collections.Internals.To_Holder
15089               (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
15090                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
15091
15092         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
15093            --  Element::owner : Element
15094
15095            return
15096              AMF.Internals.Holders.UML_Holders.To_Holder
15097               (AMF.UML.Elements.UML_Element_Access'
15098                 (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
15099                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
15100
15101         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
15102            --  UMLDiagramElement::owningElement : UMLDiagramElement
15103
15104            return
15105              AMF.Internals.Holders.UMLDI_Holders.To_Holder
15106               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access'
15107                 (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
15108                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
15109
15110         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owning_Element_Diagram_Element_Owned_Element then
15111            --  DiagramElement::owningElement : DiagramElement
15112
15113            return
15114              AMF.Internals.Holders.DI_Holders.To_Holder
15115               (AMF.DI.Diagram_Elements.DI_Diagram_Element_Access'
15116                 (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
15117                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
15118
15119         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
15120            --  ParameterableElement::owningTemplateParameter : TemplateParameter
15121
15122            return
15123              AMF.Internals.Holders.UML_Holders.To_Holder
15124               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
15125                 (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
15126                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
15127
15128         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
15129            --  NamedElement::qualifiedName : String
15130
15131            return
15132              AMF.Holders.To_Holder
15133               (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
15134                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
15135
15136         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Resolution then
15137            --  Diagram::resolution : Real
15138
15139            return
15140              AMF.Holders.Reals.To_Holder
15141               (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
15142                 (AMF.Internals.Helpers.To_Element (Self)).Get_Resolution);
15143
15144         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
15145            --  UMLDiagramElement::sharedStyle : UMLStyle
15146
15147            return
15148              AMF.Internals.Holders.UMLDI_Holders.To_Holder
15149               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
15150                 (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
15151                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
15152
15153         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
15154            --  DiagramElement::sharedStyle : Style
15155
15156            return
15157              AMF.Internals.Holders.DI_Holders.To_Holder
15158               (AMF.DI.Styles.DI_Style_Access'
15159                 (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
15160                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
15161
15162         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
15163            --  ParameterableElement::templateParameter : TemplateParameter
15164
15165            return
15166              AMF.Internals.Holders.UML_Holders.To_Holder
15167               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
15168                 (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
15169                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
15170
15171         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
15172            --  NamedElement::visibility : VisibilityKind
15173
15174            return
15175              AMF.UML.Holders.To_Holder
15176               (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
15177                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
15178
15179         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
15180            --  PackageableElement::visibility : VisibilityKind
15181
15182            return
15183              AMF.UML.Holders.Visibility_Kinds.To_Holder
15184               (AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
15185                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
15186
15187         else
15188            raise Program_Error;
15189         end if;
15190      end UMLDI_UML_Composite_Structure_Diagram_Get;
15191
15192      --------------------------------------
15193      -- UMLDI_UML_Deployment_Diagram_Get --
15194      --------------------------------------
15195
15196      function UMLDI_UML_Deployment_Diagram_Get return League.Holders.Holder is
15197      begin
15198         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
15199            --  Shape::bounds : Bounds
15200
15201            return
15202              AMF.DC.Holders.To_Holder
15203               (AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
15204                 (AMF.Internals.Helpers.To_Element (Self)).Get_Bounds);
15205
15206         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
15207            --  NamedElement::clientDependency : Dependency
15208
15209            return
15210              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
15211               (AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
15212                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
15213
15214         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Documentation then
15215            --  Diagram::documentation : String
15216
15217            return
15218              League.Holders.To_Holder
15219               (AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
15220                 (AMF.Internals.Helpers.To_Element (Self)).Get_Documentation);
15221
15222         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Heading_A_Headed_Diagram then
15223            --  UMLDiagram::heading : UMLLabel
15224
15225            return
15226              AMF.Internals.Holders.UMLDI_Holders.To_Holder
15227               (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access'
15228                 (AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
15229                   (AMF.Internals.Helpers.To_Element (Self)).Get_Heading));
15230
15231         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Frame then
15232            --  UMLDiagram::isFrame : Boolean
15233
15234            return
15235              League.Holders.Booleans.To_Holder
15236               (AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
15237                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Frame);
15238
15239         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
15240            --  UMLDiagramElement::isIcon : Boolean
15241
15242            return
15243              League.Holders.Booleans.To_Holder
15244               (AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
15245                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Icon);
15246
15247         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Iso then
15248            --  UMLDiagram::isIso : Boolean
15249
15250            return
15251              League.Holders.Booleans.To_Holder
15252               (AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
15253                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Iso);
15254
15255         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
15256            --  UMLDiagramElement::localStyle : UMLStyle
15257
15258            return
15259              AMF.Internals.Holders.UMLDI_Holders.To_Holder
15260               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
15261                 (AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
15262                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
15263
15264         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
15265            --  DiagramElement::localStyle : Style
15266
15267            return
15268              AMF.Internals.Holders.DI_Holders.To_Holder
15269               (AMF.DI.Styles.DI_Style_Access'
15270                 (AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
15271                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
15272
15273         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element then
15274            --  UMLDiagramElement::modelElement : Element
15275
15276            return
15277              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
15278               (AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
15279                 (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element);
15280
15281         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Model_Element_A_Diagram_Element then
15282            --  DiagramElement::modelElement : Element
15283
15284            return
15285              AMF.Internals.Holders.CMOF_Holders.To_Holder
15286               (AMF.CMOF.Elements.CMOF_Element_Access'
15287                 (AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
15288                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
15289
15290         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
15291            --  NamedElement::name : String
15292
15293            return
15294              AMF.Holders.To_Holder
15295               (AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
15296                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
15297
15298         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Name then
15299            --  Diagram::name : String
15300
15301            return
15302              League.Holders.To_Holder
15303               (AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
15304                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
15305
15306         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
15307            --  NamedElement::nameExpression : StringExpression
15308
15309            return
15310              AMF.Internals.Holders.UML_Holders.To_Holder
15311               (AMF.UML.String_Expressions.UML_String_Expression_Access'
15312                 (AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
15313                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
15314
15315         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
15316            --  NamedElement::namespace : Namespace
15317
15318            return
15319              AMF.Internals.Holders.UML_Holders.To_Holder
15320               (AMF.UML.Namespaces.UML_Namespace_Access'
15321                 (AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
15322                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
15323
15324         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
15325            --  Element::ownedComment : Comment
15326
15327            return
15328              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
15329               (AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
15330                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
15331
15332         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
15333            --  Element::ownedElement : Element
15334
15335            return
15336              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
15337               (AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
15338                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
15339
15340         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element then
15341            --  UMLDiagramElement::ownedElement : UMLDiagramElement
15342
15343            return
15344              AMF.UMLDI.UML_Diagram_Elements.Collections.UMLDI_UML_Diagram_Element_Collections.Internals.To_Holder
15345               (AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
15346                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
15347
15348         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element then
15349            --  DiagramElement::ownedElement : DiagramElement
15350
15351            return
15352              AMF.DI.Diagram_Elements.Collections.DI_Diagram_Element_Collections.Internals.To_Holder
15353               (AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
15354                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
15355
15356         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
15357            --  Element::owner : Element
15358
15359            return
15360              AMF.Internals.Holders.UML_Holders.To_Holder
15361               (AMF.UML.Elements.UML_Element_Access'
15362                 (AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
15363                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
15364
15365         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
15366            --  UMLDiagramElement::owningElement : UMLDiagramElement
15367
15368            return
15369              AMF.Internals.Holders.UMLDI_Holders.To_Holder
15370               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access'
15371                 (AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
15372                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
15373
15374         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owning_Element_Diagram_Element_Owned_Element then
15375            --  DiagramElement::owningElement : DiagramElement
15376
15377            return
15378              AMF.Internals.Holders.DI_Holders.To_Holder
15379               (AMF.DI.Diagram_Elements.DI_Diagram_Element_Access'
15380                 (AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
15381                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
15382
15383         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
15384            --  ParameterableElement::owningTemplateParameter : TemplateParameter
15385
15386            return
15387              AMF.Internals.Holders.UML_Holders.To_Holder
15388               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
15389                 (AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
15390                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
15391
15392         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
15393            --  NamedElement::qualifiedName : String
15394
15395            return
15396              AMF.Holders.To_Holder
15397               (AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
15398                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
15399
15400         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Resolution then
15401            --  Diagram::resolution : Real
15402
15403            return
15404              AMF.Holders.Reals.To_Holder
15405               (AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
15406                 (AMF.Internals.Helpers.To_Element (Self)).Get_Resolution);
15407
15408         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
15409            --  UMLDiagramElement::sharedStyle : UMLStyle
15410
15411            return
15412              AMF.Internals.Holders.UMLDI_Holders.To_Holder
15413               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
15414                 (AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
15415                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
15416
15417         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
15418            --  DiagramElement::sharedStyle : Style
15419
15420            return
15421              AMF.Internals.Holders.DI_Holders.To_Holder
15422               (AMF.DI.Styles.DI_Style_Access'
15423                 (AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
15424                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
15425
15426         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
15427            --  ParameterableElement::templateParameter : TemplateParameter
15428
15429            return
15430              AMF.Internals.Holders.UML_Holders.To_Holder
15431               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
15432                 (AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
15433                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
15434
15435         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
15436            --  NamedElement::visibility : VisibilityKind
15437
15438            return
15439              AMF.UML.Holders.To_Holder
15440               (AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
15441                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
15442
15443         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
15444            --  PackageableElement::visibility : VisibilityKind
15445
15446            return
15447              AMF.UML.Holders.Visibility_Kinds.To_Holder
15448               (AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
15449                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
15450
15451         else
15452            raise Program_Error;
15453         end if;
15454      end UMLDI_UML_Deployment_Diagram_Get;
15455
15456      ------------------------
15457      -- UMLDI_UML_Edge_Get --
15458      ------------------------
15459
15460      function UMLDI_UML_Edge_Get return League.Holders.Holder is
15461      begin
15462         if Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
15463            --  UMLDiagramElement::isIcon : Boolean
15464
15465            return
15466              League.Holders.Booleans.To_Holder
15467               (AMF.UMLDI.UML_Edges.UMLDI_UML_Edge_Access
15468                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Icon);
15469
15470         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
15471            --  UMLDiagramElement::localStyle : UMLStyle
15472
15473            return
15474              AMF.Internals.Holders.UMLDI_Holders.To_Holder
15475               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
15476                 (AMF.UMLDI.UML_Edges.UMLDI_UML_Edge_Access
15477                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
15478
15479         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
15480            --  DiagramElement::localStyle : Style
15481
15482            return
15483              AMF.Internals.Holders.DI_Holders.To_Holder
15484               (AMF.DI.Styles.DI_Style_Access'
15485                 (AMF.UMLDI.UML_Edges.UMLDI_UML_Edge_Access
15486                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
15487
15488         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element then
15489            --  UMLDiagramElement::modelElement : Element
15490
15491            return
15492              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
15493               (AMF.UMLDI.UML_Edges.UMLDI_UML_Edge_Access
15494                 (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element);
15495
15496         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Model_Element_A_Diagram_Element then
15497            --  DiagramElement::modelElement : Element
15498
15499            return
15500              AMF.Internals.Holders.CMOF_Holders.To_Holder
15501               (AMF.CMOF.Elements.CMOF_Element_Access'
15502                 (AMF.UMLDI.UML_Edges.UMLDI_UML_Edge_Access
15503                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
15504
15505         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element then
15506            --  UMLDiagramElement::ownedElement : UMLDiagramElement
15507
15508            return
15509              AMF.UMLDI.UML_Diagram_Elements.Collections.UMLDI_UML_Diagram_Element_Collections.Internals.To_Holder
15510               (AMF.UMLDI.UML_Edges.UMLDI_UML_Edge_Access
15511                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
15512
15513         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element then
15514            --  DiagramElement::ownedElement : DiagramElement
15515
15516            return
15517              AMF.DI.Diagram_Elements.Collections.DI_Diagram_Element_Collections.Internals.To_Holder
15518               (AMF.UMLDI.UML_Edges.UMLDI_UML_Edge_Access
15519                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
15520
15521         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
15522            --  UMLDiagramElement::owningElement : UMLDiagramElement
15523
15524            return
15525              AMF.Internals.Holders.UMLDI_Holders.To_Holder
15526               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access'
15527                 (AMF.UMLDI.UML_Edges.UMLDI_UML_Edge_Access
15528                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
15529
15530         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owning_Element_Diagram_Element_Owned_Element then
15531            --  DiagramElement::owningElement : DiagramElement
15532
15533            return
15534              AMF.Internals.Holders.DI_Holders.To_Holder
15535               (AMF.DI.Diagram_Elements.DI_Diagram_Element_Access'
15536                 (AMF.UMLDI.UML_Edges.UMLDI_UML_Edge_Access
15537                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
15538
15539         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
15540            --  UMLDiagramElement::sharedStyle : UMLStyle
15541
15542            return
15543              AMF.Internals.Holders.UMLDI_Holders.To_Holder
15544               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
15545                 (AMF.UMLDI.UML_Edges.UMLDI_UML_Edge_Access
15546                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
15547
15548         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
15549            --  DiagramElement::sharedStyle : Style
15550
15551            return
15552              AMF.Internals.Holders.DI_Holders.To_Holder
15553               (AMF.DI.Styles.DI_Style_Access'
15554                 (AMF.UMLDI.UML_Edges.UMLDI_UML_Edge_Access
15555                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
15556
15557         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Edge_Source_A_Source_Edge then
15558            --  UMLEdge::source : UMLDiagramElement
15559
15560            return
15561              AMF.Internals.Holders.UMLDI_Holders.To_Holder
15562               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access'
15563                 (AMF.UMLDI.UML_Edges.UMLDI_UML_Edge_Access
15564                   (AMF.Internals.Helpers.To_Element (Self)).Get_Source));
15565
15566         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Edge_Source_A_Source_Edge then
15567            --  Edge::source : DiagramElement
15568
15569            return
15570              AMF.Internals.Holders.DI_Holders.To_Holder
15571               (AMF.DI.Diagram_Elements.DI_Diagram_Element_Access'
15572                 (AMF.UMLDI.UML_Edges.UMLDI_UML_Edge_Access
15573                   (AMF.Internals.Helpers.To_Element (Self)).Get_Source));
15574
15575         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Edge_Target_A_Target_Edge then
15576            --  UMLEdge::target : UMLDiagramElement
15577
15578            return
15579              AMF.Internals.Holders.UMLDI_Holders.To_Holder
15580               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access'
15581                 (AMF.UMLDI.UML_Edges.UMLDI_UML_Edge_Access
15582                   (AMF.Internals.Helpers.To_Element (Self)).Get_Target));
15583
15584         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Edge_Target_A_Target_Edge then
15585            --  Edge::target : DiagramElement
15586
15587            return
15588              AMF.Internals.Holders.DI_Holders.To_Holder
15589               (AMF.DI.Diagram_Elements.DI_Diagram_Element_Access'
15590                 (AMF.UMLDI.UML_Edges.UMLDI_UML_Edge_Access
15591                   (AMF.Internals.Helpers.To_Element (Self)).Get_Target));
15592
15593         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Edge_Waypoint then
15594            --  Edge::waypoint : Point
15595
15596            return
15597              AMF.DC.Point_Collections.Internals.To_Holder
15598               (AMF.UMLDI.UML_Edges.UMLDI_UML_Edge_Access
15599                 (AMF.Internals.Helpers.To_Element (Self)).Get_Waypoint);
15600
15601         else
15602            raise Program_Error;
15603         end if;
15604      end UMLDI_UML_Edge_Get;
15605
15606      ---------------------------------------
15607      -- UMLDI_UML_Interaction_Diagram_Get --
15608      ---------------------------------------
15609
15610      function UMLDI_UML_Interaction_Diagram_Get return League.Holders.Holder is
15611      begin
15612         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
15613            --  Shape::bounds : Bounds
15614
15615            return
15616              AMF.DC.Holders.To_Holder
15617               (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15618                 (AMF.Internals.Helpers.To_Element (Self)).Get_Bounds);
15619
15620         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
15621            --  NamedElement::clientDependency : Dependency
15622
15623            return
15624              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
15625               (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15626                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
15627
15628         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Documentation then
15629            --  Diagram::documentation : String
15630
15631            return
15632              League.Holders.To_Holder
15633               (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15634                 (AMF.Internals.Helpers.To_Element (Self)).Get_Documentation);
15635
15636         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Heading_A_Headed_Diagram then
15637            --  UMLDiagram::heading : UMLLabel
15638
15639            return
15640              AMF.Internals.Holders.UMLDI_Holders.To_Holder
15641               (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access'
15642                 (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15643                   (AMF.Internals.Helpers.To_Element (Self)).Get_Heading));
15644
15645         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Frame then
15646            --  UMLDiagram::isFrame : Boolean
15647
15648            return
15649              League.Holders.Booleans.To_Holder
15650               (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15651                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Frame);
15652
15653         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
15654            --  UMLDiagramElement::isIcon : Boolean
15655
15656            return
15657              League.Holders.Booleans.To_Holder
15658               (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15659                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Icon);
15660
15661         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Iso then
15662            --  UMLDiagram::isIso : Boolean
15663
15664            return
15665              League.Holders.Booleans.To_Holder
15666               (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15667                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Iso);
15668
15669         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Interaction_Diagram_Kind then
15670            --  UMLInteractionDiagram::kind : UMLInteractionDiagramKind
15671
15672            return
15673              AMF.UMLDI.Holders.UML_Interaction_Diagram_Kinds.To_Holder
15674               (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15675                 (AMF.Internals.Helpers.To_Element (Self)).Get_Kind);
15676
15677         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
15678            --  UMLDiagramElement::localStyle : UMLStyle
15679
15680            return
15681              AMF.Internals.Holders.UMLDI_Holders.To_Holder
15682               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
15683                 (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15684                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
15685
15686         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
15687            --  DiagramElement::localStyle : Style
15688
15689            return
15690              AMF.Internals.Holders.DI_Holders.To_Holder
15691               (AMF.DI.Styles.DI_Style_Access'
15692                 (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15693                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
15694
15695         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Behavior_Diagram_Model_Element_A_Uml_Diagram_Element then
15696            --  UMLBehaviorDiagram::modelElement : Behavior
15697
15698            return
15699              AMF.Internals.Holders.UML_Holders.To_Holder
15700               (AMF.UML.Behaviors.UML_Behavior_Access'
15701                 (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15702                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
15703
15704         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element then
15705            --  UMLDiagramElement::modelElement : Element
15706
15707            return
15708              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
15709               (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15710                 (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element);
15711
15712         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Interaction_Diagram_Model_Element_A_Uml_Diagram_Element then
15713            --  UMLInteractionDiagram::modelElement : Interaction
15714
15715            return
15716              AMF.Internals.Holders.UML_Holders.To_Holder
15717               (AMF.UML.Interactions.UML_Interaction_Access'
15718                 (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15719                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
15720
15721         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Model_Element_A_Diagram_Element then
15722            --  DiagramElement::modelElement : Element
15723
15724            return
15725              AMF.Internals.Holders.CMOF_Holders.To_Holder
15726               (AMF.CMOF.Elements.CMOF_Element_Access'
15727                 (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15728                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
15729
15730         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
15731            --  NamedElement::name : String
15732
15733            return
15734              AMF.Holders.To_Holder
15735               (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15736                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
15737
15738         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Name then
15739            --  Diagram::name : String
15740
15741            return
15742              League.Holders.To_Holder
15743               (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15744                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
15745
15746         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
15747            --  NamedElement::nameExpression : StringExpression
15748
15749            return
15750              AMF.Internals.Holders.UML_Holders.To_Holder
15751               (AMF.UML.String_Expressions.UML_String_Expression_Access'
15752                 (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15753                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
15754
15755         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
15756            --  NamedElement::namespace : Namespace
15757
15758            return
15759              AMF.Internals.Holders.UML_Holders.To_Holder
15760               (AMF.UML.Namespaces.UML_Namespace_Access'
15761                 (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15762                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
15763
15764         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
15765            --  Element::ownedComment : Comment
15766
15767            return
15768              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
15769               (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15770                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
15771
15772         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
15773            --  Element::ownedElement : Element
15774
15775            return
15776              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
15777               (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15778                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
15779
15780         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element then
15781            --  UMLDiagramElement::ownedElement : UMLDiagramElement
15782
15783            return
15784              AMF.UMLDI.UML_Diagram_Elements.Collections.UMLDI_UML_Diagram_Element_Collections.Internals.To_Holder
15785               (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15786                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
15787
15788         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element then
15789            --  DiagramElement::ownedElement : DiagramElement
15790
15791            return
15792              AMF.DI.Diagram_Elements.Collections.DI_Diagram_Element_Collections.Internals.To_Holder
15793               (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15794                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
15795
15796         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
15797            --  Element::owner : Element
15798
15799            return
15800              AMF.Internals.Holders.UML_Holders.To_Holder
15801               (AMF.UML.Elements.UML_Element_Access'
15802                 (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15803                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
15804
15805         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
15806            --  UMLDiagramElement::owningElement : UMLDiagramElement
15807
15808            return
15809              AMF.Internals.Holders.UMLDI_Holders.To_Holder
15810               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access'
15811                 (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15812                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
15813
15814         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owning_Element_Diagram_Element_Owned_Element then
15815            --  DiagramElement::owningElement : DiagramElement
15816
15817            return
15818              AMF.Internals.Holders.DI_Holders.To_Holder
15819               (AMF.DI.Diagram_Elements.DI_Diagram_Element_Access'
15820                 (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15821                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
15822
15823         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
15824            --  ParameterableElement::owningTemplateParameter : TemplateParameter
15825
15826            return
15827              AMF.Internals.Holders.UML_Holders.To_Holder
15828               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
15829                 (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15830                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
15831
15832         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
15833            --  NamedElement::qualifiedName : String
15834
15835            return
15836              AMF.Holders.To_Holder
15837               (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15838                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
15839
15840         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Resolution then
15841            --  Diagram::resolution : Real
15842
15843            return
15844              AMF.Holders.Reals.To_Holder
15845               (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15846                 (AMF.Internals.Helpers.To_Element (Self)).Get_Resolution);
15847
15848         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
15849            --  UMLDiagramElement::sharedStyle : UMLStyle
15850
15851            return
15852              AMF.Internals.Holders.UMLDI_Holders.To_Holder
15853               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
15854                 (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15855                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
15856
15857         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
15858            --  DiagramElement::sharedStyle : Style
15859
15860            return
15861              AMF.Internals.Holders.DI_Holders.To_Holder
15862               (AMF.DI.Styles.DI_Style_Access'
15863                 (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15864                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
15865
15866         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
15867            --  ParameterableElement::templateParameter : TemplateParameter
15868
15869            return
15870              AMF.Internals.Holders.UML_Holders.To_Holder
15871               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
15872                 (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15873                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
15874
15875         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
15876            --  NamedElement::visibility : VisibilityKind
15877
15878            return
15879              AMF.UML.Holders.To_Holder
15880               (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15881                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
15882
15883         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
15884            --  PackageableElement::visibility : VisibilityKind
15885
15886            return
15887              AMF.UML.Holders.Visibility_Kinds.To_Holder
15888               (AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
15889                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
15890
15891         else
15892            raise Program_Error;
15893         end if;
15894      end UMLDI_UML_Interaction_Diagram_Get;
15895
15896      -------------------------------------------
15897      -- UMLDI_UML_Interaction_Table_Label_Get --
15898      -------------------------------------------
15899
15900      function UMLDI_UML_Interaction_Table_Label_Get return League.Holders.Holder is
15901      begin
15902         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
15903            --  Shape::bounds : Bounds
15904
15905            return
15906              AMF.DC.Holders.To_Holder
15907               (AMF.UMLDI.UML_Interaction_Table_Labels.UMLDI_UML_Interaction_Table_Label_Access
15908                 (AMF.Internals.Helpers.To_Element (Self)).Get_Bounds);
15909
15910         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
15911            --  UMLDiagramElement::isIcon : Boolean
15912
15913            return
15914              League.Holders.Booleans.To_Holder
15915               (AMF.UMLDI.UML_Interaction_Table_Labels.UMLDI_UML_Interaction_Table_Label_Access
15916                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Icon);
15917
15918         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Interaction_Table_Label_Kind then
15919            --  UMLInteractionTableLabel::kind : UMLInteractionTableLabelKind
15920
15921            return
15922              AMF.UMLDI.Holders.UML_Interaction_Table_Label_Kinds.To_Holder
15923               (AMF.UMLDI.UML_Interaction_Table_Labels.UMLDI_UML_Interaction_Table_Label_Access
15924                 (AMF.Internals.Helpers.To_Element (Self)).Get_Kind);
15925
15926         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
15927            --  UMLDiagramElement::localStyle : UMLStyle
15928
15929            return
15930              AMF.Internals.Holders.UMLDI_Holders.To_Holder
15931               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
15932                 (AMF.UMLDI.UML_Interaction_Table_Labels.UMLDI_UML_Interaction_Table_Label_Access
15933                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
15934
15935         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
15936            --  DiagramElement::localStyle : Style
15937
15938            return
15939              AMF.Internals.Holders.DI_Holders.To_Holder
15940               (AMF.DI.Styles.DI_Style_Access'
15941                 (AMF.UMLDI.UML_Interaction_Table_Labels.UMLDI_UML_Interaction_Table_Label_Access
15942                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
15943
15944         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element then
15945            --  UMLDiagramElement::modelElement : Element
15946
15947            return
15948              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
15949               (AMF.UMLDI.UML_Interaction_Table_Labels.UMLDI_UML_Interaction_Table_Label_Access
15950                 (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element);
15951
15952         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Model_Element_A_Diagram_Element then
15953            --  DiagramElement::modelElement : Element
15954
15955            return
15956              AMF.Internals.Holders.CMOF_Holders.To_Holder
15957               (AMF.CMOF.Elements.CMOF_Element_Access'
15958                 (AMF.UMLDI.UML_Interaction_Table_Labels.UMLDI_UML_Interaction_Table_Label_Access
15959                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
15960
15961         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element then
15962            --  UMLDiagramElement::ownedElement : UMLDiagramElement
15963
15964            return
15965              AMF.UMLDI.UML_Diagram_Elements.Collections.UMLDI_UML_Diagram_Element_Collections.Internals.To_Holder
15966               (AMF.UMLDI.UML_Interaction_Table_Labels.UMLDI_UML_Interaction_Table_Label_Access
15967                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
15968
15969         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element then
15970            --  DiagramElement::ownedElement : DiagramElement
15971
15972            return
15973              AMF.DI.Diagram_Elements.Collections.DI_Diagram_Element_Collections.Internals.To_Holder
15974               (AMF.UMLDI.UML_Interaction_Table_Labels.UMLDI_UML_Interaction_Table_Label_Access
15975                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
15976
15977         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
15978            --  UMLDiagramElement::owningElement : UMLDiagramElement
15979
15980            return
15981              AMF.Internals.Holders.UMLDI_Holders.To_Holder
15982               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access'
15983                 (AMF.UMLDI.UML_Interaction_Table_Labels.UMLDI_UML_Interaction_Table_Label_Access
15984                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
15985
15986         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owning_Element_Diagram_Element_Owned_Element then
15987            --  DiagramElement::owningElement : DiagramElement
15988
15989            return
15990              AMF.Internals.Holders.DI_Holders.To_Holder
15991               (AMF.DI.Diagram_Elements.DI_Diagram_Element_Access'
15992                 (AMF.UMLDI.UML_Interaction_Table_Labels.UMLDI_UML_Interaction_Table_Label_Access
15993                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
15994
15995         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
15996            --  UMLDiagramElement::sharedStyle : UMLStyle
15997
15998            return
15999              AMF.Internals.Holders.UMLDI_Holders.To_Holder
16000               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
16001                 (AMF.UMLDI.UML_Interaction_Table_Labels.UMLDI_UML_Interaction_Table_Label_Access
16002                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
16003
16004         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
16005            --  DiagramElement::sharedStyle : Style
16006
16007            return
16008              AMF.Internals.Holders.DI_Holders.To_Holder
16009               (AMF.DI.Styles.DI_Style_Access'
16010                 (AMF.UMLDI.UML_Interaction_Table_Labels.UMLDI_UML_Interaction_Table_Label_Access
16011                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
16012
16013         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Label_Text then
16014            --  UMLLabel::text : String
16015
16016            return
16017              League.Holders.To_Holder
16018               (AMF.UMLDI.UML_Interaction_Table_Labels.UMLDI_UML_Interaction_Table_Label_Access
16019                 (AMF.Internals.Helpers.To_Element (Self)).Get_Text);
16020
16021         else
16022            raise Program_Error;
16023         end if;
16024      end UMLDI_UML_Interaction_Table_Label_Get;
16025
16026      ---------------------------------
16027      -- UMLDI_UML_Keyword_Label_Get --
16028      ---------------------------------
16029
16030      function UMLDI_UML_Keyword_Label_Get return League.Holders.Holder is
16031      begin
16032         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
16033            --  Shape::bounds : Bounds
16034
16035            return
16036              AMF.DC.Holders.To_Holder
16037               (AMF.UMLDI.UML_Keyword_Labels.UMLDI_UML_Keyword_Label_Access
16038                 (AMF.Internals.Helpers.To_Element (Self)).Get_Bounds);
16039
16040         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
16041            --  UMLDiagramElement::isIcon : Boolean
16042
16043            return
16044              League.Holders.Booleans.To_Holder
16045               (AMF.UMLDI.UML_Keyword_Labels.UMLDI_UML_Keyword_Label_Access
16046                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Icon);
16047
16048         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
16049            --  UMLDiagramElement::localStyle : UMLStyle
16050
16051            return
16052              AMF.Internals.Holders.UMLDI_Holders.To_Holder
16053               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
16054                 (AMF.UMLDI.UML_Keyword_Labels.UMLDI_UML_Keyword_Label_Access
16055                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
16056
16057         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
16058            --  DiagramElement::localStyle : Style
16059
16060            return
16061              AMF.Internals.Holders.DI_Holders.To_Holder
16062               (AMF.DI.Styles.DI_Style_Access'
16063                 (AMF.UMLDI.UML_Keyword_Labels.UMLDI_UML_Keyword_Label_Access
16064                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
16065
16066         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element then
16067            --  UMLDiagramElement::modelElement : Element
16068
16069            return
16070              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
16071               (AMF.UMLDI.UML_Keyword_Labels.UMLDI_UML_Keyword_Label_Access
16072                 (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element);
16073
16074         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Model_Element_A_Diagram_Element then
16075            --  DiagramElement::modelElement : Element
16076
16077            return
16078              AMF.Internals.Holders.CMOF_Holders.To_Holder
16079               (AMF.CMOF.Elements.CMOF_Element_Access'
16080                 (AMF.UMLDI.UML_Keyword_Labels.UMLDI_UML_Keyword_Label_Access
16081                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
16082
16083         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element then
16084            --  UMLDiagramElement::ownedElement : UMLDiagramElement
16085
16086            return
16087              AMF.UMLDI.UML_Diagram_Elements.Collections.UMLDI_UML_Diagram_Element_Collections.Internals.To_Holder
16088               (AMF.UMLDI.UML_Keyword_Labels.UMLDI_UML_Keyword_Label_Access
16089                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
16090
16091         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element then
16092            --  DiagramElement::ownedElement : DiagramElement
16093
16094            return
16095              AMF.DI.Diagram_Elements.Collections.DI_Diagram_Element_Collections.Internals.To_Holder
16096               (AMF.UMLDI.UML_Keyword_Labels.UMLDI_UML_Keyword_Label_Access
16097                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
16098
16099         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
16100            --  UMLDiagramElement::owningElement : UMLDiagramElement
16101
16102            return
16103              AMF.Internals.Holders.UMLDI_Holders.To_Holder
16104               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access'
16105                 (AMF.UMLDI.UML_Keyword_Labels.UMLDI_UML_Keyword_Label_Access
16106                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
16107
16108         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owning_Element_Diagram_Element_Owned_Element then
16109            --  DiagramElement::owningElement : DiagramElement
16110
16111            return
16112              AMF.Internals.Holders.DI_Holders.To_Holder
16113               (AMF.DI.Diagram_Elements.DI_Diagram_Element_Access'
16114                 (AMF.UMLDI.UML_Keyword_Labels.UMLDI_UML_Keyword_Label_Access
16115                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
16116
16117         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
16118            --  UMLDiagramElement::sharedStyle : UMLStyle
16119
16120            return
16121              AMF.Internals.Holders.UMLDI_Holders.To_Holder
16122               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
16123                 (AMF.UMLDI.UML_Keyword_Labels.UMLDI_UML_Keyword_Label_Access
16124                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
16125
16126         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
16127            --  DiagramElement::sharedStyle : Style
16128
16129            return
16130              AMF.Internals.Holders.DI_Holders.To_Holder
16131               (AMF.DI.Styles.DI_Style_Access'
16132                 (AMF.UMLDI.UML_Keyword_Labels.UMLDI_UML_Keyword_Label_Access
16133                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
16134
16135         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Label_Text then
16136            --  UMLLabel::text : String
16137
16138            return
16139              League.Holders.To_Holder
16140               (AMF.UMLDI.UML_Keyword_Labels.UMLDI_UML_Keyword_Label_Access
16141                 (AMF.Internals.Helpers.To_Element (Self)).Get_Text);
16142
16143         else
16144            raise Program_Error;
16145         end if;
16146      end UMLDI_UML_Keyword_Label_Get;
16147
16148      -------------------------
16149      -- UMLDI_UML_Label_Get --
16150      -------------------------
16151
16152      function UMLDI_UML_Label_Get return League.Holders.Holder is
16153      begin
16154         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
16155            --  Shape::bounds : Bounds
16156
16157            return
16158              AMF.DC.Holders.To_Holder
16159               (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access
16160                 (AMF.Internals.Helpers.To_Element (Self)).Get_Bounds);
16161
16162         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
16163            --  UMLDiagramElement::isIcon : Boolean
16164
16165            return
16166              League.Holders.Booleans.To_Holder
16167               (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access
16168                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Icon);
16169
16170         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
16171            --  UMLDiagramElement::localStyle : UMLStyle
16172
16173            return
16174              AMF.Internals.Holders.UMLDI_Holders.To_Holder
16175               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
16176                 (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access
16177                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
16178
16179         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
16180            --  DiagramElement::localStyle : Style
16181
16182            return
16183              AMF.Internals.Holders.DI_Holders.To_Holder
16184               (AMF.DI.Styles.DI_Style_Access'
16185                 (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access
16186                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
16187
16188         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element then
16189            --  UMLDiagramElement::modelElement : Element
16190
16191            return
16192              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
16193               (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access
16194                 (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element);
16195
16196         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Model_Element_A_Diagram_Element then
16197            --  DiagramElement::modelElement : Element
16198
16199            return
16200              AMF.Internals.Holders.CMOF_Holders.To_Holder
16201               (AMF.CMOF.Elements.CMOF_Element_Access'
16202                 (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access
16203                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
16204
16205         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element then
16206            --  UMLDiagramElement::ownedElement : UMLDiagramElement
16207
16208            return
16209              AMF.UMLDI.UML_Diagram_Elements.Collections.UMLDI_UML_Diagram_Element_Collections.Internals.To_Holder
16210               (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access
16211                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
16212
16213         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element then
16214            --  DiagramElement::ownedElement : DiagramElement
16215
16216            return
16217              AMF.DI.Diagram_Elements.Collections.DI_Diagram_Element_Collections.Internals.To_Holder
16218               (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access
16219                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
16220
16221         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
16222            --  UMLDiagramElement::owningElement : UMLDiagramElement
16223
16224            return
16225              AMF.Internals.Holders.UMLDI_Holders.To_Holder
16226               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access'
16227                 (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access
16228                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
16229
16230         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owning_Element_Diagram_Element_Owned_Element then
16231            --  DiagramElement::owningElement : DiagramElement
16232
16233            return
16234              AMF.Internals.Holders.DI_Holders.To_Holder
16235               (AMF.DI.Diagram_Elements.DI_Diagram_Element_Access'
16236                 (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access
16237                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
16238
16239         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
16240            --  UMLDiagramElement::sharedStyle : UMLStyle
16241
16242            return
16243              AMF.Internals.Holders.UMLDI_Holders.To_Holder
16244               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
16245                 (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access
16246                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
16247
16248         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
16249            --  DiagramElement::sharedStyle : Style
16250
16251            return
16252              AMF.Internals.Holders.DI_Holders.To_Holder
16253               (AMF.DI.Styles.DI_Style_Access'
16254                 (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access
16255                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
16256
16257         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Label_Text then
16258            --  UMLLabel::text : String
16259
16260            return
16261              League.Holders.To_Holder
16262               (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access
16263                 (AMF.Internals.Helpers.To_Element (Self)).Get_Text);
16264
16265         else
16266            raise Program_Error;
16267         end if;
16268      end UMLDI_UML_Label_Get;
16269
16270      --------------------------------------
16271      -- UMLDI_UML_Multiplicity_Label_Get --
16272      --------------------------------------
16273
16274      function UMLDI_UML_Multiplicity_Label_Get return League.Holders.Holder is
16275      begin
16276         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
16277            --  Shape::bounds : Bounds
16278
16279            return
16280              AMF.DC.Holders.To_Holder
16281               (AMF.UMLDI.UML_Multiplicity_Labels.UMLDI_UML_Multiplicity_Label_Access
16282                 (AMF.Internals.Helpers.To_Element (Self)).Get_Bounds);
16283
16284         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
16285            --  UMLDiagramElement::isIcon : Boolean
16286
16287            return
16288              League.Holders.Booleans.To_Holder
16289               (AMF.UMLDI.UML_Multiplicity_Labels.UMLDI_UML_Multiplicity_Label_Access
16290                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Icon);
16291
16292         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
16293            --  UMLDiagramElement::localStyle : UMLStyle
16294
16295            return
16296              AMF.Internals.Holders.UMLDI_Holders.To_Holder
16297               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
16298                 (AMF.UMLDI.UML_Multiplicity_Labels.UMLDI_UML_Multiplicity_Label_Access
16299                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
16300
16301         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
16302            --  DiagramElement::localStyle : Style
16303
16304            return
16305              AMF.Internals.Holders.DI_Holders.To_Holder
16306               (AMF.DI.Styles.DI_Style_Access'
16307                 (AMF.UMLDI.UML_Multiplicity_Labels.UMLDI_UML_Multiplicity_Label_Access
16308                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
16309
16310         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element then
16311            --  UMLDiagramElement::modelElement : Element
16312
16313            return
16314              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
16315               (AMF.UMLDI.UML_Multiplicity_Labels.UMLDI_UML_Multiplicity_Label_Access
16316                 (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element);
16317
16318         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Multiplicity_Label_Model_Element_A_Uml_Diagram_Element then
16319            --  UMLMultiplicityLabel::modelElement : MultiplicityElement
16320
16321            return
16322              AMF.Internals.Holders.UML_Holders.To_Holder
16323               (AMF.UML.Multiplicity_Elements.UML_Multiplicity_Element_Access'
16324                 (AMF.UMLDI.UML_Multiplicity_Labels.UMLDI_UML_Multiplicity_Label_Access
16325                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
16326
16327         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Model_Element_A_Diagram_Element then
16328            --  DiagramElement::modelElement : Element
16329
16330            return
16331              AMF.Internals.Holders.CMOF_Holders.To_Holder
16332               (AMF.CMOF.Elements.CMOF_Element_Access'
16333                 (AMF.UMLDI.UML_Multiplicity_Labels.UMLDI_UML_Multiplicity_Label_Access
16334                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
16335
16336         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element then
16337            --  UMLDiagramElement::ownedElement : UMLDiagramElement
16338
16339            return
16340              AMF.UMLDI.UML_Diagram_Elements.Collections.UMLDI_UML_Diagram_Element_Collections.Internals.To_Holder
16341               (AMF.UMLDI.UML_Multiplicity_Labels.UMLDI_UML_Multiplicity_Label_Access
16342                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
16343
16344         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element then
16345            --  DiagramElement::ownedElement : DiagramElement
16346
16347            return
16348              AMF.DI.Diagram_Elements.Collections.DI_Diagram_Element_Collections.Internals.To_Holder
16349               (AMF.UMLDI.UML_Multiplicity_Labels.UMLDI_UML_Multiplicity_Label_Access
16350                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
16351
16352         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
16353            --  UMLDiagramElement::owningElement : UMLDiagramElement
16354
16355            return
16356              AMF.Internals.Holders.UMLDI_Holders.To_Holder
16357               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access'
16358                 (AMF.UMLDI.UML_Multiplicity_Labels.UMLDI_UML_Multiplicity_Label_Access
16359                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
16360
16361         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owning_Element_Diagram_Element_Owned_Element then
16362            --  DiagramElement::owningElement : DiagramElement
16363
16364            return
16365              AMF.Internals.Holders.DI_Holders.To_Holder
16366               (AMF.DI.Diagram_Elements.DI_Diagram_Element_Access'
16367                 (AMF.UMLDI.UML_Multiplicity_Labels.UMLDI_UML_Multiplicity_Label_Access
16368                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
16369
16370         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
16371            --  UMLDiagramElement::sharedStyle : UMLStyle
16372
16373            return
16374              AMF.Internals.Holders.UMLDI_Holders.To_Holder
16375               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
16376                 (AMF.UMLDI.UML_Multiplicity_Labels.UMLDI_UML_Multiplicity_Label_Access
16377                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
16378
16379         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
16380            --  DiagramElement::sharedStyle : Style
16381
16382            return
16383              AMF.Internals.Holders.DI_Holders.To_Holder
16384               (AMF.DI.Styles.DI_Style_Access'
16385                 (AMF.UMLDI.UML_Multiplicity_Labels.UMLDI_UML_Multiplicity_Label_Access
16386                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
16387
16388         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Label_Text then
16389            --  UMLLabel::text : String
16390
16391            return
16392              League.Holders.To_Holder
16393               (AMF.UMLDI.UML_Multiplicity_Labels.UMLDI_UML_Multiplicity_Label_Access
16394                 (AMF.Internals.Helpers.To_Element (Self)).Get_Text);
16395
16396         else
16397            raise Program_Error;
16398         end if;
16399      end UMLDI_UML_Multiplicity_Label_Get;
16400
16401      ------------------------------
16402      -- UMLDI_UML_Name_Label_Get --
16403      ------------------------------
16404
16405      function UMLDI_UML_Name_Label_Get return League.Holders.Holder is
16406      begin
16407         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
16408            --  Shape::bounds : Bounds
16409
16410            return
16411              AMF.DC.Holders.To_Holder
16412               (AMF.UMLDI.UML_Name_Labels.UMLDI_UML_Name_Label_Access
16413                 (AMF.Internals.Helpers.To_Element (Self)).Get_Bounds);
16414
16415         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
16416            --  UMLDiagramElement::isIcon : Boolean
16417
16418            return
16419              League.Holders.Booleans.To_Holder
16420               (AMF.UMLDI.UML_Name_Labels.UMLDI_UML_Name_Label_Access
16421                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Icon);
16422
16423         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
16424            --  UMLDiagramElement::localStyle : UMLStyle
16425
16426            return
16427              AMF.Internals.Holders.UMLDI_Holders.To_Holder
16428               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
16429                 (AMF.UMLDI.UML_Name_Labels.UMLDI_UML_Name_Label_Access
16430                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
16431
16432         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
16433            --  DiagramElement::localStyle : Style
16434
16435            return
16436              AMF.Internals.Holders.DI_Holders.To_Holder
16437               (AMF.DI.Styles.DI_Style_Access'
16438                 (AMF.UMLDI.UML_Name_Labels.UMLDI_UML_Name_Label_Access
16439                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
16440
16441         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Name_Label_Mode_Element_A_Uml_Diagram_Element then
16442            --  UMLNameLabel::modeElement : NamedElement
16443
16444            return
16445              AMF.Internals.Holders.UML_Holders.To_Holder
16446               (AMF.UML.Named_Elements.UML_Named_Element_Access'
16447                 (AMF.UMLDI.UML_Name_Labels.UMLDI_UML_Name_Label_Access
16448                   (AMF.Internals.Helpers.To_Element (Self)).Get_Mode_Element));
16449
16450         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element then
16451            --  UMLDiagramElement::modelElement : Element
16452
16453            return
16454              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
16455               (AMF.UMLDI.UML_Name_Labels.UMLDI_UML_Name_Label_Access
16456                 (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element);
16457
16458         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Model_Element_A_Diagram_Element then
16459            --  DiagramElement::modelElement : Element
16460
16461            return
16462              AMF.Internals.Holders.CMOF_Holders.To_Holder
16463               (AMF.CMOF.Elements.CMOF_Element_Access'
16464                 (AMF.UMLDI.UML_Name_Labels.UMLDI_UML_Name_Label_Access
16465                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
16466
16467         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element then
16468            --  UMLDiagramElement::ownedElement : UMLDiagramElement
16469
16470            return
16471              AMF.UMLDI.UML_Diagram_Elements.Collections.UMLDI_UML_Diagram_Element_Collections.Internals.To_Holder
16472               (AMF.UMLDI.UML_Name_Labels.UMLDI_UML_Name_Label_Access
16473                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
16474
16475         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element then
16476            --  DiagramElement::ownedElement : DiagramElement
16477
16478            return
16479              AMF.DI.Diagram_Elements.Collections.DI_Diagram_Element_Collections.Internals.To_Holder
16480               (AMF.UMLDI.UML_Name_Labels.UMLDI_UML_Name_Label_Access
16481                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
16482
16483         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
16484            --  UMLDiagramElement::owningElement : UMLDiagramElement
16485
16486            return
16487              AMF.Internals.Holders.UMLDI_Holders.To_Holder
16488               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access'
16489                 (AMF.UMLDI.UML_Name_Labels.UMLDI_UML_Name_Label_Access
16490                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
16491
16492         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owning_Element_Diagram_Element_Owned_Element then
16493            --  DiagramElement::owningElement : DiagramElement
16494
16495            return
16496              AMF.Internals.Holders.DI_Holders.To_Holder
16497               (AMF.DI.Diagram_Elements.DI_Diagram_Element_Access'
16498                 (AMF.UMLDI.UML_Name_Labels.UMLDI_UML_Name_Label_Access
16499                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
16500
16501         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
16502            --  UMLDiagramElement::sharedStyle : UMLStyle
16503
16504            return
16505              AMF.Internals.Holders.UMLDI_Holders.To_Holder
16506               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
16507                 (AMF.UMLDI.UML_Name_Labels.UMLDI_UML_Name_Label_Access
16508                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
16509
16510         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
16511            --  DiagramElement::sharedStyle : Style
16512
16513            return
16514              AMF.Internals.Holders.DI_Holders.To_Holder
16515               (AMF.DI.Styles.DI_Style_Access'
16516                 (AMF.UMLDI.UML_Name_Labels.UMLDI_UML_Name_Label_Access
16517                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
16518
16519         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Label_Text then
16520            --  UMLLabel::text : String
16521
16522            return
16523              League.Holders.To_Holder
16524               (AMF.UMLDI.UML_Name_Labels.UMLDI_UML_Name_Label_Access
16525                 (AMF.Internals.Helpers.To_Element (Self)).Get_Text);
16526
16527         else
16528            raise Program_Error;
16529         end if;
16530      end UMLDI_UML_Name_Label_Get;
16531
16532      ----------------------------------
16533      -- UMLDI_UML_Object_Diagram_Get --
16534      ----------------------------------
16535
16536      function UMLDI_UML_Object_Diagram_Get return League.Holders.Holder is
16537      begin
16538         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
16539            --  Shape::bounds : Bounds
16540
16541            return
16542              AMF.DC.Holders.To_Holder
16543               (AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
16544                 (AMF.Internals.Helpers.To_Element (Self)).Get_Bounds);
16545
16546         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
16547            --  NamedElement::clientDependency : Dependency
16548
16549            return
16550              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
16551               (AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
16552                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
16553
16554         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Documentation then
16555            --  Diagram::documentation : String
16556
16557            return
16558              League.Holders.To_Holder
16559               (AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
16560                 (AMF.Internals.Helpers.To_Element (Self)).Get_Documentation);
16561
16562         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Heading_A_Headed_Diagram then
16563            --  UMLDiagram::heading : UMLLabel
16564
16565            return
16566              AMF.Internals.Holders.UMLDI_Holders.To_Holder
16567               (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access'
16568                 (AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
16569                   (AMF.Internals.Helpers.To_Element (Self)).Get_Heading));
16570
16571         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Frame then
16572            --  UMLDiagram::isFrame : Boolean
16573
16574            return
16575              League.Holders.Booleans.To_Holder
16576               (AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
16577                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Frame);
16578
16579         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
16580            --  UMLDiagramElement::isIcon : Boolean
16581
16582            return
16583              League.Holders.Booleans.To_Holder
16584               (AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
16585                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Icon);
16586
16587         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Iso then
16588            --  UMLDiagram::isIso : Boolean
16589
16590            return
16591              League.Holders.Booleans.To_Holder
16592               (AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
16593                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Iso);
16594
16595         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
16596            --  UMLDiagramElement::localStyle : UMLStyle
16597
16598            return
16599              AMF.Internals.Holders.UMLDI_Holders.To_Holder
16600               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
16601                 (AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
16602                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
16603
16604         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
16605            --  DiagramElement::localStyle : Style
16606
16607            return
16608              AMF.Internals.Holders.DI_Holders.To_Holder
16609               (AMF.DI.Styles.DI_Style_Access'
16610                 (AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
16611                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
16612
16613         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element then
16614            --  UMLDiagramElement::modelElement : Element
16615
16616            return
16617              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
16618               (AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
16619                 (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element);
16620
16621         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Model_Element_A_Diagram_Element then
16622            --  DiagramElement::modelElement : Element
16623
16624            return
16625              AMF.Internals.Holders.CMOF_Holders.To_Holder
16626               (AMF.CMOF.Elements.CMOF_Element_Access'
16627                 (AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
16628                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
16629
16630         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
16631            --  NamedElement::name : String
16632
16633            return
16634              AMF.Holders.To_Holder
16635               (AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
16636                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
16637
16638         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Name then
16639            --  Diagram::name : String
16640
16641            return
16642              League.Holders.To_Holder
16643               (AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
16644                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
16645
16646         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
16647            --  NamedElement::nameExpression : StringExpression
16648
16649            return
16650              AMF.Internals.Holders.UML_Holders.To_Holder
16651               (AMF.UML.String_Expressions.UML_String_Expression_Access'
16652                 (AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
16653                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
16654
16655         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
16656            --  NamedElement::namespace : Namespace
16657
16658            return
16659              AMF.Internals.Holders.UML_Holders.To_Holder
16660               (AMF.UML.Namespaces.UML_Namespace_Access'
16661                 (AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
16662                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
16663
16664         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
16665            --  Element::ownedComment : Comment
16666
16667            return
16668              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
16669               (AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
16670                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
16671
16672         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
16673            --  Element::ownedElement : Element
16674
16675            return
16676              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
16677               (AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
16678                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
16679
16680         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element then
16681            --  UMLDiagramElement::ownedElement : UMLDiagramElement
16682
16683            return
16684              AMF.UMLDI.UML_Diagram_Elements.Collections.UMLDI_UML_Diagram_Element_Collections.Internals.To_Holder
16685               (AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
16686                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
16687
16688         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element then
16689            --  DiagramElement::ownedElement : DiagramElement
16690
16691            return
16692              AMF.DI.Diagram_Elements.Collections.DI_Diagram_Element_Collections.Internals.To_Holder
16693               (AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
16694                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
16695
16696         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
16697            --  Element::owner : Element
16698
16699            return
16700              AMF.Internals.Holders.UML_Holders.To_Holder
16701               (AMF.UML.Elements.UML_Element_Access'
16702                 (AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
16703                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
16704
16705         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
16706            --  UMLDiagramElement::owningElement : UMLDiagramElement
16707
16708            return
16709              AMF.Internals.Holders.UMLDI_Holders.To_Holder
16710               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access'
16711                 (AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
16712                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
16713
16714         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owning_Element_Diagram_Element_Owned_Element then
16715            --  DiagramElement::owningElement : DiagramElement
16716
16717            return
16718              AMF.Internals.Holders.DI_Holders.To_Holder
16719               (AMF.DI.Diagram_Elements.DI_Diagram_Element_Access'
16720                 (AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
16721                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
16722
16723         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
16724            --  ParameterableElement::owningTemplateParameter : TemplateParameter
16725
16726            return
16727              AMF.Internals.Holders.UML_Holders.To_Holder
16728               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
16729                 (AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
16730                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
16731
16732         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
16733            --  NamedElement::qualifiedName : String
16734
16735            return
16736              AMF.Holders.To_Holder
16737               (AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
16738                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
16739
16740         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Resolution then
16741            --  Diagram::resolution : Real
16742
16743            return
16744              AMF.Holders.Reals.To_Holder
16745               (AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
16746                 (AMF.Internals.Helpers.To_Element (Self)).Get_Resolution);
16747
16748         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
16749            --  UMLDiagramElement::sharedStyle : UMLStyle
16750
16751            return
16752              AMF.Internals.Holders.UMLDI_Holders.To_Holder
16753               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
16754                 (AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
16755                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
16756
16757         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
16758            --  DiagramElement::sharedStyle : Style
16759
16760            return
16761              AMF.Internals.Holders.DI_Holders.To_Holder
16762               (AMF.DI.Styles.DI_Style_Access'
16763                 (AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
16764                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
16765
16766         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
16767            --  ParameterableElement::templateParameter : TemplateParameter
16768
16769            return
16770              AMF.Internals.Holders.UML_Holders.To_Holder
16771               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
16772                 (AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
16773                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
16774
16775         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
16776            --  NamedElement::visibility : VisibilityKind
16777
16778            return
16779              AMF.UML.Holders.To_Holder
16780               (AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
16781                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
16782
16783         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
16784            --  PackageableElement::visibility : VisibilityKind
16785
16786            return
16787              AMF.UML.Holders.Visibility_Kinds.To_Holder
16788               (AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
16789                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
16790
16791         else
16792            raise Program_Error;
16793         end if;
16794      end UMLDI_UML_Object_Diagram_Get;
16795
16796      -----------------------------------
16797      -- UMLDI_UML_Package_Diagram_Get --
16798      -----------------------------------
16799
16800      function UMLDI_UML_Package_Diagram_Get return League.Holders.Holder is
16801      begin
16802         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
16803            --  Shape::bounds : Bounds
16804
16805            return
16806              AMF.DC.Holders.To_Holder
16807               (AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
16808                 (AMF.Internals.Helpers.To_Element (Self)).Get_Bounds);
16809
16810         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
16811            --  NamedElement::clientDependency : Dependency
16812
16813            return
16814              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
16815               (AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
16816                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
16817
16818         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Documentation then
16819            --  Diagram::documentation : String
16820
16821            return
16822              League.Holders.To_Holder
16823               (AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
16824                 (AMF.Internals.Helpers.To_Element (Self)).Get_Documentation);
16825
16826         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Heading_A_Headed_Diagram then
16827            --  UMLDiagram::heading : UMLLabel
16828
16829            return
16830              AMF.Internals.Holders.UMLDI_Holders.To_Holder
16831               (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access'
16832                 (AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
16833                   (AMF.Internals.Helpers.To_Element (Self)).Get_Heading));
16834
16835         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Frame then
16836            --  UMLDiagram::isFrame : Boolean
16837
16838            return
16839              League.Holders.Booleans.To_Holder
16840               (AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
16841                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Frame);
16842
16843         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
16844            --  UMLDiagramElement::isIcon : Boolean
16845
16846            return
16847              League.Holders.Booleans.To_Holder
16848               (AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
16849                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Icon);
16850
16851         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Iso then
16852            --  UMLDiagram::isIso : Boolean
16853
16854            return
16855              League.Holders.Booleans.To_Holder
16856               (AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
16857                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Iso);
16858
16859         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
16860            --  UMLDiagramElement::localStyle : UMLStyle
16861
16862            return
16863              AMF.Internals.Holders.UMLDI_Holders.To_Holder
16864               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
16865                 (AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
16866                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
16867
16868         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
16869            --  DiagramElement::localStyle : Style
16870
16871            return
16872              AMF.Internals.Holders.DI_Holders.To_Holder
16873               (AMF.DI.Styles.DI_Style_Access'
16874                 (AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
16875                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
16876
16877         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element then
16878            --  UMLDiagramElement::modelElement : Element
16879
16880            return
16881              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
16882               (AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
16883                 (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element);
16884
16885         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Model_Element_A_Diagram_Element then
16886            --  DiagramElement::modelElement : Element
16887
16888            return
16889              AMF.Internals.Holders.CMOF_Holders.To_Holder
16890               (AMF.CMOF.Elements.CMOF_Element_Access'
16891                 (AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
16892                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
16893
16894         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
16895            --  NamedElement::name : String
16896
16897            return
16898              AMF.Holders.To_Holder
16899               (AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
16900                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
16901
16902         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Name then
16903            --  Diagram::name : String
16904
16905            return
16906              League.Holders.To_Holder
16907               (AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
16908                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
16909
16910         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
16911            --  NamedElement::nameExpression : StringExpression
16912
16913            return
16914              AMF.Internals.Holders.UML_Holders.To_Holder
16915               (AMF.UML.String_Expressions.UML_String_Expression_Access'
16916                 (AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
16917                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
16918
16919         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
16920            --  NamedElement::namespace : Namespace
16921
16922            return
16923              AMF.Internals.Holders.UML_Holders.To_Holder
16924               (AMF.UML.Namespaces.UML_Namespace_Access'
16925                 (AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
16926                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
16927
16928         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
16929            --  Element::ownedComment : Comment
16930
16931            return
16932              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
16933               (AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
16934                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
16935
16936         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
16937            --  Element::ownedElement : Element
16938
16939            return
16940              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
16941               (AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
16942                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
16943
16944         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element then
16945            --  UMLDiagramElement::ownedElement : UMLDiagramElement
16946
16947            return
16948              AMF.UMLDI.UML_Diagram_Elements.Collections.UMLDI_UML_Diagram_Element_Collections.Internals.To_Holder
16949               (AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
16950                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
16951
16952         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element then
16953            --  DiagramElement::ownedElement : DiagramElement
16954
16955            return
16956              AMF.DI.Diagram_Elements.Collections.DI_Diagram_Element_Collections.Internals.To_Holder
16957               (AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
16958                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
16959
16960         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
16961            --  Element::owner : Element
16962
16963            return
16964              AMF.Internals.Holders.UML_Holders.To_Holder
16965               (AMF.UML.Elements.UML_Element_Access'
16966                 (AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
16967                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
16968
16969         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
16970            --  UMLDiagramElement::owningElement : UMLDiagramElement
16971
16972            return
16973              AMF.Internals.Holders.UMLDI_Holders.To_Holder
16974               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access'
16975                 (AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
16976                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
16977
16978         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owning_Element_Diagram_Element_Owned_Element then
16979            --  DiagramElement::owningElement : DiagramElement
16980
16981            return
16982              AMF.Internals.Holders.DI_Holders.To_Holder
16983               (AMF.DI.Diagram_Elements.DI_Diagram_Element_Access'
16984                 (AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
16985                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
16986
16987         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
16988            --  ParameterableElement::owningTemplateParameter : TemplateParameter
16989
16990            return
16991              AMF.Internals.Holders.UML_Holders.To_Holder
16992               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
16993                 (AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
16994                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
16995
16996         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
16997            --  NamedElement::qualifiedName : String
16998
16999            return
17000              AMF.Holders.To_Holder
17001               (AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
17002                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
17003
17004         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Resolution then
17005            --  Diagram::resolution : Real
17006
17007            return
17008              AMF.Holders.Reals.To_Holder
17009               (AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
17010                 (AMF.Internals.Helpers.To_Element (Self)).Get_Resolution);
17011
17012         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
17013            --  UMLDiagramElement::sharedStyle : UMLStyle
17014
17015            return
17016              AMF.Internals.Holders.UMLDI_Holders.To_Holder
17017               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
17018                 (AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
17019                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
17020
17021         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
17022            --  DiagramElement::sharedStyle : Style
17023
17024            return
17025              AMF.Internals.Holders.DI_Holders.To_Holder
17026               (AMF.DI.Styles.DI_Style_Access'
17027                 (AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
17028                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
17029
17030         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
17031            --  ParameterableElement::templateParameter : TemplateParameter
17032
17033            return
17034              AMF.Internals.Holders.UML_Holders.To_Holder
17035               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
17036                 (AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
17037                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
17038
17039         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
17040            --  NamedElement::visibility : VisibilityKind
17041
17042            return
17043              AMF.UML.Holders.To_Holder
17044               (AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
17045                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
17046
17047         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
17048            --  PackageableElement::visibility : VisibilityKind
17049
17050            return
17051              AMF.UML.Holders.Visibility_Kinds.To_Holder
17052               (AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
17053                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
17054
17055         else
17056            raise Program_Error;
17057         end if;
17058      end UMLDI_UML_Package_Diagram_Get;
17059
17060      -----------------------------------
17061      -- UMLDI_UML_Profile_Diagram_Get --
17062      -----------------------------------
17063
17064      function UMLDI_UML_Profile_Diagram_Get return League.Holders.Holder is
17065      begin
17066         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
17067            --  Shape::bounds : Bounds
17068
17069            return
17070              AMF.DC.Holders.To_Holder
17071               (AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
17072                 (AMF.Internals.Helpers.To_Element (Self)).Get_Bounds);
17073
17074         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
17075            --  NamedElement::clientDependency : Dependency
17076
17077            return
17078              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
17079               (AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
17080                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
17081
17082         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Documentation then
17083            --  Diagram::documentation : String
17084
17085            return
17086              League.Holders.To_Holder
17087               (AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
17088                 (AMF.Internals.Helpers.To_Element (Self)).Get_Documentation);
17089
17090         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Heading_A_Headed_Diagram then
17091            --  UMLDiagram::heading : UMLLabel
17092
17093            return
17094              AMF.Internals.Holders.UMLDI_Holders.To_Holder
17095               (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access'
17096                 (AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
17097                   (AMF.Internals.Helpers.To_Element (Self)).Get_Heading));
17098
17099         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Frame then
17100            --  UMLDiagram::isFrame : Boolean
17101
17102            return
17103              League.Holders.Booleans.To_Holder
17104               (AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
17105                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Frame);
17106
17107         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
17108            --  UMLDiagramElement::isIcon : Boolean
17109
17110            return
17111              League.Holders.Booleans.To_Holder
17112               (AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
17113                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Icon);
17114
17115         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Iso then
17116            --  UMLDiagram::isIso : Boolean
17117
17118            return
17119              League.Holders.Booleans.To_Holder
17120               (AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
17121                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Iso);
17122
17123         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
17124            --  UMLDiagramElement::localStyle : UMLStyle
17125
17126            return
17127              AMF.Internals.Holders.UMLDI_Holders.To_Holder
17128               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
17129                 (AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
17130                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
17131
17132         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
17133            --  DiagramElement::localStyle : Style
17134
17135            return
17136              AMF.Internals.Holders.DI_Holders.To_Holder
17137               (AMF.DI.Styles.DI_Style_Access'
17138                 (AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
17139                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
17140
17141         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element then
17142            --  UMLDiagramElement::modelElement : Element
17143
17144            return
17145              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
17146               (AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
17147                 (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element);
17148
17149         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Model_Element_A_Diagram_Element then
17150            --  DiagramElement::modelElement : Element
17151
17152            return
17153              AMF.Internals.Holders.CMOF_Holders.To_Holder
17154               (AMF.CMOF.Elements.CMOF_Element_Access'
17155                 (AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
17156                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
17157
17158         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
17159            --  NamedElement::name : String
17160
17161            return
17162              AMF.Holders.To_Holder
17163               (AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
17164                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
17165
17166         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Name then
17167            --  Diagram::name : String
17168
17169            return
17170              League.Holders.To_Holder
17171               (AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
17172                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
17173
17174         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
17175            --  NamedElement::nameExpression : StringExpression
17176
17177            return
17178              AMF.Internals.Holders.UML_Holders.To_Holder
17179               (AMF.UML.String_Expressions.UML_String_Expression_Access'
17180                 (AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
17181                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
17182
17183         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
17184            --  NamedElement::namespace : Namespace
17185
17186            return
17187              AMF.Internals.Holders.UML_Holders.To_Holder
17188               (AMF.UML.Namespaces.UML_Namespace_Access'
17189                 (AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
17190                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
17191
17192         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
17193            --  Element::ownedComment : Comment
17194
17195            return
17196              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
17197               (AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
17198                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
17199
17200         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
17201            --  Element::ownedElement : Element
17202
17203            return
17204              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
17205               (AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
17206                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
17207
17208         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element then
17209            --  UMLDiagramElement::ownedElement : UMLDiagramElement
17210
17211            return
17212              AMF.UMLDI.UML_Diagram_Elements.Collections.UMLDI_UML_Diagram_Element_Collections.Internals.To_Holder
17213               (AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
17214                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
17215
17216         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element then
17217            --  DiagramElement::ownedElement : DiagramElement
17218
17219            return
17220              AMF.DI.Diagram_Elements.Collections.DI_Diagram_Element_Collections.Internals.To_Holder
17221               (AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
17222                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
17223
17224         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
17225            --  Element::owner : Element
17226
17227            return
17228              AMF.Internals.Holders.UML_Holders.To_Holder
17229               (AMF.UML.Elements.UML_Element_Access'
17230                 (AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
17231                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
17232
17233         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
17234            --  UMLDiagramElement::owningElement : UMLDiagramElement
17235
17236            return
17237              AMF.Internals.Holders.UMLDI_Holders.To_Holder
17238               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access'
17239                 (AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
17240                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
17241
17242         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owning_Element_Diagram_Element_Owned_Element then
17243            --  DiagramElement::owningElement : DiagramElement
17244
17245            return
17246              AMF.Internals.Holders.DI_Holders.To_Holder
17247               (AMF.DI.Diagram_Elements.DI_Diagram_Element_Access'
17248                 (AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
17249                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
17250
17251         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
17252            --  ParameterableElement::owningTemplateParameter : TemplateParameter
17253
17254            return
17255              AMF.Internals.Holders.UML_Holders.To_Holder
17256               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
17257                 (AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
17258                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
17259
17260         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
17261            --  NamedElement::qualifiedName : String
17262
17263            return
17264              AMF.Holders.To_Holder
17265               (AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
17266                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
17267
17268         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Resolution then
17269            --  Diagram::resolution : Real
17270
17271            return
17272              AMF.Holders.Reals.To_Holder
17273               (AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
17274                 (AMF.Internals.Helpers.To_Element (Self)).Get_Resolution);
17275
17276         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
17277            --  UMLDiagramElement::sharedStyle : UMLStyle
17278
17279            return
17280              AMF.Internals.Holders.UMLDI_Holders.To_Holder
17281               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
17282                 (AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
17283                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
17284
17285         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
17286            --  DiagramElement::sharedStyle : Style
17287
17288            return
17289              AMF.Internals.Holders.DI_Holders.To_Holder
17290               (AMF.DI.Styles.DI_Style_Access'
17291                 (AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
17292                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
17293
17294         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
17295            --  ParameterableElement::templateParameter : TemplateParameter
17296
17297            return
17298              AMF.Internals.Holders.UML_Holders.To_Holder
17299               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
17300                 (AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
17301                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
17302
17303         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
17304            --  NamedElement::visibility : VisibilityKind
17305
17306            return
17307              AMF.UML.Holders.To_Holder
17308               (AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
17309                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
17310
17311         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
17312            --  PackageableElement::visibility : VisibilityKind
17313
17314            return
17315              AMF.UML.Holders.Visibility_Kinds.To_Holder
17316               (AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
17317                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
17318
17319         else
17320            raise Program_Error;
17321         end if;
17322      end UMLDI_UML_Profile_Diagram_Get;
17323
17324      -----------------------------------
17325      -- UMLDI_UML_Redefines_Label_Get --
17326      -----------------------------------
17327
17328      function UMLDI_UML_Redefines_Label_Get return League.Holders.Holder is
17329      begin
17330         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
17331            --  Shape::bounds : Bounds
17332
17333            return
17334              AMF.DC.Holders.To_Holder
17335               (AMF.UMLDI.UML_Redefines_Labels.UMLDI_UML_Redefines_Label_Access
17336                 (AMF.Internals.Helpers.To_Element (Self)).Get_Bounds);
17337
17338         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
17339            --  UMLDiagramElement::isIcon : Boolean
17340
17341            return
17342              League.Holders.Booleans.To_Holder
17343               (AMF.UMLDI.UML_Redefines_Labels.UMLDI_UML_Redefines_Label_Access
17344                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Icon);
17345
17346         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
17347            --  UMLDiagramElement::localStyle : UMLStyle
17348
17349            return
17350              AMF.Internals.Holders.UMLDI_Holders.To_Holder
17351               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
17352                 (AMF.UMLDI.UML_Redefines_Labels.UMLDI_UML_Redefines_Label_Access
17353                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
17354
17355         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
17356            --  DiagramElement::localStyle : Style
17357
17358            return
17359              AMF.Internals.Holders.DI_Holders.To_Holder
17360               (AMF.DI.Styles.DI_Style_Access'
17361                 (AMF.UMLDI.UML_Redefines_Labels.UMLDI_UML_Redefines_Label_Access
17362                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
17363
17364         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element then
17365            --  UMLDiagramElement::modelElement : Element
17366
17367            return
17368              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
17369               (AMF.UMLDI.UML_Redefines_Labels.UMLDI_UML_Redefines_Label_Access
17370                 (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element);
17371
17372         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Redefines_Label_Model_Element_A_Uml_Diagram_Element then
17373            --  UMLRedefinesLabel::modelElement : RedefinableElement
17374
17375            return
17376              AMF.Internals.Holders.UML_Holders.To_Holder
17377               (AMF.UML.Redefinable_Elements.UML_Redefinable_Element_Access'
17378                 (AMF.UMLDI.UML_Redefines_Labels.UMLDI_UML_Redefines_Label_Access
17379                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
17380
17381         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Model_Element_A_Diagram_Element then
17382            --  DiagramElement::modelElement : Element
17383
17384            return
17385              AMF.Internals.Holders.CMOF_Holders.To_Holder
17386               (AMF.CMOF.Elements.CMOF_Element_Access'
17387                 (AMF.UMLDI.UML_Redefines_Labels.UMLDI_UML_Redefines_Label_Access
17388                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
17389
17390         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element then
17391            --  UMLDiagramElement::ownedElement : UMLDiagramElement
17392
17393            return
17394              AMF.UMLDI.UML_Diagram_Elements.Collections.UMLDI_UML_Diagram_Element_Collections.Internals.To_Holder
17395               (AMF.UMLDI.UML_Redefines_Labels.UMLDI_UML_Redefines_Label_Access
17396                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
17397
17398         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element then
17399            --  DiagramElement::ownedElement : DiagramElement
17400
17401            return
17402              AMF.DI.Diagram_Elements.Collections.DI_Diagram_Element_Collections.Internals.To_Holder
17403               (AMF.UMLDI.UML_Redefines_Labels.UMLDI_UML_Redefines_Label_Access
17404                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
17405
17406         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
17407            --  UMLDiagramElement::owningElement : UMLDiagramElement
17408
17409            return
17410              AMF.Internals.Holders.UMLDI_Holders.To_Holder
17411               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access'
17412                 (AMF.UMLDI.UML_Redefines_Labels.UMLDI_UML_Redefines_Label_Access
17413                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
17414
17415         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owning_Element_Diagram_Element_Owned_Element then
17416            --  DiagramElement::owningElement : DiagramElement
17417
17418            return
17419              AMF.Internals.Holders.DI_Holders.To_Holder
17420               (AMF.DI.Diagram_Elements.DI_Diagram_Element_Access'
17421                 (AMF.UMLDI.UML_Redefines_Labels.UMLDI_UML_Redefines_Label_Access
17422                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
17423
17424         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
17425            --  UMLDiagramElement::sharedStyle : UMLStyle
17426
17427            return
17428              AMF.Internals.Holders.UMLDI_Holders.To_Holder
17429               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
17430                 (AMF.UMLDI.UML_Redefines_Labels.UMLDI_UML_Redefines_Label_Access
17431                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
17432
17433         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
17434            --  DiagramElement::sharedStyle : Style
17435
17436            return
17437              AMF.Internals.Holders.DI_Holders.To_Holder
17438               (AMF.DI.Styles.DI_Style_Access'
17439                 (AMF.UMLDI.UML_Redefines_Labels.UMLDI_UML_Redefines_Label_Access
17440                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
17441
17442         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Label_Text then
17443            --  UMLLabel::text : String
17444
17445            return
17446              League.Holders.To_Holder
17447               (AMF.UMLDI.UML_Redefines_Labels.UMLDI_UML_Redefines_Label_Access
17448                 (AMF.Internals.Helpers.To_Element (Self)).Get_Text);
17449
17450         else
17451            raise Program_Error;
17452         end if;
17453      end UMLDI_UML_Redefines_Label_Get;
17454
17455      -------------------------
17456      -- UMLDI_UML_Shape_Get --
17457      -------------------------
17458
17459      function UMLDI_UML_Shape_Get return League.Holders.Holder is
17460      begin
17461         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
17462            --  Shape::bounds : Bounds
17463
17464            return
17465              AMF.DC.Holders.To_Holder
17466               (AMF.UMLDI.UML_Shapes.UMLDI_UML_Shape_Access
17467                 (AMF.Internals.Helpers.To_Element (Self)).Get_Bounds);
17468
17469         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
17470            --  UMLDiagramElement::isIcon : Boolean
17471
17472            return
17473              League.Holders.Booleans.To_Holder
17474               (AMF.UMLDI.UML_Shapes.UMLDI_UML_Shape_Access
17475                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Icon);
17476
17477         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
17478            --  UMLDiagramElement::localStyle : UMLStyle
17479
17480            return
17481              AMF.Internals.Holders.UMLDI_Holders.To_Holder
17482               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
17483                 (AMF.UMLDI.UML_Shapes.UMLDI_UML_Shape_Access
17484                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
17485
17486         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
17487            --  DiagramElement::localStyle : Style
17488
17489            return
17490              AMF.Internals.Holders.DI_Holders.To_Holder
17491               (AMF.DI.Styles.DI_Style_Access'
17492                 (AMF.UMLDI.UML_Shapes.UMLDI_UML_Shape_Access
17493                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
17494
17495         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element then
17496            --  UMLDiagramElement::modelElement : Element
17497
17498            return
17499              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
17500               (AMF.UMLDI.UML_Shapes.UMLDI_UML_Shape_Access
17501                 (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element);
17502
17503         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Model_Element_A_Diagram_Element then
17504            --  DiagramElement::modelElement : Element
17505
17506            return
17507              AMF.Internals.Holders.CMOF_Holders.To_Holder
17508               (AMF.CMOF.Elements.CMOF_Element_Access'
17509                 (AMF.UMLDI.UML_Shapes.UMLDI_UML_Shape_Access
17510                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
17511
17512         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element then
17513            --  UMLDiagramElement::ownedElement : UMLDiagramElement
17514
17515            return
17516              AMF.UMLDI.UML_Diagram_Elements.Collections.UMLDI_UML_Diagram_Element_Collections.Internals.To_Holder
17517               (AMF.UMLDI.UML_Shapes.UMLDI_UML_Shape_Access
17518                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
17519
17520         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element then
17521            --  DiagramElement::ownedElement : DiagramElement
17522
17523            return
17524              AMF.DI.Diagram_Elements.Collections.DI_Diagram_Element_Collections.Internals.To_Holder
17525               (AMF.UMLDI.UML_Shapes.UMLDI_UML_Shape_Access
17526                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
17527
17528         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
17529            --  UMLDiagramElement::owningElement : UMLDiagramElement
17530
17531            return
17532              AMF.Internals.Holders.UMLDI_Holders.To_Holder
17533               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access'
17534                 (AMF.UMLDI.UML_Shapes.UMLDI_UML_Shape_Access
17535                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
17536
17537         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owning_Element_Diagram_Element_Owned_Element then
17538            --  DiagramElement::owningElement : DiagramElement
17539
17540            return
17541              AMF.Internals.Holders.DI_Holders.To_Holder
17542               (AMF.DI.Diagram_Elements.DI_Diagram_Element_Access'
17543                 (AMF.UMLDI.UML_Shapes.UMLDI_UML_Shape_Access
17544                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
17545
17546         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
17547            --  UMLDiagramElement::sharedStyle : UMLStyle
17548
17549            return
17550              AMF.Internals.Holders.UMLDI_Holders.To_Holder
17551               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
17552                 (AMF.UMLDI.UML_Shapes.UMLDI_UML_Shape_Access
17553                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
17554
17555         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
17556            --  DiagramElement::sharedStyle : Style
17557
17558            return
17559              AMF.Internals.Holders.DI_Holders.To_Holder
17560               (AMF.DI.Styles.DI_Style_Access'
17561                 (AMF.UMLDI.UML_Shapes.UMLDI_UML_Shape_Access
17562                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
17563
17564         else
17565            raise Program_Error;
17566         end if;
17567      end UMLDI_UML_Shape_Get;
17568
17569      -----------------------------------------
17570      -- UMLDI_UML_State_Machine_Diagram_Get --
17571      -----------------------------------------
17572
17573      function UMLDI_UML_State_Machine_Diagram_Get return League.Holders.Holder is
17574      begin
17575         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
17576            --  Shape::bounds : Bounds
17577
17578            return
17579              AMF.DC.Holders.To_Holder
17580               (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17581                 (AMF.Internals.Helpers.To_Element (Self)).Get_Bounds);
17582
17583         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
17584            --  NamedElement::clientDependency : Dependency
17585
17586            return
17587              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
17588               (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17589                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
17590
17591         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Documentation then
17592            --  Diagram::documentation : String
17593
17594            return
17595              League.Holders.To_Holder
17596               (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17597                 (AMF.Internals.Helpers.To_Element (Self)).Get_Documentation);
17598
17599         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Heading_A_Headed_Diagram then
17600            --  UMLDiagram::heading : UMLLabel
17601
17602            return
17603              AMF.Internals.Holders.UMLDI_Holders.To_Holder
17604               (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access'
17605                 (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17606                   (AMF.Internals.Helpers.To_Element (Self)).Get_Heading));
17607
17608         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_State_Machine_Diagram_Inherited_State_Border then
17609            --  UMLStateMachineDiagram::inheritedStateBorder : UMLInheritedStateBorderKind
17610
17611            return
17612              AMF.UMLDI.Holders.To_Holder
17613               (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17614                 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_State_Border);
17615
17616         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_State_Machine_Diagram_Is_Collapse_State_Icon then
17617            --  UMLStateMachineDiagram::isCollapseStateIcon : Boolean
17618
17619            return
17620              League.Holders.Booleans.To_Holder
17621               (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17622                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Collapse_State_Icon);
17623
17624         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Frame then
17625            --  UMLDiagram::isFrame : Boolean
17626
17627            return
17628              League.Holders.Booleans.To_Holder
17629               (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17630                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Frame);
17631
17632         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
17633            --  UMLDiagramElement::isIcon : Boolean
17634
17635            return
17636              League.Holders.Booleans.To_Holder
17637               (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17638                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Icon);
17639
17640         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Iso then
17641            --  UMLDiagram::isIso : Boolean
17642
17643            return
17644              League.Holders.Booleans.To_Holder
17645               (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17646                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Iso);
17647
17648         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_State_Machine_Diagram_Is_Transition_Oriented then
17649            --  UMLStateMachineDiagram::isTransitionOriented : Boolean
17650
17651            return
17652              League.Holders.Booleans.To_Holder
17653               (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17654                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Transition_Oriented);
17655
17656         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
17657            --  UMLDiagramElement::localStyle : UMLStyle
17658
17659            return
17660              AMF.Internals.Holders.UMLDI_Holders.To_Holder
17661               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
17662                 (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17663                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
17664
17665         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
17666            --  DiagramElement::localStyle : Style
17667
17668            return
17669              AMF.Internals.Holders.DI_Holders.To_Holder
17670               (AMF.DI.Styles.DI_Style_Access'
17671                 (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17672                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
17673
17674         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Behavior_Diagram_Model_Element_A_Uml_Diagram_Element then
17675            --  UMLBehaviorDiagram::modelElement : Behavior
17676
17677            return
17678              AMF.Internals.Holders.UML_Holders.To_Holder
17679               (AMF.UML.Behaviors.UML_Behavior_Access'
17680                 (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17681                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
17682
17683         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element then
17684            --  UMLDiagramElement::modelElement : Element
17685
17686            return
17687              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
17688               (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17689                 (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element);
17690
17691         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_State_Machine_Diagram_Model_Element_A_Uml_Diagram_Element then
17692            --  UMLStateMachineDiagram::modelElement : StateMachine
17693
17694            return
17695              AMF.Internals.Holders.UML_Holders.To_Holder
17696               (AMF.UML.State_Machines.UML_State_Machine_Access'
17697                 (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17698                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
17699
17700         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Model_Element_A_Diagram_Element then
17701            --  DiagramElement::modelElement : Element
17702
17703            return
17704              AMF.Internals.Holders.CMOF_Holders.To_Holder
17705               (AMF.CMOF.Elements.CMOF_Element_Access'
17706                 (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17707                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
17708
17709         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
17710            --  NamedElement::name : String
17711
17712            return
17713              AMF.Holders.To_Holder
17714               (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17715                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
17716
17717         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Name then
17718            --  Diagram::name : String
17719
17720            return
17721              League.Holders.To_Holder
17722               (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17723                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
17724
17725         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
17726            --  NamedElement::nameExpression : StringExpression
17727
17728            return
17729              AMF.Internals.Holders.UML_Holders.To_Holder
17730               (AMF.UML.String_Expressions.UML_String_Expression_Access'
17731                 (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17732                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
17733
17734         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
17735            --  NamedElement::namespace : Namespace
17736
17737            return
17738              AMF.Internals.Holders.UML_Holders.To_Holder
17739               (AMF.UML.Namespaces.UML_Namespace_Access'
17740                 (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17741                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
17742
17743         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
17744            --  Element::ownedComment : Comment
17745
17746            return
17747              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
17748               (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17749                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
17750
17751         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
17752            --  Element::ownedElement : Element
17753
17754            return
17755              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
17756               (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17757                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
17758
17759         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element then
17760            --  UMLDiagramElement::ownedElement : UMLDiagramElement
17761
17762            return
17763              AMF.UMLDI.UML_Diagram_Elements.Collections.UMLDI_UML_Diagram_Element_Collections.Internals.To_Holder
17764               (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17765                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
17766
17767         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element then
17768            --  DiagramElement::ownedElement : DiagramElement
17769
17770            return
17771              AMF.DI.Diagram_Elements.Collections.DI_Diagram_Element_Collections.Internals.To_Holder
17772               (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17773                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
17774
17775         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
17776            --  Element::owner : Element
17777
17778            return
17779              AMF.Internals.Holders.UML_Holders.To_Holder
17780               (AMF.UML.Elements.UML_Element_Access'
17781                 (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17782                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
17783
17784         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
17785            --  UMLDiagramElement::owningElement : UMLDiagramElement
17786
17787            return
17788              AMF.Internals.Holders.UMLDI_Holders.To_Holder
17789               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access'
17790                 (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17791                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
17792
17793         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owning_Element_Diagram_Element_Owned_Element then
17794            --  DiagramElement::owningElement : DiagramElement
17795
17796            return
17797              AMF.Internals.Holders.DI_Holders.To_Holder
17798               (AMF.DI.Diagram_Elements.DI_Diagram_Element_Access'
17799                 (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17800                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
17801
17802         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
17803            --  ParameterableElement::owningTemplateParameter : TemplateParameter
17804
17805            return
17806              AMF.Internals.Holders.UML_Holders.To_Holder
17807               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
17808                 (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17809                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
17810
17811         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
17812            --  NamedElement::qualifiedName : String
17813
17814            return
17815              AMF.Holders.To_Holder
17816               (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17817                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
17818
17819         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Resolution then
17820            --  Diagram::resolution : Real
17821
17822            return
17823              AMF.Holders.Reals.To_Holder
17824               (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17825                 (AMF.Internals.Helpers.To_Element (Self)).Get_Resolution);
17826
17827         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
17828            --  UMLDiagramElement::sharedStyle : UMLStyle
17829
17830            return
17831              AMF.Internals.Holders.UMLDI_Holders.To_Holder
17832               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
17833                 (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17834                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
17835
17836         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
17837            --  DiagramElement::sharedStyle : Style
17838
17839            return
17840              AMF.Internals.Holders.DI_Holders.To_Holder
17841               (AMF.DI.Styles.DI_Style_Access'
17842                 (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17843                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
17844
17845         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
17846            --  ParameterableElement::templateParameter : TemplateParameter
17847
17848            return
17849              AMF.Internals.Holders.UML_Holders.To_Holder
17850               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
17851                 (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17852                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
17853
17854         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
17855            --  NamedElement::visibility : VisibilityKind
17856
17857            return
17858              AMF.UML.Holders.To_Holder
17859               (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17860                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
17861
17862         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
17863            --  PackageableElement::visibility : VisibilityKind
17864
17865            return
17866              AMF.UML.Holders.Visibility_Kinds.To_Holder
17867               (AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
17868                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
17869
17870         else
17871            raise Program_Error;
17872         end if;
17873      end UMLDI_UML_State_Machine_Diagram_Get;
17874
17875      -------------------------------
17876      -- UMLDI_UML_State_Shape_Get --
17877      -------------------------------
17878
17879      function UMLDI_UML_State_Shape_Get return League.Holders.Holder is
17880      begin
17881         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
17882            --  Shape::bounds : Bounds
17883
17884            return
17885              AMF.DC.Holders.To_Holder
17886               (AMF.UMLDI.UML_State_Shapes.UMLDI_UML_State_Shape_Access
17887                 (AMF.Internals.Helpers.To_Element (Self)).Get_Bounds);
17888
17889         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Compartmentable_Shape_Compartment_A_Compartmented_Shape then
17890            --  UMLCompartmentableShape::compartment : UMLCompartment
17891
17892            return
17893              AMF.UMLDI.UML_Compartments.Collections.UMLDI_UML_Compartment_Collections.Internals.To_Holder
17894               (AMF.UMLDI.UML_State_Shapes.UMLDI_UML_State_Shape_Access
17895                 (AMF.Internals.Helpers.To_Element (Self)).Get_Compartment);
17896
17897         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
17898            --  UMLDiagramElement::isIcon : Boolean
17899
17900            return
17901              League.Holders.Booleans.To_Holder
17902               (AMF.UMLDI.UML_State_Shapes.UMLDI_UML_State_Shape_Access
17903                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Icon);
17904
17905         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_State_Shape_Is_Tabbed then
17906            --  UMLStateShape::isTabbed : Boolean
17907
17908            return
17909              League.Holders.Booleans.To_Holder
17910               (AMF.UMLDI.UML_State_Shapes.UMLDI_UML_State_Shape_Access
17911                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Tabbed);
17912
17913         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
17914            --  UMLDiagramElement::localStyle : UMLStyle
17915
17916            return
17917              AMF.Internals.Holders.UMLDI_Holders.To_Holder
17918               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
17919                 (AMF.UMLDI.UML_State_Shapes.UMLDI_UML_State_Shape_Access
17920                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
17921
17922         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
17923            --  DiagramElement::localStyle : Style
17924
17925            return
17926              AMF.Internals.Holders.DI_Holders.To_Holder
17927               (AMF.DI.Styles.DI_Style_Access'
17928                 (AMF.UMLDI.UML_State_Shapes.UMLDI_UML_State_Shape_Access
17929                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
17930
17931         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element then
17932            --  UMLDiagramElement::modelElement : Element
17933
17934            return
17935              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
17936               (AMF.UMLDI.UML_State_Shapes.UMLDI_UML_State_Shape_Access
17937                 (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element);
17938
17939         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_State_Shape_Model_Element_A_Uml_Diagram_Element then
17940            --  UMLStateShape::modelElement : State
17941
17942            return
17943              AMF.UML.States.Collections.UML_State_Collections.Internals.To_Holder
17944               (AMF.UMLDI.UML_State_Shapes.UMLDI_UML_State_Shape_Access
17945                 (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element);
17946
17947         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Model_Element_A_Diagram_Element then
17948            --  DiagramElement::modelElement : Element
17949
17950            return
17951              AMF.Internals.Holders.CMOF_Holders.To_Holder
17952               (AMF.CMOF.Elements.CMOF_Element_Access'
17953                 (AMF.UMLDI.UML_State_Shapes.UMLDI_UML_State_Shape_Access
17954                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
17955
17956         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element then
17957            --  UMLDiagramElement::ownedElement : UMLDiagramElement
17958
17959            return
17960              AMF.UMLDI.UML_Diagram_Elements.Collections.UMLDI_UML_Diagram_Element_Collections.Internals.To_Holder
17961               (AMF.UMLDI.UML_State_Shapes.UMLDI_UML_State_Shape_Access
17962                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
17963
17964         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element then
17965            --  DiagramElement::ownedElement : DiagramElement
17966
17967            return
17968              AMF.DI.Diagram_Elements.Collections.DI_Diagram_Element_Collections.Internals.To_Holder
17969               (AMF.UMLDI.UML_State_Shapes.UMLDI_UML_State_Shape_Access
17970                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
17971
17972         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
17973            --  UMLDiagramElement::owningElement : UMLDiagramElement
17974
17975            return
17976              AMF.Internals.Holders.UMLDI_Holders.To_Holder
17977               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access'
17978                 (AMF.UMLDI.UML_State_Shapes.UMLDI_UML_State_Shape_Access
17979                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
17980
17981         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owning_Element_Diagram_Element_Owned_Element then
17982            --  DiagramElement::owningElement : DiagramElement
17983
17984            return
17985              AMF.Internals.Holders.DI_Holders.To_Holder
17986               (AMF.DI.Diagram_Elements.DI_Diagram_Element_Access'
17987                 (AMF.UMLDI.UML_State_Shapes.UMLDI_UML_State_Shape_Access
17988                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
17989
17990         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
17991            --  UMLDiagramElement::sharedStyle : UMLStyle
17992
17993            return
17994              AMF.Internals.Holders.UMLDI_Holders.To_Holder
17995               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
17996                 (AMF.UMLDI.UML_State_Shapes.UMLDI_UML_State_Shape_Access
17997                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
17998
17999         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
18000            --  DiagramElement::sharedStyle : Style
18001
18002            return
18003              AMF.Internals.Holders.DI_Holders.To_Holder
18004               (AMF.DI.Styles.DI_Style_Access'
18005                 (AMF.UMLDI.UML_State_Shapes.UMLDI_UML_State_Shape_Access
18006                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
18007
18008         else
18009            raise Program_Error;
18010         end if;
18011      end UMLDI_UML_State_Shape_Get;
18012
18013      ---------------------------------------------------
18014      -- UMLDI_UML_Stereotype_Property_Value_Label_Get --
18015      ---------------------------------------------------
18016
18017      function UMLDI_UML_Stereotype_Property_Value_Label_Get return League.Holders.Holder is
18018      begin
18019         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
18020            --  Shape::bounds : Bounds
18021
18022            return
18023              AMF.DC.Holders.To_Holder
18024               (AMF.UMLDI.UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Access
18025                 (AMF.Internals.Helpers.To_Element (Self)).Get_Bounds);
18026
18027         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
18028            --  UMLDiagramElement::isIcon : Boolean
18029
18030            return
18031              League.Holders.Booleans.To_Holder
18032               (AMF.UMLDI.UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Access
18033                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Icon);
18034
18035         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
18036            --  UMLDiagramElement::localStyle : UMLStyle
18037
18038            return
18039              AMF.Internals.Holders.UMLDI_Holders.To_Holder
18040               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
18041                 (AMF.UMLDI.UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Access
18042                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
18043
18044         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
18045            --  DiagramElement::localStyle : Style
18046
18047            return
18048              AMF.Internals.Holders.DI_Holders.To_Holder
18049               (AMF.DI.Styles.DI_Style_Access'
18050                 (AMF.UMLDI.UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Access
18051                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
18052
18053         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element then
18054            --  UMLDiagramElement::modelElement : Element
18055
18056            return
18057              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
18058               (AMF.UMLDI.UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Access
18059                 (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element);
18060
18061         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Stereotype_Property_Value_Label_Model_Element_A_Uml_Diagram_Element then
18062            --  UMLStereotypePropertyValueLabel::modelElement : Property
18063
18064            return
18065              AMF.Internals.Holders.UML_Holders.To_Holder
18066               (AMF.UML.Properties.UML_Property_Access'
18067                 (AMF.UMLDI.UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Access
18068                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
18069
18070         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Model_Element_A_Diagram_Element then
18071            --  DiagramElement::modelElement : Element
18072
18073            return
18074              AMF.Internals.Holders.CMOF_Holders.To_Holder
18075               (AMF.CMOF.Elements.CMOF_Element_Access'
18076                 (AMF.UMLDI.UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Access
18077                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
18078
18079         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element then
18080            --  UMLDiagramElement::ownedElement : UMLDiagramElement
18081
18082            return
18083              AMF.UMLDI.UML_Diagram_Elements.Collections.UMLDI_UML_Diagram_Element_Collections.Internals.To_Holder
18084               (AMF.UMLDI.UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Access
18085                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
18086
18087         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element then
18088            --  DiagramElement::ownedElement : DiagramElement
18089
18090            return
18091              AMF.DI.Diagram_Elements.Collections.DI_Diagram_Element_Collections.Internals.To_Holder
18092               (AMF.UMLDI.UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Access
18093                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
18094
18095         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
18096            --  UMLDiagramElement::owningElement : UMLDiagramElement
18097
18098            return
18099              AMF.Internals.Holders.UMLDI_Holders.To_Holder
18100               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access'
18101                 (AMF.UMLDI.UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Access
18102                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
18103
18104         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owning_Element_Diagram_Element_Owned_Element then
18105            --  DiagramElement::owningElement : DiagramElement
18106
18107            return
18108              AMF.Internals.Holders.DI_Holders.To_Holder
18109               (AMF.DI.Diagram_Elements.DI_Diagram_Element_Access'
18110                 (AMF.UMLDI.UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Access
18111                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
18112
18113         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
18114            --  UMLDiagramElement::sharedStyle : UMLStyle
18115
18116            return
18117              AMF.Internals.Holders.UMLDI_Holders.To_Holder
18118               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
18119                 (AMF.UMLDI.UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Access
18120                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
18121
18122         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
18123            --  DiagramElement::sharedStyle : Style
18124
18125            return
18126              AMF.Internals.Holders.DI_Holders.To_Holder
18127               (AMF.DI.Styles.DI_Style_Access'
18128                 (AMF.UMLDI.UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Access
18129                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
18130
18131         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Stereotype_Property_Value_Label_Stereotyped_Element_A_Label_Showing_Stereotype_Value then
18132            --  UMLStereotypePropertyValueLabel::stereotypedElement : Element
18133
18134            return
18135              AMF.Internals.Holders.UML_Holders.To_Holder
18136               (AMF.UML.Elements.UML_Element_Access'
18137                 (AMF.UMLDI.UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Access
18138                   (AMF.Internals.Helpers.To_Element (Self)).Get_Stereotyped_Element));
18139
18140         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Label_Text then
18141            --  UMLLabel::text : String
18142
18143            return
18144              League.Holders.To_Holder
18145               (AMF.UMLDI.UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Access
18146                 (AMF.Internals.Helpers.To_Element (Self)).Get_Text);
18147
18148         else
18149            raise Program_Error;
18150         end if;
18151      end UMLDI_UML_Stereotype_Property_Value_Label_Get;
18152
18153      -------------------------
18154      -- UMLDI_UML_Style_Get --
18155      -------------------------
18156
18157      function UMLDI_UML_Style_Get return League.Holders.Holder is
18158      begin
18159         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
18160            --  NamedElement::clientDependency : Dependency
18161
18162            return
18163              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
18164               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access
18165                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
18166
18167         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Style_Font_Name then
18168            --  UMLStyle::fontName : String
18169
18170            return
18171              AMF.Holders.To_Holder
18172               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access
18173                 (AMF.Internals.Helpers.To_Element (Self)).Get_Font_Name);
18174
18175         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Style_Font_Size then
18176            --  UMLStyle::fontSize : Real
18177
18178            return
18179              AMF.Holders.To_Holder
18180               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access
18181                 (AMF.Internals.Helpers.To_Element (Self)).Get_Font_Size);
18182
18183         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
18184            --  NamedElement::name : String
18185
18186            return
18187              AMF.Holders.To_Holder
18188               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access
18189                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
18190
18191         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
18192            --  NamedElement::nameExpression : StringExpression
18193
18194            return
18195              AMF.Internals.Holders.UML_Holders.To_Holder
18196               (AMF.UML.String_Expressions.UML_String_Expression_Access'
18197                 (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access
18198                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
18199
18200         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
18201            --  NamedElement::namespace : Namespace
18202
18203            return
18204              AMF.Internals.Holders.UML_Holders.To_Holder
18205               (AMF.UML.Namespaces.UML_Namespace_Access'
18206                 (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access
18207                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
18208
18209         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
18210            --  Element::ownedComment : Comment
18211
18212            return
18213              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
18214               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access
18215                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
18216
18217         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
18218            --  Element::ownedElement : Element
18219
18220            return
18221              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
18222               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access
18223                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
18224
18225         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
18226            --  Element::owner : Element
18227
18228            return
18229              AMF.Internals.Holders.UML_Holders.To_Holder
18230               (AMF.UML.Elements.UML_Element_Access'
18231                 (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access
18232                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
18233
18234         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
18235            --  ParameterableElement::owningTemplateParameter : TemplateParameter
18236
18237            return
18238              AMF.Internals.Holders.UML_Holders.To_Holder
18239               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
18240                 (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access
18241                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
18242
18243         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
18244            --  NamedElement::qualifiedName : String
18245
18246            return
18247              AMF.Holders.To_Holder
18248               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access
18249                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
18250
18251         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
18252            --  ParameterableElement::templateParameter : TemplateParameter
18253
18254            return
18255              AMF.Internals.Holders.UML_Holders.To_Holder
18256               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
18257                 (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access
18258                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
18259
18260         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
18261            --  NamedElement::visibility : VisibilityKind
18262
18263            return
18264              AMF.UML.Holders.To_Holder
18265               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access
18266                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
18267
18268         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
18269            --  PackageableElement::visibility : VisibilityKind
18270
18271            return
18272              AMF.UML.Holders.Visibility_Kinds.To_Holder
18273               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access
18274                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
18275
18276         else
18277            raise Program_Error;
18278         end if;
18279      end UMLDI_UML_Style_Get;
18280
18281      ---------------------------------------
18282      -- UMLDI_UML_Typed_Element_Label_Get --
18283      ---------------------------------------
18284
18285      function UMLDI_UML_Typed_Element_Label_Get return League.Holders.Holder is
18286      begin
18287         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
18288            --  Shape::bounds : Bounds
18289
18290            return
18291              AMF.DC.Holders.To_Holder
18292               (AMF.UMLDI.UML_Typed_Element_Labels.UMLDI_UML_Typed_Element_Label_Access
18293                 (AMF.Internals.Helpers.To_Element (Self)).Get_Bounds);
18294
18295         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
18296            --  UMLDiagramElement::isIcon : Boolean
18297
18298            return
18299              League.Holders.Booleans.To_Holder
18300               (AMF.UMLDI.UML_Typed_Element_Labels.UMLDI_UML_Typed_Element_Label_Access
18301                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Icon);
18302
18303         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
18304            --  UMLDiagramElement::localStyle : UMLStyle
18305
18306            return
18307              AMF.Internals.Holders.UMLDI_Holders.To_Holder
18308               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
18309                 (AMF.UMLDI.UML_Typed_Element_Labels.UMLDI_UML_Typed_Element_Label_Access
18310                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
18311
18312         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
18313            --  DiagramElement::localStyle : Style
18314
18315            return
18316              AMF.Internals.Holders.DI_Holders.To_Holder
18317               (AMF.DI.Styles.DI_Style_Access'
18318                 (AMF.UMLDI.UML_Typed_Element_Labels.UMLDI_UML_Typed_Element_Label_Access
18319                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
18320
18321         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element then
18322            --  UMLDiagramElement::modelElement : Element
18323
18324            return
18325              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
18326               (AMF.UMLDI.UML_Typed_Element_Labels.UMLDI_UML_Typed_Element_Label_Access
18327                 (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element);
18328
18329         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Model_Element_A_Diagram_Element then
18330            --  DiagramElement::modelElement : Element
18331
18332            return
18333              AMF.Internals.Holders.CMOF_Holders.To_Holder
18334               (AMF.CMOF.Elements.CMOF_Element_Access'
18335                 (AMF.UMLDI.UML_Typed_Element_Labels.UMLDI_UML_Typed_Element_Label_Access
18336                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
18337
18338         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element then
18339            --  UMLDiagramElement::ownedElement : UMLDiagramElement
18340
18341            return
18342              AMF.UMLDI.UML_Diagram_Elements.Collections.UMLDI_UML_Diagram_Element_Collections.Internals.To_Holder
18343               (AMF.UMLDI.UML_Typed_Element_Labels.UMLDI_UML_Typed_Element_Label_Access
18344                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
18345
18346         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element then
18347            --  DiagramElement::ownedElement : DiagramElement
18348
18349            return
18350              AMF.DI.Diagram_Elements.Collections.DI_Diagram_Element_Collections.Internals.To_Holder
18351               (AMF.UMLDI.UML_Typed_Element_Labels.UMLDI_UML_Typed_Element_Label_Access
18352                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
18353
18354         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
18355            --  UMLDiagramElement::owningElement : UMLDiagramElement
18356
18357            return
18358              AMF.Internals.Holders.UMLDI_Holders.To_Holder
18359               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access'
18360                 (AMF.UMLDI.UML_Typed_Element_Labels.UMLDI_UML_Typed_Element_Label_Access
18361                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
18362
18363         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owning_Element_Diagram_Element_Owned_Element then
18364            --  DiagramElement::owningElement : DiagramElement
18365
18366            return
18367              AMF.Internals.Holders.DI_Holders.To_Holder
18368               (AMF.DI.Diagram_Elements.DI_Diagram_Element_Access'
18369                 (AMF.UMLDI.UML_Typed_Element_Labels.UMLDI_UML_Typed_Element_Label_Access
18370                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
18371
18372         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
18373            --  UMLDiagramElement::sharedStyle : UMLStyle
18374
18375            return
18376              AMF.Internals.Holders.UMLDI_Holders.To_Holder
18377               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
18378                 (AMF.UMLDI.UML_Typed_Element_Labels.UMLDI_UML_Typed_Element_Label_Access
18379                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
18380
18381         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
18382            --  DiagramElement::sharedStyle : Style
18383
18384            return
18385              AMF.Internals.Holders.DI_Holders.To_Holder
18386               (AMF.DI.Styles.DI_Style_Access'
18387                 (AMF.UMLDI.UML_Typed_Element_Labels.UMLDI_UML_Typed_Element_Label_Access
18388                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
18389
18390         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Label_Text then
18391            --  UMLLabel::text : String
18392
18393            return
18394              League.Holders.To_Holder
18395               (AMF.UMLDI.UML_Typed_Element_Labels.UMLDI_UML_Typed_Element_Label_Access
18396                 (AMF.Internals.Helpers.To_Element (Self)).Get_Text);
18397
18398         else
18399            raise Program_Error;
18400         end if;
18401      end UMLDI_UML_Typed_Element_Label_Get;
18402
18403      ------------------------------------
18404      -- UMLDI_UML_Use_Case_Diagram_Get --
18405      ------------------------------------
18406
18407      function UMLDI_UML_Use_Case_Diagram_Get return League.Holders.Holder is
18408      begin
18409         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
18410            --  Shape::bounds : Bounds
18411
18412            return
18413              AMF.DC.Holders.To_Holder
18414               (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18415                 (AMF.Internals.Helpers.To_Element (Self)).Get_Bounds);
18416
18417         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
18418            --  NamedElement::clientDependency : Dependency
18419
18420            return
18421              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
18422               (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18423                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
18424
18425         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Documentation then
18426            --  Diagram::documentation : String
18427
18428            return
18429              League.Holders.To_Holder
18430               (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18431                 (AMF.Internals.Helpers.To_Element (Self)).Get_Documentation);
18432
18433         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Heading_A_Headed_Diagram then
18434            --  UMLDiagram::heading : UMLLabel
18435
18436            return
18437              AMF.Internals.Holders.UMLDI_Holders.To_Holder
18438               (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access'
18439                 (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18440                   (AMF.Internals.Helpers.To_Element (Self)).Get_Heading));
18441
18442         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Frame then
18443            --  UMLDiagram::isFrame : Boolean
18444
18445            return
18446              League.Holders.Booleans.To_Holder
18447               (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18448                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Frame);
18449
18450         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
18451            --  UMLDiagramElement::isIcon : Boolean
18452
18453            return
18454              League.Holders.Booleans.To_Holder
18455               (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18456                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Icon);
18457
18458         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Iso then
18459            --  UMLDiagram::isIso : Boolean
18460
18461            return
18462              League.Holders.Booleans.To_Holder
18463               (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18464                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Iso);
18465
18466         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
18467            --  UMLDiagramElement::localStyle : UMLStyle
18468
18469            return
18470              AMF.Internals.Holders.UMLDI_Holders.To_Holder
18471               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
18472                 (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18473                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
18474
18475         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
18476            --  DiagramElement::localStyle : Style
18477
18478            return
18479              AMF.Internals.Holders.DI_Holders.To_Holder
18480               (AMF.DI.Styles.DI_Style_Access'
18481                 (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18482                   (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Style));
18483
18484         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Behavior_Diagram_Model_Element_A_Uml_Diagram_Element then
18485            --  UMLBehaviorDiagram::modelElement : Behavior
18486
18487            return
18488              AMF.Internals.Holders.UML_Holders.To_Holder
18489               (AMF.UML.Behaviors.UML_Behavior_Access'
18490                 (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18491                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
18492
18493         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Model_Element_A_Uml_Diagram_Element then
18494            --  UMLDiagramElement::modelElement : Element
18495
18496            return
18497              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
18498               (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18499                 (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element);
18500
18501         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Model_Element_A_Diagram_Element then
18502            --  DiagramElement::modelElement : Element
18503
18504            return
18505              AMF.Internals.Holders.CMOF_Holders.To_Holder
18506               (AMF.CMOF.Elements.CMOF_Element_Access'
18507                 (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18508                   (AMF.Internals.Helpers.To_Element (Self)).Get_Model_Element));
18509
18510         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
18511            --  NamedElement::name : String
18512
18513            return
18514              AMF.Holders.To_Holder
18515               (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18516                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
18517
18518         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Name then
18519            --  Diagram::name : String
18520
18521            return
18522              League.Holders.To_Holder
18523               (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18524                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
18525
18526         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
18527            --  NamedElement::nameExpression : StringExpression
18528
18529            return
18530              AMF.Internals.Holders.UML_Holders.To_Holder
18531               (AMF.UML.String_Expressions.UML_String_Expression_Access'
18532                 (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18533                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
18534
18535         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
18536            --  NamedElement::namespace : Namespace
18537
18538            return
18539              AMF.Internals.Holders.UML_Holders.To_Holder
18540               (AMF.UML.Namespaces.UML_Namespace_Access'
18541                 (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18542                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
18543
18544         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
18545            --  Element::ownedComment : Comment
18546
18547            return
18548              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
18549               (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18550                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
18551
18552         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
18553            --  Element::ownedElement : Element
18554
18555            return
18556              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
18557               (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18558                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
18559
18560         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owned_Element_UML_Diagram_Element_Owning_Element then
18561            --  UMLDiagramElement::ownedElement : UMLDiagramElement
18562
18563            return
18564              AMF.UMLDI.UML_Diagram_Elements.Collections.UMLDI_UML_Diagram_Element_Collections.Internals.To_Holder
18565               (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18566                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
18567
18568         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owned_Element_Diagram_Element_Owning_Element then
18569            --  DiagramElement::ownedElement : DiagramElement
18570
18571            return
18572              AMF.DI.Diagram_Elements.Collections.DI_Diagram_Element_Collections.Internals.To_Holder
18573               (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18574                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
18575
18576         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
18577            --  Element::owner : Element
18578
18579            return
18580              AMF.Internals.Holders.UML_Holders.To_Holder
18581               (AMF.UML.Elements.UML_Element_Access'
18582                 (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18583                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
18584
18585         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
18586            --  UMLDiagramElement::owningElement : UMLDiagramElement
18587
18588            return
18589              AMF.Internals.Holders.UMLDI_Holders.To_Holder
18590               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access'
18591                 (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18592                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
18593
18594         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Owning_Element_Diagram_Element_Owned_Element then
18595            --  DiagramElement::owningElement : DiagramElement
18596
18597            return
18598              AMF.Internals.Holders.DI_Holders.To_Holder
18599               (AMF.DI.Diagram_Elements.DI_Diagram_Element_Access'
18600                 (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18601                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Element));
18602
18603         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
18604            --  ParameterableElement::owningTemplateParameter : TemplateParameter
18605
18606            return
18607              AMF.Internals.Holders.UML_Holders.To_Holder
18608               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
18609                 (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18610                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
18611
18612         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
18613            --  NamedElement::qualifiedName : String
18614
18615            return
18616              AMF.Holders.To_Holder
18617               (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18618                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
18619
18620         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Resolution then
18621            --  Diagram::resolution : Real
18622
18623            return
18624              AMF.Holders.Reals.To_Holder
18625               (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18626                 (AMF.Internals.Helpers.To_Element (Self)).Get_Resolution);
18627
18628         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
18629            --  UMLDiagramElement::sharedStyle : UMLStyle
18630
18631            return
18632              AMF.Internals.Holders.UMLDI_Holders.To_Holder
18633               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access'
18634                 (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18635                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
18636
18637         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
18638            --  DiagramElement::sharedStyle : Style
18639
18640            return
18641              AMF.Internals.Holders.DI_Holders.To_Holder
18642               (AMF.DI.Styles.DI_Style_Access'
18643                 (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18644                   (AMF.Internals.Helpers.To_Element (Self)).Get_Shared_Style));
18645
18646         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
18647            --  ParameterableElement::templateParameter : TemplateParameter
18648
18649            return
18650              AMF.Internals.Holders.UML_Holders.To_Holder
18651               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
18652                 (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18653                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
18654
18655         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
18656            --  NamedElement::visibility : VisibilityKind
18657
18658            return
18659              AMF.UML.Holders.To_Holder
18660               (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18661                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
18662
18663         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
18664            --  PackageableElement::visibility : VisibilityKind
18665
18666            return
18667              AMF.UML.Holders.Visibility_Kinds.To_Holder
18668               (AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
18669                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
18670
18671         else
18672            raise Program_Error;
18673         end if;
18674      end UMLDI_UML_Use_Case_Diagram_Get;
18675
18676      -----------------------------
18677      -- UML_Data_Store_Node_Get --
18678      -----------------------------
18679
18680      function UML_Data_Store_Node_Get return League.Holders.Holder is
18681      begin
18682         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
18683            --  ActivityNode::activity : Activity
18684
18685            return
18686              AMF.Internals.Holders.UML_Holders.To_Holder
18687               (AMF.UML.Activities.UML_Activity_Access'
18688                 (AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
18689                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
18690
18691         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
18692            --  NamedElement::clientDependency : Dependency
18693
18694            return
18695              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
18696               (AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
18697                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
18698
18699         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
18700            --  ActivityNode::inGroup : ActivityGroup
18701
18702            return
18703              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
18704               (AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
18705                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
18706
18707         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
18708            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
18709
18710            return
18711              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
18712               (AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
18713                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
18714
18715         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
18716            --  ActivityNode::inPartition : ActivityPartition
18717
18718            return
18719              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
18720               (AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
18721                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
18722
18723         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_In_State_A_Object_Node then
18724            --  ObjectNode::inState : State
18725
18726            return
18727              AMF.UML.States.Collections.UML_State_Collections.Internals.To_Holder
18728               (AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
18729                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_State);
18730
18731         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
18732            --  ActivityNode::inStructuredNode : StructuredActivityNode
18733
18734            return
18735              AMF.Internals.Holders.UML_Holders.To_Holder
18736               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
18737                 (AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
18738                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
18739
18740         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
18741            --  ActivityNode::incoming : ActivityEdge
18742
18743            return
18744              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
18745               (AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
18746                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
18747
18748         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Is_Control_Type then
18749            --  ObjectNode::isControlType : Boolean
18750
18751            return
18752              League.Holders.Booleans.To_Holder
18753               (AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
18754                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Control_Type);
18755
18756         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
18757            --  RedefinableElement::isLeaf : Boolean
18758
18759            return
18760              League.Holders.Booleans.To_Holder
18761               (AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
18762                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
18763
18764         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
18765            --  NamedElement::name : String
18766
18767            return
18768              AMF.Holders.To_Holder
18769               (AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
18770                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
18771
18772         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
18773            --  NamedElement::nameExpression : StringExpression
18774
18775            return
18776              AMF.Internals.Holders.UML_Holders.To_Holder
18777               (AMF.UML.String_Expressions.UML_String_Expression_Access'
18778                 (AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
18779                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
18780
18781         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
18782            --  NamedElement::namespace : Namespace
18783
18784            return
18785              AMF.Internals.Holders.UML_Holders.To_Holder
18786               (AMF.UML.Namespaces.UML_Namespace_Access'
18787                 (AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
18788                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
18789
18790         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Ordering then
18791            --  ObjectNode::ordering : ObjectNodeOrderingKind
18792
18793            return
18794              AMF.UML.Holders.Object_Node_Ordering_Kinds.To_Holder
18795               (AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
18796                 (AMF.Internals.Helpers.To_Element (Self)).Get_Ordering);
18797
18798         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
18799            --  ActivityNode::outgoing : ActivityEdge
18800
18801            return
18802              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
18803               (AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
18804                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
18805
18806         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
18807            --  Element::ownedComment : Comment
18808
18809            return
18810              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
18811               (AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
18812                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
18813
18814         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
18815            --  Element::ownedElement : Element
18816
18817            return
18818              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
18819               (AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
18820                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
18821
18822         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
18823            --  Element::owner : Element
18824
18825            return
18826              AMF.Internals.Holders.UML_Holders.To_Holder
18827               (AMF.UML.Elements.UML_Element_Access'
18828                 (AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
18829                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
18830
18831         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
18832            --  NamedElement::qualifiedName : String
18833
18834            return
18835              AMF.Holders.To_Holder
18836               (AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
18837                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
18838
18839         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
18840            --  RedefinableElement::redefinedElement : RedefinableElement
18841
18842            return
18843              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
18844               (AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
18845                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
18846
18847         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
18848            --  ActivityNode::redefinedNode : ActivityNode
18849
18850            return
18851              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
18852               (AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
18853                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
18854
18855         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
18856            --  RedefinableElement::redefinitionContext : Classifier
18857
18858            return
18859              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
18860               (AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
18861                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
18862
18863         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Selection_A_Object_Node then
18864            --  ObjectNode::selection : Behavior
18865
18866            return
18867              AMF.Internals.Holders.UML_Holders.To_Holder
18868               (AMF.UML.Behaviors.UML_Behavior_Access'
18869                 (AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
18870                   (AMF.Internals.Helpers.To_Element (Self)).Get_Selection));
18871
18872         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
18873            --  TypedElement::type : Type
18874
18875            return
18876              AMF.Internals.Holders.UML_Holders.To_Holder
18877               (AMF.UML.Types.UML_Type_Access'
18878                 (AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
18879                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
18880
18881         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Upper_Bound_A_Object_Node then
18882            --  ObjectNode::upperBound : ValueSpecification
18883
18884            return
18885              AMF.Internals.Holders.UML_Holders.To_Holder
18886               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
18887                 (AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
18888                   (AMF.Internals.Helpers.To_Element (Self)).Get_Upper_Bound));
18889
18890         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
18891            --  NamedElement::visibility : VisibilityKind
18892
18893            return
18894              AMF.UML.Holders.To_Holder
18895               (AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
18896                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
18897
18898         else
18899            raise Program_Error;
18900         end if;
18901      end UML_Data_Store_Node_Get;
18902
18903      -----------------------
18904      -- UML_Data_Type_Get --
18905      -----------------------
18906
18907      function UML_Data_Type_Get return League.Holders.Holder is
18908      begin
18909         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier then
18910            --  Classifier::attribute : Property
18911
18912            return
18913              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
18914               (AMF.UML.Data_Types.UML_Data_Type_Access
18915                 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute);
18916
18917         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
18918            --  NamedElement::clientDependency : Dependency
18919
18920            return
18921              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
18922               (AMF.UML.Data_Types.UML_Data_Type_Access
18923                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
18924
18925         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier then
18926            --  Classifier::collaborationUse : CollaborationUse
18927
18928            return
18929              AMF.UML.Collaboration_Uses.Collections.UML_Collaboration_Use_Collections.Internals.To_Holder
18930               (AMF.UML.Data_Types.UML_Data_Type_Access
18931                 (AMF.Internals.Helpers.To_Element (Self)).Get_Collaboration_Use);
18932
18933         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
18934            --  Namespace::elementImport : ElementImport
18935
18936            return
18937              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
18938               (AMF.UML.Data_Types.UML_Data_Type_Access
18939                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
18940
18941         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier then
18942            --  Classifier::feature : Feature
18943
18944            return
18945              AMF.UML.Features.Collections.UML_Feature_Collections.Internals.To_Holder
18946               (AMF.UML.Data_Types.UML_Data_Type_Access
18947                 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature);
18948
18949         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier then
18950            --  Classifier::general : Classifier
18951
18952            return
18953              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
18954               (AMF.UML.Data_Types.UML_Data_Type_Access
18955                 (AMF.Internals.Helpers.To_Element (Self)).Get_General);
18956
18957         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific then
18958            --  Classifier::generalization : Generalization
18959
18960            return
18961              AMF.UML.Generalizations.Collections.UML_Generalization_Collections.Internals.To_Holder
18962               (AMF.UML.Data_Types.UML_Data_Type_Access
18963                 (AMF.Internals.Helpers.To_Element (Self)).Get_Generalization);
18964
18965         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
18966            --  Namespace::importedMember : PackageableElement
18967
18968            return
18969              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
18970               (AMF.UML.Data_Types.UML_Data_Type_Access
18971                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
18972
18973         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier then
18974            --  Classifier::inheritedMember : NamedElement
18975
18976            return
18977              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
18978               (AMF.UML.Data_Types.UML_Data_Type_Access
18979                 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member);
18980
18981         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
18982            --  Classifier::isAbstract : Boolean
18983
18984            return
18985              League.Holders.Booleans.To_Holder
18986               (AMF.UML.Data_Types.UML_Data_Type_Access
18987                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
18988
18989         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
18990            --  Classifier::isFinalSpecialization : Boolean
18991
18992            return
18993              League.Holders.Booleans.To_Holder
18994               (AMF.UML.Data_Types.UML_Data_Type_Access
18995                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization);
18996
18997         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
18998            --  RedefinableElement::isLeaf : Boolean
18999
19000            return
19001              League.Holders.Booleans.To_Holder
19002               (AMF.UML.Data_Types.UML_Data_Type_Access
19003                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
19004
19005         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
19006            --  Namespace::member : NamedElement
19007
19008            return
19009              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
19010               (AMF.UML.Data_Types.UML_Data_Type_Access
19011                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
19012
19013         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
19014            --  NamedElement::name : String
19015
19016            return
19017              AMF.Holders.To_Holder
19018               (AMF.UML.Data_Types.UML_Data_Type_Access
19019                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
19020
19021         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
19022            --  NamedElement::nameExpression : StringExpression
19023
19024            return
19025              AMF.Internals.Holders.UML_Holders.To_Holder
19026               (AMF.UML.String_Expressions.UML_String_Expression_Access'
19027                 (AMF.UML.Data_Types.UML_Data_Type_Access
19028                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
19029
19030         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
19031            --  NamedElement::namespace : Namespace
19032
19033            return
19034              AMF.Internals.Holders.UML_Holders.To_Holder
19035               (AMF.UML.Namespaces.UML_Namespace_Access'
19036                 (AMF.UML.Data_Types.UML_Data_Type_Access
19037                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
19038
19039         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Data_Type_Owned_Attribute_Property_Datatype then
19040            --  DataType::ownedAttribute : Property
19041
19042            return
19043              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
19044               (AMF.UML.Data_Types.UML_Data_Type_Access
19045                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
19046
19047         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
19048            --  Element::ownedComment : Comment
19049
19050            return
19051              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
19052               (AMF.UML.Data_Types.UML_Data_Type_Access
19053                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
19054
19055         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
19056            --  Element::ownedElement : Element
19057
19058            return
19059              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
19060               (AMF.UML.Data_Types.UML_Data_Type_Access
19061                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
19062
19063         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
19064            --  Namespace::ownedMember : NamedElement
19065
19066            return
19067              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
19068               (AMF.UML.Data_Types.UML_Data_Type_Access
19069                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
19070
19071         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Data_Type_Owned_Operation_Operation_Datatype then
19072            --  DataType::ownedOperation : Operation
19073
19074            return
19075              AMF.UML.Operations.Collections.UML_Operation_Collections.Internals.To_Holder
19076               (AMF.UML.Data_Types.UML_Data_Type_Access
19077                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Operation);
19078
19079         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
19080            --  Namespace::ownedRule : Constraint
19081
19082            return
19083              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
19084               (AMF.UML.Data_Types.UML_Data_Type_Access
19085                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
19086
19087         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
19088            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
19089
19090            return
19091              AMF.Internals.Holders.UML_Holders.To_Holder
19092               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access'
19093                 (AMF.UML.Data_Types.UML_Data_Type_Access
19094                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
19095
19096         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
19097            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
19098
19099            return
19100              AMF.Internals.Holders.UML_Holders.To_Holder
19101               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
19102                 (AMF.UML.Data_Types.UML_Data_Type_Access
19103                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
19104
19105         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier then
19106            --  Classifier::ownedUseCase : UseCase
19107
19108            return
19109              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
19110               (AMF.UML.Data_Types.UML_Data_Type_Access
19111                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Use_Case);
19112
19113         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
19114            --  Element::owner : Element
19115
19116            return
19117              AMF.Internals.Holders.UML_Holders.To_Holder
19118               (AMF.UML.Elements.UML_Element_Access'
19119                 (AMF.UML.Data_Types.UML_Data_Type_Access
19120                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
19121
19122         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
19123            --  ParameterableElement::owningTemplateParameter : TemplateParameter
19124
19125            return
19126              AMF.Internals.Holders.UML_Holders.To_Holder
19127               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
19128                 (AMF.UML.Data_Types.UML_Data_Type_Access
19129                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
19130
19131         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
19132            --  Type::package : Package
19133
19134            return
19135              AMF.Internals.Holders.UML_Holders.To_Holder
19136               (AMF.UML.Packages.UML_Package_Access'
19137                 (AMF.UML.Data_Types.UML_Data_Type_Access
19138                   (AMF.Internals.Helpers.To_Element (Self)).Get_Package));
19139
19140         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
19141            --  Namespace::packageImport : PackageImport
19142
19143            return
19144              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
19145               (AMF.UML.Data_Types.UML_Data_Type_Access
19146                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
19147
19148         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype then
19149            --  Classifier::powertypeExtent : GeneralizationSet
19150
19151            return
19152              AMF.UML.Generalization_Sets.Collections.UML_Generalization_Set_Collections.Internals.To_Holder
19153               (AMF.UML.Data_Types.UML_Data_Type_Access
19154                 (AMF.Internals.Helpers.To_Element (Self)).Get_Powertype_Extent);
19155
19156         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
19157            --  NamedElement::qualifiedName : String
19158
19159            return
19160              AMF.Holders.To_Holder
19161               (AMF.UML.Data_Types.UML_Data_Type_Access
19162                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
19163
19164         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier then
19165            --  Classifier::redefinedClassifier : Classifier
19166
19167            return
19168              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
19169               (AMF.UML.Data_Types.UML_Data_Type_Access
19170                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Classifier);
19171
19172         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
19173            --  RedefinableElement::redefinedElement : RedefinableElement
19174
19175            return
19176              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
19177               (AMF.UML.Data_Types.UML_Data_Type_Access
19178                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
19179
19180         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
19181            --  RedefinableElement::redefinitionContext : Classifier
19182
19183            return
19184              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
19185               (AMF.UML.Data_Types.UML_Data_Type_Access
19186                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
19187
19188         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
19189            --  Classifier::representation : CollaborationUse
19190
19191            return
19192              AMF.Internals.Holders.UML_Holders.To_Holder
19193               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access'
19194                 (AMF.UML.Data_Types.UML_Data_Type_Access
19195                   (AMF.Internals.Helpers.To_Element (Self)).Get_Representation));
19196
19197         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier then
19198            --  Classifier::substitution : Substitution
19199
19200            return
19201              AMF.UML.Substitutions.Collections.UML_Substitution_Collections.Internals.To_Holder
19202               (AMF.UML.Data_Types.UML_Data_Type_Access
19203                 (AMF.Internals.Helpers.To_Element (Self)).Get_Substitution);
19204
19205         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
19206            --  TemplateableElement::templateBinding : TemplateBinding
19207
19208            return
19209              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
19210               (AMF.UML.Data_Types.UML_Data_Type_Access
19211                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
19212
19213         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
19214            --  Classifier::templateParameter : ClassifierTemplateParameter
19215
19216            return
19217              AMF.Internals.Holders.UML_Holders.To_Holder
19218               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access'
19219                 (AMF.UML.Data_Types.UML_Data_Type_Access
19220                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
19221
19222         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
19223            --  ParameterableElement::templateParameter : TemplateParameter
19224
19225            return
19226              AMF.Internals.Holders.UML_Holders.To_Holder
19227               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
19228                 (AMF.UML.Data_Types.UML_Data_Type_Access
19229                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
19230
19231         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject then
19232            --  Classifier::useCase : UseCase
19233
19234            return
19235              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
19236               (AMF.UML.Data_Types.UML_Data_Type_Access
19237                 (AMF.Internals.Helpers.To_Element (Self)).Get_Use_Case);
19238
19239         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
19240            --  NamedElement::visibility : VisibilityKind
19241
19242            return
19243              AMF.UML.Holders.To_Holder
19244               (AMF.UML.Data_Types.UML_Data_Type_Access
19245                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
19246
19247         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
19248            --  PackageableElement::visibility : VisibilityKind
19249
19250            return
19251              AMF.UML.Holders.Visibility_Kinds.To_Holder
19252               (AMF.UML.Data_Types.UML_Data_Type_Access
19253                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
19254
19255         else
19256            raise Program_Error;
19257         end if;
19258      end UML_Data_Type_Get;
19259
19260      ---------------------------
19261      -- UML_Decision_Node_Get --
19262      ---------------------------
19263
19264      function UML_Decision_Node_Get return League.Holders.Holder is
19265      begin
19266         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
19267            --  ActivityNode::activity : Activity
19268
19269            return
19270              AMF.Internals.Holders.UML_Holders.To_Holder
19271               (AMF.UML.Activities.UML_Activity_Access'
19272                 (AMF.UML.Decision_Nodes.UML_Decision_Node_Access
19273                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
19274
19275         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
19276            --  NamedElement::clientDependency : Dependency
19277
19278            return
19279              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
19280               (AMF.UML.Decision_Nodes.UML_Decision_Node_Access
19281                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
19282
19283         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Decision_Node_Decision_Input_A_Decision_Node then
19284            --  DecisionNode::decisionInput : Behavior
19285
19286            return
19287              AMF.Internals.Holders.UML_Holders.To_Holder
19288               (AMF.UML.Behaviors.UML_Behavior_Access'
19289                 (AMF.UML.Decision_Nodes.UML_Decision_Node_Access
19290                   (AMF.Internals.Helpers.To_Element (Self)).Get_Decision_Input));
19291
19292         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Decision_Node_Decision_Input_Flow_A_Decision_Node then
19293            --  DecisionNode::decisionInputFlow : ObjectFlow
19294
19295            return
19296              AMF.Internals.Holders.UML_Holders.To_Holder
19297               (AMF.UML.Object_Flows.UML_Object_Flow_Access'
19298                 (AMF.UML.Decision_Nodes.UML_Decision_Node_Access
19299                   (AMF.Internals.Helpers.To_Element (Self)).Get_Decision_Input_Flow));
19300
19301         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
19302            --  ActivityNode::inGroup : ActivityGroup
19303
19304            return
19305              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
19306               (AMF.UML.Decision_Nodes.UML_Decision_Node_Access
19307                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
19308
19309         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
19310            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
19311
19312            return
19313              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
19314               (AMF.UML.Decision_Nodes.UML_Decision_Node_Access
19315                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
19316
19317         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
19318            --  ActivityNode::inPartition : ActivityPartition
19319
19320            return
19321              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
19322               (AMF.UML.Decision_Nodes.UML_Decision_Node_Access
19323                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
19324
19325         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
19326            --  ActivityNode::inStructuredNode : StructuredActivityNode
19327
19328            return
19329              AMF.Internals.Holders.UML_Holders.To_Holder
19330               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
19331                 (AMF.UML.Decision_Nodes.UML_Decision_Node_Access
19332                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
19333
19334         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
19335            --  ActivityNode::incoming : ActivityEdge
19336
19337            return
19338              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
19339               (AMF.UML.Decision_Nodes.UML_Decision_Node_Access
19340                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
19341
19342         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
19343            --  RedefinableElement::isLeaf : Boolean
19344
19345            return
19346              League.Holders.Booleans.To_Holder
19347               (AMF.UML.Decision_Nodes.UML_Decision_Node_Access
19348                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
19349
19350         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
19351            --  NamedElement::name : String
19352
19353            return
19354              AMF.Holders.To_Holder
19355               (AMF.UML.Decision_Nodes.UML_Decision_Node_Access
19356                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
19357
19358         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
19359            --  NamedElement::nameExpression : StringExpression
19360
19361            return
19362              AMF.Internals.Holders.UML_Holders.To_Holder
19363               (AMF.UML.String_Expressions.UML_String_Expression_Access'
19364                 (AMF.UML.Decision_Nodes.UML_Decision_Node_Access
19365                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
19366
19367         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
19368            --  NamedElement::namespace : Namespace
19369
19370            return
19371              AMF.Internals.Holders.UML_Holders.To_Holder
19372               (AMF.UML.Namespaces.UML_Namespace_Access'
19373                 (AMF.UML.Decision_Nodes.UML_Decision_Node_Access
19374                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
19375
19376         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
19377            --  ActivityNode::outgoing : ActivityEdge
19378
19379            return
19380              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
19381               (AMF.UML.Decision_Nodes.UML_Decision_Node_Access
19382                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
19383
19384         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
19385            --  Element::ownedComment : Comment
19386
19387            return
19388              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
19389               (AMF.UML.Decision_Nodes.UML_Decision_Node_Access
19390                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
19391
19392         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
19393            --  Element::ownedElement : Element
19394
19395            return
19396              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
19397               (AMF.UML.Decision_Nodes.UML_Decision_Node_Access
19398                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
19399
19400         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
19401            --  Element::owner : Element
19402
19403            return
19404              AMF.Internals.Holders.UML_Holders.To_Holder
19405               (AMF.UML.Elements.UML_Element_Access'
19406                 (AMF.UML.Decision_Nodes.UML_Decision_Node_Access
19407                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
19408
19409         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
19410            --  NamedElement::qualifiedName : String
19411
19412            return
19413              AMF.Holders.To_Holder
19414               (AMF.UML.Decision_Nodes.UML_Decision_Node_Access
19415                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
19416
19417         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
19418            --  RedefinableElement::redefinedElement : RedefinableElement
19419
19420            return
19421              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
19422               (AMF.UML.Decision_Nodes.UML_Decision_Node_Access
19423                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
19424
19425         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
19426            --  ActivityNode::redefinedNode : ActivityNode
19427
19428            return
19429              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
19430               (AMF.UML.Decision_Nodes.UML_Decision_Node_Access
19431                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
19432
19433         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
19434            --  RedefinableElement::redefinitionContext : Classifier
19435
19436            return
19437              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
19438               (AMF.UML.Decision_Nodes.UML_Decision_Node_Access
19439                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
19440
19441         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
19442            --  NamedElement::visibility : VisibilityKind
19443
19444            return
19445              AMF.UML.Holders.To_Holder
19446               (AMF.UML.Decision_Nodes.UML_Decision_Node_Access
19447                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
19448
19449         else
19450            raise Program_Error;
19451         end if;
19452      end UML_Decision_Node_Get;
19453
19454      ------------------------
19455      -- UML_Dependency_Get --
19456      ------------------------
19457
19458      function UML_Dependency_Get return League.Holders.Holder is
19459      begin
19460         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Client_Named_Element_Client_Dependency then
19461            --  Dependency::client : NamedElement
19462
19463            return
19464              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
19465               (AMF.UML.Dependencies.UML_Dependency_Access
19466                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client);
19467
19468         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
19469            --  NamedElement::clientDependency : Dependency
19470
19471            return
19472              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
19473               (AMF.UML.Dependencies.UML_Dependency_Access
19474                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
19475
19476         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
19477            --  NamedElement::name : String
19478
19479            return
19480              AMF.Holders.To_Holder
19481               (AMF.UML.Dependencies.UML_Dependency_Access
19482                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
19483
19484         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
19485            --  NamedElement::nameExpression : StringExpression
19486
19487            return
19488              AMF.Internals.Holders.UML_Holders.To_Holder
19489               (AMF.UML.String_Expressions.UML_String_Expression_Access'
19490                 (AMF.UML.Dependencies.UML_Dependency_Access
19491                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
19492
19493         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
19494            --  NamedElement::namespace : Namespace
19495
19496            return
19497              AMF.Internals.Holders.UML_Holders.To_Holder
19498               (AMF.UML.Namespaces.UML_Namespace_Access'
19499                 (AMF.UML.Dependencies.UML_Dependency_Access
19500                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
19501
19502         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
19503            --  Element::ownedComment : Comment
19504
19505            return
19506              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
19507               (AMF.UML.Dependencies.UML_Dependency_Access
19508                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
19509
19510         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
19511            --  Element::ownedElement : Element
19512
19513            return
19514              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
19515               (AMF.UML.Dependencies.UML_Dependency_Access
19516                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
19517
19518         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
19519            --  Element::owner : Element
19520
19521            return
19522              AMF.Internals.Holders.UML_Holders.To_Holder
19523               (AMF.UML.Elements.UML_Element_Access'
19524                 (AMF.UML.Dependencies.UML_Dependency_Access
19525                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
19526
19527         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
19528            --  ParameterableElement::owningTemplateParameter : TemplateParameter
19529
19530            return
19531              AMF.Internals.Holders.UML_Holders.To_Holder
19532               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
19533                 (AMF.UML.Dependencies.UML_Dependency_Access
19534                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
19535
19536         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
19537            --  NamedElement::qualifiedName : String
19538
19539            return
19540              AMF.Holders.To_Holder
19541               (AMF.UML.Dependencies.UML_Dependency_Access
19542                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
19543
19544         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship then
19545            --  Relationship::relatedElement : Element
19546
19547            return
19548              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
19549               (AMF.UML.Dependencies.UML_Dependency_Access
19550                 (AMF.Internals.Helpers.To_Element (Self)).Get_Related_Element);
19551
19552         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship then
19553            --  DirectedRelationship::source : Element
19554
19555            return
19556              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
19557               (AMF.UML.Dependencies.UML_Dependency_Access
19558                 (AMF.Internals.Helpers.To_Element (Self)).Get_Source);
19559
19560         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Supplier_A_Supplier_Dependency then
19561            --  Dependency::supplier : NamedElement
19562
19563            return
19564              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
19565               (AMF.UML.Dependencies.UML_Dependency_Access
19566                 (AMF.Internals.Helpers.To_Element (Self)).Get_Supplier);
19567
19568         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship then
19569            --  DirectedRelationship::target : Element
19570
19571            return
19572              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
19573               (AMF.UML.Dependencies.UML_Dependency_Access
19574                 (AMF.Internals.Helpers.To_Element (Self)).Get_Target);
19575
19576         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
19577            --  ParameterableElement::templateParameter : TemplateParameter
19578
19579            return
19580              AMF.Internals.Holders.UML_Holders.To_Holder
19581               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
19582                 (AMF.UML.Dependencies.UML_Dependency_Access
19583                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
19584
19585         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
19586            --  NamedElement::visibility : VisibilityKind
19587
19588            return
19589              AMF.UML.Holders.To_Holder
19590               (AMF.UML.Dependencies.UML_Dependency_Access
19591                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
19592
19593         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
19594            --  PackageableElement::visibility : VisibilityKind
19595
19596            return
19597              AMF.UML.Holders.Visibility_Kinds.To_Holder
19598               (AMF.UML.Dependencies.UML_Dependency_Access
19599                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
19600
19601         else
19602            raise Program_Error;
19603         end if;
19604      end UML_Dependency_Get;
19605
19606      ------------------------
19607      -- UML_Deployment_Get --
19608      ------------------------
19609
19610      function UML_Deployment_Get return League.Holders.Holder is
19611      begin
19612         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Client_Named_Element_Client_Dependency then
19613            --  Dependency::client : NamedElement
19614
19615            return
19616              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
19617               (AMF.UML.Deployments.UML_Deployment_Access
19618                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client);
19619
19620         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
19621            --  NamedElement::clientDependency : Dependency
19622
19623            return
19624              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
19625               (AMF.UML.Deployments.UML_Deployment_Access
19626                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
19627
19628         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Configuration_Deployment_Specification_Deployment then
19629            --  Deployment::configuration : DeploymentSpecification
19630
19631            return
19632              AMF.UML.Deployment_Specifications.Collections.UML_Deployment_Specification_Collections.Internals.To_Holder
19633               (AMF.UML.Deployments.UML_Deployment_Access
19634                 (AMF.Internals.Helpers.To_Element (Self)).Get_Configuration);
19635
19636         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Deployed_Artifact_A_Deployment then
19637            --  Deployment::deployedArtifact : DeployedArtifact
19638
19639            return
19640              AMF.UML.Deployed_Artifacts.Collections.UML_Deployed_Artifact_Collections.Internals.To_Holder
19641               (AMF.UML.Deployments.UML_Deployment_Access
19642                 (AMF.Internals.Helpers.To_Element (Self)).Get_Deployed_Artifact);
19643
19644         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Location_Deployment_Target_Deployment then
19645            --  Deployment::location : DeploymentTarget
19646
19647            return
19648              AMF.Internals.Holders.UML_Holders.To_Holder
19649               (AMF.UML.Deployment_Targets.UML_Deployment_Target_Access'
19650                 (AMF.UML.Deployments.UML_Deployment_Access
19651                   (AMF.Internals.Helpers.To_Element (Self)).Get_Location));
19652
19653         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
19654            --  NamedElement::name : String
19655
19656            return
19657              AMF.Holders.To_Holder
19658               (AMF.UML.Deployments.UML_Deployment_Access
19659                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
19660
19661         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
19662            --  NamedElement::nameExpression : StringExpression
19663
19664            return
19665              AMF.Internals.Holders.UML_Holders.To_Holder
19666               (AMF.UML.String_Expressions.UML_String_Expression_Access'
19667                 (AMF.UML.Deployments.UML_Deployment_Access
19668                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
19669
19670         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
19671            --  NamedElement::namespace : Namespace
19672
19673            return
19674              AMF.Internals.Holders.UML_Holders.To_Holder
19675               (AMF.UML.Namespaces.UML_Namespace_Access'
19676                 (AMF.UML.Deployments.UML_Deployment_Access
19677                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
19678
19679         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
19680            --  Element::ownedComment : Comment
19681
19682            return
19683              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
19684               (AMF.UML.Deployments.UML_Deployment_Access
19685                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
19686
19687         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
19688            --  Element::ownedElement : Element
19689
19690            return
19691              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
19692               (AMF.UML.Deployments.UML_Deployment_Access
19693                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
19694
19695         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
19696            --  Element::owner : Element
19697
19698            return
19699              AMF.Internals.Holders.UML_Holders.To_Holder
19700               (AMF.UML.Elements.UML_Element_Access'
19701                 (AMF.UML.Deployments.UML_Deployment_Access
19702                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
19703
19704         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
19705            --  ParameterableElement::owningTemplateParameter : TemplateParameter
19706
19707            return
19708              AMF.Internals.Holders.UML_Holders.To_Holder
19709               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
19710                 (AMF.UML.Deployments.UML_Deployment_Access
19711                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
19712
19713         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
19714            --  NamedElement::qualifiedName : String
19715
19716            return
19717              AMF.Holders.To_Holder
19718               (AMF.UML.Deployments.UML_Deployment_Access
19719                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
19720
19721         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship then
19722            --  Relationship::relatedElement : Element
19723
19724            return
19725              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
19726               (AMF.UML.Deployments.UML_Deployment_Access
19727                 (AMF.Internals.Helpers.To_Element (Self)).Get_Related_Element);
19728
19729         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship then
19730            --  DirectedRelationship::source : Element
19731
19732            return
19733              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
19734               (AMF.UML.Deployments.UML_Deployment_Access
19735                 (AMF.Internals.Helpers.To_Element (Self)).Get_Source);
19736
19737         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Supplier_A_Supplier_Dependency then
19738            --  Dependency::supplier : NamedElement
19739
19740            return
19741              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
19742               (AMF.UML.Deployments.UML_Deployment_Access
19743                 (AMF.Internals.Helpers.To_Element (Self)).Get_Supplier);
19744
19745         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship then
19746            --  DirectedRelationship::target : Element
19747
19748            return
19749              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
19750               (AMF.UML.Deployments.UML_Deployment_Access
19751                 (AMF.Internals.Helpers.To_Element (Self)).Get_Target);
19752
19753         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
19754            --  ParameterableElement::templateParameter : TemplateParameter
19755
19756            return
19757              AMF.Internals.Holders.UML_Holders.To_Holder
19758               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
19759                 (AMF.UML.Deployments.UML_Deployment_Access
19760                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
19761
19762         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
19763            --  NamedElement::visibility : VisibilityKind
19764
19765            return
19766              AMF.UML.Holders.To_Holder
19767               (AMF.UML.Deployments.UML_Deployment_Access
19768                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
19769
19770         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
19771            --  PackageableElement::visibility : VisibilityKind
19772
19773            return
19774              AMF.UML.Holders.Visibility_Kinds.To_Holder
19775               (AMF.UML.Deployments.UML_Deployment_Access
19776                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
19777
19778         else
19779            raise Program_Error;
19780         end if;
19781      end UML_Deployment_Get;
19782
19783      --------------------------------------
19784      -- UML_Deployment_Specification_Get --
19785      --------------------------------------
19786
19787      function UML_Deployment_Specification_Get return League.Holders.Holder is
19788      begin
19789         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier then
19790            --  Classifier::attribute : Property
19791
19792            return
19793              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
19794               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
19795                 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute);
19796
19797         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
19798            --  NamedElement::clientDependency : Dependency
19799
19800            return
19801              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
19802               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
19803                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
19804
19805         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier then
19806            --  Classifier::collaborationUse : CollaborationUse
19807
19808            return
19809              AMF.UML.Collaboration_Uses.Collections.UML_Collaboration_Use_Collections.Internals.To_Holder
19810               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
19811                 (AMF.Internals.Helpers.To_Element (Self)).Get_Collaboration_Use);
19812
19813         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Specification_Deployment_Deployment_Configuration then
19814            --  DeploymentSpecification::deployment : Deployment
19815
19816            return
19817              AMF.Internals.Holders.UML_Holders.To_Holder
19818               (AMF.UML.Deployments.UML_Deployment_Access'
19819                 (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
19820                   (AMF.Internals.Helpers.To_Element (Self)).Get_Deployment));
19821
19822         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Specification_Deployment_Location then
19823            --  DeploymentSpecification::deploymentLocation : String
19824
19825            return
19826              AMF.Holders.To_Holder
19827               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
19828                 (AMF.Internals.Helpers.To_Element (Self)).Get_Deployment_Location);
19829
19830         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
19831            --  Namespace::elementImport : ElementImport
19832
19833            return
19834              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
19835               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
19836                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
19837
19838         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Specification_Execution_Location then
19839            --  DeploymentSpecification::executionLocation : String
19840
19841            return
19842              AMF.Holders.To_Holder
19843               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
19844                 (AMF.Internals.Helpers.To_Element (Self)).Get_Execution_Location);
19845
19846         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier then
19847            --  Classifier::feature : Feature
19848
19849            return
19850              AMF.UML.Features.Collections.UML_Feature_Collections.Internals.To_Holder
19851               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
19852                 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature);
19853
19854         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Artifact_File_Name then
19855            --  Artifact::fileName : String
19856
19857            return
19858              AMF.Holders.To_Holder
19859               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
19860                 (AMF.Internals.Helpers.To_Element (Self)).Get_File_Name);
19861
19862         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier then
19863            --  Classifier::general : Classifier
19864
19865            return
19866              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
19867               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
19868                 (AMF.Internals.Helpers.To_Element (Self)).Get_General);
19869
19870         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific then
19871            --  Classifier::generalization : Generalization
19872
19873            return
19874              AMF.UML.Generalizations.Collections.UML_Generalization_Collections.Internals.To_Holder
19875               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
19876                 (AMF.Internals.Helpers.To_Element (Self)).Get_Generalization);
19877
19878         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
19879            --  Namespace::importedMember : PackageableElement
19880
19881            return
19882              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
19883               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
19884                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
19885
19886         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier then
19887            --  Classifier::inheritedMember : NamedElement
19888
19889            return
19890              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
19891               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
19892                 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member);
19893
19894         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
19895            --  Classifier::isAbstract : Boolean
19896
19897            return
19898              League.Holders.Booleans.To_Holder
19899               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
19900                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
19901
19902         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
19903            --  Classifier::isFinalSpecialization : Boolean
19904
19905            return
19906              League.Holders.Booleans.To_Holder
19907               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
19908                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization);
19909
19910         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
19911            --  RedefinableElement::isLeaf : Boolean
19912
19913            return
19914              League.Holders.Booleans.To_Holder
19915               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
19916                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
19917
19918         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Artifact_Manifestation_A_Artifact then
19919            --  Artifact::manifestation : Manifestation
19920
19921            return
19922              AMF.UML.Manifestations.Collections.UML_Manifestation_Collections.Internals.To_Holder
19923               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
19924                 (AMF.Internals.Helpers.To_Element (Self)).Get_Manifestation);
19925
19926         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
19927            --  Namespace::member : NamedElement
19928
19929            return
19930              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
19931               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
19932                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
19933
19934         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
19935            --  NamedElement::name : String
19936
19937            return
19938              AMF.Holders.To_Holder
19939               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
19940                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
19941
19942         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
19943            --  NamedElement::nameExpression : StringExpression
19944
19945            return
19946              AMF.Internals.Holders.UML_Holders.To_Holder
19947               (AMF.UML.String_Expressions.UML_String_Expression_Access'
19948                 (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
19949                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
19950
19951         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
19952            --  NamedElement::namespace : Namespace
19953
19954            return
19955              AMF.Internals.Holders.UML_Holders.To_Holder
19956               (AMF.UML.Namespaces.UML_Namespace_Access'
19957                 (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
19958                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
19959
19960         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Artifact_Nested_Artifact_A_Artifact then
19961            --  Artifact::nestedArtifact : Artifact
19962
19963            return
19964              AMF.UML.Artifacts.Collections.UML_Artifact_Collections.Internals.To_Holder
19965               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
19966                 (AMF.Internals.Helpers.To_Element (Self)).Get_Nested_Artifact);
19967
19968         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Artifact_Owned_Attribute_A_Artifact then
19969            --  Artifact::ownedAttribute : Property
19970
19971            return
19972              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
19973               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
19974                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
19975
19976         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
19977            --  Element::ownedComment : Comment
19978
19979            return
19980              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
19981               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
19982                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
19983
19984         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
19985            --  Element::ownedElement : Element
19986
19987            return
19988              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
19989               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
19990                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
19991
19992         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
19993            --  Namespace::ownedMember : NamedElement
19994
19995            return
19996              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
19997               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
19998                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
19999
20000         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Artifact_Owned_Operation_A_Artifact then
20001            --  Artifact::ownedOperation : Operation
20002
20003            return
20004              AMF.UML.Operations.Collections.UML_Operation_Collections.Internals.To_Holder
20005               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
20006                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Operation);
20007
20008         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
20009            --  Namespace::ownedRule : Constraint
20010
20011            return
20012              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
20013               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
20014                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
20015
20016         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
20017            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
20018
20019            return
20020              AMF.Internals.Holders.UML_Holders.To_Holder
20021               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access'
20022                 (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
20023                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
20024
20025         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
20026            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
20027
20028            return
20029              AMF.Internals.Holders.UML_Holders.To_Holder
20030               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
20031                 (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
20032                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
20033
20034         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier then
20035            --  Classifier::ownedUseCase : UseCase
20036
20037            return
20038              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
20039               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
20040                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Use_Case);
20041
20042         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
20043            --  Element::owner : Element
20044
20045            return
20046              AMF.Internals.Holders.UML_Holders.To_Holder
20047               (AMF.UML.Elements.UML_Element_Access'
20048                 (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
20049                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
20050
20051         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
20052            --  ParameterableElement::owningTemplateParameter : TemplateParameter
20053
20054            return
20055              AMF.Internals.Holders.UML_Holders.To_Holder
20056               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
20057                 (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
20058                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
20059
20060         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
20061            --  Type::package : Package
20062
20063            return
20064              AMF.Internals.Holders.UML_Holders.To_Holder
20065               (AMF.UML.Packages.UML_Package_Access'
20066                 (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
20067                   (AMF.Internals.Helpers.To_Element (Self)).Get_Package));
20068
20069         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
20070            --  Namespace::packageImport : PackageImport
20071
20072            return
20073              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
20074               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
20075                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
20076
20077         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype then
20078            --  Classifier::powertypeExtent : GeneralizationSet
20079
20080            return
20081              AMF.UML.Generalization_Sets.Collections.UML_Generalization_Set_Collections.Internals.To_Holder
20082               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
20083                 (AMF.Internals.Helpers.To_Element (Self)).Get_Powertype_Extent);
20084
20085         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
20086            --  NamedElement::qualifiedName : String
20087
20088            return
20089              AMF.Holders.To_Holder
20090               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
20091                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
20092
20093         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier then
20094            --  Classifier::redefinedClassifier : Classifier
20095
20096            return
20097              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
20098               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
20099                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Classifier);
20100
20101         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
20102            --  RedefinableElement::redefinedElement : RedefinableElement
20103
20104            return
20105              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
20106               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
20107                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
20108
20109         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
20110            --  RedefinableElement::redefinitionContext : Classifier
20111
20112            return
20113              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
20114               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
20115                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
20116
20117         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
20118            --  Classifier::representation : CollaborationUse
20119
20120            return
20121              AMF.Internals.Holders.UML_Holders.To_Holder
20122               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access'
20123                 (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
20124                   (AMF.Internals.Helpers.To_Element (Self)).Get_Representation));
20125
20126         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier then
20127            --  Classifier::substitution : Substitution
20128
20129            return
20130              AMF.UML.Substitutions.Collections.UML_Substitution_Collections.Internals.To_Holder
20131               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
20132                 (AMF.Internals.Helpers.To_Element (Self)).Get_Substitution);
20133
20134         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
20135            --  TemplateableElement::templateBinding : TemplateBinding
20136
20137            return
20138              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
20139               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
20140                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
20141
20142         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
20143            --  Classifier::templateParameter : ClassifierTemplateParameter
20144
20145            return
20146              AMF.Internals.Holders.UML_Holders.To_Holder
20147               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access'
20148                 (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
20149                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
20150
20151         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
20152            --  ParameterableElement::templateParameter : TemplateParameter
20153
20154            return
20155              AMF.Internals.Holders.UML_Holders.To_Holder
20156               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
20157                 (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
20158                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
20159
20160         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject then
20161            --  Classifier::useCase : UseCase
20162
20163            return
20164              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
20165               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
20166                 (AMF.Internals.Helpers.To_Element (Self)).Get_Use_Case);
20167
20168         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
20169            --  NamedElement::visibility : VisibilityKind
20170
20171            return
20172              AMF.UML.Holders.To_Holder
20173               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
20174                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
20175
20176         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
20177            --  PackageableElement::visibility : VisibilityKind
20178
20179            return
20180              AMF.UML.Holders.Visibility_Kinds.To_Holder
20181               (AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
20182                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
20183
20184         else
20185            raise Program_Error;
20186         end if;
20187      end UML_Deployment_Specification_Get;
20188
20189      ---------------------------------
20190      -- UML_Destroy_Link_Action_Get --
20191      ---------------------------------
20192
20193      function UML_Destroy_Link_Action_Get return League.Holders.Holder is
20194      begin
20195         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
20196            --  ActivityNode::activity : Activity
20197
20198            return
20199              AMF.Internals.Holders.UML_Holders.To_Holder
20200               (AMF.UML.Activities.UML_Activity_Access'
20201                 (AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
20202                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
20203
20204         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
20205            --  NamedElement::clientDependency : Dependency
20206
20207            return
20208              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
20209               (AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
20210                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
20211
20212         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
20213            --  Action::context : Classifier
20214
20215            return
20216              AMF.Internals.Holders.UML_Holders.To_Holder
20217               (AMF.UML.Classifiers.UML_Classifier_Access'
20218                 (AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
20219                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
20220
20221         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Destroy_Link_Action_End_Data_A_Destroy_Link_Action then
20222            --  DestroyLinkAction::endData : LinkEndDestructionData
20223
20224            return
20225              AMF.UML.Link_End_Destruction_Datas.Collections.UML_Link_End_Destruction_Data_Collections.Internals.To_Holder
20226               (AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
20227                 (AMF.Internals.Helpers.To_Element (Self)).Get_End_Data);
20228
20229         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_Action_End_Data_A_Link_Action then
20230            --  LinkAction::endData : LinkEndData
20231
20232            return
20233              AMF.UML.Link_End_Datas.Collections.UML_Link_End_Data_Collections.Internals.To_Holder
20234               (AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
20235                 (AMF.Internals.Helpers.To_Element (Self)).Get_End_Data);
20236
20237         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
20238            --  ExecutableNode::handler : ExceptionHandler
20239
20240            return
20241              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
20242               (AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
20243                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
20244
20245         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
20246            --  ActivityNode::inGroup : ActivityGroup
20247
20248            return
20249              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
20250               (AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
20251                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
20252
20253         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
20254            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
20255
20256            return
20257              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
20258               (AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
20259                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
20260
20261         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
20262            --  ActivityNode::inPartition : ActivityPartition
20263
20264            return
20265              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
20266               (AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
20267                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
20268
20269         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
20270            --  ActivityNode::inStructuredNode : StructuredActivityNode
20271
20272            return
20273              AMF.Internals.Holders.UML_Holders.To_Holder
20274               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
20275                 (AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
20276                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
20277
20278         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
20279            --  ActivityNode::incoming : ActivityEdge
20280
20281            return
20282              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
20283               (AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
20284                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
20285
20286         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
20287            --  Action::input : InputPin
20288
20289            return
20290              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
20291               (AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
20292                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
20293
20294         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_Action_Input_Value_A_Link_Action then
20295            --  LinkAction::inputValue : InputPin
20296
20297            return
20298              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
20299               (AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
20300                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input_Value);
20301
20302         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
20303            --  RedefinableElement::isLeaf : Boolean
20304
20305            return
20306              League.Holders.Booleans.To_Holder
20307               (AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
20308                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
20309
20310         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
20311            --  Action::isLocallyReentrant : Boolean
20312
20313            return
20314              League.Holders.Booleans.To_Holder
20315               (AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
20316                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
20317
20318         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
20319            --  Action::localPostcondition : Constraint
20320
20321            return
20322              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
20323               (AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
20324                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
20325
20326         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
20327            --  Action::localPrecondition : Constraint
20328
20329            return
20330              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
20331               (AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
20332                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
20333
20334         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
20335            --  NamedElement::name : String
20336
20337            return
20338              AMF.Holders.To_Holder
20339               (AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
20340                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
20341
20342         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
20343            --  NamedElement::nameExpression : StringExpression
20344
20345            return
20346              AMF.Internals.Holders.UML_Holders.To_Holder
20347               (AMF.UML.String_Expressions.UML_String_Expression_Access'
20348                 (AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
20349                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
20350
20351         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
20352            --  NamedElement::namespace : Namespace
20353
20354            return
20355              AMF.Internals.Holders.UML_Holders.To_Holder
20356               (AMF.UML.Namespaces.UML_Namespace_Access'
20357                 (AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
20358                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
20359
20360         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
20361            --  ActivityNode::outgoing : ActivityEdge
20362
20363            return
20364              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
20365               (AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
20366                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
20367
20368         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
20369            --  Action::output : OutputPin
20370
20371            return
20372              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
20373               (AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
20374                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
20375
20376         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
20377            --  Element::ownedComment : Comment
20378
20379            return
20380              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
20381               (AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
20382                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
20383
20384         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
20385            --  Element::ownedElement : Element
20386
20387            return
20388              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
20389               (AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
20390                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
20391
20392         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
20393            --  Element::owner : Element
20394
20395            return
20396              AMF.Internals.Holders.UML_Holders.To_Holder
20397               (AMF.UML.Elements.UML_Element_Access'
20398                 (AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
20399                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
20400
20401         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
20402            --  NamedElement::qualifiedName : String
20403
20404            return
20405              AMF.Holders.To_Holder
20406               (AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
20407                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
20408
20409         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
20410            --  RedefinableElement::redefinedElement : RedefinableElement
20411
20412            return
20413              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
20414               (AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
20415                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
20416
20417         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
20418            --  ActivityNode::redefinedNode : ActivityNode
20419
20420            return
20421              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
20422               (AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
20423                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
20424
20425         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
20426            --  RedefinableElement::redefinitionContext : Classifier
20427
20428            return
20429              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
20430               (AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
20431                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
20432
20433         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
20434            --  NamedElement::visibility : VisibilityKind
20435
20436            return
20437              AMF.UML.Holders.To_Holder
20438               (AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
20439                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
20440
20441         else
20442            raise Program_Error;
20443         end if;
20444      end UML_Destroy_Link_Action_Get;
20445
20446      -----------------------------------
20447      -- UML_Destroy_Object_Action_Get --
20448      -----------------------------------
20449
20450      function UML_Destroy_Object_Action_Get return League.Holders.Holder is
20451      begin
20452         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
20453            --  ActivityNode::activity : Activity
20454
20455            return
20456              AMF.Internals.Holders.UML_Holders.To_Holder
20457               (AMF.UML.Activities.UML_Activity_Access'
20458                 (AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
20459                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
20460
20461         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
20462            --  NamedElement::clientDependency : Dependency
20463
20464            return
20465              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
20466               (AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
20467                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
20468
20469         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
20470            --  Action::context : Classifier
20471
20472            return
20473              AMF.Internals.Holders.UML_Holders.To_Holder
20474               (AMF.UML.Classifiers.UML_Classifier_Access'
20475                 (AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
20476                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
20477
20478         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
20479            --  ExecutableNode::handler : ExceptionHandler
20480
20481            return
20482              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
20483               (AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
20484                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
20485
20486         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
20487            --  ActivityNode::inGroup : ActivityGroup
20488
20489            return
20490              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
20491               (AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
20492                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
20493
20494         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
20495            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
20496
20497            return
20498              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
20499               (AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
20500                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
20501
20502         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
20503            --  ActivityNode::inPartition : ActivityPartition
20504
20505            return
20506              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
20507               (AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
20508                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
20509
20510         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
20511            --  ActivityNode::inStructuredNode : StructuredActivityNode
20512
20513            return
20514              AMF.Internals.Holders.UML_Holders.To_Holder
20515               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
20516                 (AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
20517                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
20518
20519         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
20520            --  ActivityNode::incoming : ActivityEdge
20521
20522            return
20523              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
20524               (AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
20525                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
20526
20527         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
20528            --  Action::input : InputPin
20529
20530            return
20531              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
20532               (AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
20533                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
20534
20535         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Destroy_Object_Action_Is_Destroy_Links then
20536            --  DestroyObjectAction::isDestroyLinks : Boolean
20537
20538            return
20539              League.Holders.Booleans.To_Holder
20540               (AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
20541                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Destroy_Links);
20542
20543         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Destroy_Object_Action_Is_Destroy_Owned_Objects then
20544            --  DestroyObjectAction::isDestroyOwnedObjects : Boolean
20545
20546            return
20547              League.Holders.Booleans.To_Holder
20548               (AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
20549                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Destroy_Owned_Objects);
20550
20551         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
20552            --  RedefinableElement::isLeaf : Boolean
20553
20554            return
20555              League.Holders.Booleans.To_Holder
20556               (AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
20557                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
20558
20559         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
20560            --  Action::isLocallyReentrant : Boolean
20561
20562            return
20563              League.Holders.Booleans.To_Holder
20564               (AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
20565                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
20566
20567         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
20568            --  Action::localPostcondition : Constraint
20569
20570            return
20571              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
20572               (AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
20573                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
20574
20575         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
20576            --  Action::localPrecondition : Constraint
20577
20578            return
20579              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
20580               (AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
20581                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
20582
20583         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
20584            --  NamedElement::name : String
20585
20586            return
20587              AMF.Holders.To_Holder
20588               (AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
20589                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
20590
20591         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
20592            --  NamedElement::nameExpression : StringExpression
20593
20594            return
20595              AMF.Internals.Holders.UML_Holders.To_Holder
20596               (AMF.UML.String_Expressions.UML_String_Expression_Access'
20597                 (AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
20598                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
20599
20600         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
20601            --  NamedElement::namespace : Namespace
20602
20603            return
20604              AMF.Internals.Holders.UML_Holders.To_Holder
20605               (AMF.UML.Namespaces.UML_Namespace_Access'
20606                 (AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
20607                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
20608
20609         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
20610            --  ActivityNode::outgoing : ActivityEdge
20611
20612            return
20613              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
20614               (AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
20615                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
20616
20617         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
20618            --  Action::output : OutputPin
20619
20620            return
20621              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
20622               (AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
20623                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
20624
20625         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
20626            --  Element::ownedComment : Comment
20627
20628            return
20629              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
20630               (AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
20631                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
20632
20633         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
20634            --  Element::ownedElement : Element
20635
20636            return
20637              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
20638               (AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
20639                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
20640
20641         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
20642            --  Element::owner : Element
20643
20644            return
20645              AMF.Internals.Holders.UML_Holders.To_Holder
20646               (AMF.UML.Elements.UML_Element_Access'
20647                 (AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
20648                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
20649
20650         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
20651            --  NamedElement::qualifiedName : String
20652
20653            return
20654              AMF.Holders.To_Holder
20655               (AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
20656                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
20657
20658         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
20659            --  RedefinableElement::redefinedElement : RedefinableElement
20660
20661            return
20662              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
20663               (AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
20664                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
20665
20666         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
20667            --  ActivityNode::redefinedNode : ActivityNode
20668
20669            return
20670              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
20671               (AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
20672                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
20673
20674         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
20675            --  RedefinableElement::redefinitionContext : Classifier
20676
20677            return
20678              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
20679               (AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
20680                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
20681
20682         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Destroy_Object_Action_Target_A_Destroy_Object_Action then
20683            --  DestroyObjectAction::target : InputPin
20684
20685            return
20686              AMF.Internals.Holders.UML_Holders.To_Holder
20687               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
20688                 (AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
20689                   (AMF.Internals.Helpers.To_Element (Self)).Get_Target));
20690
20691         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
20692            --  NamedElement::visibility : VisibilityKind
20693
20694            return
20695              AMF.UML.Holders.To_Holder
20696               (AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
20697                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
20698
20699         else
20700            raise Program_Error;
20701         end if;
20702      end UML_Destroy_Object_Action_Get;
20703
20704      --------------------------------------------------
20705      -- UML_Destruction_Occurrence_Specification_Get --
20706      --------------------------------------------------
20707
20708      function UML_Destruction_Occurrence_Specification_Get return League.Holders.Holder is
20709      begin
20710         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
20711            --  NamedElement::clientDependency : Dependency
20712
20713            return
20714              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
20715               (AMF.UML.Destruction_Occurrence_Specifications.UML_Destruction_Occurrence_Specification_Access
20716                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
20717
20718         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Covered_Lifeline_Covered_By then
20719            --  InteractionFragment::covered : Lifeline
20720
20721            return
20722              AMF.UML.Lifelines.Collections.UML_Lifeline_Collections.Internals.To_Holder
20723               (AMF.UML.Destruction_Occurrence_Specifications.UML_Destruction_Occurrence_Specification_Access
20724                 (AMF.Internals.Helpers.To_Element (Self)).Get_Covered);
20725
20726         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Occurrence_Specification_Covered_A_Events then
20727            --  OccurrenceSpecification::covered : Lifeline
20728
20729            return
20730              AMF.Internals.Holders.UML_Holders.To_Holder
20731               (AMF.UML.Lifelines.UML_Lifeline_Access'
20732                 (AMF.UML.Destruction_Occurrence_Specifications.UML_Destruction_Occurrence_Specification_Access
20733                   (AMF.Internals.Helpers.To_Element (Self)).Get_Covered));
20734
20735         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Interaction_Interaction_Fragment then
20736            --  InteractionFragment::enclosingInteraction : Interaction
20737
20738            return
20739              AMF.Internals.Holders.UML_Holders.To_Holder
20740               (AMF.UML.Interactions.UML_Interaction_Access'
20741                 (AMF.UML.Destruction_Occurrence_Specifications.UML_Destruction_Occurrence_Specification_Access
20742                   (AMF.Internals.Helpers.To_Element (Self)).Get_Enclosing_Interaction));
20743
20744         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Operand_Interaction_Operand_Fragment then
20745            --  InteractionFragment::enclosingOperand : InteractionOperand
20746
20747            return
20748              AMF.Internals.Holders.UML_Holders.To_Holder
20749               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access'
20750                 (AMF.UML.Destruction_Occurrence_Specifications.UML_Destruction_Occurrence_Specification_Access
20751                   (AMF.Internals.Helpers.To_Element (Self)).Get_Enclosing_Operand));
20752
20753         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_General_Ordering_A_Interaction_Fragment then
20754            --  InteractionFragment::generalOrdering : GeneralOrdering
20755
20756            return
20757              AMF.UML.General_Orderings.Collections.UML_General_Ordering_Collections.Internals.To_Holder
20758               (AMF.UML.Destruction_Occurrence_Specifications.UML_Destruction_Occurrence_Specification_Access
20759                 (AMF.Internals.Helpers.To_Element (Self)).Get_General_Ordering);
20760
20761         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Message_End_Message_A_Message_End then
20762            --  MessageEnd::message : Message
20763
20764            return
20765              AMF.Internals.Holders.UML_Holders.To_Holder
20766               (AMF.UML.Messages.UML_Message_Access'
20767                 (AMF.UML.Destruction_Occurrence_Specifications.UML_Destruction_Occurrence_Specification_Access
20768                   (AMF.Internals.Helpers.To_Element (Self)).Get_Message));
20769
20770         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
20771            --  NamedElement::name : String
20772
20773            return
20774              AMF.Holders.To_Holder
20775               (AMF.UML.Destruction_Occurrence_Specifications.UML_Destruction_Occurrence_Specification_Access
20776                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
20777
20778         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
20779            --  NamedElement::nameExpression : StringExpression
20780
20781            return
20782              AMF.Internals.Holders.UML_Holders.To_Holder
20783               (AMF.UML.String_Expressions.UML_String_Expression_Access'
20784                 (AMF.UML.Destruction_Occurrence_Specifications.UML_Destruction_Occurrence_Specification_Access
20785                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
20786
20787         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
20788            --  NamedElement::namespace : Namespace
20789
20790            return
20791              AMF.Internals.Holders.UML_Holders.To_Holder
20792               (AMF.UML.Namespaces.UML_Namespace_Access'
20793                 (AMF.UML.Destruction_Occurrence_Specifications.UML_Destruction_Occurrence_Specification_Access
20794                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
20795
20796         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
20797            --  Element::ownedComment : Comment
20798
20799            return
20800              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
20801               (AMF.UML.Destruction_Occurrence_Specifications.UML_Destruction_Occurrence_Specification_Access
20802                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
20803
20804         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
20805            --  Element::ownedElement : Element
20806
20807            return
20808              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
20809               (AMF.UML.Destruction_Occurrence_Specifications.UML_Destruction_Occurrence_Specification_Access
20810                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
20811
20812         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
20813            --  Element::owner : Element
20814
20815            return
20816              AMF.Internals.Holders.UML_Holders.To_Holder
20817               (AMF.UML.Elements.UML_Element_Access'
20818                 (AMF.UML.Destruction_Occurrence_Specifications.UML_Destruction_Occurrence_Specification_Access
20819                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
20820
20821         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
20822            --  NamedElement::qualifiedName : String
20823
20824            return
20825              AMF.Holders.To_Holder
20826               (AMF.UML.Destruction_Occurrence_Specifications.UML_Destruction_Occurrence_Specification_Access
20827                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
20828
20829         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Occurrence_Specification_To_After_General_Ordering_Before then
20830            --  OccurrenceSpecification::toAfter : GeneralOrdering
20831
20832            return
20833              AMF.UML.General_Orderings.Collections.UML_General_Ordering_Collections.Internals.To_Holder
20834               (AMF.UML.Destruction_Occurrence_Specifications.UML_Destruction_Occurrence_Specification_Access
20835                 (AMF.Internals.Helpers.To_Element (Self)).Get_To_After);
20836
20837         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Occurrence_Specification_To_Before_General_Ordering_After then
20838            --  OccurrenceSpecification::toBefore : GeneralOrdering
20839
20840            return
20841              AMF.UML.General_Orderings.Collections.UML_General_Ordering_Collections.Internals.To_Holder
20842               (AMF.UML.Destruction_Occurrence_Specifications.UML_Destruction_Occurrence_Specification_Access
20843                 (AMF.Internals.Helpers.To_Element (Self)).Get_To_Before);
20844
20845         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
20846            --  NamedElement::visibility : VisibilityKind
20847
20848            return
20849              AMF.UML.Holders.To_Holder
20850               (AMF.UML.Destruction_Occurrence_Specifications.UML_Destruction_Occurrence_Specification_Access
20851                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
20852
20853         else
20854            raise Program_Error;
20855         end if;
20856      end UML_Destruction_Occurrence_Specification_Get;
20857
20858      --------------------
20859      -- UML_Device_Get --
20860      --------------------
20861
20862      function UML_Device_Get return League.Holders.Holder is
20863      begin
20864         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier then
20865            --  Classifier::attribute : Property
20866
20867            return
20868              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
20869               (AMF.UML.Devices.UML_Device_Access
20870                 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute);
20871
20872         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
20873            --  BehavioredClassifier::classifierBehavior : Behavior
20874
20875            return
20876              AMF.Internals.Holders.UML_Holders.To_Holder
20877               (AMF.UML.Behaviors.UML_Behavior_Access'
20878                 (AMF.UML.Devices.UML_Device_Access
20879                   (AMF.Internals.Helpers.To_Element (Self)).Get_Classifier_Behavior));
20880
20881         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
20882            --  NamedElement::clientDependency : Dependency
20883
20884            return
20885              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
20886               (AMF.UML.Devices.UML_Device_Access
20887                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
20888
20889         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier then
20890            --  Classifier::collaborationUse : CollaborationUse
20891
20892            return
20893              AMF.UML.Collaboration_Uses.Collections.UML_Collaboration_Use_Collections.Internals.To_Holder
20894               (AMF.UML.Devices.UML_Device_Access
20895                 (AMF.Internals.Helpers.To_Element (Self)).Get_Collaboration_Use);
20896
20897         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployed_Element_A_Deployment_Target then
20898            --  DeploymentTarget::deployedElement : PackageableElement
20899
20900            return
20901              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
20902               (AMF.UML.Devices.UML_Device_Access
20903                 (AMF.Internals.Helpers.To_Element (Self)).Get_Deployed_Element);
20904
20905         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployment_Deployment_Location then
20906            --  DeploymentTarget::deployment : Deployment
20907
20908            return
20909              AMF.UML.Deployments.Collections.UML_Deployment_Collections.Internals.To_Holder
20910               (AMF.UML.Devices.UML_Device_Access
20911                 (AMF.Internals.Helpers.To_Element (Self)).Get_Deployment);
20912
20913         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
20914            --  Namespace::elementImport : ElementImport
20915
20916            return
20917              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
20918               (AMF.UML.Devices.UML_Device_Access
20919                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
20920
20921         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Extension_Extension_Metaclass then
20922            --  Class::extension : Extension
20923
20924            return
20925              AMF.UML.Extensions.Collections.UML_Extension_Collections.Internals.To_Holder
20926               (AMF.UML.Devices.UML_Device_Access
20927                 (AMF.Internals.Helpers.To_Element (Self)).Get_Extension);
20928
20929         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier then
20930            --  Classifier::feature : Feature
20931
20932            return
20933              AMF.UML.Features.Collections.UML_Feature_Collections.Internals.To_Holder
20934               (AMF.UML.Devices.UML_Device_Access
20935                 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature);
20936
20937         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier then
20938            --  Classifier::general : Classifier
20939
20940            return
20941              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
20942               (AMF.UML.Devices.UML_Device_Access
20943                 (AMF.Internals.Helpers.To_Element (Self)).Get_General);
20944
20945         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific then
20946            --  Classifier::generalization : Generalization
20947
20948            return
20949              AMF.UML.Generalizations.Collections.UML_Generalization_Collections.Internals.To_Holder
20950               (AMF.UML.Devices.UML_Device_Access
20951                 (AMF.Internals.Helpers.To_Element (Self)).Get_Generalization);
20952
20953         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
20954            --  Namespace::importedMember : PackageableElement
20955
20956            return
20957              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
20958               (AMF.UML.Devices.UML_Device_Access
20959                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
20960
20961         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier then
20962            --  Classifier::inheritedMember : NamedElement
20963
20964            return
20965              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
20966               (AMF.UML.Devices.UML_Device_Access
20967                 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member);
20968
20969         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier then
20970            --  BehavioredClassifier::interfaceRealization : InterfaceRealization
20971
20972            return
20973              AMF.UML.Interface_Realizations.Collections.UML_Interface_Realization_Collections.Internals.To_Holder
20974               (AMF.UML.Devices.UML_Device_Access
20975                 (AMF.Internals.Helpers.To_Element (Self)).Get_Interface_Realization);
20976
20977         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Abstract then
20978            --  Class::isAbstract : Boolean
20979
20980            return
20981              League.Holders.Booleans.To_Holder
20982               (AMF.UML.Devices.UML_Device_Access
20983                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
20984
20985         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
20986            --  Classifier::isAbstract : Boolean
20987
20988            return
20989              League.Holders.Booleans.To_Holder
20990               (AMF.UML.Devices.UML_Device_Access
20991                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
20992
20993         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Active then
20994            --  Class::isActive : Boolean
20995
20996            return
20997              League.Holders.Booleans.To_Holder
20998               (AMF.UML.Devices.UML_Device_Access
20999                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Active);
21000
21001         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
21002            --  Classifier::isFinalSpecialization : Boolean
21003
21004            return
21005              League.Holders.Booleans.To_Holder
21006               (AMF.UML.Devices.UML_Device_Access
21007                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization);
21008
21009         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
21010            --  RedefinableElement::isLeaf : Boolean
21011
21012            return
21013              League.Holders.Booleans.To_Holder
21014               (AMF.UML.Devices.UML_Device_Access
21015                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
21016
21017         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
21018            --  Namespace::member : NamedElement
21019
21020            return
21021              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
21022               (AMF.UML.Devices.UML_Device_Access
21023                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
21024
21025         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
21026            --  NamedElement::name : String
21027
21028            return
21029              AMF.Holders.To_Holder
21030               (AMF.UML.Devices.UML_Device_Access
21031                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
21032
21033         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
21034            --  NamedElement::nameExpression : StringExpression
21035
21036            return
21037              AMF.Internals.Holders.UML_Holders.To_Holder
21038               (AMF.UML.String_Expressions.UML_String_Expression_Access'
21039                 (AMF.UML.Devices.UML_Device_Access
21040                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
21041
21042         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
21043            --  NamedElement::namespace : Namespace
21044
21045            return
21046              AMF.Internals.Holders.UML_Holders.To_Holder
21047               (AMF.UML.Namespaces.UML_Namespace_Access'
21048                 (AMF.UML.Devices.UML_Device_Access
21049                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
21050
21051         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Nested_Classifier_A_Class then
21052            --  Class::nestedClassifier : Classifier
21053
21054            return
21055              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
21056               (AMF.UML.Devices.UML_Device_Access
21057                 (AMF.Internals.Helpers.To_Element (Self)).Get_Nested_Classifier);
21058
21059         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Node_Nested_Node_A_Node then
21060            --  Node::nestedNode : Node
21061
21062            return
21063              AMF.UML.Nodes.Collections.UML_Node_Collections.Internals.To_Holder
21064               (AMF.UML.Devices.UML_Device_Access
21065                 (AMF.Internals.Helpers.To_Element (Self)).Get_Nested_Node);
21066
21067         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Attribute_Property_Class then
21068            --  Class::ownedAttribute : Property
21069
21070            return
21071              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
21072               (AMF.UML.Devices.UML_Device_Access
21073                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
21074
21075         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Attribute_A_Structured_Classifier then
21076            --  StructuredClassifier::ownedAttribute : Property
21077
21078            return
21079              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
21080               (AMF.UML.Devices.UML_Device_Access
21081                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
21082
21083         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier then
21084            --  BehavioredClassifier::ownedBehavior : Behavior
21085
21086            return
21087              AMF.UML.Behaviors.Collections.UML_Behavior_Collections.Internals.To_Holder
21088               (AMF.UML.Devices.UML_Device_Access
21089                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Behavior);
21090
21091         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
21092            --  Element::ownedComment : Comment
21093
21094            return
21095              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
21096               (AMF.UML.Devices.UML_Device_Access
21097                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
21098
21099         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Connector_A_Structured_Classifier then
21100            --  StructuredClassifier::ownedConnector : Connector
21101
21102            return
21103              AMF.UML.Connectors.Collections.UML_Connector_Collections.Internals.To_Holder
21104               (AMF.UML.Devices.UML_Device_Access
21105                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Connector);
21106
21107         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
21108            --  Element::ownedElement : Element
21109
21110            return
21111              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
21112               (AMF.UML.Devices.UML_Device_Access
21113                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
21114
21115         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
21116            --  Namespace::ownedMember : NamedElement
21117
21118            return
21119              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
21120               (AMF.UML.Devices.UML_Device_Access
21121                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
21122
21123         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Operation_Operation_Class then
21124            --  Class::ownedOperation : Operation
21125
21126            return
21127              AMF.UML.Operations.Collections.UML_Operation_Collections.Internals.To_Holder
21128               (AMF.UML.Devices.UML_Device_Access
21129                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Operation);
21130
21131         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Encapsulated_Classifier_Owned_Port_A_Encapsulated_Classifier then
21132            --  EncapsulatedClassifier::ownedPort : Port
21133
21134            return
21135              AMF.UML.Ports.Collections.UML_Port_Collections.Internals.To_Holder
21136               (AMF.UML.Devices.UML_Device_Access
21137                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Port);
21138
21139         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Reception_A_Class then
21140            --  Class::ownedReception : Reception
21141
21142            return
21143              AMF.UML.Receptions.Collections.UML_Reception_Collections.Internals.To_Holder
21144               (AMF.UML.Devices.UML_Device_Access
21145                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Reception);
21146
21147         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
21148            --  Namespace::ownedRule : Constraint
21149
21150            return
21151              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
21152               (AMF.UML.Devices.UML_Device_Access
21153                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
21154
21155         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
21156            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
21157
21158            return
21159              AMF.Internals.Holders.UML_Holders.To_Holder
21160               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access'
21161                 (AMF.UML.Devices.UML_Device_Access
21162                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
21163
21164         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
21165            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
21166
21167            return
21168              AMF.Internals.Holders.UML_Holders.To_Holder
21169               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
21170                 (AMF.UML.Devices.UML_Device_Access
21171                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
21172
21173         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier then
21174            --  Classifier::ownedUseCase : UseCase
21175
21176            return
21177              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
21178               (AMF.UML.Devices.UML_Device_Access
21179                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Use_Case);
21180
21181         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
21182            --  Element::owner : Element
21183
21184            return
21185              AMF.Internals.Holders.UML_Holders.To_Holder
21186               (AMF.UML.Elements.UML_Element_Access'
21187                 (AMF.UML.Devices.UML_Device_Access
21188                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
21189
21190         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
21191            --  ParameterableElement::owningTemplateParameter : TemplateParameter
21192
21193            return
21194              AMF.Internals.Holders.UML_Holders.To_Holder
21195               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
21196                 (AMF.UML.Devices.UML_Device_Access
21197                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
21198
21199         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
21200            --  Type::package : Package
21201
21202            return
21203              AMF.Internals.Holders.UML_Holders.To_Holder
21204               (AMF.UML.Packages.UML_Package_Access'
21205                 (AMF.UML.Devices.UML_Device_Access
21206                   (AMF.Internals.Helpers.To_Element (Self)).Get_Package));
21207
21208         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
21209            --  Namespace::packageImport : PackageImport
21210
21211            return
21212              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
21213               (AMF.UML.Devices.UML_Device_Access
21214                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
21215
21216         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Part_A_Structured_Classifier then
21217            --  StructuredClassifier::part : Property
21218
21219            return
21220              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
21221               (AMF.UML.Devices.UML_Device_Access
21222                 (AMF.Internals.Helpers.To_Element (Self)).Get_Part);
21223
21224         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype then
21225            --  Classifier::powertypeExtent : GeneralizationSet
21226
21227            return
21228              AMF.UML.Generalization_Sets.Collections.UML_Generalization_Set_Collections.Internals.To_Holder
21229               (AMF.UML.Devices.UML_Device_Access
21230                 (AMF.Internals.Helpers.To_Element (Self)).Get_Powertype_Extent);
21231
21232         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
21233            --  NamedElement::qualifiedName : String
21234
21235            return
21236              AMF.Holders.To_Holder
21237               (AMF.UML.Devices.UML_Device_Access
21238                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
21239
21240         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier then
21241            --  Classifier::redefinedClassifier : Classifier
21242
21243            return
21244              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
21245               (AMF.UML.Devices.UML_Device_Access
21246                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Classifier);
21247
21248         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
21249            --  RedefinableElement::redefinedElement : RedefinableElement
21250
21251            return
21252              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
21253               (AMF.UML.Devices.UML_Device_Access
21254                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
21255
21256         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
21257            --  RedefinableElement::redefinitionContext : Classifier
21258
21259            return
21260              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
21261               (AMF.UML.Devices.UML_Device_Access
21262                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
21263
21264         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
21265            --  Classifier::representation : CollaborationUse
21266
21267            return
21268              AMF.Internals.Holders.UML_Holders.To_Holder
21269               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access'
21270                 (AMF.UML.Devices.UML_Device_Access
21271                   (AMF.Internals.Helpers.To_Element (Self)).Get_Representation));
21272
21273         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Role_A_Structured_Classifier then
21274            --  StructuredClassifier::role : ConnectableElement
21275
21276            return
21277              AMF.UML.Connectable_Elements.Collections.UML_Connectable_Element_Collections.Internals.To_Holder
21278               (AMF.UML.Devices.UML_Device_Access
21279                 (AMF.Internals.Helpers.To_Element (Self)).Get_Role);
21280
21281         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier then
21282            --  Classifier::substitution : Substitution
21283
21284            return
21285              AMF.UML.Substitutions.Collections.UML_Substitution_Collections.Internals.To_Holder
21286               (AMF.UML.Devices.UML_Device_Access
21287                 (AMF.Internals.Helpers.To_Element (Self)).Get_Substitution);
21288
21289         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Super_Class_A_Class then
21290            --  Class::superClass : Class
21291
21292            return
21293              AMF.UML.Classes.Collections.UML_Class_Collections.Internals.To_Holder
21294               (AMF.UML.Devices.UML_Device_Access
21295                 (AMF.Internals.Helpers.To_Element (Self)).Get_Super_Class);
21296
21297         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
21298            --  TemplateableElement::templateBinding : TemplateBinding
21299
21300            return
21301              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
21302               (AMF.UML.Devices.UML_Device_Access
21303                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
21304
21305         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
21306            --  Classifier::templateParameter : ClassifierTemplateParameter
21307
21308            return
21309              AMF.Internals.Holders.UML_Holders.To_Holder
21310               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access'
21311                 (AMF.UML.Devices.UML_Device_Access
21312                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
21313
21314         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
21315            --  ParameterableElement::templateParameter : TemplateParameter
21316
21317            return
21318              AMF.Internals.Holders.UML_Holders.To_Holder
21319               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
21320                 (AMF.UML.Devices.UML_Device_Access
21321                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
21322
21323         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject then
21324            --  Classifier::useCase : UseCase
21325
21326            return
21327              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
21328               (AMF.UML.Devices.UML_Device_Access
21329                 (AMF.Internals.Helpers.To_Element (Self)).Get_Use_Case);
21330
21331         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
21332            --  NamedElement::visibility : VisibilityKind
21333
21334            return
21335              AMF.UML.Holders.To_Holder
21336               (AMF.UML.Devices.UML_Device_Access
21337                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
21338
21339         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
21340            --  PackageableElement::visibility : VisibilityKind
21341
21342            return
21343              AMF.UML.Holders.Visibility_Kinds.To_Holder
21344               (AMF.UML.Devices.UML_Device_Access
21345                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
21346
21347         else
21348            raise Program_Error;
21349         end if;
21350      end UML_Device_Get;
21351
21352      ----------------------
21353      -- UML_Duration_Get --
21354      ----------------------
21355
21356      function UML_Duration_Get return League.Holders.Holder is
21357      begin
21358         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
21359            --  NamedElement::clientDependency : Dependency
21360
21361            return
21362              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
21363               (AMF.UML.Durations.UML_Duration_Access
21364                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
21365
21366         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Duration_Expr_A_Duration then
21367            --  Duration::expr : ValueSpecification
21368
21369            return
21370              AMF.Internals.Holders.UML_Holders.To_Holder
21371               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
21372                 (AMF.UML.Durations.UML_Duration_Access
21373                   (AMF.Internals.Helpers.To_Element (Self)).Get_Expr));
21374
21375         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
21376            --  NamedElement::name : String
21377
21378            return
21379              AMF.Holders.To_Holder
21380               (AMF.UML.Durations.UML_Duration_Access
21381                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
21382
21383         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
21384            --  NamedElement::nameExpression : StringExpression
21385
21386            return
21387              AMF.Internals.Holders.UML_Holders.To_Holder
21388               (AMF.UML.String_Expressions.UML_String_Expression_Access'
21389                 (AMF.UML.Durations.UML_Duration_Access
21390                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
21391
21392         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
21393            --  NamedElement::namespace : Namespace
21394
21395            return
21396              AMF.Internals.Holders.UML_Holders.To_Holder
21397               (AMF.UML.Namespaces.UML_Namespace_Access'
21398                 (AMF.UML.Durations.UML_Duration_Access
21399                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
21400
21401         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Duration_Observation_A_Duration then
21402            --  Duration::observation : Observation
21403
21404            return
21405              AMF.UML.Observations.Collections.UML_Observation_Collections.Internals.To_Holder
21406               (AMF.UML.Durations.UML_Duration_Access
21407                 (AMF.Internals.Helpers.To_Element (Self)).Get_Observation);
21408
21409         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
21410            --  Element::ownedComment : Comment
21411
21412            return
21413              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
21414               (AMF.UML.Durations.UML_Duration_Access
21415                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
21416
21417         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
21418            --  Element::ownedElement : Element
21419
21420            return
21421              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
21422               (AMF.UML.Durations.UML_Duration_Access
21423                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
21424
21425         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
21426            --  Element::owner : Element
21427
21428            return
21429              AMF.Internals.Holders.UML_Holders.To_Holder
21430               (AMF.UML.Elements.UML_Element_Access'
21431                 (AMF.UML.Durations.UML_Duration_Access
21432                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
21433
21434         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
21435            --  ParameterableElement::owningTemplateParameter : TemplateParameter
21436
21437            return
21438              AMF.Internals.Holders.UML_Holders.To_Holder
21439               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
21440                 (AMF.UML.Durations.UML_Duration_Access
21441                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
21442
21443         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
21444            --  NamedElement::qualifiedName : String
21445
21446            return
21447              AMF.Holders.To_Holder
21448               (AMF.UML.Durations.UML_Duration_Access
21449                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
21450
21451         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
21452            --  ParameterableElement::templateParameter : TemplateParameter
21453
21454            return
21455              AMF.Internals.Holders.UML_Holders.To_Holder
21456               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
21457                 (AMF.UML.Durations.UML_Duration_Access
21458                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
21459
21460         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
21461            --  TypedElement::type : Type
21462
21463            return
21464              AMF.Internals.Holders.UML_Holders.To_Holder
21465               (AMF.UML.Types.UML_Type_Access'
21466                 (AMF.UML.Durations.UML_Duration_Access
21467                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
21468
21469         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
21470            --  NamedElement::visibility : VisibilityKind
21471
21472            return
21473              AMF.UML.Holders.To_Holder
21474               (AMF.UML.Durations.UML_Duration_Access
21475                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
21476
21477         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
21478            --  PackageableElement::visibility : VisibilityKind
21479
21480            return
21481              AMF.UML.Holders.Visibility_Kinds.To_Holder
21482               (AMF.UML.Durations.UML_Duration_Access
21483                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
21484
21485         else
21486            raise Program_Error;
21487         end if;
21488      end UML_Duration_Get;
21489
21490      ---------------------------------
21491      -- UML_Duration_Constraint_Get --
21492      ---------------------------------
21493
21494      function UML_Duration_Constraint_Get return League.Holders.Holder is
21495      begin
21496         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
21497            --  NamedElement::clientDependency : Dependency
21498
21499            return
21500              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
21501               (AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access
21502                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
21503
21504         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Constraint_Constrained_Element_A_Constraint then
21505            --  Constraint::constrainedElement : Element
21506
21507            return
21508              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
21509               (AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access
21510                 (AMF.Internals.Helpers.To_Element (Self)).Get_Constrained_Element);
21511
21512         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Constraint_Context_Namespace_Owned_Rule then
21513            --  Constraint::context : Namespace
21514
21515            return
21516              AMF.Internals.Holders.UML_Holders.To_Holder
21517               (AMF.UML.Namespaces.UML_Namespace_Access'
21518                 (AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access
21519                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
21520
21521         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Duration_Constraint_First_Event then
21522            --  DurationConstraint::firstEvent : Boolean
21523
21524            return
21525              AMF.Boolean_Collections.Internals.To_Holder
21526               (AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access
21527                 (AMF.Internals.Helpers.To_Element (Self)).Get_First_Event);
21528
21529         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
21530            --  NamedElement::name : String
21531
21532            return
21533              AMF.Holders.To_Holder
21534               (AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access
21535                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
21536
21537         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
21538            --  NamedElement::nameExpression : StringExpression
21539
21540            return
21541              AMF.Internals.Holders.UML_Holders.To_Holder
21542               (AMF.UML.String_Expressions.UML_String_Expression_Access'
21543                 (AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access
21544                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
21545
21546         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
21547            --  NamedElement::namespace : Namespace
21548
21549            return
21550              AMF.Internals.Holders.UML_Holders.To_Holder
21551               (AMF.UML.Namespaces.UML_Namespace_Access'
21552                 (AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access
21553                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
21554
21555         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
21556            --  Element::ownedComment : Comment
21557
21558            return
21559              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
21560               (AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access
21561                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
21562
21563         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
21564            --  Element::ownedElement : Element
21565
21566            return
21567              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
21568               (AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access
21569                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
21570
21571         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
21572            --  Element::owner : Element
21573
21574            return
21575              AMF.Internals.Holders.UML_Holders.To_Holder
21576               (AMF.UML.Elements.UML_Element_Access'
21577                 (AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access
21578                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
21579
21580         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
21581            --  ParameterableElement::owningTemplateParameter : TemplateParameter
21582
21583            return
21584              AMF.Internals.Holders.UML_Holders.To_Holder
21585               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
21586                 (AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access
21587                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
21588
21589         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
21590            --  NamedElement::qualifiedName : String
21591
21592            return
21593              AMF.Holders.To_Holder
21594               (AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access
21595                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
21596
21597         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Constraint_Specification_A_Owning_Constraint then
21598            --  Constraint::specification : ValueSpecification
21599
21600            return
21601              AMF.Internals.Holders.UML_Holders.To_Holder
21602               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
21603                 (AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access
21604                   (AMF.Internals.Helpers.To_Element (Self)).Get_Specification));
21605
21606         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Duration_Constraint_Specification_A_Duration_Constraint then
21607            --  DurationConstraint::specification : DurationInterval
21608
21609            return
21610              AMF.Internals.Holders.UML_Holders.To_Holder
21611               (AMF.UML.Duration_Intervals.UML_Duration_Interval_Access'
21612                 (AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access
21613                   (AMF.Internals.Helpers.To_Element (Self)).Get_Specification));
21614
21615         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interval_Constraint_Specification_A_Interval_Constraint then
21616            --  IntervalConstraint::specification : Interval
21617
21618            return
21619              AMF.Internals.Holders.UML_Holders.To_Holder
21620               (AMF.UML.Intervals.UML_Interval_Access'
21621                 (AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access
21622                   (AMF.Internals.Helpers.To_Element (Self)).Get_Specification));
21623
21624         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
21625            --  ParameterableElement::templateParameter : TemplateParameter
21626
21627            return
21628              AMF.Internals.Holders.UML_Holders.To_Holder
21629               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
21630                 (AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access
21631                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
21632
21633         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
21634            --  NamedElement::visibility : VisibilityKind
21635
21636            return
21637              AMF.UML.Holders.To_Holder
21638               (AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access
21639                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
21640
21641         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
21642            --  PackageableElement::visibility : VisibilityKind
21643
21644            return
21645              AMF.UML.Holders.Visibility_Kinds.To_Holder
21646               (AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access
21647                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
21648
21649         else
21650            raise Program_Error;
21651         end if;
21652      end UML_Duration_Constraint_Get;
21653
21654      -------------------------------
21655      -- UML_Duration_Interval_Get --
21656      -------------------------------
21657
21658      function UML_Duration_Interval_Get return League.Holders.Holder is
21659      begin
21660         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
21661            --  NamedElement::clientDependency : Dependency
21662
21663            return
21664              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
21665               (AMF.UML.Duration_Intervals.UML_Duration_Interval_Access
21666                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
21667
21668         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Duration_Interval_Max_A_Duration_Interval then
21669            --  DurationInterval::max : Duration
21670
21671            return
21672              AMF.Internals.Holders.UML_Holders.To_Holder
21673               (AMF.UML.Durations.UML_Duration_Access'
21674                 (AMF.UML.Duration_Intervals.UML_Duration_Interval_Access
21675                   (AMF.Internals.Helpers.To_Element (Self)).Get_Max));
21676
21677         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interval_Max_A_Interval then
21678            --  Interval::max : ValueSpecification
21679
21680            return
21681              AMF.Internals.Holders.UML_Holders.To_Holder
21682               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
21683                 (AMF.UML.Duration_Intervals.UML_Duration_Interval_Access
21684                   (AMF.Internals.Helpers.To_Element (Self)).Get_Max));
21685
21686         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Duration_Interval_Min_A_Duration_Interval then
21687            --  DurationInterval::min : Duration
21688
21689            return
21690              AMF.Internals.Holders.UML_Holders.To_Holder
21691               (AMF.UML.Durations.UML_Duration_Access'
21692                 (AMF.UML.Duration_Intervals.UML_Duration_Interval_Access
21693                   (AMF.Internals.Helpers.To_Element (Self)).Get_Min));
21694
21695         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interval_Min_A_Interval then
21696            --  Interval::min : ValueSpecification
21697
21698            return
21699              AMF.Internals.Holders.UML_Holders.To_Holder
21700               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
21701                 (AMF.UML.Duration_Intervals.UML_Duration_Interval_Access
21702                   (AMF.Internals.Helpers.To_Element (Self)).Get_Min));
21703
21704         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
21705            --  NamedElement::name : String
21706
21707            return
21708              AMF.Holders.To_Holder
21709               (AMF.UML.Duration_Intervals.UML_Duration_Interval_Access
21710                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
21711
21712         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
21713            --  NamedElement::nameExpression : StringExpression
21714
21715            return
21716              AMF.Internals.Holders.UML_Holders.To_Holder
21717               (AMF.UML.String_Expressions.UML_String_Expression_Access'
21718                 (AMF.UML.Duration_Intervals.UML_Duration_Interval_Access
21719                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
21720
21721         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
21722            --  NamedElement::namespace : Namespace
21723
21724            return
21725              AMF.Internals.Holders.UML_Holders.To_Holder
21726               (AMF.UML.Namespaces.UML_Namespace_Access'
21727                 (AMF.UML.Duration_Intervals.UML_Duration_Interval_Access
21728                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
21729
21730         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
21731            --  Element::ownedComment : Comment
21732
21733            return
21734              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
21735               (AMF.UML.Duration_Intervals.UML_Duration_Interval_Access
21736                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
21737
21738         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
21739            --  Element::ownedElement : Element
21740
21741            return
21742              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
21743               (AMF.UML.Duration_Intervals.UML_Duration_Interval_Access
21744                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
21745
21746         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
21747            --  Element::owner : Element
21748
21749            return
21750              AMF.Internals.Holders.UML_Holders.To_Holder
21751               (AMF.UML.Elements.UML_Element_Access'
21752                 (AMF.UML.Duration_Intervals.UML_Duration_Interval_Access
21753                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
21754
21755         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
21756            --  ParameterableElement::owningTemplateParameter : TemplateParameter
21757
21758            return
21759              AMF.Internals.Holders.UML_Holders.To_Holder
21760               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
21761                 (AMF.UML.Duration_Intervals.UML_Duration_Interval_Access
21762                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
21763
21764         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
21765            --  NamedElement::qualifiedName : String
21766
21767            return
21768              AMF.Holders.To_Holder
21769               (AMF.UML.Duration_Intervals.UML_Duration_Interval_Access
21770                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
21771
21772         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
21773            --  ParameterableElement::templateParameter : TemplateParameter
21774
21775            return
21776              AMF.Internals.Holders.UML_Holders.To_Holder
21777               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
21778                 (AMF.UML.Duration_Intervals.UML_Duration_Interval_Access
21779                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
21780
21781         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
21782            --  TypedElement::type : Type
21783
21784            return
21785              AMF.Internals.Holders.UML_Holders.To_Holder
21786               (AMF.UML.Types.UML_Type_Access'
21787                 (AMF.UML.Duration_Intervals.UML_Duration_Interval_Access
21788                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
21789
21790         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
21791            --  NamedElement::visibility : VisibilityKind
21792
21793            return
21794              AMF.UML.Holders.To_Holder
21795               (AMF.UML.Duration_Intervals.UML_Duration_Interval_Access
21796                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
21797
21798         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
21799            --  PackageableElement::visibility : VisibilityKind
21800
21801            return
21802              AMF.UML.Holders.Visibility_Kinds.To_Holder
21803               (AMF.UML.Duration_Intervals.UML_Duration_Interval_Access
21804                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
21805
21806         else
21807            raise Program_Error;
21808         end if;
21809      end UML_Duration_Interval_Get;
21810
21811      ----------------------------------
21812      -- UML_Duration_Observation_Get --
21813      ----------------------------------
21814
21815      function UML_Duration_Observation_Get return League.Holders.Holder is
21816      begin
21817         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
21818            --  NamedElement::clientDependency : Dependency
21819
21820            return
21821              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
21822               (AMF.UML.Duration_Observations.UML_Duration_Observation_Access
21823                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
21824
21825         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Duration_Observation_Event_A_Duration_Observation then
21826            --  DurationObservation::event : NamedElement
21827
21828            return
21829              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
21830               (AMF.UML.Duration_Observations.UML_Duration_Observation_Access
21831                 (AMF.Internals.Helpers.To_Element (Self)).Get_Event);
21832
21833         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Duration_Observation_First_Event then
21834            --  DurationObservation::firstEvent : Boolean
21835
21836            return
21837              AMF.Boolean_Collections.Internals.To_Holder
21838               (AMF.UML.Duration_Observations.UML_Duration_Observation_Access
21839                 (AMF.Internals.Helpers.To_Element (Self)).Get_First_Event);
21840
21841         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
21842            --  NamedElement::name : String
21843
21844            return
21845              AMF.Holders.To_Holder
21846               (AMF.UML.Duration_Observations.UML_Duration_Observation_Access
21847                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
21848
21849         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
21850            --  NamedElement::nameExpression : StringExpression
21851
21852            return
21853              AMF.Internals.Holders.UML_Holders.To_Holder
21854               (AMF.UML.String_Expressions.UML_String_Expression_Access'
21855                 (AMF.UML.Duration_Observations.UML_Duration_Observation_Access
21856                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
21857
21858         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
21859            --  NamedElement::namespace : Namespace
21860
21861            return
21862              AMF.Internals.Holders.UML_Holders.To_Holder
21863               (AMF.UML.Namespaces.UML_Namespace_Access'
21864                 (AMF.UML.Duration_Observations.UML_Duration_Observation_Access
21865                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
21866
21867         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
21868            --  Element::ownedComment : Comment
21869
21870            return
21871              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
21872               (AMF.UML.Duration_Observations.UML_Duration_Observation_Access
21873                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
21874
21875         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
21876            --  Element::ownedElement : Element
21877
21878            return
21879              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
21880               (AMF.UML.Duration_Observations.UML_Duration_Observation_Access
21881                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
21882
21883         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
21884            --  Element::owner : Element
21885
21886            return
21887              AMF.Internals.Holders.UML_Holders.To_Holder
21888               (AMF.UML.Elements.UML_Element_Access'
21889                 (AMF.UML.Duration_Observations.UML_Duration_Observation_Access
21890                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
21891
21892         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
21893            --  ParameterableElement::owningTemplateParameter : TemplateParameter
21894
21895            return
21896              AMF.Internals.Holders.UML_Holders.To_Holder
21897               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
21898                 (AMF.UML.Duration_Observations.UML_Duration_Observation_Access
21899                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
21900
21901         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
21902            --  NamedElement::qualifiedName : String
21903
21904            return
21905              AMF.Holders.To_Holder
21906               (AMF.UML.Duration_Observations.UML_Duration_Observation_Access
21907                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
21908
21909         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
21910            --  ParameterableElement::templateParameter : TemplateParameter
21911
21912            return
21913              AMF.Internals.Holders.UML_Holders.To_Holder
21914               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
21915                 (AMF.UML.Duration_Observations.UML_Duration_Observation_Access
21916                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
21917
21918         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
21919            --  NamedElement::visibility : VisibilityKind
21920
21921            return
21922              AMF.UML.Holders.To_Holder
21923               (AMF.UML.Duration_Observations.UML_Duration_Observation_Access
21924                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
21925
21926         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
21927            --  PackageableElement::visibility : VisibilityKind
21928
21929            return
21930              AMF.UML.Holders.Visibility_Kinds.To_Holder
21931               (AMF.UML.Duration_Observations.UML_Duration_Observation_Access
21932                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
21933
21934         else
21935            raise Program_Error;
21936         end if;
21937      end UML_Duration_Observation_Get;
21938
21939      ----------------------------
21940      -- UML_Element_Import_Get --
21941      ----------------------------
21942
21943      function UML_Element_Import_Get return League.Holders.Holder is
21944      begin
21945         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Import_Alias then
21946            --  ElementImport::alias : String
21947
21948            return
21949              AMF.Holders.To_Holder
21950               (AMF.UML.Element_Imports.UML_Element_Import_Access
21951                 (AMF.Internals.Helpers.To_Element (Self)).Get_Alias);
21952
21953         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Import_Imported_Element_A_Element_Import then
21954            --  ElementImport::importedElement : PackageableElement
21955
21956            return
21957              AMF.Internals.Holders.UML_Holders.To_Holder
21958               (AMF.UML.Packageable_Elements.UML_Packageable_Element_Access'
21959                 (AMF.UML.Element_Imports.UML_Element_Import_Access
21960                   (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Element));
21961
21962         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Import_Importing_Namespace_Namespace_Element_Import then
21963            --  ElementImport::importingNamespace : Namespace
21964
21965            return
21966              AMF.Internals.Holders.UML_Holders.To_Holder
21967               (AMF.UML.Namespaces.UML_Namespace_Access'
21968                 (AMF.UML.Element_Imports.UML_Element_Import_Access
21969                   (AMF.Internals.Helpers.To_Element (Self)).Get_Importing_Namespace));
21970
21971         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
21972            --  Element::ownedComment : Comment
21973
21974            return
21975              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
21976               (AMF.UML.Element_Imports.UML_Element_Import_Access
21977                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
21978
21979         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
21980            --  Element::ownedElement : Element
21981
21982            return
21983              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
21984               (AMF.UML.Element_Imports.UML_Element_Import_Access
21985                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
21986
21987         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
21988            --  Element::owner : Element
21989
21990            return
21991              AMF.Internals.Holders.UML_Holders.To_Holder
21992               (AMF.UML.Elements.UML_Element_Access'
21993                 (AMF.UML.Element_Imports.UML_Element_Import_Access
21994                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
21995
21996         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship then
21997            --  Relationship::relatedElement : Element
21998
21999            return
22000              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
22001               (AMF.UML.Element_Imports.UML_Element_Import_Access
22002                 (AMF.Internals.Helpers.To_Element (Self)).Get_Related_Element);
22003
22004         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship then
22005            --  DirectedRelationship::source : Element
22006
22007            return
22008              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
22009               (AMF.UML.Element_Imports.UML_Element_Import_Access
22010                 (AMF.Internals.Helpers.To_Element (Self)).Get_Source);
22011
22012         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship then
22013            --  DirectedRelationship::target : Element
22014
22015            return
22016              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
22017               (AMF.UML.Element_Imports.UML_Element_Import_Access
22018                 (AMF.Internals.Helpers.To_Element (Self)).Get_Target);
22019
22020         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Import_Visibility then
22021            --  ElementImport::visibility : VisibilityKind
22022
22023            return
22024              AMF.UML.Holders.Visibility_Kinds.To_Holder
22025               (AMF.UML.Element_Imports.UML_Element_Import_Access
22026                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
22027
22028         else
22029            raise Program_Error;
22030         end if;
22031      end UML_Element_Import_Get;
22032
22033      -------------------------
22034      -- UML_Enumeration_Get --
22035      -------------------------
22036
22037      function UML_Enumeration_Get return League.Holders.Holder is
22038      begin
22039         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier then
22040            --  Classifier::attribute : Property
22041
22042            return
22043              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
22044               (AMF.UML.Enumerations.UML_Enumeration_Access
22045                 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute);
22046
22047         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
22048            --  NamedElement::clientDependency : Dependency
22049
22050            return
22051              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
22052               (AMF.UML.Enumerations.UML_Enumeration_Access
22053                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
22054
22055         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier then
22056            --  Classifier::collaborationUse : CollaborationUse
22057
22058            return
22059              AMF.UML.Collaboration_Uses.Collections.UML_Collaboration_Use_Collections.Internals.To_Holder
22060               (AMF.UML.Enumerations.UML_Enumeration_Access
22061                 (AMF.Internals.Helpers.To_Element (Self)).Get_Collaboration_Use);
22062
22063         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
22064            --  Namespace::elementImport : ElementImport
22065
22066            return
22067              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
22068               (AMF.UML.Enumerations.UML_Enumeration_Access
22069                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
22070
22071         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier then
22072            --  Classifier::feature : Feature
22073
22074            return
22075              AMF.UML.Features.Collections.UML_Feature_Collections.Internals.To_Holder
22076               (AMF.UML.Enumerations.UML_Enumeration_Access
22077                 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature);
22078
22079         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier then
22080            --  Classifier::general : Classifier
22081
22082            return
22083              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
22084               (AMF.UML.Enumerations.UML_Enumeration_Access
22085                 (AMF.Internals.Helpers.To_Element (Self)).Get_General);
22086
22087         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific then
22088            --  Classifier::generalization : Generalization
22089
22090            return
22091              AMF.UML.Generalizations.Collections.UML_Generalization_Collections.Internals.To_Holder
22092               (AMF.UML.Enumerations.UML_Enumeration_Access
22093                 (AMF.Internals.Helpers.To_Element (Self)).Get_Generalization);
22094
22095         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
22096            --  Namespace::importedMember : PackageableElement
22097
22098            return
22099              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
22100               (AMF.UML.Enumerations.UML_Enumeration_Access
22101                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
22102
22103         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier then
22104            --  Classifier::inheritedMember : NamedElement
22105
22106            return
22107              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
22108               (AMF.UML.Enumerations.UML_Enumeration_Access
22109                 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member);
22110
22111         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
22112            --  Classifier::isAbstract : Boolean
22113
22114            return
22115              League.Holders.Booleans.To_Holder
22116               (AMF.UML.Enumerations.UML_Enumeration_Access
22117                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
22118
22119         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
22120            --  Classifier::isFinalSpecialization : Boolean
22121
22122            return
22123              League.Holders.Booleans.To_Holder
22124               (AMF.UML.Enumerations.UML_Enumeration_Access
22125                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization);
22126
22127         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
22128            --  RedefinableElement::isLeaf : Boolean
22129
22130            return
22131              League.Holders.Booleans.To_Holder
22132               (AMF.UML.Enumerations.UML_Enumeration_Access
22133                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
22134
22135         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
22136            --  Namespace::member : NamedElement
22137
22138            return
22139              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
22140               (AMF.UML.Enumerations.UML_Enumeration_Access
22141                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
22142
22143         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
22144            --  NamedElement::name : String
22145
22146            return
22147              AMF.Holders.To_Holder
22148               (AMF.UML.Enumerations.UML_Enumeration_Access
22149                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
22150
22151         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
22152            --  NamedElement::nameExpression : StringExpression
22153
22154            return
22155              AMF.Internals.Holders.UML_Holders.To_Holder
22156               (AMF.UML.String_Expressions.UML_String_Expression_Access'
22157                 (AMF.UML.Enumerations.UML_Enumeration_Access
22158                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
22159
22160         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
22161            --  NamedElement::namespace : Namespace
22162
22163            return
22164              AMF.Internals.Holders.UML_Holders.To_Holder
22165               (AMF.UML.Namespaces.UML_Namespace_Access'
22166                 (AMF.UML.Enumerations.UML_Enumeration_Access
22167                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
22168
22169         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Data_Type_Owned_Attribute_Property_Datatype then
22170            --  DataType::ownedAttribute : Property
22171
22172            return
22173              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
22174               (AMF.UML.Enumerations.UML_Enumeration_Access
22175                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
22176
22177         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
22178            --  Element::ownedComment : Comment
22179
22180            return
22181              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
22182               (AMF.UML.Enumerations.UML_Enumeration_Access
22183                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
22184
22185         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
22186            --  Element::ownedElement : Element
22187
22188            return
22189              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
22190               (AMF.UML.Enumerations.UML_Enumeration_Access
22191                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
22192
22193         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Enumeration_Owned_Literal_Enumeration_Literal_Enumeration then
22194            --  Enumeration::ownedLiteral : EnumerationLiteral
22195
22196            return
22197              AMF.UML.Enumeration_Literals.Collections.UML_Enumeration_Literal_Collections.Internals.To_Holder
22198               (AMF.UML.Enumerations.UML_Enumeration_Access
22199                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Literal);
22200
22201         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
22202            --  Namespace::ownedMember : NamedElement
22203
22204            return
22205              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
22206               (AMF.UML.Enumerations.UML_Enumeration_Access
22207                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
22208
22209         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Data_Type_Owned_Operation_Operation_Datatype then
22210            --  DataType::ownedOperation : Operation
22211
22212            return
22213              AMF.UML.Operations.Collections.UML_Operation_Collections.Internals.To_Holder
22214               (AMF.UML.Enumerations.UML_Enumeration_Access
22215                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Operation);
22216
22217         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
22218            --  Namespace::ownedRule : Constraint
22219
22220            return
22221              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
22222               (AMF.UML.Enumerations.UML_Enumeration_Access
22223                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
22224
22225         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
22226            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
22227
22228            return
22229              AMF.Internals.Holders.UML_Holders.To_Holder
22230               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access'
22231                 (AMF.UML.Enumerations.UML_Enumeration_Access
22232                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
22233
22234         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
22235            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
22236
22237            return
22238              AMF.Internals.Holders.UML_Holders.To_Holder
22239               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
22240                 (AMF.UML.Enumerations.UML_Enumeration_Access
22241                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
22242
22243         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier then
22244            --  Classifier::ownedUseCase : UseCase
22245
22246            return
22247              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
22248               (AMF.UML.Enumerations.UML_Enumeration_Access
22249                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Use_Case);
22250
22251         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
22252            --  Element::owner : Element
22253
22254            return
22255              AMF.Internals.Holders.UML_Holders.To_Holder
22256               (AMF.UML.Elements.UML_Element_Access'
22257                 (AMF.UML.Enumerations.UML_Enumeration_Access
22258                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
22259
22260         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
22261            --  ParameterableElement::owningTemplateParameter : TemplateParameter
22262
22263            return
22264              AMF.Internals.Holders.UML_Holders.To_Holder
22265               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
22266                 (AMF.UML.Enumerations.UML_Enumeration_Access
22267                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
22268
22269         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
22270            --  Type::package : Package
22271
22272            return
22273              AMF.Internals.Holders.UML_Holders.To_Holder
22274               (AMF.UML.Packages.UML_Package_Access'
22275                 (AMF.UML.Enumerations.UML_Enumeration_Access
22276                   (AMF.Internals.Helpers.To_Element (Self)).Get_Package));
22277
22278         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
22279            --  Namespace::packageImport : PackageImport
22280
22281            return
22282              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
22283               (AMF.UML.Enumerations.UML_Enumeration_Access
22284                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
22285
22286         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype then
22287            --  Classifier::powertypeExtent : GeneralizationSet
22288
22289            return
22290              AMF.UML.Generalization_Sets.Collections.UML_Generalization_Set_Collections.Internals.To_Holder
22291               (AMF.UML.Enumerations.UML_Enumeration_Access
22292                 (AMF.Internals.Helpers.To_Element (Self)).Get_Powertype_Extent);
22293
22294         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
22295            --  NamedElement::qualifiedName : String
22296
22297            return
22298              AMF.Holders.To_Holder
22299               (AMF.UML.Enumerations.UML_Enumeration_Access
22300                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
22301
22302         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier then
22303            --  Classifier::redefinedClassifier : Classifier
22304
22305            return
22306              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
22307               (AMF.UML.Enumerations.UML_Enumeration_Access
22308                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Classifier);
22309
22310         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
22311            --  RedefinableElement::redefinedElement : RedefinableElement
22312
22313            return
22314              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
22315               (AMF.UML.Enumerations.UML_Enumeration_Access
22316                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
22317
22318         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
22319            --  RedefinableElement::redefinitionContext : Classifier
22320
22321            return
22322              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
22323               (AMF.UML.Enumerations.UML_Enumeration_Access
22324                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
22325
22326         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
22327            --  Classifier::representation : CollaborationUse
22328
22329            return
22330              AMF.Internals.Holders.UML_Holders.To_Holder
22331               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access'
22332                 (AMF.UML.Enumerations.UML_Enumeration_Access
22333                   (AMF.Internals.Helpers.To_Element (Self)).Get_Representation));
22334
22335         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier then
22336            --  Classifier::substitution : Substitution
22337
22338            return
22339              AMF.UML.Substitutions.Collections.UML_Substitution_Collections.Internals.To_Holder
22340               (AMF.UML.Enumerations.UML_Enumeration_Access
22341                 (AMF.Internals.Helpers.To_Element (Self)).Get_Substitution);
22342
22343         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
22344            --  TemplateableElement::templateBinding : TemplateBinding
22345
22346            return
22347              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
22348               (AMF.UML.Enumerations.UML_Enumeration_Access
22349                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
22350
22351         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
22352            --  Classifier::templateParameter : ClassifierTemplateParameter
22353
22354            return
22355              AMF.Internals.Holders.UML_Holders.To_Holder
22356               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access'
22357                 (AMF.UML.Enumerations.UML_Enumeration_Access
22358                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
22359
22360         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
22361            --  ParameterableElement::templateParameter : TemplateParameter
22362
22363            return
22364              AMF.Internals.Holders.UML_Holders.To_Holder
22365               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
22366                 (AMF.UML.Enumerations.UML_Enumeration_Access
22367                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
22368
22369         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject then
22370            --  Classifier::useCase : UseCase
22371
22372            return
22373              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
22374               (AMF.UML.Enumerations.UML_Enumeration_Access
22375                 (AMF.Internals.Helpers.To_Element (Self)).Get_Use_Case);
22376
22377         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
22378            --  NamedElement::visibility : VisibilityKind
22379
22380            return
22381              AMF.UML.Holders.To_Holder
22382               (AMF.UML.Enumerations.UML_Enumeration_Access
22383                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
22384
22385         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
22386            --  PackageableElement::visibility : VisibilityKind
22387
22388            return
22389              AMF.UML.Holders.Visibility_Kinds.To_Holder
22390               (AMF.UML.Enumerations.UML_Enumeration_Access
22391                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
22392
22393         else
22394            raise Program_Error;
22395         end if;
22396      end UML_Enumeration_Get;
22397
22398      ---------------------------------
22399      -- UML_Enumeration_Literal_Get --
22400      ---------------------------------
22401
22402      function UML_Enumeration_Literal_Get return League.Holders.Holder is
22403      begin
22404         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Enumeration_Literal_Classifier_A_Enumeration_Literal then
22405            --  EnumerationLiteral::classifier : Enumeration
22406
22407            return
22408              AMF.Internals.Holders.UML_Holders.To_Holder
22409               (AMF.UML.Enumerations.UML_Enumeration_Access'
22410                 (AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access
22411                   (AMF.Internals.Helpers.To_Element (Self)).Get_Classifier));
22412
22413         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Instance_Specification_Classifier_A_Instance_Specification then
22414            --  InstanceSpecification::classifier : Classifier
22415
22416            return
22417              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
22418               (AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access
22419                 (AMF.Internals.Helpers.To_Element (Self)).Get_Classifier);
22420
22421         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
22422            --  NamedElement::clientDependency : Dependency
22423
22424            return
22425              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
22426               (AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access
22427                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
22428
22429         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployed_Element_A_Deployment_Target then
22430            --  DeploymentTarget::deployedElement : PackageableElement
22431
22432            return
22433              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
22434               (AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access
22435                 (AMF.Internals.Helpers.To_Element (Self)).Get_Deployed_Element);
22436
22437         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployment_Deployment_Location then
22438            --  DeploymentTarget::deployment : Deployment
22439
22440            return
22441              AMF.UML.Deployments.Collections.UML_Deployment_Collections.Internals.To_Holder
22442               (AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access
22443                 (AMF.Internals.Helpers.To_Element (Self)).Get_Deployment);
22444
22445         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Enumeration_Literal_Enumeration_Enumeration_Owned_Literal then
22446            --  EnumerationLiteral::enumeration : Enumeration
22447
22448            return
22449              AMF.Internals.Holders.UML_Holders.To_Holder
22450               (AMF.UML.Enumerations.UML_Enumeration_Access'
22451                 (AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access
22452                   (AMF.Internals.Helpers.To_Element (Self)).Get_Enumeration));
22453
22454         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
22455            --  NamedElement::name : String
22456
22457            return
22458              AMF.Holders.To_Holder
22459               (AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access
22460                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
22461
22462         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
22463            --  NamedElement::nameExpression : StringExpression
22464
22465            return
22466              AMF.Internals.Holders.UML_Holders.To_Holder
22467               (AMF.UML.String_Expressions.UML_String_Expression_Access'
22468                 (AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access
22469                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
22470
22471         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
22472            --  NamedElement::namespace : Namespace
22473
22474            return
22475              AMF.Internals.Holders.UML_Holders.To_Holder
22476               (AMF.UML.Namespaces.UML_Namespace_Access'
22477                 (AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access
22478                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
22479
22480         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
22481            --  Element::ownedComment : Comment
22482
22483            return
22484              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
22485               (AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access
22486                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
22487
22488         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
22489            --  Element::ownedElement : Element
22490
22491            return
22492              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
22493               (AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access
22494                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
22495
22496         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
22497            --  Element::owner : Element
22498
22499            return
22500              AMF.Internals.Holders.UML_Holders.To_Holder
22501               (AMF.UML.Elements.UML_Element_Access'
22502                 (AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access
22503                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
22504
22505         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
22506            --  ParameterableElement::owningTemplateParameter : TemplateParameter
22507
22508            return
22509              AMF.Internals.Holders.UML_Holders.To_Holder
22510               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
22511                 (AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access
22512                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
22513
22514         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
22515            --  NamedElement::qualifiedName : String
22516
22517            return
22518              AMF.Holders.To_Holder
22519               (AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access
22520                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
22521
22522         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Instance_Specification_Slot_Slot_Owning_Instance then
22523            --  InstanceSpecification::slot : Slot
22524
22525            return
22526              AMF.UML.Slots.Collections.UML_Slot_Collections.Internals.To_Holder
22527               (AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access
22528                 (AMF.Internals.Helpers.To_Element (Self)).Get_Slot);
22529
22530         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Instance_Specification_Specification_A_Owning_Instance_Spec then
22531            --  InstanceSpecification::specification : ValueSpecification
22532
22533            return
22534              AMF.Internals.Holders.UML_Holders.To_Holder
22535               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
22536                 (AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access
22537                   (AMF.Internals.Helpers.To_Element (Self)).Get_Specification));
22538
22539         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
22540            --  ParameterableElement::templateParameter : TemplateParameter
22541
22542            return
22543              AMF.Internals.Holders.UML_Holders.To_Holder
22544               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
22545                 (AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access
22546                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
22547
22548         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
22549            --  NamedElement::visibility : VisibilityKind
22550
22551            return
22552              AMF.UML.Holders.To_Holder
22553               (AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access
22554                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
22555
22556         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
22557            --  PackageableElement::visibility : VisibilityKind
22558
22559            return
22560              AMF.UML.Holders.Visibility_Kinds.To_Holder
22561               (AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access
22562                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
22563
22564         else
22565            raise Program_Error;
22566         end if;
22567      end UML_Enumeration_Literal_Get;
22568
22569      -------------------------------
22570      -- UML_Exception_Handler_Get --
22571      -------------------------------
22572
22573      function UML_Exception_Handler_Get return League.Holders.Holder is
22574      begin
22575         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Exception_Handler_Exception_Input_A_Exception_Handler then
22576            --  ExceptionHandler::exceptionInput : ObjectNode
22577
22578            return
22579              AMF.Internals.Holders.UML_Holders.To_Holder
22580               (AMF.UML.Object_Nodes.UML_Object_Node_Access'
22581                 (AMF.UML.Exception_Handlers.UML_Exception_Handler_Access
22582                   (AMF.Internals.Helpers.To_Element (Self)).Get_Exception_Input));
22583
22584         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Exception_Handler_Exception_Type_A_Exception_Handler then
22585            --  ExceptionHandler::exceptionType : Classifier
22586
22587            return
22588              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
22589               (AMF.UML.Exception_Handlers.UML_Exception_Handler_Access
22590                 (AMF.Internals.Helpers.To_Element (Self)).Get_Exception_Type);
22591
22592         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Exception_Handler_Handler_Body_A_Exception_Handler then
22593            --  ExceptionHandler::handlerBody : ExecutableNode
22594
22595            return
22596              AMF.Internals.Holders.UML_Holders.To_Holder
22597               (AMF.UML.Executable_Nodes.UML_Executable_Node_Access'
22598                 (AMF.UML.Exception_Handlers.UML_Exception_Handler_Access
22599                   (AMF.Internals.Helpers.To_Element (Self)).Get_Handler_Body));
22600
22601         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
22602            --  Element::ownedComment : Comment
22603
22604            return
22605              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
22606               (AMF.UML.Exception_Handlers.UML_Exception_Handler_Access
22607                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
22608
22609         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
22610            --  Element::ownedElement : Element
22611
22612            return
22613              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
22614               (AMF.UML.Exception_Handlers.UML_Exception_Handler_Access
22615                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
22616
22617         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
22618            --  Element::owner : Element
22619
22620            return
22621              AMF.Internals.Holders.UML_Holders.To_Holder
22622               (AMF.UML.Elements.UML_Element_Access'
22623                 (AMF.UML.Exception_Handlers.UML_Exception_Handler_Access
22624                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
22625
22626         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Exception_Handler_Protected_Node_Executable_Node_Handler then
22627            --  ExceptionHandler::protectedNode : ExecutableNode
22628
22629            return
22630              AMF.Internals.Holders.UML_Holders.To_Holder
22631               (AMF.UML.Executable_Nodes.UML_Executable_Node_Access'
22632                 (AMF.UML.Exception_Handlers.UML_Exception_Handler_Access
22633                   (AMF.Internals.Helpers.To_Element (Self)).Get_Protected_Node));
22634
22635         else
22636            raise Program_Error;
22637         end if;
22638      end UML_Exception_Handler_Get;
22639
22640      -----------------------------------
22641      -- UML_Execution_Environment_Get --
22642      -----------------------------------
22643
22644      function UML_Execution_Environment_Get return League.Holders.Holder is
22645      begin
22646         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier then
22647            --  Classifier::attribute : Property
22648
22649            return
22650              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
22651               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22652                 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute);
22653
22654         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
22655            --  BehavioredClassifier::classifierBehavior : Behavior
22656
22657            return
22658              AMF.Internals.Holders.UML_Holders.To_Holder
22659               (AMF.UML.Behaviors.UML_Behavior_Access'
22660                 (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22661                   (AMF.Internals.Helpers.To_Element (Self)).Get_Classifier_Behavior));
22662
22663         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
22664            --  NamedElement::clientDependency : Dependency
22665
22666            return
22667              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
22668               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22669                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
22670
22671         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier then
22672            --  Classifier::collaborationUse : CollaborationUse
22673
22674            return
22675              AMF.UML.Collaboration_Uses.Collections.UML_Collaboration_Use_Collections.Internals.To_Holder
22676               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22677                 (AMF.Internals.Helpers.To_Element (Self)).Get_Collaboration_Use);
22678
22679         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployed_Element_A_Deployment_Target then
22680            --  DeploymentTarget::deployedElement : PackageableElement
22681
22682            return
22683              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
22684               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22685                 (AMF.Internals.Helpers.To_Element (Self)).Get_Deployed_Element);
22686
22687         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployment_Deployment_Location then
22688            --  DeploymentTarget::deployment : Deployment
22689
22690            return
22691              AMF.UML.Deployments.Collections.UML_Deployment_Collections.Internals.To_Holder
22692               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22693                 (AMF.Internals.Helpers.To_Element (Self)).Get_Deployment);
22694
22695         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
22696            --  Namespace::elementImport : ElementImport
22697
22698            return
22699              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
22700               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22701                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
22702
22703         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Extension_Extension_Metaclass then
22704            --  Class::extension : Extension
22705
22706            return
22707              AMF.UML.Extensions.Collections.UML_Extension_Collections.Internals.To_Holder
22708               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22709                 (AMF.Internals.Helpers.To_Element (Self)).Get_Extension);
22710
22711         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier then
22712            --  Classifier::feature : Feature
22713
22714            return
22715              AMF.UML.Features.Collections.UML_Feature_Collections.Internals.To_Holder
22716               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22717                 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature);
22718
22719         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier then
22720            --  Classifier::general : Classifier
22721
22722            return
22723              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
22724               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22725                 (AMF.Internals.Helpers.To_Element (Self)).Get_General);
22726
22727         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific then
22728            --  Classifier::generalization : Generalization
22729
22730            return
22731              AMF.UML.Generalizations.Collections.UML_Generalization_Collections.Internals.To_Holder
22732               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22733                 (AMF.Internals.Helpers.To_Element (Self)).Get_Generalization);
22734
22735         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
22736            --  Namespace::importedMember : PackageableElement
22737
22738            return
22739              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
22740               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22741                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
22742
22743         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier then
22744            --  Classifier::inheritedMember : NamedElement
22745
22746            return
22747              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
22748               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22749                 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member);
22750
22751         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier then
22752            --  BehavioredClassifier::interfaceRealization : InterfaceRealization
22753
22754            return
22755              AMF.UML.Interface_Realizations.Collections.UML_Interface_Realization_Collections.Internals.To_Holder
22756               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22757                 (AMF.Internals.Helpers.To_Element (Self)).Get_Interface_Realization);
22758
22759         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Abstract then
22760            --  Class::isAbstract : Boolean
22761
22762            return
22763              League.Holders.Booleans.To_Holder
22764               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22765                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
22766
22767         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
22768            --  Classifier::isAbstract : Boolean
22769
22770            return
22771              League.Holders.Booleans.To_Holder
22772               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22773                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
22774
22775         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Active then
22776            --  Class::isActive : Boolean
22777
22778            return
22779              League.Holders.Booleans.To_Holder
22780               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22781                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Active);
22782
22783         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
22784            --  Classifier::isFinalSpecialization : Boolean
22785
22786            return
22787              League.Holders.Booleans.To_Holder
22788               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22789                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization);
22790
22791         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
22792            --  RedefinableElement::isLeaf : Boolean
22793
22794            return
22795              League.Holders.Booleans.To_Holder
22796               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22797                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
22798
22799         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
22800            --  Namespace::member : NamedElement
22801
22802            return
22803              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
22804               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22805                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
22806
22807         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
22808            --  NamedElement::name : String
22809
22810            return
22811              AMF.Holders.To_Holder
22812               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22813                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
22814
22815         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
22816            --  NamedElement::nameExpression : StringExpression
22817
22818            return
22819              AMF.Internals.Holders.UML_Holders.To_Holder
22820               (AMF.UML.String_Expressions.UML_String_Expression_Access'
22821                 (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22822                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
22823
22824         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
22825            --  NamedElement::namespace : Namespace
22826
22827            return
22828              AMF.Internals.Holders.UML_Holders.To_Holder
22829               (AMF.UML.Namespaces.UML_Namespace_Access'
22830                 (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22831                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
22832
22833         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Nested_Classifier_A_Class then
22834            --  Class::nestedClassifier : Classifier
22835
22836            return
22837              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
22838               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22839                 (AMF.Internals.Helpers.To_Element (Self)).Get_Nested_Classifier);
22840
22841         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Node_Nested_Node_A_Node then
22842            --  Node::nestedNode : Node
22843
22844            return
22845              AMF.UML.Nodes.Collections.UML_Node_Collections.Internals.To_Holder
22846               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22847                 (AMF.Internals.Helpers.To_Element (Self)).Get_Nested_Node);
22848
22849         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Attribute_Property_Class then
22850            --  Class::ownedAttribute : Property
22851
22852            return
22853              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
22854               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22855                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
22856
22857         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Attribute_A_Structured_Classifier then
22858            --  StructuredClassifier::ownedAttribute : Property
22859
22860            return
22861              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
22862               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22863                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
22864
22865         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier then
22866            --  BehavioredClassifier::ownedBehavior : Behavior
22867
22868            return
22869              AMF.UML.Behaviors.Collections.UML_Behavior_Collections.Internals.To_Holder
22870               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22871                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Behavior);
22872
22873         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
22874            --  Element::ownedComment : Comment
22875
22876            return
22877              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
22878               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22879                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
22880
22881         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Connector_A_Structured_Classifier then
22882            --  StructuredClassifier::ownedConnector : Connector
22883
22884            return
22885              AMF.UML.Connectors.Collections.UML_Connector_Collections.Internals.To_Holder
22886               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22887                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Connector);
22888
22889         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
22890            --  Element::ownedElement : Element
22891
22892            return
22893              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
22894               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22895                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
22896
22897         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
22898            --  Namespace::ownedMember : NamedElement
22899
22900            return
22901              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
22902               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22903                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
22904
22905         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Operation_Operation_Class then
22906            --  Class::ownedOperation : Operation
22907
22908            return
22909              AMF.UML.Operations.Collections.UML_Operation_Collections.Internals.To_Holder
22910               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22911                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Operation);
22912
22913         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Encapsulated_Classifier_Owned_Port_A_Encapsulated_Classifier then
22914            --  EncapsulatedClassifier::ownedPort : Port
22915
22916            return
22917              AMF.UML.Ports.Collections.UML_Port_Collections.Internals.To_Holder
22918               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22919                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Port);
22920
22921         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Reception_A_Class then
22922            --  Class::ownedReception : Reception
22923
22924            return
22925              AMF.UML.Receptions.Collections.UML_Reception_Collections.Internals.To_Holder
22926               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22927                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Reception);
22928
22929         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
22930            --  Namespace::ownedRule : Constraint
22931
22932            return
22933              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
22934               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22935                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
22936
22937         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
22938            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
22939
22940            return
22941              AMF.Internals.Holders.UML_Holders.To_Holder
22942               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access'
22943                 (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22944                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
22945
22946         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
22947            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
22948
22949            return
22950              AMF.Internals.Holders.UML_Holders.To_Holder
22951               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
22952                 (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22953                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
22954
22955         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier then
22956            --  Classifier::ownedUseCase : UseCase
22957
22958            return
22959              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
22960               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22961                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Use_Case);
22962
22963         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
22964            --  Element::owner : Element
22965
22966            return
22967              AMF.Internals.Holders.UML_Holders.To_Holder
22968               (AMF.UML.Elements.UML_Element_Access'
22969                 (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22970                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
22971
22972         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
22973            --  ParameterableElement::owningTemplateParameter : TemplateParameter
22974
22975            return
22976              AMF.Internals.Holders.UML_Holders.To_Holder
22977               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
22978                 (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22979                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
22980
22981         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
22982            --  Type::package : Package
22983
22984            return
22985              AMF.Internals.Holders.UML_Holders.To_Holder
22986               (AMF.UML.Packages.UML_Package_Access'
22987                 (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22988                   (AMF.Internals.Helpers.To_Element (Self)).Get_Package));
22989
22990         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
22991            --  Namespace::packageImport : PackageImport
22992
22993            return
22994              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
22995               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
22996                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
22997
22998         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Part_A_Structured_Classifier then
22999            --  StructuredClassifier::part : Property
23000
23001            return
23002              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
23003               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
23004                 (AMF.Internals.Helpers.To_Element (Self)).Get_Part);
23005
23006         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype then
23007            --  Classifier::powertypeExtent : GeneralizationSet
23008
23009            return
23010              AMF.UML.Generalization_Sets.Collections.UML_Generalization_Set_Collections.Internals.To_Holder
23011               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
23012                 (AMF.Internals.Helpers.To_Element (Self)).Get_Powertype_Extent);
23013
23014         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
23015            --  NamedElement::qualifiedName : String
23016
23017            return
23018              AMF.Holders.To_Holder
23019               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
23020                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
23021
23022         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier then
23023            --  Classifier::redefinedClassifier : Classifier
23024
23025            return
23026              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
23027               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
23028                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Classifier);
23029
23030         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
23031            --  RedefinableElement::redefinedElement : RedefinableElement
23032
23033            return
23034              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
23035               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
23036                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
23037
23038         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
23039            --  RedefinableElement::redefinitionContext : Classifier
23040
23041            return
23042              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
23043               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
23044                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
23045
23046         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
23047            --  Classifier::representation : CollaborationUse
23048
23049            return
23050              AMF.Internals.Holders.UML_Holders.To_Holder
23051               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access'
23052                 (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
23053                   (AMF.Internals.Helpers.To_Element (Self)).Get_Representation));
23054
23055         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Role_A_Structured_Classifier then
23056            --  StructuredClassifier::role : ConnectableElement
23057
23058            return
23059              AMF.UML.Connectable_Elements.Collections.UML_Connectable_Element_Collections.Internals.To_Holder
23060               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
23061                 (AMF.Internals.Helpers.To_Element (Self)).Get_Role);
23062
23063         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier then
23064            --  Classifier::substitution : Substitution
23065
23066            return
23067              AMF.UML.Substitutions.Collections.UML_Substitution_Collections.Internals.To_Holder
23068               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
23069                 (AMF.Internals.Helpers.To_Element (Self)).Get_Substitution);
23070
23071         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Super_Class_A_Class then
23072            --  Class::superClass : Class
23073
23074            return
23075              AMF.UML.Classes.Collections.UML_Class_Collections.Internals.To_Holder
23076               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
23077                 (AMF.Internals.Helpers.To_Element (Self)).Get_Super_Class);
23078
23079         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
23080            --  TemplateableElement::templateBinding : TemplateBinding
23081
23082            return
23083              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
23084               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
23085                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
23086
23087         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
23088            --  Classifier::templateParameter : ClassifierTemplateParameter
23089
23090            return
23091              AMF.Internals.Holders.UML_Holders.To_Holder
23092               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access'
23093                 (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
23094                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
23095
23096         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
23097            --  ParameterableElement::templateParameter : TemplateParameter
23098
23099            return
23100              AMF.Internals.Holders.UML_Holders.To_Holder
23101               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
23102                 (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
23103                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
23104
23105         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject then
23106            --  Classifier::useCase : UseCase
23107
23108            return
23109              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
23110               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
23111                 (AMF.Internals.Helpers.To_Element (Self)).Get_Use_Case);
23112
23113         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
23114            --  NamedElement::visibility : VisibilityKind
23115
23116            return
23117              AMF.UML.Holders.To_Holder
23118               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
23119                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
23120
23121         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
23122            --  PackageableElement::visibility : VisibilityKind
23123
23124            return
23125              AMF.UML.Holders.Visibility_Kinds.To_Holder
23126               (AMF.UML.Execution_Environments.UML_Execution_Environment_Access
23127                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
23128
23129         else
23130            raise Program_Error;
23131         end if;
23132      end UML_Execution_Environment_Get;
23133
23134      ------------------------------------------------
23135      -- UML_Execution_Occurrence_Specification_Get --
23136      ------------------------------------------------
23137
23138      function UML_Execution_Occurrence_Specification_Get return League.Holders.Holder is
23139      begin
23140         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
23141            --  NamedElement::clientDependency : Dependency
23142
23143            return
23144              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
23145               (AMF.UML.Execution_Occurrence_Specifications.UML_Execution_Occurrence_Specification_Access
23146                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
23147
23148         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Covered_Lifeline_Covered_By then
23149            --  InteractionFragment::covered : Lifeline
23150
23151            return
23152              AMF.UML.Lifelines.Collections.UML_Lifeline_Collections.Internals.To_Holder
23153               (AMF.UML.Execution_Occurrence_Specifications.UML_Execution_Occurrence_Specification_Access
23154                 (AMF.Internals.Helpers.To_Element (Self)).Get_Covered);
23155
23156         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Occurrence_Specification_Covered_A_Events then
23157            --  OccurrenceSpecification::covered : Lifeline
23158
23159            return
23160              AMF.Internals.Holders.UML_Holders.To_Holder
23161               (AMF.UML.Lifelines.UML_Lifeline_Access'
23162                 (AMF.UML.Execution_Occurrence_Specifications.UML_Execution_Occurrence_Specification_Access
23163                   (AMF.Internals.Helpers.To_Element (Self)).Get_Covered));
23164
23165         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Interaction_Interaction_Fragment then
23166            --  InteractionFragment::enclosingInteraction : Interaction
23167
23168            return
23169              AMF.Internals.Holders.UML_Holders.To_Holder
23170               (AMF.UML.Interactions.UML_Interaction_Access'
23171                 (AMF.UML.Execution_Occurrence_Specifications.UML_Execution_Occurrence_Specification_Access
23172                   (AMF.Internals.Helpers.To_Element (Self)).Get_Enclosing_Interaction));
23173
23174         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Operand_Interaction_Operand_Fragment then
23175            --  InteractionFragment::enclosingOperand : InteractionOperand
23176
23177            return
23178              AMF.Internals.Holders.UML_Holders.To_Holder
23179               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access'
23180                 (AMF.UML.Execution_Occurrence_Specifications.UML_Execution_Occurrence_Specification_Access
23181                   (AMF.Internals.Helpers.To_Element (Self)).Get_Enclosing_Operand));
23182
23183         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Execution_Occurrence_Specification_Execution_A_Execution_Occurrence_Specification then
23184            --  ExecutionOccurrenceSpecification::execution : ExecutionSpecification
23185
23186            return
23187              AMF.Internals.Holders.UML_Holders.To_Holder
23188               (AMF.UML.Execution_Specifications.UML_Execution_Specification_Access'
23189                 (AMF.UML.Execution_Occurrence_Specifications.UML_Execution_Occurrence_Specification_Access
23190                   (AMF.Internals.Helpers.To_Element (Self)).Get_Execution));
23191
23192         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_General_Ordering_A_Interaction_Fragment then
23193            --  InteractionFragment::generalOrdering : GeneralOrdering
23194
23195            return
23196              AMF.UML.General_Orderings.Collections.UML_General_Ordering_Collections.Internals.To_Holder
23197               (AMF.UML.Execution_Occurrence_Specifications.UML_Execution_Occurrence_Specification_Access
23198                 (AMF.Internals.Helpers.To_Element (Self)).Get_General_Ordering);
23199
23200         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
23201            --  NamedElement::name : String
23202
23203            return
23204              AMF.Holders.To_Holder
23205               (AMF.UML.Execution_Occurrence_Specifications.UML_Execution_Occurrence_Specification_Access
23206                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
23207
23208         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
23209            --  NamedElement::nameExpression : StringExpression
23210
23211            return
23212              AMF.Internals.Holders.UML_Holders.To_Holder
23213               (AMF.UML.String_Expressions.UML_String_Expression_Access'
23214                 (AMF.UML.Execution_Occurrence_Specifications.UML_Execution_Occurrence_Specification_Access
23215                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
23216
23217         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
23218            --  NamedElement::namespace : Namespace
23219
23220            return
23221              AMF.Internals.Holders.UML_Holders.To_Holder
23222               (AMF.UML.Namespaces.UML_Namespace_Access'
23223                 (AMF.UML.Execution_Occurrence_Specifications.UML_Execution_Occurrence_Specification_Access
23224                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
23225
23226         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
23227            --  Element::ownedComment : Comment
23228
23229            return
23230              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
23231               (AMF.UML.Execution_Occurrence_Specifications.UML_Execution_Occurrence_Specification_Access
23232                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
23233
23234         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
23235            --  Element::ownedElement : Element
23236
23237            return
23238              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
23239               (AMF.UML.Execution_Occurrence_Specifications.UML_Execution_Occurrence_Specification_Access
23240                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
23241
23242         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
23243            --  Element::owner : Element
23244
23245            return
23246              AMF.Internals.Holders.UML_Holders.To_Holder
23247               (AMF.UML.Elements.UML_Element_Access'
23248                 (AMF.UML.Execution_Occurrence_Specifications.UML_Execution_Occurrence_Specification_Access
23249                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
23250
23251         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
23252            --  NamedElement::qualifiedName : String
23253
23254            return
23255              AMF.Holders.To_Holder
23256               (AMF.UML.Execution_Occurrence_Specifications.UML_Execution_Occurrence_Specification_Access
23257                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
23258
23259         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Occurrence_Specification_To_After_General_Ordering_Before then
23260            --  OccurrenceSpecification::toAfter : GeneralOrdering
23261
23262            return
23263              AMF.UML.General_Orderings.Collections.UML_General_Ordering_Collections.Internals.To_Holder
23264               (AMF.UML.Execution_Occurrence_Specifications.UML_Execution_Occurrence_Specification_Access
23265                 (AMF.Internals.Helpers.To_Element (Self)).Get_To_After);
23266
23267         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Occurrence_Specification_To_Before_General_Ordering_After then
23268            --  OccurrenceSpecification::toBefore : GeneralOrdering
23269
23270            return
23271              AMF.UML.General_Orderings.Collections.UML_General_Ordering_Collections.Internals.To_Holder
23272               (AMF.UML.Execution_Occurrence_Specifications.UML_Execution_Occurrence_Specification_Access
23273                 (AMF.Internals.Helpers.To_Element (Self)).Get_To_Before);
23274
23275         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
23276            --  NamedElement::visibility : VisibilityKind
23277
23278            return
23279              AMF.UML.Holders.To_Holder
23280               (AMF.UML.Execution_Occurrence_Specifications.UML_Execution_Occurrence_Specification_Access
23281                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
23282
23283         else
23284            raise Program_Error;
23285         end if;
23286      end UML_Execution_Occurrence_Specification_Get;
23287
23288      ----------------------------
23289      -- UML_Expansion_Node_Get --
23290      ----------------------------
23291
23292      function UML_Expansion_Node_Get return League.Holders.Holder is
23293      begin
23294         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
23295            --  ActivityNode::activity : Activity
23296
23297            return
23298              AMF.Internals.Holders.UML_Holders.To_Holder
23299               (AMF.UML.Activities.UML_Activity_Access'
23300                 (AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
23301                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
23302
23303         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
23304            --  NamedElement::clientDependency : Dependency
23305
23306            return
23307              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
23308               (AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
23309                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
23310
23311         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
23312            --  ActivityNode::inGroup : ActivityGroup
23313
23314            return
23315              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
23316               (AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
23317                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
23318
23319         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
23320            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
23321
23322            return
23323              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
23324               (AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
23325                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
23326
23327         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
23328            --  ActivityNode::inPartition : ActivityPartition
23329
23330            return
23331              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
23332               (AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
23333                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
23334
23335         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_In_State_A_Object_Node then
23336            --  ObjectNode::inState : State
23337
23338            return
23339              AMF.UML.States.Collections.UML_State_Collections.Internals.To_Holder
23340               (AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
23341                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_State);
23342
23343         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
23344            --  ActivityNode::inStructuredNode : StructuredActivityNode
23345
23346            return
23347              AMF.Internals.Holders.UML_Holders.To_Holder
23348               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
23349                 (AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
23350                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
23351
23352         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
23353            --  ActivityNode::incoming : ActivityEdge
23354
23355            return
23356              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
23357               (AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
23358                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
23359
23360         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Is_Control_Type then
23361            --  ObjectNode::isControlType : Boolean
23362
23363            return
23364              League.Holders.Booleans.To_Holder
23365               (AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
23366                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Control_Type);
23367
23368         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
23369            --  RedefinableElement::isLeaf : Boolean
23370
23371            return
23372              League.Holders.Booleans.To_Holder
23373               (AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
23374                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
23375
23376         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
23377            --  NamedElement::name : String
23378
23379            return
23380              AMF.Holders.To_Holder
23381               (AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
23382                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
23383
23384         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
23385            --  NamedElement::nameExpression : StringExpression
23386
23387            return
23388              AMF.Internals.Holders.UML_Holders.To_Holder
23389               (AMF.UML.String_Expressions.UML_String_Expression_Access'
23390                 (AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
23391                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
23392
23393         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
23394            --  NamedElement::namespace : Namespace
23395
23396            return
23397              AMF.Internals.Holders.UML_Holders.To_Holder
23398               (AMF.UML.Namespaces.UML_Namespace_Access'
23399                 (AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
23400                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
23401
23402         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Ordering then
23403            --  ObjectNode::ordering : ObjectNodeOrderingKind
23404
23405            return
23406              AMF.UML.Holders.Object_Node_Ordering_Kinds.To_Holder
23407               (AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
23408                 (AMF.Internals.Helpers.To_Element (Self)).Get_Ordering);
23409
23410         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
23411            --  ActivityNode::outgoing : ActivityEdge
23412
23413            return
23414              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
23415               (AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
23416                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
23417
23418         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
23419            --  Element::ownedComment : Comment
23420
23421            return
23422              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
23423               (AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
23424                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
23425
23426         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
23427            --  Element::ownedElement : Element
23428
23429            return
23430              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
23431               (AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
23432                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
23433
23434         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
23435            --  Element::owner : Element
23436
23437            return
23438              AMF.Internals.Holders.UML_Holders.To_Holder
23439               (AMF.UML.Elements.UML_Element_Access'
23440                 (AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
23441                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
23442
23443         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
23444            --  NamedElement::qualifiedName : String
23445
23446            return
23447              AMF.Holders.To_Holder
23448               (AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
23449                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
23450
23451         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
23452            --  RedefinableElement::redefinedElement : RedefinableElement
23453
23454            return
23455              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
23456               (AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
23457                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
23458
23459         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
23460            --  ActivityNode::redefinedNode : ActivityNode
23461
23462            return
23463              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
23464               (AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
23465                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
23466
23467         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
23468            --  RedefinableElement::redefinitionContext : Classifier
23469
23470            return
23471              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
23472               (AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
23473                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
23474
23475         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Expansion_Node_Region_As_Input_Expansion_Region_Input_Element then
23476            --  ExpansionNode::regionAsInput : ExpansionRegion
23477
23478            return
23479              AMF.Internals.Holders.UML_Holders.To_Holder
23480               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access'
23481                 (AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
23482                   (AMF.Internals.Helpers.To_Element (Self)).Get_Region_As_Input));
23483
23484         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Expansion_Node_Region_As_Output_Expansion_Region_Output_Element then
23485            --  ExpansionNode::regionAsOutput : ExpansionRegion
23486
23487            return
23488              AMF.Internals.Holders.UML_Holders.To_Holder
23489               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access'
23490                 (AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
23491                   (AMF.Internals.Helpers.To_Element (Self)).Get_Region_As_Output));
23492
23493         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Selection_A_Object_Node then
23494            --  ObjectNode::selection : Behavior
23495
23496            return
23497              AMF.Internals.Holders.UML_Holders.To_Holder
23498               (AMF.UML.Behaviors.UML_Behavior_Access'
23499                 (AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
23500                   (AMF.Internals.Helpers.To_Element (Self)).Get_Selection));
23501
23502         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
23503            --  TypedElement::type : Type
23504
23505            return
23506              AMF.Internals.Holders.UML_Holders.To_Holder
23507               (AMF.UML.Types.UML_Type_Access'
23508                 (AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
23509                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
23510
23511         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Upper_Bound_A_Object_Node then
23512            --  ObjectNode::upperBound : ValueSpecification
23513
23514            return
23515              AMF.Internals.Holders.UML_Holders.To_Holder
23516               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
23517                 (AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
23518                   (AMF.Internals.Helpers.To_Element (Self)).Get_Upper_Bound));
23519
23520         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
23521            --  NamedElement::visibility : VisibilityKind
23522
23523            return
23524              AMF.UML.Holders.To_Holder
23525               (AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
23526                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
23527
23528         else
23529            raise Program_Error;
23530         end if;
23531      end UML_Expansion_Node_Get;
23532
23533      ------------------------------
23534      -- UML_Expansion_Region_Get --
23535      ------------------------------
23536
23537      function UML_Expansion_Region_Get return League.Holders.Holder is
23538      begin
23539         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
23540            --  ActivityNode::activity : Activity
23541
23542            return
23543              AMF.Internals.Holders.UML_Holders.To_Holder
23544               (AMF.UML.Activities.UML_Activity_Access'
23545                 (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23546                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
23547
23548         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Activity_Activity_Structured_Node then
23549            --  StructuredActivityNode::activity : Activity
23550
23551            return
23552              AMF.Internals.Holders.UML_Holders.To_Holder
23553               (AMF.UML.Activities.UML_Activity_Access'
23554                 (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23555                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
23556
23557         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
23558            --  NamedElement::clientDependency : Dependency
23559
23560            return
23561              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
23562               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23563                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
23564
23565         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Contained_Edge_Activity_Edge_In_Group then
23566            --  ActivityGroup::containedEdge : ActivityEdge
23567
23568            return
23569              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
23570               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23571                 (AMF.Internals.Helpers.To_Element (Self)).Get_Contained_Edge);
23572
23573         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Contained_Node_Activity_Node_In_Group then
23574            --  ActivityGroup::containedNode : ActivityNode
23575
23576            return
23577              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
23578               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23579                 (AMF.Internals.Helpers.To_Element (Self)).Get_Contained_Node);
23580
23581         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
23582            --  Action::context : Classifier
23583
23584            return
23585              AMF.Internals.Holders.UML_Holders.To_Holder
23586               (AMF.UML.Classifiers.UML_Classifier_Access'
23587                 (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23588                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
23589
23590         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Edge_Activity_Edge_In_Structured_Node then
23591            --  StructuredActivityNode::edge : ActivityEdge
23592
23593            return
23594              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
23595               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23596                 (AMF.Internals.Helpers.To_Element (Self)).Get_Edge);
23597
23598         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
23599            --  Namespace::elementImport : ElementImport
23600
23601            return
23602              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
23603               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23604                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
23605
23606         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
23607            --  ExecutableNode::handler : ExceptionHandler
23608
23609            return
23610              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
23611               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23612                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
23613
23614         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
23615            --  Namespace::importedMember : PackageableElement
23616
23617            return
23618              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
23619               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23620                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
23621
23622         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_In_Activity_Activity_Group then
23623            --  ActivityGroup::inActivity : Activity
23624
23625            return
23626              AMF.Internals.Holders.UML_Holders.To_Holder
23627               (AMF.UML.Activities.UML_Activity_Access'
23628                 (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23629                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Activity));
23630
23631         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
23632            --  ActivityNode::inGroup : ActivityGroup
23633
23634            return
23635              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
23636               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23637                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
23638
23639         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
23640            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
23641
23642            return
23643              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
23644               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23645                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
23646
23647         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
23648            --  ActivityNode::inPartition : ActivityPartition
23649
23650            return
23651              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
23652               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23653                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
23654
23655         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
23656            --  ActivityNode::inStructuredNode : StructuredActivityNode
23657
23658            return
23659              AMF.Internals.Holders.UML_Holders.To_Holder
23660               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
23661                 (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23662                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
23663
23664         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
23665            --  ActivityNode::incoming : ActivityEdge
23666
23667            return
23668              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
23669               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23670                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
23671
23672         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
23673            --  Action::input : InputPin
23674
23675            return
23676              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
23677               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23678                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
23679
23680         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Expansion_Region_Input_Element_Expansion_Node_Region_As_Input then
23681            --  ExpansionRegion::inputElement : ExpansionNode
23682
23683            return
23684              AMF.UML.Expansion_Nodes.Collections.UML_Expansion_Node_Collections.Internals.To_Holder
23685               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23686                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input_Element);
23687
23688         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
23689            --  RedefinableElement::isLeaf : Boolean
23690
23691            return
23692              League.Holders.Booleans.To_Holder
23693               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23694                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
23695
23696         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
23697            --  Action::isLocallyReentrant : Boolean
23698
23699            return
23700              League.Holders.Booleans.To_Holder
23701               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23702                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
23703
23704         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
23705            --  Action::localPostcondition : Constraint
23706
23707            return
23708              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
23709               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23710                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
23711
23712         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
23713            --  Action::localPrecondition : Constraint
23714
23715            return
23716              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
23717               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23718                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
23719
23720         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
23721            --  Namespace::member : NamedElement
23722
23723            return
23724              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
23725               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23726                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
23727
23728         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Expansion_Region_Mode then
23729            --  ExpansionRegion::mode : ExpansionKind
23730
23731            return
23732              AMF.UML.Holders.Expansion_Kinds.To_Holder
23733               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23734                 (AMF.Internals.Helpers.To_Element (Self)).Get_Mode);
23735
23736         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Must_Isolate then
23737            --  StructuredActivityNode::mustIsolate : Boolean
23738
23739            return
23740              League.Holders.Booleans.To_Holder
23741               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23742                 (AMF.Internals.Helpers.To_Element (Self)).Get_Must_Isolate);
23743
23744         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
23745            --  NamedElement::name : String
23746
23747            return
23748              AMF.Holders.To_Holder
23749               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23750                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
23751
23752         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
23753            --  NamedElement::nameExpression : StringExpression
23754
23755            return
23756              AMF.Internals.Holders.UML_Holders.To_Holder
23757               (AMF.UML.String_Expressions.UML_String_Expression_Access'
23758                 (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23759                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
23760
23761         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
23762            --  NamedElement::namespace : Namespace
23763
23764            return
23765              AMF.Internals.Holders.UML_Holders.To_Holder
23766               (AMF.UML.Namespaces.UML_Namespace_Access'
23767                 (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23768                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
23769
23770         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Node_Activity_Node_In_Structured_Node then
23771            --  StructuredActivityNode::node : ActivityNode
23772
23773            return
23774              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
23775               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23776                 (AMF.Internals.Helpers.To_Element (Self)).Get_Node);
23777
23778         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
23779            --  ActivityNode::outgoing : ActivityEdge
23780
23781            return
23782              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
23783               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23784                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
23785
23786         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
23787            --  Action::output : OutputPin
23788
23789            return
23790              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
23791               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23792                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
23793
23794         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Expansion_Region_Output_Element_Expansion_Node_Region_As_Output then
23795            --  ExpansionRegion::outputElement : ExpansionNode
23796
23797            return
23798              AMF.UML.Expansion_Nodes.Collections.UML_Expansion_Node_Collections.Internals.To_Holder
23799               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23800                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output_Element);
23801
23802         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
23803            --  Element::ownedComment : Comment
23804
23805            return
23806              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
23807               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23808                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
23809
23810         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
23811            --  Element::ownedElement : Element
23812
23813            return
23814              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
23815               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23816                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
23817
23818         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
23819            --  Namespace::ownedMember : NamedElement
23820
23821            return
23822              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
23823               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23824                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
23825
23826         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
23827            --  Namespace::ownedRule : Constraint
23828
23829            return
23830              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
23831               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23832                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
23833
23834         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
23835            --  Element::owner : Element
23836
23837            return
23838              AMF.Internals.Holders.UML_Holders.To_Holder
23839               (AMF.UML.Elements.UML_Element_Access'
23840                 (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23841                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
23842
23843         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
23844            --  Namespace::packageImport : PackageImport
23845
23846            return
23847              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
23848               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23849                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
23850
23851         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
23852            --  NamedElement::qualifiedName : String
23853
23854            return
23855              AMF.Holders.To_Holder
23856               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23857                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
23858
23859         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
23860            --  RedefinableElement::redefinedElement : RedefinableElement
23861
23862            return
23863              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
23864               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23865                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
23866
23867         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
23868            --  ActivityNode::redefinedNode : ActivityNode
23869
23870            return
23871              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
23872               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23873                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
23874
23875         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
23876            --  RedefinableElement::redefinitionContext : Classifier
23877
23878            return
23879              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
23880               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23881                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
23882
23883         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Structured_Node_Input_A_Structured_Activity_Node then
23884            --  StructuredActivityNode::structuredNodeInput : InputPin
23885
23886            return
23887              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
23888               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23889                 (AMF.Internals.Helpers.To_Element (Self)).Get_Structured_Node_Input);
23890
23891         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Structured_Node_Output_A_Structured_Activity_Node then
23892            --  StructuredActivityNode::structuredNodeOutput : OutputPin
23893
23894            return
23895              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
23896               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23897                 (AMF.Internals.Helpers.To_Element (Self)).Get_Structured_Node_Output);
23898
23899         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Subgroup_Activity_Group_Super_Group then
23900            --  ActivityGroup::subgroup : ActivityGroup
23901
23902            return
23903              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
23904               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23905                 (AMF.Internals.Helpers.To_Element (Self)).Get_Subgroup);
23906
23907         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Super_Group_Activity_Group_Subgroup then
23908            --  ActivityGroup::superGroup : ActivityGroup
23909
23910            return
23911              AMF.Internals.Holders.UML_Holders.To_Holder
23912               (AMF.UML.Activity_Groups.UML_Activity_Group_Access'
23913                 (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23914                   (AMF.Internals.Helpers.To_Element (Self)).Get_Super_Group));
23915
23916         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Variable_Variable_Scope then
23917            --  StructuredActivityNode::variable : Variable
23918
23919            return
23920              AMF.UML.Variables.Collections.UML_Variable_Collections.Internals.To_Holder
23921               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23922                 (AMF.Internals.Helpers.To_Element (Self)).Get_Variable);
23923
23924         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
23925            --  NamedElement::visibility : VisibilityKind
23926
23927            return
23928              AMF.UML.Holders.To_Holder
23929               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
23930                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
23931
23932         else
23933            raise Program_Error;
23934         end if;
23935      end UML_Expansion_Region_Get;
23936
23937      ------------------------
23938      -- UML_Expression_Get --
23939      ------------------------
23940
23941      function UML_Expression_Get return League.Holders.Holder is
23942      begin
23943         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
23944            --  NamedElement::clientDependency : Dependency
23945
23946            return
23947              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
23948               (AMF.UML.Expressions.UML_Expression_Access
23949                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
23950
23951         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
23952            --  NamedElement::name : String
23953
23954            return
23955              AMF.Holders.To_Holder
23956               (AMF.UML.Expressions.UML_Expression_Access
23957                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
23958
23959         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
23960            --  NamedElement::nameExpression : StringExpression
23961
23962            return
23963              AMF.Internals.Holders.UML_Holders.To_Holder
23964               (AMF.UML.String_Expressions.UML_String_Expression_Access'
23965                 (AMF.UML.Expressions.UML_Expression_Access
23966                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
23967
23968         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
23969            --  NamedElement::namespace : Namespace
23970
23971            return
23972              AMF.Internals.Holders.UML_Holders.To_Holder
23973               (AMF.UML.Namespaces.UML_Namespace_Access'
23974                 (AMF.UML.Expressions.UML_Expression_Access
23975                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
23976
23977         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Expression_Operand_A_Expression then
23978            --  Expression::operand : ValueSpecification
23979
23980            return
23981              AMF.UML.Value_Specifications.Collections.UML_Value_Specification_Collections.Internals.To_Holder
23982               (AMF.UML.Expressions.UML_Expression_Access
23983                 (AMF.Internals.Helpers.To_Element (Self)).Get_Operand);
23984
23985         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
23986            --  Element::ownedComment : Comment
23987
23988            return
23989              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
23990               (AMF.UML.Expressions.UML_Expression_Access
23991                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
23992
23993         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
23994            --  Element::ownedElement : Element
23995
23996            return
23997              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
23998               (AMF.UML.Expressions.UML_Expression_Access
23999                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
24000
24001         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
24002            --  Element::owner : Element
24003
24004            return
24005              AMF.Internals.Holders.UML_Holders.To_Holder
24006               (AMF.UML.Elements.UML_Element_Access'
24007                 (AMF.UML.Expressions.UML_Expression_Access
24008                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
24009
24010         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
24011            --  ParameterableElement::owningTemplateParameter : TemplateParameter
24012
24013            return
24014              AMF.Internals.Holders.UML_Holders.To_Holder
24015               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
24016                 (AMF.UML.Expressions.UML_Expression_Access
24017                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
24018
24019         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
24020            --  NamedElement::qualifiedName : String
24021
24022            return
24023              AMF.Holders.To_Holder
24024               (AMF.UML.Expressions.UML_Expression_Access
24025                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
24026
24027         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Expression_Symbol then
24028            --  Expression::symbol : String
24029
24030            return
24031              AMF.Holders.To_Holder
24032               (AMF.UML.Expressions.UML_Expression_Access
24033                 (AMF.Internals.Helpers.To_Element (Self)).Get_Symbol);
24034
24035         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
24036            --  ParameterableElement::templateParameter : TemplateParameter
24037
24038            return
24039              AMF.Internals.Holders.UML_Holders.To_Holder
24040               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
24041                 (AMF.UML.Expressions.UML_Expression_Access
24042                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
24043
24044         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
24045            --  TypedElement::type : Type
24046
24047            return
24048              AMF.Internals.Holders.UML_Holders.To_Holder
24049               (AMF.UML.Types.UML_Type_Access'
24050                 (AMF.UML.Expressions.UML_Expression_Access
24051                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
24052
24053         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
24054            --  NamedElement::visibility : VisibilityKind
24055
24056            return
24057              AMF.UML.Holders.To_Holder
24058               (AMF.UML.Expressions.UML_Expression_Access
24059                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
24060
24061         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
24062            --  PackageableElement::visibility : VisibilityKind
24063
24064            return
24065              AMF.UML.Holders.Visibility_Kinds.To_Holder
24066               (AMF.UML.Expressions.UML_Expression_Access
24067                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
24068
24069         else
24070            raise Program_Error;
24071         end if;
24072      end UML_Expression_Get;
24073
24074      --------------------
24075      -- UML_Extend_Get --
24076      --------------------
24077
24078      function UML_Extend_Get return League.Holders.Holder is
24079      begin
24080         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
24081            --  NamedElement::clientDependency : Dependency
24082
24083            return
24084              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
24085               (AMF.UML.Extends.UML_Extend_Access
24086                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
24087
24088         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Extend_Condition_A_Extend then
24089            --  Extend::condition : Constraint
24090
24091            return
24092              AMF.Internals.Holders.UML_Holders.To_Holder
24093               (AMF.UML.Constraints.UML_Constraint_Access'
24094                 (AMF.UML.Extends.UML_Extend_Access
24095                   (AMF.Internals.Helpers.To_Element (Self)).Get_Condition));
24096
24097         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Extend_Extended_Case_A_Extend then
24098            --  Extend::extendedCase : UseCase
24099
24100            return
24101              AMF.Internals.Holders.UML_Holders.To_Holder
24102               (AMF.UML.Use_Cases.UML_Use_Case_Access'
24103                 (AMF.UML.Extends.UML_Extend_Access
24104                   (AMF.Internals.Helpers.To_Element (Self)).Get_Extended_Case));
24105
24106         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Extend_Extension_Use_Case_Extend then
24107            --  Extend::extension : UseCase
24108
24109            return
24110              AMF.Internals.Holders.UML_Holders.To_Holder
24111               (AMF.UML.Use_Cases.UML_Use_Case_Access'
24112                 (AMF.UML.Extends.UML_Extend_Access
24113                   (AMF.Internals.Helpers.To_Element (Self)).Get_Extension));
24114
24115         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Extend_Extension_Location_A_Extension then
24116            --  Extend::extensionLocation : ExtensionPoint
24117
24118            return
24119              AMF.UML.Extension_Points.Collections.UML_Extension_Point_Collections.Internals.To_Holder
24120               (AMF.UML.Extends.UML_Extend_Access
24121                 (AMF.Internals.Helpers.To_Element (Self)).Get_Extension_Location);
24122
24123         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
24124            --  NamedElement::name : String
24125
24126            return
24127              AMF.Holders.To_Holder
24128               (AMF.UML.Extends.UML_Extend_Access
24129                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
24130
24131         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
24132            --  NamedElement::nameExpression : StringExpression
24133
24134            return
24135              AMF.Internals.Holders.UML_Holders.To_Holder
24136               (AMF.UML.String_Expressions.UML_String_Expression_Access'
24137                 (AMF.UML.Extends.UML_Extend_Access
24138                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
24139
24140         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
24141            --  NamedElement::namespace : Namespace
24142
24143            return
24144              AMF.Internals.Holders.UML_Holders.To_Holder
24145               (AMF.UML.Namespaces.UML_Namespace_Access'
24146                 (AMF.UML.Extends.UML_Extend_Access
24147                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
24148
24149         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
24150            --  Element::ownedComment : Comment
24151
24152            return
24153              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
24154               (AMF.UML.Extends.UML_Extend_Access
24155                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
24156
24157         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
24158            --  Element::ownedElement : Element
24159
24160            return
24161              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
24162               (AMF.UML.Extends.UML_Extend_Access
24163                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
24164
24165         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
24166            --  Element::owner : Element
24167
24168            return
24169              AMF.Internals.Holders.UML_Holders.To_Holder
24170               (AMF.UML.Elements.UML_Element_Access'
24171                 (AMF.UML.Extends.UML_Extend_Access
24172                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
24173
24174         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
24175            --  NamedElement::qualifiedName : String
24176
24177            return
24178              AMF.Holders.To_Holder
24179               (AMF.UML.Extends.UML_Extend_Access
24180                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
24181
24182         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship then
24183            --  Relationship::relatedElement : Element
24184
24185            return
24186              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
24187               (AMF.UML.Extends.UML_Extend_Access
24188                 (AMF.Internals.Helpers.To_Element (Self)).Get_Related_Element);
24189
24190         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship then
24191            --  DirectedRelationship::source : Element
24192
24193            return
24194              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
24195               (AMF.UML.Extends.UML_Extend_Access
24196                 (AMF.Internals.Helpers.To_Element (Self)).Get_Source);
24197
24198         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship then
24199            --  DirectedRelationship::target : Element
24200
24201            return
24202              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
24203               (AMF.UML.Extends.UML_Extend_Access
24204                 (AMF.Internals.Helpers.To_Element (Self)).Get_Target);
24205
24206         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
24207            --  NamedElement::visibility : VisibilityKind
24208
24209            return
24210              AMF.UML.Holders.To_Holder
24211               (AMF.UML.Extends.UML_Extend_Access
24212                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
24213
24214         else
24215            raise Program_Error;
24216         end if;
24217      end UML_Extend_Get;
24218
24219      -----------------------
24220      -- UML_Extension_Get --
24221      -----------------------
24222
24223      function UML_Extension_Get return League.Holders.Holder is
24224      begin
24225         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier then
24226            --  Classifier::attribute : Property
24227
24228            return
24229              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
24230               (AMF.UML.Extensions.UML_Extension_Access
24231                 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute);
24232
24233         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
24234            --  NamedElement::clientDependency : Dependency
24235
24236            return
24237              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
24238               (AMF.UML.Extensions.UML_Extension_Access
24239                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
24240
24241         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier then
24242            --  Classifier::collaborationUse : CollaborationUse
24243
24244            return
24245              AMF.UML.Collaboration_Uses.Collections.UML_Collaboration_Use_Collections.Internals.To_Holder
24246               (AMF.UML.Extensions.UML_Extension_Access
24247                 (AMF.Internals.Helpers.To_Element (Self)).Get_Collaboration_Use);
24248
24249         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
24250            --  Namespace::elementImport : ElementImport
24251
24252            return
24253              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
24254               (AMF.UML.Extensions.UML_Extension_Access
24255                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
24256
24257         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_End_Type_A_Association then
24258            --  Association::endType : Type
24259
24260            return
24261              AMF.UML.Types.Collections.UML_Type_Collections.Internals.To_Holder
24262               (AMF.UML.Extensions.UML_Extension_Access
24263                 (AMF.Internals.Helpers.To_Element (Self)).Get_End_Type);
24264
24265         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier then
24266            --  Classifier::feature : Feature
24267
24268            return
24269              AMF.UML.Features.Collections.UML_Feature_Collections.Internals.To_Holder
24270               (AMF.UML.Extensions.UML_Extension_Access
24271                 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature);
24272
24273         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier then
24274            --  Classifier::general : Classifier
24275
24276            return
24277              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
24278               (AMF.UML.Extensions.UML_Extension_Access
24279                 (AMF.Internals.Helpers.To_Element (Self)).Get_General);
24280
24281         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific then
24282            --  Classifier::generalization : Generalization
24283
24284            return
24285              AMF.UML.Generalizations.Collections.UML_Generalization_Collections.Internals.To_Holder
24286               (AMF.UML.Extensions.UML_Extension_Access
24287                 (AMF.Internals.Helpers.To_Element (Self)).Get_Generalization);
24288
24289         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
24290            --  Namespace::importedMember : PackageableElement
24291
24292            return
24293              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
24294               (AMF.UML.Extensions.UML_Extension_Access
24295                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
24296
24297         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier then
24298            --  Classifier::inheritedMember : NamedElement
24299
24300            return
24301              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
24302               (AMF.UML.Extensions.UML_Extension_Access
24303                 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member);
24304
24305         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
24306            --  Classifier::isAbstract : Boolean
24307
24308            return
24309              League.Holders.Booleans.To_Holder
24310               (AMF.UML.Extensions.UML_Extension_Access
24311                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
24312
24313         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Is_Derived then
24314            --  Association::isDerived : Boolean
24315
24316            return
24317              League.Holders.Booleans.To_Holder
24318               (AMF.UML.Extensions.UML_Extension_Access
24319                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Derived);
24320
24321         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
24322            --  Classifier::isFinalSpecialization : Boolean
24323
24324            return
24325              League.Holders.Booleans.To_Holder
24326               (AMF.UML.Extensions.UML_Extension_Access
24327                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization);
24328
24329         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
24330            --  RedefinableElement::isLeaf : Boolean
24331
24332            return
24333              League.Holders.Booleans.To_Holder
24334               (AMF.UML.Extensions.UML_Extension_Access
24335                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
24336
24337         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Extension_Is_Required then
24338            --  Extension::isRequired : Boolean
24339
24340            return
24341              League.Holders.Booleans.To_Holder
24342               (AMF.UML.Extensions.UML_Extension_Access
24343                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Required);
24344
24345         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
24346            --  Namespace::member : NamedElement
24347
24348            return
24349              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
24350               (AMF.UML.Extensions.UML_Extension_Access
24351                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
24352
24353         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Member_End_Property_Association then
24354            --  Association::memberEnd : Property
24355
24356            return
24357              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
24358               (AMF.UML.Extensions.UML_Extension_Access
24359                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member_End);
24360
24361         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Extension_Metaclass_Class_Extension then
24362            --  Extension::metaclass : Class
24363
24364            return
24365              AMF.Internals.Holders.UML_Holders.To_Holder
24366               (AMF.UML.Classes.UML_Class_Access'
24367                 (AMF.UML.Extensions.UML_Extension_Access
24368                   (AMF.Internals.Helpers.To_Element (Self)).Get_Metaclass));
24369
24370         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
24371            --  NamedElement::name : String
24372
24373            return
24374              AMF.Holders.To_Holder
24375               (AMF.UML.Extensions.UML_Extension_Access
24376                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
24377
24378         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
24379            --  NamedElement::nameExpression : StringExpression
24380
24381            return
24382              AMF.Internals.Holders.UML_Holders.To_Holder
24383               (AMF.UML.String_Expressions.UML_String_Expression_Access'
24384                 (AMF.UML.Extensions.UML_Extension_Access
24385                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
24386
24387         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
24388            --  NamedElement::namespace : Namespace
24389
24390            return
24391              AMF.Internals.Holders.UML_Holders.To_Holder
24392               (AMF.UML.Namespaces.UML_Namespace_Access'
24393                 (AMF.UML.Extensions.UML_Extension_Access
24394                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
24395
24396         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Navigable_Owned_End_A_Association then
24397            --  Association::navigableOwnedEnd : Property
24398
24399            return
24400              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
24401               (AMF.UML.Extensions.UML_Extension_Access
24402                 (AMF.Internals.Helpers.To_Element (Self)).Get_Navigable_Owned_End);
24403
24404         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
24405            --  Element::ownedComment : Comment
24406
24407            return
24408              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
24409               (AMF.UML.Extensions.UML_Extension_Access
24410                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
24411
24412         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
24413            --  Element::ownedElement : Element
24414
24415            return
24416              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
24417               (AMF.UML.Extensions.UML_Extension_Access
24418                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
24419
24420         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Owned_End_Property_Owning_Association then
24421            --  Association::ownedEnd : Property
24422
24423            return
24424              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
24425               (AMF.UML.Extensions.UML_Extension_Access
24426                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_End);
24427
24428         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Extension_Owned_End_A_Extension then
24429            --  Extension::ownedEnd : ExtensionEnd
24430
24431            return
24432              AMF.Internals.Holders.UML_Holders.To_Holder
24433               (AMF.UML.Extension_Ends.UML_Extension_End_Access'
24434                 (AMF.UML.Extensions.UML_Extension_Access
24435                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_End));
24436
24437         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
24438            --  Namespace::ownedMember : NamedElement
24439
24440            return
24441              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
24442               (AMF.UML.Extensions.UML_Extension_Access
24443                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
24444
24445         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
24446            --  Namespace::ownedRule : Constraint
24447
24448            return
24449              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
24450               (AMF.UML.Extensions.UML_Extension_Access
24451                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
24452
24453         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
24454            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
24455
24456            return
24457              AMF.Internals.Holders.UML_Holders.To_Holder
24458               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access'
24459                 (AMF.UML.Extensions.UML_Extension_Access
24460                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
24461
24462         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
24463            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
24464
24465            return
24466              AMF.Internals.Holders.UML_Holders.To_Holder
24467               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
24468                 (AMF.UML.Extensions.UML_Extension_Access
24469                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
24470
24471         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier then
24472            --  Classifier::ownedUseCase : UseCase
24473
24474            return
24475              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
24476               (AMF.UML.Extensions.UML_Extension_Access
24477                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Use_Case);
24478
24479         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
24480            --  Element::owner : Element
24481
24482            return
24483              AMF.Internals.Holders.UML_Holders.To_Holder
24484               (AMF.UML.Elements.UML_Element_Access'
24485                 (AMF.UML.Extensions.UML_Extension_Access
24486                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
24487
24488         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
24489            --  ParameterableElement::owningTemplateParameter : TemplateParameter
24490
24491            return
24492              AMF.Internals.Holders.UML_Holders.To_Holder
24493               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
24494                 (AMF.UML.Extensions.UML_Extension_Access
24495                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
24496
24497         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
24498            --  Type::package : Package
24499
24500            return
24501              AMF.Internals.Holders.UML_Holders.To_Holder
24502               (AMF.UML.Packages.UML_Package_Access'
24503                 (AMF.UML.Extensions.UML_Extension_Access
24504                   (AMF.Internals.Helpers.To_Element (Self)).Get_Package));
24505
24506         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
24507            --  Namespace::packageImport : PackageImport
24508
24509            return
24510              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
24511               (AMF.UML.Extensions.UML_Extension_Access
24512                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
24513
24514         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype then
24515            --  Classifier::powertypeExtent : GeneralizationSet
24516
24517            return
24518              AMF.UML.Generalization_Sets.Collections.UML_Generalization_Set_Collections.Internals.To_Holder
24519               (AMF.UML.Extensions.UML_Extension_Access
24520                 (AMF.Internals.Helpers.To_Element (Self)).Get_Powertype_Extent);
24521
24522         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
24523            --  NamedElement::qualifiedName : String
24524
24525            return
24526              AMF.Holders.To_Holder
24527               (AMF.UML.Extensions.UML_Extension_Access
24528                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
24529
24530         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier then
24531            --  Classifier::redefinedClassifier : Classifier
24532
24533            return
24534              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
24535               (AMF.UML.Extensions.UML_Extension_Access
24536                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Classifier);
24537
24538         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
24539            --  RedefinableElement::redefinedElement : RedefinableElement
24540
24541            return
24542              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
24543               (AMF.UML.Extensions.UML_Extension_Access
24544                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
24545
24546         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
24547            --  RedefinableElement::redefinitionContext : Classifier
24548
24549            return
24550              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
24551               (AMF.UML.Extensions.UML_Extension_Access
24552                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
24553
24554         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship then
24555            --  Relationship::relatedElement : Element
24556
24557            return
24558              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
24559               (AMF.UML.Extensions.UML_Extension_Access
24560                 (AMF.Internals.Helpers.To_Element (Self)).Get_Related_Element);
24561
24562         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
24563            --  Classifier::representation : CollaborationUse
24564
24565            return
24566              AMF.Internals.Holders.UML_Holders.To_Holder
24567               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access'
24568                 (AMF.UML.Extensions.UML_Extension_Access
24569                   (AMF.Internals.Helpers.To_Element (Self)).Get_Representation));
24570
24571         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier then
24572            --  Classifier::substitution : Substitution
24573
24574            return
24575              AMF.UML.Substitutions.Collections.UML_Substitution_Collections.Internals.To_Holder
24576               (AMF.UML.Extensions.UML_Extension_Access
24577                 (AMF.Internals.Helpers.To_Element (Self)).Get_Substitution);
24578
24579         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
24580            --  TemplateableElement::templateBinding : TemplateBinding
24581
24582            return
24583              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
24584               (AMF.UML.Extensions.UML_Extension_Access
24585                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
24586
24587         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
24588            --  Classifier::templateParameter : ClassifierTemplateParameter
24589
24590            return
24591              AMF.Internals.Holders.UML_Holders.To_Holder
24592               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access'
24593                 (AMF.UML.Extensions.UML_Extension_Access
24594                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
24595
24596         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
24597            --  ParameterableElement::templateParameter : TemplateParameter
24598
24599            return
24600              AMF.Internals.Holders.UML_Holders.To_Holder
24601               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
24602                 (AMF.UML.Extensions.UML_Extension_Access
24603                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
24604
24605         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject then
24606            --  Classifier::useCase : UseCase
24607
24608            return
24609              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
24610               (AMF.UML.Extensions.UML_Extension_Access
24611                 (AMF.Internals.Helpers.To_Element (Self)).Get_Use_Case);
24612
24613         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
24614            --  NamedElement::visibility : VisibilityKind
24615
24616            return
24617              AMF.UML.Holders.To_Holder
24618               (AMF.UML.Extensions.UML_Extension_Access
24619                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
24620
24621         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
24622            --  PackageableElement::visibility : VisibilityKind
24623
24624            return
24625              AMF.UML.Holders.Visibility_Kinds.To_Holder
24626               (AMF.UML.Extensions.UML_Extension_Access
24627                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
24628
24629         else
24630            raise Program_Error;
24631         end if;
24632      end UML_Extension_Get;
24633
24634      ---------------------------
24635      -- UML_Extension_End_Get --
24636      ---------------------------
24637
24638      function UML_Extension_End_Get return League.Holders.Holder is
24639      begin
24640         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Aggregation then
24641            --  Property::aggregation : AggregationKind
24642
24643            return
24644              AMF.UML.Holders.Aggregation_Kinds.To_Holder
24645               (AMF.UML.Extension_Ends.UML_Extension_End_Access
24646                 (AMF.Internals.Helpers.To_Element (Self)).Get_Aggregation);
24647
24648         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Association_Association_Member_End then
24649            --  Property::association : Association
24650
24651            return
24652              AMF.Internals.Holders.UML_Holders.To_Holder
24653               (AMF.UML.Associations.UML_Association_Access'
24654                 (AMF.UML.Extension_Ends.UML_Extension_End_Access
24655                   (AMF.Internals.Helpers.To_Element (Self)).Get_Association));
24656
24657         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Association_End_Property_Qualifier then
24658            --  Property::associationEnd : Property
24659
24660            return
24661              AMF.Internals.Holders.UML_Holders.To_Holder
24662               (AMF.UML.Properties.UML_Property_Access'
24663                 (AMF.UML.Extension_Ends.UML_Extension_End_Access
24664                   (AMF.Internals.Helpers.To_Element (Self)).Get_Association_End));
24665
24666         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Class_Class_Owned_Attribute then
24667            --  Property::class : Class
24668
24669            return
24670              AMF.Internals.Holders.UML_Holders.To_Holder
24671               (AMF.UML.Classes.UML_Class_Access'
24672                 (AMF.UML.Extension_Ends.UML_Extension_End_Access
24673                   (AMF.Internals.Helpers.To_Element (Self)).Get_Class));
24674
24675         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
24676            --  NamedElement::clientDependency : Dependency
24677
24678            return
24679              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
24680               (AMF.UML.Extension_Ends.UML_Extension_End_Access
24681                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
24682
24683         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Datatype_Data_Type_Owned_Attribute then
24684            --  Property::datatype : DataType
24685
24686            return
24687              AMF.Internals.Holders.UML_Holders.To_Holder
24688               (AMF.UML.Data_Types.UML_Data_Type_Access'
24689                 (AMF.UML.Extension_Ends.UML_Extension_End_Access
24690                   (AMF.Internals.Helpers.To_Element (Self)).Get_Datatype));
24691
24692         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Default then
24693            --  Property::default : String
24694
24695            return
24696              AMF.Holders.To_Holder
24697               (AMF.UML.Extension_Ends.UML_Extension_End_Access
24698                 (AMF.Internals.Helpers.To_Element (Self)).Get_Default);
24699
24700         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Default_Value_A_Owning_Property then
24701            --  Property::defaultValue : ValueSpecification
24702
24703            return
24704              AMF.Internals.Holders.UML_Holders.To_Holder
24705               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
24706                 (AMF.UML.Extension_Ends.UML_Extension_End_Access
24707                   (AMF.Internals.Helpers.To_Element (Self)).Get_Default_Value));
24708
24709         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployed_Element_A_Deployment_Target then
24710            --  DeploymentTarget::deployedElement : PackageableElement
24711
24712            return
24713              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
24714               (AMF.UML.Extension_Ends.UML_Extension_End_Access
24715                 (AMF.Internals.Helpers.To_Element (Self)).Get_Deployed_Element);
24716
24717         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployment_Deployment_Location then
24718            --  DeploymentTarget::deployment : Deployment
24719
24720            return
24721              AMF.UML.Deployments.Collections.UML_Deployment_Collections.Internals.To_Holder
24722               (AMF.UML.Extension_Ends.UML_Extension_End_Access
24723                 (AMF.Internals.Helpers.To_Element (Self)).Get_Deployment);
24724
24725         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connectable_Element_End_Connector_End_Role then
24726            --  ConnectableElement::end : ConnectorEnd
24727
24728            return
24729              AMF.UML.Connector_Ends.Collections.UML_Connector_End_Collections.Internals.To_Holder
24730               (AMF.UML.Extension_Ends.UML_Extension_End_Access
24731                 (AMF.Internals.Helpers.To_Element (Self)).Get_End);
24732
24733         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Feature_Featuring_Classifier_Classifier_Feature then
24734            --  Feature::featuringClassifier : Classifier
24735
24736            return
24737              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
24738               (AMF.UML.Extension_Ends.UML_Extension_End_Access
24739                 (AMF.Internals.Helpers.To_Element (Self)).Get_Featuring_Classifier);
24740
24741         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Interface_Interface_Owned_Attribute then
24742            --  Property::interface : Interface
24743
24744            return
24745              AMF.Internals.Holders.UML_Holders.To_Holder
24746               (AMF.UML.Interfaces.UML_Interface_Access'
24747                 (AMF.UML.Extension_Ends.UML_Extension_End_Access
24748                   (AMF.Internals.Helpers.To_Element (Self)).Get_Interface));
24749
24750         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Is_Composite then
24751            --  Property::isComposite : Boolean
24752
24753            return
24754              League.Holders.Booleans.To_Holder
24755               (AMF.UML.Extension_Ends.UML_Extension_End_Access
24756                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Composite);
24757
24758         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Is_Derived then
24759            --  Property::isDerived : Boolean
24760
24761            return
24762              League.Holders.Booleans.To_Holder
24763               (AMF.UML.Extension_Ends.UML_Extension_End_Access
24764                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Derived);
24765
24766         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Is_Derived_Union then
24767            --  Property::isDerivedUnion : Boolean
24768
24769            return
24770              League.Holders.Booleans.To_Holder
24771               (AMF.UML.Extension_Ends.UML_Extension_End_Access
24772                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Derived_Union);
24773
24774         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Is_ID then
24775            --  Property::isID : Boolean
24776
24777            return
24778              League.Holders.Booleans.To_Holder
24779               (AMF.UML.Extension_Ends.UML_Extension_End_Access
24780                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_ID);
24781
24782         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
24783            --  RedefinableElement::isLeaf : Boolean
24784
24785            return
24786              League.Holders.Booleans.To_Holder
24787               (AMF.UML.Extension_Ends.UML_Extension_End_Access
24788                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
24789
24790         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Ordered then
24791            --  MultiplicityElement::isOrdered : Boolean
24792
24793            return
24794              League.Holders.Booleans.To_Holder
24795               (AMF.UML.Extension_Ends.UML_Extension_End_Access
24796                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Ordered);
24797
24798         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Is_Read_Only then
24799            --  Property::isReadOnly : Boolean
24800
24801            return
24802              League.Holders.Booleans.To_Holder
24803               (AMF.UML.Extension_Ends.UML_Extension_End_Access
24804                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Read_Only);
24805
24806         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structural_Feature_Is_Read_Only then
24807            --  StructuralFeature::isReadOnly : Boolean
24808
24809            return
24810              League.Holders.Booleans.To_Holder
24811               (AMF.UML.Extension_Ends.UML_Extension_End_Access
24812                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Read_Only);
24813
24814         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Feature_Is_Static then
24815            --  Feature::isStatic : Boolean
24816
24817            return
24818              League.Holders.Booleans.To_Holder
24819               (AMF.UML.Extension_Ends.UML_Extension_End_Access
24820                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Static);
24821
24822         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Unique then
24823            --  MultiplicityElement::isUnique : Boolean
24824
24825            return
24826              League.Holders.Booleans.To_Holder
24827               (AMF.UML.Extension_Ends.UML_Extension_End_Access
24828                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Unique);
24829
24830         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Extension_End_Lower then
24831            --  ExtensionEnd::lower : Integer
24832
24833            return
24834              AMF.Holders.To_Holder
24835               (AMF.UML.Extension_Ends.UML_Extension_End_Access
24836                 (AMF.Internals.Helpers.To_Element (Self)).Get_Lower);
24837
24838         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower then
24839            --  MultiplicityElement::lower : Integer
24840
24841            return
24842              AMF.Holders.To_Holder
24843               (AMF.UML.Extension_Ends.UML_Extension_End_Access
24844                 (AMF.Internals.Helpers.To_Element (Self)).Get_Lower);
24845
24846         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower_Value_A_Owning_Lower then
24847            --  MultiplicityElement::lowerValue : ValueSpecification
24848
24849            return
24850              AMF.Internals.Holders.UML_Holders.To_Holder
24851               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
24852                 (AMF.UML.Extension_Ends.UML_Extension_End_Access
24853                   (AMF.Internals.Helpers.To_Element (Self)).Get_Lower_Value));
24854
24855         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
24856            --  NamedElement::name : String
24857
24858            return
24859              AMF.Holders.To_Holder
24860               (AMF.UML.Extension_Ends.UML_Extension_End_Access
24861                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
24862
24863         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
24864            --  NamedElement::nameExpression : StringExpression
24865
24866            return
24867              AMF.Internals.Holders.UML_Holders.To_Holder
24868               (AMF.UML.String_Expressions.UML_String_Expression_Access'
24869                 (AMF.UML.Extension_Ends.UML_Extension_End_Access
24870                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
24871
24872         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
24873            --  NamedElement::namespace : Namespace
24874
24875            return
24876              AMF.Internals.Holders.UML_Holders.To_Holder
24877               (AMF.UML.Namespaces.UML_Namespace_Access'
24878                 (AMF.UML.Extension_Ends.UML_Extension_End_Access
24879                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
24880
24881         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Opposite_A_Property then
24882            --  Property::opposite : Property
24883
24884            return
24885              AMF.Internals.Holders.UML_Holders.To_Holder
24886               (AMF.UML.Properties.UML_Property_Access'
24887                 (AMF.UML.Extension_Ends.UML_Extension_End_Access
24888                   (AMF.Internals.Helpers.To_Element (Self)).Get_Opposite));
24889
24890         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
24891            --  Element::ownedComment : Comment
24892
24893            return
24894              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
24895               (AMF.UML.Extension_Ends.UML_Extension_End_Access
24896                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
24897
24898         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
24899            --  Element::ownedElement : Element
24900
24901            return
24902              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
24903               (AMF.UML.Extension_Ends.UML_Extension_End_Access
24904                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
24905
24906         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
24907            --  Element::owner : Element
24908
24909            return
24910              AMF.Internals.Holders.UML_Holders.To_Holder
24911               (AMF.UML.Elements.UML_Element_Access'
24912                 (AMF.UML.Extension_Ends.UML_Extension_End_Access
24913                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
24914
24915         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Owning_Association_Association_Owned_End then
24916            --  Property::owningAssociation : Association
24917
24918            return
24919              AMF.Internals.Holders.UML_Holders.To_Holder
24920               (AMF.UML.Associations.UML_Association_Access'
24921                 (AMF.UML.Extension_Ends.UML_Extension_End_Access
24922                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Association));
24923
24924         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
24925            --  ParameterableElement::owningTemplateParameter : TemplateParameter
24926
24927            return
24928              AMF.Internals.Holders.UML_Holders.To_Holder
24929               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
24930                 (AMF.UML.Extension_Ends.UML_Extension_End_Access
24931                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
24932
24933         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
24934            --  NamedElement::qualifiedName : String
24935
24936            return
24937              AMF.Holders.To_Holder
24938               (AMF.UML.Extension_Ends.UML_Extension_End_Access
24939                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
24940
24941         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Qualifier_Property_Association_End then
24942            --  Property::qualifier : Property
24943
24944            return
24945              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
24946               (AMF.UML.Extension_Ends.UML_Extension_End_Access
24947                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualifier);
24948
24949         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
24950            --  RedefinableElement::redefinedElement : RedefinableElement
24951
24952            return
24953              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
24954               (AMF.UML.Extension_Ends.UML_Extension_End_Access
24955                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
24956
24957         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Redefined_Property_A_Property then
24958            --  Property::redefinedProperty : Property
24959
24960            return
24961              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
24962               (AMF.UML.Extension_Ends.UML_Extension_End_Access
24963                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Property);
24964
24965         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
24966            --  RedefinableElement::redefinitionContext : Classifier
24967
24968            return
24969              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
24970               (AMF.UML.Extension_Ends.UML_Extension_End_Access
24971                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
24972
24973         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Subsetted_Property_A_Property then
24974            --  Property::subsettedProperty : Property
24975
24976            return
24977              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
24978               (AMF.UML.Extension_Ends.UML_Extension_End_Access
24979                 (AMF.Internals.Helpers.To_Element (Self)).Get_Subsetted_Property);
24980
24981         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connectable_Element_Template_Parameter_Connectable_Element_Template_Parameter_Parametered_Element then
24982            --  ConnectableElement::templateParameter : ConnectableElementTemplateParameter
24983
24984            return
24985              AMF.Internals.Holders.UML_Holders.To_Holder
24986               (AMF.UML.Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Access'
24987                 (AMF.UML.Extension_Ends.UML_Extension_End_Access
24988                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
24989
24990         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
24991            --  ParameterableElement::templateParameter : TemplateParameter
24992
24993            return
24994              AMF.Internals.Holders.UML_Holders.To_Holder
24995               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
24996                 (AMF.UML.Extension_Ends.UML_Extension_End_Access
24997                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
24998
24999         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Extension_End_Type_A_Extension_End then
25000            --  ExtensionEnd::type : Stereotype
25001
25002            return
25003              AMF.Internals.Holders.UML_Holders.To_Holder
25004               (AMF.UML.Stereotypes.UML_Stereotype_Access'
25005                 (AMF.UML.Extension_Ends.UML_Extension_End_Access
25006                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
25007
25008         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
25009            --  TypedElement::type : Type
25010
25011            return
25012              AMF.Internals.Holders.UML_Holders.To_Holder
25013               (AMF.UML.Types.UML_Type_Access'
25014                 (AMF.UML.Extension_Ends.UML_Extension_End_Access
25015                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
25016
25017         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper then
25018            --  MultiplicityElement::upper : UnlimitedNatural
25019
25020            return
25021              AMF.Holders.To_Holder
25022               (AMF.UML.Extension_Ends.UML_Extension_End_Access
25023                 (AMF.Internals.Helpers.To_Element (Self)).Get_Upper);
25024
25025         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper_Value_A_Owning_Upper then
25026            --  MultiplicityElement::upperValue : ValueSpecification
25027
25028            return
25029              AMF.Internals.Holders.UML_Holders.To_Holder
25030               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
25031                 (AMF.UML.Extension_Ends.UML_Extension_End_Access
25032                   (AMF.Internals.Helpers.To_Element (Self)).Get_Upper_Value));
25033
25034         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
25035            --  NamedElement::visibility : VisibilityKind
25036
25037            return
25038              AMF.UML.Holders.To_Holder
25039               (AMF.UML.Extension_Ends.UML_Extension_End_Access
25040                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
25041
25042         else
25043            raise Program_Error;
25044         end if;
25045      end UML_Extension_End_Get;
25046
25047      -----------------------------
25048      -- UML_Extension_Point_Get --
25049      -----------------------------
25050
25051      function UML_Extension_Point_Get return League.Holders.Holder is
25052      begin
25053         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
25054            --  NamedElement::clientDependency : Dependency
25055
25056            return
25057              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
25058               (AMF.UML.Extension_Points.UML_Extension_Point_Access
25059                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
25060
25061         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
25062            --  RedefinableElement::isLeaf : Boolean
25063
25064            return
25065              League.Holders.Booleans.To_Holder
25066               (AMF.UML.Extension_Points.UML_Extension_Point_Access
25067                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
25068
25069         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
25070            --  NamedElement::name : String
25071
25072            return
25073              AMF.Holders.To_Holder
25074               (AMF.UML.Extension_Points.UML_Extension_Point_Access
25075                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
25076
25077         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
25078            --  NamedElement::nameExpression : StringExpression
25079
25080            return
25081              AMF.Internals.Holders.UML_Holders.To_Holder
25082               (AMF.UML.String_Expressions.UML_String_Expression_Access'
25083                 (AMF.UML.Extension_Points.UML_Extension_Point_Access
25084                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
25085
25086         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
25087            --  NamedElement::namespace : Namespace
25088
25089            return
25090              AMF.Internals.Holders.UML_Holders.To_Holder
25091               (AMF.UML.Namespaces.UML_Namespace_Access'
25092                 (AMF.UML.Extension_Points.UML_Extension_Point_Access
25093                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
25094
25095         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
25096            --  Element::ownedComment : Comment
25097
25098            return
25099              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
25100               (AMF.UML.Extension_Points.UML_Extension_Point_Access
25101                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
25102
25103         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
25104            --  Element::ownedElement : Element
25105
25106            return
25107              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
25108               (AMF.UML.Extension_Points.UML_Extension_Point_Access
25109                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
25110
25111         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
25112            --  Element::owner : Element
25113
25114            return
25115              AMF.Internals.Holders.UML_Holders.To_Holder
25116               (AMF.UML.Elements.UML_Element_Access'
25117                 (AMF.UML.Extension_Points.UML_Extension_Point_Access
25118                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
25119
25120         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
25121            --  NamedElement::qualifiedName : String
25122
25123            return
25124              AMF.Holders.To_Holder
25125               (AMF.UML.Extension_Points.UML_Extension_Point_Access
25126                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
25127
25128         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
25129            --  RedefinableElement::redefinedElement : RedefinableElement
25130
25131            return
25132              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
25133               (AMF.UML.Extension_Points.UML_Extension_Point_Access
25134                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
25135
25136         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
25137            --  RedefinableElement::redefinitionContext : Classifier
25138
25139            return
25140              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
25141               (AMF.UML.Extension_Points.UML_Extension_Point_Access
25142                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
25143
25144         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Extension_Point_Use_Case_Use_Case_Extension_Point then
25145            --  ExtensionPoint::useCase : UseCase
25146
25147            return
25148              AMF.Internals.Holders.UML_Holders.To_Holder
25149               (AMF.UML.Use_Cases.UML_Use_Case_Access'
25150                 (AMF.UML.Extension_Points.UML_Extension_Point_Access
25151                   (AMF.Internals.Helpers.To_Element (Self)).Get_Use_Case));
25152
25153         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
25154            --  NamedElement::visibility : VisibilityKind
25155
25156            return
25157              AMF.UML.Holders.To_Holder
25158               (AMF.UML.Extension_Points.UML_Extension_Point_Access
25159                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
25160
25161         else
25162            raise Program_Error;
25163         end if;
25164      end UML_Extension_Point_Get;
25165
25166      -------------------------
25167      -- UML_Final_State_Get --
25168      -------------------------
25169
25170      function UML_Final_State_Get return League.Holders.Holder is
25171      begin
25172         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
25173            --  NamedElement::clientDependency : Dependency
25174
25175            return
25176              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
25177               (AMF.UML.Final_States.UML_Final_State_Access
25178                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
25179
25180         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Connection_Connection_Point_Reference_State then
25181            --  State::connection : ConnectionPointReference
25182
25183            return
25184              AMF.UML.Connection_Point_References.Collections.UML_Connection_Point_Reference_Collections.Internals.To_Holder
25185               (AMF.UML.Final_States.UML_Final_State_Access
25186                 (AMF.Internals.Helpers.To_Element (Self)).Get_Connection);
25187
25188         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Connection_Point_Pseudostate_State then
25189            --  State::connectionPoint : Pseudostate
25190
25191            return
25192              AMF.UML.Pseudostates.Collections.UML_Pseudostate_Collections.Internals.To_Holder
25193               (AMF.UML.Final_States.UML_Final_State_Access
25194                 (AMF.Internals.Helpers.To_Element (Self)).Get_Connection_Point);
25195
25196         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Vertex_Container_Region_Subvertex then
25197            --  Vertex::container : Region
25198
25199            return
25200              AMF.Internals.Holders.UML_Holders.To_Holder
25201               (AMF.UML.Regions.UML_Region_Access'
25202                 (AMF.UML.Final_States.UML_Final_State_Access
25203                   (AMF.Internals.Helpers.To_Element (Self)).Get_Container));
25204
25205         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Deferrable_Trigger_A_State then
25206            --  State::deferrableTrigger : Trigger
25207
25208            return
25209              AMF.UML.Triggers.Collections.UML_Trigger_Collections.Internals.To_Holder
25210               (AMF.UML.Final_States.UML_Final_State_Access
25211                 (AMF.Internals.Helpers.To_Element (Self)).Get_Deferrable_Trigger);
25212
25213         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Do_Activity_A_State then
25214            --  State::doActivity : Behavior
25215
25216            return
25217              AMF.Internals.Holders.UML_Holders.To_Holder
25218               (AMF.UML.Behaviors.UML_Behavior_Access'
25219                 (AMF.UML.Final_States.UML_Final_State_Access
25220                   (AMF.Internals.Helpers.To_Element (Self)).Get_Do_Activity));
25221
25222         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
25223            --  Namespace::elementImport : ElementImport
25224
25225            return
25226              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
25227               (AMF.UML.Final_States.UML_Final_State_Access
25228                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
25229
25230         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Entry_A_State then
25231            --  State::entry : Behavior
25232
25233            return
25234              AMF.Internals.Holders.UML_Holders.To_Holder
25235               (AMF.UML.Behaviors.UML_Behavior_Access'
25236                 (AMF.UML.Final_States.UML_Final_State_Access
25237                   (AMF.Internals.Helpers.To_Element (Self)).Get_Entry));
25238
25239         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Exit_A_State then
25240            --  State::exit : Behavior
25241
25242            return
25243              AMF.Internals.Holders.UML_Holders.To_Holder
25244               (AMF.UML.Behaviors.UML_Behavior_Access'
25245                 (AMF.UML.Final_States.UML_Final_State_Access
25246                   (AMF.Internals.Helpers.To_Element (Self)).Get_Exit));
25247
25248         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
25249            --  Namespace::importedMember : PackageableElement
25250
25251            return
25252              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
25253               (AMF.UML.Final_States.UML_Final_State_Access
25254                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
25255
25256         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Vertex_Incoming_Transition_Target then
25257            --  Vertex::incoming : Transition
25258
25259            return
25260              AMF.UML.Transitions.Collections.UML_Transition_Collections.Internals.To_Holder
25261               (AMF.UML.Final_States.UML_Final_State_Access
25262                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
25263
25264         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Is_Composite then
25265            --  State::isComposite : Boolean
25266
25267            return
25268              League.Holders.Booleans.To_Holder
25269               (AMF.UML.Final_States.UML_Final_State_Access
25270                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Composite);
25271
25272         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
25273            --  RedefinableElement::isLeaf : Boolean
25274
25275            return
25276              League.Holders.Booleans.To_Holder
25277               (AMF.UML.Final_States.UML_Final_State_Access
25278                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
25279
25280         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Is_Orthogonal then
25281            --  State::isOrthogonal : Boolean
25282
25283            return
25284              League.Holders.Booleans.To_Holder
25285               (AMF.UML.Final_States.UML_Final_State_Access
25286                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Orthogonal);
25287
25288         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Is_Simple then
25289            --  State::isSimple : Boolean
25290
25291            return
25292              League.Holders.Booleans.To_Holder
25293               (AMF.UML.Final_States.UML_Final_State_Access
25294                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Simple);
25295
25296         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Is_Submachine_State then
25297            --  State::isSubmachineState : Boolean
25298
25299            return
25300              League.Holders.Booleans.To_Holder
25301               (AMF.UML.Final_States.UML_Final_State_Access
25302                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Submachine_State);
25303
25304         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
25305            --  Namespace::member : NamedElement
25306
25307            return
25308              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
25309               (AMF.UML.Final_States.UML_Final_State_Access
25310                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
25311
25312         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
25313            --  NamedElement::name : String
25314
25315            return
25316              AMF.Holders.To_Holder
25317               (AMF.UML.Final_States.UML_Final_State_Access
25318                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
25319
25320         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
25321            --  NamedElement::nameExpression : StringExpression
25322
25323            return
25324              AMF.Internals.Holders.UML_Holders.To_Holder
25325               (AMF.UML.String_Expressions.UML_String_Expression_Access'
25326                 (AMF.UML.Final_States.UML_Final_State_Access
25327                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
25328
25329         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
25330            --  NamedElement::namespace : Namespace
25331
25332            return
25333              AMF.Internals.Holders.UML_Holders.To_Holder
25334               (AMF.UML.Namespaces.UML_Namespace_Access'
25335                 (AMF.UML.Final_States.UML_Final_State_Access
25336                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
25337
25338         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Vertex_Outgoing_Transition_Source then
25339            --  Vertex::outgoing : Transition
25340
25341            return
25342              AMF.UML.Transitions.Collections.UML_Transition_Collections.Internals.To_Holder
25343               (AMF.UML.Final_States.UML_Final_State_Access
25344                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
25345
25346         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
25347            --  Element::ownedComment : Comment
25348
25349            return
25350              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
25351               (AMF.UML.Final_States.UML_Final_State_Access
25352                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
25353
25354         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
25355            --  Element::ownedElement : Element
25356
25357            return
25358              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
25359               (AMF.UML.Final_States.UML_Final_State_Access
25360                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
25361
25362         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
25363            --  Namespace::ownedMember : NamedElement
25364
25365            return
25366              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
25367               (AMF.UML.Final_States.UML_Final_State_Access
25368                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
25369
25370         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
25371            --  Namespace::ownedRule : Constraint
25372
25373            return
25374              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
25375               (AMF.UML.Final_States.UML_Final_State_Access
25376                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
25377
25378         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
25379            --  Element::owner : Element
25380
25381            return
25382              AMF.Internals.Holders.UML_Holders.To_Holder
25383               (AMF.UML.Elements.UML_Element_Access'
25384                 (AMF.UML.Final_States.UML_Final_State_Access
25385                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
25386
25387         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
25388            --  Namespace::packageImport : PackageImport
25389
25390            return
25391              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
25392               (AMF.UML.Final_States.UML_Final_State_Access
25393                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
25394
25395         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
25396            --  NamedElement::qualifiedName : String
25397
25398            return
25399              AMF.Holders.To_Holder
25400               (AMF.UML.Final_States.UML_Final_State_Access
25401                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
25402
25403         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
25404            --  RedefinableElement::redefinedElement : RedefinableElement
25405
25406            return
25407              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
25408               (AMF.UML.Final_States.UML_Final_State_Access
25409                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
25410
25411         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Redefined_State_A_State then
25412            --  State::redefinedState : State
25413
25414            return
25415              AMF.Internals.Holders.UML_Holders.To_Holder
25416               (AMF.UML.States.UML_State_Access'
25417                 (AMF.UML.Final_States.UML_Final_State_Access
25418                   (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_State));
25419
25420         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
25421            --  RedefinableElement::redefinitionContext : Classifier
25422
25423            return
25424              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
25425               (AMF.UML.Final_States.UML_Final_State_Access
25426                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
25427
25428         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Redefinition_Context_A_State then
25429            --  State::redefinitionContext : Classifier
25430
25431            return
25432              AMF.Internals.Holders.UML_Holders.To_Holder
25433               (AMF.UML.Classifiers.UML_Classifier_Access'
25434                 (AMF.UML.Final_States.UML_Final_State_Access
25435                   (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context));
25436
25437         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Region_Region_State then
25438            --  State::region : Region
25439
25440            return
25441              AMF.UML.Regions.Collections.UML_Region_Collections.Internals.To_Holder
25442               (AMF.UML.Final_States.UML_Final_State_Access
25443                 (AMF.Internals.Helpers.To_Element (Self)).Get_Region);
25444
25445         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_State_Invariant_A_Owning_State then
25446            --  State::stateInvariant : Constraint
25447
25448            return
25449              AMF.Internals.Holders.UML_Holders.To_Holder
25450               (AMF.UML.Constraints.UML_Constraint_Access'
25451                 (AMF.UML.Final_States.UML_Final_State_Access
25452                   (AMF.Internals.Helpers.To_Element (Self)).Get_State_Invariant));
25453
25454         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Submachine_State_Machine_Submachine_State then
25455            --  State::submachine : StateMachine
25456
25457            return
25458              AMF.Internals.Holders.UML_Holders.To_Holder
25459               (AMF.UML.State_Machines.UML_State_Machine_Access'
25460                 (AMF.UML.Final_States.UML_Final_State_Access
25461                   (AMF.Internals.Helpers.To_Element (Self)).Get_Submachine));
25462
25463         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
25464            --  NamedElement::visibility : VisibilityKind
25465
25466            return
25467              AMF.UML.Holders.To_Holder
25468               (AMF.UML.Final_States.UML_Final_State_Access
25469                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
25470
25471         else
25472            raise Program_Error;
25473         end if;
25474      end UML_Final_State_Get;
25475
25476      -----------------------------
25477      -- UML_Flow_Final_Node_Get --
25478      -----------------------------
25479
25480      function UML_Flow_Final_Node_Get return League.Holders.Holder is
25481      begin
25482         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
25483            --  ActivityNode::activity : Activity
25484
25485            return
25486              AMF.Internals.Holders.UML_Holders.To_Holder
25487               (AMF.UML.Activities.UML_Activity_Access'
25488                 (AMF.UML.Flow_Final_Nodes.UML_Flow_Final_Node_Access
25489                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
25490
25491         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
25492            --  NamedElement::clientDependency : Dependency
25493
25494            return
25495              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
25496               (AMF.UML.Flow_Final_Nodes.UML_Flow_Final_Node_Access
25497                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
25498
25499         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
25500            --  ActivityNode::inGroup : ActivityGroup
25501
25502            return
25503              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
25504               (AMF.UML.Flow_Final_Nodes.UML_Flow_Final_Node_Access
25505                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
25506
25507         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
25508            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
25509
25510            return
25511              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
25512               (AMF.UML.Flow_Final_Nodes.UML_Flow_Final_Node_Access
25513                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
25514
25515         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
25516            --  ActivityNode::inPartition : ActivityPartition
25517
25518            return
25519              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
25520               (AMF.UML.Flow_Final_Nodes.UML_Flow_Final_Node_Access
25521                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
25522
25523         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
25524            --  ActivityNode::inStructuredNode : StructuredActivityNode
25525
25526            return
25527              AMF.Internals.Holders.UML_Holders.To_Holder
25528               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
25529                 (AMF.UML.Flow_Final_Nodes.UML_Flow_Final_Node_Access
25530                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
25531
25532         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
25533            --  ActivityNode::incoming : ActivityEdge
25534
25535            return
25536              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
25537               (AMF.UML.Flow_Final_Nodes.UML_Flow_Final_Node_Access
25538                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
25539
25540         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
25541            --  RedefinableElement::isLeaf : Boolean
25542
25543            return
25544              League.Holders.Booleans.To_Holder
25545               (AMF.UML.Flow_Final_Nodes.UML_Flow_Final_Node_Access
25546                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
25547
25548         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
25549            --  NamedElement::name : String
25550
25551            return
25552              AMF.Holders.To_Holder
25553               (AMF.UML.Flow_Final_Nodes.UML_Flow_Final_Node_Access
25554                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
25555
25556         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
25557            --  NamedElement::nameExpression : StringExpression
25558
25559            return
25560              AMF.Internals.Holders.UML_Holders.To_Holder
25561               (AMF.UML.String_Expressions.UML_String_Expression_Access'
25562                 (AMF.UML.Flow_Final_Nodes.UML_Flow_Final_Node_Access
25563                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
25564
25565         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
25566            --  NamedElement::namespace : Namespace
25567
25568            return
25569              AMF.Internals.Holders.UML_Holders.To_Holder
25570               (AMF.UML.Namespaces.UML_Namespace_Access'
25571                 (AMF.UML.Flow_Final_Nodes.UML_Flow_Final_Node_Access
25572                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
25573
25574         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
25575            --  ActivityNode::outgoing : ActivityEdge
25576
25577            return
25578              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
25579               (AMF.UML.Flow_Final_Nodes.UML_Flow_Final_Node_Access
25580                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
25581
25582         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
25583            --  Element::ownedComment : Comment
25584
25585            return
25586              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
25587               (AMF.UML.Flow_Final_Nodes.UML_Flow_Final_Node_Access
25588                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
25589
25590         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
25591            --  Element::ownedElement : Element
25592
25593            return
25594              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
25595               (AMF.UML.Flow_Final_Nodes.UML_Flow_Final_Node_Access
25596                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
25597
25598         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
25599            --  Element::owner : Element
25600
25601            return
25602              AMF.Internals.Holders.UML_Holders.To_Holder
25603               (AMF.UML.Elements.UML_Element_Access'
25604                 (AMF.UML.Flow_Final_Nodes.UML_Flow_Final_Node_Access
25605                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
25606
25607         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
25608            --  NamedElement::qualifiedName : String
25609
25610            return
25611              AMF.Holders.To_Holder
25612               (AMF.UML.Flow_Final_Nodes.UML_Flow_Final_Node_Access
25613                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
25614
25615         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
25616            --  RedefinableElement::redefinedElement : RedefinableElement
25617
25618            return
25619              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
25620               (AMF.UML.Flow_Final_Nodes.UML_Flow_Final_Node_Access
25621                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
25622
25623         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
25624            --  ActivityNode::redefinedNode : ActivityNode
25625
25626            return
25627              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
25628               (AMF.UML.Flow_Final_Nodes.UML_Flow_Final_Node_Access
25629                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
25630
25631         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
25632            --  RedefinableElement::redefinitionContext : Classifier
25633
25634            return
25635              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
25636               (AMF.UML.Flow_Final_Nodes.UML_Flow_Final_Node_Access
25637                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
25638
25639         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
25640            --  NamedElement::visibility : VisibilityKind
25641
25642            return
25643              AMF.UML.Holders.To_Holder
25644               (AMF.UML.Flow_Final_Nodes.UML_Flow_Final_Node_Access
25645                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
25646
25647         else
25648            raise Program_Error;
25649         end if;
25650      end UML_Flow_Final_Node_Get;
25651
25652      -----------------------
25653      -- UML_Fork_Node_Get --
25654      -----------------------
25655
25656      function UML_Fork_Node_Get return League.Holders.Holder is
25657      begin
25658         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
25659            --  ActivityNode::activity : Activity
25660
25661            return
25662              AMF.Internals.Holders.UML_Holders.To_Holder
25663               (AMF.UML.Activities.UML_Activity_Access'
25664                 (AMF.UML.Fork_Nodes.UML_Fork_Node_Access
25665                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
25666
25667         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
25668            --  NamedElement::clientDependency : Dependency
25669
25670            return
25671              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
25672               (AMF.UML.Fork_Nodes.UML_Fork_Node_Access
25673                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
25674
25675         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
25676            --  ActivityNode::inGroup : ActivityGroup
25677
25678            return
25679              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
25680               (AMF.UML.Fork_Nodes.UML_Fork_Node_Access
25681                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
25682
25683         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
25684            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
25685
25686            return
25687              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
25688               (AMF.UML.Fork_Nodes.UML_Fork_Node_Access
25689                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
25690
25691         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
25692            --  ActivityNode::inPartition : ActivityPartition
25693
25694            return
25695              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
25696               (AMF.UML.Fork_Nodes.UML_Fork_Node_Access
25697                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
25698
25699         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
25700            --  ActivityNode::inStructuredNode : StructuredActivityNode
25701
25702            return
25703              AMF.Internals.Holders.UML_Holders.To_Holder
25704               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
25705                 (AMF.UML.Fork_Nodes.UML_Fork_Node_Access
25706                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
25707
25708         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
25709            --  ActivityNode::incoming : ActivityEdge
25710
25711            return
25712              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
25713               (AMF.UML.Fork_Nodes.UML_Fork_Node_Access
25714                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
25715
25716         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
25717            --  RedefinableElement::isLeaf : Boolean
25718
25719            return
25720              League.Holders.Booleans.To_Holder
25721               (AMF.UML.Fork_Nodes.UML_Fork_Node_Access
25722                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
25723
25724         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
25725            --  NamedElement::name : String
25726
25727            return
25728              AMF.Holders.To_Holder
25729               (AMF.UML.Fork_Nodes.UML_Fork_Node_Access
25730                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
25731
25732         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
25733            --  NamedElement::nameExpression : StringExpression
25734
25735            return
25736              AMF.Internals.Holders.UML_Holders.To_Holder
25737               (AMF.UML.String_Expressions.UML_String_Expression_Access'
25738                 (AMF.UML.Fork_Nodes.UML_Fork_Node_Access
25739                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
25740
25741         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
25742            --  NamedElement::namespace : Namespace
25743
25744            return
25745              AMF.Internals.Holders.UML_Holders.To_Holder
25746               (AMF.UML.Namespaces.UML_Namespace_Access'
25747                 (AMF.UML.Fork_Nodes.UML_Fork_Node_Access
25748                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
25749
25750         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
25751            --  ActivityNode::outgoing : ActivityEdge
25752
25753            return
25754              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
25755               (AMF.UML.Fork_Nodes.UML_Fork_Node_Access
25756                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
25757
25758         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
25759            --  Element::ownedComment : Comment
25760
25761            return
25762              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
25763               (AMF.UML.Fork_Nodes.UML_Fork_Node_Access
25764                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
25765
25766         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
25767            --  Element::ownedElement : Element
25768
25769            return
25770              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
25771               (AMF.UML.Fork_Nodes.UML_Fork_Node_Access
25772                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
25773
25774         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
25775            --  Element::owner : Element
25776
25777            return
25778              AMF.Internals.Holders.UML_Holders.To_Holder
25779               (AMF.UML.Elements.UML_Element_Access'
25780                 (AMF.UML.Fork_Nodes.UML_Fork_Node_Access
25781                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
25782
25783         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
25784            --  NamedElement::qualifiedName : String
25785
25786            return
25787              AMF.Holders.To_Holder
25788               (AMF.UML.Fork_Nodes.UML_Fork_Node_Access
25789                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
25790
25791         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
25792            --  RedefinableElement::redefinedElement : RedefinableElement
25793
25794            return
25795              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
25796               (AMF.UML.Fork_Nodes.UML_Fork_Node_Access
25797                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
25798
25799         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
25800            --  ActivityNode::redefinedNode : ActivityNode
25801
25802            return
25803              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
25804               (AMF.UML.Fork_Nodes.UML_Fork_Node_Access
25805                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
25806
25807         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
25808            --  RedefinableElement::redefinitionContext : Classifier
25809
25810            return
25811              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
25812               (AMF.UML.Fork_Nodes.UML_Fork_Node_Access
25813                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
25814
25815         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
25816            --  NamedElement::visibility : VisibilityKind
25817
25818            return
25819              AMF.UML.Holders.To_Holder
25820               (AMF.UML.Fork_Nodes.UML_Fork_Node_Access
25821                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
25822
25823         else
25824            raise Program_Error;
25825         end if;
25826      end UML_Fork_Node_Get;
25827
25828      -------------------------------
25829      -- UML_Function_Behavior_Get --
25830      -------------------------------
25831
25832      function UML_Function_Behavior_Get return League.Holders.Holder is
25833      begin
25834         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier then
25835            --  Classifier::attribute : Property
25836
25837            return
25838              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
25839               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
25840                 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute);
25841
25842         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Opaque_Behavior_Body then
25843            --  OpaqueBehavior::body : String
25844
25845            return
25846              AMF.String_Collections.Internals.To_Holder
25847               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
25848                 (AMF.Internals.Helpers.To_Element (Self)).Get_Body);
25849
25850         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
25851            --  BehavioredClassifier::classifierBehavior : Behavior
25852
25853            return
25854              AMF.Internals.Holders.UML_Holders.To_Holder
25855               (AMF.UML.Behaviors.UML_Behavior_Access'
25856                 (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
25857                   (AMF.Internals.Helpers.To_Element (Self)).Get_Classifier_Behavior));
25858
25859         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
25860            --  NamedElement::clientDependency : Dependency
25861
25862            return
25863              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
25864               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
25865                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
25866
25867         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier then
25868            --  Classifier::collaborationUse : CollaborationUse
25869
25870            return
25871              AMF.UML.Collaboration_Uses.Collections.UML_Collaboration_Use_Collections.Internals.To_Holder
25872               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
25873                 (AMF.Internals.Helpers.To_Element (Self)).Get_Collaboration_Use);
25874
25875         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Context_A_Behavior then
25876            --  Behavior::context : BehavioredClassifier
25877
25878            return
25879              AMF.Internals.Holders.UML_Holders.To_Holder
25880               (AMF.UML.Behaviored_Classifiers.UML_Behaviored_Classifier_Access'
25881                 (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
25882                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
25883
25884         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
25885            --  Namespace::elementImport : ElementImport
25886
25887            return
25888              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
25889               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
25890                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
25891
25892         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Extension_Extension_Metaclass then
25893            --  Class::extension : Extension
25894
25895            return
25896              AMF.UML.Extensions.Collections.UML_Extension_Collections.Internals.To_Holder
25897               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
25898                 (AMF.Internals.Helpers.To_Element (Self)).Get_Extension);
25899
25900         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier then
25901            --  Classifier::feature : Feature
25902
25903            return
25904              AMF.UML.Features.Collections.UML_Feature_Collections.Internals.To_Holder
25905               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
25906                 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature);
25907
25908         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier then
25909            --  Classifier::general : Classifier
25910
25911            return
25912              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
25913               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
25914                 (AMF.Internals.Helpers.To_Element (Self)).Get_General);
25915
25916         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific then
25917            --  Classifier::generalization : Generalization
25918
25919            return
25920              AMF.UML.Generalizations.Collections.UML_Generalization_Collections.Internals.To_Holder
25921               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
25922                 (AMF.Internals.Helpers.To_Element (Self)).Get_Generalization);
25923
25924         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
25925            --  Namespace::importedMember : PackageableElement
25926
25927            return
25928              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
25929               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
25930                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
25931
25932         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier then
25933            --  Classifier::inheritedMember : NamedElement
25934
25935            return
25936              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
25937               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
25938                 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member);
25939
25940         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier then
25941            --  BehavioredClassifier::interfaceRealization : InterfaceRealization
25942
25943            return
25944              AMF.UML.Interface_Realizations.Collections.UML_Interface_Realization_Collections.Internals.To_Holder
25945               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
25946                 (AMF.Internals.Helpers.To_Element (Self)).Get_Interface_Realization);
25947
25948         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Abstract then
25949            --  Class::isAbstract : Boolean
25950
25951            return
25952              League.Holders.Booleans.To_Holder
25953               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
25954                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
25955
25956         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
25957            --  Classifier::isAbstract : Boolean
25958
25959            return
25960              League.Holders.Booleans.To_Holder
25961               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
25962                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
25963
25964         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Active then
25965            --  Class::isActive : Boolean
25966
25967            return
25968              League.Holders.Booleans.To_Holder
25969               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
25970                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Active);
25971
25972         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
25973            --  Classifier::isFinalSpecialization : Boolean
25974
25975            return
25976              League.Holders.Booleans.To_Holder
25977               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
25978                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization);
25979
25980         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
25981            --  RedefinableElement::isLeaf : Boolean
25982
25983            return
25984              League.Holders.Booleans.To_Holder
25985               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
25986                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
25987
25988         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Is_Reentrant then
25989            --  Behavior::isReentrant : Boolean
25990
25991            return
25992              League.Holders.Booleans.To_Holder
25993               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
25994                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Reentrant);
25995
25996         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Opaque_Behavior_Language then
25997            --  OpaqueBehavior::language : String
25998
25999            return
26000              AMF.String_Collections.Internals.To_Holder
26001               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26002                 (AMF.Internals.Helpers.To_Element (Self)).Get_Language);
26003
26004         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
26005            --  Namespace::member : NamedElement
26006
26007            return
26008              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
26009               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26010                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
26011
26012         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
26013            --  NamedElement::name : String
26014
26015            return
26016              AMF.Holders.To_Holder
26017               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26018                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
26019
26020         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
26021            --  NamedElement::nameExpression : StringExpression
26022
26023            return
26024              AMF.Internals.Holders.UML_Holders.To_Holder
26025               (AMF.UML.String_Expressions.UML_String_Expression_Access'
26026                 (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26027                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
26028
26029         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
26030            --  NamedElement::namespace : Namespace
26031
26032            return
26033              AMF.Internals.Holders.UML_Holders.To_Holder
26034               (AMF.UML.Namespaces.UML_Namespace_Access'
26035                 (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26036                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
26037
26038         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Nested_Classifier_A_Class then
26039            --  Class::nestedClassifier : Classifier
26040
26041            return
26042              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
26043               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26044                 (AMF.Internals.Helpers.To_Element (Self)).Get_Nested_Classifier);
26045
26046         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Attribute_Property_Class then
26047            --  Class::ownedAttribute : Property
26048
26049            return
26050              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
26051               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26052                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
26053
26054         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Attribute_A_Structured_Classifier then
26055            --  StructuredClassifier::ownedAttribute : Property
26056
26057            return
26058              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
26059               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26060                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
26061
26062         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier then
26063            --  BehavioredClassifier::ownedBehavior : Behavior
26064
26065            return
26066              AMF.UML.Behaviors.Collections.UML_Behavior_Collections.Internals.To_Holder
26067               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26068                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Behavior);
26069
26070         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
26071            --  Element::ownedComment : Comment
26072
26073            return
26074              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
26075               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26076                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
26077
26078         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Connector_A_Structured_Classifier then
26079            --  StructuredClassifier::ownedConnector : Connector
26080
26081            return
26082              AMF.UML.Connectors.Collections.UML_Connector_Collections.Internals.To_Holder
26083               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26084                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Connector);
26085
26086         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
26087            --  Element::ownedElement : Element
26088
26089            return
26090              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
26091               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26092                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
26093
26094         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
26095            --  Namespace::ownedMember : NamedElement
26096
26097            return
26098              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
26099               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26100                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
26101
26102         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Operation_Operation_Class then
26103            --  Class::ownedOperation : Operation
26104
26105            return
26106              AMF.UML.Operations.Collections.UML_Operation_Collections.Internals.To_Holder
26107               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26108                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Operation);
26109
26110         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Owned_Parameter_A_Behavior then
26111            --  Behavior::ownedParameter : Parameter
26112
26113            return
26114              AMF.UML.Parameters.Collections.UML_Parameter_Collections.Internals.To_Holder
26115               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26116                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Parameter);
26117
26118         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Owned_Parameter_Set_A_Behavior then
26119            --  Behavior::ownedParameterSet : ParameterSet
26120
26121            return
26122              AMF.UML.Parameter_Sets.Collections.UML_Parameter_Set_Collections.Internals.To_Holder
26123               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26124                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Parameter_Set);
26125
26126         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Encapsulated_Classifier_Owned_Port_A_Encapsulated_Classifier then
26127            --  EncapsulatedClassifier::ownedPort : Port
26128
26129            return
26130              AMF.UML.Ports.Collections.UML_Port_Collections.Internals.To_Holder
26131               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26132                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Port);
26133
26134         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Reception_A_Class then
26135            --  Class::ownedReception : Reception
26136
26137            return
26138              AMF.UML.Receptions.Collections.UML_Reception_Collections.Internals.To_Holder
26139               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26140                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Reception);
26141
26142         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
26143            --  Namespace::ownedRule : Constraint
26144
26145            return
26146              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
26147               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26148                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
26149
26150         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
26151            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
26152
26153            return
26154              AMF.Internals.Holders.UML_Holders.To_Holder
26155               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access'
26156                 (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26157                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
26158
26159         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
26160            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
26161
26162            return
26163              AMF.Internals.Holders.UML_Holders.To_Holder
26164               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
26165                 (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26166                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
26167
26168         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier then
26169            --  Classifier::ownedUseCase : UseCase
26170
26171            return
26172              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
26173               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26174                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Use_Case);
26175
26176         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
26177            --  Element::owner : Element
26178
26179            return
26180              AMF.Internals.Holders.UML_Holders.To_Holder
26181               (AMF.UML.Elements.UML_Element_Access'
26182                 (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26183                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
26184
26185         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
26186            --  ParameterableElement::owningTemplateParameter : TemplateParameter
26187
26188            return
26189              AMF.Internals.Holders.UML_Holders.To_Holder
26190               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
26191                 (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26192                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
26193
26194         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
26195            --  Type::package : Package
26196
26197            return
26198              AMF.Internals.Holders.UML_Holders.To_Holder
26199               (AMF.UML.Packages.UML_Package_Access'
26200                 (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26201                   (AMF.Internals.Helpers.To_Element (Self)).Get_Package));
26202
26203         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
26204            --  Namespace::packageImport : PackageImport
26205
26206            return
26207              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
26208               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26209                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
26210
26211         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Part_A_Structured_Classifier then
26212            --  StructuredClassifier::part : Property
26213
26214            return
26215              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
26216               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26217                 (AMF.Internals.Helpers.To_Element (Self)).Get_Part);
26218
26219         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Postcondition_A_Behavior then
26220            --  Behavior::postcondition : Constraint
26221
26222            return
26223              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
26224               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26225                 (AMF.Internals.Helpers.To_Element (Self)).Get_Postcondition);
26226
26227         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype then
26228            --  Classifier::powertypeExtent : GeneralizationSet
26229
26230            return
26231              AMF.UML.Generalization_Sets.Collections.UML_Generalization_Set_Collections.Internals.To_Holder
26232               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26233                 (AMF.Internals.Helpers.To_Element (Self)).Get_Powertype_Extent);
26234
26235         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Precondition_A_Behavior then
26236            --  Behavior::precondition : Constraint
26237
26238            return
26239              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
26240               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26241                 (AMF.Internals.Helpers.To_Element (Self)).Get_Precondition);
26242
26243         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
26244            --  NamedElement::qualifiedName : String
26245
26246            return
26247              AMF.Holders.To_Holder
26248               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26249                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
26250
26251         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Redefined_Behavior_A_Behavior then
26252            --  Behavior::redefinedBehavior : Behavior
26253
26254            return
26255              AMF.UML.Behaviors.Collections.UML_Behavior_Collections.Internals.To_Holder
26256               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26257                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Behavior);
26258
26259         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier then
26260            --  Classifier::redefinedClassifier : Classifier
26261
26262            return
26263              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
26264               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26265                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Classifier);
26266
26267         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
26268            --  RedefinableElement::redefinedElement : RedefinableElement
26269
26270            return
26271              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
26272               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26273                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
26274
26275         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
26276            --  RedefinableElement::redefinitionContext : Classifier
26277
26278            return
26279              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
26280               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26281                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
26282
26283         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
26284            --  Classifier::representation : CollaborationUse
26285
26286            return
26287              AMF.Internals.Holders.UML_Holders.To_Holder
26288               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access'
26289                 (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26290                   (AMF.Internals.Helpers.To_Element (Self)).Get_Representation));
26291
26292         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Role_A_Structured_Classifier then
26293            --  StructuredClassifier::role : ConnectableElement
26294
26295            return
26296              AMF.UML.Connectable_Elements.Collections.UML_Connectable_Element_Collections.Internals.To_Holder
26297               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26298                 (AMF.Internals.Helpers.To_Element (Self)).Get_Role);
26299
26300         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Specification_Behavioral_Feature_Method then
26301            --  Behavior::specification : BehavioralFeature
26302
26303            return
26304              AMF.Internals.Holders.UML_Holders.To_Holder
26305               (AMF.UML.Behavioral_Features.UML_Behavioral_Feature_Access'
26306                 (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26307                   (AMF.Internals.Helpers.To_Element (Self)).Get_Specification));
26308
26309         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier then
26310            --  Classifier::substitution : Substitution
26311
26312            return
26313              AMF.UML.Substitutions.Collections.UML_Substitution_Collections.Internals.To_Holder
26314               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26315                 (AMF.Internals.Helpers.To_Element (Self)).Get_Substitution);
26316
26317         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Super_Class_A_Class then
26318            --  Class::superClass : Class
26319
26320            return
26321              AMF.UML.Classes.Collections.UML_Class_Collections.Internals.To_Holder
26322               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26323                 (AMF.Internals.Helpers.To_Element (Self)).Get_Super_Class);
26324
26325         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
26326            --  TemplateableElement::templateBinding : TemplateBinding
26327
26328            return
26329              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
26330               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26331                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
26332
26333         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
26334            --  Classifier::templateParameter : ClassifierTemplateParameter
26335
26336            return
26337              AMF.Internals.Holders.UML_Holders.To_Holder
26338               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access'
26339                 (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26340                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
26341
26342         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
26343            --  ParameterableElement::templateParameter : TemplateParameter
26344
26345            return
26346              AMF.Internals.Holders.UML_Holders.To_Holder
26347               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
26348                 (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26349                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
26350
26351         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject then
26352            --  Classifier::useCase : UseCase
26353
26354            return
26355              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
26356               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26357                 (AMF.Internals.Helpers.To_Element (Self)).Get_Use_Case);
26358
26359         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
26360            --  NamedElement::visibility : VisibilityKind
26361
26362            return
26363              AMF.UML.Holders.To_Holder
26364               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26365                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
26366
26367         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
26368            --  PackageableElement::visibility : VisibilityKind
26369
26370            return
26371              AMF.UML.Holders.Visibility_Kinds.To_Holder
26372               (AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
26373                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
26374
26375         else
26376            raise Program_Error;
26377         end if;
26378      end UML_Function_Behavior_Get;
26379
26380      ------------------
26381      -- UML_Gate_Get --
26382      ------------------
26383
26384      function UML_Gate_Get return League.Holders.Holder is
26385      begin
26386         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
26387            --  NamedElement::clientDependency : Dependency
26388
26389            return
26390              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
26391               (AMF.UML.Gates.UML_Gate_Access
26392                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
26393
26394         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Message_End_Message_A_Message_End then
26395            --  MessageEnd::message : Message
26396
26397            return
26398              AMF.Internals.Holders.UML_Holders.To_Holder
26399               (AMF.UML.Messages.UML_Message_Access'
26400                 (AMF.UML.Gates.UML_Gate_Access
26401                   (AMF.Internals.Helpers.To_Element (Self)).Get_Message));
26402
26403         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
26404            --  NamedElement::name : String
26405
26406            return
26407              AMF.Holders.To_Holder
26408               (AMF.UML.Gates.UML_Gate_Access
26409                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
26410
26411         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
26412            --  NamedElement::nameExpression : StringExpression
26413
26414            return
26415              AMF.Internals.Holders.UML_Holders.To_Holder
26416               (AMF.UML.String_Expressions.UML_String_Expression_Access'
26417                 (AMF.UML.Gates.UML_Gate_Access
26418                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
26419
26420         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
26421            --  NamedElement::namespace : Namespace
26422
26423            return
26424              AMF.Internals.Holders.UML_Holders.To_Holder
26425               (AMF.UML.Namespaces.UML_Namespace_Access'
26426                 (AMF.UML.Gates.UML_Gate_Access
26427                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
26428
26429         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
26430            --  Element::ownedComment : Comment
26431
26432            return
26433              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
26434               (AMF.UML.Gates.UML_Gate_Access
26435                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
26436
26437         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
26438            --  Element::ownedElement : Element
26439
26440            return
26441              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
26442               (AMF.UML.Gates.UML_Gate_Access
26443                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
26444
26445         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
26446            --  Element::owner : Element
26447
26448            return
26449              AMF.Internals.Holders.UML_Holders.To_Holder
26450               (AMF.UML.Elements.UML_Element_Access'
26451                 (AMF.UML.Gates.UML_Gate_Access
26452                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
26453
26454         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
26455            --  NamedElement::qualifiedName : String
26456
26457            return
26458              AMF.Holders.To_Holder
26459               (AMF.UML.Gates.UML_Gate_Access
26460                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
26461
26462         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
26463            --  NamedElement::visibility : VisibilityKind
26464
26465            return
26466              AMF.UML.Holders.To_Holder
26467               (AMF.UML.Gates.UML_Gate_Access
26468                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
26469
26470         else
26471            raise Program_Error;
26472         end if;
26473      end UML_Gate_Get;
26474
26475      ------------------------------
26476      -- UML_General_Ordering_Get --
26477      ------------------------------
26478
26479      function UML_General_Ordering_Get return League.Holders.Holder is
26480      begin
26481         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_General_Ordering_After_Occurrence_Specification_To_Before then
26482            --  GeneralOrdering::after : OccurrenceSpecification
26483
26484            return
26485              AMF.Internals.Holders.UML_Holders.To_Holder
26486               (AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access'
26487                 (AMF.UML.General_Orderings.UML_General_Ordering_Access
26488                   (AMF.Internals.Helpers.To_Element (Self)).Get_After));
26489
26490         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_General_Ordering_Before_Occurrence_Specification_To_After then
26491            --  GeneralOrdering::before : OccurrenceSpecification
26492
26493            return
26494              AMF.Internals.Holders.UML_Holders.To_Holder
26495               (AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access'
26496                 (AMF.UML.General_Orderings.UML_General_Ordering_Access
26497                   (AMF.Internals.Helpers.To_Element (Self)).Get_Before));
26498
26499         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
26500            --  NamedElement::clientDependency : Dependency
26501
26502            return
26503              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
26504               (AMF.UML.General_Orderings.UML_General_Ordering_Access
26505                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
26506
26507         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
26508            --  NamedElement::name : String
26509
26510            return
26511              AMF.Holders.To_Holder
26512               (AMF.UML.General_Orderings.UML_General_Ordering_Access
26513                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
26514
26515         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
26516            --  NamedElement::nameExpression : StringExpression
26517
26518            return
26519              AMF.Internals.Holders.UML_Holders.To_Holder
26520               (AMF.UML.String_Expressions.UML_String_Expression_Access'
26521                 (AMF.UML.General_Orderings.UML_General_Ordering_Access
26522                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
26523
26524         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
26525            --  NamedElement::namespace : Namespace
26526
26527            return
26528              AMF.Internals.Holders.UML_Holders.To_Holder
26529               (AMF.UML.Namespaces.UML_Namespace_Access'
26530                 (AMF.UML.General_Orderings.UML_General_Ordering_Access
26531                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
26532
26533         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
26534            --  Element::ownedComment : Comment
26535
26536            return
26537              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
26538               (AMF.UML.General_Orderings.UML_General_Ordering_Access
26539                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
26540
26541         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
26542            --  Element::ownedElement : Element
26543
26544            return
26545              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
26546               (AMF.UML.General_Orderings.UML_General_Ordering_Access
26547                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
26548
26549         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
26550            --  Element::owner : Element
26551
26552            return
26553              AMF.Internals.Holders.UML_Holders.To_Holder
26554               (AMF.UML.Elements.UML_Element_Access'
26555                 (AMF.UML.General_Orderings.UML_General_Ordering_Access
26556                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
26557
26558         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
26559            --  NamedElement::qualifiedName : String
26560
26561            return
26562              AMF.Holders.To_Holder
26563               (AMF.UML.General_Orderings.UML_General_Ordering_Access
26564                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
26565
26566         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
26567            --  NamedElement::visibility : VisibilityKind
26568
26569            return
26570              AMF.UML.Holders.To_Holder
26571               (AMF.UML.General_Orderings.UML_General_Ordering_Access
26572                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
26573
26574         else
26575            raise Program_Error;
26576         end if;
26577      end UML_General_Ordering_Get;
26578
26579      ----------------------------
26580      -- UML_Generalization_Get --
26581      ----------------------------
26582
26583      function UML_Generalization_Get return League.Holders.Holder is
26584      begin
26585         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Generalization_General_A_Generalization then
26586            --  Generalization::general : Classifier
26587
26588            return
26589              AMF.Internals.Holders.UML_Holders.To_Holder
26590               (AMF.UML.Classifiers.UML_Classifier_Access'
26591                 (AMF.UML.Generalizations.UML_Generalization_Access
26592                   (AMF.Internals.Helpers.To_Element (Self)).Get_General));
26593
26594         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Generalization_Generalization_Set_Generalization_Set_Generalization then
26595            --  Generalization::generalizationSet : GeneralizationSet
26596
26597            return
26598              AMF.UML.Generalization_Sets.Collections.UML_Generalization_Set_Collections.Internals.To_Holder
26599               (AMF.UML.Generalizations.UML_Generalization_Access
26600                 (AMF.Internals.Helpers.To_Element (Self)).Get_Generalization_Set);
26601
26602         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Generalization_Is_Substitutable then
26603            --  Generalization::isSubstitutable : Boolean
26604
26605            return
26606              AMF.Holders.To_Holder
26607               (AMF.UML.Generalizations.UML_Generalization_Access
26608                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Substitutable);
26609
26610         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
26611            --  Element::ownedComment : Comment
26612
26613            return
26614              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
26615               (AMF.UML.Generalizations.UML_Generalization_Access
26616                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
26617
26618         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
26619            --  Element::ownedElement : Element
26620
26621            return
26622              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
26623               (AMF.UML.Generalizations.UML_Generalization_Access
26624                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
26625
26626         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
26627            --  Element::owner : Element
26628
26629            return
26630              AMF.Internals.Holders.UML_Holders.To_Holder
26631               (AMF.UML.Elements.UML_Element_Access'
26632                 (AMF.UML.Generalizations.UML_Generalization_Access
26633                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
26634
26635         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship then
26636            --  Relationship::relatedElement : Element
26637
26638            return
26639              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
26640               (AMF.UML.Generalizations.UML_Generalization_Access
26641                 (AMF.Internals.Helpers.To_Element (Self)).Get_Related_Element);
26642
26643         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship then
26644            --  DirectedRelationship::source : Element
26645
26646            return
26647              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
26648               (AMF.UML.Generalizations.UML_Generalization_Access
26649                 (AMF.Internals.Helpers.To_Element (Self)).Get_Source);
26650
26651         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Generalization_Specific_Classifier_Generalization then
26652            --  Generalization::specific : Classifier
26653
26654            return
26655              AMF.Internals.Holders.UML_Holders.To_Holder
26656               (AMF.UML.Classifiers.UML_Classifier_Access'
26657                 (AMF.UML.Generalizations.UML_Generalization_Access
26658                   (AMF.Internals.Helpers.To_Element (Self)).Get_Specific));
26659
26660         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship then
26661            --  DirectedRelationship::target : Element
26662
26663            return
26664              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
26665               (AMF.UML.Generalizations.UML_Generalization_Access
26666                 (AMF.Internals.Helpers.To_Element (Self)).Get_Target);
26667
26668         else
26669            raise Program_Error;
26670         end if;
26671      end UML_Generalization_Get;
26672
26673      --------------------------------
26674      -- UML_Generalization_Set_Get --
26675      --------------------------------
26676
26677      function UML_Generalization_Set_Get return League.Holders.Holder is
26678      begin
26679         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
26680            --  NamedElement::clientDependency : Dependency
26681
26682            return
26683              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
26684               (AMF.UML.Generalization_Sets.UML_Generalization_Set_Access
26685                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
26686
26687         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Generalization_Set_Generalization_Generalization_Generalization_Set then
26688            --  GeneralizationSet::generalization : Generalization
26689
26690            return
26691              AMF.UML.Generalizations.Collections.UML_Generalization_Collections.Internals.To_Holder
26692               (AMF.UML.Generalization_Sets.UML_Generalization_Set_Access
26693                 (AMF.Internals.Helpers.To_Element (Self)).Get_Generalization);
26694
26695         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Generalization_Set_Is_Covering then
26696            --  GeneralizationSet::isCovering : Boolean
26697
26698            return
26699              League.Holders.Booleans.To_Holder
26700               (AMF.UML.Generalization_Sets.UML_Generalization_Set_Access
26701                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Covering);
26702
26703         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Generalization_Set_Is_Disjoint then
26704            --  GeneralizationSet::isDisjoint : Boolean
26705
26706            return
26707              League.Holders.Booleans.To_Holder
26708               (AMF.UML.Generalization_Sets.UML_Generalization_Set_Access
26709                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Disjoint);
26710
26711         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
26712            --  NamedElement::name : String
26713
26714            return
26715              AMF.Holders.To_Holder
26716               (AMF.UML.Generalization_Sets.UML_Generalization_Set_Access
26717                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
26718
26719         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
26720            --  NamedElement::nameExpression : StringExpression
26721
26722            return
26723              AMF.Internals.Holders.UML_Holders.To_Holder
26724               (AMF.UML.String_Expressions.UML_String_Expression_Access'
26725                 (AMF.UML.Generalization_Sets.UML_Generalization_Set_Access
26726                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
26727
26728         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
26729            --  NamedElement::namespace : Namespace
26730
26731            return
26732              AMF.Internals.Holders.UML_Holders.To_Holder
26733               (AMF.UML.Namespaces.UML_Namespace_Access'
26734                 (AMF.UML.Generalization_Sets.UML_Generalization_Set_Access
26735                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
26736
26737         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
26738            --  Element::ownedComment : Comment
26739
26740            return
26741              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
26742               (AMF.UML.Generalization_Sets.UML_Generalization_Set_Access
26743                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
26744
26745         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
26746            --  Element::ownedElement : Element
26747
26748            return
26749              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
26750               (AMF.UML.Generalization_Sets.UML_Generalization_Set_Access
26751                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
26752
26753         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
26754            --  Element::owner : Element
26755
26756            return
26757              AMF.Internals.Holders.UML_Holders.To_Holder
26758               (AMF.UML.Elements.UML_Element_Access'
26759                 (AMF.UML.Generalization_Sets.UML_Generalization_Set_Access
26760                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
26761
26762         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
26763            --  ParameterableElement::owningTemplateParameter : TemplateParameter
26764
26765            return
26766              AMF.Internals.Holders.UML_Holders.To_Holder
26767               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
26768                 (AMF.UML.Generalization_Sets.UML_Generalization_Set_Access
26769                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
26770
26771         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Generalization_Set_Powertype_Classifier_Powertype_Extent then
26772            --  GeneralizationSet::powertype : Classifier
26773
26774            return
26775              AMF.Internals.Holders.UML_Holders.To_Holder
26776               (AMF.UML.Classifiers.UML_Classifier_Access'
26777                 (AMF.UML.Generalization_Sets.UML_Generalization_Set_Access
26778                   (AMF.Internals.Helpers.To_Element (Self)).Get_Powertype));
26779
26780         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
26781            --  NamedElement::qualifiedName : String
26782
26783            return
26784              AMF.Holders.To_Holder
26785               (AMF.UML.Generalization_Sets.UML_Generalization_Set_Access
26786                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
26787
26788         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
26789            --  ParameterableElement::templateParameter : TemplateParameter
26790
26791            return
26792              AMF.Internals.Holders.UML_Holders.To_Holder
26793               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
26794                 (AMF.UML.Generalization_Sets.UML_Generalization_Set_Access
26795                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
26796
26797         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
26798            --  NamedElement::visibility : VisibilityKind
26799
26800            return
26801              AMF.UML.Holders.To_Holder
26802               (AMF.UML.Generalization_Sets.UML_Generalization_Set_Access
26803                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
26804
26805         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
26806            --  PackageableElement::visibility : VisibilityKind
26807
26808            return
26809              AMF.UML.Holders.Visibility_Kinds.To_Holder
26810               (AMF.UML.Generalization_Sets.UML_Generalization_Set_Access
26811                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
26812
26813         else
26814            raise Program_Error;
26815         end if;
26816      end UML_Generalization_Set_Get;
26817
26818      -------------------
26819      -- UML_Image_Get --
26820      -------------------
26821
26822      function UML_Image_Get return League.Holders.Holder is
26823      begin
26824         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Image_Content then
26825            --  Image::content : String
26826
26827            return
26828              AMF.Holders.To_Holder
26829               (AMF.UML.Images.UML_Image_Access
26830                 (AMF.Internals.Helpers.To_Element (Self)).Get_Content);
26831
26832         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Image_Format then
26833            --  Image::format : String
26834
26835            return
26836              AMF.Holders.To_Holder
26837               (AMF.UML.Images.UML_Image_Access
26838                 (AMF.Internals.Helpers.To_Element (Self)).Get_Format);
26839
26840         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Image_Location then
26841            --  Image::location : String
26842
26843            return
26844              AMF.Holders.To_Holder
26845               (AMF.UML.Images.UML_Image_Access
26846                 (AMF.Internals.Helpers.To_Element (Self)).Get_Location);
26847
26848         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
26849            --  Element::ownedComment : Comment
26850
26851            return
26852              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
26853               (AMF.UML.Images.UML_Image_Access
26854                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
26855
26856         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
26857            --  Element::ownedElement : Element
26858
26859            return
26860              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
26861               (AMF.UML.Images.UML_Image_Access
26862                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
26863
26864         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
26865            --  Element::owner : Element
26866
26867            return
26868              AMF.Internals.Holders.UML_Holders.To_Holder
26869               (AMF.UML.Elements.UML_Element_Access'
26870                 (AMF.UML.Images.UML_Image_Access
26871                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
26872
26873         else
26874            raise Program_Error;
26875         end if;
26876      end UML_Image_Get;
26877
26878      ---------------------
26879      -- UML_Include_Get --
26880      ---------------------
26881
26882      function UML_Include_Get return League.Holders.Holder is
26883      begin
26884         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Include_Addition_A_Include then
26885            --  Include::addition : UseCase
26886
26887            return
26888              AMF.Internals.Holders.UML_Holders.To_Holder
26889               (AMF.UML.Use_Cases.UML_Use_Case_Access'
26890                 (AMF.UML.Includes.UML_Include_Access
26891                   (AMF.Internals.Helpers.To_Element (Self)).Get_Addition));
26892
26893         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
26894            --  NamedElement::clientDependency : Dependency
26895
26896            return
26897              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
26898               (AMF.UML.Includes.UML_Include_Access
26899                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
26900
26901         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Include_Including_Case_Use_Case_Include then
26902            --  Include::includingCase : UseCase
26903
26904            return
26905              AMF.Internals.Holders.UML_Holders.To_Holder
26906               (AMF.UML.Use_Cases.UML_Use_Case_Access'
26907                 (AMF.UML.Includes.UML_Include_Access
26908                   (AMF.Internals.Helpers.To_Element (Self)).Get_Including_Case));
26909
26910         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
26911            --  NamedElement::name : String
26912
26913            return
26914              AMF.Holders.To_Holder
26915               (AMF.UML.Includes.UML_Include_Access
26916                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
26917
26918         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
26919            --  NamedElement::nameExpression : StringExpression
26920
26921            return
26922              AMF.Internals.Holders.UML_Holders.To_Holder
26923               (AMF.UML.String_Expressions.UML_String_Expression_Access'
26924                 (AMF.UML.Includes.UML_Include_Access
26925                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
26926
26927         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
26928            --  NamedElement::namespace : Namespace
26929
26930            return
26931              AMF.Internals.Holders.UML_Holders.To_Holder
26932               (AMF.UML.Namespaces.UML_Namespace_Access'
26933                 (AMF.UML.Includes.UML_Include_Access
26934                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
26935
26936         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
26937            --  Element::ownedComment : Comment
26938
26939            return
26940              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
26941               (AMF.UML.Includes.UML_Include_Access
26942                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
26943
26944         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
26945            --  Element::ownedElement : Element
26946
26947            return
26948              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
26949               (AMF.UML.Includes.UML_Include_Access
26950                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
26951
26952         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
26953            --  Element::owner : Element
26954
26955            return
26956              AMF.Internals.Holders.UML_Holders.To_Holder
26957               (AMF.UML.Elements.UML_Element_Access'
26958                 (AMF.UML.Includes.UML_Include_Access
26959                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
26960
26961         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
26962            --  NamedElement::qualifiedName : String
26963
26964            return
26965              AMF.Holders.To_Holder
26966               (AMF.UML.Includes.UML_Include_Access
26967                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
26968
26969         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship then
26970            --  Relationship::relatedElement : Element
26971
26972            return
26973              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
26974               (AMF.UML.Includes.UML_Include_Access
26975                 (AMF.Internals.Helpers.To_Element (Self)).Get_Related_Element);
26976
26977         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship then
26978            --  DirectedRelationship::source : Element
26979
26980            return
26981              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
26982               (AMF.UML.Includes.UML_Include_Access
26983                 (AMF.Internals.Helpers.To_Element (Self)).Get_Source);
26984
26985         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship then
26986            --  DirectedRelationship::target : Element
26987
26988            return
26989              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
26990               (AMF.UML.Includes.UML_Include_Access
26991                 (AMF.Internals.Helpers.To_Element (Self)).Get_Target);
26992
26993         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
26994            --  NamedElement::visibility : VisibilityKind
26995
26996            return
26997              AMF.UML.Holders.To_Holder
26998               (AMF.UML.Includes.UML_Include_Access
26999                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
27000
27001         else
27002            raise Program_Error;
27003         end if;
27004      end UML_Include_Get;
27005
27006      ------------------------------
27007      -- UML_Information_Flow_Get --
27008      ------------------------------
27009
27010      function UML_Information_Flow_Get return League.Holders.Holder is
27011      begin
27012         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
27013            --  NamedElement::clientDependency : Dependency
27014
27015            return
27016              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
27017               (AMF.UML.Information_Flows.UML_Information_Flow_Access
27018                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
27019
27020         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Information_Flow_Conveyed_A_Information_Flow then
27021            --  InformationFlow::conveyed : Classifier
27022
27023            return
27024              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
27025               (AMF.UML.Information_Flows.UML_Information_Flow_Access
27026                 (AMF.Internals.Helpers.To_Element (Self)).Get_Conveyed);
27027
27028         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Information_Flow_Information_Source_A_Information_Flow then
27029            --  InformationFlow::informationSource : NamedElement
27030
27031            return
27032              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
27033               (AMF.UML.Information_Flows.UML_Information_Flow_Access
27034                 (AMF.Internals.Helpers.To_Element (Self)).Get_Information_Source);
27035
27036         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Information_Flow_Information_Target_A_Information_Flow then
27037            --  InformationFlow::informationTarget : NamedElement
27038
27039            return
27040              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
27041               (AMF.UML.Information_Flows.UML_Information_Flow_Access
27042                 (AMF.Internals.Helpers.To_Element (Self)).Get_Information_Target);
27043
27044         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
27045            --  NamedElement::name : String
27046
27047            return
27048              AMF.Holders.To_Holder
27049               (AMF.UML.Information_Flows.UML_Information_Flow_Access
27050                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
27051
27052         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
27053            --  NamedElement::nameExpression : StringExpression
27054
27055            return
27056              AMF.Internals.Holders.UML_Holders.To_Holder
27057               (AMF.UML.String_Expressions.UML_String_Expression_Access'
27058                 (AMF.UML.Information_Flows.UML_Information_Flow_Access
27059                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
27060
27061         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
27062            --  NamedElement::namespace : Namespace
27063
27064            return
27065              AMF.Internals.Holders.UML_Holders.To_Holder
27066               (AMF.UML.Namespaces.UML_Namespace_Access'
27067                 (AMF.UML.Information_Flows.UML_Information_Flow_Access
27068                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
27069
27070         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
27071            --  Element::ownedComment : Comment
27072
27073            return
27074              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
27075               (AMF.UML.Information_Flows.UML_Information_Flow_Access
27076                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
27077
27078         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
27079            --  Element::ownedElement : Element
27080
27081            return
27082              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
27083               (AMF.UML.Information_Flows.UML_Information_Flow_Access
27084                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
27085
27086         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
27087            --  Element::owner : Element
27088
27089            return
27090              AMF.Internals.Holders.UML_Holders.To_Holder
27091               (AMF.UML.Elements.UML_Element_Access'
27092                 (AMF.UML.Information_Flows.UML_Information_Flow_Access
27093                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
27094
27095         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
27096            --  ParameterableElement::owningTemplateParameter : TemplateParameter
27097
27098            return
27099              AMF.Internals.Holders.UML_Holders.To_Holder
27100               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
27101                 (AMF.UML.Information_Flows.UML_Information_Flow_Access
27102                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
27103
27104         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
27105            --  NamedElement::qualifiedName : String
27106
27107            return
27108              AMF.Holders.To_Holder
27109               (AMF.UML.Information_Flows.UML_Information_Flow_Access
27110                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
27111
27112         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Information_Flow_Realization_A_Abstraction then
27113            --  InformationFlow::realization : Relationship
27114
27115            return
27116              AMF.UML.Relationships.Collections.UML_Relationship_Collections.Internals.To_Holder
27117               (AMF.UML.Information_Flows.UML_Information_Flow_Access
27118                 (AMF.Internals.Helpers.To_Element (Self)).Get_Realization);
27119
27120         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Information_Flow_Realizing_Activity_Edge_A_Information_Flow then
27121            --  InformationFlow::realizingActivityEdge : ActivityEdge
27122
27123            return
27124              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
27125               (AMF.UML.Information_Flows.UML_Information_Flow_Access
27126                 (AMF.Internals.Helpers.To_Element (Self)).Get_Realizing_Activity_Edge);
27127
27128         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Information_Flow_Realizing_Connector_A_Information_Flow then
27129            --  InformationFlow::realizingConnector : Connector
27130
27131            return
27132              AMF.UML.Connectors.Collections.UML_Connector_Collections.Internals.To_Holder
27133               (AMF.UML.Information_Flows.UML_Information_Flow_Access
27134                 (AMF.Internals.Helpers.To_Element (Self)).Get_Realizing_Connector);
27135
27136         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Information_Flow_Realizing_Message_A_Information_Flow then
27137            --  InformationFlow::realizingMessage : Message
27138
27139            return
27140              AMF.UML.Messages.Collections.UML_Message_Collections.Internals.To_Holder
27141               (AMF.UML.Information_Flows.UML_Information_Flow_Access
27142                 (AMF.Internals.Helpers.To_Element (Self)).Get_Realizing_Message);
27143
27144         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship then
27145            --  Relationship::relatedElement : Element
27146
27147            return
27148              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
27149               (AMF.UML.Information_Flows.UML_Information_Flow_Access
27150                 (AMF.Internals.Helpers.To_Element (Self)).Get_Related_Element);
27151
27152         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship then
27153            --  DirectedRelationship::source : Element
27154
27155            return
27156              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
27157               (AMF.UML.Information_Flows.UML_Information_Flow_Access
27158                 (AMF.Internals.Helpers.To_Element (Self)).Get_Source);
27159
27160         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship then
27161            --  DirectedRelationship::target : Element
27162
27163            return
27164              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
27165               (AMF.UML.Information_Flows.UML_Information_Flow_Access
27166                 (AMF.Internals.Helpers.To_Element (Self)).Get_Target);
27167
27168         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
27169            --  ParameterableElement::templateParameter : TemplateParameter
27170
27171            return
27172              AMF.Internals.Holders.UML_Holders.To_Holder
27173               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
27174                 (AMF.UML.Information_Flows.UML_Information_Flow_Access
27175                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
27176
27177         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
27178            --  NamedElement::visibility : VisibilityKind
27179
27180            return
27181              AMF.UML.Holders.To_Holder
27182               (AMF.UML.Information_Flows.UML_Information_Flow_Access
27183                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
27184
27185         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
27186            --  PackageableElement::visibility : VisibilityKind
27187
27188            return
27189              AMF.UML.Holders.Visibility_Kinds.To_Holder
27190               (AMF.UML.Information_Flows.UML_Information_Flow_Access
27191                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
27192
27193         else
27194            raise Program_Error;
27195         end if;
27196      end UML_Information_Flow_Get;
27197
27198      ------------------------------
27199      -- UML_Information_Item_Get --
27200      ------------------------------
27201
27202      function UML_Information_Item_Get return League.Holders.Holder is
27203      begin
27204         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier then
27205            --  Classifier::attribute : Property
27206
27207            return
27208              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
27209               (AMF.UML.Information_Items.UML_Information_Item_Access
27210                 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute);
27211
27212         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
27213            --  NamedElement::clientDependency : Dependency
27214
27215            return
27216              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
27217               (AMF.UML.Information_Items.UML_Information_Item_Access
27218                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
27219
27220         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier then
27221            --  Classifier::collaborationUse : CollaborationUse
27222
27223            return
27224              AMF.UML.Collaboration_Uses.Collections.UML_Collaboration_Use_Collections.Internals.To_Holder
27225               (AMF.UML.Information_Items.UML_Information_Item_Access
27226                 (AMF.Internals.Helpers.To_Element (Self)).Get_Collaboration_Use);
27227
27228         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
27229            --  Namespace::elementImport : ElementImport
27230
27231            return
27232              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
27233               (AMF.UML.Information_Items.UML_Information_Item_Access
27234                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
27235
27236         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier then
27237            --  Classifier::feature : Feature
27238
27239            return
27240              AMF.UML.Features.Collections.UML_Feature_Collections.Internals.To_Holder
27241               (AMF.UML.Information_Items.UML_Information_Item_Access
27242                 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature);
27243
27244         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier then
27245            --  Classifier::general : Classifier
27246
27247            return
27248              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
27249               (AMF.UML.Information_Items.UML_Information_Item_Access
27250                 (AMF.Internals.Helpers.To_Element (Self)).Get_General);
27251
27252         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific then
27253            --  Classifier::generalization : Generalization
27254
27255            return
27256              AMF.UML.Generalizations.Collections.UML_Generalization_Collections.Internals.To_Holder
27257               (AMF.UML.Information_Items.UML_Information_Item_Access
27258                 (AMF.Internals.Helpers.To_Element (Self)).Get_Generalization);
27259
27260         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
27261            --  Namespace::importedMember : PackageableElement
27262
27263            return
27264              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
27265               (AMF.UML.Information_Items.UML_Information_Item_Access
27266                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
27267
27268         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier then
27269            --  Classifier::inheritedMember : NamedElement
27270
27271            return
27272              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
27273               (AMF.UML.Information_Items.UML_Information_Item_Access
27274                 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member);
27275
27276         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
27277            --  Classifier::isAbstract : Boolean
27278
27279            return
27280              League.Holders.Booleans.To_Holder
27281               (AMF.UML.Information_Items.UML_Information_Item_Access
27282                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
27283
27284         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
27285            --  Classifier::isFinalSpecialization : Boolean
27286
27287            return
27288              League.Holders.Booleans.To_Holder
27289               (AMF.UML.Information_Items.UML_Information_Item_Access
27290                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization);
27291
27292         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
27293            --  RedefinableElement::isLeaf : Boolean
27294
27295            return
27296              League.Holders.Booleans.To_Holder
27297               (AMF.UML.Information_Items.UML_Information_Item_Access
27298                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
27299
27300         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
27301            --  Namespace::member : NamedElement
27302
27303            return
27304              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
27305               (AMF.UML.Information_Items.UML_Information_Item_Access
27306                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
27307
27308         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
27309            --  NamedElement::name : String
27310
27311            return
27312              AMF.Holders.To_Holder
27313               (AMF.UML.Information_Items.UML_Information_Item_Access
27314                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
27315
27316         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
27317            --  NamedElement::nameExpression : StringExpression
27318
27319            return
27320              AMF.Internals.Holders.UML_Holders.To_Holder
27321               (AMF.UML.String_Expressions.UML_String_Expression_Access'
27322                 (AMF.UML.Information_Items.UML_Information_Item_Access
27323                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
27324
27325         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
27326            --  NamedElement::namespace : Namespace
27327
27328            return
27329              AMF.Internals.Holders.UML_Holders.To_Holder
27330               (AMF.UML.Namespaces.UML_Namespace_Access'
27331                 (AMF.UML.Information_Items.UML_Information_Item_Access
27332                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
27333
27334         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
27335            --  Element::ownedComment : Comment
27336
27337            return
27338              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
27339               (AMF.UML.Information_Items.UML_Information_Item_Access
27340                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
27341
27342         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
27343            --  Element::ownedElement : Element
27344
27345            return
27346              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
27347               (AMF.UML.Information_Items.UML_Information_Item_Access
27348                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
27349
27350         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
27351            --  Namespace::ownedMember : NamedElement
27352
27353            return
27354              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
27355               (AMF.UML.Information_Items.UML_Information_Item_Access
27356                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
27357
27358         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
27359            --  Namespace::ownedRule : Constraint
27360
27361            return
27362              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
27363               (AMF.UML.Information_Items.UML_Information_Item_Access
27364                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
27365
27366         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
27367            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
27368
27369            return
27370              AMF.Internals.Holders.UML_Holders.To_Holder
27371               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access'
27372                 (AMF.UML.Information_Items.UML_Information_Item_Access
27373                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
27374
27375         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
27376            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
27377
27378            return
27379              AMF.Internals.Holders.UML_Holders.To_Holder
27380               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
27381                 (AMF.UML.Information_Items.UML_Information_Item_Access
27382                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
27383
27384         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier then
27385            --  Classifier::ownedUseCase : UseCase
27386
27387            return
27388              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
27389               (AMF.UML.Information_Items.UML_Information_Item_Access
27390                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Use_Case);
27391
27392         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
27393            --  Element::owner : Element
27394
27395            return
27396              AMF.Internals.Holders.UML_Holders.To_Holder
27397               (AMF.UML.Elements.UML_Element_Access'
27398                 (AMF.UML.Information_Items.UML_Information_Item_Access
27399                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
27400
27401         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
27402            --  ParameterableElement::owningTemplateParameter : TemplateParameter
27403
27404            return
27405              AMF.Internals.Holders.UML_Holders.To_Holder
27406               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
27407                 (AMF.UML.Information_Items.UML_Information_Item_Access
27408                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
27409
27410         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
27411            --  Type::package : Package
27412
27413            return
27414              AMF.Internals.Holders.UML_Holders.To_Holder
27415               (AMF.UML.Packages.UML_Package_Access'
27416                 (AMF.UML.Information_Items.UML_Information_Item_Access
27417                   (AMF.Internals.Helpers.To_Element (Self)).Get_Package));
27418
27419         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
27420            --  Namespace::packageImport : PackageImport
27421
27422            return
27423              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
27424               (AMF.UML.Information_Items.UML_Information_Item_Access
27425                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
27426
27427         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype then
27428            --  Classifier::powertypeExtent : GeneralizationSet
27429
27430            return
27431              AMF.UML.Generalization_Sets.Collections.UML_Generalization_Set_Collections.Internals.To_Holder
27432               (AMF.UML.Information_Items.UML_Information_Item_Access
27433                 (AMF.Internals.Helpers.To_Element (Self)).Get_Powertype_Extent);
27434
27435         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
27436            --  NamedElement::qualifiedName : String
27437
27438            return
27439              AMF.Holders.To_Holder
27440               (AMF.UML.Information_Items.UML_Information_Item_Access
27441                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
27442
27443         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier then
27444            --  Classifier::redefinedClassifier : Classifier
27445
27446            return
27447              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
27448               (AMF.UML.Information_Items.UML_Information_Item_Access
27449                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Classifier);
27450
27451         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
27452            --  RedefinableElement::redefinedElement : RedefinableElement
27453
27454            return
27455              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
27456               (AMF.UML.Information_Items.UML_Information_Item_Access
27457                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
27458
27459         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
27460            --  RedefinableElement::redefinitionContext : Classifier
27461
27462            return
27463              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
27464               (AMF.UML.Information_Items.UML_Information_Item_Access
27465                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
27466
27467         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
27468            --  Classifier::representation : CollaborationUse
27469
27470            return
27471              AMF.Internals.Holders.UML_Holders.To_Holder
27472               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access'
27473                 (AMF.UML.Information_Items.UML_Information_Item_Access
27474                   (AMF.Internals.Helpers.To_Element (Self)).Get_Representation));
27475
27476         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Information_Item_Represented_A_Representation then
27477            --  InformationItem::represented : Classifier
27478
27479            return
27480              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
27481               (AMF.UML.Information_Items.UML_Information_Item_Access
27482                 (AMF.Internals.Helpers.To_Element (Self)).Get_Represented);
27483
27484         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier then
27485            --  Classifier::substitution : Substitution
27486
27487            return
27488              AMF.UML.Substitutions.Collections.UML_Substitution_Collections.Internals.To_Holder
27489               (AMF.UML.Information_Items.UML_Information_Item_Access
27490                 (AMF.Internals.Helpers.To_Element (Self)).Get_Substitution);
27491
27492         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
27493            --  TemplateableElement::templateBinding : TemplateBinding
27494
27495            return
27496              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
27497               (AMF.UML.Information_Items.UML_Information_Item_Access
27498                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
27499
27500         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
27501            --  Classifier::templateParameter : ClassifierTemplateParameter
27502
27503            return
27504              AMF.Internals.Holders.UML_Holders.To_Holder
27505               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access'
27506                 (AMF.UML.Information_Items.UML_Information_Item_Access
27507                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
27508
27509         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
27510            --  ParameterableElement::templateParameter : TemplateParameter
27511
27512            return
27513              AMF.Internals.Holders.UML_Holders.To_Holder
27514               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
27515                 (AMF.UML.Information_Items.UML_Information_Item_Access
27516                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
27517
27518         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject then
27519            --  Classifier::useCase : UseCase
27520
27521            return
27522              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
27523               (AMF.UML.Information_Items.UML_Information_Item_Access
27524                 (AMF.Internals.Helpers.To_Element (Self)).Get_Use_Case);
27525
27526         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
27527            --  NamedElement::visibility : VisibilityKind
27528
27529            return
27530              AMF.UML.Holders.To_Holder
27531               (AMF.UML.Information_Items.UML_Information_Item_Access
27532                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
27533
27534         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
27535            --  PackageableElement::visibility : VisibilityKind
27536
27537            return
27538              AMF.UML.Holders.Visibility_Kinds.To_Holder
27539               (AMF.UML.Information_Items.UML_Information_Item_Access
27540                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
27541
27542         else
27543            raise Program_Error;
27544         end if;
27545      end UML_Information_Item_Get;
27546
27547      --------------------------
27548      -- UML_Initial_Node_Get --
27549      --------------------------
27550
27551      function UML_Initial_Node_Get return League.Holders.Holder is
27552      begin
27553         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
27554            --  ActivityNode::activity : Activity
27555
27556            return
27557              AMF.Internals.Holders.UML_Holders.To_Holder
27558               (AMF.UML.Activities.UML_Activity_Access'
27559                 (AMF.UML.Initial_Nodes.UML_Initial_Node_Access
27560                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
27561
27562         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
27563            --  NamedElement::clientDependency : Dependency
27564
27565            return
27566              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
27567               (AMF.UML.Initial_Nodes.UML_Initial_Node_Access
27568                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
27569
27570         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
27571            --  ActivityNode::inGroup : ActivityGroup
27572
27573            return
27574              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
27575               (AMF.UML.Initial_Nodes.UML_Initial_Node_Access
27576                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
27577
27578         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
27579            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
27580
27581            return
27582              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
27583               (AMF.UML.Initial_Nodes.UML_Initial_Node_Access
27584                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
27585
27586         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
27587            --  ActivityNode::inPartition : ActivityPartition
27588
27589            return
27590              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
27591               (AMF.UML.Initial_Nodes.UML_Initial_Node_Access
27592                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
27593
27594         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
27595            --  ActivityNode::inStructuredNode : StructuredActivityNode
27596
27597            return
27598              AMF.Internals.Holders.UML_Holders.To_Holder
27599               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
27600                 (AMF.UML.Initial_Nodes.UML_Initial_Node_Access
27601                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
27602
27603         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
27604            --  ActivityNode::incoming : ActivityEdge
27605
27606            return
27607              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
27608               (AMF.UML.Initial_Nodes.UML_Initial_Node_Access
27609                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
27610
27611         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
27612            --  RedefinableElement::isLeaf : Boolean
27613
27614            return
27615              League.Holders.Booleans.To_Holder
27616               (AMF.UML.Initial_Nodes.UML_Initial_Node_Access
27617                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
27618
27619         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
27620            --  NamedElement::name : String
27621
27622            return
27623              AMF.Holders.To_Holder
27624               (AMF.UML.Initial_Nodes.UML_Initial_Node_Access
27625                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
27626
27627         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
27628            --  NamedElement::nameExpression : StringExpression
27629
27630            return
27631              AMF.Internals.Holders.UML_Holders.To_Holder
27632               (AMF.UML.String_Expressions.UML_String_Expression_Access'
27633                 (AMF.UML.Initial_Nodes.UML_Initial_Node_Access
27634                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
27635
27636         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
27637            --  NamedElement::namespace : Namespace
27638
27639            return
27640              AMF.Internals.Holders.UML_Holders.To_Holder
27641               (AMF.UML.Namespaces.UML_Namespace_Access'
27642                 (AMF.UML.Initial_Nodes.UML_Initial_Node_Access
27643                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
27644
27645         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
27646            --  ActivityNode::outgoing : ActivityEdge
27647
27648            return
27649              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
27650               (AMF.UML.Initial_Nodes.UML_Initial_Node_Access
27651                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
27652
27653         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
27654            --  Element::ownedComment : Comment
27655
27656            return
27657              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
27658               (AMF.UML.Initial_Nodes.UML_Initial_Node_Access
27659                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
27660
27661         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
27662            --  Element::ownedElement : Element
27663
27664            return
27665              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
27666               (AMF.UML.Initial_Nodes.UML_Initial_Node_Access
27667                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
27668
27669         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
27670            --  Element::owner : Element
27671
27672            return
27673              AMF.Internals.Holders.UML_Holders.To_Holder
27674               (AMF.UML.Elements.UML_Element_Access'
27675                 (AMF.UML.Initial_Nodes.UML_Initial_Node_Access
27676                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
27677
27678         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
27679            --  NamedElement::qualifiedName : String
27680
27681            return
27682              AMF.Holders.To_Holder
27683               (AMF.UML.Initial_Nodes.UML_Initial_Node_Access
27684                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
27685
27686         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
27687            --  RedefinableElement::redefinedElement : RedefinableElement
27688
27689            return
27690              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
27691               (AMF.UML.Initial_Nodes.UML_Initial_Node_Access
27692                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
27693
27694         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
27695            --  ActivityNode::redefinedNode : ActivityNode
27696
27697            return
27698              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
27699               (AMF.UML.Initial_Nodes.UML_Initial_Node_Access
27700                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
27701
27702         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
27703            --  RedefinableElement::redefinitionContext : Classifier
27704
27705            return
27706              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
27707               (AMF.UML.Initial_Nodes.UML_Initial_Node_Access
27708                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
27709
27710         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
27711            --  NamedElement::visibility : VisibilityKind
27712
27713            return
27714              AMF.UML.Holders.To_Holder
27715               (AMF.UML.Initial_Nodes.UML_Initial_Node_Access
27716                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
27717
27718         else
27719            raise Program_Error;
27720         end if;
27721      end UML_Initial_Node_Get;
27722
27723      -----------------------
27724      -- UML_Input_Pin_Get --
27725      -----------------------
27726
27727      function UML_Input_Pin_Get return League.Holders.Holder is
27728      begin
27729         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
27730            --  ActivityNode::activity : Activity
27731
27732            return
27733              AMF.Internals.Holders.UML_Holders.To_Holder
27734               (AMF.UML.Activities.UML_Activity_Access'
27735                 (AMF.UML.Input_Pins.UML_Input_Pin_Access
27736                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
27737
27738         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
27739            --  NamedElement::clientDependency : Dependency
27740
27741            return
27742              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
27743               (AMF.UML.Input_Pins.UML_Input_Pin_Access
27744                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
27745
27746         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
27747            --  ActivityNode::inGroup : ActivityGroup
27748
27749            return
27750              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
27751               (AMF.UML.Input_Pins.UML_Input_Pin_Access
27752                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
27753
27754         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
27755            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
27756
27757            return
27758              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
27759               (AMF.UML.Input_Pins.UML_Input_Pin_Access
27760                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
27761
27762         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
27763            --  ActivityNode::inPartition : ActivityPartition
27764
27765            return
27766              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
27767               (AMF.UML.Input_Pins.UML_Input_Pin_Access
27768                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
27769
27770         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_In_State_A_Object_Node then
27771            --  ObjectNode::inState : State
27772
27773            return
27774              AMF.UML.States.Collections.UML_State_Collections.Internals.To_Holder
27775               (AMF.UML.Input_Pins.UML_Input_Pin_Access
27776                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_State);
27777
27778         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
27779            --  ActivityNode::inStructuredNode : StructuredActivityNode
27780
27781            return
27782              AMF.Internals.Holders.UML_Holders.To_Holder
27783               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
27784                 (AMF.UML.Input_Pins.UML_Input_Pin_Access
27785                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
27786
27787         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
27788            --  ActivityNode::incoming : ActivityEdge
27789
27790            return
27791              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
27792               (AMF.UML.Input_Pins.UML_Input_Pin_Access
27793                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
27794
27795         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Pin_Is_Control then
27796            --  Pin::isControl : Boolean
27797
27798            return
27799              League.Holders.Booleans.To_Holder
27800               (AMF.UML.Input_Pins.UML_Input_Pin_Access
27801                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Control);
27802
27803         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Is_Control_Type then
27804            --  ObjectNode::isControlType : Boolean
27805
27806            return
27807              League.Holders.Booleans.To_Holder
27808               (AMF.UML.Input_Pins.UML_Input_Pin_Access
27809                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Control_Type);
27810
27811         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
27812            --  RedefinableElement::isLeaf : Boolean
27813
27814            return
27815              League.Holders.Booleans.To_Holder
27816               (AMF.UML.Input_Pins.UML_Input_Pin_Access
27817                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
27818
27819         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Ordered then
27820            --  MultiplicityElement::isOrdered : Boolean
27821
27822            return
27823              League.Holders.Booleans.To_Holder
27824               (AMF.UML.Input_Pins.UML_Input_Pin_Access
27825                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Ordered);
27826
27827         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Unique then
27828            --  MultiplicityElement::isUnique : Boolean
27829
27830            return
27831              League.Holders.Booleans.To_Holder
27832               (AMF.UML.Input_Pins.UML_Input_Pin_Access
27833                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Unique);
27834
27835         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower then
27836            --  MultiplicityElement::lower : Integer
27837
27838            return
27839              AMF.Holders.To_Holder
27840               (AMF.UML.Input_Pins.UML_Input_Pin_Access
27841                 (AMF.Internals.Helpers.To_Element (Self)).Get_Lower);
27842
27843         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower_Value_A_Owning_Lower then
27844            --  MultiplicityElement::lowerValue : ValueSpecification
27845
27846            return
27847              AMF.Internals.Holders.UML_Holders.To_Holder
27848               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
27849                 (AMF.UML.Input_Pins.UML_Input_Pin_Access
27850                   (AMF.Internals.Helpers.To_Element (Self)).Get_Lower_Value));
27851
27852         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
27853            --  NamedElement::name : String
27854
27855            return
27856              AMF.Holders.To_Holder
27857               (AMF.UML.Input_Pins.UML_Input_Pin_Access
27858                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
27859
27860         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
27861            --  NamedElement::nameExpression : StringExpression
27862
27863            return
27864              AMF.Internals.Holders.UML_Holders.To_Holder
27865               (AMF.UML.String_Expressions.UML_String_Expression_Access'
27866                 (AMF.UML.Input_Pins.UML_Input_Pin_Access
27867                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
27868
27869         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
27870            --  NamedElement::namespace : Namespace
27871
27872            return
27873              AMF.Internals.Holders.UML_Holders.To_Holder
27874               (AMF.UML.Namespaces.UML_Namespace_Access'
27875                 (AMF.UML.Input_Pins.UML_Input_Pin_Access
27876                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
27877
27878         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Ordering then
27879            --  ObjectNode::ordering : ObjectNodeOrderingKind
27880
27881            return
27882              AMF.UML.Holders.Object_Node_Ordering_Kinds.To_Holder
27883               (AMF.UML.Input_Pins.UML_Input_Pin_Access
27884                 (AMF.Internals.Helpers.To_Element (Self)).Get_Ordering);
27885
27886         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
27887            --  ActivityNode::outgoing : ActivityEdge
27888
27889            return
27890              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
27891               (AMF.UML.Input_Pins.UML_Input_Pin_Access
27892                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
27893
27894         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
27895            --  Element::ownedComment : Comment
27896
27897            return
27898              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
27899               (AMF.UML.Input_Pins.UML_Input_Pin_Access
27900                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
27901
27902         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
27903            --  Element::ownedElement : Element
27904
27905            return
27906              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
27907               (AMF.UML.Input_Pins.UML_Input_Pin_Access
27908                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
27909
27910         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
27911            --  Element::owner : Element
27912
27913            return
27914              AMF.Internals.Holders.UML_Holders.To_Holder
27915               (AMF.UML.Elements.UML_Element_Access'
27916                 (AMF.UML.Input_Pins.UML_Input_Pin_Access
27917                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
27918
27919         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
27920            --  NamedElement::qualifiedName : String
27921
27922            return
27923              AMF.Holders.To_Holder
27924               (AMF.UML.Input_Pins.UML_Input_Pin_Access
27925                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
27926
27927         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
27928            --  RedefinableElement::redefinedElement : RedefinableElement
27929
27930            return
27931              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
27932               (AMF.UML.Input_Pins.UML_Input_Pin_Access
27933                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
27934
27935         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
27936            --  ActivityNode::redefinedNode : ActivityNode
27937
27938            return
27939              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
27940               (AMF.UML.Input_Pins.UML_Input_Pin_Access
27941                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
27942
27943         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
27944            --  RedefinableElement::redefinitionContext : Classifier
27945
27946            return
27947              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
27948               (AMF.UML.Input_Pins.UML_Input_Pin_Access
27949                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
27950
27951         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Selection_A_Object_Node then
27952            --  ObjectNode::selection : Behavior
27953
27954            return
27955              AMF.Internals.Holders.UML_Holders.To_Holder
27956               (AMF.UML.Behaviors.UML_Behavior_Access'
27957                 (AMF.UML.Input_Pins.UML_Input_Pin_Access
27958                   (AMF.Internals.Helpers.To_Element (Self)).Get_Selection));
27959
27960         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
27961            --  TypedElement::type : Type
27962
27963            return
27964              AMF.Internals.Holders.UML_Holders.To_Holder
27965               (AMF.UML.Types.UML_Type_Access'
27966                 (AMF.UML.Input_Pins.UML_Input_Pin_Access
27967                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
27968
27969         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper then
27970            --  MultiplicityElement::upper : UnlimitedNatural
27971
27972            return
27973              AMF.Holders.To_Holder
27974               (AMF.UML.Input_Pins.UML_Input_Pin_Access
27975                 (AMF.Internals.Helpers.To_Element (Self)).Get_Upper);
27976
27977         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Upper_Bound_A_Object_Node then
27978            --  ObjectNode::upperBound : ValueSpecification
27979
27980            return
27981              AMF.Internals.Holders.UML_Holders.To_Holder
27982               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
27983                 (AMF.UML.Input_Pins.UML_Input_Pin_Access
27984                   (AMF.Internals.Helpers.To_Element (Self)).Get_Upper_Bound));
27985
27986         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper_Value_A_Owning_Upper then
27987            --  MultiplicityElement::upperValue : ValueSpecification
27988
27989            return
27990              AMF.Internals.Holders.UML_Holders.To_Holder
27991               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
27992                 (AMF.UML.Input_Pins.UML_Input_Pin_Access
27993                   (AMF.Internals.Helpers.To_Element (Self)).Get_Upper_Value));
27994
27995         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
27996            --  NamedElement::visibility : VisibilityKind
27997
27998            return
27999              AMF.UML.Holders.To_Holder
28000               (AMF.UML.Input_Pins.UML_Input_Pin_Access
28001                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
28002
28003         else
28004            raise Program_Error;
28005         end if;
28006      end UML_Input_Pin_Get;
28007
28008      ------------------------------------
28009      -- UML_Instance_Specification_Get --
28010      ------------------------------------
28011
28012      function UML_Instance_Specification_Get return League.Holders.Holder is
28013      begin
28014         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Instance_Specification_Classifier_A_Instance_Specification then
28015            --  InstanceSpecification::classifier : Classifier
28016
28017            return
28018              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
28019               (AMF.UML.Instance_Specifications.UML_Instance_Specification_Access
28020                 (AMF.Internals.Helpers.To_Element (Self)).Get_Classifier);
28021
28022         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
28023            --  NamedElement::clientDependency : Dependency
28024
28025            return
28026              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
28027               (AMF.UML.Instance_Specifications.UML_Instance_Specification_Access
28028                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
28029
28030         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployed_Element_A_Deployment_Target then
28031            --  DeploymentTarget::deployedElement : PackageableElement
28032
28033            return
28034              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
28035               (AMF.UML.Instance_Specifications.UML_Instance_Specification_Access
28036                 (AMF.Internals.Helpers.To_Element (Self)).Get_Deployed_Element);
28037
28038         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployment_Deployment_Location then
28039            --  DeploymentTarget::deployment : Deployment
28040
28041            return
28042              AMF.UML.Deployments.Collections.UML_Deployment_Collections.Internals.To_Holder
28043               (AMF.UML.Instance_Specifications.UML_Instance_Specification_Access
28044                 (AMF.Internals.Helpers.To_Element (Self)).Get_Deployment);
28045
28046         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
28047            --  NamedElement::name : String
28048
28049            return
28050              AMF.Holders.To_Holder
28051               (AMF.UML.Instance_Specifications.UML_Instance_Specification_Access
28052                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
28053
28054         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
28055            --  NamedElement::nameExpression : StringExpression
28056
28057            return
28058              AMF.Internals.Holders.UML_Holders.To_Holder
28059               (AMF.UML.String_Expressions.UML_String_Expression_Access'
28060                 (AMF.UML.Instance_Specifications.UML_Instance_Specification_Access
28061                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
28062
28063         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
28064            --  NamedElement::namespace : Namespace
28065
28066            return
28067              AMF.Internals.Holders.UML_Holders.To_Holder
28068               (AMF.UML.Namespaces.UML_Namespace_Access'
28069                 (AMF.UML.Instance_Specifications.UML_Instance_Specification_Access
28070                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
28071
28072         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
28073            --  Element::ownedComment : Comment
28074
28075            return
28076              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
28077               (AMF.UML.Instance_Specifications.UML_Instance_Specification_Access
28078                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
28079
28080         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
28081            --  Element::ownedElement : Element
28082
28083            return
28084              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
28085               (AMF.UML.Instance_Specifications.UML_Instance_Specification_Access
28086                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
28087
28088         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
28089            --  Element::owner : Element
28090
28091            return
28092              AMF.Internals.Holders.UML_Holders.To_Holder
28093               (AMF.UML.Elements.UML_Element_Access'
28094                 (AMF.UML.Instance_Specifications.UML_Instance_Specification_Access
28095                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
28096
28097         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
28098            --  ParameterableElement::owningTemplateParameter : TemplateParameter
28099
28100            return
28101              AMF.Internals.Holders.UML_Holders.To_Holder
28102               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
28103                 (AMF.UML.Instance_Specifications.UML_Instance_Specification_Access
28104                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
28105
28106         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
28107            --  NamedElement::qualifiedName : String
28108
28109            return
28110              AMF.Holders.To_Holder
28111               (AMF.UML.Instance_Specifications.UML_Instance_Specification_Access
28112                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
28113
28114         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Instance_Specification_Slot_Slot_Owning_Instance then
28115            --  InstanceSpecification::slot : Slot
28116
28117            return
28118              AMF.UML.Slots.Collections.UML_Slot_Collections.Internals.To_Holder
28119               (AMF.UML.Instance_Specifications.UML_Instance_Specification_Access
28120                 (AMF.Internals.Helpers.To_Element (Self)).Get_Slot);
28121
28122         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Instance_Specification_Specification_A_Owning_Instance_Spec then
28123            --  InstanceSpecification::specification : ValueSpecification
28124
28125            return
28126              AMF.Internals.Holders.UML_Holders.To_Holder
28127               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
28128                 (AMF.UML.Instance_Specifications.UML_Instance_Specification_Access
28129                   (AMF.Internals.Helpers.To_Element (Self)).Get_Specification));
28130
28131         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
28132            --  ParameterableElement::templateParameter : TemplateParameter
28133
28134            return
28135              AMF.Internals.Holders.UML_Holders.To_Holder
28136               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
28137                 (AMF.UML.Instance_Specifications.UML_Instance_Specification_Access
28138                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
28139
28140         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
28141            --  NamedElement::visibility : VisibilityKind
28142
28143            return
28144              AMF.UML.Holders.To_Holder
28145               (AMF.UML.Instance_Specifications.UML_Instance_Specification_Access
28146                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
28147
28148         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
28149            --  PackageableElement::visibility : VisibilityKind
28150
28151            return
28152              AMF.UML.Holders.Visibility_Kinds.To_Holder
28153               (AMF.UML.Instance_Specifications.UML_Instance_Specification_Access
28154                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
28155
28156         else
28157            raise Program_Error;
28158         end if;
28159      end UML_Instance_Specification_Get;
28160
28161      ----------------------------
28162      -- UML_Instance_Value_Get --
28163      ----------------------------
28164
28165      function UML_Instance_Value_Get return League.Holders.Holder is
28166      begin
28167         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
28168            --  NamedElement::clientDependency : Dependency
28169
28170            return
28171              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
28172               (AMF.UML.Instance_Values.UML_Instance_Value_Access
28173                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
28174
28175         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Instance_Value_Instance_A_Instance_Value then
28176            --  InstanceValue::instance : InstanceSpecification
28177
28178            return
28179              AMF.Internals.Holders.UML_Holders.To_Holder
28180               (AMF.UML.Instance_Specifications.UML_Instance_Specification_Access'
28181                 (AMF.UML.Instance_Values.UML_Instance_Value_Access
28182                   (AMF.Internals.Helpers.To_Element (Self)).Get_Instance));
28183
28184         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
28185            --  NamedElement::name : String
28186
28187            return
28188              AMF.Holders.To_Holder
28189               (AMF.UML.Instance_Values.UML_Instance_Value_Access
28190                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
28191
28192         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
28193            --  NamedElement::nameExpression : StringExpression
28194
28195            return
28196              AMF.Internals.Holders.UML_Holders.To_Holder
28197               (AMF.UML.String_Expressions.UML_String_Expression_Access'
28198                 (AMF.UML.Instance_Values.UML_Instance_Value_Access
28199                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
28200
28201         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
28202            --  NamedElement::namespace : Namespace
28203
28204            return
28205              AMF.Internals.Holders.UML_Holders.To_Holder
28206               (AMF.UML.Namespaces.UML_Namespace_Access'
28207                 (AMF.UML.Instance_Values.UML_Instance_Value_Access
28208                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
28209
28210         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
28211            --  Element::ownedComment : Comment
28212
28213            return
28214              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
28215               (AMF.UML.Instance_Values.UML_Instance_Value_Access
28216                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
28217
28218         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
28219            --  Element::ownedElement : Element
28220
28221            return
28222              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
28223               (AMF.UML.Instance_Values.UML_Instance_Value_Access
28224                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
28225
28226         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
28227            --  Element::owner : Element
28228
28229            return
28230              AMF.Internals.Holders.UML_Holders.To_Holder
28231               (AMF.UML.Elements.UML_Element_Access'
28232                 (AMF.UML.Instance_Values.UML_Instance_Value_Access
28233                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
28234
28235         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
28236            --  ParameterableElement::owningTemplateParameter : TemplateParameter
28237
28238            return
28239              AMF.Internals.Holders.UML_Holders.To_Holder
28240               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
28241                 (AMF.UML.Instance_Values.UML_Instance_Value_Access
28242                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
28243
28244         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
28245            --  NamedElement::qualifiedName : String
28246
28247            return
28248              AMF.Holders.To_Holder
28249               (AMF.UML.Instance_Values.UML_Instance_Value_Access
28250                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
28251
28252         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
28253            --  ParameterableElement::templateParameter : TemplateParameter
28254
28255            return
28256              AMF.Internals.Holders.UML_Holders.To_Holder
28257               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
28258                 (AMF.UML.Instance_Values.UML_Instance_Value_Access
28259                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
28260
28261         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
28262            --  TypedElement::type : Type
28263
28264            return
28265              AMF.Internals.Holders.UML_Holders.To_Holder
28266               (AMF.UML.Types.UML_Type_Access'
28267                 (AMF.UML.Instance_Values.UML_Instance_Value_Access
28268                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
28269
28270         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
28271            --  NamedElement::visibility : VisibilityKind
28272
28273            return
28274              AMF.UML.Holders.To_Holder
28275               (AMF.UML.Instance_Values.UML_Instance_Value_Access
28276                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
28277
28278         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
28279            --  PackageableElement::visibility : VisibilityKind
28280
28281            return
28282              AMF.UML.Holders.Visibility_Kinds.To_Holder
28283               (AMF.UML.Instance_Values.UML_Instance_Value_Access
28284                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
28285
28286         else
28287            raise Program_Error;
28288         end if;
28289      end UML_Instance_Value_Get;
28290
28291      -------------------------
28292      -- UML_Interaction_Get --
28293      -------------------------
28294
28295      function UML_Interaction_Get return League.Holders.Holder is
28296      begin
28297         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Action_A_Interaction then
28298            --  Interaction::action : Action
28299
28300            return
28301              AMF.UML.Actions.Collections.UML_Action_Collections.Internals.To_Holder
28302               (AMF.UML.Interactions.UML_Interaction_Access
28303                 (AMF.Internals.Helpers.To_Element (Self)).Get_Action);
28304
28305         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier then
28306            --  Classifier::attribute : Property
28307
28308            return
28309              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
28310               (AMF.UML.Interactions.UML_Interaction_Access
28311                 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute);
28312
28313         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
28314            --  BehavioredClassifier::classifierBehavior : Behavior
28315
28316            return
28317              AMF.Internals.Holders.UML_Holders.To_Holder
28318               (AMF.UML.Behaviors.UML_Behavior_Access'
28319                 (AMF.UML.Interactions.UML_Interaction_Access
28320                   (AMF.Internals.Helpers.To_Element (Self)).Get_Classifier_Behavior));
28321
28322         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
28323            --  NamedElement::clientDependency : Dependency
28324
28325            return
28326              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
28327               (AMF.UML.Interactions.UML_Interaction_Access
28328                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
28329
28330         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier then
28331            --  Classifier::collaborationUse : CollaborationUse
28332
28333            return
28334              AMF.UML.Collaboration_Uses.Collections.UML_Collaboration_Use_Collections.Internals.To_Holder
28335               (AMF.UML.Interactions.UML_Interaction_Access
28336                 (AMF.Internals.Helpers.To_Element (Self)).Get_Collaboration_Use);
28337
28338         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Context_A_Behavior then
28339            --  Behavior::context : BehavioredClassifier
28340
28341            return
28342              AMF.Internals.Holders.UML_Holders.To_Holder
28343               (AMF.UML.Behaviored_Classifiers.UML_Behaviored_Classifier_Access'
28344                 (AMF.UML.Interactions.UML_Interaction_Access
28345                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
28346
28347         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Covered_Lifeline_Covered_By then
28348            --  InteractionFragment::covered : Lifeline
28349
28350            return
28351              AMF.UML.Lifelines.Collections.UML_Lifeline_Collections.Internals.To_Holder
28352               (AMF.UML.Interactions.UML_Interaction_Access
28353                 (AMF.Internals.Helpers.To_Element (Self)).Get_Covered);
28354
28355         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
28356            --  Namespace::elementImport : ElementImport
28357
28358            return
28359              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
28360               (AMF.UML.Interactions.UML_Interaction_Access
28361                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
28362
28363         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Interaction_Interaction_Fragment then
28364            --  InteractionFragment::enclosingInteraction : Interaction
28365
28366            return
28367              AMF.Internals.Holders.UML_Holders.To_Holder
28368               (AMF.UML.Interactions.UML_Interaction_Access'
28369                 (AMF.UML.Interactions.UML_Interaction_Access
28370                   (AMF.Internals.Helpers.To_Element (Self)).Get_Enclosing_Interaction));
28371
28372         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Operand_Interaction_Operand_Fragment then
28373            --  InteractionFragment::enclosingOperand : InteractionOperand
28374
28375            return
28376              AMF.Internals.Holders.UML_Holders.To_Holder
28377               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access'
28378                 (AMF.UML.Interactions.UML_Interaction_Access
28379                   (AMF.Internals.Helpers.To_Element (Self)).Get_Enclosing_Operand));
28380
28381         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Extension_Extension_Metaclass then
28382            --  Class::extension : Extension
28383
28384            return
28385              AMF.UML.Extensions.Collections.UML_Extension_Collections.Internals.To_Holder
28386               (AMF.UML.Interactions.UML_Interaction_Access
28387                 (AMF.Internals.Helpers.To_Element (Self)).Get_Extension);
28388
28389         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier then
28390            --  Classifier::feature : Feature
28391
28392            return
28393              AMF.UML.Features.Collections.UML_Feature_Collections.Internals.To_Holder
28394               (AMF.UML.Interactions.UML_Interaction_Access
28395                 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature);
28396
28397         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Formal_Gate_A_Interaction then
28398            --  Interaction::formalGate : Gate
28399
28400            return
28401              AMF.UML.Gates.Collections.UML_Gate_Collections.Internals.To_Holder
28402               (AMF.UML.Interactions.UML_Interaction_Access
28403                 (AMF.Internals.Helpers.To_Element (Self)).Get_Formal_Gate);
28404
28405         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Interaction_Fragment_Enclosing_Interaction then
28406            --  Interaction::fragment : InteractionFragment
28407
28408            return
28409              AMF.UML.Interaction_Fragments.Collections.UML_Interaction_Fragment_Collections.Internals.To_Holder
28410               (AMF.UML.Interactions.UML_Interaction_Access
28411                 (AMF.Internals.Helpers.To_Element (Self)).Get_Fragment);
28412
28413         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier then
28414            --  Classifier::general : Classifier
28415
28416            return
28417              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
28418               (AMF.UML.Interactions.UML_Interaction_Access
28419                 (AMF.Internals.Helpers.To_Element (Self)).Get_General);
28420
28421         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_General_Ordering_A_Interaction_Fragment then
28422            --  InteractionFragment::generalOrdering : GeneralOrdering
28423
28424            return
28425              AMF.UML.General_Orderings.Collections.UML_General_Ordering_Collections.Internals.To_Holder
28426               (AMF.UML.Interactions.UML_Interaction_Access
28427                 (AMF.Internals.Helpers.To_Element (Self)).Get_General_Ordering);
28428
28429         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific then
28430            --  Classifier::generalization : Generalization
28431
28432            return
28433              AMF.UML.Generalizations.Collections.UML_Generalization_Collections.Internals.To_Holder
28434               (AMF.UML.Interactions.UML_Interaction_Access
28435                 (AMF.Internals.Helpers.To_Element (Self)).Get_Generalization);
28436
28437         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
28438            --  Namespace::importedMember : PackageableElement
28439
28440            return
28441              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
28442               (AMF.UML.Interactions.UML_Interaction_Access
28443                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
28444
28445         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier then
28446            --  Classifier::inheritedMember : NamedElement
28447
28448            return
28449              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
28450               (AMF.UML.Interactions.UML_Interaction_Access
28451                 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member);
28452
28453         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier then
28454            --  BehavioredClassifier::interfaceRealization : InterfaceRealization
28455
28456            return
28457              AMF.UML.Interface_Realizations.Collections.UML_Interface_Realization_Collections.Internals.To_Holder
28458               (AMF.UML.Interactions.UML_Interaction_Access
28459                 (AMF.Internals.Helpers.To_Element (Self)).Get_Interface_Realization);
28460
28461         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Abstract then
28462            --  Class::isAbstract : Boolean
28463
28464            return
28465              League.Holders.Booleans.To_Holder
28466               (AMF.UML.Interactions.UML_Interaction_Access
28467                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
28468
28469         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
28470            --  Classifier::isAbstract : Boolean
28471
28472            return
28473              League.Holders.Booleans.To_Holder
28474               (AMF.UML.Interactions.UML_Interaction_Access
28475                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
28476
28477         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Active then
28478            --  Class::isActive : Boolean
28479
28480            return
28481              League.Holders.Booleans.To_Holder
28482               (AMF.UML.Interactions.UML_Interaction_Access
28483                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Active);
28484
28485         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
28486            --  Classifier::isFinalSpecialization : Boolean
28487
28488            return
28489              League.Holders.Booleans.To_Holder
28490               (AMF.UML.Interactions.UML_Interaction_Access
28491                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization);
28492
28493         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
28494            --  RedefinableElement::isLeaf : Boolean
28495
28496            return
28497              League.Holders.Booleans.To_Holder
28498               (AMF.UML.Interactions.UML_Interaction_Access
28499                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
28500
28501         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Is_Reentrant then
28502            --  Behavior::isReentrant : Boolean
28503
28504            return
28505              League.Holders.Booleans.To_Holder
28506               (AMF.UML.Interactions.UML_Interaction_Access
28507                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Reentrant);
28508
28509         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Lifeline_Lifeline_Interaction then
28510            --  Interaction::lifeline : Lifeline
28511
28512            return
28513              AMF.UML.Lifelines.Collections.UML_Lifeline_Collections.Internals.To_Holder
28514               (AMF.UML.Interactions.UML_Interaction_Access
28515                 (AMF.Internals.Helpers.To_Element (Self)).Get_Lifeline);
28516
28517         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
28518            --  Namespace::member : NamedElement
28519
28520            return
28521              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
28522               (AMF.UML.Interactions.UML_Interaction_Access
28523                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
28524
28525         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Message_Message_Interaction then
28526            --  Interaction::message : Message
28527
28528            return
28529              AMF.UML.Messages.Collections.UML_Message_Collections.Internals.To_Holder
28530               (AMF.UML.Interactions.UML_Interaction_Access
28531                 (AMF.Internals.Helpers.To_Element (Self)).Get_Message);
28532
28533         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
28534            --  NamedElement::name : String
28535
28536            return
28537              AMF.Holders.To_Holder
28538               (AMF.UML.Interactions.UML_Interaction_Access
28539                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
28540
28541         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
28542            --  NamedElement::nameExpression : StringExpression
28543
28544            return
28545              AMF.Internals.Holders.UML_Holders.To_Holder
28546               (AMF.UML.String_Expressions.UML_String_Expression_Access'
28547                 (AMF.UML.Interactions.UML_Interaction_Access
28548                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
28549
28550         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
28551            --  NamedElement::namespace : Namespace
28552
28553            return
28554              AMF.Internals.Holders.UML_Holders.To_Holder
28555               (AMF.UML.Namespaces.UML_Namespace_Access'
28556                 (AMF.UML.Interactions.UML_Interaction_Access
28557                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
28558
28559         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Nested_Classifier_A_Class then
28560            --  Class::nestedClassifier : Classifier
28561
28562            return
28563              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
28564               (AMF.UML.Interactions.UML_Interaction_Access
28565                 (AMF.Internals.Helpers.To_Element (Self)).Get_Nested_Classifier);
28566
28567         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Attribute_Property_Class then
28568            --  Class::ownedAttribute : Property
28569
28570            return
28571              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
28572               (AMF.UML.Interactions.UML_Interaction_Access
28573                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
28574
28575         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Attribute_A_Structured_Classifier then
28576            --  StructuredClassifier::ownedAttribute : Property
28577
28578            return
28579              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
28580               (AMF.UML.Interactions.UML_Interaction_Access
28581                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
28582
28583         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier then
28584            --  BehavioredClassifier::ownedBehavior : Behavior
28585
28586            return
28587              AMF.UML.Behaviors.Collections.UML_Behavior_Collections.Internals.To_Holder
28588               (AMF.UML.Interactions.UML_Interaction_Access
28589                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Behavior);
28590
28591         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
28592            --  Element::ownedComment : Comment
28593
28594            return
28595              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
28596               (AMF.UML.Interactions.UML_Interaction_Access
28597                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
28598
28599         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Connector_A_Structured_Classifier then
28600            --  StructuredClassifier::ownedConnector : Connector
28601
28602            return
28603              AMF.UML.Connectors.Collections.UML_Connector_Collections.Internals.To_Holder
28604               (AMF.UML.Interactions.UML_Interaction_Access
28605                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Connector);
28606
28607         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
28608            --  Element::ownedElement : Element
28609
28610            return
28611              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
28612               (AMF.UML.Interactions.UML_Interaction_Access
28613                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
28614
28615         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
28616            --  Namespace::ownedMember : NamedElement
28617
28618            return
28619              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
28620               (AMF.UML.Interactions.UML_Interaction_Access
28621                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
28622
28623         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Operation_Operation_Class then
28624            --  Class::ownedOperation : Operation
28625
28626            return
28627              AMF.UML.Operations.Collections.UML_Operation_Collections.Internals.To_Holder
28628               (AMF.UML.Interactions.UML_Interaction_Access
28629                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Operation);
28630
28631         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Owned_Parameter_A_Behavior then
28632            --  Behavior::ownedParameter : Parameter
28633
28634            return
28635              AMF.UML.Parameters.Collections.UML_Parameter_Collections.Internals.To_Holder
28636               (AMF.UML.Interactions.UML_Interaction_Access
28637                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Parameter);
28638
28639         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Owned_Parameter_Set_A_Behavior then
28640            --  Behavior::ownedParameterSet : ParameterSet
28641
28642            return
28643              AMF.UML.Parameter_Sets.Collections.UML_Parameter_Set_Collections.Internals.To_Holder
28644               (AMF.UML.Interactions.UML_Interaction_Access
28645                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Parameter_Set);
28646
28647         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Encapsulated_Classifier_Owned_Port_A_Encapsulated_Classifier then
28648            --  EncapsulatedClassifier::ownedPort : Port
28649
28650            return
28651              AMF.UML.Ports.Collections.UML_Port_Collections.Internals.To_Holder
28652               (AMF.UML.Interactions.UML_Interaction_Access
28653                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Port);
28654
28655         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Reception_A_Class then
28656            --  Class::ownedReception : Reception
28657
28658            return
28659              AMF.UML.Receptions.Collections.UML_Reception_Collections.Internals.To_Holder
28660               (AMF.UML.Interactions.UML_Interaction_Access
28661                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Reception);
28662
28663         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
28664            --  Namespace::ownedRule : Constraint
28665
28666            return
28667              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
28668               (AMF.UML.Interactions.UML_Interaction_Access
28669                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
28670
28671         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
28672            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
28673
28674            return
28675              AMF.Internals.Holders.UML_Holders.To_Holder
28676               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access'
28677                 (AMF.UML.Interactions.UML_Interaction_Access
28678                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
28679
28680         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
28681            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
28682
28683            return
28684              AMF.Internals.Holders.UML_Holders.To_Holder
28685               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
28686                 (AMF.UML.Interactions.UML_Interaction_Access
28687                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
28688
28689         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier then
28690            --  Classifier::ownedUseCase : UseCase
28691
28692            return
28693              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
28694               (AMF.UML.Interactions.UML_Interaction_Access
28695                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Use_Case);
28696
28697         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
28698            --  Element::owner : Element
28699
28700            return
28701              AMF.Internals.Holders.UML_Holders.To_Holder
28702               (AMF.UML.Elements.UML_Element_Access'
28703                 (AMF.UML.Interactions.UML_Interaction_Access
28704                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
28705
28706         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
28707            --  ParameterableElement::owningTemplateParameter : TemplateParameter
28708
28709            return
28710              AMF.Internals.Holders.UML_Holders.To_Holder
28711               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
28712                 (AMF.UML.Interactions.UML_Interaction_Access
28713                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
28714
28715         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
28716            --  Type::package : Package
28717
28718            return
28719              AMF.Internals.Holders.UML_Holders.To_Holder
28720               (AMF.UML.Packages.UML_Package_Access'
28721                 (AMF.UML.Interactions.UML_Interaction_Access
28722                   (AMF.Internals.Helpers.To_Element (Self)).Get_Package));
28723
28724         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
28725            --  Namespace::packageImport : PackageImport
28726
28727            return
28728              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
28729               (AMF.UML.Interactions.UML_Interaction_Access
28730                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
28731
28732         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Part_A_Structured_Classifier then
28733            --  StructuredClassifier::part : Property
28734
28735            return
28736              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
28737               (AMF.UML.Interactions.UML_Interaction_Access
28738                 (AMF.Internals.Helpers.To_Element (Self)).Get_Part);
28739
28740         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Postcondition_A_Behavior then
28741            --  Behavior::postcondition : Constraint
28742
28743            return
28744              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
28745               (AMF.UML.Interactions.UML_Interaction_Access
28746                 (AMF.Internals.Helpers.To_Element (Self)).Get_Postcondition);
28747
28748         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype then
28749            --  Classifier::powertypeExtent : GeneralizationSet
28750
28751            return
28752              AMF.UML.Generalization_Sets.Collections.UML_Generalization_Set_Collections.Internals.To_Holder
28753               (AMF.UML.Interactions.UML_Interaction_Access
28754                 (AMF.Internals.Helpers.To_Element (Self)).Get_Powertype_Extent);
28755
28756         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Precondition_A_Behavior then
28757            --  Behavior::precondition : Constraint
28758
28759            return
28760              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
28761               (AMF.UML.Interactions.UML_Interaction_Access
28762                 (AMF.Internals.Helpers.To_Element (Self)).Get_Precondition);
28763
28764         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
28765            --  NamedElement::qualifiedName : String
28766
28767            return
28768              AMF.Holders.To_Holder
28769               (AMF.UML.Interactions.UML_Interaction_Access
28770                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
28771
28772         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Redefined_Behavior_A_Behavior then
28773            --  Behavior::redefinedBehavior : Behavior
28774
28775            return
28776              AMF.UML.Behaviors.Collections.UML_Behavior_Collections.Internals.To_Holder
28777               (AMF.UML.Interactions.UML_Interaction_Access
28778                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Behavior);
28779
28780         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier then
28781            --  Classifier::redefinedClassifier : Classifier
28782
28783            return
28784              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
28785               (AMF.UML.Interactions.UML_Interaction_Access
28786                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Classifier);
28787
28788         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
28789            --  RedefinableElement::redefinedElement : RedefinableElement
28790
28791            return
28792              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
28793               (AMF.UML.Interactions.UML_Interaction_Access
28794                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
28795
28796         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
28797            --  RedefinableElement::redefinitionContext : Classifier
28798
28799            return
28800              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
28801               (AMF.UML.Interactions.UML_Interaction_Access
28802                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
28803
28804         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
28805            --  Classifier::representation : CollaborationUse
28806
28807            return
28808              AMF.Internals.Holders.UML_Holders.To_Holder
28809               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access'
28810                 (AMF.UML.Interactions.UML_Interaction_Access
28811                   (AMF.Internals.Helpers.To_Element (Self)).Get_Representation));
28812
28813         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Role_A_Structured_Classifier then
28814            --  StructuredClassifier::role : ConnectableElement
28815
28816            return
28817              AMF.UML.Connectable_Elements.Collections.UML_Connectable_Element_Collections.Internals.To_Holder
28818               (AMF.UML.Interactions.UML_Interaction_Access
28819                 (AMF.Internals.Helpers.To_Element (Self)).Get_Role);
28820
28821         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Specification_Behavioral_Feature_Method then
28822            --  Behavior::specification : BehavioralFeature
28823
28824            return
28825              AMF.Internals.Holders.UML_Holders.To_Holder
28826               (AMF.UML.Behavioral_Features.UML_Behavioral_Feature_Access'
28827                 (AMF.UML.Interactions.UML_Interaction_Access
28828                   (AMF.Internals.Helpers.To_Element (Self)).Get_Specification));
28829
28830         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier then
28831            --  Classifier::substitution : Substitution
28832
28833            return
28834              AMF.UML.Substitutions.Collections.UML_Substitution_Collections.Internals.To_Holder
28835               (AMF.UML.Interactions.UML_Interaction_Access
28836                 (AMF.Internals.Helpers.To_Element (Self)).Get_Substitution);
28837
28838         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Super_Class_A_Class then
28839            --  Class::superClass : Class
28840
28841            return
28842              AMF.UML.Classes.Collections.UML_Class_Collections.Internals.To_Holder
28843               (AMF.UML.Interactions.UML_Interaction_Access
28844                 (AMF.Internals.Helpers.To_Element (Self)).Get_Super_Class);
28845
28846         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
28847            --  TemplateableElement::templateBinding : TemplateBinding
28848
28849            return
28850              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
28851               (AMF.UML.Interactions.UML_Interaction_Access
28852                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
28853
28854         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
28855            --  Classifier::templateParameter : ClassifierTemplateParameter
28856
28857            return
28858              AMF.Internals.Holders.UML_Holders.To_Holder
28859               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access'
28860                 (AMF.UML.Interactions.UML_Interaction_Access
28861                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
28862
28863         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
28864            --  ParameterableElement::templateParameter : TemplateParameter
28865
28866            return
28867              AMF.Internals.Holders.UML_Holders.To_Holder
28868               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
28869                 (AMF.UML.Interactions.UML_Interaction_Access
28870                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
28871
28872         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject then
28873            --  Classifier::useCase : UseCase
28874
28875            return
28876              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
28877               (AMF.UML.Interactions.UML_Interaction_Access
28878                 (AMF.Internals.Helpers.To_Element (Self)).Get_Use_Case);
28879
28880         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
28881            --  NamedElement::visibility : VisibilityKind
28882
28883            return
28884              AMF.UML.Holders.To_Holder
28885               (AMF.UML.Interactions.UML_Interaction_Access
28886                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
28887
28888         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
28889            --  PackageableElement::visibility : VisibilityKind
28890
28891            return
28892              AMF.UML.Holders.Visibility_Kinds.To_Holder
28893               (AMF.UML.Interactions.UML_Interaction_Access
28894                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
28895
28896         else
28897            raise Program_Error;
28898         end if;
28899      end UML_Interaction_Get;
28900
28901      ------------------------------------
28902      -- UML_Interaction_Constraint_Get --
28903      ------------------------------------
28904
28905      function UML_Interaction_Constraint_Get return League.Holders.Holder is
28906      begin
28907         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
28908            --  NamedElement::clientDependency : Dependency
28909
28910            return
28911              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
28912               (AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access
28913                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
28914
28915         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Constraint_Constrained_Element_A_Constraint then
28916            --  Constraint::constrainedElement : Element
28917
28918            return
28919              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
28920               (AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access
28921                 (AMF.Internals.Helpers.To_Element (Self)).Get_Constrained_Element);
28922
28923         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Constraint_Context_Namespace_Owned_Rule then
28924            --  Constraint::context : Namespace
28925
28926            return
28927              AMF.Internals.Holders.UML_Holders.To_Holder
28928               (AMF.UML.Namespaces.UML_Namespace_Access'
28929                 (AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access
28930                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
28931
28932         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Constraint_Maxint_A_Interaction_Constraint then
28933            --  InteractionConstraint::maxint : ValueSpecification
28934
28935            return
28936              AMF.Internals.Holders.UML_Holders.To_Holder
28937               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
28938                 (AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access
28939                   (AMF.Internals.Helpers.To_Element (Self)).Get_Maxint));
28940
28941         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Constraint_Minint_A_Interaction_Constraint then
28942            --  InteractionConstraint::minint : ValueSpecification
28943
28944            return
28945              AMF.Internals.Holders.UML_Holders.To_Holder
28946               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
28947                 (AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access
28948                   (AMF.Internals.Helpers.To_Element (Self)).Get_Minint));
28949
28950         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
28951            --  NamedElement::name : String
28952
28953            return
28954              AMF.Holders.To_Holder
28955               (AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access
28956                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
28957
28958         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
28959            --  NamedElement::nameExpression : StringExpression
28960
28961            return
28962              AMF.Internals.Holders.UML_Holders.To_Holder
28963               (AMF.UML.String_Expressions.UML_String_Expression_Access'
28964                 (AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access
28965                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
28966
28967         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
28968            --  NamedElement::namespace : Namespace
28969
28970            return
28971              AMF.Internals.Holders.UML_Holders.To_Holder
28972               (AMF.UML.Namespaces.UML_Namespace_Access'
28973                 (AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access
28974                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
28975
28976         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
28977            --  Element::ownedComment : Comment
28978
28979            return
28980              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
28981               (AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access
28982                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
28983
28984         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
28985            --  Element::ownedElement : Element
28986
28987            return
28988              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
28989               (AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access
28990                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
28991
28992         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
28993            --  Element::owner : Element
28994
28995            return
28996              AMF.Internals.Holders.UML_Holders.To_Holder
28997               (AMF.UML.Elements.UML_Element_Access'
28998                 (AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access
28999                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
29000
29001         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
29002            --  ParameterableElement::owningTemplateParameter : TemplateParameter
29003
29004            return
29005              AMF.Internals.Holders.UML_Holders.To_Holder
29006               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
29007                 (AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access
29008                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
29009
29010         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
29011            --  NamedElement::qualifiedName : String
29012
29013            return
29014              AMF.Holders.To_Holder
29015               (AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access
29016                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
29017
29018         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Constraint_Specification_A_Owning_Constraint then
29019            --  Constraint::specification : ValueSpecification
29020
29021            return
29022              AMF.Internals.Holders.UML_Holders.To_Holder
29023               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
29024                 (AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access
29025                   (AMF.Internals.Helpers.To_Element (Self)).Get_Specification));
29026
29027         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
29028            --  ParameterableElement::templateParameter : TemplateParameter
29029
29030            return
29031              AMF.Internals.Holders.UML_Holders.To_Holder
29032               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
29033                 (AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access
29034                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
29035
29036         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
29037            --  NamedElement::visibility : VisibilityKind
29038
29039            return
29040              AMF.UML.Holders.To_Holder
29041               (AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access
29042                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
29043
29044         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
29045            --  PackageableElement::visibility : VisibilityKind
29046
29047            return
29048              AMF.UML.Holders.Visibility_Kinds.To_Holder
29049               (AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access
29050                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
29051
29052         else
29053            raise Program_Error;
29054         end if;
29055      end UML_Interaction_Constraint_Get;
29056
29057      ---------------------------------
29058      -- UML_Interaction_Operand_Get --
29059      ---------------------------------
29060
29061      function UML_Interaction_Operand_Get return League.Holders.Holder is
29062      begin
29063         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
29064            --  NamedElement::clientDependency : Dependency
29065
29066            return
29067              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
29068               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access
29069                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
29070
29071         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Covered_Lifeline_Covered_By then
29072            --  InteractionFragment::covered : Lifeline
29073
29074            return
29075              AMF.UML.Lifelines.Collections.UML_Lifeline_Collections.Internals.To_Holder
29076               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access
29077                 (AMF.Internals.Helpers.To_Element (Self)).Get_Covered);
29078
29079         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
29080            --  Namespace::elementImport : ElementImport
29081
29082            return
29083              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
29084               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access
29085                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
29086
29087         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Interaction_Interaction_Fragment then
29088            --  InteractionFragment::enclosingInteraction : Interaction
29089
29090            return
29091              AMF.Internals.Holders.UML_Holders.To_Holder
29092               (AMF.UML.Interactions.UML_Interaction_Access'
29093                 (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access
29094                   (AMF.Internals.Helpers.To_Element (Self)).Get_Enclosing_Interaction));
29095
29096         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Operand_Interaction_Operand_Fragment then
29097            --  InteractionFragment::enclosingOperand : InteractionOperand
29098
29099            return
29100              AMF.Internals.Holders.UML_Holders.To_Holder
29101               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access'
29102                 (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access
29103                   (AMF.Internals.Helpers.To_Element (Self)).Get_Enclosing_Operand));
29104
29105         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Operand_Fragment_Interaction_Fragment_Enclosing_Operand then
29106            --  InteractionOperand::fragment : InteractionFragment
29107
29108            return
29109              AMF.UML.Interaction_Fragments.Collections.UML_Interaction_Fragment_Collections.Internals.To_Holder
29110               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access
29111                 (AMF.Internals.Helpers.To_Element (Self)).Get_Fragment);
29112
29113         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_General_Ordering_A_Interaction_Fragment then
29114            --  InteractionFragment::generalOrdering : GeneralOrdering
29115
29116            return
29117              AMF.UML.General_Orderings.Collections.UML_General_Ordering_Collections.Internals.To_Holder
29118               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access
29119                 (AMF.Internals.Helpers.To_Element (Self)).Get_General_Ordering);
29120
29121         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Operand_Guard_A_Interaction_Operand then
29122            --  InteractionOperand::guard : InteractionConstraint
29123
29124            return
29125              AMF.Internals.Holders.UML_Holders.To_Holder
29126               (AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access'
29127                 (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access
29128                   (AMF.Internals.Helpers.To_Element (Self)).Get_Guard));
29129
29130         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
29131            --  Namespace::importedMember : PackageableElement
29132
29133            return
29134              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
29135               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access
29136                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
29137
29138         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
29139            --  Namespace::member : NamedElement
29140
29141            return
29142              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
29143               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access
29144                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
29145
29146         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
29147            --  NamedElement::name : String
29148
29149            return
29150              AMF.Holders.To_Holder
29151               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access
29152                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
29153
29154         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
29155            --  NamedElement::nameExpression : StringExpression
29156
29157            return
29158              AMF.Internals.Holders.UML_Holders.To_Holder
29159               (AMF.UML.String_Expressions.UML_String_Expression_Access'
29160                 (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access
29161                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
29162
29163         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
29164            --  NamedElement::namespace : Namespace
29165
29166            return
29167              AMF.Internals.Holders.UML_Holders.To_Holder
29168               (AMF.UML.Namespaces.UML_Namespace_Access'
29169                 (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access
29170                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
29171
29172         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
29173            --  Element::ownedComment : Comment
29174
29175            return
29176              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
29177               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access
29178                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
29179
29180         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
29181            --  Element::ownedElement : Element
29182
29183            return
29184              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
29185               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access
29186                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
29187
29188         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
29189            --  Namespace::ownedMember : NamedElement
29190
29191            return
29192              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
29193               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access
29194                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
29195
29196         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
29197            --  Namespace::ownedRule : Constraint
29198
29199            return
29200              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
29201               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access
29202                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
29203
29204         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
29205            --  Element::owner : Element
29206
29207            return
29208              AMF.Internals.Holders.UML_Holders.To_Holder
29209               (AMF.UML.Elements.UML_Element_Access'
29210                 (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access
29211                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
29212
29213         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
29214            --  Namespace::packageImport : PackageImport
29215
29216            return
29217              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
29218               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access
29219                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
29220
29221         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
29222            --  NamedElement::qualifiedName : String
29223
29224            return
29225              AMF.Holders.To_Holder
29226               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access
29227                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
29228
29229         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
29230            --  NamedElement::visibility : VisibilityKind
29231
29232            return
29233              AMF.UML.Holders.To_Holder
29234               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access
29235                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
29236
29237         else
29238            raise Program_Error;
29239         end if;
29240      end UML_Interaction_Operand_Get;
29241
29242      -----------------------------
29243      -- UML_Interaction_Use_Get --
29244      -----------------------------
29245
29246      function UML_Interaction_Use_Get return League.Holders.Holder is
29247      begin
29248         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Use_Actual_Gate_A_Interaction_Use then
29249            --  InteractionUse::actualGate : Gate
29250
29251            return
29252              AMF.UML.Gates.Collections.UML_Gate_Collections.Internals.To_Holder
29253               (AMF.UML.Interaction_Uses.UML_Interaction_Use_Access
29254                 (AMF.Internals.Helpers.To_Element (Self)).Get_Actual_Gate);
29255
29256         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Use_Argument_A_Interaction_Use then
29257            --  InteractionUse::argument : ValueSpecification
29258
29259            return
29260              AMF.UML.Value_Specifications.Collections.UML_Value_Specification_Collections.Internals.To_Holder
29261               (AMF.UML.Interaction_Uses.UML_Interaction_Use_Access
29262                 (AMF.Internals.Helpers.To_Element (Self)).Get_Argument);
29263
29264         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
29265            --  NamedElement::clientDependency : Dependency
29266
29267            return
29268              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
29269               (AMF.UML.Interaction_Uses.UML_Interaction_Use_Access
29270                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
29271
29272         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Covered_Lifeline_Covered_By then
29273            --  InteractionFragment::covered : Lifeline
29274
29275            return
29276              AMF.UML.Lifelines.Collections.UML_Lifeline_Collections.Internals.To_Holder
29277               (AMF.UML.Interaction_Uses.UML_Interaction_Use_Access
29278                 (AMF.Internals.Helpers.To_Element (Self)).Get_Covered);
29279
29280         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Interaction_Interaction_Fragment then
29281            --  InteractionFragment::enclosingInteraction : Interaction
29282
29283            return
29284              AMF.Internals.Holders.UML_Holders.To_Holder
29285               (AMF.UML.Interactions.UML_Interaction_Access'
29286                 (AMF.UML.Interaction_Uses.UML_Interaction_Use_Access
29287                   (AMF.Internals.Helpers.To_Element (Self)).Get_Enclosing_Interaction));
29288
29289         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Operand_Interaction_Operand_Fragment then
29290            --  InteractionFragment::enclosingOperand : InteractionOperand
29291
29292            return
29293              AMF.Internals.Holders.UML_Holders.To_Holder
29294               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access'
29295                 (AMF.UML.Interaction_Uses.UML_Interaction_Use_Access
29296                   (AMF.Internals.Helpers.To_Element (Self)).Get_Enclosing_Operand));
29297
29298         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_General_Ordering_A_Interaction_Fragment then
29299            --  InteractionFragment::generalOrdering : GeneralOrdering
29300
29301            return
29302              AMF.UML.General_Orderings.Collections.UML_General_Ordering_Collections.Internals.To_Holder
29303               (AMF.UML.Interaction_Uses.UML_Interaction_Use_Access
29304                 (AMF.Internals.Helpers.To_Element (Self)).Get_General_Ordering);
29305
29306         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
29307            --  NamedElement::name : String
29308
29309            return
29310              AMF.Holders.To_Holder
29311               (AMF.UML.Interaction_Uses.UML_Interaction_Use_Access
29312                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
29313
29314         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
29315            --  NamedElement::nameExpression : StringExpression
29316
29317            return
29318              AMF.Internals.Holders.UML_Holders.To_Holder
29319               (AMF.UML.String_Expressions.UML_String_Expression_Access'
29320                 (AMF.UML.Interaction_Uses.UML_Interaction_Use_Access
29321                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
29322
29323         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
29324            --  NamedElement::namespace : Namespace
29325
29326            return
29327              AMF.Internals.Holders.UML_Holders.To_Holder
29328               (AMF.UML.Namespaces.UML_Namespace_Access'
29329                 (AMF.UML.Interaction_Uses.UML_Interaction_Use_Access
29330                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
29331
29332         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
29333            --  Element::ownedComment : Comment
29334
29335            return
29336              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
29337               (AMF.UML.Interaction_Uses.UML_Interaction_Use_Access
29338                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
29339
29340         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
29341            --  Element::ownedElement : Element
29342
29343            return
29344              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
29345               (AMF.UML.Interaction_Uses.UML_Interaction_Use_Access
29346                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
29347
29348         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
29349            --  Element::owner : Element
29350
29351            return
29352              AMF.Internals.Holders.UML_Holders.To_Holder
29353               (AMF.UML.Elements.UML_Element_Access'
29354                 (AMF.UML.Interaction_Uses.UML_Interaction_Use_Access
29355                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
29356
29357         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
29358            --  NamedElement::qualifiedName : String
29359
29360            return
29361              AMF.Holders.To_Holder
29362               (AMF.UML.Interaction_Uses.UML_Interaction_Use_Access
29363                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
29364
29365         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Use_Refers_To_A_Interaction_Use then
29366            --  InteractionUse::refersTo : Interaction
29367
29368            return
29369              AMF.Internals.Holders.UML_Holders.To_Holder
29370               (AMF.UML.Interactions.UML_Interaction_Access'
29371                 (AMF.UML.Interaction_Uses.UML_Interaction_Use_Access
29372                   (AMF.Internals.Helpers.To_Element (Self)).Get_Refers_To));
29373
29374         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Use_Return_Value_A_Interaction_Use then
29375            --  InteractionUse::returnValue : ValueSpecification
29376
29377            return
29378              AMF.Internals.Holders.UML_Holders.To_Holder
29379               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
29380                 (AMF.UML.Interaction_Uses.UML_Interaction_Use_Access
29381                   (AMF.Internals.Helpers.To_Element (Self)).Get_Return_Value));
29382
29383         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Use_Return_Value_Recipient_A_Interaction_Use then
29384            --  InteractionUse::returnValueRecipient : Property
29385
29386            return
29387              AMF.Internals.Holders.UML_Holders.To_Holder
29388               (AMF.UML.Properties.UML_Property_Access'
29389                 (AMF.UML.Interaction_Uses.UML_Interaction_Use_Access
29390                   (AMF.Internals.Helpers.To_Element (Self)).Get_Return_Value_Recipient));
29391
29392         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
29393            --  NamedElement::visibility : VisibilityKind
29394
29395            return
29396              AMF.UML.Holders.To_Holder
29397               (AMF.UML.Interaction_Uses.UML_Interaction_Use_Access
29398                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
29399
29400         else
29401            raise Program_Error;
29402         end if;
29403      end UML_Interaction_Use_Get;
29404
29405      -----------------------
29406      -- UML_Interface_Get --
29407      -----------------------
29408
29409      function UML_Interface_Get return League.Holders.Holder is
29410      begin
29411         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier then
29412            --  Classifier::attribute : Property
29413
29414            return
29415              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
29416               (AMF.UML.Interfaces.UML_Interface_Access
29417                 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute);
29418
29419         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
29420            --  NamedElement::clientDependency : Dependency
29421
29422            return
29423              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
29424               (AMF.UML.Interfaces.UML_Interface_Access
29425                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
29426
29427         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier then
29428            --  Classifier::collaborationUse : CollaborationUse
29429
29430            return
29431              AMF.UML.Collaboration_Uses.Collections.UML_Collaboration_Use_Collections.Internals.To_Holder
29432               (AMF.UML.Interfaces.UML_Interface_Access
29433                 (AMF.Internals.Helpers.To_Element (Self)).Get_Collaboration_Use);
29434
29435         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
29436            --  Namespace::elementImport : ElementImport
29437
29438            return
29439              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
29440               (AMF.UML.Interfaces.UML_Interface_Access
29441                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
29442
29443         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier then
29444            --  Classifier::feature : Feature
29445
29446            return
29447              AMF.UML.Features.Collections.UML_Feature_Collections.Internals.To_Holder
29448               (AMF.UML.Interfaces.UML_Interface_Access
29449                 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature);
29450
29451         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier then
29452            --  Classifier::general : Classifier
29453
29454            return
29455              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
29456               (AMF.UML.Interfaces.UML_Interface_Access
29457                 (AMF.Internals.Helpers.To_Element (Self)).Get_General);
29458
29459         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific then
29460            --  Classifier::generalization : Generalization
29461
29462            return
29463              AMF.UML.Generalizations.Collections.UML_Generalization_Collections.Internals.To_Holder
29464               (AMF.UML.Interfaces.UML_Interface_Access
29465                 (AMF.Internals.Helpers.To_Element (Self)).Get_Generalization);
29466
29467         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
29468            --  Namespace::importedMember : PackageableElement
29469
29470            return
29471              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
29472               (AMF.UML.Interfaces.UML_Interface_Access
29473                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
29474
29475         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier then
29476            --  Classifier::inheritedMember : NamedElement
29477
29478            return
29479              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
29480               (AMF.UML.Interfaces.UML_Interface_Access
29481                 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member);
29482
29483         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
29484            --  Classifier::isAbstract : Boolean
29485
29486            return
29487              League.Holders.Booleans.To_Holder
29488               (AMF.UML.Interfaces.UML_Interface_Access
29489                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
29490
29491         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
29492            --  Classifier::isFinalSpecialization : Boolean
29493
29494            return
29495              League.Holders.Booleans.To_Holder
29496               (AMF.UML.Interfaces.UML_Interface_Access
29497                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization);
29498
29499         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
29500            --  RedefinableElement::isLeaf : Boolean
29501
29502            return
29503              League.Holders.Booleans.To_Holder
29504               (AMF.UML.Interfaces.UML_Interface_Access
29505                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
29506
29507         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
29508            --  Namespace::member : NamedElement
29509
29510            return
29511              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
29512               (AMF.UML.Interfaces.UML_Interface_Access
29513                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
29514
29515         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
29516            --  NamedElement::name : String
29517
29518            return
29519              AMF.Holders.To_Holder
29520               (AMF.UML.Interfaces.UML_Interface_Access
29521                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
29522
29523         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
29524            --  NamedElement::nameExpression : StringExpression
29525
29526            return
29527              AMF.Internals.Holders.UML_Holders.To_Holder
29528               (AMF.UML.String_Expressions.UML_String_Expression_Access'
29529                 (AMF.UML.Interfaces.UML_Interface_Access
29530                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
29531
29532         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
29533            --  NamedElement::namespace : Namespace
29534
29535            return
29536              AMF.Internals.Holders.UML_Holders.To_Holder
29537               (AMF.UML.Namespaces.UML_Namespace_Access'
29538                 (AMF.UML.Interfaces.UML_Interface_Access
29539                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
29540
29541         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interface_Nested_Classifier_A_Interface then
29542            --  Interface::nestedClassifier : Classifier
29543
29544            return
29545              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
29546               (AMF.UML.Interfaces.UML_Interface_Access
29547                 (AMF.Internals.Helpers.To_Element (Self)).Get_Nested_Classifier);
29548
29549         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interface_Owned_Attribute_Property_Interface then
29550            --  Interface::ownedAttribute : Property
29551
29552            return
29553              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
29554               (AMF.UML.Interfaces.UML_Interface_Access
29555                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
29556
29557         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
29558            --  Element::ownedComment : Comment
29559
29560            return
29561              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
29562               (AMF.UML.Interfaces.UML_Interface_Access
29563                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
29564
29565         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
29566            --  Element::ownedElement : Element
29567
29568            return
29569              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
29570               (AMF.UML.Interfaces.UML_Interface_Access
29571                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
29572
29573         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
29574            --  Namespace::ownedMember : NamedElement
29575
29576            return
29577              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
29578               (AMF.UML.Interfaces.UML_Interface_Access
29579                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
29580
29581         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interface_Owned_Operation_Operation_Interface then
29582            --  Interface::ownedOperation : Operation
29583
29584            return
29585              AMF.UML.Operations.Collections.UML_Operation_Collections.Internals.To_Holder
29586               (AMF.UML.Interfaces.UML_Interface_Access
29587                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Operation);
29588
29589         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interface_Owned_Reception_A_Interface then
29590            --  Interface::ownedReception : Reception
29591
29592            return
29593              AMF.UML.Receptions.Collections.UML_Reception_Collections.Internals.To_Holder
29594               (AMF.UML.Interfaces.UML_Interface_Access
29595                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Reception);
29596
29597         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
29598            --  Namespace::ownedRule : Constraint
29599
29600            return
29601              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
29602               (AMF.UML.Interfaces.UML_Interface_Access
29603                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
29604
29605         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
29606            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
29607
29608            return
29609              AMF.Internals.Holders.UML_Holders.To_Holder
29610               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access'
29611                 (AMF.UML.Interfaces.UML_Interface_Access
29612                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
29613
29614         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
29615            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
29616
29617            return
29618              AMF.Internals.Holders.UML_Holders.To_Holder
29619               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
29620                 (AMF.UML.Interfaces.UML_Interface_Access
29621                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
29622
29623         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier then
29624            --  Classifier::ownedUseCase : UseCase
29625
29626            return
29627              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
29628               (AMF.UML.Interfaces.UML_Interface_Access
29629                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Use_Case);
29630
29631         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
29632            --  Element::owner : Element
29633
29634            return
29635              AMF.Internals.Holders.UML_Holders.To_Holder
29636               (AMF.UML.Elements.UML_Element_Access'
29637                 (AMF.UML.Interfaces.UML_Interface_Access
29638                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
29639
29640         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
29641            --  ParameterableElement::owningTemplateParameter : TemplateParameter
29642
29643            return
29644              AMF.Internals.Holders.UML_Holders.To_Holder
29645               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
29646                 (AMF.UML.Interfaces.UML_Interface_Access
29647                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
29648
29649         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
29650            --  Type::package : Package
29651
29652            return
29653              AMF.Internals.Holders.UML_Holders.To_Holder
29654               (AMF.UML.Packages.UML_Package_Access'
29655                 (AMF.UML.Interfaces.UML_Interface_Access
29656                   (AMF.Internals.Helpers.To_Element (Self)).Get_Package));
29657
29658         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
29659            --  Namespace::packageImport : PackageImport
29660
29661            return
29662              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
29663               (AMF.UML.Interfaces.UML_Interface_Access
29664                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
29665
29666         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype then
29667            --  Classifier::powertypeExtent : GeneralizationSet
29668
29669            return
29670              AMF.UML.Generalization_Sets.Collections.UML_Generalization_Set_Collections.Internals.To_Holder
29671               (AMF.UML.Interfaces.UML_Interface_Access
29672                 (AMF.Internals.Helpers.To_Element (Self)).Get_Powertype_Extent);
29673
29674         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interface_Protocol_A_Interface then
29675            --  Interface::protocol : ProtocolStateMachine
29676
29677            return
29678              AMF.Internals.Holders.UML_Holders.To_Holder
29679               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access'
29680                 (AMF.UML.Interfaces.UML_Interface_Access
29681                   (AMF.Internals.Helpers.To_Element (Self)).Get_Protocol));
29682
29683         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
29684            --  NamedElement::qualifiedName : String
29685
29686            return
29687              AMF.Holders.To_Holder
29688               (AMF.UML.Interfaces.UML_Interface_Access
29689                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
29690
29691         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier then
29692            --  Classifier::redefinedClassifier : Classifier
29693
29694            return
29695              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
29696               (AMF.UML.Interfaces.UML_Interface_Access
29697                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Classifier);
29698
29699         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
29700            --  RedefinableElement::redefinedElement : RedefinableElement
29701
29702            return
29703              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
29704               (AMF.UML.Interfaces.UML_Interface_Access
29705                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
29706
29707         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interface_Redefined_Interface_A_Interface then
29708            --  Interface::redefinedInterface : Interface
29709
29710            return
29711              AMF.UML.Interfaces.Collections.UML_Interface_Collections.Internals.To_Holder
29712               (AMF.UML.Interfaces.UML_Interface_Access
29713                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Interface);
29714
29715         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
29716            --  RedefinableElement::redefinitionContext : Classifier
29717
29718            return
29719              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
29720               (AMF.UML.Interfaces.UML_Interface_Access
29721                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
29722
29723         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
29724            --  Classifier::representation : CollaborationUse
29725
29726            return
29727              AMF.Internals.Holders.UML_Holders.To_Holder
29728               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access'
29729                 (AMF.UML.Interfaces.UML_Interface_Access
29730                   (AMF.Internals.Helpers.To_Element (Self)).Get_Representation));
29731
29732         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier then
29733            --  Classifier::substitution : Substitution
29734
29735            return
29736              AMF.UML.Substitutions.Collections.UML_Substitution_Collections.Internals.To_Holder
29737               (AMF.UML.Interfaces.UML_Interface_Access
29738                 (AMF.Internals.Helpers.To_Element (Self)).Get_Substitution);
29739
29740         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
29741            --  TemplateableElement::templateBinding : TemplateBinding
29742
29743            return
29744              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
29745               (AMF.UML.Interfaces.UML_Interface_Access
29746                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
29747
29748         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
29749            --  Classifier::templateParameter : ClassifierTemplateParameter
29750
29751            return
29752              AMF.Internals.Holders.UML_Holders.To_Holder
29753               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access'
29754                 (AMF.UML.Interfaces.UML_Interface_Access
29755                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
29756
29757         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
29758            --  ParameterableElement::templateParameter : TemplateParameter
29759
29760            return
29761              AMF.Internals.Holders.UML_Holders.To_Holder
29762               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
29763                 (AMF.UML.Interfaces.UML_Interface_Access
29764                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
29765
29766         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject then
29767            --  Classifier::useCase : UseCase
29768
29769            return
29770              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
29771               (AMF.UML.Interfaces.UML_Interface_Access
29772                 (AMF.Internals.Helpers.To_Element (Self)).Get_Use_Case);
29773
29774         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
29775            --  NamedElement::visibility : VisibilityKind
29776
29777            return
29778              AMF.UML.Holders.To_Holder
29779               (AMF.UML.Interfaces.UML_Interface_Access
29780                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
29781
29782         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
29783            --  PackageableElement::visibility : VisibilityKind
29784
29785            return
29786              AMF.UML.Holders.Visibility_Kinds.To_Holder
29787               (AMF.UML.Interfaces.UML_Interface_Access
29788                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
29789
29790         else
29791            raise Program_Error;
29792         end if;
29793      end UML_Interface_Get;
29794
29795      -----------------------------------
29796      -- UML_Interface_Realization_Get --
29797      -----------------------------------
29798
29799      function UML_Interface_Realization_Get return League.Holders.Holder is
29800      begin
29801         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Client_Named_Element_Client_Dependency then
29802            --  Dependency::client : NamedElement
29803
29804            return
29805              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
29806               (AMF.UML.Interface_Realizations.UML_Interface_Realization_Access
29807                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client);
29808
29809         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
29810            --  NamedElement::clientDependency : Dependency
29811
29812            return
29813              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
29814               (AMF.UML.Interface_Realizations.UML_Interface_Realization_Access
29815                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
29816
29817         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interface_Realization_Contract_A_Interface_Realization then
29818            --  InterfaceRealization::contract : Interface
29819
29820            return
29821              AMF.Internals.Holders.UML_Holders.To_Holder
29822               (AMF.UML.Interfaces.UML_Interface_Access'
29823                 (AMF.UML.Interface_Realizations.UML_Interface_Realization_Access
29824                   (AMF.Internals.Helpers.To_Element (Self)).Get_Contract));
29825
29826         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interface_Realization_Implementing_Classifier_Behaviored_Classifier_Interface_Realization then
29827            --  InterfaceRealization::implementingClassifier : BehavioredClassifier
29828
29829            return
29830              AMF.Internals.Holders.UML_Holders.To_Holder
29831               (AMF.UML.Behaviored_Classifiers.UML_Behaviored_Classifier_Access'
29832                 (AMF.UML.Interface_Realizations.UML_Interface_Realization_Access
29833                   (AMF.Internals.Helpers.To_Element (Self)).Get_Implementing_Classifier));
29834
29835         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Abstraction_Mapping_A_Abstraction then
29836            --  Abstraction::mapping : OpaqueExpression
29837
29838            return
29839              AMF.Internals.Holders.UML_Holders.To_Holder
29840               (AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access'
29841                 (AMF.UML.Interface_Realizations.UML_Interface_Realization_Access
29842                   (AMF.Internals.Helpers.To_Element (Self)).Get_Mapping));
29843
29844         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
29845            --  NamedElement::name : String
29846
29847            return
29848              AMF.Holders.To_Holder
29849               (AMF.UML.Interface_Realizations.UML_Interface_Realization_Access
29850                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
29851
29852         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
29853            --  NamedElement::nameExpression : StringExpression
29854
29855            return
29856              AMF.Internals.Holders.UML_Holders.To_Holder
29857               (AMF.UML.String_Expressions.UML_String_Expression_Access'
29858                 (AMF.UML.Interface_Realizations.UML_Interface_Realization_Access
29859                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
29860
29861         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
29862            --  NamedElement::namespace : Namespace
29863
29864            return
29865              AMF.Internals.Holders.UML_Holders.To_Holder
29866               (AMF.UML.Namespaces.UML_Namespace_Access'
29867                 (AMF.UML.Interface_Realizations.UML_Interface_Realization_Access
29868                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
29869
29870         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
29871            --  Element::ownedComment : Comment
29872
29873            return
29874              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
29875               (AMF.UML.Interface_Realizations.UML_Interface_Realization_Access
29876                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
29877
29878         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
29879            --  Element::ownedElement : Element
29880
29881            return
29882              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
29883               (AMF.UML.Interface_Realizations.UML_Interface_Realization_Access
29884                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
29885
29886         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
29887            --  Element::owner : Element
29888
29889            return
29890              AMF.Internals.Holders.UML_Holders.To_Holder
29891               (AMF.UML.Elements.UML_Element_Access'
29892                 (AMF.UML.Interface_Realizations.UML_Interface_Realization_Access
29893                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
29894
29895         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
29896            --  ParameterableElement::owningTemplateParameter : TemplateParameter
29897
29898            return
29899              AMF.Internals.Holders.UML_Holders.To_Holder
29900               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
29901                 (AMF.UML.Interface_Realizations.UML_Interface_Realization_Access
29902                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
29903
29904         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
29905            --  NamedElement::qualifiedName : String
29906
29907            return
29908              AMF.Holders.To_Holder
29909               (AMF.UML.Interface_Realizations.UML_Interface_Realization_Access
29910                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
29911
29912         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship then
29913            --  Relationship::relatedElement : Element
29914
29915            return
29916              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
29917               (AMF.UML.Interface_Realizations.UML_Interface_Realization_Access
29918                 (AMF.Internals.Helpers.To_Element (Self)).Get_Related_Element);
29919
29920         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship then
29921            --  DirectedRelationship::source : Element
29922
29923            return
29924              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
29925               (AMF.UML.Interface_Realizations.UML_Interface_Realization_Access
29926                 (AMF.Internals.Helpers.To_Element (Self)).Get_Source);
29927
29928         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Supplier_A_Supplier_Dependency then
29929            --  Dependency::supplier : NamedElement
29930
29931            return
29932              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
29933               (AMF.UML.Interface_Realizations.UML_Interface_Realization_Access
29934                 (AMF.Internals.Helpers.To_Element (Self)).Get_Supplier);
29935
29936         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship then
29937            --  DirectedRelationship::target : Element
29938
29939            return
29940              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
29941               (AMF.UML.Interface_Realizations.UML_Interface_Realization_Access
29942                 (AMF.Internals.Helpers.To_Element (Self)).Get_Target);
29943
29944         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
29945            --  ParameterableElement::templateParameter : TemplateParameter
29946
29947            return
29948              AMF.Internals.Holders.UML_Holders.To_Holder
29949               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
29950                 (AMF.UML.Interface_Realizations.UML_Interface_Realization_Access
29951                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
29952
29953         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
29954            --  NamedElement::visibility : VisibilityKind
29955
29956            return
29957              AMF.UML.Holders.To_Holder
29958               (AMF.UML.Interface_Realizations.UML_Interface_Realization_Access
29959                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
29960
29961         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
29962            --  PackageableElement::visibility : VisibilityKind
29963
29964            return
29965              AMF.UML.Holders.Visibility_Kinds.To_Holder
29966               (AMF.UML.Interface_Realizations.UML_Interface_Realization_Access
29967                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
29968
29969         else
29970            raise Program_Error;
29971         end if;
29972      end UML_Interface_Realization_Get;
29973
29974      -------------------------------------------
29975      -- UML_Interruptible_Activity_Region_Get --
29976      -------------------------------------------
29977
29978      function UML_Interruptible_Activity_Region_Get return League.Holders.Holder is
29979      begin
29980         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
29981            --  NamedElement::clientDependency : Dependency
29982
29983            return
29984              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
29985               (AMF.UML.Interruptible_Activity_Regions.UML_Interruptible_Activity_Region_Access
29986                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
29987
29988         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Contained_Edge_Activity_Edge_In_Group then
29989            --  ActivityGroup::containedEdge : ActivityEdge
29990
29991            return
29992              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
29993               (AMF.UML.Interruptible_Activity_Regions.UML_Interruptible_Activity_Region_Access
29994                 (AMF.Internals.Helpers.To_Element (Self)).Get_Contained_Edge);
29995
29996         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Contained_Node_Activity_Node_In_Group then
29997            --  ActivityGroup::containedNode : ActivityNode
29998
29999            return
30000              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
30001               (AMF.UML.Interruptible_Activity_Regions.UML_Interruptible_Activity_Region_Access
30002                 (AMF.Internals.Helpers.To_Element (Self)).Get_Contained_Node);
30003
30004         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_In_Activity_Activity_Group then
30005            --  ActivityGroup::inActivity : Activity
30006
30007            return
30008              AMF.Internals.Holders.UML_Holders.To_Holder
30009               (AMF.UML.Activities.UML_Activity_Access'
30010                 (AMF.UML.Interruptible_Activity_Regions.UML_Interruptible_Activity_Region_Access
30011                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Activity));
30012
30013         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interruptible_Activity_Region_Interrupting_Edge_Activity_Edge_Interrupts then
30014            --  InterruptibleActivityRegion::interruptingEdge : ActivityEdge
30015
30016            return
30017              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
30018               (AMF.UML.Interruptible_Activity_Regions.UML_Interruptible_Activity_Region_Access
30019                 (AMF.Internals.Helpers.To_Element (Self)).Get_Interrupting_Edge);
30020
30021         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
30022            --  NamedElement::name : String
30023
30024            return
30025              AMF.Holders.To_Holder
30026               (AMF.UML.Interruptible_Activity_Regions.UML_Interruptible_Activity_Region_Access
30027                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
30028
30029         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
30030            --  NamedElement::nameExpression : StringExpression
30031
30032            return
30033              AMF.Internals.Holders.UML_Holders.To_Holder
30034               (AMF.UML.String_Expressions.UML_String_Expression_Access'
30035                 (AMF.UML.Interruptible_Activity_Regions.UML_Interruptible_Activity_Region_Access
30036                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
30037
30038         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
30039            --  NamedElement::namespace : Namespace
30040
30041            return
30042              AMF.Internals.Holders.UML_Holders.To_Holder
30043               (AMF.UML.Namespaces.UML_Namespace_Access'
30044                 (AMF.UML.Interruptible_Activity_Regions.UML_Interruptible_Activity_Region_Access
30045                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
30046
30047         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interruptible_Activity_Region_Node_Activity_Node_In_Interruptible_Region then
30048            --  InterruptibleActivityRegion::node : ActivityNode
30049
30050            return
30051              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
30052               (AMF.UML.Interruptible_Activity_Regions.UML_Interruptible_Activity_Region_Access
30053                 (AMF.Internals.Helpers.To_Element (Self)).Get_Node);
30054
30055         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
30056            --  Element::ownedComment : Comment
30057
30058            return
30059              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
30060               (AMF.UML.Interruptible_Activity_Regions.UML_Interruptible_Activity_Region_Access
30061                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
30062
30063         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
30064            --  Element::ownedElement : Element
30065
30066            return
30067              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
30068               (AMF.UML.Interruptible_Activity_Regions.UML_Interruptible_Activity_Region_Access
30069                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
30070
30071         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
30072            --  Element::owner : Element
30073
30074            return
30075              AMF.Internals.Holders.UML_Holders.To_Holder
30076               (AMF.UML.Elements.UML_Element_Access'
30077                 (AMF.UML.Interruptible_Activity_Regions.UML_Interruptible_Activity_Region_Access
30078                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
30079
30080         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
30081            --  NamedElement::qualifiedName : String
30082
30083            return
30084              AMF.Holders.To_Holder
30085               (AMF.UML.Interruptible_Activity_Regions.UML_Interruptible_Activity_Region_Access
30086                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
30087
30088         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Subgroup_Activity_Group_Super_Group then
30089            --  ActivityGroup::subgroup : ActivityGroup
30090
30091            return
30092              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
30093               (AMF.UML.Interruptible_Activity_Regions.UML_Interruptible_Activity_Region_Access
30094                 (AMF.Internals.Helpers.To_Element (Self)).Get_Subgroup);
30095
30096         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Super_Group_Activity_Group_Subgroup then
30097            --  ActivityGroup::superGroup : ActivityGroup
30098
30099            return
30100              AMF.Internals.Holders.UML_Holders.To_Holder
30101               (AMF.UML.Activity_Groups.UML_Activity_Group_Access'
30102                 (AMF.UML.Interruptible_Activity_Regions.UML_Interruptible_Activity_Region_Access
30103                   (AMF.Internals.Helpers.To_Element (Self)).Get_Super_Group));
30104
30105         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
30106            --  NamedElement::visibility : VisibilityKind
30107
30108            return
30109              AMF.UML.Holders.To_Holder
30110               (AMF.UML.Interruptible_Activity_Regions.UML_Interruptible_Activity_Region_Access
30111                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
30112
30113         else
30114            raise Program_Error;
30115         end if;
30116      end UML_Interruptible_Activity_Region_Get;
30117
30118      ----------------------
30119      -- UML_Interval_Get --
30120      ----------------------
30121
30122      function UML_Interval_Get return League.Holders.Holder is
30123      begin
30124         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
30125            --  NamedElement::clientDependency : Dependency
30126
30127            return
30128              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
30129               (AMF.UML.Intervals.UML_Interval_Access
30130                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
30131
30132         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interval_Max_A_Interval then
30133            --  Interval::max : ValueSpecification
30134
30135            return
30136              AMF.Internals.Holders.UML_Holders.To_Holder
30137               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
30138                 (AMF.UML.Intervals.UML_Interval_Access
30139                   (AMF.Internals.Helpers.To_Element (Self)).Get_Max));
30140
30141         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interval_Min_A_Interval then
30142            --  Interval::min : ValueSpecification
30143
30144            return
30145              AMF.Internals.Holders.UML_Holders.To_Holder
30146               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
30147                 (AMF.UML.Intervals.UML_Interval_Access
30148                   (AMF.Internals.Helpers.To_Element (Self)).Get_Min));
30149
30150         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
30151            --  NamedElement::name : String
30152
30153            return
30154              AMF.Holders.To_Holder
30155               (AMF.UML.Intervals.UML_Interval_Access
30156                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
30157
30158         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
30159            --  NamedElement::nameExpression : StringExpression
30160
30161            return
30162              AMF.Internals.Holders.UML_Holders.To_Holder
30163               (AMF.UML.String_Expressions.UML_String_Expression_Access'
30164                 (AMF.UML.Intervals.UML_Interval_Access
30165                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
30166
30167         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
30168            --  NamedElement::namespace : Namespace
30169
30170            return
30171              AMF.Internals.Holders.UML_Holders.To_Holder
30172               (AMF.UML.Namespaces.UML_Namespace_Access'
30173                 (AMF.UML.Intervals.UML_Interval_Access
30174                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
30175
30176         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
30177            --  Element::ownedComment : Comment
30178
30179            return
30180              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
30181               (AMF.UML.Intervals.UML_Interval_Access
30182                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
30183
30184         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
30185            --  Element::ownedElement : Element
30186
30187            return
30188              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
30189               (AMF.UML.Intervals.UML_Interval_Access
30190                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
30191
30192         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
30193            --  Element::owner : Element
30194
30195            return
30196              AMF.Internals.Holders.UML_Holders.To_Holder
30197               (AMF.UML.Elements.UML_Element_Access'
30198                 (AMF.UML.Intervals.UML_Interval_Access
30199                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
30200
30201         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
30202            --  ParameterableElement::owningTemplateParameter : TemplateParameter
30203
30204            return
30205              AMF.Internals.Holders.UML_Holders.To_Holder
30206               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
30207                 (AMF.UML.Intervals.UML_Interval_Access
30208                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
30209
30210         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
30211            --  NamedElement::qualifiedName : String
30212
30213            return
30214              AMF.Holders.To_Holder
30215               (AMF.UML.Intervals.UML_Interval_Access
30216                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
30217
30218         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
30219            --  ParameterableElement::templateParameter : TemplateParameter
30220
30221            return
30222              AMF.Internals.Holders.UML_Holders.To_Holder
30223               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
30224                 (AMF.UML.Intervals.UML_Interval_Access
30225                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
30226
30227         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
30228            --  TypedElement::type : Type
30229
30230            return
30231              AMF.Internals.Holders.UML_Holders.To_Holder
30232               (AMF.UML.Types.UML_Type_Access'
30233                 (AMF.UML.Intervals.UML_Interval_Access
30234                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
30235
30236         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
30237            --  NamedElement::visibility : VisibilityKind
30238
30239            return
30240              AMF.UML.Holders.To_Holder
30241               (AMF.UML.Intervals.UML_Interval_Access
30242                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
30243
30244         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
30245            --  PackageableElement::visibility : VisibilityKind
30246
30247            return
30248              AMF.UML.Holders.Visibility_Kinds.To_Holder
30249               (AMF.UML.Intervals.UML_Interval_Access
30250                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
30251
30252         else
30253            raise Program_Error;
30254         end if;
30255      end UML_Interval_Get;
30256
30257      ---------------------------------
30258      -- UML_Interval_Constraint_Get --
30259      ---------------------------------
30260
30261      function UML_Interval_Constraint_Get return League.Holders.Holder is
30262      begin
30263         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
30264            --  NamedElement::clientDependency : Dependency
30265
30266            return
30267              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
30268               (AMF.UML.Interval_Constraints.UML_Interval_Constraint_Access
30269                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
30270
30271         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Constraint_Constrained_Element_A_Constraint then
30272            --  Constraint::constrainedElement : Element
30273
30274            return
30275              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
30276               (AMF.UML.Interval_Constraints.UML_Interval_Constraint_Access
30277                 (AMF.Internals.Helpers.To_Element (Self)).Get_Constrained_Element);
30278
30279         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Constraint_Context_Namespace_Owned_Rule then
30280            --  Constraint::context : Namespace
30281
30282            return
30283              AMF.Internals.Holders.UML_Holders.To_Holder
30284               (AMF.UML.Namespaces.UML_Namespace_Access'
30285                 (AMF.UML.Interval_Constraints.UML_Interval_Constraint_Access
30286                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
30287
30288         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
30289            --  NamedElement::name : String
30290
30291            return
30292              AMF.Holders.To_Holder
30293               (AMF.UML.Interval_Constraints.UML_Interval_Constraint_Access
30294                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
30295
30296         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
30297            --  NamedElement::nameExpression : StringExpression
30298
30299            return
30300              AMF.Internals.Holders.UML_Holders.To_Holder
30301               (AMF.UML.String_Expressions.UML_String_Expression_Access'
30302                 (AMF.UML.Interval_Constraints.UML_Interval_Constraint_Access
30303                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
30304
30305         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
30306            --  NamedElement::namespace : Namespace
30307
30308            return
30309              AMF.Internals.Holders.UML_Holders.To_Holder
30310               (AMF.UML.Namespaces.UML_Namespace_Access'
30311                 (AMF.UML.Interval_Constraints.UML_Interval_Constraint_Access
30312                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
30313
30314         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
30315            --  Element::ownedComment : Comment
30316
30317            return
30318              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
30319               (AMF.UML.Interval_Constraints.UML_Interval_Constraint_Access
30320                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
30321
30322         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
30323            --  Element::ownedElement : Element
30324
30325            return
30326              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
30327               (AMF.UML.Interval_Constraints.UML_Interval_Constraint_Access
30328                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
30329
30330         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
30331            --  Element::owner : Element
30332
30333            return
30334              AMF.Internals.Holders.UML_Holders.To_Holder
30335               (AMF.UML.Elements.UML_Element_Access'
30336                 (AMF.UML.Interval_Constraints.UML_Interval_Constraint_Access
30337                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
30338
30339         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
30340            --  ParameterableElement::owningTemplateParameter : TemplateParameter
30341
30342            return
30343              AMF.Internals.Holders.UML_Holders.To_Holder
30344               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
30345                 (AMF.UML.Interval_Constraints.UML_Interval_Constraint_Access
30346                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
30347
30348         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
30349            --  NamedElement::qualifiedName : String
30350
30351            return
30352              AMF.Holders.To_Holder
30353               (AMF.UML.Interval_Constraints.UML_Interval_Constraint_Access
30354                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
30355
30356         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Constraint_Specification_A_Owning_Constraint then
30357            --  Constraint::specification : ValueSpecification
30358
30359            return
30360              AMF.Internals.Holders.UML_Holders.To_Holder
30361               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
30362                 (AMF.UML.Interval_Constraints.UML_Interval_Constraint_Access
30363                   (AMF.Internals.Helpers.To_Element (Self)).Get_Specification));
30364
30365         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interval_Constraint_Specification_A_Interval_Constraint then
30366            --  IntervalConstraint::specification : Interval
30367
30368            return
30369              AMF.Internals.Holders.UML_Holders.To_Holder
30370               (AMF.UML.Intervals.UML_Interval_Access'
30371                 (AMF.UML.Interval_Constraints.UML_Interval_Constraint_Access
30372                   (AMF.Internals.Helpers.To_Element (Self)).Get_Specification));
30373
30374         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
30375            --  ParameterableElement::templateParameter : TemplateParameter
30376
30377            return
30378              AMF.Internals.Holders.UML_Holders.To_Holder
30379               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
30380                 (AMF.UML.Interval_Constraints.UML_Interval_Constraint_Access
30381                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
30382
30383         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
30384            --  NamedElement::visibility : VisibilityKind
30385
30386            return
30387              AMF.UML.Holders.To_Holder
30388               (AMF.UML.Interval_Constraints.UML_Interval_Constraint_Access
30389                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
30390
30391         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
30392            --  PackageableElement::visibility : VisibilityKind
30393
30394            return
30395              AMF.UML.Holders.Visibility_Kinds.To_Holder
30396               (AMF.UML.Interval_Constraints.UML_Interval_Constraint_Access
30397                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
30398
30399         else
30400            raise Program_Error;
30401         end if;
30402      end UML_Interval_Constraint_Get;
30403
30404      -----------------------
30405      -- UML_Join_Node_Get --
30406      -----------------------
30407
30408      function UML_Join_Node_Get return League.Holders.Holder is
30409      begin
30410         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
30411            --  ActivityNode::activity : Activity
30412
30413            return
30414              AMF.Internals.Holders.UML_Holders.To_Holder
30415               (AMF.UML.Activities.UML_Activity_Access'
30416                 (AMF.UML.Join_Nodes.UML_Join_Node_Access
30417                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
30418
30419         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
30420            --  NamedElement::clientDependency : Dependency
30421
30422            return
30423              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
30424               (AMF.UML.Join_Nodes.UML_Join_Node_Access
30425                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
30426
30427         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
30428            --  ActivityNode::inGroup : ActivityGroup
30429
30430            return
30431              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
30432               (AMF.UML.Join_Nodes.UML_Join_Node_Access
30433                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
30434
30435         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
30436            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
30437
30438            return
30439              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
30440               (AMF.UML.Join_Nodes.UML_Join_Node_Access
30441                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
30442
30443         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
30444            --  ActivityNode::inPartition : ActivityPartition
30445
30446            return
30447              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
30448               (AMF.UML.Join_Nodes.UML_Join_Node_Access
30449                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
30450
30451         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
30452            --  ActivityNode::inStructuredNode : StructuredActivityNode
30453
30454            return
30455              AMF.Internals.Holders.UML_Holders.To_Holder
30456               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
30457                 (AMF.UML.Join_Nodes.UML_Join_Node_Access
30458                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
30459
30460         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
30461            --  ActivityNode::incoming : ActivityEdge
30462
30463            return
30464              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
30465               (AMF.UML.Join_Nodes.UML_Join_Node_Access
30466                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
30467
30468         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Join_Node_Is_Combine_Duplicate then
30469            --  JoinNode::isCombineDuplicate : Boolean
30470
30471            return
30472              League.Holders.Booleans.To_Holder
30473               (AMF.UML.Join_Nodes.UML_Join_Node_Access
30474                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Combine_Duplicate);
30475
30476         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
30477            --  RedefinableElement::isLeaf : Boolean
30478
30479            return
30480              League.Holders.Booleans.To_Holder
30481               (AMF.UML.Join_Nodes.UML_Join_Node_Access
30482                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
30483
30484         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Join_Node_Join_Spec_A_Join_Node then
30485            --  JoinNode::joinSpec : ValueSpecification
30486
30487            return
30488              AMF.Internals.Holders.UML_Holders.To_Holder
30489               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
30490                 (AMF.UML.Join_Nodes.UML_Join_Node_Access
30491                   (AMF.Internals.Helpers.To_Element (Self)).Get_Join_Spec));
30492
30493         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
30494            --  NamedElement::name : String
30495
30496            return
30497              AMF.Holders.To_Holder
30498               (AMF.UML.Join_Nodes.UML_Join_Node_Access
30499                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
30500
30501         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
30502            --  NamedElement::nameExpression : StringExpression
30503
30504            return
30505              AMF.Internals.Holders.UML_Holders.To_Holder
30506               (AMF.UML.String_Expressions.UML_String_Expression_Access'
30507                 (AMF.UML.Join_Nodes.UML_Join_Node_Access
30508                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
30509
30510         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
30511            --  NamedElement::namespace : Namespace
30512
30513            return
30514              AMF.Internals.Holders.UML_Holders.To_Holder
30515               (AMF.UML.Namespaces.UML_Namespace_Access'
30516                 (AMF.UML.Join_Nodes.UML_Join_Node_Access
30517                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
30518
30519         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
30520            --  ActivityNode::outgoing : ActivityEdge
30521
30522            return
30523              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
30524               (AMF.UML.Join_Nodes.UML_Join_Node_Access
30525                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
30526
30527         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
30528            --  Element::ownedComment : Comment
30529
30530            return
30531              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
30532               (AMF.UML.Join_Nodes.UML_Join_Node_Access
30533                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
30534
30535         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
30536            --  Element::ownedElement : Element
30537
30538            return
30539              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
30540               (AMF.UML.Join_Nodes.UML_Join_Node_Access
30541                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
30542
30543         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
30544            --  Element::owner : Element
30545
30546            return
30547              AMF.Internals.Holders.UML_Holders.To_Holder
30548               (AMF.UML.Elements.UML_Element_Access'
30549                 (AMF.UML.Join_Nodes.UML_Join_Node_Access
30550                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
30551
30552         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
30553            --  NamedElement::qualifiedName : String
30554
30555            return
30556              AMF.Holders.To_Holder
30557               (AMF.UML.Join_Nodes.UML_Join_Node_Access
30558                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
30559
30560         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
30561            --  RedefinableElement::redefinedElement : RedefinableElement
30562
30563            return
30564              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
30565               (AMF.UML.Join_Nodes.UML_Join_Node_Access
30566                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
30567
30568         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
30569            --  ActivityNode::redefinedNode : ActivityNode
30570
30571            return
30572              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
30573               (AMF.UML.Join_Nodes.UML_Join_Node_Access
30574                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
30575
30576         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
30577            --  RedefinableElement::redefinitionContext : Classifier
30578
30579            return
30580              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
30581               (AMF.UML.Join_Nodes.UML_Join_Node_Access
30582                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
30583
30584         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
30585            --  NamedElement::visibility : VisibilityKind
30586
30587            return
30588              AMF.UML.Holders.To_Holder
30589               (AMF.UML.Join_Nodes.UML_Join_Node_Access
30590                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
30591
30592         else
30593            raise Program_Error;
30594         end if;
30595      end UML_Join_Node_Get;
30596
30597      ----------------------
30598      -- UML_Lifeline_Get --
30599      ----------------------
30600
30601      function UML_Lifeline_Get return League.Holders.Holder is
30602      begin
30603         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
30604            --  NamedElement::clientDependency : Dependency
30605
30606            return
30607              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
30608               (AMF.UML.Lifelines.UML_Lifeline_Access
30609                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
30610
30611         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Lifeline_Covered_By_Interaction_Fragment_Covered then
30612            --  Lifeline::coveredBy : InteractionFragment
30613
30614            return
30615              AMF.UML.Interaction_Fragments.Collections.UML_Interaction_Fragment_Collections.Internals.To_Holder
30616               (AMF.UML.Lifelines.UML_Lifeline_Access
30617                 (AMF.Internals.Helpers.To_Element (Self)).Get_Covered_By);
30618
30619         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Lifeline_Decomposed_As_A_Lifeline then
30620            --  Lifeline::decomposedAs : PartDecomposition
30621
30622            return
30623              AMF.Internals.Holders.UML_Holders.To_Holder
30624               (AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access'
30625                 (AMF.UML.Lifelines.UML_Lifeline_Access
30626                   (AMF.Internals.Helpers.To_Element (Self)).Get_Decomposed_As));
30627
30628         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Lifeline_Interaction_Interaction_Lifeline then
30629            --  Lifeline::interaction : Interaction
30630
30631            return
30632              AMF.Internals.Holders.UML_Holders.To_Holder
30633               (AMF.UML.Interactions.UML_Interaction_Access'
30634                 (AMF.UML.Lifelines.UML_Lifeline_Access
30635                   (AMF.Internals.Helpers.To_Element (Self)).Get_Interaction));
30636
30637         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
30638            --  NamedElement::name : String
30639
30640            return
30641              AMF.Holders.To_Holder
30642               (AMF.UML.Lifelines.UML_Lifeline_Access
30643                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
30644
30645         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
30646            --  NamedElement::nameExpression : StringExpression
30647
30648            return
30649              AMF.Internals.Holders.UML_Holders.To_Holder
30650               (AMF.UML.String_Expressions.UML_String_Expression_Access'
30651                 (AMF.UML.Lifelines.UML_Lifeline_Access
30652                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
30653
30654         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
30655            --  NamedElement::namespace : Namespace
30656
30657            return
30658              AMF.Internals.Holders.UML_Holders.To_Holder
30659               (AMF.UML.Namespaces.UML_Namespace_Access'
30660                 (AMF.UML.Lifelines.UML_Lifeline_Access
30661                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
30662
30663         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
30664            --  Element::ownedComment : Comment
30665
30666            return
30667              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
30668               (AMF.UML.Lifelines.UML_Lifeline_Access
30669                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
30670
30671         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
30672            --  Element::ownedElement : Element
30673
30674            return
30675              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
30676               (AMF.UML.Lifelines.UML_Lifeline_Access
30677                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
30678
30679         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
30680            --  Element::owner : Element
30681
30682            return
30683              AMF.Internals.Holders.UML_Holders.To_Holder
30684               (AMF.UML.Elements.UML_Element_Access'
30685                 (AMF.UML.Lifelines.UML_Lifeline_Access
30686                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
30687
30688         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
30689            --  NamedElement::qualifiedName : String
30690
30691            return
30692              AMF.Holders.To_Holder
30693               (AMF.UML.Lifelines.UML_Lifeline_Access
30694                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
30695
30696         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Lifeline_Represents_A_Lifeline then
30697            --  Lifeline::represents : ConnectableElement
30698
30699            return
30700              AMF.Internals.Holders.UML_Holders.To_Holder
30701               (AMF.UML.Connectable_Elements.UML_Connectable_Element_Access'
30702                 (AMF.UML.Lifelines.UML_Lifeline_Access
30703                   (AMF.Internals.Helpers.To_Element (Self)).Get_Represents));
30704
30705         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Lifeline_Selector_A_Lifeline then
30706            --  Lifeline::selector : ValueSpecification
30707
30708            return
30709              AMF.Internals.Holders.UML_Holders.To_Holder
30710               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
30711                 (AMF.UML.Lifelines.UML_Lifeline_Access
30712                   (AMF.Internals.Helpers.To_Element (Self)).Get_Selector));
30713
30714         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
30715            --  NamedElement::visibility : VisibilityKind
30716
30717            return
30718              AMF.UML.Holders.To_Holder
30719               (AMF.UML.Lifelines.UML_Lifeline_Access
30720                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
30721
30722         else
30723            raise Program_Error;
30724         end if;
30725      end UML_Lifeline_Get;
30726
30727      ------------------------------------
30728      -- UML_Link_End_Creation_Data_Get --
30729      ------------------------------------
30730
30731      function UML_Link_End_Creation_Data_Get return League.Holders.Holder is
30732      begin
30733         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_End_Data_End_A_Link_End_Data then
30734            --  LinkEndData::end : Property
30735
30736            return
30737              AMF.Internals.Holders.UML_Holders.To_Holder
30738               (AMF.UML.Properties.UML_Property_Access'
30739                 (AMF.UML.Link_End_Creation_Datas.UML_Link_End_Creation_Data_Access
30740                   (AMF.Internals.Helpers.To_Element (Self)).Get_End));
30741
30742         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_End_Creation_Data_Insert_At_A_Link_End_Creation_Data then
30743            --  LinkEndCreationData::insertAt : InputPin
30744
30745            return
30746              AMF.Internals.Holders.UML_Holders.To_Holder
30747               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
30748                 (AMF.UML.Link_End_Creation_Datas.UML_Link_End_Creation_Data_Access
30749                   (AMF.Internals.Helpers.To_Element (Self)).Get_Insert_At));
30750
30751         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_End_Creation_Data_Is_Replace_All then
30752            --  LinkEndCreationData::isReplaceAll : Boolean
30753
30754            return
30755              League.Holders.Booleans.To_Holder
30756               (AMF.UML.Link_End_Creation_Datas.UML_Link_End_Creation_Data_Access
30757                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Replace_All);
30758
30759         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
30760            --  Element::ownedComment : Comment
30761
30762            return
30763              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
30764               (AMF.UML.Link_End_Creation_Datas.UML_Link_End_Creation_Data_Access
30765                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
30766
30767         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
30768            --  Element::ownedElement : Element
30769
30770            return
30771              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
30772               (AMF.UML.Link_End_Creation_Datas.UML_Link_End_Creation_Data_Access
30773                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
30774
30775         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
30776            --  Element::owner : Element
30777
30778            return
30779              AMF.Internals.Holders.UML_Holders.To_Holder
30780               (AMF.UML.Elements.UML_Element_Access'
30781                 (AMF.UML.Link_End_Creation_Datas.UML_Link_End_Creation_Data_Access
30782                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
30783
30784         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_End_Data_Qualifier_A_Link_End_Data then
30785            --  LinkEndData::qualifier : QualifierValue
30786
30787            return
30788              AMF.UML.Qualifier_Values.Collections.UML_Qualifier_Value_Collections.Internals.To_Holder
30789               (AMF.UML.Link_End_Creation_Datas.UML_Link_End_Creation_Data_Access
30790                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualifier);
30791
30792         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_End_Data_Value_A_Link_End_Data then
30793            --  LinkEndData::value : InputPin
30794
30795            return
30796              AMF.Internals.Holders.UML_Holders.To_Holder
30797               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
30798                 (AMF.UML.Link_End_Creation_Datas.UML_Link_End_Creation_Data_Access
30799                   (AMF.Internals.Helpers.To_Element (Self)).Get_Value));
30800
30801         else
30802            raise Program_Error;
30803         end if;
30804      end UML_Link_End_Creation_Data_Get;
30805
30806      ---------------------------
30807      -- UML_Link_End_Data_Get --
30808      ---------------------------
30809
30810      function UML_Link_End_Data_Get return League.Holders.Holder is
30811      begin
30812         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_End_Data_End_A_Link_End_Data then
30813            --  LinkEndData::end : Property
30814
30815            return
30816              AMF.Internals.Holders.UML_Holders.To_Holder
30817               (AMF.UML.Properties.UML_Property_Access'
30818                 (AMF.UML.Link_End_Datas.UML_Link_End_Data_Access
30819                   (AMF.Internals.Helpers.To_Element (Self)).Get_End));
30820
30821         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
30822            --  Element::ownedComment : Comment
30823
30824            return
30825              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
30826               (AMF.UML.Link_End_Datas.UML_Link_End_Data_Access
30827                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
30828
30829         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
30830            --  Element::ownedElement : Element
30831
30832            return
30833              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
30834               (AMF.UML.Link_End_Datas.UML_Link_End_Data_Access
30835                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
30836
30837         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
30838            --  Element::owner : Element
30839
30840            return
30841              AMF.Internals.Holders.UML_Holders.To_Holder
30842               (AMF.UML.Elements.UML_Element_Access'
30843                 (AMF.UML.Link_End_Datas.UML_Link_End_Data_Access
30844                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
30845
30846         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_End_Data_Qualifier_A_Link_End_Data then
30847            --  LinkEndData::qualifier : QualifierValue
30848
30849            return
30850              AMF.UML.Qualifier_Values.Collections.UML_Qualifier_Value_Collections.Internals.To_Holder
30851               (AMF.UML.Link_End_Datas.UML_Link_End_Data_Access
30852                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualifier);
30853
30854         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_End_Data_Value_A_Link_End_Data then
30855            --  LinkEndData::value : InputPin
30856
30857            return
30858              AMF.Internals.Holders.UML_Holders.To_Holder
30859               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
30860                 (AMF.UML.Link_End_Datas.UML_Link_End_Data_Access
30861                   (AMF.Internals.Helpers.To_Element (Self)).Get_Value));
30862
30863         else
30864            raise Program_Error;
30865         end if;
30866      end UML_Link_End_Data_Get;
30867
30868      ---------------------------------------
30869      -- UML_Link_End_Destruction_Data_Get --
30870      ---------------------------------------
30871
30872      function UML_Link_End_Destruction_Data_Get return League.Holders.Holder is
30873      begin
30874         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_End_Destruction_Data_Destroy_At_A_Link_End_Destruction_Data then
30875            --  LinkEndDestructionData::destroyAt : InputPin
30876
30877            return
30878              AMF.Internals.Holders.UML_Holders.To_Holder
30879               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
30880                 (AMF.UML.Link_End_Destruction_Datas.UML_Link_End_Destruction_Data_Access
30881                   (AMF.Internals.Helpers.To_Element (Self)).Get_Destroy_At));
30882
30883         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_End_Data_End_A_Link_End_Data then
30884            --  LinkEndData::end : Property
30885
30886            return
30887              AMF.Internals.Holders.UML_Holders.To_Holder
30888               (AMF.UML.Properties.UML_Property_Access'
30889                 (AMF.UML.Link_End_Destruction_Datas.UML_Link_End_Destruction_Data_Access
30890                   (AMF.Internals.Helpers.To_Element (Self)).Get_End));
30891
30892         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_End_Destruction_Data_Is_Destroy_Duplicates then
30893            --  LinkEndDestructionData::isDestroyDuplicates : Boolean
30894
30895            return
30896              League.Holders.Booleans.To_Holder
30897               (AMF.UML.Link_End_Destruction_Datas.UML_Link_End_Destruction_Data_Access
30898                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Destroy_Duplicates);
30899
30900         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
30901            --  Element::ownedComment : Comment
30902
30903            return
30904              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
30905               (AMF.UML.Link_End_Destruction_Datas.UML_Link_End_Destruction_Data_Access
30906                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
30907
30908         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
30909            --  Element::ownedElement : Element
30910
30911            return
30912              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
30913               (AMF.UML.Link_End_Destruction_Datas.UML_Link_End_Destruction_Data_Access
30914                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
30915
30916         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
30917            --  Element::owner : Element
30918
30919            return
30920              AMF.Internals.Holders.UML_Holders.To_Holder
30921               (AMF.UML.Elements.UML_Element_Access'
30922                 (AMF.UML.Link_End_Destruction_Datas.UML_Link_End_Destruction_Data_Access
30923                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
30924
30925         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_End_Data_Qualifier_A_Link_End_Data then
30926            --  LinkEndData::qualifier : QualifierValue
30927
30928            return
30929              AMF.UML.Qualifier_Values.Collections.UML_Qualifier_Value_Collections.Internals.To_Holder
30930               (AMF.UML.Link_End_Destruction_Datas.UML_Link_End_Destruction_Data_Access
30931                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualifier);
30932
30933         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_End_Data_Value_A_Link_End_Data then
30934            --  LinkEndData::value : InputPin
30935
30936            return
30937              AMF.Internals.Holders.UML_Holders.To_Holder
30938               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
30939                 (AMF.UML.Link_End_Destruction_Datas.UML_Link_End_Destruction_Data_Access
30940                   (AMF.Internals.Helpers.To_Element (Self)).Get_Value));
30941
30942         else
30943            raise Program_Error;
30944         end if;
30945      end UML_Link_End_Destruction_Data_Get;
30946
30947      -----------------------------
30948      -- UML_Literal_Boolean_Get --
30949      -----------------------------
30950
30951      function UML_Literal_Boolean_Get return League.Holders.Holder is
30952      begin
30953         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
30954            --  NamedElement::clientDependency : Dependency
30955
30956            return
30957              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
30958               (AMF.UML.Literal_Booleans.UML_Literal_Boolean_Access
30959                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
30960
30961         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
30962            --  NamedElement::name : String
30963
30964            return
30965              AMF.Holders.To_Holder
30966               (AMF.UML.Literal_Booleans.UML_Literal_Boolean_Access
30967                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
30968
30969         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
30970            --  NamedElement::nameExpression : StringExpression
30971
30972            return
30973              AMF.Internals.Holders.UML_Holders.To_Holder
30974               (AMF.UML.String_Expressions.UML_String_Expression_Access'
30975                 (AMF.UML.Literal_Booleans.UML_Literal_Boolean_Access
30976                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
30977
30978         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
30979            --  NamedElement::namespace : Namespace
30980
30981            return
30982              AMF.Internals.Holders.UML_Holders.To_Holder
30983               (AMF.UML.Namespaces.UML_Namespace_Access'
30984                 (AMF.UML.Literal_Booleans.UML_Literal_Boolean_Access
30985                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
30986
30987         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
30988            --  Element::ownedComment : Comment
30989
30990            return
30991              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
30992               (AMF.UML.Literal_Booleans.UML_Literal_Boolean_Access
30993                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
30994
30995         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
30996            --  Element::ownedElement : Element
30997
30998            return
30999              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
31000               (AMF.UML.Literal_Booleans.UML_Literal_Boolean_Access
31001                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
31002
31003         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
31004            --  Element::owner : Element
31005
31006            return
31007              AMF.Internals.Holders.UML_Holders.To_Holder
31008               (AMF.UML.Elements.UML_Element_Access'
31009                 (AMF.UML.Literal_Booleans.UML_Literal_Boolean_Access
31010                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
31011
31012         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
31013            --  ParameterableElement::owningTemplateParameter : TemplateParameter
31014
31015            return
31016              AMF.Internals.Holders.UML_Holders.To_Holder
31017               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
31018                 (AMF.UML.Literal_Booleans.UML_Literal_Boolean_Access
31019                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
31020
31021         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
31022            --  NamedElement::qualifiedName : String
31023
31024            return
31025              AMF.Holders.To_Holder
31026               (AMF.UML.Literal_Booleans.UML_Literal_Boolean_Access
31027                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
31028
31029         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
31030            --  ParameterableElement::templateParameter : TemplateParameter
31031
31032            return
31033              AMF.Internals.Holders.UML_Holders.To_Holder
31034               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
31035                 (AMF.UML.Literal_Booleans.UML_Literal_Boolean_Access
31036                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
31037
31038         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
31039            --  TypedElement::type : Type
31040
31041            return
31042              AMF.Internals.Holders.UML_Holders.To_Holder
31043               (AMF.UML.Types.UML_Type_Access'
31044                 (AMF.UML.Literal_Booleans.UML_Literal_Boolean_Access
31045                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
31046
31047         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Literal_Boolean_Value then
31048            --  LiteralBoolean::value : Boolean
31049
31050            return
31051              League.Holders.Booleans.To_Holder
31052               (AMF.UML.Literal_Booleans.UML_Literal_Boolean_Access
31053                 (AMF.Internals.Helpers.To_Element (Self)).Get_Value);
31054
31055         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
31056            --  NamedElement::visibility : VisibilityKind
31057
31058            return
31059              AMF.UML.Holders.To_Holder
31060               (AMF.UML.Literal_Booleans.UML_Literal_Boolean_Access
31061                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
31062
31063         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
31064            --  PackageableElement::visibility : VisibilityKind
31065
31066            return
31067              AMF.UML.Holders.Visibility_Kinds.To_Holder
31068               (AMF.UML.Literal_Booleans.UML_Literal_Boolean_Access
31069                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
31070
31071         else
31072            raise Program_Error;
31073         end if;
31074      end UML_Literal_Boolean_Get;
31075
31076      -----------------------------
31077      -- UML_Literal_Integer_Get --
31078      -----------------------------
31079
31080      function UML_Literal_Integer_Get return League.Holders.Holder is
31081      begin
31082         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
31083            --  NamedElement::clientDependency : Dependency
31084
31085            return
31086              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
31087               (AMF.UML.Literal_Integers.UML_Literal_Integer_Access
31088                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
31089
31090         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
31091            --  NamedElement::name : String
31092
31093            return
31094              AMF.Holders.To_Holder
31095               (AMF.UML.Literal_Integers.UML_Literal_Integer_Access
31096                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
31097
31098         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
31099            --  NamedElement::nameExpression : StringExpression
31100
31101            return
31102              AMF.Internals.Holders.UML_Holders.To_Holder
31103               (AMF.UML.String_Expressions.UML_String_Expression_Access'
31104                 (AMF.UML.Literal_Integers.UML_Literal_Integer_Access
31105                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
31106
31107         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
31108            --  NamedElement::namespace : Namespace
31109
31110            return
31111              AMF.Internals.Holders.UML_Holders.To_Holder
31112               (AMF.UML.Namespaces.UML_Namespace_Access'
31113                 (AMF.UML.Literal_Integers.UML_Literal_Integer_Access
31114                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
31115
31116         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
31117            --  Element::ownedComment : Comment
31118
31119            return
31120              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
31121               (AMF.UML.Literal_Integers.UML_Literal_Integer_Access
31122                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
31123
31124         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
31125            --  Element::ownedElement : Element
31126
31127            return
31128              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
31129               (AMF.UML.Literal_Integers.UML_Literal_Integer_Access
31130                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
31131
31132         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
31133            --  Element::owner : Element
31134
31135            return
31136              AMF.Internals.Holders.UML_Holders.To_Holder
31137               (AMF.UML.Elements.UML_Element_Access'
31138                 (AMF.UML.Literal_Integers.UML_Literal_Integer_Access
31139                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
31140
31141         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
31142            --  ParameterableElement::owningTemplateParameter : TemplateParameter
31143
31144            return
31145              AMF.Internals.Holders.UML_Holders.To_Holder
31146               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
31147                 (AMF.UML.Literal_Integers.UML_Literal_Integer_Access
31148                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
31149
31150         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
31151            --  NamedElement::qualifiedName : String
31152
31153            return
31154              AMF.Holders.To_Holder
31155               (AMF.UML.Literal_Integers.UML_Literal_Integer_Access
31156                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
31157
31158         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
31159            --  ParameterableElement::templateParameter : TemplateParameter
31160
31161            return
31162              AMF.Internals.Holders.UML_Holders.To_Holder
31163               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
31164                 (AMF.UML.Literal_Integers.UML_Literal_Integer_Access
31165                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
31166
31167         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
31168            --  TypedElement::type : Type
31169
31170            return
31171              AMF.Internals.Holders.UML_Holders.To_Holder
31172               (AMF.UML.Types.UML_Type_Access'
31173                 (AMF.UML.Literal_Integers.UML_Literal_Integer_Access
31174                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
31175
31176         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Literal_Integer_Value then
31177            --  LiteralInteger::value : Integer
31178
31179            return
31180              League.Holders.Integers.To_Holder
31181               (AMF.UML.Literal_Integers.UML_Literal_Integer_Access
31182                 (AMF.Internals.Helpers.To_Element (Self)).Get_Value);
31183
31184         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
31185            --  NamedElement::visibility : VisibilityKind
31186
31187            return
31188              AMF.UML.Holders.To_Holder
31189               (AMF.UML.Literal_Integers.UML_Literal_Integer_Access
31190                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
31191
31192         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
31193            --  PackageableElement::visibility : VisibilityKind
31194
31195            return
31196              AMF.UML.Holders.Visibility_Kinds.To_Holder
31197               (AMF.UML.Literal_Integers.UML_Literal_Integer_Access
31198                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
31199
31200         else
31201            raise Program_Error;
31202         end if;
31203      end UML_Literal_Integer_Get;
31204
31205      --------------------------
31206      -- UML_Literal_Null_Get --
31207      --------------------------
31208
31209      function UML_Literal_Null_Get return League.Holders.Holder is
31210      begin
31211         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
31212            --  NamedElement::clientDependency : Dependency
31213
31214            return
31215              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
31216               (AMF.UML.Literal_Nulls.UML_Literal_Null_Access
31217                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
31218
31219         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
31220            --  NamedElement::name : String
31221
31222            return
31223              AMF.Holders.To_Holder
31224               (AMF.UML.Literal_Nulls.UML_Literal_Null_Access
31225                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
31226
31227         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
31228            --  NamedElement::nameExpression : StringExpression
31229
31230            return
31231              AMF.Internals.Holders.UML_Holders.To_Holder
31232               (AMF.UML.String_Expressions.UML_String_Expression_Access'
31233                 (AMF.UML.Literal_Nulls.UML_Literal_Null_Access
31234                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
31235
31236         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
31237            --  NamedElement::namespace : Namespace
31238
31239            return
31240              AMF.Internals.Holders.UML_Holders.To_Holder
31241               (AMF.UML.Namespaces.UML_Namespace_Access'
31242                 (AMF.UML.Literal_Nulls.UML_Literal_Null_Access
31243                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
31244
31245         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
31246            --  Element::ownedComment : Comment
31247
31248            return
31249              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
31250               (AMF.UML.Literal_Nulls.UML_Literal_Null_Access
31251                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
31252
31253         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
31254            --  Element::ownedElement : Element
31255
31256            return
31257              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
31258               (AMF.UML.Literal_Nulls.UML_Literal_Null_Access
31259                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
31260
31261         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
31262            --  Element::owner : Element
31263
31264            return
31265              AMF.Internals.Holders.UML_Holders.To_Holder
31266               (AMF.UML.Elements.UML_Element_Access'
31267                 (AMF.UML.Literal_Nulls.UML_Literal_Null_Access
31268                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
31269
31270         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
31271            --  ParameterableElement::owningTemplateParameter : TemplateParameter
31272
31273            return
31274              AMF.Internals.Holders.UML_Holders.To_Holder
31275               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
31276                 (AMF.UML.Literal_Nulls.UML_Literal_Null_Access
31277                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
31278
31279         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
31280            --  NamedElement::qualifiedName : String
31281
31282            return
31283              AMF.Holders.To_Holder
31284               (AMF.UML.Literal_Nulls.UML_Literal_Null_Access
31285                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
31286
31287         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
31288            --  ParameterableElement::templateParameter : TemplateParameter
31289
31290            return
31291              AMF.Internals.Holders.UML_Holders.To_Holder
31292               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
31293                 (AMF.UML.Literal_Nulls.UML_Literal_Null_Access
31294                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
31295
31296         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
31297            --  TypedElement::type : Type
31298
31299            return
31300              AMF.Internals.Holders.UML_Holders.To_Holder
31301               (AMF.UML.Types.UML_Type_Access'
31302                 (AMF.UML.Literal_Nulls.UML_Literal_Null_Access
31303                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
31304
31305         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
31306            --  NamedElement::visibility : VisibilityKind
31307
31308            return
31309              AMF.UML.Holders.To_Holder
31310               (AMF.UML.Literal_Nulls.UML_Literal_Null_Access
31311                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
31312
31313         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
31314            --  PackageableElement::visibility : VisibilityKind
31315
31316            return
31317              AMF.UML.Holders.Visibility_Kinds.To_Holder
31318               (AMF.UML.Literal_Nulls.UML_Literal_Null_Access
31319                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
31320
31321         else
31322            raise Program_Error;
31323         end if;
31324      end UML_Literal_Null_Get;
31325
31326      --------------------------
31327      -- UML_Literal_Real_Get --
31328      --------------------------
31329
31330      function UML_Literal_Real_Get return League.Holders.Holder is
31331      begin
31332         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
31333            --  NamedElement::clientDependency : Dependency
31334
31335            return
31336              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
31337               (AMF.UML.Literal_Reals.UML_Literal_Real_Access
31338                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
31339
31340         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
31341            --  NamedElement::name : String
31342
31343            return
31344              AMF.Holders.To_Holder
31345               (AMF.UML.Literal_Reals.UML_Literal_Real_Access
31346                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
31347
31348         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
31349            --  NamedElement::nameExpression : StringExpression
31350
31351            return
31352              AMF.Internals.Holders.UML_Holders.To_Holder
31353               (AMF.UML.String_Expressions.UML_String_Expression_Access'
31354                 (AMF.UML.Literal_Reals.UML_Literal_Real_Access
31355                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
31356
31357         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
31358            --  NamedElement::namespace : Namespace
31359
31360            return
31361              AMF.Internals.Holders.UML_Holders.To_Holder
31362               (AMF.UML.Namespaces.UML_Namespace_Access'
31363                 (AMF.UML.Literal_Reals.UML_Literal_Real_Access
31364                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
31365
31366         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
31367            --  Element::ownedComment : Comment
31368
31369            return
31370              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
31371               (AMF.UML.Literal_Reals.UML_Literal_Real_Access
31372                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
31373
31374         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
31375            --  Element::ownedElement : Element
31376
31377            return
31378              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
31379               (AMF.UML.Literal_Reals.UML_Literal_Real_Access
31380                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
31381
31382         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
31383            --  Element::owner : Element
31384
31385            return
31386              AMF.Internals.Holders.UML_Holders.To_Holder
31387               (AMF.UML.Elements.UML_Element_Access'
31388                 (AMF.UML.Literal_Reals.UML_Literal_Real_Access
31389                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
31390
31391         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
31392            --  ParameterableElement::owningTemplateParameter : TemplateParameter
31393
31394            return
31395              AMF.Internals.Holders.UML_Holders.To_Holder
31396               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
31397                 (AMF.UML.Literal_Reals.UML_Literal_Real_Access
31398                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
31399
31400         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
31401            --  NamedElement::qualifiedName : String
31402
31403            return
31404              AMF.Holders.To_Holder
31405               (AMF.UML.Literal_Reals.UML_Literal_Real_Access
31406                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
31407
31408         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
31409            --  ParameterableElement::templateParameter : TemplateParameter
31410
31411            return
31412              AMF.Internals.Holders.UML_Holders.To_Holder
31413               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
31414                 (AMF.UML.Literal_Reals.UML_Literal_Real_Access
31415                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
31416
31417         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
31418            --  TypedElement::type : Type
31419
31420            return
31421              AMF.Internals.Holders.UML_Holders.To_Holder
31422               (AMF.UML.Types.UML_Type_Access'
31423                 (AMF.UML.Literal_Reals.UML_Literal_Real_Access
31424                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
31425
31426         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Literal_Real_Value then
31427            --  LiteralReal::value : Real
31428
31429            return
31430              AMF.Holders.Reals.To_Holder
31431               (AMF.UML.Literal_Reals.UML_Literal_Real_Access
31432                 (AMF.Internals.Helpers.To_Element (Self)).Get_Value);
31433
31434         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
31435            --  NamedElement::visibility : VisibilityKind
31436
31437            return
31438              AMF.UML.Holders.To_Holder
31439               (AMF.UML.Literal_Reals.UML_Literal_Real_Access
31440                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
31441
31442         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
31443            --  PackageableElement::visibility : VisibilityKind
31444
31445            return
31446              AMF.UML.Holders.Visibility_Kinds.To_Holder
31447               (AMF.UML.Literal_Reals.UML_Literal_Real_Access
31448                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
31449
31450         else
31451            raise Program_Error;
31452         end if;
31453      end UML_Literal_Real_Get;
31454
31455      ----------------------------
31456      -- UML_Literal_String_Get --
31457      ----------------------------
31458
31459      function UML_Literal_String_Get return League.Holders.Holder is
31460      begin
31461         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
31462            --  NamedElement::clientDependency : Dependency
31463
31464            return
31465              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
31466               (AMF.UML.Literal_Strings.UML_Literal_String_Access
31467                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
31468
31469         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
31470            --  NamedElement::name : String
31471
31472            return
31473              AMF.Holders.To_Holder
31474               (AMF.UML.Literal_Strings.UML_Literal_String_Access
31475                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
31476
31477         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
31478            --  NamedElement::nameExpression : StringExpression
31479
31480            return
31481              AMF.Internals.Holders.UML_Holders.To_Holder
31482               (AMF.UML.String_Expressions.UML_String_Expression_Access'
31483                 (AMF.UML.Literal_Strings.UML_Literal_String_Access
31484                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
31485
31486         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
31487            --  NamedElement::namespace : Namespace
31488
31489            return
31490              AMF.Internals.Holders.UML_Holders.To_Holder
31491               (AMF.UML.Namespaces.UML_Namespace_Access'
31492                 (AMF.UML.Literal_Strings.UML_Literal_String_Access
31493                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
31494
31495         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
31496            --  Element::ownedComment : Comment
31497
31498            return
31499              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
31500               (AMF.UML.Literal_Strings.UML_Literal_String_Access
31501                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
31502
31503         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
31504            --  Element::ownedElement : Element
31505
31506            return
31507              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
31508               (AMF.UML.Literal_Strings.UML_Literal_String_Access
31509                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
31510
31511         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
31512            --  Element::owner : Element
31513
31514            return
31515              AMF.Internals.Holders.UML_Holders.To_Holder
31516               (AMF.UML.Elements.UML_Element_Access'
31517                 (AMF.UML.Literal_Strings.UML_Literal_String_Access
31518                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
31519
31520         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
31521            --  ParameterableElement::owningTemplateParameter : TemplateParameter
31522
31523            return
31524              AMF.Internals.Holders.UML_Holders.To_Holder
31525               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
31526                 (AMF.UML.Literal_Strings.UML_Literal_String_Access
31527                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
31528
31529         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
31530            --  NamedElement::qualifiedName : String
31531
31532            return
31533              AMF.Holders.To_Holder
31534               (AMF.UML.Literal_Strings.UML_Literal_String_Access
31535                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
31536
31537         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
31538            --  ParameterableElement::templateParameter : TemplateParameter
31539
31540            return
31541              AMF.Internals.Holders.UML_Holders.To_Holder
31542               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
31543                 (AMF.UML.Literal_Strings.UML_Literal_String_Access
31544                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
31545
31546         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
31547            --  TypedElement::type : Type
31548
31549            return
31550              AMF.Internals.Holders.UML_Holders.To_Holder
31551               (AMF.UML.Types.UML_Type_Access'
31552                 (AMF.UML.Literal_Strings.UML_Literal_String_Access
31553                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
31554
31555         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Literal_String_Value then
31556            --  LiteralString::value : String
31557
31558            return
31559              AMF.Holders.To_Holder
31560               (AMF.UML.Literal_Strings.UML_Literal_String_Access
31561                 (AMF.Internals.Helpers.To_Element (Self)).Get_Value);
31562
31563         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
31564            --  NamedElement::visibility : VisibilityKind
31565
31566            return
31567              AMF.UML.Holders.To_Holder
31568               (AMF.UML.Literal_Strings.UML_Literal_String_Access
31569                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
31570
31571         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
31572            --  PackageableElement::visibility : VisibilityKind
31573
31574            return
31575              AMF.UML.Holders.Visibility_Kinds.To_Holder
31576               (AMF.UML.Literal_Strings.UML_Literal_String_Access
31577                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
31578
31579         else
31580            raise Program_Error;
31581         end if;
31582      end UML_Literal_String_Get;
31583
31584      ---------------------------------------
31585      -- UML_Literal_Unlimited_Natural_Get --
31586      ---------------------------------------
31587
31588      function UML_Literal_Unlimited_Natural_Get return League.Holders.Holder is
31589      begin
31590         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
31591            --  NamedElement::clientDependency : Dependency
31592
31593            return
31594              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
31595               (AMF.UML.Literal_Unlimited_Naturals.UML_Literal_Unlimited_Natural_Access
31596                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
31597
31598         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
31599            --  NamedElement::name : String
31600
31601            return
31602              AMF.Holders.To_Holder
31603               (AMF.UML.Literal_Unlimited_Naturals.UML_Literal_Unlimited_Natural_Access
31604                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
31605
31606         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
31607            --  NamedElement::nameExpression : StringExpression
31608
31609            return
31610              AMF.Internals.Holders.UML_Holders.To_Holder
31611               (AMF.UML.String_Expressions.UML_String_Expression_Access'
31612                 (AMF.UML.Literal_Unlimited_Naturals.UML_Literal_Unlimited_Natural_Access
31613                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
31614
31615         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
31616            --  NamedElement::namespace : Namespace
31617
31618            return
31619              AMF.Internals.Holders.UML_Holders.To_Holder
31620               (AMF.UML.Namespaces.UML_Namespace_Access'
31621                 (AMF.UML.Literal_Unlimited_Naturals.UML_Literal_Unlimited_Natural_Access
31622                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
31623
31624         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
31625            --  Element::ownedComment : Comment
31626
31627            return
31628              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
31629               (AMF.UML.Literal_Unlimited_Naturals.UML_Literal_Unlimited_Natural_Access
31630                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
31631
31632         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
31633            --  Element::ownedElement : Element
31634
31635            return
31636              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
31637               (AMF.UML.Literal_Unlimited_Naturals.UML_Literal_Unlimited_Natural_Access
31638                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
31639
31640         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
31641            --  Element::owner : Element
31642
31643            return
31644              AMF.Internals.Holders.UML_Holders.To_Holder
31645               (AMF.UML.Elements.UML_Element_Access'
31646                 (AMF.UML.Literal_Unlimited_Naturals.UML_Literal_Unlimited_Natural_Access
31647                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
31648
31649         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
31650            --  ParameterableElement::owningTemplateParameter : TemplateParameter
31651
31652            return
31653              AMF.Internals.Holders.UML_Holders.To_Holder
31654               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
31655                 (AMF.UML.Literal_Unlimited_Naturals.UML_Literal_Unlimited_Natural_Access
31656                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
31657
31658         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
31659            --  NamedElement::qualifiedName : String
31660
31661            return
31662              AMF.Holders.To_Holder
31663               (AMF.UML.Literal_Unlimited_Naturals.UML_Literal_Unlimited_Natural_Access
31664                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
31665
31666         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
31667            --  ParameterableElement::templateParameter : TemplateParameter
31668
31669            return
31670              AMF.Internals.Holders.UML_Holders.To_Holder
31671               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
31672                 (AMF.UML.Literal_Unlimited_Naturals.UML_Literal_Unlimited_Natural_Access
31673                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
31674
31675         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
31676            --  TypedElement::type : Type
31677
31678            return
31679              AMF.Internals.Holders.UML_Holders.To_Holder
31680               (AMF.UML.Types.UML_Type_Access'
31681                 (AMF.UML.Literal_Unlimited_Naturals.UML_Literal_Unlimited_Natural_Access
31682                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
31683
31684         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Literal_Unlimited_Natural_Value then
31685            --  LiteralUnlimitedNatural::value : UnlimitedNatural
31686
31687            return
31688              AMF.Holders.Unlimited_Naturals.To_Holder
31689               (AMF.UML.Literal_Unlimited_Naturals.UML_Literal_Unlimited_Natural_Access
31690                 (AMF.Internals.Helpers.To_Element (Self)).Get_Value);
31691
31692         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
31693            --  NamedElement::visibility : VisibilityKind
31694
31695            return
31696              AMF.UML.Holders.To_Holder
31697               (AMF.UML.Literal_Unlimited_Naturals.UML_Literal_Unlimited_Natural_Access
31698                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
31699
31700         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
31701            --  PackageableElement::visibility : VisibilityKind
31702
31703            return
31704              AMF.UML.Holders.Visibility_Kinds.To_Holder
31705               (AMF.UML.Literal_Unlimited_Naturals.UML_Literal_Unlimited_Natural_Access
31706                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
31707
31708         else
31709            raise Program_Error;
31710         end if;
31711      end UML_Literal_Unlimited_Natural_Get;
31712
31713      -----------------------
31714      -- UML_Loop_Node_Get --
31715      -----------------------
31716
31717      function UML_Loop_Node_Get return League.Holders.Holder is
31718      begin
31719         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
31720            --  ActivityNode::activity : Activity
31721
31722            return
31723              AMF.Internals.Holders.UML_Holders.To_Holder
31724               (AMF.UML.Activities.UML_Activity_Access'
31725                 (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31726                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
31727
31728         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Activity_Activity_Structured_Node then
31729            --  StructuredActivityNode::activity : Activity
31730
31731            return
31732              AMF.Internals.Holders.UML_Holders.To_Holder
31733               (AMF.UML.Activities.UML_Activity_Access'
31734                 (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31735                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
31736
31737         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Loop_Node_Body_Output_A_Loop_Node then
31738            --  LoopNode::bodyOutput : OutputPin
31739
31740            return
31741              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
31742               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31743                 (AMF.Internals.Helpers.To_Element (Self)).Get_Body_Output);
31744
31745         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Loop_Node_Body_Part_A_Loop_Node then
31746            --  LoopNode::bodyPart : ExecutableNode
31747
31748            return
31749              AMF.UML.Executable_Nodes.Collections.UML_Executable_Node_Collections.Internals.To_Holder
31750               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31751                 (AMF.Internals.Helpers.To_Element (Self)).Get_Body_Part);
31752
31753         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
31754            --  NamedElement::clientDependency : Dependency
31755
31756            return
31757              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
31758               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31759                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
31760
31761         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Contained_Edge_Activity_Edge_In_Group then
31762            --  ActivityGroup::containedEdge : ActivityEdge
31763
31764            return
31765              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
31766               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31767                 (AMF.Internals.Helpers.To_Element (Self)).Get_Contained_Edge);
31768
31769         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Contained_Node_Activity_Node_In_Group then
31770            --  ActivityGroup::containedNode : ActivityNode
31771
31772            return
31773              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
31774               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31775                 (AMF.Internals.Helpers.To_Element (Self)).Get_Contained_Node);
31776
31777         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
31778            --  Action::context : Classifier
31779
31780            return
31781              AMF.Internals.Holders.UML_Holders.To_Holder
31782               (AMF.UML.Classifiers.UML_Classifier_Access'
31783                 (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31784                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
31785
31786         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Loop_Node_Decider_A_Loop_Node then
31787            --  LoopNode::decider : OutputPin
31788
31789            return
31790              AMF.Internals.Holders.UML_Holders.To_Holder
31791               (AMF.UML.Output_Pins.UML_Output_Pin_Access'
31792                 (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31793                   (AMF.Internals.Helpers.To_Element (Self)).Get_Decider));
31794
31795         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Edge_Activity_Edge_In_Structured_Node then
31796            --  StructuredActivityNode::edge : ActivityEdge
31797
31798            return
31799              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
31800               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31801                 (AMF.Internals.Helpers.To_Element (Self)).Get_Edge);
31802
31803         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
31804            --  Namespace::elementImport : ElementImport
31805
31806            return
31807              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
31808               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31809                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
31810
31811         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
31812            --  ExecutableNode::handler : ExceptionHandler
31813
31814            return
31815              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
31816               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31817                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
31818
31819         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
31820            --  Namespace::importedMember : PackageableElement
31821
31822            return
31823              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
31824               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31825                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
31826
31827         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_In_Activity_Activity_Group then
31828            --  ActivityGroup::inActivity : Activity
31829
31830            return
31831              AMF.Internals.Holders.UML_Holders.To_Holder
31832               (AMF.UML.Activities.UML_Activity_Access'
31833                 (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31834                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Activity));
31835
31836         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
31837            --  ActivityNode::inGroup : ActivityGroup
31838
31839            return
31840              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
31841               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31842                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
31843
31844         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
31845            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
31846
31847            return
31848              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
31849               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31850                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
31851
31852         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
31853            --  ActivityNode::inPartition : ActivityPartition
31854
31855            return
31856              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
31857               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31858                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
31859
31860         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
31861            --  ActivityNode::inStructuredNode : StructuredActivityNode
31862
31863            return
31864              AMF.Internals.Holders.UML_Holders.To_Holder
31865               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
31866                 (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31867                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
31868
31869         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
31870            --  ActivityNode::incoming : ActivityEdge
31871
31872            return
31873              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
31874               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31875                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
31876
31877         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
31878            --  Action::input : InputPin
31879
31880            return
31881              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
31882               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31883                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
31884
31885         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
31886            --  RedefinableElement::isLeaf : Boolean
31887
31888            return
31889              League.Holders.Booleans.To_Holder
31890               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31891                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
31892
31893         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
31894            --  Action::isLocallyReentrant : Boolean
31895
31896            return
31897              League.Holders.Booleans.To_Holder
31898               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31899                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
31900
31901         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Loop_Node_Is_Tested_First then
31902            --  LoopNode::isTestedFirst : Boolean
31903
31904            return
31905              League.Holders.Booleans.To_Holder
31906               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31907                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Tested_First);
31908
31909         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
31910            --  Action::localPostcondition : Constraint
31911
31912            return
31913              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
31914               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31915                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
31916
31917         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
31918            --  Action::localPrecondition : Constraint
31919
31920            return
31921              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
31922               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31923                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
31924
31925         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Loop_Node_Loop_Variable_A_Loop_Node then
31926            --  LoopNode::loopVariable : OutputPin
31927
31928            return
31929              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
31930               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31931                 (AMF.Internals.Helpers.To_Element (Self)).Get_Loop_Variable);
31932
31933         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Loop_Node_Loop_Variable_Input_A_Loop_Node then
31934            --  LoopNode::loopVariableInput : InputPin
31935
31936            return
31937              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
31938               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31939                 (AMF.Internals.Helpers.To_Element (Self)).Get_Loop_Variable_Input);
31940
31941         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
31942            --  Namespace::member : NamedElement
31943
31944            return
31945              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
31946               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31947                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
31948
31949         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Must_Isolate then
31950            --  StructuredActivityNode::mustIsolate : Boolean
31951
31952            return
31953              League.Holders.Booleans.To_Holder
31954               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31955                 (AMF.Internals.Helpers.To_Element (Self)).Get_Must_Isolate);
31956
31957         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
31958            --  NamedElement::name : String
31959
31960            return
31961              AMF.Holders.To_Holder
31962               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31963                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
31964
31965         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
31966            --  NamedElement::nameExpression : StringExpression
31967
31968            return
31969              AMF.Internals.Holders.UML_Holders.To_Holder
31970               (AMF.UML.String_Expressions.UML_String_Expression_Access'
31971                 (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31972                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
31973
31974         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
31975            --  NamedElement::namespace : Namespace
31976
31977            return
31978              AMF.Internals.Holders.UML_Holders.To_Holder
31979               (AMF.UML.Namespaces.UML_Namespace_Access'
31980                 (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31981                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
31982
31983         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Node_Activity_Node_In_Structured_Node then
31984            --  StructuredActivityNode::node : ActivityNode
31985
31986            return
31987              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
31988               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31989                 (AMF.Internals.Helpers.To_Element (Self)).Get_Node);
31990
31991         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
31992            --  ActivityNode::outgoing : ActivityEdge
31993
31994            return
31995              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
31996               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
31997                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
31998
31999         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
32000            --  Action::output : OutputPin
32001
32002            return
32003              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
32004               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
32005                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
32006
32007         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
32008            --  Element::ownedComment : Comment
32009
32010            return
32011              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
32012               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
32013                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
32014
32015         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
32016            --  Element::ownedElement : Element
32017
32018            return
32019              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
32020               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
32021                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
32022
32023         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
32024            --  Namespace::ownedMember : NamedElement
32025
32026            return
32027              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
32028               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
32029                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
32030
32031         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
32032            --  Namespace::ownedRule : Constraint
32033
32034            return
32035              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
32036               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
32037                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
32038
32039         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
32040            --  Element::owner : Element
32041
32042            return
32043              AMF.Internals.Holders.UML_Holders.To_Holder
32044               (AMF.UML.Elements.UML_Element_Access'
32045                 (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
32046                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
32047
32048         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
32049            --  Namespace::packageImport : PackageImport
32050
32051            return
32052              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
32053               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
32054                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
32055
32056         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
32057            --  NamedElement::qualifiedName : String
32058
32059            return
32060              AMF.Holders.To_Holder
32061               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
32062                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
32063
32064         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
32065            --  RedefinableElement::redefinedElement : RedefinableElement
32066
32067            return
32068              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
32069               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
32070                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
32071
32072         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
32073            --  ActivityNode::redefinedNode : ActivityNode
32074
32075            return
32076              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
32077               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
32078                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
32079
32080         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
32081            --  RedefinableElement::redefinitionContext : Classifier
32082
32083            return
32084              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
32085               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
32086                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
32087
32088         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Loop_Node_Result_A_Loop_Node then
32089            --  LoopNode::result : OutputPin
32090
32091            return
32092              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
32093               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
32094                 (AMF.Internals.Helpers.To_Element (Self)).Get_Result);
32095
32096         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Loop_Node_Setup_Part_A_Loop_Node then
32097            --  LoopNode::setupPart : ExecutableNode
32098
32099            return
32100              AMF.UML.Executable_Nodes.Collections.UML_Executable_Node_Collections.Internals.To_Holder
32101               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
32102                 (AMF.Internals.Helpers.To_Element (Self)).Get_Setup_Part);
32103
32104         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Structured_Node_Input_A_Structured_Activity_Node then
32105            --  StructuredActivityNode::structuredNodeInput : InputPin
32106
32107            return
32108              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
32109               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
32110                 (AMF.Internals.Helpers.To_Element (Self)).Get_Structured_Node_Input);
32111
32112         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Structured_Node_Output_A_Structured_Activity_Node then
32113            --  StructuredActivityNode::structuredNodeOutput : OutputPin
32114
32115            return
32116              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
32117               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
32118                 (AMF.Internals.Helpers.To_Element (Self)).Get_Structured_Node_Output);
32119
32120         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Subgroup_Activity_Group_Super_Group then
32121            --  ActivityGroup::subgroup : ActivityGroup
32122
32123            return
32124              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
32125               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
32126                 (AMF.Internals.Helpers.To_Element (Self)).Get_Subgroup);
32127
32128         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Super_Group_Activity_Group_Subgroup then
32129            --  ActivityGroup::superGroup : ActivityGroup
32130
32131            return
32132              AMF.Internals.Holders.UML_Holders.To_Holder
32133               (AMF.UML.Activity_Groups.UML_Activity_Group_Access'
32134                 (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
32135                   (AMF.Internals.Helpers.To_Element (Self)).Get_Super_Group));
32136
32137         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Loop_Node_Test_A_Loop_Node then
32138            --  LoopNode::test : ExecutableNode
32139
32140            return
32141              AMF.UML.Executable_Nodes.Collections.UML_Executable_Node_Collections.Internals.To_Holder
32142               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
32143                 (AMF.Internals.Helpers.To_Element (Self)).Get_Test);
32144
32145         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Variable_Variable_Scope then
32146            --  StructuredActivityNode::variable : Variable
32147
32148            return
32149              AMF.UML.Variables.Collections.UML_Variable_Collections.Internals.To_Holder
32150               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
32151                 (AMF.Internals.Helpers.To_Element (Self)).Get_Variable);
32152
32153         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
32154            --  NamedElement::visibility : VisibilityKind
32155
32156            return
32157              AMF.UML.Holders.To_Holder
32158               (AMF.UML.Loop_Nodes.UML_Loop_Node_Access
32159                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
32160
32161         else
32162            raise Program_Error;
32163         end if;
32164      end UML_Loop_Node_Get;
32165
32166      ---------------------------
32167      -- UML_Manifestation_Get --
32168      ---------------------------
32169
32170      function UML_Manifestation_Get return League.Holders.Holder is
32171      begin
32172         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Client_Named_Element_Client_Dependency then
32173            --  Dependency::client : NamedElement
32174
32175            return
32176              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
32177               (AMF.UML.Manifestations.UML_Manifestation_Access
32178                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client);
32179
32180         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
32181            --  NamedElement::clientDependency : Dependency
32182
32183            return
32184              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
32185               (AMF.UML.Manifestations.UML_Manifestation_Access
32186                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
32187
32188         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Abstraction_Mapping_A_Abstraction then
32189            --  Abstraction::mapping : OpaqueExpression
32190
32191            return
32192              AMF.Internals.Holders.UML_Holders.To_Holder
32193               (AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access'
32194                 (AMF.UML.Manifestations.UML_Manifestation_Access
32195                   (AMF.Internals.Helpers.To_Element (Self)).Get_Mapping));
32196
32197         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
32198            --  NamedElement::name : String
32199
32200            return
32201              AMF.Holders.To_Holder
32202               (AMF.UML.Manifestations.UML_Manifestation_Access
32203                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
32204
32205         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
32206            --  NamedElement::nameExpression : StringExpression
32207
32208            return
32209              AMF.Internals.Holders.UML_Holders.To_Holder
32210               (AMF.UML.String_Expressions.UML_String_Expression_Access'
32211                 (AMF.UML.Manifestations.UML_Manifestation_Access
32212                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
32213
32214         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
32215            --  NamedElement::namespace : Namespace
32216
32217            return
32218              AMF.Internals.Holders.UML_Holders.To_Holder
32219               (AMF.UML.Namespaces.UML_Namespace_Access'
32220                 (AMF.UML.Manifestations.UML_Manifestation_Access
32221                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
32222
32223         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
32224            --  Element::ownedComment : Comment
32225
32226            return
32227              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
32228               (AMF.UML.Manifestations.UML_Manifestation_Access
32229                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
32230
32231         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
32232            --  Element::ownedElement : Element
32233
32234            return
32235              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
32236               (AMF.UML.Manifestations.UML_Manifestation_Access
32237                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
32238
32239         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
32240            --  Element::owner : Element
32241
32242            return
32243              AMF.Internals.Holders.UML_Holders.To_Holder
32244               (AMF.UML.Elements.UML_Element_Access'
32245                 (AMF.UML.Manifestations.UML_Manifestation_Access
32246                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
32247
32248         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
32249            --  ParameterableElement::owningTemplateParameter : TemplateParameter
32250
32251            return
32252              AMF.Internals.Holders.UML_Holders.To_Holder
32253               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
32254                 (AMF.UML.Manifestations.UML_Manifestation_Access
32255                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
32256
32257         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
32258            --  NamedElement::qualifiedName : String
32259
32260            return
32261              AMF.Holders.To_Holder
32262               (AMF.UML.Manifestations.UML_Manifestation_Access
32263                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
32264
32265         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship then
32266            --  Relationship::relatedElement : Element
32267
32268            return
32269              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
32270               (AMF.UML.Manifestations.UML_Manifestation_Access
32271                 (AMF.Internals.Helpers.To_Element (Self)).Get_Related_Element);
32272
32273         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship then
32274            --  DirectedRelationship::source : Element
32275
32276            return
32277              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
32278               (AMF.UML.Manifestations.UML_Manifestation_Access
32279                 (AMF.Internals.Helpers.To_Element (Self)).Get_Source);
32280
32281         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Supplier_A_Supplier_Dependency then
32282            --  Dependency::supplier : NamedElement
32283
32284            return
32285              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
32286               (AMF.UML.Manifestations.UML_Manifestation_Access
32287                 (AMF.Internals.Helpers.To_Element (Self)).Get_Supplier);
32288
32289         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship then
32290            --  DirectedRelationship::target : Element
32291
32292            return
32293              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
32294               (AMF.UML.Manifestations.UML_Manifestation_Access
32295                 (AMF.Internals.Helpers.To_Element (Self)).Get_Target);
32296
32297         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
32298            --  ParameterableElement::templateParameter : TemplateParameter
32299
32300            return
32301              AMF.Internals.Holders.UML_Holders.To_Holder
32302               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
32303                 (AMF.UML.Manifestations.UML_Manifestation_Access
32304                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
32305
32306         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Manifestation_Utilized_Element_A_Manifestation then
32307            --  Manifestation::utilizedElement : PackageableElement
32308
32309            return
32310              AMF.Internals.Holders.UML_Holders.To_Holder
32311               (AMF.UML.Packageable_Elements.UML_Packageable_Element_Access'
32312                 (AMF.UML.Manifestations.UML_Manifestation_Access
32313                   (AMF.Internals.Helpers.To_Element (Self)).Get_Utilized_Element));
32314
32315         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
32316            --  NamedElement::visibility : VisibilityKind
32317
32318            return
32319              AMF.UML.Holders.To_Holder
32320               (AMF.UML.Manifestations.UML_Manifestation_Access
32321                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
32322
32323         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
32324            --  PackageableElement::visibility : VisibilityKind
32325
32326            return
32327              AMF.UML.Holders.Visibility_Kinds.To_Holder
32328               (AMF.UML.Manifestations.UML_Manifestation_Access
32329                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
32330
32331         else
32332            raise Program_Error;
32333         end if;
32334      end UML_Manifestation_Get;
32335
32336      ------------------------
32337      -- UML_Merge_Node_Get --
32338      ------------------------
32339
32340      function UML_Merge_Node_Get return League.Holders.Holder is
32341      begin
32342         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
32343            --  ActivityNode::activity : Activity
32344
32345            return
32346              AMF.Internals.Holders.UML_Holders.To_Holder
32347               (AMF.UML.Activities.UML_Activity_Access'
32348                 (AMF.UML.Merge_Nodes.UML_Merge_Node_Access
32349                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
32350
32351         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
32352            --  NamedElement::clientDependency : Dependency
32353
32354            return
32355              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
32356               (AMF.UML.Merge_Nodes.UML_Merge_Node_Access
32357                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
32358
32359         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
32360            --  ActivityNode::inGroup : ActivityGroup
32361
32362            return
32363              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
32364               (AMF.UML.Merge_Nodes.UML_Merge_Node_Access
32365                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
32366
32367         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
32368            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
32369
32370            return
32371              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
32372               (AMF.UML.Merge_Nodes.UML_Merge_Node_Access
32373                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
32374
32375         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
32376            --  ActivityNode::inPartition : ActivityPartition
32377
32378            return
32379              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
32380               (AMF.UML.Merge_Nodes.UML_Merge_Node_Access
32381                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
32382
32383         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
32384            --  ActivityNode::inStructuredNode : StructuredActivityNode
32385
32386            return
32387              AMF.Internals.Holders.UML_Holders.To_Holder
32388               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
32389                 (AMF.UML.Merge_Nodes.UML_Merge_Node_Access
32390                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
32391
32392         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
32393            --  ActivityNode::incoming : ActivityEdge
32394
32395            return
32396              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
32397               (AMF.UML.Merge_Nodes.UML_Merge_Node_Access
32398                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
32399
32400         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
32401            --  RedefinableElement::isLeaf : Boolean
32402
32403            return
32404              League.Holders.Booleans.To_Holder
32405               (AMF.UML.Merge_Nodes.UML_Merge_Node_Access
32406                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
32407
32408         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
32409            --  NamedElement::name : String
32410
32411            return
32412              AMF.Holders.To_Holder
32413               (AMF.UML.Merge_Nodes.UML_Merge_Node_Access
32414                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
32415
32416         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
32417            --  NamedElement::nameExpression : StringExpression
32418
32419            return
32420              AMF.Internals.Holders.UML_Holders.To_Holder
32421               (AMF.UML.String_Expressions.UML_String_Expression_Access'
32422                 (AMF.UML.Merge_Nodes.UML_Merge_Node_Access
32423                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
32424
32425         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
32426            --  NamedElement::namespace : Namespace
32427
32428            return
32429              AMF.Internals.Holders.UML_Holders.To_Holder
32430               (AMF.UML.Namespaces.UML_Namespace_Access'
32431                 (AMF.UML.Merge_Nodes.UML_Merge_Node_Access
32432                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
32433
32434         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
32435            --  ActivityNode::outgoing : ActivityEdge
32436
32437            return
32438              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
32439               (AMF.UML.Merge_Nodes.UML_Merge_Node_Access
32440                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
32441
32442         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
32443            --  Element::ownedComment : Comment
32444
32445            return
32446              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
32447               (AMF.UML.Merge_Nodes.UML_Merge_Node_Access
32448                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
32449
32450         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
32451            --  Element::ownedElement : Element
32452
32453            return
32454              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
32455               (AMF.UML.Merge_Nodes.UML_Merge_Node_Access
32456                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
32457
32458         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
32459            --  Element::owner : Element
32460
32461            return
32462              AMF.Internals.Holders.UML_Holders.To_Holder
32463               (AMF.UML.Elements.UML_Element_Access'
32464                 (AMF.UML.Merge_Nodes.UML_Merge_Node_Access
32465                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
32466
32467         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
32468            --  NamedElement::qualifiedName : String
32469
32470            return
32471              AMF.Holders.To_Holder
32472               (AMF.UML.Merge_Nodes.UML_Merge_Node_Access
32473                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
32474
32475         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
32476            --  RedefinableElement::redefinedElement : RedefinableElement
32477
32478            return
32479              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
32480               (AMF.UML.Merge_Nodes.UML_Merge_Node_Access
32481                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
32482
32483         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
32484            --  ActivityNode::redefinedNode : ActivityNode
32485
32486            return
32487              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
32488               (AMF.UML.Merge_Nodes.UML_Merge_Node_Access
32489                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
32490
32491         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
32492            --  RedefinableElement::redefinitionContext : Classifier
32493
32494            return
32495              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
32496               (AMF.UML.Merge_Nodes.UML_Merge_Node_Access
32497                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
32498
32499         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
32500            --  NamedElement::visibility : VisibilityKind
32501
32502            return
32503              AMF.UML.Holders.To_Holder
32504               (AMF.UML.Merge_Nodes.UML_Merge_Node_Access
32505                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
32506
32507         else
32508            raise Program_Error;
32509         end if;
32510      end UML_Merge_Node_Get;
32511
32512      ---------------------
32513      -- UML_Message_Get --
32514      ---------------------
32515
32516      function UML_Message_Get return League.Holders.Holder is
32517      begin
32518         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Message_Argument_A_Message then
32519            --  Message::argument : ValueSpecification
32520
32521            return
32522              AMF.UML.Value_Specifications.Collections.UML_Value_Specification_Collections.Internals.To_Holder
32523               (AMF.UML.Messages.UML_Message_Access
32524                 (AMF.Internals.Helpers.To_Element (Self)).Get_Argument);
32525
32526         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
32527            --  NamedElement::clientDependency : Dependency
32528
32529            return
32530              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
32531               (AMF.UML.Messages.UML_Message_Access
32532                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
32533
32534         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Message_Connector_A_Message then
32535            --  Message::connector : Connector
32536
32537            return
32538              AMF.Internals.Holders.UML_Holders.To_Holder
32539               (AMF.UML.Connectors.UML_Connector_Access'
32540                 (AMF.UML.Messages.UML_Message_Access
32541                   (AMF.Internals.Helpers.To_Element (Self)).Get_Connector));
32542
32543         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Message_Interaction_Interaction_Message then
32544            --  Message::interaction : Interaction
32545
32546            return
32547              AMF.Internals.Holders.UML_Holders.To_Holder
32548               (AMF.UML.Interactions.UML_Interaction_Access'
32549                 (AMF.UML.Messages.UML_Message_Access
32550                   (AMF.Internals.Helpers.To_Element (Self)).Get_Interaction));
32551
32552         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Message_Message_Kind then
32553            --  Message::messageKind : MessageKind
32554
32555            return
32556              AMF.UML.Holders.Message_Kinds.To_Holder
32557               (AMF.UML.Messages.UML_Message_Access
32558                 (AMF.Internals.Helpers.To_Element (Self)).Get_Message_Kind);
32559
32560         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Message_Message_Sort then
32561            --  Message::messageSort : MessageSort
32562
32563            return
32564              AMF.UML.Holders.Message_Sorts.To_Holder
32565               (AMF.UML.Messages.UML_Message_Access
32566                 (AMF.Internals.Helpers.To_Element (Self)).Get_Message_Sort);
32567
32568         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
32569            --  NamedElement::name : String
32570
32571            return
32572              AMF.Holders.To_Holder
32573               (AMF.UML.Messages.UML_Message_Access
32574                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
32575
32576         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
32577            --  NamedElement::nameExpression : StringExpression
32578
32579            return
32580              AMF.Internals.Holders.UML_Holders.To_Holder
32581               (AMF.UML.String_Expressions.UML_String_Expression_Access'
32582                 (AMF.UML.Messages.UML_Message_Access
32583                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
32584
32585         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
32586            --  NamedElement::namespace : Namespace
32587
32588            return
32589              AMF.Internals.Holders.UML_Holders.To_Holder
32590               (AMF.UML.Namespaces.UML_Namespace_Access'
32591                 (AMF.UML.Messages.UML_Message_Access
32592                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
32593
32594         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
32595            --  Element::ownedComment : Comment
32596
32597            return
32598              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
32599               (AMF.UML.Messages.UML_Message_Access
32600                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
32601
32602         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
32603            --  Element::ownedElement : Element
32604
32605            return
32606              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
32607               (AMF.UML.Messages.UML_Message_Access
32608                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
32609
32610         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
32611            --  Element::owner : Element
32612
32613            return
32614              AMF.Internals.Holders.UML_Holders.To_Holder
32615               (AMF.UML.Elements.UML_Element_Access'
32616                 (AMF.UML.Messages.UML_Message_Access
32617                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
32618
32619         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
32620            --  NamedElement::qualifiedName : String
32621
32622            return
32623              AMF.Holders.To_Holder
32624               (AMF.UML.Messages.UML_Message_Access
32625                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
32626
32627         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Message_Receive_Event_A_End_Message then
32628            --  Message::receiveEvent : MessageEnd
32629
32630            return
32631              AMF.Internals.Holders.UML_Holders.To_Holder
32632               (AMF.UML.Message_Ends.UML_Message_End_Access'
32633                 (AMF.UML.Messages.UML_Message_Access
32634                   (AMF.Internals.Helpers.To_Element (Self)).Get_Receive_Event));
32635
32636         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Message_Send_Event_A_End_Message then
32637            --  Message::sendEvent : MessageEnd
32638
32639            return
32640              AMF.Internals.Holders.UML_Holders.To_Holder
32641               (AMF.UML.Message_Ends.UML_Message_End_Access'
32642                 (AMF.UML.Messages.UML_Message_Access
32643                   (AMF.Internals.Helpers.To_Element (Self)).Get_Send_Event));
32644
32645         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Message_Signature_A_Message then
32646            --  Message::signature : NamedElement
32647
32648            return
32649              AMF.Internals.Holders.UML_Holders.To_Holder
32650               (AMF.UML.Named_Elements.UML_Named_Element_Access'
32651                 (AMF.UML.Messages.UML_Message_Access
32652                   (AMF.Internals.Helpers.To_Element (Self)).Get_Signature));
32653
32654         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
32655            --  NamedElement::visibility : VisibilityKind
32656
32657            return
32658              AMF.UML.Holders.To_Holder
32659               (AMF.UML.Messages.UML_Message_Access
32660                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
32661
32662         else
32663            raise Program_Error;
32664         end if;
32665      end UML_Message_Get;
32666
32667      ----------------------------------------------
32668      -- UML_Message_Occurrence_Specification_Get --
32669      ----------------------------------------------
32670
32671      function UML_Message_Occurrence_Specification_Get return League.Holders.Holder is
32672      begin
32673         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
32674            --  NamedElement::clientDependency : Dependency
32675
32676            return
32677              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
32678               (AMF.UML.Message_Occurrence_Specifications.UML_Message_Occurrence_Specification_Access
32679                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
32680
32681         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Covered_Lifeline_Covered_By then
32682            --  InteractionFragment::covered : Lifeline
32683
32684            return
32685              AMF.UML.Lifelines.Collections.UML_Lifeline_Collections.Internals.To_Holder
32686               (AMF.UML.Message_Occurrence_Specifications.UML_Message_Occurrence_Specification_Access
32687                 (AMF.Internals.Helpers.To_Element (Self)).Get_Covered);
32688
32689         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Occurrence_Specification_Covered_A_Events then
32690            --  OccurrenceSpecification::covered : Lifeline
32691
32692            return
32693              AMF.Internals.Holders.UML_Holders.To_Holder
32694               (AMF.UML.Lifelines.UML_Lifeline_Access'
32695                 (AMF.UML.Message_Occurrence_Specifications.UML_Message_Occurrence_Specification_Access
32696                   (AMF.Internals.Helpers.To_Element (Self)).Get_Covered));
32697
32698         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Interaction_Interaction_Fragment then
32699            --  InteractionFragment::enclosingInteraction : Interaction
32700
32701            return
32702              AMF.Internals.Holders.UML_Holders.To_Holder
32703               (AMF.UML.Interactions.UML_Interaction_Access'
32704                 (AMF.UML.Message_Occurrence_Specifications.UML_Message_Occurrence_Specification_Access
32705                   (AMF.Internals.Helpers.To_Element (Self)).Get_Enclosing_Interaction));
32706
32707         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Operand_Interaction_Operand_Fragment then
32708            --  InteractionFragment::enclosingOperand : InteractionOperand
32709
32710            return
32711              AMF.Internals.Holders.UML_Holders.To_Holder
32712               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access'
32713                 (AMF.UML.Message_Occurrence_Specifications.UML_Message_Occurrence_Specification_Access
32714                   (AMF.Internals.Helpers.To_Element (Self)).Get_Enclosing_Operand));
32715
32716         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_General_Ordering_A_Interaction_Fragment then
32717            --  InteractionFragment::generalOrdering : GeneralOrdering
32718
32719            return
32720              AMF.UML.General_Orderings.Collections.UML_General_Ordering_Collections.Internals.To_Holder
32721               (AMF.UML.Message_Occurrence_Specifications.UML_Message_Occurrence_Specification_Access
32722                 (AMF.Internals.Helpers.To_Element (Self)).Get_General_Ordering);
32723
32724         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Message_End_Message_A_Message_End then
32725            --  MessageEnd::message : Message
32726
32727            return
32728              AMF.Internals.Holders.UML_Holders.To_Holder
32729               (AMF.UML.Messages.UML_Message_Access'
32730                 (AMF.UML.Message_Occurrence_Specifications.UML_Message_Occurrence_Specification_Access
32731                   (AMF.Internals.Helpers.To_Element (Self)).Get_Message));
32732
32733         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
32734            --  NamedElement::name : String
32735
32736            return
32737              AMF.Holders.To_Holder
32738               (AMF.UML.Message_Occurrence_Specifications.UML_Message_Occurrence_Specification_Access
32739                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
32740
32741         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
32742            --  NamedElement::nameExpression : StringExpression
32743
32744            return
32745              AMF.Internals.Holders.UML_Holders.To_Holder
32746               (AMF.UML.String_Expressions.UML_String_Expression_Access'
32747                 (AMF.UML.Message_Occurrence_Specifications.UML_Message_Occurrence_Specification_Access
32748                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
32749
32750         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
32751            --  NamedElement::namespace : Namespace
32752
32753            return
32754              AMF.Internals.Holders.UML_Holders.To_Holder
32755               (AMF.UML.Namespaces.UML_Namespace_Access'
32756                 (AMF.UML.Message_Occurrence_Specifications.UML_Message_Occurrence_Specification_Access
32757                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
32758
32759         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
32760            --  Element::ownedComment : Comment
32761
32762            return
32763              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
32764               (AMF.UML.Message_Occurrence_Specifications.UML_Message_Occurrence_Specification_Access
32765                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
32766
32767         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
32768            --  Element::ownedElement : Element
32769
32770            return
32771              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
32772               (AMF.UML.Message_Occurrence_Specifications.UML_Message_Occurrence_Specification_Access
32773                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
32774
32775         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
32776            --  Element::owner : Element
32777
32778            return
32779              AMF.Internals.Holders.UML_Holders.To_Holder
32780               (AMF.UML.Elements.UML_Element_Access'
32781                 (AMF.UML.Message_Occurrence_Specifications.UML_Message_Occurrence_Specification_Access
32782                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
32783
32784         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
32785            --  NamedElement::qualifiedName : String
32786
32787            return
32788              AMF.Holders.To_Holder
32789               (AMF.UML.Message_Occurrence_Specifications.UML_Message_Occurrence_Specification_Access
32790                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
32791
32792         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Occurrence_Specification_To_After_General_Ordering_Before then
32793            --  OccurrenceSpecification::toAfter : GeneralOrdering
32794
32795            return
32796              AMF.UML.General_Orderings.Collections.UML_General_Ordering_Collections.Internals.To_Holder
32797               (AMF.UML.Message_Occurrence_Specifications.UML_Message_Occurrence_Specification_Access
32798                 (AMF.Internals.Helpers.To_Element (Self)).Get_To_After);
32799
32800         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Occurrence_Specification_To_Before_General_Ordering_After then
32801            --  OccurrenceSpecification::toBefore : GeneralOrdering
32802
32803            return
32804              AMF.UML.General_Orderings.Collections.UML_General_Ordering_Collections.Internals.To_Holder
32805               (AMF.UML.Message_Occurrence_Specifications.UML_Message_Occurrence_Specification_Access
32806                 (AMF.Internals.Helpers.To_Element (Self)).Get_To_Before);
32807
32808         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
32809            --  NamedElement::visibility : VisibilityKind
32810
32811            return
32812              AMF.UML.Holders.To_Holder
32813               (AMF.UML.Message_Occurrence_Specifications.UML_Message_Occurrence_Specification_Access
32814                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
32815
32816         else
32817            raise Program_Error;
32818         end if;
32819      end UML_Message_Occurrence_Specification_Get;
32820
32821      -------------------
32822      -- UML_Model_Get --
32823      -------------------
32824
32825      function UML_Model_Get return League.Holders.Holder is
32826      begin
32827         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_URI then
32828            --  Package::URI : String
32829
32830            return
32831              AMF.Holders.To_Holder
32832               (AMF.UML.Models.UML_Model_Access
32833                 (AMF.Internals.Helpers.To_Element (Self)).Get_URI);
32834
32835         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
32836            --  NamedElement::clientDependency : Dependency
32837
32838            return
32839              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
32840               (AMF.UML.Models.UML_Model_Access
32841                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
32842
32843         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
32844            --  Namespace::elementImport : ElementImport
32845
32846            return
32847              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
32848               (AMF.UML.Models.UML_Model_Access
32849                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
32850
32851         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
32852            --  Namespace::importedMember : PackageableElement
32853
32854            return
32855              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
32856               (AMF.UML.Models.UML_Model_Access
32857                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
32858
32859         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
32860            --  Namespace::member : NamedElement
32861
32862            return
32863              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
32864               (AMF.UML.Models.UML_Model_Access
32865                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
32866
32867         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
32868            --  NamedElement::name : String
32869
32870            return
32871              AMF.Holders.To_Holder
32872               (AMF.UML.Models.UML_Model_Access
32873                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
32874
32875         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
32876            --  NamedElement::nameExpression : StringExpression
32877
32878            return
32879              AMF.Internals.Holders.UML_Holders.To_Holder
32880               (AMF.UML.String_Expressions.UML_String_Expression_Access'
32881                 (AMF.UML.Models.UML_Model_Access
32882                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
32883
32884         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
32885            --  NamedElement::namespace : Namespace
32886
32887            return
32888              AMF.Internals.Holders.UML_Holders.To_Holder
32889               (AMF.UML.Namespaces.UML_Namespace_Access'
32890                 (AMF.UML.Models.UML_Model_Access
32891                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
32892
32893         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Nested_Package_Package_Nesting_Package then
32894            --  Package::nestedPackage : Package
32895
32896            return
32897              AMF.UML.Packages.Collections.UML_Package_Collections.Internals.To_Holder
32898               (AMF.UML.Models.UML_Model_Access
32899                 (AMF.Internals.Helpers.To_Element (Self)).Get_Nested_Package);
32900
32901         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Nesting_Package_Package_Nested_Package then
32902            --  Package::nestingPackage : Package
32903
32904            return
32905              AMF.Internals.Holders.UML_Holders.To_Holder
32906               (AMF.UML.Packages.UML_Package_Access'
32907                 (AMF.UML.Models.UML_Model_Access
32908                   (AMF.Internals.Helpers.To_Element (Self)).Get_Nesting_Package));
32909
32910         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
32911            --  Element::ownedComment : Comment
32912
32913            return
32914              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
32915               (AMF.UML.Models.UML_Model_Access
32916                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
32917
32918         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
32919            --  Element::ownedElement : Element
32920
32921            return
32922              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
32923               (AMF.UML.Models.UML_Model_Access
32924                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
32925
32926         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
32927            --  Namespace::ownedMember : NamedElement
32928
32929            return
32930              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
32931               (AMF.UML.Models.UML_Model_Access
32932                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
32933
32934         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
32935            --  Namespace::ownedRule : Constraint
32936
32937            return
32938              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
32939               (AMF.UML.Models.UML_Model_Access
32940                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
32941
32942         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Owned_Stereotype_A_Owning_Package then
32943            --  Package::ownedStereotype : Stereotype
32944
32945            return
32946              AMF.UML.Stereotypes.Collections.UML_Stereotype_Collections.Internals.To_Holder
32947               (AMF.UML.Models.UML_Model_Access
32948                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Stereotype);
32949
32950         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
32951            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
32952
32953            return
32954              AMF.Internals.Holders.UML_Holders.To_Holder
32955               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
32956                 (AMF.UML.Models.UML_Model_Access
32957                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
32958
32959         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Owned_Type_Type_Package then
32960            --  Package::ownedType : Type
32961
32962            return
32963              AMF.UML.Types.Collections.UML_Type_Collections.Internals.To_Holder
32964               (AMF.UML.Models.UML_Model_Access
32965                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Type);
32966
32967         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
32968            --  Element::owner : Element
32969
32970            return
32971              AMF.Internals.Holders.UML_Holders.To_Holder
32972               (AMF.UML.Elements.UML_Element_Access'
32973                 (AMF.UML.Models.UML_Model_Access
32974                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
32975
32976         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
32977            --  ParameterableElement::owningTemplateParameter : TemplateParameter
32978
32979            return
32980              AMF.Internals.Holders.UML_Holders.To_Holder
32981               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
32982                 (AMF.UML.Models.UML_Model_Access
32983                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
32984
32985         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
32986            --  Namespace::packageImport : PackageImport
32987
32988            return
32989              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
32990               (AMF.UML.Models.UML_Model_Access
32991                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
32992
32993         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Package_Merge_Package_Merge_Receiving_Package then
32994            --  Package::packageMerge : PackageMerge
32995
32996            return
32997              AMF.UML.Package_Merges.Collections.UML_Package_Merge_Collections.Internals.To_Holder
32998               (AMF.UML.Models.UML_Model_Access
32999                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Merge);
33000
33001         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Packaged_Element_A_Owning_Package then
33002            --  Package::packagedElement : PackageableElement
33003
33004            return
33005              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
33006               (AMF.UML.Models.UML_Model_Access
33007                 (AMF.Internals.Helpers.To_Element (Self)).Get_Packaged_Element);
33008
33009         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Profile_Application_Profile_Application_Applying_Package then
33010            --  Package::profileApplication : ProfileApplication
33011
33012            return
33013              AMF.UML.Profile_Applications.Collections.UML_Profile_Application_Collections.Internals.To_Holder
33014               (AMF.UML.Models.UML_Model_Access
33015                 (AMF.Internals.Helpers.To_Element (Self)).Get_Profile_Application);
33016
33017         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
33018            --  NamedElement::qualifiedName : String
33019
33020            return
33021              AMF.Holders.To_Holder
33022               (AMF.UML.Models.UML_Model_Access
33023                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
33024
33025         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
33026            --  TemplateableElement::templateBinding : TemplateBinding
33027
33028            return
33029              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
33030               (AMF.UML.Models.UML_Model_Access
33031                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
33032
33033         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
33034            --  ParameterableElement::templateParameter : TemplateParameter
33035
33036            return
33037              AMF.Internals.Holders.UML_Holders.To_Holder
33038               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
33039                 (AMF.UML.Models.UML_Model_Access
33040                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
33041
33042         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Model_Viewpoint then
33043            --  Model::viewpoint : String
33044
33045            return
33046              AMF.Holders.To_Holder
33047               (AMF.UML.Models.UML_Model_Access
33048                 (AMF.Internals.Helpers.To_Element (Self)).Get_Viewpoint);
33049
33050         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
33051            --  NamedElement::visibility : VisibilityKind
33052
33053            return
33054              AMF.UML.Holders.To_Holder
33055               (AMF.UML.Models.UML_Model_Access
33056                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
33057
33058         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
33059            --  PackageableElement::visibility : VisibilityKind
33060
33061            return
33062              AMF.UML.Holders.Visibility_Kinds.To_Holder
33063               (AMF.UML.Models.UML_Model_Access
33064                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
33065
33066         else
33067            raise Program_Error;
33068         end if;
33069      end UML_Model_Get;
33070
33071      ------------------
33072      -- UML_Node_Get --
33073      ------------------
33074
33075      function UML_Node_Get return League.Holders.Holder is
33076      begin
33077         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier then
33078            --  Classifier::attribute : Property
33079
33080            return
33081              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
33082               (AMF.UML.Nodes.UML_Node_Access
33083                 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute);
33084
33085         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
33086            --  BehavioredClassifier::classifierBehavior : Behavior
33087
33088            return
33089              AMF.Internals.Holders.UML_Holders.To_Holder
33090               (AMF.UML.Behaviors.UML_Behavior_Access'
33091                 (AMF.UML.Nodes.UML_Node_Access
33092                   (AMF.Internals.Helpers.To_Element (Self)).Get_Classifier_Behavior));
33093
33094         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
33095            --  NamedElement::clientDependency : Dependency
33096
33097            return
33098              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
33099               (AMF.UML.Nodes.UML_Node_Access
33100                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
33101
33102         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier then
33103            --  Classifier::collaborationUse : CollaborationUse
33104
33105            return
33106              AMF.UML.Collaboration_Uses.Collections.UML_Collaboration_Use_Collections.Internals.To_Holder
33107               (AMF.UML.Nodes.UML_Node_Access
33108                 (AMF.Internals.Helpers.To_Element (Self)).Get_Collaboration_Use);
33109
33110         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployed_Element_A_Deployment_Target then
33111            --  DeploymentTarget::deployedElement : PackageableElement
33112
33113            return
33114              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
33115               (AMF.UML.Nodes.UML_Node_Access
33116                 (AMF.Internals.Helpers.To_Element (Self)).Get_Deployed_Element);
33117
33118         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployment_Deployment_Location then
33119            --  DeploymentTarget::deployment : Deployment
33120
33121            return
33122              AMF.UML.Deployments.Collections.UML_Deployment_Collections.Internals.To_Holder
33123               (AMF.UML.Nodes.UML_Node_Access
33124                 (AMF.Internals.Helpers.To_Element (Self)).Get_Deployment);
33125
33126         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
33127            --  Namespace::elementImport : ElementImport
33128
33129            return
33130              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
33131               (AMF.UML.Nodes.UML_Node_Access
33132                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
33133
33134         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Extension_Extension_Metaclass then
33135            --  Class::extension : Extension
33136
33137            return
33138              AMF.UML.Extensions.Collections.UML_Extension_Collections.Internals.To_Holder
33139               (AMF.UML.Nodes.UML_Node_Access
33140                 (AMF.Internals.Helpers.To_Element (Self)).Get_Extension);
33141
33142         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier then
33143            --  Classifier::feature : Feature
33144
33145            return
33146              AMF.UML.Features.Collections.UML_Feature_Collections.Internals.To_Holder
33147               (AMF.UML.Nodes.UML_Node_Access
33148                 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature);
33149
33150         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier then
33151            --  Classifier::general : Classifier
33152
33153            return
33154              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
33155               (AMF.UML.Nodes.UML_Node_Access
33156                 (AMF.Internals.Helpers.To_Element (Self)).Get_General);
33157
33158         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific then
33159            --  Classifier::generalization : Generalization
33160
33161            return
33162              AMF.UML.Generalizations.Collections.UML_Generalization_Collections.Internals.To_Holder
33163               (AMF.UML.Nodes.UML_Node_Access
33164                 (AMF.Internals.Helpers.To_Element (Self)).Get_Generalization);
33165
33166         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
33167            --  Namespace::importedMember : PackageableElement
33168
33169            return
33170              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
33171               (AMF.UML.Nodes.UML_Node_Access
33172                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
33173
33174         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier then
33175            --  Classifier::inheritedMember : NamedElement
33176
33177            return
33178              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
33179               (AMF.UML.Nodes.UML_Node_Access
33180                 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member);
33181
33182         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier then
33183            --  BehavioredClassifier::interfaceRealization : InterfaceRealization
33184
33185            return
33186              AMF.UML.Interface_Realizations.Collections.UML_Interface_Realization_Collections.Internals.To_Holder
33187               (AMF.UML.Nodes.UML_Node_Access
33188                 (AMF.Internals.Helpers.To_Element (Self)).Get_Interface_Realization);
33189
33190         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Abstract then
33191            --  Class::isAbstract : Boolean
33192
33193            return
33194              League.Holders.Booleans.To_Holder
33195               (AMF.UML.Nodes.UML_Node_Access
33196                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
33197
33198         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
33199            --  Classifier::isAbstract : Boolean
33200
33201            return
33202              League.Holders.Booleans.To_Holder
33203               (AMF.UML.Nodes.UML_Node_Access
33204                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
33205
33206         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Active then
33207            --  Class::isActive : Boolean
33208
33209            return
33210              League.Holders.Booleans.To_Holder
33211               (AMF.UML.Nodes.UML_Node_Access
33212                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Active);
33213
33214         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
33215            --  Classifier::isFinalSpecialization : Boolean
33216
33217            return
33218              League.Holders.Booleans.To_Holder
33219               (AMF.UML.Nodes.UML_Node_Access
33220                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization);
33221
33222         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
33223            --  RedefinableElement::isLeaf : Boolean
33224
33225            return
33226              League.Holders.Booleans.To_Holder
33227               (AMF.UML.Nodes.UML_Node_Access
33228                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
33229
33230         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
33231            --  Namespace::member : NamedElement
33232
33233            return
33234              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
33235               (AMF.UML.Nodes.UML_Node_Access
33236                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
33237
33238         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
33239            --  NamedElement::name : String
33240
33241            return
33242              AMF.Holders.To_Holder
33243               (AMF.UML.Nodes.UML_Node_Access
33244                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
33245
33246         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
33247            --  NamedElement::nameExpression : StringExpression
33248
33249            return
33250              AMF.Internals.Holders.UML_Holders.To_Holder
33251               (AMF.UML.String_Expressions.UML_String_Expression_Access'
33252                 (AMF.UML.Nodes.UML_Node_Access
33253                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
33254
33255         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
33256            --  NamedElement::namespace : Namespace
33257
33258            return
33259              AMF.Internals.Holders.UML_Holders.To_Holder
33260               (AMF.UML.Namespaces.UML_Namespace_Access'
33261                 (AMF.UML.Nodes.UML_Node_Access
33262                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
33263
33264         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Nested_Classifier_A_Class then
33265            --  Class::nestedClassifier : Classifier
33266
33267            return
33268              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
33269               (AMF.UML.Nodes.UML_Node_Access
33270                 (AMF.Internals.Helpers.To_Element (Self)).Get_Nested_Classifier);
33271
33272         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Node_Nested_Node_A_Node then
33273            --  Node::nestedNode : Node
33274
33275            return
33276              AMF.UML.Nodes.Collections.UML_Node_Collections.Internals.To_Holder
33277               (AMF.UML.Nodes.UML_Node_Access
33278                 (AMF.Internals.Helpers.To_Element (Self)).Get_Nested_Node);
33279
33280         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Attribute_Property_Class then
33281            --  Class::ownedAttribute : Property
33282
33283            return
33284              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
33285               (AMF.UML.Nodes.UML_Node_Access
33286                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
33287
33288         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Attribute_A_Structured_Classifier then
33289            --  StructuredClassifier::ownedAttribute : Property
33290
33291            return
33292              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
33293               (AMF.UML.Nodes.UML_Node_Access
33294                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
33295
33296         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier then
33297            --  BehavioredClassifier::ownedBehavior : Behavior
33298
33299            return
33300              AMF.UML.Behaviors.Collections.UML_Behavior_Collections.Internals.To_Holder
33301               (AMF.UML.Nodes.UML_Node_Access
33302                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Behavior);
33303
33304         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
33305            --  Element::ownedComment : Comment
33306
33307            return
33308              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
33309               (AMF.UML.Nodes.UML_Node_Access
33310                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
33311
33312         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Connector_A_Structured_Classifier then
33313            --  StructuredClassifier::ownedConnector : Connector
33314
33315            return
33316              AMF.UML.Connectors.Collections.UML_Connector_Collections.Internals.To_Holder
33317               (AMF.UML.Nodes.UML_Node_Access
33318                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Connector);
33319
33320         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
33321            --  Element::ownedElement : Element
33322
33323            return
33324              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
33325               (AMF.UML.Nodes.UML_Node_Access
33326                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
33327
33328         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
33329            --  Namespace::ownedMember : NamedElement
33330
33331            return
33332              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
33333               (AMF.UML.Nodes.UML_Node_Access
33334                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
33335
33336         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Operation_Operation_Class then
33337            --  Class::ownedOperation : Operation
33338
33339            return
33340              AMF.UML.Operations.Collections.UML_Operation_Collections.Internals.To_Holder
33341               (AMF.UML.Nodes.UML_Node_Access
33342                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Operation);
33343
33344         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Encapsulated_Classifier_Owned_Port_A_Encapsulated_Classifier then
33345            --  EncapsulatedClassifier::ownedPort : Port
33346
33347            return
33348              AMF.UML.Ports.Collections.UML_Port_Collections.Internals.To_Holder
33349               (AMF.UML.Nodes.UML_Node_Access
33350                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Port);
33351
33352         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Reception_A_Class then
33353            --  Class::ownedReception : Reception
33354
33355            return
33356              AMF.UML.Receptions.Collections.UML_Reception_Collections.Internals.To_Holder
33357               (AMF.UML.Nodes.UML_Node_Access
33358                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Reception);
33359
33360         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
33361            --  Namespace::ownedRule : Constraint
33362
33363            return
33364              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
33365               (AMF.UML.Nodes.UML_Node_Access
33366                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
33367
33368         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
33369            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
33370
33371            return
33372              AMF.Internals.Holders.UML_Holders.To_Holder
33373               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access'
33374                 (AMF.UML.Nodes.UML_Node_Access
33375                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
33376
33377         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
33378            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
33379
33380            return
33381              AMF.Internals.Holders.UML_Holders.To_Holder
33382               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
33383                 (AMF.UML.Nodes.UML_Node_Access
33384                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
33385
33386         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier then
33387            --  Classifier::ownedUseCase : UseCase
33388
33389            return
33390              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
33391               (AMF.UML.Nodes.UML_Node_Access
33392                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Use_Case);
33393
33394         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
33395            --  Element::owner : Element
33396
33397            return
33398              AMF.Internals.Holders.UML_Holders.To_Holder
33399               (AMF.UML.Elements.UML_Element_Access'
33400                 (AMF.UML.Nodes.UML_Node_Access
33401                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
33402
33403         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
33404            --  ParameterableElement::owningTemplateParameter : TemplateParameter
33405
33406            return
33407              AMF.Internals.Holders.UML_Holders.To_Holder
33408               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
33409                 (AMF.UML.Nodes.UML_Node_Access
33410                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
33411
33412         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
33413            --  Type::package : Package
33414
33415            return
33416              AMF.Internals.Holders.UML_Holders.To_Holder
33417               (AMF.UML.Packages.UML_Package_Access'
33418                 (AMF.UML.Nodes.UML_Node_Access
33419                   (AMF.Internals.Helpers.To_Element (Self)).Get_Package));
33420
33421         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
33422            --  Namespace::packageImport : PackageImport
33423
33424            return
33425              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
33426               (AMF.UML.Nodes.UML_Node_Access
33427                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
33428
33429         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Part_A_Structured_Classifier then
33430            --  StructuredClassifier::part : Property
33431
33432            return
33433              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
33434               (AMF.UML.Nodes.UML_Node_Access
33435                 (AMF.Internals.Helpers.To_Element (Self)).Get_Part);
33436
33437         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype then
33438            --  Classifier::powertypeExtent : GeneralizationSet
33439
33440            return
33441              AMF.UML.Generalization_Sets.Collections.UML_Generalization_Set_Collections.Internals.To_Holder
33442               (AMF.UML.Nodes.UML_Node_Access
33443                 (AMF.Internals.Helpers.To_Element (Self)).Get_Powertype_Extent);
33444
33445         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
33446            --  NamedElement::qualifiedName : String
33447
33448            return
33449              AMF.Holders.To_Holder
33450               (AMF.UML.Nodes.UML_Node_Access
33451                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
33452
33453         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier then
33454            --  Classifier::redefinedClassifier : Classifier
33455
33456            return
33457              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
33458               (AMF.UML.Nodes.UML_Node_Access
33459                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Classifier);
33460
33461         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
33462            --  RedefinableElement::redefinedElement : RedefinableElement
33463
33464            return
33465              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
33466               (AMF.UML.Nodes.UML_Node_Access
33467                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
33468
33469         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
33470            --  RedefinableElement::redefinitionContext : Classifier
33471
33472            return
33473              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
33474               (AMF.UML.Nodes.UML_Node_Access
33475                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
33476
33477         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
33478            --  Classifier::representation : CollaborationUse
33479
33480            return
33481              AMF.Internals.Holders.UML_Holders.To_Holder
33482               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access'
33483                 (AMF.UML.Nodes.UML_Node_Access
33484                   (AMF.Internals.Helpers.To_Element (Self)).Get_Representation));
33485
33486         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Role_A_Structured_Classifier then
33487            --  StructuredClassifier::role : ConnectableElement
33488
33489            return
33490              AMF.UML.Connectable_Elements.Collections.UML_Connectable_Element_Collections.Internals.To_Holder
33491               (AMF.UML.Nodes.UML_Node_Access
33492                 (AMF.Internals.Helpers.To_Element (Self)).Get_Role);
33493
33494         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier then
33495            --  Classifier::substitution : Substitution
33496
33497            return
33498              AMF.UML.Substitutions.Collections.UML_Substitution_Collections.Internals.To_Holder
33499               (AMF.UML.Nodes.UML_Node_Access
33500                 (AMF.Internals.Helpers.To_Element (Self)).Get_Substitution);
33501
33502         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Super_Class_A_Class then
33503            --  Class::superClass : Class
33504
33505            return
33506              AMF.UML.Classes.Collections.UML_Class_Collections.Internals.To_Holder
33507               (AMF.UML.Nodes.UML_Node_Access
33508                 (AMF.Internals.Helpers.To_Element (Self)).Get_Super_Class);
33509
33510         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
33511            --  TemplateableElement::templateBinding : TemplateBinding
33512
33513            return
33514              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
33515               (AMF.UML.Nodes.UML_Node_Access
33516                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
33517
33518         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
33519            --  Classifier::templateParameter : ClassifierTemplateParameter
33520
33521            return
33522              AMF.Internals.Holders.UML_Holders.To_Holder
33523               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access'
33524                 (AMF.UML.Nodes.UML_Node_Access
33525                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
33526
33527         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
33528            --  ParameterableElement::templateParameter : TemplateParameter
33529
33530            return
33531              AMF.Internals.Holders.UML_Holders.To_Holder
33532               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
33533                 (AMF.UML.Nodes.UML_Node_Access
33534                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
33535
33536         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject then
33537            --  Classifier::useCase : UseCase
33538
33539            return
33540              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
33541               (AMF.UML.Nodes.UML_Node_Access
33542                 (AMF.Internals.Helpers.To_Element (Self)).Get_Use_Case);
33543
33544         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
33545            --  NamedElement::visibility : VisibilityKind
33546
33547            return
33548              AMF.UML.Holders.To_Holder
33549               (AMF.UML.Nodes.UML_Node_Access
33550                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
33551
33552         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
33553            --  PackageableElement::visibility : VisibilityKind
33554
33555            return
33556              AMF.UML.Holders.Visibility_Kinds.To_Holder
33557               (AMF.UML.Nodes.UML_Node_Access
33558                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
33559
33560         else
33561            raise Program_Error;
33562         end if;
33563      end UML_Node_Get;
33564
33565      -------------------------
33566      -- UML_Object_Flow_Get --
33567      -------------------------
33568
33569      function UML_Object_Flow_Get return League.Holders.Holder is
33570      begin
33571         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_Activity_Activity_Edge then
33572            --  ActivityEdge::activity : Activity
33573
33574            return
33575              AMF.Internals.Holders.UML_Holders.To_Holder
33576               (AMF.UML.Activities.UML_Activity_Access'
33577                 (AMF.UML.Object_Flows.UML_Object_Flow_Access
33578                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
33579
33580         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
33581            --  NamedElement::clientDependency : Dependency
33582
33583            return
33584              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
33585               (AMF.UML.Object_Flows.UML_Object_Flow_Access
33586                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
33587
33588         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_Guard_A_Activity_Edge then
33589            --  ActivityEdge::guard : ValueSpecification
33590
33591            return
33592              AMF.Internals.Holders.UML_Holders.To_Holder
33593               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
33594                 (AMF.UML.Object_Flows.UML_Object_Flow_Access
33595                   (AMF.Internals.Helpers.To_Element (Self)).Get_Guard));
33596
33597         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_In_Group_Activity_Group_Contained_Edge then
33598            --  ActivityEdge::inGroup : ActivityGroup
33599
33600            return
33601              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
33602               (AMF.UML.Object_Flows.UML_Object_Flow_Access
33603                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
33604
33605         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_In_Partition_Activity_Partition_Edge then
33606            --  ActivityEdge::inPartition : ActivityPartition
33607
33608            return
33609              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
33610               (AMF.UML.Object_Flows.UML_Object_Flow_Access
33611                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
33612
33613         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_In_Structured_Node_Structured_Activity_Node_Edge then
33614            --  ActivityEdge::inStructuredNode : StructuredActivityNode
33615
33616            return
33617              AMF.Internals.Holders.UML_Holders.To_Holder
33618               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
33619                 (AMF.UML.Object_Flows.UML_Object_Flow_Access
33620                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
33621
33622         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_Interrupts_Interruptible_Activity_Region_Interrupting_Edge then
33623            --  ActivityEdge::interrupts : InterruptibleActivityRegion
33624
33625            return
33626              AMF.Internals.Holders.UML_Holders.To_Holder
33627               (AMF.UML.Interruptible_Activity_Regions.UML_Interruptible_Activity_Region_Access'
33628                 (AMF.UML.Object_Flows.UML_Object_Flow_Access
33629                   (AMF.Internals.Helpers.To_Element (Self)).Get_Interrupts));
33630
33631         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
33632            --  RedefinableElement::isLeaf : Boolean
33633
33634            return
33635              League.Holders.Booleans.To_Holder
33636               (AMF.UML.Object_Flows.UML_Object_Flow_Access
33637                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
33638
33639         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Flow_Is_Multicast then
33640            --  ObjectFlow::isMulticast : Boolean
33641
33642            return
33643              League.Holders.Booleans.To_Holder
33644               (AMF.UML.Object_Flows.UML_Object_Flow_Access
33645                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Multicast);
33646
33647         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Flow_Is_Multireceive then
33648            --  ObjectFlow::isMultireceive : Boolean
33649
33650            return
33651              League.Holders.Booleans.To_Holder
33652               (AMF.UML.Object_Flows.UML_Object_Flow_Access
33653                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Multireceive);
33654
33655         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
33656            --  NamedElement::name : String
33657
33658            return
33659              AMF.Holders.To_Holder
33660               (AMF.UML.Object_Flows.UML_Object_Flow_Access
33661                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
33662
33663         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
33664            --  NamedElement::nameExpression : StringExpression
33665
33666            return
33667              AMF.Internals.Holders.UML_Holders.To_Holder
33668               (AMF.UML.String_Expressions.UML_String_Expression_Access'
33669                 (AMF.UML.Object_Flows.UML_Object_Flow_Access
33670                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
33671
33672         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
33673            --  NamedElement::namespace : Namespace
33674
33675            return
33676              AMF.Internals.Holders.UML_Holders.To_Holder
33677               (AMF.UML.Namespaces.UML_Namespace_Access'
33678                 (AMF.UML.Object_Flows.UML_Object_Flow_Access
33679                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
33680
33681         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
33682            --  Element::ownedComment : Comment
33683
33684            return
33685              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
33686               (AMF.UML.Object_Flows.UML_Object_Flow_Access
33687                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
33688
33689         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
33690            --  Element::ownedElement : Element
33691
33692            return
33693              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
33694               (AMF.UML.Object_Flows.UML_Object_Flow_Access
33695                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
33696
33697         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
33698            --  Element::owner : Element
33699
33700            return
33701              AMF.Internals.Holders.UML_Holders.To_Holder
33702               (AMF.UML.Elements.UML_Element_Access'
33703                 (AMF.UML.Object_Flows.UML_Object_Flow_Access
33704                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
33705
33706         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
33707            --  NamedElement::qualifiedName : String
33708
33709            return
33710              AMF.Holders.To_Holder
33711               (AMF.UML.Object_Flows.UML_Object_Flow_Access
33712                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
33713
33714         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_Redefined_Edge_A_Activity_Edge then
33715            --  ActivityEdge::redefinedEdge : ActivityEdge
33716
33717            return
33718              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
33719               (AMF.UML.Object_Flows.UML_Object_Flow_Access
33720                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Edge);
33721
33722         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
33723            --  RedefinableElement::redefinedElement : RedefinableElement
33724
33725            return
33726              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
33727               (AMF.UML.Object_Flows.UML_Object_Flow_Access
33728                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
33729
33730         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
33731            --  RedefinableElement::redefinitionContext : Classifier
33732
33733            return
33734              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
33735               (AMF.UML.Object_Flows.UML_Object_Flow_Access
33736                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
33737
33738         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Flow_Selection_A_Object_Flow then
33739            --  ObjectFlow::selection : Behavior
33740
33741            return
33742              AMF.Internals.Holders.UML_Holders.To_Holder
33743               (AMF.UML.Behaviors.UML_Behavior_Access'
33744                 (AMF.UML.Object_Flows.UML_Object_Flow_Access
33745                   (AMF.Internals.Helpers.To_Element (Self)).Get_Selection));
33746
33747         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_Source_Activity_Node_Outgoing then
33748            --  ActivityEdge::source : ActivityNode
33749
33750            return
33751              AMF.Internals.Holders.UML_Holders.To_Holder
33752               (AMF.UML.Activity_Nodes.UML_Activity_Node_Access'
33753                 (AMF.UML.Object_Flows.UML_Object_Flow_Access
33754                   (AMF.Internals.Helpers.To_Element (Self)).Get_Source));
33755
33756         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_Target_Activity_Node_Incoming then
33757            --  ActivityEdge::target : ActivityNode
33758
33759            return
33760              AMF.Internals.Holders.UML_Holders.To_Holder
33761               (AMF.UML.Activity_Nodes.UML_Activity_Node_Access'
33762                 (AMF.UML.Object_Flows.UML_Object_Flow_Access
33763                   (AMF.Internals.Helpers.To_Element (Self)).Get_Target));
33764
33765         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Flow_Transformation_A_Object_Flow then
33766            --  ObjectFlow::transformation : Behavior
33767
33768            return
33769              AMF.Internals.Holders.UML_Holders.To_Holder
33770               (AMF.UML.Behaviors.UML_Behavior_Access'
33771                 (AMF.UML.Object_Flows.UML_Object_Flow_Access
33772                   (AMF.Internals.Helpers.To_Element (Self)).Get_Transformation));
33773
33774         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
33775            --  NamedElement::visibility : VisibilityKind
33776
33777            return
33778              AMF.UML.Holders.To_Holder
33779               (AMF.UML.Object_Flows.UML_Object_Flow_Access
33780                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
33781
33782         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_Weight_A_Activity_Edge then
33783            --  ActivityEdge::weight : ValueSpecification
33784
33785            return
33786              AMF.Internals.Holders.UML_Holders.To_Holder
33787               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
33788                 (AMF.UML.Object_Flows.UML_Object_Flow_Access
33789                   (AMF.Internals.Helpers.To_Element (Self)).Get_Weight));
33790
33791         else
33792            raise Program_Error;
33793         end if;
33794      end UML_Object_Flow_Get;
33795
33796      --------------------------------------
33797      -- UML_Occurrence_Specification_Get --
33798      --------------------------------------
33799
33800      function UML_Occurrence_Specification_Get return League.Holders.Holder is
33801      begin
33802         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
33803            --  NamedElement::clientDependency : Dependency
33804
33805            return
33806              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
33807               (AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access
33808                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
33809
33810         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Covered_Lifeline_Covered_By then
33811            --  InteractionFragment::covered : Lifeline
33812
33813            return
33814              AMF.UML.Lifelines.Collections.UML_Lifeline_Collections.Internals.To_Holder
33815               (AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access
33816                 (AMF.Internals.Helpers.To_Element (Self)).Get_Covered);
33817
33818         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Occurrence_Specification_Covered_A_Events then
33819            --  OccurrenceSpecification::covered : Lifeline
33820
33821            return
33822              AMF.Internals.Holders.UML_Holders.To_Holder
33823               (AMF.UML.Lifelines.UML_Lifeline_Access'
33824                 (AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access
33825                   (AMF.Internals.Helpers.To_Element (Self)).Get_Covered));
33826
33827         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Interaction_Interaction_Fragment then
33828            --  InteractionFragment::enclosingInteraction : Interaction
33829
33830            return
33831              AMF.Internals.Holders.UML_Holders.To_Holder
33832               (AMF.UML.Interactions.UML_Interaction_Access'
33833                 (AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access
33834                   (AMF.Internals.Helpers.To_Element (Self)).Get_Enclosing_Interaction));
33835
33836         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Operand_Interaction_Operand_Fragment then
33837            --  InteractionFragment::enclosingOperand : InteractionOperand
33838
33839            return
33840              AMF.Internals.Holders.UML_Holders.To_Holder
33841               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access'
33842                 (AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access
33843                   (AMF.Internals.Helpers.To_Element (Self)).Get_Enclosing_Operand));
33844
33845         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_General_Ordering_A_Interaction_Fragment then
33846            --  InteractionFragment::generalOrdering : GeneralOrdering
33847
33848            return
33849              AMF.UML.General_Orderings.Collections.UML_General_Ordering_Collections.Internals.To_Holder
33850               (AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access
33851                 (AMF.Internals.Helpers.To_Element (Self)).Get_General_Ordering);
33852
33853         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
33854            --  NamedElement::name : String
33855
33856            return
33857              AMF.Holders.To_Holder
33858               (AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access
33859                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
33860
33861         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
33862            --  NamedElement::nameExpression : StringExpression
33863
33864            return
33865              AMF.Internals.Holders.UML_Holders.To_Holder
33866               (AMF.UML.String_Expressions.UML_String_Expression_Access'
33867                 (AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access
33868                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
33869
33870         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
33871            --  NamedElement::namespace : Namespace
33872
33873            return
33874              AMF.Internals.Holders.UML_Holders.To_Holder
33875               (AMF.UML.Namespaces.UML_Namespace_Access'
33876                 (AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access
33877                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
33878
33879         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
33880            --  Element::ownedComment : Comment
33881
33882            return
33883              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
33884               (AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access
33885                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
33886
33887         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
33888            --  Element::ownedElement : Element
33889
33890            return
33891              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
33892               (AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access
33893                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
33894
33895         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
33896            --  Element::owner : Element
33897
33898            return
33899              AMF.Internals.Holders.UML_Holders.To_Holder
33900               (AMF.UML.Elements.UML_Element_Access'
33901                 (AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access
33902                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
33903
33904         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
33905            --  NamedElement::qualifiedName : String
33906
33907            return
33908              AMF.Holders.To_Holder
33909               (AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access
33910                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
33911
33912         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Occurrence_Specification_To_After_General_Ordering_Before then
33913            --  OccurrenceSpecification::toAfter : GeneralOrdering
33914
33915            return
33916              AMF.UML.General_Orderings.Collections.UML_General_Ordering_Collections.Internals.To_Holder
33917               (AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access
33918                 (AMF.Internals.Helpers.To_Element (Self)).Get_To_After);
33919
33920         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Occurrence_Specification_To_Before_General_Ordering_After then
33921            --  OccurrenceSpecification::toBefore : GeneralOrdering
33922
33923            return
33924              AMF.UML.General_Orderings.Collections.UML_General_Ordering_Collections.Internals.To_Holder
33925               (AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access
33926                 (AMF.Internals.Helpers.To_Element (Self)).Get_To_Before);
33927
33928         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
33929            --  NamedElement::visibility : VisibilityKind
33930
33931            return
33932              AMF.UML.Holders.To_Holder
33933               (AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access
33934                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
33935
33936         else
33937            raise Program_Error;
33938         end if;
33939      end UML_Occurrence_Specification_Get;
33940
33941      ---------------------------
33942      -- UML_Opaque_Action_Get --
33943      ---------------------------
33944
33945      function UML_Opaque_Action_Get return League.Holders.Holder is
33946      begin
33947         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
33948            --  ActivityNode::activity : Activity
33949
33950            return
33951              AMF.Internals.Holders.UML_Holders.To_Holder
33952               (AMF.UML.Activities.UML_Activity_Access'
33953                 (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
33954                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
33955
33956         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Opaque_Action_Body then
33957            --  OpaqueAction::body : String
33958
33959            return
33960              AMF.String_Collections.Internals.To_Holder
33961               (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
33962                 (AMF.Internals.Helpers.To_Element (Self)).Get_Body);
33963
33964         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
33965            --  NamedElement::clientDependency : Dependency
33966
33967            return
33968              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
33969               (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
33970                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
33971
33972         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
33973            --  Action::context : Classifier
33974
33975            return
33976              AMF.Internals.Holders.UML_Holders.To_Holder
33977               (AMF.UML.Classifiers.UML_Classifier_Access'
33978                 (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
33979                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
33980
33981         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
33982            --  ExecutableNode::handler : ExceptionHandler
33983
33984            return
33985              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
33986               (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
33987                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
33988
33989         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
33990            --  ActivityNode::inGroup : ActivityGroup
33991
33992            return
33993              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
33994               (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
33995                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
33996
33997         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
33998            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
33999
34000            return
34001              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
34002               (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
34003                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
34004
34005         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
34006            --  ActivityNode::inPartition : ActivityPartition
34007
34008            return
34009              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
34010               (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
34011                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
34012
34013         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
34014            --  ActivityNode::inStructuredNode : StructuredActivityNode
34015
34016            return
34017              AMF.Internals.Holders.UML_Holders.To_Holder
34018               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
34019                 (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
34020                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
34021
34022         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
34023            --  ActivityNode::incoming : ActivityEdge
34024
34025            return
34026              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
34027               (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
34028                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
34029
34030         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
34031            --  Action::input : InputPin
34032
34033            return
34034              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
34035               (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
34036                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
34037
34038         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Opaque_Action_Input_Value_A_Opaque_Action then
34039            --  OpaqueAction::inputValue : InputPin
34040
34041            return
34042              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
34043               (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
34044                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input_Value);
34045
34046         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
34047            --  RedefinableElement::isLeaf : Boolean
34048
34049            return
34050              League.Holders.Booleans.To_Holder
34051               (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
34052                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
34053
34054         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
34055            --  Action::isLocallyReentrant : Boolean
34056
34057            return
34058              League.Holders.Booleans.To_Holder
34059               (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
34060                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
34061
34062         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Opaque_Action_Language then
34063            --  OpaqueAction::language : String
34064
34065            return
34066              AMF.String_Collections.Internals.To_Holder
34067               (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
34068                 (AMF.Internals.Helpers.To_Element (Self)).Get_Language);
34069
34070         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
34071            --  Action::localPostcondition : Constraint
34072
34073            return
34074              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
34075               (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
34076                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
34077
34078         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
34079            --  Action::localPrecondition : Constraint
34080
34081            return
34082              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
34083               (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
34084                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
34085
34086         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
34087            --  NamedElement::name : String
34088
34089            return
34090              AMF.Holders.To_Holder
34091               (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
34092                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
34093
34094         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
34095            --  NamedElement::nameExpression : StringExpression
34096
34097            return
34098              AMF.Internals.Holders.UML_Holders.To_Holder
34099               (AMF.UML.String_Expressions.UML_String_Expression_Access'
34100                 (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
34101                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
34102
34103         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
34104            --  NamedElement::namespace : Namespace
34105
34106            return
34107              AMF.Internals.Holders.UML_Holders.To_Holder
34108               (AMF.UML.Namespaces.UML_Namespace_Access'
34109                 (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
34110                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
34111
34112         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
34113            --  ActivityNode::outgoing : ActivityEdge
34114
34115            return
34116              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
34117               (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
34118                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
34119
34120         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
34121            --  Action::output : OutputPin
34122
34123            return
34124              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
34125               (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
34126                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
34127
34128         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Opaque_Action_Output_Value_A_Opaque_Action then
34129            --  OpaqueAction::outputValue : OutputPin
34130
34131            return
34132              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
34133               (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
34134                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output_Value);
34135
34136         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
34137            --  Element::ownedComment : Comment
34138
34139            return
34140              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
34141               (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
34142                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
34143
34144         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
34145            --  Element::ownedElement : Element
34146
34147            return
34148              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
34149               (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
34150                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
34151
34152         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
34153            --  Element::owner : Element
34154
34155            return
34156              AMF.Internals.Holders.UML_Holders.To_Holder
34157               (AMF.UML.Elements.UML_Element_Access'
34158                 (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
34159                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
34160
34161         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
34162            --  NamedElement::qualifiedName : String
34163
34164            return
34165              AMF.Holders.To_Holder
34166               (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
34167                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
34168
34169         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
34170            --  RedefinableElement::redefinedElement : RedefinableElement
34171
34172            return
34173              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
34174               (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
34175                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
34176
34177         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
34178            --  ActivityNode::redefinedNode : ActivityNode
34179
34180            return
34181              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
34182               (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
34183                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
34184
34185         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
34186            --  RedefinableElement::redefinitionContext : Classifier
34187
34188            return
34189              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
34190               (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
34191                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
34192
34193         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
34194            --  NamedElement::visibility : VisibilityKind
34195
34196            return
34197              AMF.UML.Holders.To_Holder
34198               (AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
34199                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
34200
34201         else
34202            raise Program_Error;
34203         end if;
34204      end UML_Opaque_Action_Get;
34205
34206      -----------------------------
34207      -- UML_Opaque_Behavior_Get --
34208      -----------------------------
34209
34210      function UML_Opaque_Behavior_Get return League.Holders.Holder is
34211      begin
34212         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier then
34213            --  Classifier::attribute : Property
34214
34215            return
34216              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
34217               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34218                 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute);
34219
34220         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Opaque_Behavior_Body then
34221            --  OpaqueBehavior::body : String
34222
34223            return
34224              AMF.String_Collections.Internals.To_Holder
34225               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34226                 (AMF.Internals.Helpers.To_Element (Self)).Get_Body);
34227
34228         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
34229            --  BehavioredClassifier::classifierBehavior : Behavior
34230
34231            return
34232              AMF.Internals.Holders.UML_Holders.To_Holder
34233               (AMF.UML.Behaviors.UML_Behavior_Access'
34234                 (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34235                   (AMF.Internals.Helpers.To_Element (Self)).Get_Classifier_Behavior));
34236
34237         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
34238            --  NamedElement::clientDependency : Dependency
34239
34240            return
34241              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
34242               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34243                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
34244
34245         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier then
34246            --  Classifier::collaborationUse : CollaborationUse
34247
34248            return
34249              AMF.UML.Collaboration_Uses.Collections.UML_Collaboration_Use_Collections.Internals.To_Holder
34250               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34251                 (AMF.Internals.Helpers.To_Element (Self)).Get_Collaboration_Use);
34252
34253         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Context_A_Behavior then
34254            --  Behavior::context : BehavioredClassifier
34255
34256            return
34257              AMF.Internals.Holders.UML_Holders.To_Holder
34258               (AMF.UML.Behaviored_Classifiers.UML_Behaviored_Classifier_Access'
34259                 (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34260                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
34261
34262         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
34263            --  Namespace::elementImport : ElementImport
34264
34265            return
34266              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
34267               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34268                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
34269
34270         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Extension_Extension_Metaclass then
34271            --  Class::extension : Extension
34272
34273            return
34274              AMF.UML.Extensions.Collections.UML_Extension_Collections.Internals.To_Holder
34275               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34276                 (AMF.Internals.Helpers.To_Element (Self)).Get_Extension);
34277
34278         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier then
34279            --  Classifier::feature : Feature
34280
34281            return
34282              AMF.UML.Features.Collections.UML_Feature_Collections.Internals.To_Holder
34283               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34284                 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature);
34285
34286         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier then
34287            --  Classifier::general : Classifier
34288
34289            return
34290              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
34291               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34292                 (AMF.Internals.Helpers.To_Element (Self)).Get_General);
34293
34294         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific then
34295            --  Classifier::generalization : Generalization
34296
34297            return
34298              AMF.UML.Generalizations.Collections.UML_Generalization_Collections.Internals.To_Holder
34299               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34300                 (AMF.Internals.Helpers.To_Element (Self)).Get_Generalization);
34301
34302         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
34303            --  Namespace::importedMember : PackageableElement
34304
34305            return
34306              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
34307               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34308                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
34309
34310         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier then
34311            --  Classifier::inheritedMember : NamedElement
34312
34313            return
34314              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
34315               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34316                 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member);
34317
34318         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier then
34319            --  BehavioredClassifier::interfaceRealization : InterfaceRealization
34320
34321            return
34322              AMF.UML.Interface_Realizations.Collections.UML_Interface_Realization_Collections.Internals.To_Holder
34323               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34324                 (AMF.Internals.Helpers.To_Element (Self)).Get_Interface_Realization);
34325
34326         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Abstract then
34327            --  Class::isAbstract : Boolean
34328
34329            return
34330              League.Holders.Booleans.To_Holder
34331               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34332                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
34333
34334         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
34335            --  Classifier::isAbstract : Boolean
34336
34337            return
34338              League.Holders.Booleans.To_Holder
34339               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34340                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
34341
34342         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Active then
34343            --  Class::isActive : Boolean
34344
34345            return
34346              League.Holders.Booleans.To_Holder
34347               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34348                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Active);
34349
34350         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
34351            --  Classifier::isFinalSpecialization : Boolean
34352
34353            return
34354              League.Holders.Booleans.To_Holder
34355               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34356                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization);
34357
34358         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
34359            --  RedefinableElement::isLeaf : Boolean
34360
34361            return
34362              League.Holders.Booleans.To_Holder
34363               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34364                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
34365
34366         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Is_Reentrant then
34367            --  Behavior::isReentrant : Boolean
34368
34369            return
34370              League.Holders.Booleans.To_Holder
34371               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34372                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Reentrant);
34373
34374         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Opaque_Behavior_Language then
34375            --  OpaqueBehavior::language : String
34376
34377            return
34378              AMF.String_Collections.Internals.To_Holder
34379               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34380                 (AMF.Internals.Helpers.To_Element (Self)).Get_Language);
34381
34382         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
34383            --  Namespace::member : NamedElement
34384
34385            return
34386              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
34387               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34388                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
34389
34390         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
34391            --  NamedElement::name : String
34392
34393            return
34394              AMF.Holders.To_Holder
34395               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34396                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
34397
34398         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
34399            --  NamedElement::nameExpression : StringExpression
34400
34401            return
34402              AMF.Internals.Holders.UML_Holders.To_Holder
34403               (AMF.UML.String_Expressions.UML_String_Expression_Access'
34404                 (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34405                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
34406
34407         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
34408            --  NamedElement::namespace : Namespace
34409
34410            return
34411              AMF.Internals.Holders.UML_Holders.To_Holder
34412               (AMF.UML.Namespaces.UML_Namespace_Access'
34413                 (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34414                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
34415
34416         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Nested_Classifier_A_Class then
34417            --  Class::nestedClassifier : Classifier
34418
34419            return
34420              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
34421               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34422                 (AMF.Internals.Helpers.To_Element (Self)).Get_Nested_Classifier);
34423
34424         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Attribute_Property_Class then
34425            --  Class::ownedAttribute : Property
34426
34427            return
34428              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
34429               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34430                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
34431
34432         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Attribute_A_Structured_Classifier then
34433            --  StructuredClassifier::ownedAttribute : Property
34434
34435            return
34436              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
34437               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34438                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
34439
34440         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier then
34441            --  BehavioredClassifier::ownedBehavior : Behavior
34442
34443            return
34444              AMF.UML.Behaviors.Collections.UML_Behavior_Collections.Internals.To_Holder
34445               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34446                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Behavior);
34447
34448         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
34449            --  Element::ownedComment : Comment
34450
34451            return
34452              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
34453               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34454                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
34455
34456         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Connector_A_Structured_Classifier then
34457            --  StructuredClassifier::ownedConnector : Connector
34458
34459            return
34460              AMF.UML.Connectors.Collections.UML_Connector_Collections.Internals.To_Holder
34461               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34462                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Connector);
34463
34464         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
34465            --  Element::ownedElement : Element
34466
34467            return
34468              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
34469               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34470                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
34471
34472         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
34473            --  Namespace::ownedMember : NamedElement
34474
34475            return
34476              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
34477               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34478                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
34479
34480         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Operation_Operation_Class then
34481            --  Class::ownedOperation : Operation
34482
34483            return
34484              AMF.UML.Operations.Collections.UML_Operation_Collections.Internals.To_Holder
34485               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34486                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Operation);
34487
34488         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Owned_Parameter_A_Behavior then
34489            --  Behavior::ownedParameter : Parameter
34490
34491            return
34492              AMF.UML.Parameters.Collections.UML_Parameter_Collections.Internals.To_Holder
34493               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34494                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Parameter);
34495
34496         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Owned_Parameter_Set_A_Behavior then
34497            --  Behavior::ownedParameterSet : ParameterSet
34498
34499            return
34500              AMF.UML.Parameter_Sets.Collections.UML_Parameter_Set_Collections.Internals.To_Holder
34501               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34502                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Parameter_Set);
34503
34504         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Encapsulated_Classifier_Owned_Port_A_Encapsulated_Classifier then
34505            --  EncapsulatedClassifier::ownedPort : Port
34506
34507            return
34508              AMF.UML.Ports.Collections.UML_Port_Collections.Internals.To_Holder
34509               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34510                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Port);
34511
34512         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Reception_A_Class then
34513            --  Class::ownedReception : Reception
34514
34515            return
34516              AMF.UML.Receptions.Collections.UML_Reception_Collections.Internals.To_Holder
34517               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34518                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Reception);
34519
34520         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
34521            --  Namespace::ownedRule : Constraint
34522
34523            return
34524              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
34525               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34526                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
34527
34528         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
34529            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
34530
34531            return
34532              AMF.Internals.Holders.UML_Holders.To_Holder
34533               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access'
34534                 (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34535                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
34536
34537         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
34538            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
34539
34540            return
34541              AMF.Internals.Holders.UML_Holders.To_Holder
34542               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
34543                 (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34544                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
34545
34546         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier then
34547            --  Classifier::ownedUseCase : UseCase
34548
34549            return
34550              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
34551               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34552                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Use_Case);
34553
34554         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
34555            --  Element::owner : Element
34556
34557            return
34558              AMF.Internals.Holders.UML_Holders.To_Holder
34559               (AMF.UML.Elements.UML_Element_Access'
34560                 (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34561                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
34562
34563         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
34564            --  ParameterableElement::owningTemplateParameter : TemplateParameter
34565
34566            return
34567              AMF.Internals.Holders.UML_Holders.To_Holder
34568               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
34569                 (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34570                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
34571
34572         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
34573            --  Type::package : Package
34574
34575            return
34576              AMF.Internals.Holders.UML_Holders.To_Holder
34577               (AMF.UML.Packages.UML_Package_Access'
34578                 (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34579                   (AMF.Internals.Helpers.To_Element (Self)).Get_Package));
34580
34581         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
34582            --  Namespace::packageImport : PackageImport
34583
34584            return
34585              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
34586               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34587                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
34588
34589         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Part_A_Structured_Classifier then
34590            --  StructuredClassifier::part : Property
34591
34592            return
34593              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
34594               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34595                 (AMF.Internals.Helpers.To_Element (Self)).Get_Part);
34596
34597         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Postcondition_A_Behavior then
34598            --  Behavior::postcondition : Constraint
34599
34600            return
34601              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
34602               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34603                 (AMF.Internals.Helpers.To_Element (Self)).Get_Postcondition);
34604
34605         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype then
34606            --  Classifier::powertypeExtent : GeneralizationSet
34607
34608            return
34609              AMF.UML.Generalization_Sets.Collections.UML_Generalization_Set_Collections.Internals.To_Holder
34610               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34611                 (AMF.Internals.Helpers.To_Element (Self)).Get_Powertype_Extent);
34612
34613         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Precondition_A_Behavior then
34614            --  Behavior::precondition : Constraint
34615
34616            return
34617              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
34618               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34619                 (AMF.Internals.Helpers.To_Element (Self)).Get_Precondition);
34620
34621         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
34622            --  NamedElement::qualifiedName : String
34623
34624            return
34625              AMF.Holders.To_Holder
34626               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34627                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
34628
34629         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Redefined_Behavior_A_Behavior then
34630            --  Behavior::redefinedBehavior : Behavior
34631
34632            return
34633              AMF.UML.Behaviors.Collections.UML_Behavior_Collections.Internals.To_Holder
34634               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34635                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Behavior);
34636
34637         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier then
34638            --  Classifier::redefinedClassifier : Classifier
34639
34640            return
34641              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
34642               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34643                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Classifier);
34644
34645         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
34646            --  RedefinableElement::redefinedElement : RedefinableElement
34647
34648            return
34649              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
34650               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34651                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
34652
34653         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
34654            --  RedefinableElement::redefinitionContext : Classifier
34655
34656            return
34657              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
34658               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34659                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
34660
34661         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
34662            --  Classifier::representation : CollaborationUse
34663
34664            return
34665              AMF.Internals.Holders.UML_Holders.To_Holder
34666               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access'
34667                 (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34668                   (AMF.Internals.Helpers.To_Element (Self)).Get_Representation));
34669
34670         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Role_A_Structured_Classifier then
34671            --  StructuredClassifier::role : ConnectableElement
34672
34673            return
34674              AMF.UML.Connectable_Elements.Collections.UML_Connectable_Element_Collections.Internals.To_Holder
34675               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34676                 (AMF.Internals.Helpers.To_Element (Self)).Get_Role);
34677
34678         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Specification_Behavioral_Feature_Method then
34679            --  Behavior::specification : BehavioralFeature
34680
34681            return
34682              AMF.Internals.Holders.UML_Holders.To_Holder
34683               (AMF.UML.Behavioral_Features.UML_Behavioral_Feature_Access'
34684                 (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34685                   (AMF.Internals.Helpers.To_Element (Self)).Get_Specification));
34686
34687         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier then
34688            --  Classifier::substitution : Substitution
34689
34690            return
34691              AMF.UML.Substitutions.Collections.UML_Substitution_Collections.Internals.To_Holder
34692               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34693                 (AMF.Internals.Helpers.To_Element (Self)).Get_Substitution);
34694
34695         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Super_Class_A_Class then
34696            --  Class::superClass : Class
34697
34698            return
34699              AMF.UML.Classes.Collections.UML_Class_Collections.Internals.To_Holder
34700               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34701                 (AMF.Internals.Helpers.To_Element (Self)).Get_Super_Class);
34702
34703         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
34704            --  TemplateableElement::templateBinding : TemplateBinding
34705
34706            return
34707              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
34708               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34709                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
34710
34711         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
34712            --  Classifier::templateParameter : ClassifierTemplateParameter
34713
34714            return
34715              AMF.Internals.Holders.UML_Holders.To_Holder
34716               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access'
34717                 (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34718                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
34719
34720         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
34721            --  ParameterableElement::templateParameter : TemplateParameter
34722
34723            return
34724              AMF.Internals.Holders.UML_Holders.To_Holder
34725               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
34726                 (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34727                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
34728
34729         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject then
34730            --  Classifier::useCase : UseCase
34731
34732            return
34733              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
34734               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34735                 (AMF.Internals.Helpers.To_Element (Self)).Get_Use_Case);
34736
34737         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
34738            --  NamedElement::visibility : VisibilityKind
34739
34740            return
34741              AMF.UML.Holders.To_Holder
34742               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34743                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
34744
34745         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
34746            --  PackageableElement::visibility : VisibilityKind
34747
34748            return
34749              AMF.UML.Holders.Visibility_Kinds.To_Holder
34750               (AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
34751                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
34752
34753         else
34754            raise Program_Error;
34755         end if;
34756      end UML_Opaque_Behavior_Get;
34757
34758      -------------------------------
34759      -- UML_Opaque_Expression_Get --
34760      -------------------------------
34761
34762      function UML_Opaque_Expression_Get return League.Holders.Holder is
34763      begin
34764         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Opaque_Expression_Behavior_A_Opaque_Expression then
34765            --  OpaqueExpression::behavior : Behavior
34766
34767            return
34768              AMF.Internals.Holders.UML_Holders.To_Holder
34769               (AMF.UML.Behaviors.UML_Behavior_Access'
34770                 (AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access
34771                   (AMF.Internals.Helpers.To_Element (Self)).Get_Behavior));
34772
34773         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Opaque_Expression_Body then
34774            --  OpaqueExpression::body : String
34775
34776            return
34777              AMF.String_Collections.Internals.To_Holder
34778               (AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access
34779                 (AMF.Internals.Helpers.To_Element (Self)).Get_Body);
34780
34781         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
34782            --  NamedElement::clientDependency : Dependency
34783
34784            return
34785              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
34786               (AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access
34787                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
34788
34789         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Opaque_Expression_Language then
34790            --  OpaqueExpression::language : String
34791
34792            return
34793              AMF.String_Collections.Internals.To_Holder
34794               (AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access
34795                 (AMF.Internals.Helpers.To_Element (Self)).Get_Language);
34796
34797         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
34798            --  NamedElement::name : String
34799
34800            return
34801              AMF.Holders.To_Holder
34802               (AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access
34803                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
34804
34805         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
34806            --  NamedElement::nameExpression : StringExpression
34807
34808            return
34809              AMF.Internals.Holders.UML_Holders.To_Holder
34810               (AMF.UML.String_Expressions.UML_String_Expression_Access'
34811                 (AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access
34812                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
34813
34814         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
34815            --  NamedElement::namespace : Namespace
34816
34817            return
34818              AMF.Internals.Holders.UML_Holders.To_Holder
34819               (AMF.UML.Namespaces.UML_Namespace_Access'
34820                 (AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access
34821                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
34822
34823         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
34824            --  Element::ownedComment : Comment
34825
34826            return
34827              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
34828               (AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access
34829                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
34830
34831         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
34832            --  Element::ownedElement : Element
34833
34834            return
34835              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
34836               (AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access
34837                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
34838
34839         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
34840            --  Element::owner : Element
34841
34842            return
34843              AMF.Internals.Holders.UML_Holders.To_Holder
34844               (AMF.UML.Elements.UML_Element_Access'
34845                 (AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access
34846                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
34847
34848         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
34849            --  ParameterableElement::owningTemplateParameter : TemplateParameter
34850
34851            return
34852              AMF.Internals.Holders.UML_Holders.To_Holder
34853               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
34854                 (AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access
34855                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
34856
34857         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
34858            --  NamedElement::qualifiedName : String
34859
34860            return
34861              AMF.Holders.To_Holder
34862               (AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access
34863                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
34864
34865         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Opaque_Expression_Result_A_Opaque_Expression then
34866            --  OpaqueExpression::result : Parameter
34867
34868            return
34869              AMF.Internals.Holders.UML_Holders.To_Holder
34870               (AMF.UML.Parameters.UML_Parameter_Access'
34871                 (AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access
34872                   (AMF.Internals.Helpers.To_Element (Self)).Get_Result));
34873
34874         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
34875            --  ParameterableElement::templateParameter : TemplateParameter
34876
34877            return
34878              AMF.Internals.Holders.UML_Holders.To_Holder
34879               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
34880                 (AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access
34881                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
34882
34883         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
34884            --  TypedElement::type : Type
34885
34886            return
34887              AMF.Internals.Holders.UML_Holders.To_Holder
34888               (AMF.UML.Types.UML_Type_Access'
34889                 (AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access
34890                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
34891
34892         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
34893            --  NamedElement::visibility : VisibilityKind
34894
34895            return
34896              AMF.UML.Holders.To_Holder
34897               (AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access
34898                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
34899
34900         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
34901            --  PackageableElement::visibility : VisibilityKind
34902
34903            return
34904              AMF.UML.Holders.Visibility_Kinds.To_Holder
34905               (AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access
34906                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
34907
34908         else
34909            raise Program_Error;
34910         end if;
34911      end UML_Opaque_Expression_Get;
34912
34913      -----------------------
34914      -- UML_Operation_Get --
34915      -----------------------
34916
34917      function UML_Operation_Get return League.Holders.Holder is
34918      begin
34919         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Operation_Body_Condition_A_Body_Context then
34920            --  Operation::bodyCondition : Constraint
34921
34922            return
34923              AMF.Internals.Holders.UML_Holders.To_Holder
34924               (AMF.UML.Constraints.UML_Constraint_Access'
34925                 (AMF.UML.Operations.UML_Operation_Access
34926                   (AMF.Internals.Helpers.To_Element (Self)).Get_Body_Condition));
34927
34928         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Operation_Class_Class_Owned_Operation then
34929            --  Operation::class : Class
34930
34931            return
34932              AMF.Internals.Holders.UML_Holders.To_Holder
34933               (AMF.UML.Classes.UML_Class_Access'
34934                 (AMF.UML.Operations.UML_Operation_Access
34935                   (AMF.Internals.Helpers.To_Element (Self)).Get_Class));
34936
34937         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
34938            --  NamedElement::clientDependency : Dependency
34939
34940            return
34941              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
34942               (AMF.UML.Operations.UML_Operation_Access
34943                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
34944
34945         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavioral_Feature_Concurrency then
34946            --  BehavioralFeature::concurrency : CallConcurrencyKind
34947
34948            return
34949              AMF.UML.Holders.Call_Concurrency_Kinds.To_Holder
34950               (AMF.UML.Operations.UML_Operation_Access
34951                 (AMF.Internals.Helpers.To_Element (Self)).Get_Concurrency);
34952
34953         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Operation_Datatype_Data_Type_Owned_Operation then
34954            --  Operation::datatype : DataType
34955
34956            return
34957              AMF.Internals.Holders.UML_Holders.To_Holder
34958               (AMF.UML.Data_Types.UML_Data_Type_Access'
34959                 (AMF.UML.Operations.UML_Operation_Access
34960                   (AMF.Internals.Helpers.To_Element (Self)).Get_Datatype));
34961
34962         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
34963            --  Namespace::elementImport : ElementImport
34964
34965            return
34966              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
34967               (AMF.UML.Operations.UML_Operation_Access
34968                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
34969
34970         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Feature_Featuring_Classifier_Classifier_Feature then
34971            --  Feature::featuringClassifier : Classifier
34972
34973            return
34974              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
34975               (AMF.UML.Operations.UML_Operation_Access
34976                 (AMF.Internals.Helpers.To_Element (Self)).Get_Featuring_Classifier);
34977
34978         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
34979            --  Namespace::importedMember : PackageableElement
34980
34981            return
34982              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
34983               (AMF.UML.Operations.UML_Operation_Access
34984                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
34985
34986         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Operation_Interface_Interface_Owned_Operation then
34987            --  Operation::interface : Interface
34988
34989            return
34990              AMF.Internals.Holders.UML_Holders.To_Holder
34991               (AMF.UML.Interfaces.UML_Interface_Access'
34992                 (AMF.UML.Operations.UML_Operation_Access
34993                   (AMF.Internals.Helpers.To_Element (Self)).Get_Interface));
34994
34995         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavioral_Feature_Is_Abstract then
34996            --  BehavioralFeature::isAbstract : Boolean
34997
34998            return
34999              League.Holders.Booleans.To_Holder
35000               (AMF.UML.Operations.UML_Operation_Access
35001                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
35002
35003         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
35004            --  RedefinableElement::isLeaf : Boolean
35005
35006            return
35007              League.Holders.Booleans.To_Holder
35008               (AMF.UML.Operations.UML_Operation_Access
35009                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
35010
35011         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Operation_Is_Ordered then
35012            --  Operation::isOrdered : Boolean
35013
35014            return
35015              League.Holders.Booleans.To_Holder
35016               (AMF.UML.Operations.UML_Operation_Access
35017                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Ordered);
35018
35019         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Operation_Is_Query then
35020            --  Operation::isQuery : Boolean
35021
35022            return
35023              League.Holders.Booleans.To_Holder
35024               (AMF.UML.Operations.UML_Operation_Access
35025                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Query);
35026
35027         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Feature_Is_Static then
35028            --  Feature::isStatic : Boolean
35029
35030            return
35031              League.Holders.Booleans.To_Holder
35032               (AMF.UML.Operations.UML_Operation_Access
35033                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Static);
35034
35035         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Operation_Is_Unique then
35036            --  Operation::isUnique : Boolean
35037
35038            return
35039              League.Holders.Booleans.To_Holder
35040               (AMF.UML.Operations.UML_Operation_Access
35041                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Unique);
35042
35043         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Operation_Lower then
35044            --  Operation::lower : Integer
35045
35046            return
35047              AMF.Holders.To_Holder
35048               (AMF.UML.Operations.UML_Operation_Access
35049                 (AMF.Internals.Helpers.To_Element (Self)).Get_Lower);
35050
35051         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
35052            --  Namespace::member : NamedElement
35053
35054            return
35055              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
35056               (AMF.UML.Operations.UML_Operation_Access
35057                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
35058
35059         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavioral_Feature_Method_Behavior_Specification then
35060            --  BehavioralFeature::method : Behavior
35061
35062            return
35063              AMF.UML.Behaviors.Collections.UML_Behavior_Collections.Internals.To_Holder
35064               (AMF.UML.Operations.UML_Operation_Access
35065                 (AMF.Internals.Helpers.To_Element (Self)).Get_Method);
35066
35067         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
35068            --  NamedElement::name : String
35069
35070            return
35071              AMF.Holders.To_Holder
35072               (AMF.UML.Operations.UML_Operation_Access
35073                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
35074
35075         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
35076            --  NamedElement::nameExpression : StringExpression
35077
35078            return
35079              AMF.Internals.Holders.UML_Holders.To_Holder
35080               (AMF.UML.String_Expressions.UML_String_Expression_Access'
35081                 (AMF.UML.Operations.UML_Operation_Access
35082                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
35083
35084         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
35085            --  NamedElement::namespace : Namespace
35086
35087            return
35088              AMF.Internals.Holders.UML_Holders.To_Holder
35089               (AMF.UML.Namespaces.UML_Namespace_Access'
35090                 (AMF.UML.Operations.UML_Operation_Access
35091                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
35092
35093         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
35094            --  Element::ownedComment : Comment
35095
35096            return
35097              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
35098               (AMF.UML.Operations.UML_Operation_Access
35099                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
35100
35101         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
35102            --  Element::ownedElement : Element
35103
35104            return
35105              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
35106               (AMF.UML.Operations.UML_Operation_Access
35107                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
35108
35109         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
35110            --  Namespace::ownedMember : NamedElement
35111
35112            return
35113              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
35114               (AMF.UML.Operations.UML_Operation_Access
35115                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
35116
35117         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavioral_Feature_Owned_Parameter_A_Owner_Formal_Param then
35118            --  BehavioralFeature::ownedParameter : Parameter
35119
35120            return
35121              AMF.UML.Parameters.Collections.UML_Parameter_Collections.Internals.To_Holder
35122               (AMF.UML.Operations.UML_Operation_Access
35123                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Parameter);
35124
35125         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Operation_Owned_Parameter_Parameter_Operation then
35126            --  Operation::ownedParameter : Parameter
35127
35128            return
35129              AMF.UML.Parameters.Collections.UML_Parameter_Collections.Internals.To_Holder
35130               (AMF.UML.Operations.UML_Operation_Access
35131                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Parameter);
35132
35133         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavioral_Feature_Owned_Parameter_Set_A_Behavioral_Feature then
35134            --  BehavioralFeature::ownedParameterSet : ParameterSet
35135
35136            return
35137              AMF.UML.Parameter_Sets.Collections.UML_Parameter_Set_Collections.Internals.To_Holder
35138               (AMF.UML.Operations.UML_Operation_Access
35139                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Parameter_Set);
35140
35141         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
35142            --  Namespace::ownedRule : Constraint
35143
35144            return
35145              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
35146               (AMF.UML.Operations.UML_Operation_Access
35147                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
35148
35149         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
35150            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
35151
35152            return
35153              AMF.Internals.Holders.UML_Holders.To_Holder
35154               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
35155                 (AMF.UML.Operations.UML_Operation_Access
35156                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
35157
35158         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
35159            --  Element::owner : Element
35160
35161            return
35162              AMF.Internals.Holders.UML_Holders.To_Holder
35163               (AMF.UML.Elements.UML_Element_Access'
35164                 (AMF.UML.Operations.UML_Operation_Access
35165                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
35166
35167         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
35168            --  ParameterableElement::owningTemplateParameter : TemplateParameter
35169
35170            return
35171              AMF.Internals.Holders.UML_Holders.To_Holder
35172               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
35173                 (AMF.UML.Operations.UML_Operation_Access
35174                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
35175
35176         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
35177            --  Namespace::packageImport : PackageImport
35178
35179            return
35180              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
35181               (AMF.UML.Operations.UML_Operation_Access
35182                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
35183
35184         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Operation_Postcondition_A_Post_Context then
35185            --  Operation::postcondition : Constraint
35186
35187            return
35188              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
35189               (AMF.UML.Operations.UML_Operation_Access
35190                 (AMF.Internals.Helpers.To_Element (Self)).Get_Postcondition);
35191
35192         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Operation_Precondition_A_Pre_Context then
35193            --  Operation::precondition : Constraint
35194
35195            return
35196              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
35197               (AMF.UML.Operations.UML_Operation_Access
35198                 (AMF.Internals.Helpers.To_Element (Self)).Get_Precondition);
35199
35200         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
35201            --  NamedElement::qualifiedName : String
35202
35203            return
35204              AMF.Holders.To_Holder
35205               (AMF.UML.Operations.UML_Operation_Access
35206                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
35207
35208         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavioral_Feature_Raised_Exception_A_Behavioral_Feature then
35209            --  BehavioralFeature::raisedException : Type
35210
35211            return
35212              AMF.UML.Types.Collections.UML_Type_Collections.Internals.To_Holder
35213               (AMF.UML.Operations.UML_Operation_Access
35214                 (AMF.Internals.Helpers.To_Element (Self)).Get_Raised_Exception);
35215
35216         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Operation_Raised_Exception_A_Operation then
35217            --  Operation::raisedException : Type
35218
35219            return
35220              AMF.UML.Types.Collections.UML_Type_Collections.Internals.To_Holder
35221               (AMF.UML.Operations.UML_Operation_Access
35222                 (AMF.Internals.Helpers.To_Element (Self)).Get_Raised_Exception);
35223
35224         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
35225            --  RedefinableElement::redefinedElement : RedefinableElement
35226
35227            return
35228              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
35229               (AMF.UML.Operations.UML_Operation_Access
35230                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
35231
35232         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Operation_Redefined_Operation_A_Operation then
35233            --  Operation::redefinedOperation : Operation
35234
35235            return
35236              AMF.UML.Operations.Collections.UML_Operation_Collections.Internals.To_Holder
35237               (AMF.UML.Operations.UML_Operation_Access
35238                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Operation);
35239
35240         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
35241            --  RedefinableElement::redefinitionContext : Classifier
35242
35243            return
35244              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
35245               (AMF.UML.Operations.UML_Operation_Access
35246                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
35247
35248         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
35249            --  TemplateableElement::templateBinding : TemplateBinding
35250
35251            return
35252              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
35253               (AMF.UML.Operations.UML_Operation_Access
35254                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
35255
35256         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Operation_Template_Parameter_Operation_Template_Parameter_Parametered_Element then
35257            --  Operation::templateParameter : OperationTemplateParameter
35258
35259            return
35260              AMF.Internals.Holders.UML_Holders.To_Holder
35261               (AMF.UML.Operation_Template_Parameters.UML_Operation_Template_Parameter_Access'
35262                 (AMF.UML.Operations.UML_Operation_Access
35263                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
35264
35265         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
35266            --  ParameterableElement::templateParameter : TemplateParameter
35267
35268            return
35269              AMF.Internals.Holders.UML_Holders.To_Holder
35270               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
35271                 (AMF.UML.Operations.UML_Operation_Access
35272                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
35273
35274         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Operation_Type_A_Operation then
35275            --  Operation::type : Type
35276
35277            return
35278              AMF.Internals.Holders.UML_Holders.To_Holder
35279               (AMF.UML.Types.UML_Type_Access'
35280                 (AMF.UML.Operations.UML_Operation_Access
35281                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
35282
35283         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Operation_Upper then
35284            --  Operation::upper : UnlimitedNatural
35285
35286            return
35287              AMF.Holders.To_Holder
35288               (AMF.UML.Operations.UML_Operation_Access
35289                 (AMF.Internals.Helpers.To_Element (Self)).Get_Upper);
35290
35291         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
35292            --  NamedElement::visibility : VisibilityKind
35293
35294            return
35295              AMF.UML.Holders.To_Holder
35296               (AMF.UML.Operations.UML_Operation_Access
35297                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
35298
35299         else
35300            raise Program_Error;
35301         end if;
35302      end UML_Operation_Get;
35303
35304      ------------------------------------------
35305      -- UML_Operation_Template_Parameter_Get --
35306      ------------------------------------------
35307
35308      function UML_Operation_Template_Parameter_Get return League.Holders.Holder is
35309      begin
35310         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Default_A_Template_Parameter then
35311            --  TemplateParameter::default : ParameterableElement
35312
35313            return
35314              AMF.Internals.Holders.UML_Holders.To_Holder
35315               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access'
35316                 (AMF.UML.Operation_Template_Parameters.UML_Operation_Template_Parameter_Access
35317                   (AMF.Internals.Helpers.To_Element (Self)).Get_Default));
35318
35319         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
35320            --  Element::ownedComment : Comment
35321
35322            return
35323              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
35324               (AMF.UML.Operation_Template_Parameters.UML_Operation_Template_Parameter_Access
35325                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
35326
35327         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Owned_Default_A_Template_Parameter then
35328            --  TemplateParameter::ownedDefault : ParameterableElement
35329
35330            return
35331              AMF.Internals.Holders.UML_Holders.To_Holder
35332               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access'
35333                 (AMF.UML.Operation_Template_Parameters.UML_Operation_Template_Parameter_Access
35334                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Default));
35335
35336         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
35337            --  Element::ownedElement : Element
35338
35339            return
35340              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
35341               (AMF.UML.Operation_Template_Parameters.UML_Operation_Template_Parameter_Access
35342                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
35343
35344         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Owned_Parametered_Element_Parameterable_Element_Owning_Template_Parameter then
35345            --  TemplateParameter::ownedParameteredElement : ParameterableElement
35346
35347            return
35348              AMF.Internals.Holders.UML_Holders.To_Holder
35349               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access'
35350                 (AMF.UML.Operation_Template_Parameters.UML_Operation_Template_Parameter_Access
35351                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Parametered_Element));
35352
35353         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
35354            --  Element::owner : Element
35355
35356            return
35357              AMF.Internals.Holders.UML_Holders.To_Holder
35358               (AMF.UML.Elements.UML_Element_Access'
35359                 (AMF.UML.Operation_Template_Parameters.UML_Operation_Template_Parameter_Access
35360                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
35361
35362         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Operation_Template_Parameter_Parametered_Element_Operation_Template_Parameter then
35363            --  OperationTemplateParameter::parameteredElement : Operation
35364
35365            return
35366              AMF.Internals.Holders.UML_Holders.To_Holder
35367               (AMF.UML.Operations.UML_Operation_Access'
35368                 (AMF.UML.Operation_Template_Parameters.UML_Operation_Template_Parameter_Access
35369                   (AMF.Internals.Helpers.To_Element (Self)).Get_Parametered_Element));
35370
35371         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Parametered_Element_Parameterable_Element_Template_Parameter then
35372            --  TemplateParameter::parameteredElement : ParameterableElement
35373
35374            return
35375              AMF.Internals.Holders.UML_Holders.To_Holder
35376               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access'
35377                 (AMF.UML.Operation_Template_Parameters.UML_Operation_Template_Parameter_Access
35378                   (AMF.Internals.Helpers.To_Element (Self)).Get_Parametered_Element));
35379
35380         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Signature_Template_Signature_Owned_Parameter then
35381            --  TemplateParameter::signature : TemplateSignature
35382
35383            return
35384              AMF.Internals.Holders.UML_Holders.To_Holder
35385               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
35386                 (AMF.UML.Operation_Template_Parameters.UML_Operation_Template_Parameter_Access
35387                   (AMF.Internals.Helpers.To_Element (Self)).Get_Signature));
35388
35389         else
35390            raise Program_Error;
35391         end if;
35392      end UML_Operation_Template_Parameter_Get;
35393
35394      ------------------------
35395      -- UML_Output_Pin_Get --
35396      ------------------------
35397
35398      function UML_Output_Pin_Get return League.Holders.Holder is
35399      begin
35400         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
35401            --  ActivityNode::activity : Activity
35402
35403            return
35404              AMF.Internals.Holders.UML_Holders.To_Holder
35405               (AMF.UML.Activities.UML_Activity_Access'
35406                 (AMF.UML.Output_Pins.UML_Output_Pin_Access
35407                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
35408
35409         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
35410            --  NamedElement::clientDependency : Dependency
35411
35412            return
35413              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
35414               (AMF.UML.Output_Pins.UML_Output_Pin_Access
35415                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
35416
35417         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
35418            --  ActivityNode::inGroup : ActivityGroup
35419
35420            return
35421              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
35422               (AMF.UML.Output_Pins.UML_Output_Pin_Access
35423                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
35424
35425         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
35426            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
35427
35428            return
35429              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
35430               (AMF.UML.Output_Pins.UML_Output_Pin_Access
35431                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
35432
35433         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
35434            --  ActivityNode::inPartition : ActivityPartition
35435
35436            return
35437              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
35438               (AMF.UML.Output_Pins.UML_Output_Pin_Access
35439                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
35440
35441         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_In_State_A_Object_Node then
35442            --  ObjectNode::inState : State
35443
35444            return
35445              AMF.UML.States.Collections.UML_State_Collections.Internals.To_Holder
35446               (AMF.UML.Output_Pins.UML_Output_Pin_Access
35447                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_State);
35448
35449         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
35450            --  ActivityNode::inStructuredNode : StructuredActivityNode
35451
35452            return
35453              AMF.Internals.Holders.UML_Holders.To_Holder
35454               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
35455                 (AMF.UML.Output_Pins.UML_Output_Pin_Access
35456                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
35457
35458         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
35459            --  ActivityNode::incoming : ActivityEdge
35460
35461            return
35462              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
35463               (AMF.UML.Output_Pins.UML_Output_Pin_Access
35464                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
35465
35466         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Pin_Is_Control then
35467            --  Pin::isControl : Boolean
35468
35469            return
35470              League.Holders.Booleans.To_Holder
35471               (AMF.UML.Output_Pins.UML_Output_Pin_Access
35472                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Control);
35473
35474         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Is_Control_Type then
35475            --  ObjectNode::isControlType : Boolean
35476
35477            return
35478              League.Holders.Booleans.To_Holder
35479               (AMF.UML.Output_Pins.UML_Output_Pin_Access
35480                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Control_Type);
35481
35482         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
35483            --  RedefinableElement::isLeaf : Boolean
35484
35485            return
35486              League.Holders.Booleans.To_Holder
35487               (AMF.UML.Output_Pins.UML_Output_Pin_Access
35488                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
35489
35490         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Ordered then
35491            --  MultiplicityElement::isOrdered : Boolean
35492
35493            return
35494              League.Holders.Booleans.To_Holder
35495               (AMF.UML.Output_Pins.UML_Output_Pin_Access
35496                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Ordered);
35497
35498         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Unique then
35499            --  MultiplicityElement::isUnique : Boolean
35500
35501            return
35502              League.Holders.Booleans.To_Holder
35503               (AMF.UML.Output_Pins.UML_Output_Pin_Access
35504                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Unique);
35505
35506         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower then
35507            --  MultiplicityElement::lower : Integer
35508
35509            return
35510              AMF.Holders.To_Holder
35511               (AMF.UML.Output_Pins.UML_Output_Pin_Access
35512                 (AMF.Internals.Helpers.To_Element (Self)).Get_Lower);
35513
35514         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower_Value_A_Owning_Lower then
35515            --  MultiplicityElement::lowerValue : ValueSpecification
35516
35517            return
35518              AMF.Internals.Holders.UML_Holders.To_Holder
35519               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
35520                 (AMF.UML.Output_Pins.UML_Output_Pin_Access
35521                   (AMF.Internals.Helpers.To_Element (Self)).Get_Lower_Value));
35522
35523         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
35524            --  NamedElement::name : String
35525
35526            return
35527              AMF.Holders.To_Holder
35528               (AMF.UML.Output_Pins.UML_Output_Pin_Access
35529                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
35530
35531         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
35532            --  NamedElement::nameExpression : StringExpression
35533
35534            return
35535              AMF.Internals.Holders.UML_Holders.To_Holder
35536               (AMF.UML.String_Expressions.UML_String_Expression_Access'
35537                 (AMF.UML.Output_Pins.UML_Output_Pin_Access
35538                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
35539
35540         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
35541            --  NamedElement::namespace : Namespace
35542
35543            return
35544              AMF.Internals.Holders.UML_Holders.To_Holder
35545               (AMF.UML.Namespaces.UML_Namespace_Access'
35546                 (AMF.UML.Output_Pins.UML_Output_Pin_Access
35547                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
35548
35549         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Ordering then
35550            --  ObjectNode::ordering : ObjectNodeOrderingKind
35551
35552            return
35553              AMF.UML.Holders.Object_Node_Ordering_Kinds.To_Holder
35554               (AMF.UML.Output_Pins.UML_Output_Pin_Access
35555                 (AMF.Internals.Helpers.To_Element (Self)).Get_Ordering);
35556
35557         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
35558            --  ActivityNode::outgoing : ActivityEdge
35559
35560            return
35561              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
35562               (AMF.UML.Output_Pins.UML_Output_Pin_Access
35563                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
35564
35565         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
35566            --  Element::ownedComment : Comment
35567
35568            return
35569              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
35570               (AMF.UML.Output_Pins.UML_Output_Pin_Access
35571                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
35572
35573         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
35574            --  Element::ownedElement : Element
35575
35576            return
35577              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
35578               (AMF.UML.Output_Pins.UML_Output_Pin_Access
35579                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
35580
35581         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
35582            --  Element::owner : Element
35583
35584            return
35585              AMF.Internals.Holders.UML_Holders.To_Holder
35586               (AMF.UML.Elements.UML_Element_Access'
35587                 (AMF.UML.Output_Pins.UML_Output_Pin_Access
35588                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
35589
35590         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
35591            --  NamedElement::qualifiedName : String
35592
35593            return
35594              AMF.Holders.To_Holder
35595               (AMF.UML.Output_Pins.UML_Output_Pin_Access
35596                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
35597
35598         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
35599            --  RedefinableElement::redefinedElement : RedefinableElement
35600
35601            return
35602              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
35603               (AMF.UML.Output_Pins.UML_Output_Pin_Access
35604                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
35605
35606         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
35607            --  ActivityNode::redefinedNode : ActivityNode
35608
35609            return
35610              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
35611               (AMF.UML.Output_Pins.UML_Output_Pin_Access
35612                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
35613
35614         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
35615            --  RedefinableElement::redefinitionContext : Classifier
35616
35617            return
35618              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
35619               (AMF.UML.Output_Pins.UML_Output_Pin_Access
35620                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
35621
35622         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Selection_A_Object_Node then
35623            --  ObjectNode::selection : Behavior
35624
35625            return
35626              AMF.Internals.Holders.UML_Holders.To_Holder
35627               (AMF.UML.Behaviors.UML_Behavior_Access'
35628                 (AMF.UML.Output_Pins.UML_Output_Pin_Access
35629                   (AMF.Internals.Helpers.To_Element (Self)).Get_Selection));
35630
35631         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
35632            --  TypedElement::type : Type
35633
35634            return
35635              AMF.Internals.Holders.UML_Holders.To_Holder
35636               (AMF.UML.Types.UML_Type_Access'
35637                 (AMF.UML.Output_Pins.UML_Output_Pin_Access
35638                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
35639
35640         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper then
35641            --  MultiplicityElement::upper : UnlimitedNatural
35642
35643            return
35644              AMF.Holders.To_Holder
35645               (AMF.UML.Output_Pins.UML_Output_Pin_Access
35646                 (AMF.Internals.Helpers.To_Element (Self)).Get_Upper);
35647
35648         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Upper_Bound_A_Object_Node then
35649            --  ObjectNode::upperBound : ValueSpecification
35650
35651            return
35652              AMF.Internals.Holders.UML_Holders.To_Holder
35653               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
35654                 (AMF.UML.Output_Pins.UML_Output_Pin_Access
35655                   (AMF.Internals.Helpers.To_Element (Self)).Get_Upper_Bound));
35656
35657         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper_Value_A_Owning_Upper then
35658            --  MultiplicityElement::upperValue : ValueSpecification
35659
35660            return
35661              AMF.Internals.Holders.UML_Holders.To_Holder
35662               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
35663                 (AMF.UML.Output_Pins.UML_Output_Pin_Access
35664                   (AMF.Internals.Helpers.To_Element (Self)).Get_Upper_Value));
35665
35666         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
35667            --  NamedElement::visibility : VisibilityKind
35668
35669            return
35670              AMF.UML.Holders.To_Holder
35671               (AMF.UML.Output_Pins.UML_Output_Pin_Access
35672                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
35673
35674         else
35675            raise Program_Error;
35676         end if;
35677      end UML_Output_Pin_Get;
35678
35679      ---------------------
35680      -- UML_Package_Get --
35681      ---------------------
35682
35683      function UML_Package_Get return League.Holders.Holder is
35684      begin
35685         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_URI then
35686            --  Package::URI : String
35687
35688            return
35689              AMF.Holders.To_Holder
35690               (AMF.UML.Packages.UML_Package_Access
35691                 (AMF.Internals.Helpers.To_Element (Self)).Get_URI);
35692
35693         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
35694            --  NamedElement::clientDependency : Dependency
35695
35696            return
35697              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
35698               (AMF.UML.Packages.UML_Package_Access
35699                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
35700
35701         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
35702            --  Namespace::elementImport : ElementImport
35703
35704            return
35705              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
35706               (AMF.UML.Packages.UML_Package_Access
35707                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
35708
35709         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
35710            --  Namespace::importedMember : PackageableElement
35711
35712            return
35713              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
35714               (AMF.UML.Packages.UML_Package_Access
35715                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
35716
35717         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
35718            --  Namespace::member : NamedElement
35719
35720            return
35721              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
35722               (AMF.UML.Packages.UML_Package_Access
35723                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
35724
35725         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
35726            --  NamedElement::name : String
35727
35728            return
35729              AMF.Holders.To_Holder
35730               (AMF.UML.Packages.UML_Package_Access
35731                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
35732
35733         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
35734            --  NamedElement::nameExpression : StringExpression
35735
35736            return
35737              AMF.Internals.Holders.UML_Holders.To_Holder
35738               (AMF.UML.String_Expressions.UML_String_Expression_Access'
35739                 (AMF.UML.Packages.UML_Package_Access
35740                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
35741
35742         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
35743            --  NamedElement::namespace : Namespace
35744
35745            return
35746              AMF.Internals.Holders.UML_Holders.To_Holder
35747               (AMF.UML.Namespaces.UML_Namespace_Access'
35748                 (AMF.UML.Packages.UML_Package_Access
35749                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
35750
35751         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Nested_Package_Package_Nesting_Package then
35752            --  Package::nestedPackage : Package
35753
35754            return
35755              AMF.UML.Packages.Collections.UML_Package_Collections.Internals.To_Holder
35756               (AMF.UML.Packages.UML_Package_Access
35757                 (AMF.Internals.Helpers.To_Element (Self)).Get_Nested_Package);
35758
35759         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Nesting_Package_Package_Nested_Package then
35760            --  Package::nestingPackage : Package
35761
35762            return
35763              AMF.Internals.Holders.UML_Holders.To_Holder
35764               (AMF.UML.Packages.UML_Package_Access'
35765                 (AMF.UML.Packages.UML_Package_Access
35766                   (AMF.Internals.Helpers.To_Element (Self)).Get_Nesting_Package));
35767
35768         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
35769            --  Element::ownedComment : Comment
35770
35771            return
35772              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
35773               (AMF.UML.Packages.UML_Package_Access
35774                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
35775
35776         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
35777            --  Element::ownedElement : Element
35778
35779            return
35780              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
35781               (AMF.UML.Packages.UML_Package_Access
35782                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
35783
35784         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
35785            --  Namespace::ownedMember : NamedElement
35786
35787            return
35788              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
35789               (AMF.UML.Packages.UML_Package_Access
35790                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
35791
35792         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
35793            --  Namespace::ownedRule : Constraint
35794
35795            return
35796              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
35797               (AMF.UML.Packages.UML_Package_Access
35798                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
35799
35800         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Owned_Stereotype_A_Owning_Package then
35801            --  Package::ownedStereotype : Stereotype
35802
35803            return
35804              AMF.UML.Stereotypes.Collections.UML_Stereotype_Collections.Internals.To_Holder
35805               (AMF.UML.Packages.UML_Package_Access
35806                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Stereotype);
35807
35808         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
35809            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
35810
35811            return
35812              AMF.Internals.Holders.UML_Holders.To_Holder
35813               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
35814                 (AMF.UML.Packages.UML_Package_Access
35815                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
35816
35817         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Owned_Type_Type_Package then
35818            --  Package::ownedType : Type
35819
35820            return
35821              AMF.UML.Types.Collections.UML_Type_Collections.Internals.To_Holder
35822               (AMF.UML.Packages.UML_Package_Access
35823                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Type);
35824
35825         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
35826            --  Element::owner : Element
35827
35828            return
35829              AMF.Internals.Holders.UML_Holders.To_Holder
35830               (AMF.UML.Elements.UML_Element_Access'
35831                 (AMF.UML.Packages.UML_Package_Access
35832                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
35833
35834         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
35835            --  ParameterableElement::owningTemplateParameter : TemplateParameter
35836
35837            return
35838              AMF.Internals.Holders.UML_Holders.To_Holder
35839               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
35840                 (AMF.UML.Packages.UML_Package_Access
35841                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
35842
35843         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
35844            --  Namespace::packageImport : PackageImport
35845
35846            return
35847              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
35848               (AMF.UML.Packages.UML_Package_Access
35849                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
35850
35851         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Package_Merge_Package_Merge_Receiving_Package then
35852            --  Package::packageMerge : PackageMerge
35853
35854            return
35855              AMF.UML.Package_Merges.Collections.UML_Package_Merge_Collections.Internals.To_Holder
35856               (AMF.UML.Packages.UML_Package_Access
35857                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Merge);
35858
35859         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Packaged_Element_A_Owning_Package then
35860            --  Package::packagedElement : PackageableElement
35861
35862            return
35863              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
35864               (AMF.UML.Packages.UML_Package_Access
35865                 (AMF.Internals.Helpers.To_Element (Self)).Get_Packaged_Element);
35866
35867         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Profile_Application_Profile_Application_Applying_Package then
35868            --  Package::profileApplication : ProfileApplication
35869
35870            return
35871              AMF.UML.Profile_Applications.Collections.UML_Profile_Application_Collections.Internals.To_Holder
35872               (AMF.UML.Packages.UML_Package_Access
35873                 (AMF.Internals.Helpers.To_Element (Self)).Get_Profile_Application);
35874
35875         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
35876            --  NamedElement::qualifiedName : String
35877
35878            return
35879              AMF.Holders.To_Holder
35880               (AMF.UML.Packages.UML_Package_Access
35881                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
35882
35883         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
35884            --  TemplateableElement::templateBinding : TemplateBinding
35885
35886            return
35887              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
35888               (AMF.UML.Packages.UML_Package_Access
35889                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
35890
35891         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
35892            --  ParameterableElement::templateParameter : TemplateParameter
35893
35894            return
35895              AMF.Internals.Holders.UML_Holders.To_Holder
35896               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
35897                 (AMF.UML.Packages.UML_Package_Access
35898                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
35899
35900         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
35901            --  NamedElement::visibility : VisibilityKind
35902
35903            return
35904              AMF.UML.Holders.To_Holder
35905               (AMF.UML.Packages.UML_Package_Access
35906                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
35907
35908         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
35909            --  PackageableElement::visibility : VisibilityKind
35910
35911            return
35912              AMF.UML.Holders.Visibility_Kinds.To_Holder
35913               (AMF.UML.Packages.UML_Package_Access
35914                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
35915
35916         else
35917            raise Program_Error;
35918         end if;
35919      end UML_Package_Get;
35920
35921      ----------------------------
35922      -- UML_Package_Import_Get --
35923      ----------------------------
35924
35925      function UML_Package_Import_Get return League.Holders.Holder is
35926      begin
35927         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Import_Imported_Package_A_Package_Import then
35928            --  PackageImport::importedPackage : Package
35929
35930            return
35931              AMF.Internals.Holders.UML_Holders.To_Holder
35932               (AMF.UML.Packages.UML_Package_Access'
35933                 (AMF.UML.Package_Imports.UML_Package_Import_Access
35934                   (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Package));
35935
35936         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Import_Importing_Namespace_Namespace_Package_Import then
35937            --  PackageImport::importingNamespace : Namespace
35938
35939            return
35940              AMF.Internals.Holders.UML_Holders.To_Holder
35941               (AMF.UML.Namespaces.UML_Namespace_Access'
35942                 (AMF.UML.Package_Imports.UML_Package_Import_Access
35943                   (AMF.Internals.Helpers.To_Element (Self)).Get_Importing_Namespace));
35944
35945         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
35946            --  Element::ownedComment : Comment
35947
35948            return
35949              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
35950               (AMF.UML.Package_Imports.UML_Package_Import_Access
35951                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
35952
35953         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
35954            --  Element::ownedElement : Element
35955
35956            return
35957              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
35958               (AMF.UML.Package_Imports.UML_Package_Import_Access
35959                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
35960
35961         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
35962            --  Element::owner : Element
35963
35964            return
35965              AMF.Internals.Holders.UML_Holders.To_Holder
35966               (AMF.UML.Elements.UML_Element_Access'
35967                 (AMF.UML.Package_Imports.UML_Package_Import_Access
35968                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
35969
35970         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship then
35971            --  Relationship::relatedElement : Element
35972
35973            return
35974              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
35975               (AMF.UML.Package_Imports.UML_Package_Import_Access
35976                 (AMF.Internals.Helpers.To_Element (Self)).Get_Related_Element);
35977
35978         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship then
35979            --  DirectedRelationship::source : Element
35980
35981            return
35982              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
35983               (AMF.UML.Package_Imports.UML_Package_Import_Access
35984                 (AMF.Internals.Helpers.To_Element (Self)).Get_Source);
35985
35986         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship then
35987            --  DirectedRelationship::target : Element
35988
35989            return
35990              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
35991               (AMF.UML.Package_Imports.UML_Package_Import_Access
35992                 (AMF.Internals.Helpers.To_Element (Self)).Get_Target);
35993
35994         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Import_Visibility then
35995            --  PackageImport::visibility : VisibilityKind
35996
35997            return
35998              AMF.UML.Holders.Visibility_Kinds.To_Holder
35999               (AMF.UML.Package_Imports.UML_Package_Import_Access
36000                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
36001
36002         else
36003            raise Program_Error;
36004         end if;
36005      end UML_Package_Import_Get;
36006
36007      ---------------------------
36008      -- UML_Package_Merge_Get --
36009      ---------------------------
36010
36011      function UML_Package_Merge_Get return League.Holders.Holder is
36012      begin
36013         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Merge_Merged_Package_A_Package_Merge then
36014            --  PackageMerge::mergedPackage : Package
36015
36016            return
36017              AMF.Internals.Holders.UML_Holders.To_Holder
36018               (AMF.UML.Packages.UML_Package_Access'
36019                 (AMF.UML.Package_Merges.UML_Package_Merge_Access
36020                   (AMF.Internals.Helpers.To_Element (Self)).Get_Merged_Package));
36021
36022         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
36023            --  Element::ownedComment : Comment
36024
36025            return
36026              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
36027               (AMF.UML.Package_Merges.UML_Package_Merge_Access
36028                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
36029
36030         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
36031            --  Element::ownedElement : Element
36032
36033            return
36034              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
36035               (AMF.UML.Package_Merges.UML_Package_Merge_Access
36036                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
36037
36038         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
36039            --  Element::owner : Element
36040
36041            return
36042              AMF.Internals.Holders.UML_Holders.To_Holder
36043               (AMF.UML.Elements.UML_Element_Access'
36044                 (AMF.UML.Package_Merges.UML_Package_Merge_Access
36045                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
36046
36047         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Merge_Receiving_Package_Package_Package_Merge then
36048            --  PackageMerge::receivingPackage : Package
36049
36050            return
36051              AMF.Internals.Holders.UML_Holders.To_Holder
36052               (AMF.UML.Packages.UML_Package_Access'
36053                 (AMF.UML.Package_Merges.UML_Package_Merge_Access
36054                   (AMF.Internals.Helpers.To_Element (Self)).Get_Receiving_Package));
36055
36056         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship then
36057            --  Relationship::relatedElement : Element
36058
36059            return
36060              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
36061               (AMF.UML.Package_Merges.UML_Package_Merge_Access
36062                 (AMF.Internals.Helpers.To_Element (Self)).Get_Related_Element);
36063
36064         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship then
36065            --  DirectedRelationship::source : Element
36066
36067            return
36068              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
36069               (AMF.UML.Package_Merges.UML_Package_Merge_Access
36070                 (AMF.Internals.Helpers.To_Element (Self)).Get_Source);
36071
36072         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship then
36073            --  DirectedRelationship::target : Element
36074
36075            return
36076              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
36077               (AMF.UML.Package_Merges.UML_Package_Merge_Access
36078                 (AMF.Internals.Helpers.To_Element (Self)).Get_Target);
36079
36080         else
36081            raise Program_Error;
36082         end if;
36083      end UML_Package_Merge_Get;
36084
36085      -----------------------
36086      -- UML_Parameter_Get --
36087      -----------------------
36088
36089      function UML_Parameter_Get return League.Holders.Holder is
36090      begin
36091         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
36092            --  NamedElement::clientDependency : Dependency
36093
36094            return
36095              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
36096               (AMF.UML.Parameters.UML_Parameter_Access
36097                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
36098
36099         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameter_Default then
36100            --  Parameter::default : String
36101
36102            return
36103              AMF.Holders.To_Holder
36104               (AMF.UML.Parameters.UML_Parameter_Access
36105                 (AMF.Internals.Helpers.To_Element (Self)).Get_Default);
36106
36107         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameter_Default_Value_A_Owning_Parameter then
36108            --  Parameter::defaultValue : ValueSpecification
36109
36110            return
36111              AMF.Internals.Holders.UML_Holders.To_Holder
36112               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
36113                 (AMF.UML.Parameters.UML_Parameter_Access
36114                   (AMF.Internals.Helpers.To_Element (Self)).Get_Default_Value));
36115
36116         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameter_Direction then
36117            --  Parameter::direction : ParameterDirectionKind
36118
36119            return
36120              AMF.UML.Holders.Parameter_Direction_Kinds.To_Holder
36121               (AMF.UML.Parameters.UML_Parameter_Access
36122                 (AMF.Internals.Helpers.To_Element (Self)).Get_Direction);
36123
36124         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameter_Effect then
36125            --  Parameter::effect : ParameterEffectKind
36126
36127            return
36128              AMF.UML.Holders.To_Holder
36129               (AMF.UML.Parameters.UML_Parameter_Access
36130                 (AMF.Internals.Helpers.To_Element (Self)).Get_Effect);
36131
36132         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connectable_Element_End_Connector_End_Role then
36133            --  ConnectableElement::end : ConnectorEnd
36134
36135            return
36136              AMF.UML.Connector_Ends.Collections.UML_Connector_End_Collections.Internals.To_Holder
36137               (AMF.UML.Parameters.UML_Parameter_Access
36138                 (AMF.Internals.Helpers.To_Element (Self)).Get_End);
36139
36140         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameter_Is_Exception then
36141            --  Parameter::isException : Boolean
36142
36143            return
36144              League.Holders.Booleans.To_Holder
36145               (AMF.UML.Parameters.UML_Parameter_Access
36146                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Exception);
36147
36148         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Ordered then
36149            --  MultiplicityElement::isOrdered : Boolean
36150
36151            return
36152              League.Holders.Booleans.To_Holder
36153               (AMF.UML.Parameters.UML_Parameter_Access
36154                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Ordered);
36155
36156         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameter_Is_Stream then
36157            --  Parameter::isStream : Boolean
36158
36159            return
36160              League.Holders.Booleans.To_Holder
36161               (AMF.UML.Parameters.UML_Parameter_Access
36162                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Stream);
36163
36164         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Unique then
36165            --  MultiplicityElement::isUnique : Boolean
36166
36167            return
36168              League.Holders.Booleans.To_Holder
36169               (AMF.UML.Parameters.UML_Parameter_Access
36170                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Unique);
36171
36172         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower then
36173            --  MultiplicityElement::lower : Integer
36174
36175            return
36176              AMF.Holders.To_Holder
36177               (AMF.UML.Parameters.UML_Parameter_Access
36178                 (AMF.Internals.Helpers.To_Element (Self)).Get_Lower);
36179
36180         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower_Value_A_Owning_Lower then
36181            --  MultiplicityElement::lowerValue : ValueSpecification
36182
36183            return
36184              AMF.Internals.Holders.UML_Holders.To_Holder
36185               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
36186                 (AMF.UML.Parameters.UML_Parameter_Access
36187                   (AMF.Internals.Helpers.To_Element (Self)).Get_Lower_Value));
36188
36189         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
36190            --  NamedElement::name : String
36191
36192            return
36193              AMF.Holders.To_Holder
36194               (AMF.UML.Parameters.UML_Parameter_Access
36195                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
36196
36197         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
36198            --  NamedElement::nameExpression : StringExpression
36199
36200            return
36201              AMF.Internals.Holders.UML_Holders.To_Holder
36202               (AMF.UML.String_Expressions.UML_String_Expression_Access'
36203                 (AMF.UML.Parameters.UML_Parameter_Access
36204                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
36205
36206         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
36207            --  NamedElement::namespace : Namespace
36208
36209            return
36210              AMF.Internals.Holders.UML_Holders.To_Holder
36211               (AMF.UML.Namespaces.UML_Namespace_Access'
36212                 (AMF.UML.Parameters.UML_Parameter_Access
36213                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
36214
36215         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameter_Operation_Operation_Owned_Parameter then
36216            --  Parameter::operation : Operation
36217
36218            return
36219              AMF.Internals.Holders.UML_Holders.To_Holder
36220               (AMF.UML.Operations.UML_Operation_Access'
36221                 (AMF.UML.Parameters.UML_Parameter_Access
36222                   (AMF.Internals.Helpers.To_Element (Self)).Get_Operation));
36223
36224         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
36225            --  Element::ownedComment : Comment
36226
36227            return
36228              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
36229               (AMF.UML.Parameters.UML_Parameter_Access
36230                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
36231
36232         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
36233            --  Element::ownedElement : Element
36234
36235            return
36236              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
36237               (AMF.UML.Parameters.UML_Parameter_Access
36238                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
36239
36240         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
36241            --  Element::owner : Element
36242
36243            return
36244              AMF.Internals.Holders.UML_Holders.To_Holder
36245               (AMF.UML.Elements.UML_Element_Access'
36246                 (AMF.UML.Parameters.UML_Parameter_Access
36247                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
36248
36249         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
36250            --  ParameterableElement::owningTemplateParameter : TemplateParameter
36251
36252            return
36253              AMF.Internals.Holders.UML_Holders.To_Holder
36254               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
36255                 (AMF.UML.Parameters.UML_Parameter_Access
36256                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
36257
36258         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameter_Parameter_Set_Parameter_Set_Parameter then
36259            --  Parameter::parameterSet : ParameterSet
36260
36261            return
36262              AMF.UML.Parameter_Sets.Collections.UML_Parameter_Set_Collections.Internals.To_Holder
36263               (AMF.UML.Parameters.UML_Parameter_Access
36264                 (AMF.Internals.Helpers.To_Element (Self)).Get_Parameter_Set);
36265
36266         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
36267            --  NamedElement::qualifiedName : String
36268
36269            return
36270              AMF.Holders.To_Holder
36271               (AMF.UML.Parameters.UML_Parameter_Access
36272                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
36273
36274         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connectable_Element_Template_Parameter_Connectable_Element_Template_Parameter_Parametered_Element then
36275            --  ConnectableElement::templateParameter : ConnectableElementTemplateParameter
36276
36277            return
36278              AMF.Internals.Holders.UML_Holders.To_Holder
36279               (AMF.UML.Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Access'
36280                 (AMF.UML.Parameters.UML_Parameter_Access
36281                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
36282
36283         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
36284            --  ParameterableElement::templateParameter : TemplateParameter
36285
36286            return
36287              AMF.Internals.Holders.UML_Holders.To_Holder
36288               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
36289                 (AMF.UML.Parameters.UML_Parameter_Access
36290                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
36291
36292         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
36293            --  TypedElement::type : Type
36294
36295            return
36296              AMF.Internals.Holders.UML_Holders.To_Holder
36297               (AMF.UML.Types.UML_Type_Access'
36298                 (AMF.UML.Parameters.UML_Parameter_Access
36299                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
36300
36301         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper then
36302            --  MultiplicityElement::upper : UnlimitedNatural
36303
36304            return
36305              AMF.Holders.To_Holder
36306               (AMF.UML.Parameters.UML_Parameter_Access
36307                 (AMF.Internals.Helpers.To_Element (Self)).Get_Upper);
36308
36309         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper_Value_A_Owning_Upper then
36310            --  MultiplicityElement::upperValue : ValueSpecification
36311
36312            return
36313              AMF.Internals.Holders.UML_Holders.To_Holder
36314               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
36315                 (AMF.UML.Parameters.UML_Parameter_Access
36316                   (AMF.Internals.Helpers.To_Element (Self)).Get_Upper_Value));
36317
36318         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
36319            --  NamedElement::visibility : VisibilityKind
36320
36321            return
36322              AMF.UML.Holders.To_Holder
36323               (AMF.UML.Parameters.UML_Parameter_Access
36324                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
36325
36326         else
36327            raise Program_Error;
36328         end if;
36329      end UML_Parameter_Get;
36330
36331      ---------------------------
36332      -- UML_Parameter_Set_Get --
36333      ---------------------------
36334
36335      function UML_Parameter_Set_Get return League.Holders.Holder is
36336      begin
36337         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
36338            --  NamedElement::clientDependency : Dependency
36339
36340            return
36341              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
36342               (AMF.UML.Parameter_Sets.UML_Parameter_Set_Access
36343                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
36344
36345         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameter_Set_Condition_A_Parameter_Set then
36346            --  ParameterSet::condition : Constraint
36347
36348            return
36349              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
36350               (AMF.UML.Parameter_Sets.UML_Parameter_Set_Access
36351                 (AMF.Internals.Helpers.To_Element (Self)).Get_Condition);
36352
36353         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
36354            --  NamedElement::name : String
36355
36356            return
36357              AMF.Holders.To_Holder
36358               (AMF.UML.Parameter_Sets.UML_Parameter_Set_Access
36359                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
36360
36361         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
36362            --  NamedElement::nameExpression : StringExpression
36363
36364            return
36365              AMF.Internals.Holders.UML_Holders.To_Holder
36366               (AMF.UML.String_Expressions.UML_String_Expression_Access'
36367                 (AMF.UML.Parameter_Sets.UML_Parameter_Set_Access
36368                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
36369
36370         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
36371            --  NamedElement::namespace : Namespace
36372
36373            return
36374              AMF.Internals.Holders.UML_Holders.To_Holder
36375               (AMF.UML.Namespaces.UML_Namespace_Access'
36376                 (AMF.UML.Parameter_Sets.UML_Parameter_Set_Access
36377                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
36378
36379         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
36380            --  Element::ownedComment : Comment
36381
36382            return
36383              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
36384               (AMF.UML.Parameter_Sets.UML_Parameter_Set_Access
36385                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
36386
36387         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
36388            --  Element::ownedElement : Element
36389
36390            return
36391              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
36392               (AMF.UML.Parameter_Sets.UML_Parameter_Set_Access
36393                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
36394
36395         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
36396            --  Element::owner : Element
36397
36398            return
36399              AMF.Internals.Holders.UML_Holders.To_Holder
36400               (AMF.UML.Elements.UML_Element_Access'
36401                 (AMF.UML.Parameter_Sets.UML_Parameter_Set_Access
36402                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
36403
36404         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameter_Set_Parameter_Parameter_Parameter_Set then
36405            --  ParameterSet::parameter : Parameter
36406
36407            return
36408              AMF.UML.Parameters.Collections.UML_Parameter_Collections.Internals.To_Holder
36409               (AMF.UML.Parameter_Sets.UML_Parameter_Set_Access
36410                 (AMF.Internals.Helpers.To_Element (Self)).Get_Parameter);
36411
36412         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
36413            --  NamedElement::qualifiedName : String
36414
36415            return
36416              AMF.Holders.To_Holder
36417               (AMF.UML.Parameter_Sets.UML_Parameter_Set_Access
36418                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
36419
36420         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
36421            --  NamedElement::visibility : VisibilityKind
36422
36423            return
36424              AMF.UML.Holders.To_Holder
36425               (AMF.UML.Parameter_Sets.UML_Parameter_Set_Access
36426                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
36427
36428         else
36429            raise Program_Error;
36430         end if;
36431      end UML_Parameter_Set_Get;
36432
36433      --------------------------------
36434      -- UML_Part_Decomposition_Get --
36435      --------------------------------
36436
36437      function UML_Part_Decomposition_Get return League.Holders.Holder is
36438      begin
36439         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Use_Actual_Gate_A_Interaction_Use then
36440            --  InteractionUse::actualGate : Gate
36441
36442            return
36443              AMF.UML.Gates.Collections.UML_Gate_Collections.Internals.To_Holder
36444               (AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access
36445                 (AMF.Internals.Helpers.To_Element (Self)).Get_Actual_Gate);
36446
36447         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Use_Argument_A_Interaction_Use then
36448            --  InteractionUse::argument : ValueSpecification
36449
36450            return
36451              AMF.UML.Value_Specifications.Collections.UML_Value_Specification_Collections.Internals.To_Holder
36452               (AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access
36453                 (AMF.Internals.Helpers.To_Element (Self)).Get_Argument);
36454
36455         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
36456            --  NamedElement::clientDependency : Dependency
36457
36458            return
36459              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
36460               (AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access
36461                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
36462
36463         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Covered_Lifeline_Covered_By then
36464            --  InteractionFragment::covered : Lifeline
36465
36466            return
36467              AMF.UML.Lifelines.Collections.UML_Lifeline_Collections.Internals.To_Holder
36468               (AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access
36469                 (AMF.Internals.Helpers.To_Element (Self)).Get_Covered);
36470
36471         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Interaction_Interaction_Fragment then
36472            --  InteractionFragment::enclosingInteraction : Interaction
36473
36474            return
36475              AMF.Internals.Holders.UML_Holders.To_Holder
36476               (AMF.UML.Interactions.UML_Interaction_Access'
36477                 (AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access
36478                   (AMF.Internals.Helpers.To_Element (Self)).Get_Enclosing_Interaction));
36479
36480         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Operand_Interaction_Operand_Fragment then
36481            --  InteractionFragment::enclosingOperand : InteractionOperand
36482
36483            return
36484              AMF.Internals.Holders.UML_Holders.To_Holder
36485               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access'
36486                 (AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access
36487                   (AMF.Internals.Helpers.To_Element (Self)).Get_Enclosing_Operand));
36488
36489         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_General_Ordering_A_Interaction_Fragment then
36490            --  InteractionFragment::generalOrdering : GeneralOrdering
36491
36492            return
36493              AMF.UML.General_Orderings.Collections.UML_General_Ordering_Collections.Internals.To_Holder
36494               (AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access
36495                 (AMF.Internals.Helpers.To_Element (Self)).Get_General_Ordering);
36496
36497         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
36498            --  NamedElement::name : String
36499
36500            return
36501              AMF.Holders.To_Holder
36502               (AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access
36503                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
36504
36505         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
36506            --  NamedElement::nameExpression : StringExpression
36507
36508            return
36509              AMF.Internals.Holders.UML_Holders.To_Holder
36510               (AMF.UML.String_Expressions.UML_String_Expression_Access'
36511                 (AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access
36512                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
36513
36514         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
36515            --  NamedElement::namespace : Namespace
36516
36517            return
36518              AMF.Internals.Holders.UML_Holders.To_Holder
36519               (AMF.UML.Namespaces.UML_Namespace_Access'
36520                 (AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access
36521                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
36522
36523         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
36524            --  Element::ownedComment : Comment
36525
36526            return
36527              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
36528               (AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access
36529                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
36530
36531         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
36532            --  Element::ownedElement : Element
36533
36534            return
36535              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
36536               (AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access
36537                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
36538
36539         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
36540            --  Element::owner : Element
36541
36542            return
36543              AMF.Internals.Holders.UML_Holders.To_Holder
36544               (AMF.UML.Elements.UML_Element_Access'
36545                 (AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access
36546                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
36547
36548         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
36549            --  NamedElement::qualifiedName : String
36550
36551            return
36552              AMF.Holders.To_Holder
36553               (AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access
36554                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
36555
36556         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Use_Refers_To_A_Interaction_Use then
36557            --  InteractionUse::refersTo : Interaction
36558
36559            return
36560              AMF.Internals.Holders.UML_Holders.To_Holder
36561               (AMF.UML.Interactions.UML_Interaction_Access'
36562                 (AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access
36563                   (AMF.Internals.Helpers.To_Element (Self)).Get_Refers_To));
36564
36565         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Use_Return_Value_A_Interaction_Use then
36566            --  InteractionUse::returnValue : ValueSpecification
36567
36568            return
36569              AMF.Internals.Holders.UML_Holders.To_Holder
36570               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
36571                 (AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access
36572                   (AMF.Internals.Helpers.To_Element (Self)).Get_Return_Value));
36573
36574         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Use_Return_Value_Recipient_A_Interaction_Use then
36575            --  InteractionUse::returnValueRecipient : Property
36576
36577            return
36578              AMF.Internals.Holders.UML_Holders.To_Holder
36579               (AMF.UML.Properties.UML_Property_Access'
36580                 (AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access
36581                   (AMF.Internals.Helpers.To_Element (Self)).Get_Return_Value_Recipient));
36582
36583         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
36584            --  NamedElement::visibility : VisibilityKind
36585
36586            return
36587              AMF.UML.Holders.To_Holder
36588               (AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access
36589                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
36590
36591         else
36592            raise Program_Error;
36593         end if;
36594      end UML_Part_Decomposition_Get;
36595
36596      ------------------
36597      -- UML_Port_Get --
36598      ------------------
36599
36600      function UML_Port_Get return League.Holders.Holder is
36601      begin
36602         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Aggregation then
36603            --  Property::aggregation : AggregationKind
36604
36605            return
36606              AMF.UML.Holders.Aggregation_Kinds.To_Holder
36607               (AMF.UML.Ports.UML_Port_Access
36608                 (AMF.Internals.Helpers.To_Element (Self)).Get_Aggregation);
36609
36610         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Association_Association_Member_End then
36611            --  Property::association : Association
36612
36613            return
36614              AMF.Internals.Holders.UML_Holders.To_Holder
36615               (AMF.UML.Associations.UML_Association_Access'
36616                 (AMF.UML.Ports.UML_Port_Access
36617                   (AMF.Internals.Helpers.To_Element (Self)).Get_Association));
36618
36619         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Association_End_Property_Qualifier then
36620            --  Property::associationEnd : Property
36621
36622            return
36623              AMF.Internals.Holders.UML_Holders.To_Holder
36624               (AMF.UML.Properties.UML_Property_Access'
36625                 (AMF.UML.Ports.UML_Port_Access
36626                   (AMF.Internals.Helpers.To_Element (Self)).Get_Association_End));
36627
36628         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Class_Class_Owned_Attribute then
36629            --  Property::class : Class
36630
36631            return
36632              AMF.Internals.Holders.UML_Holders.To_Holder
36633               (AMF.UML.Classes.UML_Class_Access'
36634                 (AMF.UML.Ports.UML_Port_Access
36635                   (AMF.Internals.Helpers.To_Element (Self)).Get_Class));
36636
36637         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
36638            --  NamedElement::clientDependency : Dependency
36639
36640            return
36641              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
36642               (AMF.UML.Ports.UML_Port_Access
36643                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
36644
36645         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Datatype_Data_Type_Owned_Attribute then
36646            --  Property::datatype : DataType
36647
36648            return
36649              AMF.Internals.Holders.UML_Holders.To_Holder
36650               (AMF.UML.Data_Types.UML_Data_Type_Access'
36651                 (AMF.UML.Ports.UML_Port_Access
36652                   (AMF.Internals.Helpers.To_Element (Self)).Get_Datatype));
36653
36654         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Default then
36655            --  Property::default : String
36656
36657            return
36658              AMF.Holders.To_Holder
36659               (AMF.UML.Ports.UML_Port_Access
36660                 (AMF.Internals.Helpers.To_Element (Self)).Get_Default);
36661
36662         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Default_Value_A_Owning_Property then
36663            --  Property::defaultValue : ValueSpecification
36664
36665            return
36666              AMF.Internals.Holders.UML_Holders.To_Holder
36667               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
36668                 (AMF.UML.Ports.UML_Port_Access
36669                   (AMF.Internals.Helpers.To_Element (Self)).Get_Default_Value));
36670
36671         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployed_Element_A_Deployment_Target then
36672            --  DeploymentTarget::deployedElement : PackageableElement
36673
36674            return
36675              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
36676               (AMF.UML.Ports.UML_Port_Access
36677                 (AMF.Internals.Helpers.To_Element (Self)).Get_Deployed_Element);
36678
36679         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployment_Deployment_Location then
36680            --  DeploymentTarget::deployment : Deployment
36681
36682            return
36683              AMF.UML.Deployments.Collections.UML_Deployment_Collections.Internals.To_Holder
36684               (AMF.UML.Ports.UML_Port_Access
36685                 (AMF.Internals.Helpers.To_Element (Self)).Get_Deployment);
36686
36687         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connectable_Element_End_Connector_End_Role then
36688            --  ConnectableElement::end : ConnectorEnd
36689
36690            return
36691              AMF.UML.Connector_Ends.Collections.UML_Connector_End_Collections.Internals.To_Holder
36692               (AMF.UML.Ports.UML_Port_Access
36693                 (AMF.Internals.Helpers.To_Element (Self)).Get_End);
36694
36695         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Feature_Featuring_Classifier_Classifier_Feature then
36696            --  Feature::featuringClassifier : Classifier
36697
36698            return
36699              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
36700               (AMF.UML.Ports.UML_Port_Access
36701                 (AMF.Internals.Helpers.To_Element (Self)).Get_Featuring_Classifier);
36702
36703         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Interface_Interface_Owned_Attribute then
36704            --  Property::interface : Interface
36705
36706            return
36707              AMF.Internals.Holders.UML_Holders.To_Holder
36708               (AMF.UML.Interfaces.UML_Interface_Access'
36709                 (AMF.UML.Ports.UML_Port_Access
36710                   (AMF.Internals.Helpers.To_Element (Self)).Get_Interface));
36711
36712         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Port_Is_Behavior then
36713            --  Port::isBehavior : Boolean
36714
36715            return
36716              League.Holders.Booleans.To_Holder
36717               (AMF.UML.Ports.UML_Port_Access
36718                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Behavior);
36719
36720         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Is_Composite then
36721            --  Property::isComposite : Boolean
36722
36723            return
36724              League.Holders.Booleans.To_Holder
36725               (AMF.UML.Ports.UML_Port_Access
36726                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Composite);
36727
36728         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Port_Is_Conjugated then
36729            --  Port::isConjugated : Boolean
36730
36731            return
36732              League.Holders.Booleans.To_Holder
36733               (AMF.UML.Ports.UML_Port_Access
36734                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Conjugated);
36735
36736         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Is_Derived then
36737            --  Property::isDerived : Boolean
36738
36739            return
36740              League.Holders.Booleans.To_Holder
36741               (AMF.UML.Ports.UML_Port_Access
36742                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Derived);
36743
36744         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Is_Derived_Union then
36745            --  Property::isDerivedUnion : Boolean
36746
36747            return
36748              League.Holders.Booleans.To_Holder
36749               (AMF.UML.Ports.UML_Port_Access
36750                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Derived_Union);
36751
36752         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Is_ID then
36753            --  Property::isID : Boolean
36754
36755            return
36756              League.Holders.Booleans.To_Holder
36757               (AMF.UML.Ports.UML_Port_Access
36758                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_ID);
36759
36760         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
36761            --  RedefinableElement::isLeaf : Boolean
36762
36763            return
36764              League.Holders.Booleans.To_Holder
36765               (AMF.UML.Ports.UML_Port_Access
36766                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
36767
36768         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Ordered then
36769            --  MultiplicityElement::isOrdered : Boolean
36770
36771            return
36772              League.Holders.Booleans.To_Holder
36773               (AMF.UML.Ports.UML_Port_Access
36774                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Ordered);
36775
36776         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Is_Read_Only then
36777            --  Property::isReadOnly : Boolean
36778
36779            return
36780              League.Holders.Booleans.To_Holder
36781               (AMF.UML.Ports.UML_Port_Access
36782                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Read_Only);
36783
36784         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structural_Feature_Is_Read_Only then
36785            --  StructuralFeature::isReadOnly : Boolean
36786
36787            return
36788              League.Holders.Booleans.To_Holder
36789               (AMF.UML.Ports.UML_Port_Access
36790                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Read_Only);
36791
36792         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Port_Is_Service then
36793            --  Port::isService : Boolean
36794
36795            return
36796              League.Holders.Booleans.To_Holder
36797               (AMF.UML.Ports.UML_Port_Access
36798                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Service);
36799
36800         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Feature_Is_Static then
36801            --  Feature::isStatic : Boolean
36802
36803            return
36804              League.Holders.Booleans.To_Holder
36805               (AMF.UML.Ports.UML_Port_Access
36806                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Static);
36807
36808         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Unique then
36809            --  MultiplicityElement::isUnique : Boolean
36810
36811            return
36812              League.Holders.Booleans.To_Holder
36813               (AMF.UML.Ports.UML_Port_Access
36814                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Unique);
36815
36816         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower then
36817            --  MultiplicityElement::lower : Integer
36818
36819            return
36820              AMF.Holders.To_Holder
36821               (AMF.UML.Ports.UML_Port_Access
36822                 (AMF.Internals.Helpers.To_Element (Self)).Get_Lower);
36823
36824         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower_Value_A_Owning_Lower then
36825            --  MultiplicityElement::lowerValue : ValueSpecification
36826
36827            return
36828              AMF.Internals.Holders.UML_Holders.To_Holder
36829               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
36830                 (AMF.UML.Ports.UML_Port_Access
36831                   (AMF.Internals.Helpers.To_Element (Self)).Get_Lower_Value));
36832
36833         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
36834            --  NamedElement::name : String
36835
36836            return
36837              AMF.Holders.To_Holder
36838               (AMF.UML.Ports.UML_Port_Access
36839                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
36840
36841         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
36842            --  NamedElement::nameExpression : StringExpression
36843
36844            return
36845              AMF.Internals.Holders.UML_Holders.To_Holder
36846               (AMF.UML.String_Expressions.UML_String_Expression_Access'
36847                 (AMF.UML.Ports.UML_Port_Access
36848                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
36849
36850         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
36851            --  NamedElement::namespace : Namespace
36852
36853            return
36854              AMF.Internals.Holders.UML_Holders.To_Holder
36855               (AMF.UML.Namespaces.UML_Namespace_Access'
36856                 (AMF.UML.Ports.UML_Port_Access
36857                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
36858
36859         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Opposite_A_Property then
36860            --  Property::opposite : Property
36861
36862            return
36863              AMF.Internals.Holders.UML_Holders.To_Holder
36864               (AMF.UML.Properties.UML_Property_Access'
36865                 (AMF.UML.Ports.UML_Port_Access
36866                   (AMF.Internals.Helpers.To_Element (Self)).Get_Opposite));
36867
36868         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
36869            --  Element::ownedComment : Comment
36870
36871            return
36872              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
36873               (AMF.UML.Ports.UML_Port_Access
36874                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
36875
36876         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
36877            --  Element::ownedElement : Element
36878
36879            return
36880              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
36881               (AMF.UML.Ports.UML_Port_Access
36882                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
36883
36884         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
36885            --  Element::owner : Element
36886
36887            return
36888              AMF.Internals.Holders.UML_Holders.To_Holder
36889               (AMF.UML.Elements.UML_Element_Access'
36890                 (AMF.UML.Ports.UML_Port_Access
36891                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
36892
36893         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Owning_Association_Association_Owned_End then
36894            --  Property::owningAssociation : Association
36895
36896            return
36897              AMF.Internals.Holders.UML_Holders.To_Holder
36898               (AMF.UML.Associations.UML_Association_Access'
36899                 (AMF.UML.Ports.UML_Port_Access
36900                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Association));
36901
36902         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
36903            --  ParameterableElement::owningTemplateParameter : TemplateParameter
36904
36905            return
36906              AMF.Internals.Holders.UML_Holders.To_Holder
36907               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
36908                 (AMF.UML.Ports.UML_Port_Access
36909                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
36910
36911         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Port_Protocol_A_Port then
36912            --  Port::protocol : ProtocolStateMachine
36913
36914            return
36915              AMF.Internals.Holders.UML_Holders.To_Holder
36916               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access'
36917                 (AMF.UML.Ports.UML_Port_Access
36918                   (AMF.Internals.Helpers.To_Element (Self)).Get_Protocol));
36919
36920         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Port_Provided_A_Port then
36921            --  Port::provided : Interface
36922
36923            return
36924              AMF.UML.Interfaces.Collections.UML_Interface_Collections.Internals.To_Holder
36925               (AMF.UML.Ports.UML_Port_Access
36926                 (AMF.Internals.Helpers.To_Element (Self)).Get_Provided);
36927
36928         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
36929            --  NamedElement::qualifiedName : String
36930
36931            return
36932              AMF.Holders.To_Holder
36933               (AMF.UML.Ports.UML_Port_Access
36934                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
36935
36936         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Qualifier_Property_Association_End then
36937            --  Property::qualifier : Property
36938
36939            return
36940              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
36941               (AMF.UML.Ports.UML_Port_Access
36942                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualifier);
36943
36944         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
36945            --  RedefinableElement::redefinedElement : RedefinableElement
36946
36947            return
36948              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
36949               (AMF.UML.Ports.UML_Port_Access
36950                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
36951
36952         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Port_Redefined_Port_A_Port then
36953            --  Port::redefinedPort : Port
36954
36955            return
36956              AMF.UML.Ports.Collections.UML_Port_Collections.Internals.To_Holder
36957               (AMF.UML.Ports.UML_Port_Access
36958                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Port);
36959
36960         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Redefined_Property_A_Property then
36961            --  Property::redefinedProperty : Property
36962
36963            return
36964              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
36965               (AMF.UML.Ports.UML_Port_Access
36966                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Property);
36967
36968         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
36969            --  RedefinableElement::redefinitionContext : Classifier
36970
36971            return
36972              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
36973               (AMF.UML.Ports.UML_Port_Access
36974                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
36975
36976         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Port_Required_A_Port then
36977            --  Port::required : Interface
36978
36979            return
36980              AMF.UML.Interfaces.Collections.UML_Interface_Collections.Internals.To_Holder
36981               (AMF.UML.Ports.UML_Port_Access
36982                 (AMF.Internals.Helpers.To_Element (Self)).Get_Required);
36983
36984         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Subsetted_Property_A_Property then
36985            --  Property::subsettedProperty : Property
36986
36987            return
36988              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
36989               (AMF.UML.Ports.UML_Port_Access
36990                 (AMF.Internals.Helpers.To_Element (Self)).Get_Subsetted_Property);
36991
36992         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connectable_Element_Template_Parameter_Connectable_Element_Template_Parameter_Parametered_Element then
36993            --  ConnectableElement::templateParameter : ConnectableElementTemplateParameter
36994
36995            return
36996              AMF.Internals.Holders.UML_Holders.To_Holder
36997               (AMF.UML.Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Access'
36998                 (AMF.UML.Ports.UML_Port_Access
36999                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
37000
37001         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
37002            --  ParameterableElement::templateParameter : TemplateParameter
37003
37004            return
37005              AMF.Internals.Holders.UML_Holders.To_Holder
37006               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
37007                 (AMF.UML.Ports.UML_Port_Access
37008                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
37009
37010         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
37011            --  TypedElement::type : Type
37012
37013            return
37014              AMF.Internals.Holders.UML_Holders.To_Holder
37015               (AMF.UML.Types.UML_Type_Access'
37016                 (AMF.UML.Ports.UML_Port_Access
37017                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
37018
37019         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper then
37020            --  MultiplicityElement::upper : UnlimitedNatural
37021
37022            return
37023              AMF.Holders.To_Holder
37024               (AMF.UML.Ports.UML_Port_Access
37025                 (AMF.Internals.Helpers.To_Element (Self)).Get_Upper);
37026
37027         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper_Value_A_Owning_Upper then
37028            --  MultiplicityElement::upperValue : ValueSpecification
37029
37030            return
37031              AMF.Internals.Holders.UML_Holders.To_Holder
37032               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
37033                 (AMF.UML.Ports.UML_Port_Access
37034                   (AMF.Internals.Helpers.To_Element (Self)).Get_Upper_Value));
37035
37036         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
37037            --  NamedElement::visibility : VisibilityKind
37038
37039            return
37040              AMF.UML.Holders.To_Holder
37041               (AMF.UML.Ports.UML_Port_Access
37042                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
37043
37044         else
37045            raise Program_Error;
37046         end if;
37047      end UML_Port_Get;
37048
37049      ----------------------------
37050      -- UML_Primitive_Type_Get --
37051      ----------------------------
37052
37053      function UML_Primitive_Type_Get return League.Holders.Holder is
37054      begin
37055         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier then
37056            --  Classifier::attribute : Property
37057
37058            return
37059              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
37060               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37061                 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute);
37062
37063         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
37064            --  NamedElement::clientDependency : Dependency
37065
37066            return
37067              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
37068               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37069                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
37070
37071         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier then
37072            --  Classifier::collaborationUse : CollaborationUse
37073
37074            return
37075              AMF.UML.Collaboration_Uses.Collections.UML_Collaboration_Use_Collections.Internals.To_Holder
37076               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37077                 (AMF.Internals.Helpers.To_Element (Self)).Get_Collaboration_Use);
37078
37079         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
37080            --  Namespace::elementImport : ElementImport
37081
37082            return
37083              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
37084               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37085                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
37086
37087         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier then
37088            --  Classifier::feature : Feature
37089
37090            return
37091              AMF.UML.Features.Collections.UML_Feature_Collections.Internals.To_Holder
37092               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37093                 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature);
37094
37095         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier then
37096            --  Classifier::general : Classifier
37097
37098            return
37099              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
37100               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37101                 (AMF.Internals.Helpers.To_Element (Self)).Get_General);
37102
37103         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific then
37104            --  Classifier::generalization : Generalization
37105
37106            return
37107              AMF.UML.Generalizations.Collections.UML_Generalization_Collections.Internals.To_Holder
37108               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37109                 (AMF.Internals.Helpers.To_Element (Self)).Get_Generalization);
37110
37111         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
37112            --  Namespace::importedMember : PackageableElement
37113
37114            return
37115              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
37116               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37117                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
37118
37119         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier then
37120            --  Classifier::inheritedMember : NamedElement
37121
37122            return
37123              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
37124               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37125                 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member);
37126
37127         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
37128            --  Classifier::isAbstract : Boolean
37129
37130            return
37131              League.Holders.Booleans.To_Holder
37132               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37133                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
37134
37135         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
37136            --  Classifier::isFinalSpecialization : Boolean
37137
37138            return
37139              League.Holders.Booleans.To_Holder
37140               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37141                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization);
37142
37143         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
37144            --  RedefinableElement::isLeaf : Boolean
37145
37146            return
37147              League.Holders.Booleans.To_Holder
37148               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37149                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
37150
37151         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
37152            --  Namespace::member : NamedElement
37153
37154            return
37155              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
37156               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37157                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
37158
37159         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
37160            --  NamedElement::name : String
37161
37162            return
37163              AMF.Holders.To_Holder
37164               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37165                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
37166
37167         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
37168            --  NamedElement::nameExpression : StringExpression
37169
37170            return
37171              AMF.Internals.Holders.UML_Holders.To_Holder
37172               (AMF.UML.String_Expressions.UML_String_Expression_Access'
37173                 (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37174                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
37175
37176         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
37177            --  NamedElement::namespace : Namespace
37178
37179            return
37180              AMF.Internals.Holders.UML_Holders.To_Holder
37181               (AMF.UML.Namespaces.UML_Namespace_Access'
37182                 (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37183                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
37184
37185         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Data_Type_Owned_Attribute_Property_Datatype then
37186            --  DataType::ownedAttribute : Property
37187
37188            return
37189              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
37190               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37191                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
37192
37193         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
37194            --  Element::ownedComment : Comment
37195
37196            return
37197              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
37198               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37199                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
37200
37201         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
37202            --  Element::ownedElement : Element
37203
37204            return
37205              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
37206               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37207                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
37208
37209         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
37210            --  Namespace::ownedMember : NamedElement
37211
37212            return
37213              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
37214               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37215                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
37216
37217         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Data_Type_Owned_Operation_Operation_Datatype then
37218            --  DataType::ownedOperation : Operation
37219
37220            return
37221              AMF.UML.Operations.Collections.UML_Operation_Collections.Internals.To_Holder
37222               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37223                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Operation);
37224
37225         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
37226            --  Namespace::ownedRule : Constraint
37227
37228            return
37229              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
37230               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37231                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
37232
37233         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
37234            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
37235
37236            return
37237              AMF.Internals.Holders.UML_Holders.To_Holder
37238               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access'
37239                 (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37240                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
37241
37242         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
37243            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
37244
37245            return
37246              AMF.Internals.Holders.UML_Holders.To_Holder
37247               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
37248                 (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37249                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
37250
37251         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier then
37252            --  Classifier::ownedUseCase : UseCase
37253
37254            return
37255              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
37256               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37257                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Use_Case);
37258
37259         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
37260            --  Element::owner : Element
37261
37262            return
37263              AMF.Internals.Holders.UML_Holders.To_Holder
37264               (AMF.UML.Elements.UML_Element_Access'
37265                 (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37266                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
37267
37268         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
37269            --  ParameterableElement::owningTemplateParameter : TemplateParameter
37270
37271            return
37272              AMF.Internals.Holders.UML_Holders.To_Holder
37273               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
37274                 (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37275                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
37276
37277         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
37278            --  Type::package : Package
37279
37280            return
37281              AMF.Internals.Holders.UML_Holders.To_Holder
37282               (AMF.UML.Packages.UML_Package_Access'
37283                 (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37284                   (AMF.Internals.Helpers.To_Element (Self)).Get_Package));
37285
37286         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
37287            --  Namespace::packageImport : PackageImport
37288
37289            return
37290              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
37291               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37292                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
37293
37294         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype then
37295            --  Classifier::powertypeExtent : GeneralizationSet
37296
37297            return
37298              AMF.UML.Generalization_Sets.Collections.UML_Generalization_Set_Collections.Internals.To_Holder
37299               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37300                 (AMF.Internals.Helpers.To_Element (Self)).Get_Powertype_Extent);
37301
37302         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
37303            --  NamedElement::qualifiedName : String
37304
37305            return
37306              AMF.Holders.To_Holder
37307               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37308                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
37309
37310         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier then
37311            --  Classifier::redefinedClassifier : Classifier
37312
37313            return
37314              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
37315               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37316                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Classifier);
37317
37318         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
37319            --  RedefinableElement::redefinedElement : RedefinableElement
37320
37321            return
37322              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
37323               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37324                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
37325
37326         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
37327            --  RedefinableElement::redefinitionContext : Classifier
37328
37329            return
37330              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
37331               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37332                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
37333
37334         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
37335            --  Classifier::representation : CollaborationUse
37336
37337            return
37338              AMF.Internals.Holders.UML_Holders.To_Holder
37339               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access'
37340                 (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37341                   (AMF.Internals.Helpers.To_Element (Self)).Get_Representation));
37342
37343         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier then
37344            --  Classifier::substitution : Substitution
37345
37346            return
37347              AMF.UML.Substitutions.Collections.UML_Substitution_Collections.Internals.To_Holder
37348               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37349                 (AMF.Internals.Helpers.To_Element (Self)).Get_Substitution);
37350
37351         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
37352            --  TemplateableElement::templateBinding : TemplateBinding
37353
37354            return
37355              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
37356               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37357                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
37358
37359         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
37360            --  Classifier::templateParameter : ClassifierTemplateParameter
37361
37362            return
37363              AMF.Internals.Holders.UML_Holders.To_Holder
37364               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access'
37365                 (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37366                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
37367
37368         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
37369            --  ParameterableElement::templateParameter : TemplateParameter
37370
37371            return
37372              AMF.Internals.Holders.UML_Holders.To_Holder
37373               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
37374                 (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37375                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
37376
37377         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject then
37378            --  Classifier::useCase : UseCase
37379
37380            return
37381              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
37382               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37383                 (AMF.Internals.Helpers.To_Element (Self)).Get_Use_Case);
37384
37385         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
37386            --  NamedElement::visibility : VisibilityKind
37387
37388            return
37389              AMF.UML.Holders.To_Holder
37390               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37391                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
37392
37393         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
37394            --  PackageableElement::visibility : VisibilityKind
37395
37396            return
37397              AMF.UML.Holders.Visibility_Kinds.To_Holder
37398               (AMF.UML.Primitive_Types.UML_Primitive_Type_Access
37399                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
37400
37401         else
37402            raise Program_Error;
37403         end if;
37404      end UML_Primitive_Type_Get;
37405
37406      ---------------------
37407      -- UML_Profile_Get --
37408      ---------------------
37409
37410      function UML_Profile_Get return League.Holders.Holder is
37411      begin
37412         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_URI then
37413            --  Package::URI : String
37414
37415            return
37416              AMF.Holders.To_Holder
37417               (AMF.UML.Profiles.UML_Profile_Access
37418                 (AMF.Internals.Helpers.To_Element (Self)).Get_URI);
37419
37420         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
37421            --  NamedElement::clientDependency : Dependency
37422
37423            return
37424              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
37425               (AMF.UML.Profiles.UML_Profile_Access
37426                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
37427
37428         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
37429            --  Namespace::elementImport : ElementImport
37430
37431            return
37432              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
37433               (AMF.UML.Profiles.UML_Profile_Access
37434                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
37435
37436         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
37437            --  Namespace::importedMember : PackageableElement
37438
37439            return
37440              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
37441               (AMF.UML.Profiles.UML_Profile_Access
37442                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
37443
37444         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
37445            --  Namespace::member : NamedElement
37446
37447            return
37448              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
37449               (AMF.UML.Profiles.UML_Profile_Access
37450                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
37451
37452         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Profile_Metaclass_Reference_A_Profile then
37453            --  Profile::metaclassReference : ElementImport
37454
37455            return
37456              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
37457               (AMF.UML.Profiles.UML_Profile_Access
37458                 (AMF.Internals.Helpers.To_Element (Self)).Get_Metaclass_Reference);
37459
37460         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Profile_Metamodel_Reference_A_Profile then
37461            --  Profile::metamodelReference : PackageImport
37462
37463            return
37464              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
37465               (AMF.UML.Profiles.UML_Profile_Access
37466                 (AMF.Internals.Helpers.To_Element (Self)).Get_Metamodel_Reference);
37467
37468         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
37469            --  NamedElement::name : String
37470
37471            return
37472              AMF.Holders.To_Holder
37473               (AMF.UML.Profiles.UML_Profile_Access
37474                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
37475
37476         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
37477            --  NamedElement::nameExpression : StringExpression
37478
37479            return
37480              AMF.Internals.Holders.UML_Holders.To_Holder
37481               (AMF.UML.String_Expressions.UML_String_Expression_Access'
37482                 (AMF.UML.Profiles.UML_Profile_Access
37483                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
37484
37485         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
37486            --  NamedElement::namespace : Namespace
37487
37488            return
37489              AMF.Internals.Holders.UML_Holders.To_Holder
37490               (AMF.UML.Namespaces.UML_Namespace_Access'
37491                 (AMF.UML.Profiles.UML_Profile_Access
37492                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
37493
37494         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Nested_Package_Package_Nesting_Package then
37495            --  Package::nestedPackage : Package
37496
37497            return
37498              AMF.UML.Packages.Collections.UML_Package_Collections.Internals.To_Holder
37499               (AMF.UML.Profiles.UML_Profile_Access
37500                 (AMF.Internals.Helpers.To_Element (Self)).Get_Nested_Package);
37501
37502         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Nesting_Package_Package_Nested_Package then
37503            --  Package::nestingPackage : Package
37504
37505            return
37506              AMF.Internals.Holders.UML_Holders.To_Holder
37507               (AMF.UML.Packages.UML_Package_Access'
37508                 (AMF.UML.Profiles.UML_Profile_Access
37509                   (AMF.Internals.Helpers.To_Element (Self)).Get_Nesting_Package));
37510
37511         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
37512            --  Element::ownedComment : Comment
37513
37514            return
37515              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
37516               (AMF.UML.Profiles.UML_Profile_Access
37517                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
37518
37519         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
37520            --  Element::ownedElement : Element
37521
37522            return
37523              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
37524               (AMF.UML.Profiles.UML_Profile_Access
37525                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
37526
37527         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
37528            --  Namespace::ownedMember : NamedElement
37529
37530            return
37531              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
37532               (AMF.UML.Profiles.UML_Profile_Access
37533                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
37534
37535         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
37536            --  Namespace::ownedRule : Constraint
37537
37538            return
37539              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
37540               (AMF.UML.Profiles.UML_Profile_Access
37541                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
37542
37543         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Owned_Stereotype_A_Owning_Package then
37544            --  Package::ownedStereotype : Stereotype
37545
37546            return
37547              AMF.UML.Stereotypes.Collections.UML_Stereotype_Collections.Internals.To_Holder
37548               (AMF.UML.Profiles.UML_Profile_Access
37549                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Stereotype);
37550
37551         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
37552            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
37553
37554            return
37555              AMF.Internals.Holders.UML_Holders.To_Holder
37556               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
37557                 (AMF.UML.Profiles.UML_Profile_Access
37558                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
37559
37560         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Owned_Type_Type_Package then
37561            --  Package::ownedType : Type
37562
37563            return
37564              AMF.UML.Types.Collections.UML_Type_Collections.Internals.To_Holder
37565               (AMF.UML.Profiles.UML_Profile_Access
37566                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Type);
37567
37568         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
37569            --  Element::owner : Element
37570
37571            return
37572              AMF.Internals.Holders.UML_Holders.To_Holder
37573               (AMF.UML.Elements.UML_Element_Access'
37574                 (AMF.UML.Profiles.UML_Profile_Access
37575                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
37576
37577         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
37578            --  ParameterableElement::owningTemplateParameter : TemplateParameter
37579
37580            return
37581              AMF.Internals.Holders.UML_Holders.To_Holder
37582               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
37583                 (AMF.UML.Profiles.UML_Profile_Access
37584                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
37585
37586         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
37587            --  Namespace::packageImport : PackageImport
37588
37589            return
37590              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
37591               (AMF.UML.Profiles.UML_Profile_Access
37592                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
37593
37594         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Package_Merge_Package_Merge_Receiving_Package then
37595            --  Package::packageMerge : PackageMerge
37596
37597            return
37598              AMF.UML.Package_Merges.Collections.UML_Package_Merge_Collections.Internals.To_Holder
37599               (AMF.UML.Profiles.UML_Profile_Access
37600                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Merge);
37601
37602         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Packaged_Element_A_Owning_Package then
37603            --  Package::packagedElement : PackageableElement
37604
37605            return
37606              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
37607               (AMF.UML.Profiles.UML_Profile_Access
37608                 (AMF.Internals.Helpers.To_Element (Self)).Get_Packaged_Element);
37609
37610         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Profile_Application_Profile_Application_Applying_Package then
37611            --  Package::profileApplication : ProfileApplication
37612
37613            return
37614              AMF.UML.Profile_Applications.Collections.UML_Profile_Application_Collections.Internals.To_Holder
37615               (AMF.UML.Profiles.UML_Profile_Access
37616                 (AMF.Internals.Helpers.To_Element (Self)).Get_Profile_Application);
37617
37618         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
37619            --  NamedElement::qualifiedName : String
37620
37621            return
37622              AMF.Holders.To_Holder
37623               (AMF.UML.Profiles.UML_Profile_Access
37624                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
37625
37626         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
37627            --  TemplateableElement::templateBinding : TemplateBinding
37628
37629            return
37630              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
37631               (AMF.UML.Profiles.UML_Profile_Access
37632                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
37633
37634         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
37635            --  ParameterableElement::templateParameter : TemplateParameter
37636
37637            return
37638              AMF.Internals.Holders.UML_Holders.To_Holder
37639               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
37640                 (AMF.UML.Profiles.UML_Profile_Access
37641                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
37642
37643         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
37644            --  NamedElement::visibility : VisibilityKind
37645
37646            return
37647              AMF.UML.Holders.To_Holder
37648               (AMF.UML.Profiles.UML_Profile_Access
37649                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
37650
37651         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
37652            --  PackageableElement::visibility : VisibilityKind
37653
37654            return
37655              AMF.UML.Holders.Visibility_Kinds.To_Holder
37656               (AMF.UML.Profiles.UML_Profile_Access
37657                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
37658
37659         else
37660            raise Program_Error;
37661         end if;
37662      end UML_Profile_Get;
37663
37664      ---------------------------------
37665      -- UML_Profile_Application_Get --
37666      ---------------------------------
37667
37668      function UML_Profile_Application_Get return League.Holders.Holder is
37669      begin
37670         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Profile_Application_Applied_Profile_A_Profile_Application then
37671            --  ProfileApplication::appliedProfile : Profile
37672
37673            return
37674              AMF.Internals.Holders.UML_Holders.To_Holder
37675               (AMF.UML.Profiles.UML_Profile_Access'
37676                 (AMF.UML.Profile_Applications.UML_Profile_Application_Access
37677                   (AMF.Internals.Helpers.To_Element (Self)).Get_Applied_Profile));
37678
37679         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Profile_Application_Applying_Package_Package_Profile_Application then
37680            --  ProfileApplication::applyingPackage : Package
37681
37682            return
37683              AMF.Internals.Holders.UML_Holders.To_Holder
37684               (AMF.UML.Packages.UML_Package_Access'
37685                 (AMF.UML.Profile_Applications.UML_Profile_Application_Access
37686                   (AMF.Internals.Helpers.To_Element (Self)).Get_Applying_Package));
37687
37688         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Profile_Application_Is_Strict then
37689            --  ProfileApplication::isStrict : Boolean
37690
37691            return
37692              League.Holders.Booleans.To_Holder
37693               (AMF.UML.Profile_Applications.UML_Profile_Application_Access
37694                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Strict);
37695
37696         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
37697            --  Element::ownedComment : Comment
37698
37699            return
37700              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
37701               (AMF.UML.Profile_Applications.UML_Profile_Application_Access
37702                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
37703
37704         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
37705            --  Element::ownedElement : Element
37706
37707            return
37708              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
37709               (AMF.UML.Profile_Applications.UML_Profile_Application_Access
37710                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
37711
37712         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
37713            --  Element::owner : Element
37714
37715            return
37716              AMF.Internals.Holders.UML_Holders.To_Holder
37717               (AMF.UML.Elements.UML_Element_Access'
37718                 (AMF.UML.Profile_Applications.UML_Profile_Application_Access
37719                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
37720
37721         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship then
37722            --  Relationship::relatedElement : Element
37723
37724            return
37725              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
37726               (AMF.UML.Profile_Applications.UML_Profile_Application_Access
37727                 (AMF.Internals.Helpers.To_Element (Self)).Get_Related_Element);
37728
37729         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship then
37730            --  DirectedRelationship::source : Element
37731
37732            return
37733              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
37734               (AMF.UML.Profile_Applications.UML_Profile_Application_Access
37735                 (AMF.Internals.Helpers.To_Element (Self)).Get_Source);
37736
37737         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship then
37738            --  DirectedRelationship::target : Element
37739
37740            return
37741              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
37742               (AMF.UML.Profile_Applications.UML_Profile_Application_Access
37743                 (AMF.Internals.Helpers.To_Element (Self)).Get_Target);
37744
37745         else
37746            raise Program_Error;
37747         end if;
37748      end UML_Profile_Application_Get;
37749
37750      ----------------------
37751      -- UML_Property_Get --
37752      ----------------------
37753
37754      function UML_Property_Get return League.Holders.Holder is
37755      begin
37756         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Aggregation then
37757            --  Property::aggregation : AggregationKind
37758
37759            return
37760              AMF.UML.Holders.Aggregation_Kinds.To_Holder
37761               (AMF.UML.Properties.UML_Property_Access
37762                 (AMF.Internals.Helpers.To_Element (Self)).Get_Aggregation);
37763
37764         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Association_Association_Member_End then
37765            --  Property::association : Association
37766
37767            return
37768              AMF.Internals.Holders.UML_Holders.To_Holder
37769               (AMF.UML.Associations.UML_Association_Access'
37770                 (AMF.UML.Properties.UML_Property_Access
37771                   (AMF.Internals.Helpers.To_Element (Self)).Get_Association));
37772
37773         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Association_End_Property_Qualifier then
37774            --  Property::associationEnd : Property
37775
37776            return
37777              AMF.Internals.Holders.UML_Holders.To_Holder
37778               (AMF.UML.Properties.UML_Property_Access'
37779                 (AMF.UML.Properties.UML_Property_Access
37780                   (AMF.Internals.Helpers.To_Element (Self)).Get_Association_End));
37781
37782         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Class_Class_Owned_Attribute then
37783            --  Property::class : Class
37784
37785            return
37786              AMF.Internals.Holders.UML_Holders.To_Holder
37787               (AMF.UML.Classes.UML_Class_Access'
37788                 (AMF.UML.Properties.UML_Property_Access
37789                   (AMF.Internals.Helpers.To_Element (Self)).Get_Class));
37790
37791         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
37792            --  NamedElement::clientDependency : Dependency
37793
37794            return
37795              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
37796               (AMF.UML.Properties.UML_Property_Access
37797                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
37798
37799         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Datatype_Data_Type_Owned_Attribute then
37800            --  Property::datatype : DataType
37801
37802            return
37803              AMF.Internals.Holders.UML_Holders.To_Holder
37804               (AMF.UML.Data_Types.UML_Data_Type_Access'
37805                 (AMF.UML.Properties.UML_Property_Access
37806                   (AMF.Internals.Helpers.To_Element (Self)).Get_Datatype));
37807
37808         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Default then
37809            --  Property::default : String
37810
37811            return
37812              AMF.Holders.To_Holder
37813               (AMF.UML.Properties.UML_Property_Access
37814                 (AMF.Internals.Helpers.To_Element (Self)).Get_Default);
37815
37816         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Default_Value_A_Owning_Property then
37817            --  Property::defaultValue : ValueSpecification
37818
37819            return
37820              AMF.Internals.Holders.UML_Holders.To_Holder
37821               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
37822                 (AMF.UML.Properties.UML_Property_Access
37823                   (AMF.Internals.Helpers.To_Element (Self)).Get_Default_Value));
37824
37825         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployed_Element_A_Deployment_Target then
37826            --  DeploymentTarget::deployedElement : PackageableElement
37827
37828            return
37829              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
37830               (AMF.UML.Properties.UML_Property_Access
37831                 (AMF.Internals.Helpers.To_Element (Self)).Get_Deployed_Element);
37832
37833         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Target_Deployment_Deployment_Location then
37834            --  DeploymentTarget::deployment : Deployment
37835
37836            return
37837              AMF.UML.Deployments.Collections.UML_Deployment_Collections.Internals.To_Holder
37838               (AMF.UML.Properties.UML_Property_Access
37839                 (AMF.Internals.Helpers.To_Element (Self)).Get_Deployment);
37840
37841         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connectable_Element_End_Connector_End_Role then
37842            --  ConnectableElement::end : ConnectorEnd
37843
37844            return
37845              AMF.UML.Connector_Ends.Collections.UML_Connector_End_Collections.Internals.To_Holder
37846               (AMF.UML.Properties.UML_Property_Access
37847                 (AMF.Internals.Helpers.To_Element (Self)).Get_End);
37848
37849         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Feature_Featuring_Classifier_Classifier_Feature then
37850            --  Feature::featuringClassifier : Classifier
37851
37852            return
37853              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
37854               (AMF.UML.Properties.UML_Property_Access
37855                 (AMF.Internals.Helpers.To_Element (Self)).Get_Featuring_Classifier);
37856
37857         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Interface_Interface_Owned_Attribute then
37858            --  Property::interface : Interface
37859
37860            return
37861              AMF.Internals.Holders.UML_Holders.To_Holder
37862               (AMF.UML.Interfaces.UML_Interface_Access'
37863                 (AMF.UML.Properties.UML_Property_Access
37864                   (AMF.Internals.Helpers.To_Element (Self)).Get_Interface));
37865
37866         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Is_Composite then
37867            --  Property::isComposite : Boolean
37868
37869            return
37870              League.Holders.Booleans.To_Holder
37871               (AMF.UML.Properties.UML_Property_Access
37872                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Composite);
37873
37874         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Is_Derived then
37875            --  Property::isDerived : Boolean
37876
37877            return
37878              League.Holders.Booleans.To_Holder
37879               (AMF.UML.Properties.UML_Property_Access
37880                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Derived);
37881
37882         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Is_Derived_Union then
37883            --  Property::isDerivedUnion : Boolean
37884
37885            return
37886              League.Holders.Booleans.To_Holder
37887               (AMF.UML.Properties.UML_Property_Access
37888                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Derived_Union);
37889
37890         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Is_ID then
37891            --  Property::isID : Boolean
37892
37893            return
37894              League.Holders.Booleans.To_Holder
37895               (AMF.UML.Properties.UML_Property_Access
37896                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_ID);
37897
37898         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
37899            --  RedefinableElement::isLeaf : Boolean
37900
37901            return
37902              League.Holders.Booleans.To_Holder
37903               (AMF.UML.Properties.UML_Property_Access
37904                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
37905
37906         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Ordered then
37907            --  MultiplicityElement::isOrdered : Boolean
37908
37909            return
37910              League.Holders.Booleans.To_Holder
37911               (AMF.UML.Properties.UML_Property_Access
37912                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Ordered);
37913
37914         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Is_Read_Only then
37915            --  Property::isReadOnly : Boolean
37916
37917            return
37918              League.Holders.Booleans.To_Holder
37919               (AMF.UML.Properties.UML_Property_Access
37920                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Read_Only);
37921
37922         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structural_Feature_Is_Read_Only then
37923            --  StructuralFeature::isReadOnly : Boolean
37924
37925            return
37926              League.Holders.Booleans.To_Holder
37927               (AMF.UML.Properties.UML_Property_Access
37928                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Read_Only);
37929
37930         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Feature_Is_Static then
37931            --  Feature::isStatic : Boolean
37932
37933            return
37934              League.Holders.Booleans.To_Holder
37935               (AMF.UML.Properties.UML_Property_Access
37936                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Static);
37937
37938         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Unique then
37939            --  MultiplicityElement::isUnique : Boolean
37940
37941            return
37942              League.Holders.Booleans.To_Holder
37943               (AMF.UML.Properties.UML_Property_Access
37944                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Unique);
37945
37946         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower then
37947            --  MultiplicityElement::lower : Integer
37948
37949            return
37950              AMF.Holders.To_Holder
37951               (AMF.UML.Properties.UML_Property_Access
37952                 (AMF.Internals.Helpers.To_Element (Self)).Get_Lower);
37953
37954         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower_Value_A_Owning_Lower then
37955            --  MultiplicityElement::lowerValue : ValueSpecification
37956
37957            return
37958              AMF.Internals.Holders.UML_Holders.To_Holder
37959               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
37960                 (AMF.UML.Properties.UML_Property_Access
37961                   (AMF.Internals.Helpers.To_Element (Self)).Get_Lower_Value));
37962
37963         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
37964            --  NamedElement::name : String
37965
37966            return
37967              AMF.Holders.To_Holder
37968               (AMF.UML.Properties.UML_Property_Access
37969                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
37970
37971         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
37972            --  NamedElement::nameExpression : StringExpression
37973
37974            return
37975              AMF.Internals.Holders.UML_Holders.To_Holder
37976               (AMF.UML.String_Expressions.UML_String_Expression_Access'
37977                 (AMF.UML.Properties.UML_Property_Access
37978                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
37979
37980         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
37981            --  NamedElement::namespace : Namespace
37982
37983            return
37984              AMF.Internals.Holders.UML_Holders.To_Holder
37985               (AMF.UML.Namespaces.UML_Namespace_Access'
37986                 (AMF.UML.Properties.UML_Property_Access
37987                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
37988
37989         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Opposite_A_Property then
37990            --  Property::opposite : Property
37991
37992            return
37993              AMF.Internals.Holders.UML_Holders.To_Holder
37994               (AMF.UML.Properties.UML_Property_Access'
37995                 (AMF.UML.Properties.UML_Property_Access
37996                   (AMF.Internals.Helpers.To_Element (Self)).Get_Opposite));
37997
37998         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
37999            --  Element::ownedComment : Comment
38000
38001            return
38002              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
38003               (AMF.UML.Properties.UML_Property_Access
38004                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
38005
38006         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
38007            --  Element::ownedElement : Element
38008
38009            return
38010              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
38011               (AMF.UML.Properties.UML_Property_Access
38012                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
38013
38014         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
38015            --  Element::owner : Element
38016
38017            return
38018              AMF.Internals.Holders.UML_Holders.To_Holder
38019               (AMF.UML.Elements.UML_Element_Access'
38020                 (AMF.UML.Properties.UML_Property_Access
38021                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
38022
38023         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Owning_Association_Association_Owned_End then
38024            --  Property::owningAssociation : Association
38025
38026            return
38027              AMF.Internals.Holders.UML_Holders.To_Holder
38028               (AMF.UML.Associations.UML_Association_Access'
38029                 (AMF.UML.Properties.UML_Property_Access
38030                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Association));
38031
38032         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
38033            --  ParameterableElement::owningTemplateParameter : TemplateParameter
38034
38035            return
38036              AMF.Internals.Holders.UML_Holders.To_Holder
38037               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
38038                 (AMF.UML.Properties.UML_Property_Access
38039                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
38040
38041         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
38042            --  NamedElement::qualifiedName : String
38043
38044            return
38045              AMF.Holders.To_Holder
38046               (AMF.UML.Properties.UML_Property_Access
38047                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
38048
38049         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Qualifier_Property_Association_End then
38050            --  Property::qualifier : Property
38051
38052            return
38053              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
38054               (AMF.UML.Properties.UML_Property_Access
38055                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualifier);
38056
38057         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
38058            --  RedefinableElement::redefinedElement : RedefinableElement
38059
38060            return
38061              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
38062               (AMF.UML.Properties.UML_Property_Access
38063                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
38064
38065         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Redefined_Property_A_Property then
38066            --  Property::redefinedProperty : Property
38067
38068            return
38069              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
38070               (AMF.UML.Properties.UML_Property_Access
38071                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Property);
38072
38073         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
38074            --  RedefinableElement::redefinitionContext : Classifier
38075
38076            return
38077              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
38078               (AMF.UML.Properties.UML_Property_Access
38079                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
38080
38081         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Subsetted_Property_A_Property then
38082            --  Property::subsettedProperty : Property
38083
38084            return
38085              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
38086               (AMF.UML.Properties.UML_Property_Access
38087                 (AMF.Internals.Helpers.To_Element (Self)).Get_Subsetted_Property);
38088
38089         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connectable_Element_Template_Parameter_Connectable_Element_Template_Parameter_Parametered_Element then
38090            --  ConnectableElement::templateParameter : ConnectableElementTemplateParameter
38091
38092            return
38093              AMF.Internals.Holders.UML_Holders.To_Holder
38094               (AMF.UML.Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Access'
38095                 (AMF.UML.Properties.UML_Property_Access
38096                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
38097
38098         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
38099            --  ParameterableElement::templateParameter : TemplateParameter
38100
38101            return
38102              AMF.Internals.Holders.UML_Holders.To_Holder
38103               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
38104                 (AMF.UML.Properties.UML_Property_Access
38105                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
38106
38107         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
38108            --  TypedElement::type : Type
38109
38110            return
38111              AMF.Internals.Holders.UML_Holders.To_Holder
38112               (AMF.UML.Types.UML_Type_Access'
38113                 (AMF.UML.Properties.UML_Property_Access
38114                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
38115
38116         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper then
38117            --  MultiplicityElement::upper : UnlimitedNatural
38118
38119            return
38120              AMF.Holders.To_Holder
38121               (AMF.UML.Properties.UML_Property_Access
38122                 (AMF.Internals.Helpers.To_Element (Self)).Get_Upper);
38123
38124         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper_Value_A_Owning_Upper then
38125            --  MultiplicityElement::upperValue : ValueSpecification
38126
38127            return
38128              AMF.Internals.Holders.UML_Holders.To_Holder
38129               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
38130                 (AMF.UML.Properties.UML_Property_Access
38131                   (AMF.Internals.Helpers.To_Element (Self)).Get_Upper_Value));
38132
38133         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
38134            --  NamedElement::visibility : VisibilityKind
38135
38136            return
38137              AMF.UML.Holders.To_Holder
38138               (AMF.UML.Properties.UML_Property_Access
38139                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
38140
38141         else
38142            raise Program_Error;
38143         end if;
38144      end UML_Property_Get;
38145
38146      ----------------------------------
38147      -- UML_Protocol_Conformance_Get --
38148      ----------------------------------
38149
38150      function UML_Protocol_Conformance_Get return League.Holders.Holder is
38151      begin
38152         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Protocol_Conformance_General_Machine_A_Protocol_Conformance then
38153            --  ProtocolConformance::generalMachine : ProtocolStateMachine
38154
38155            return
38156              AMF.Internals.Holders.UML_Holders.To_Holder
38157               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access'
38158                 (AMF.UML.Protocol_Conformances.UML_Protocol_Conformance_Access
38159                   (AMF.Internals.Helpers.To_Element (Self)).Get_General_Machine));
38160
38161         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
38162            --  Element::ownedComment : Comment
38163
38164            return
38165              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
38166               (AMF.UML.Protocol_Conformances.UML_Protocol_Conformance_Access
38167                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
38168
38169         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
38170            --  Element::ownedElement : Element
38171
38172            return
38173              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
38174               (AMF.UML.Protocol_Conformances.UML_Protocol_Conformance_Access
38175                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
38176
38177         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
38178            --  Element::owner : Element
38179
38180            return
38181              AMF.Internals.Holders.UML_Holders.To_Holder
38182               (AMF.UML.Elements.UML_Element_Access'
38183                 (AMF.UML.Protocol_Conformances.UML_Protocol_Conformance_Access
38184                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
38185
38186         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship then
38187            --  Relationship::relatedElement : Element
38188
38189            return
38190              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
38191               (AMF.UML.Protocol_Conformances.UML_Protocol_Conformance_Access
38192                 (AMF.Internals.Helpers.To_Element (Self)).Get_Related_Element);
38193
38194         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship then
38195            --  DirectedRelationship::source : Element
38196
38197            return
38198              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
38199               (AMF.UML.Protocol_Conformances.UML_Protocol_Conformance_Access
38200                 (AMF.Internals.Helpers.To_Element (Self)).Get_Source);
38201
38202         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Protocol_Conformance_Specific_Machine_Protocol_State_Machine_Conformance then
38203            --  ProtocolConformance::specificMachine : ProtocolStateMachine
38204
38205            return
38206              AMF.Internals.Holders.UML_Holders.To_Holder
38207               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access'
38208                 (AMF.UML.Protocol_Conformances.UML_Protocol_Conformance_Access
38209                   (AMF.Internals.Helpers.To_Element (Self)).Get_Specific_Machine));
38210
38211         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship then
38212            --  DirectedRelationship::target : Element
38213
38214            return
38215              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
38216               (AMF.UML.Protocol_Conformances.UML_Protocol_Conformance_Access
38217                 (AMF.Internals.Helpers.To_Element (Self)).Get_Target);
38218
38219         else
38220            raise Program_Error;
38221         end if;
38222      end UML_Protocol_Conformance_Get;
38223
38224      ------------------------------------
38225      -- UML_Protocol_State_Machine_Get --
38226      ------------------------------------
38227
38228      function UML_Protocol_State_Machine_Get return League.Holders.Holder is
38229      begin
38230         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier then
38231            --  Classifier::attribute : Property
38232
38233            return
38234              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
38235               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38236                 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute);
38237
38238         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
38239            --  BehavioredClassifier::classifierBehavior : Behavior
38240
38241            return
38242              AMF.Internals.Holders.UML_Holders.To_Holder
38243               (AMF.UML.Behaviors.UML_Behavior_Access'
38244                 (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38245                   (AMF.Internals.Helpers.To_Element (Self)).Get_Classifier_Behavior));
38246
38247         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
38248            --  NamedElement::clientDependency : Dependency
38249
38250            return
38251              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
38252               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38253                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
38254
38255         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier then
38256            --  Classifier::collaborationUse : CollaborationUse
38257
38258            return
38259              AMF.UML.Collaboration_Uses.Collections.UML_Collaboration_Use_Collections.Internals.To_Holder
38260               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38261                 (AMF.Internals.Helpers.To_Element (Self)).Get_Collaboration_Use);
38262
38263         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Protocol_State_Machine_Conformance_Protocol_Conformance_Specific_Machine then
38264            --  ProtocolStateMachine::conformance : ProtocolConformance
38265
38266            return
38267              AMF.UML.Protocol_Conformances.Collections.UML_Protocol_Conformance_Collections.Internals.To_Holder
38268               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38269                 (AMF.Internals.Helpers.To_Element (Self)).Get_Conformance);
38270
38271         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Machine_Connection_Point_Pseudostate_State_Machine then
38272            --  StateMachine::connectionPoint : Pseudostate
38273
38274            return
38275              AMF.UML.Pseudostates.Collections.UML_Pseudostate_Collections.Internals.To_Holder
38276               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38277                 (AMF.Internals.Helpers.To_Element (Self)).Get_Connection_Point);
38278
38279         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Context_A_Behavior then
38280            --  Behavior::context : BehavioredClassifier
38281
38282            return
38283              AMF.Internals.Holders.UML_Holders.To_Holder
38284               (AMF.UML.Behaviored_Classifiers.UML_Behaviored_Classifier_Access'
38285                 (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38286                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
38287
38288         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
38289            --  Namespace::elementImport : ElementImport
38290
38291            return
38292              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
38293               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38294                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
38295
38296         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Machine_Extended_State_Machine_A_State_Machine then
38297            --  StateMachine::extendedStateMachine : StateMachine
38298
38299            return
38300              AMF.UML.State_Machines.Collections.UML_State_Machine_Collections.Internals.To_Holder
38301               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38302                 (AMF.Internals.Helpers.To_Element (Self)).Get_Extended_State_Machine);
38303
38304         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Extension_Extension_Metaclass then
38305            --  Class::extension : Extension
38306
38307            return
38308              AMF.UML.Extensions.Collections.UML_Extension_Collections.Internals.To_Holder
38309               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38310                 (AMF.Internals.Helpers.To_Element (Self)).Get_Extension);
38311
38312         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier then
38313            --  Classifier::feature : Feature
38314
38315            return
38316              AMF.UML.Features.Collections.UML_Feature_Collections.Internals.To_Holder
38317               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38318                 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature);
38319
38320         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier then
38321            --  Classifier::general : Classifier
38322
38323            return
38324              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
38325               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38326                 (AMF.Internals.Helpers.To_Element (Self)).Get_General);
38327
38328         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific then
38329            --  Classifier::generalization : Generalization
38330
38331            return
38332              AMF.UML.Generalizations.Collections.UML_Generalization_Collections.Internals.To_Holder
38333               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38334                 (AMF.Internals.Helpers.To_Element (Self)).Get_Generalization);
38335
38336         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
38337            --  Namespace::importedMember : PackageableElement
38338
38339            return
38340              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
38341               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38342                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
38343
38344         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier then
38345            --  Classifier::inheritedMember : NamedElement
38346
38347            return
38348              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
38349               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38350                 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member);
38351
38352         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier then
38353            --  BehavioredClassifier::interfaceRealization : InterfaceRealization
38354
38355            return
38356              AMF.UML.Interface_Realizations.Collections.UML_Interface_Realization_Collections.Internals.To_Holder
38357               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38358                 (AMF.Internals.Helpers.To_Element (Self)).Get_Interface_Realization);
38359
38360         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Abstract then
38361            --  Class::isAbstract : Boolean
38362
38363            return
38364              League.Holders.Booleans.To_Holder
38365               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38366                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
38367
38368         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
38369            --  Classifier::isAbstract : Boolean
38370
38371            return
38372              League.Holders.Booleans.To_Holder
38373               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38374                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
38375
38376         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Active then
38377            --  Class::isActive : Boolean
38378
38379            return
38380              League.Holders.Booleans.To_Holder
38381               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38382                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Active);
38383
38384         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
38385            --  Classifier::isFinalSpecialization : Boolean
38386
38387            return
38388              League.Holders.Booleans.To_Holder
38389               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38390                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization);
38391
38392         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
38393            --  RedefinableElement::isLeaf : Boolean
38394
38395            return
38396              League.Holders.Booleans.To_Holder
38397               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38398                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
38399
38400         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Is_Reentrant then
38401            --  Behavior::isReentrant : Boolean
38402
38403            return
38404              League.Holders.Booleans.To_Holder
38405               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38406                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Reentrant);
38407
38408         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
38409            --  Namespace::member : NamedElement
38410
38411            return
38412              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
38413               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38414                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
38415
38416         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
38417            --  NamedElement::name : String
38418
38419            return
38420              AMF.Holders.To_Holder
38421               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38422                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
38423
38424         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
38425            --  NamedElement::nameExpression : StringExpression
38426
38427            return
38428              AMF.Internals.Holders.UML_Holders.To_Holder
38429               (AMF.UML.String_Expressions.UML_String_Expression_Access'
38430                 (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38431                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
38432
38433         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
38434            --  NamedElement::namespace : Namespace
38435
38436            return
38437              AMF.Internals.Holders.UML_Holders.To_Holder
38438               (AMF.UML.Namespaces.UML_Namespace_Access'
38439                 (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38440                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
38441
38442         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Nested_Classifier_A_Class then
38443            --  Class::nestedClassifier : Classifier
38444
38445            return
38446              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
38447               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38448                 (AMF.Internals.Helpers.To_Element (Self)).Get_Nested_Classifier);
38449
38450         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Attribute_Property_Class then
38451            --  Class::ownedAttribute : Property
38452
38453            return
38454              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
38455               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38456                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
38457
38458         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Attribute_A_Structured_Classifier then
38459            --  StructuredClassifier::ownedAttribute : Property
38460
38461            return
38462              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
38463               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38464                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
38465
38466         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier then
38467            --  BehavioredClassifier::ownedBehavior : Behavior
38468
38469            return
38470              AMF.UML.Behaviors.Collections.UML_Behavior_Collections.Internals.To_Holder
38471               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38472                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Behavior);
38473
38474         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
38475            --  Element::ownedComment : Comment
38476
38477            return
38478              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
38479               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38480                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
38481
38482         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Connector_A_Structured_Classifier then
38483            --  StructuredClassifier::ownedConnector : Connector
38484
38485            return
38486              AMF.UML.Connectors.Collections.UML_Connector_Collections.Internals.To_Holder
38487               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38488                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Connector);
38489
38490         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
38491            --  Element::ownedElement : Element
38492
38493            return
38494              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
38495               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38496                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
38497
38498         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
38499            --  Namespace::ownedMember : NamedElement
38500
38501            return
38502              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
38503               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38504                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
38505
38506         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Operation_Operation_Class then
38507            --  Class::ownedOperation : Operation
38508
38509            return
38510              AMF.UML.Operations.Collections.UML_Operation_Collections.Internals.To_Holder
38511               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38512                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Operation);
38513
38514         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Owned_Parameter_A_Behavior then
38515            --  Behavior::ownedParameter : Parameter
38516
38517            return
38518              AMF.UML.Parameters.Collections.UML_Parameter_Collections.Internals.To_Holder
38519               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38520                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Parameter);
38521
38522         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Owned_Parameter_Set_A_Behavior then
38523            --  Behavior::ownedParameterSet : ParameterSet
38524
38525            return
38526              AMF.UML.Parameter_Sets.Collections.UML_Parameter_Set_Collections.Internals.To_Holder
38527               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38528                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Parameter_Set);
38529
38530         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Encapsulated_Classifier_Owned_Port_A_Encapsulated_Classifier then
38531            --  EncapsulatedClassifier::ownedPort : Port
38532
38533            return
38534              AMF.UML.Ports.Collections.UML_Port_Collections.Internals.To_Holder
38535               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38536                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Port);
38537
38538         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Reception_A_Class then
38539            --  Class::ownedReception : Reception
38540
38541            return
38542              AMF.UML.Receptions.Collections.UML_Reception_Collections.Internals.To_Holder
38543               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38544                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Reception);
38545
38546         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
38547            --  Namespace::ownedRule : Constraint
38548
38549            return
38550              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
38551               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38552                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
38553
38554         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
38555            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
38556
38557            return
38558              AMF.Internals.Holders.UML_Holders.To_Holder
38559               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access'
38560                 (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38561                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
38562
38563         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
38564            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
38565
38566            return
38567              AMF.Internals.Holders.UML_Holders.To_Holder
38568               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
38569                 (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38570                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
38571
38572         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier then
38573            --  Classifier::ownedUseCase : UseCase
38574
38575            return
38576              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
38577               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38578                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Use_Case);
38579
38580         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
38581            --  Element::owner : Element
38582
38583            return
38584              AMF.Internals.Holders.UML_Holders.To_Holder
38585               (AMF.UML.Elements.UML_Element_Access'
38586                 (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38587                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
38588
38589         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
38590            --  ParameterableElement::owningTemplateParameter : TemplateParameter
38591
38592            return
38593              AMF.Internals.Holders.UML_Holders.To_Holder
38594               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
38595                 (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38596                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
38597
38598         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
38599            --  Type::package : Package
38600
38601            return
38602              AMF.Internals.Holders.UML_Holders.To_Holder
38603               (AMF.UML.Packages.UML_Package_Access'
38604                 (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38605                   (AMF.Internals.Helpers.To_Element (Self)).Get_Package));
38606
38607         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
38608            --  Namespace::packageImport : PackageImport
38609
38610            return
38611              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
38612               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38613                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
38614
38615         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Part_A_Structured_Classifier then
38616            --  StructuredClassifier::part : Property
38617
38618            return
38619              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
38620               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38621                 (AMF.Internals.Helpers.To_Element (Self)).Get_Part);
38622
38623         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Postcondition_A_Behavior then
38624            --  Behavior::postcondition : Constraint
38625
38626            return
38627              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
38628               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38629                 (AMF.Internals.Helpers.To_Element (Self)).Get_Postcondition);
38630
38631         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype then
38632            --  Classifier::powertypeExtent : GeneralizationSet
38633
38634            return
38635              AMF.UML.Generalization_Sets.Collections.UML_Generalization_Set_Collections.Internals.To_Holder
38636               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38637                 (AMF.Internals.Helpers.To_Element (Self)).Get_Powertype_Extent);
38638
38639         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Precondition_A_Behavior then
38640            --  Behavior::precondition : Constraint
38641
38642            return
38643              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
38644               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38645                 (AMF.Internals.Helpers.To_Element (Self)).Get_Precondition);
38646
38647         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
38648            --  NamedElement::qualifiedName : String
38649
38650            return
38651              AMF.Holders.To_Holder
38652               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38653                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
38654
38655         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Redefined_Behavior_A_Behavior then
38656            --  Behavior::redefinedBehavior : Behavior
38657
38658            return
38659              AMF.UML.Behaviors.Collections.UML_Behavior_Collections.Internals.To_Holder
38660               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38661                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Behavior);
38662
38663         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier then
38664            --  Classifier::redefinedClassifier : Classifier
38665
38666            return
38667              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
38668               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38669                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Classifier);
38670
38671         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
38672            --  RedefinableElement::redefinedElement : RedefinableElement
38673
38674            return
38675              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
38676               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38677                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
38678
38679         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
38680            --  RedefinableElement::redefinitionContext : Classifier
38681
38682            return
38683              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
38684               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38685                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
38686
38687         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Machine_Region_Region_State_Machine then
38688            --  StateMachine::region : Region
38689
38690            return
38691              AMF.UML.Regions.Collections.UML_Region_Collections.Internals.To_Holder
38692               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38693                 (AMF.Internals.Helpers.To_Element (Self)).Get_Region);
38694
38695         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
38696            --  Classifier::representation : CollaborationUse
38697
38698            return
38699              AMF.Internals.Holders.UML_Holders.To_Holder
38700               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access'
38701                 (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38702                   (AMF.Internals.Helpers.To_Element (Self)).Get_Representation));
38703
38704         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Role_A_Structured_Classifier then
38705            --  StructuredClassifier::role : ConnectableElement
38706
38707            return
38708              AMF.UML.Connectable_Elements.Collections.UML_Connectable_Element_Collections.Internals.To_Holder
38709               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38710                 (AMF.Internals.Helpers.To_Element (Self)).Get_Role);
38711
38712         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Specification_Behavioral_Feature_Method then
38713            --  Behavior::specification : BehavioralFeature
38714
38715            return
38716              AMF.Internals.Holders.UML_Holders.To_Holder
38717               (AMF.UML.Behavioral_Features.UML_Behavioral_Feature_Access'
38718                 (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38719                   (AMF.Internals.Helpers.To_Element (Self)).Get_Specification));
38720
38721         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Machine_Submachine_State_State_Submachine then
38722            --  StateMachine::submachineState : State
38723
38724            return
38725              AMF.UML.States.Collections.UML_State_Collections.Internals.To_Holder
38726               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38727                 (AMF.Internals.Helpers.To_Element (Self)).Get_Submachine_State);
38728
38729         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier then
38730            --  Classifier::substitution : Substitution
38731
38732            return
38733              AMF.UML.Substitutions.Collections.UML_Substitution_Collections.Internals.To_Holder
38734               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38735                 (AMF.Internals.Helpers.To_Element (Self)).Get_Substitution);
38736
38737         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Super_Class_A_Class then
38738            --  Class::superClass : Class
38739
38740            return
38741              AMF.UML.Classes.Collections.UML_Class_Collections.Internals.To_Holder
38742               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38743                 (AMF.Internals.Helpers.To_Element (Self)).Get_Super_Class);
38744
38745         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
38746            --  TemplateableElement::templateBinding : TemplateBinding
38747
38748            return
38749              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
38750               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38751                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
38752
38753         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
38754            --  Classifier::templateParameter : ClassifierTemplateParameter
38755
38756            return
38757              AMF.Internals.Holders.UML_Holders.To_Holder
38758               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access'
38759                 (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38760                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
38761
38762         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
38763            --  ParameterableElement::templateParameter : TemplateParameter
38764
38765            return
38766              AMF.Internals.Holders.UML_Holders.To_Holder
38767               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
38768                 (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38769                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
38770
38771         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject then
38772            --  Classifier::useCase : UseCase
38773
38774            return
38775              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
38776               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38777                 (AMF.Internals.Helpers.To_Element (Self)).Get_Use_Case);
38778
38779         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
38780            --  NamedElement::visibility : VisibilityKind
38781
38782            return
38783              AMF.UML.Holders.To_Holder
38784               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38785                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
38786
38787         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
38788            --  PackageableElement::visibility : VisibilityKind
38789
38790            return
38791              AMF.UML.Holders.Visibility_Kinds.To_Holder
38792               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
38793                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
38794
38795         else
38796            raise Program_Error;
38797         end if;
38798      end UML_Protocol_State_Machine_Get;
38799
38800      ---------------------------------
38801      -- UML_Protocol_Transition_Get --
38802      ---------------------------------
38803
38804      function UML_Protocol_Transition_Get return League.Holders.Holder is
38805      begin
38806         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
38807            --  NamedElement::clientDependency : Dependency
38808
38809            return
38810              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
38811               (AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
38812                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
38813
38814         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Container_Region_Transition then
38815            --  Transition::container : Region
38816
38817            return
38818              AMF.Internals.Holders.UML_Holders.To_Holder
38819               (AMF.UML.Regions.UML_Region_Access'
38820                 (AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
38821                   (AMF.Internals.Helpers.To_Element (Self)).Get_Container));
38822
38823         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Effect_A_Transition then
38824            --  Transition::effect : Behavior
38825
38826            return
38827              AMF.Internals.Holders.UML_Holders.To_Holder
38828               (AMF.UML.Behaviors.UML_Behavior_Access'
38829                 (AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
38830                   (AMF.Internals.Helpers.To_Element (Self)).Get_Effect));
38831
38832         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
38833            --  Namespace::elementImport : ElementImport
38834
38835            return
38836              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
38837               (AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
38838                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
38839
38840         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Guard_A_Transition then
38841            --  Transition::guard : Constraint
38842
38843            return
38844              AMF.Internals.Holders.UML_Holders.To_Holder
38845               (AMF.UML.Constraints.UML_Constraint_Access'
38846                 (AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
38847                   (AMF.Internals.Helpers.To_Element (Self)).Get_Guard));
38848
38849         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
38850            --  Namespace::importedMember : PackageableElement
38851
38852            return
38853              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
38854               (AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
38855                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
38856
38857         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
38858            --  RedefinableElement::isLeaf : Boolean
38859
38860            return
38861              League.Holders.Booleans.To_Holder
38862               (AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
38863                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
38864
38865         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Kind then
38866            --  Transition::kind : TransitionKind
38867
38868            return
38869              AMF.UML.Holders.Transition_Kinds.To_Holder
38870               (AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
38871                 (AMF.Internals.Helpers.To_Element (Self)).Get_Kind);
38872
38873         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
38874            --  Namespace::member : NamedElement
38875
38876            return
38877              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
38878               (AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
38879                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
38880
38881         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
38882            --  NamedElement::name : String
38883
38884            return
38885              AMF.Holders.To_Holder
38886               (AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
38887                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
38888
38889         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
38890            --  NamedElement::nameExpression : StringExpression
38891
38892            return
38893              AMF.Internals.Holders.UML_Holders.To_Holder
38894               (AMF.UML.String_Expressions.UML_String_Expression_Access'
38895                 (AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
38896                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
38897
38898         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
38899            --  NamedElement::namespace : Namespace
38900
38901            return
38902              AMF.Internals.Holders.UML_Holders.To_Holder
38903               (AMF.UML.Namespaces.UML_Namespace_Access'
38904                 (AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
38905                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
38906
38907         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
38908            --  Element::ownedComment : Comment
38909
38910            return
38911              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
38912               (AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
38913                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
38914
38915         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
38916            --  Element::ownedElement : Element
38917
38918            return
38919              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
38920               (AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
38921                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
38922
38923         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
38924            --  Namespace::ownedMember : NamedElement
38925
38926            return
38927              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
38928               (AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
38929                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
38930
38931         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
38932            --  Namespace::ownedRule : Constraint
38933
38934            return
38935              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
38936               (AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
38937                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
38938
38939         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
38940            --  Element::owner : Element
38941
38942            return
38943              AMF.Internals.Holders.UML_Holders.To_Holder
38944               (AMF.UML.Elements.UML_Element_Access'
38945                 (AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
38946                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
38947
38948         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
38949            --  Namespace::packageImport : PackageImport
38950
38951            return
38952              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
38953               (AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
38954                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
38955
38956         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Protocol_Transition_Post_Condition_A_Owning_Transition then
38957            --  ProtocolTransition::postCondition : Constraint
38958
38959            return
38960              AMF.Internals.Holders.UML_Holders.To_Holder
38961               (AMF.UML.Constraints.UML_Constraint_Access'
38962                 (AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
38963                   (AMF.Internals.Helpers.To_Element (Self)).Get_Post_Condition));
38964
38965         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Protocol_Transition_Pre_Condition_A_Protocol_Transition then
38966            --  ProtocolTransition::preCondition : Constraint
38967
38968            return
38969              AMF.Internals.Holders.UML_Holders.To_Holder
38970               (AMF.UML.Constraints.UML_Constraint_Access'
38971                 (AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
38972                   (AMF.Internals.Helpers.To_Element (Self)).Get_Pre_Condition));
38973
38974         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
38975            --  NamedElement::qualifiedName : String
38976
38977            return
38978              AMF.Holders.To_Holder
38979               (AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
38980                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
38981
38982         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
38983            --  RedefinableElement::redefinedElement : RedefinableElement
38984
38985            return
38986              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
38987               (AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
38988                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
38989
38990         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Redefined_Transition_A_Transition then
38991            --  Transition::redefinedTransition : Transition
38992
38993            return
38994              AMF.Internals.Holders.UML_Holders.To_Holder
38995               (AMF.UML.Transitions.UML_Transition_Access'
38996                 (AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
38997                   (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Transition));
38998
38999         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
39000            --  RedefinableElement::redefinitionContext : Classifier
39001
39002            return
39003              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
39004               (AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
39005                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
39006
39007         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Redefinition_Context_A_Transition then
39008            --  Transition::redefinitionContext : Classifier
39009
39010            return
39011              AMF.Internals.Holders.UML_Holders.To_Holder
39012               (AMF.UML.Classifiers.UML_Classifier_Access'
39013                 (AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
39014                   (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context));
39015
39016         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Protocol_Transition_Referred_A_Protocol_Transition then
39017            --  ProtocolTransition::referred : Operation
39018
39019            return
39020              AMF.UML.Operations.Collections.UML_Operation_Collections.Internals.To_Holder
39021               (AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
39022                 (AMF.Internals.Helpers.To_Element (Self)).Get_Referred);
39023
39024         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Source_Vertex_Outgoing then
39025            --  Transition::source : Vertex
39026
39027            return
39028              AMF.Internals.Holders.UML_Holders.To_Holder
39029               (AMF.UML.Vertexs.UML_Vertex_Access'
39030                 (AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
39031                   (AMF.Internals.Helpers.To_Element (Self)).Get_Source));
39032
39033         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Target_Vertex_Incoming then
39034            --  Transition::target : Vertex
39035
39036            return
39037              AMF.Internals.Holders.UML_Holders.To_Holder
39038               (AMF.UML.Vertexs.UML_Vertex_Access'
39039                 (AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
39040                   (AMF.Internals.Helpers.To_Element (Self)).Get_Target));
39041
39042         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Trigger_A_Transition then
39043            --  Transition::trigger : Trigger
39044
39045            return
39046              AMF.UML.Triggers.Collections.UML_Trigger_Collections.Internals.To_Holder
39047               (AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
39048                 (AMF.Internals.Helpers.To_Element (Self)).Get_Trigger);
39049
39050         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
39051            --  NamedElement::visibility : VisibilityKind
39052
39053            return
39054              AMF.UML.Holders.To_Holder
39055               (AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
39056                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
39057
39058         else
39059            raise Program_Error;
39060         end if;
39061      end UML_Protocol_Transition_Get;
39062
39063      -------------------------
39064      -- UML_Pseudostate_Get --
39065      -------------------------
39066
39067      function UML_Pseudostate_Get return League.Holders.Holder is
39068      begin
39069         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
39070            --  NamedElement::clientDependency : Dependency
39071
39072            return
39073              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
39074               (AMF.UML.Pseudostates.UML_Pseudostate_Access
39075                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
39076
39077         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Vertex_Container_Region_Subvertex then
39078            --  Vertex::container : Region
39079
39080            return
39081              AMF.Internals.Holders.UML_Holders.To_Holder
39082               (AMF.UML.Regions.UML_Region_Access'
39083                 (AMF.UML.Pseudostates.UML_Pseudostate_Access
39084                   (AMF.Internals.Helpers.To_Element (Self)).Get_Container));
39085
39086         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Vertex_Incoming_Transition_Target then
39087            --  Vertex::incoming : Transition
39088
39089            return
39090              AMF.UML.Transitions.Collections.UML_Transition_Collections.Internals.To_Holder
39091               (AMF.UML.Pseudostates.UML_Pseudostate_Access
39092                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
39093
39094         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Pseudostate_Kind then
39095            --  Pseudostate::kind : PseudostateKind
39096
39097            return
39098              AMF.UML.Holders.Pseudostate_Kinds.To_Holder
39099               (AMF.UML.Pseudostates.UML_Pseudostate_Access
39100                 (AMF.Internals.Helpers.To_Element (Self)).Get_Kind);
39101
39102         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
39103            --  NamedElement::name : String
39104
39105            return
39106              AMF.Holders.To_Holder
39107               (AMF.UML.Pseudostates.UML_Pseudostate_Access
39108                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
39109
39110         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
39111            --  NamedElement::nameExpression : StringExpression
39112
39113            return
39114              AMF.Internals.Holders.UML_Holders.To_Holder
39115               (AMF.UML.String_Expressions.UML_String_Expression_Access'
39116                 (AMF.UML.Pseudostates.UML_Pseudostate_Access
39117                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
39118
39119         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
39120            --  NamedElement::namespace : Namespace
39121
39122            return
39123              AMF.Internals.Holders.UML_Holders.To_Holder
39124               (AMF.UML.Namespaces.UML_Namespace_Access'
39125                 (AMF.UML.Pseudostates.UML_Pseudostate_Access
39126                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
39127
39128         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Vertex_Outgoing_Transition_Source then
39129            --  Vertex::outgoing : Transition
39130
39131            return
39132              AMF.UML.Transitions.Collections.UML_Transition_Collections.Internals.To_Holder
39133               (AMF.UML.Pseudostates.UML_Pseudostate_Access
39134                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
39135
39136         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
39137            --  Element::ownedComment : Comment
39138
39139            return
39140              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
39141               (AMF.UML.Pseudostates.UML_Pseudostate_Access
39142                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
39143
39144         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
39145            --  Element::ownedElement : Element
39146
39147            return
39148              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
39149               (AMF.UML.Pseudostates.UML_Pseudostate_Access
39150                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
39151
39152         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
39153            --  Element::owner : Element
39154
39155            return
39156              AMF.Internals.Holders.UML_Holders.To_Holder
39157               (AMF.UML.Elements.UML_Element_Access'
39158                 (AMF.UML.Pseudostates.UML_Pseudostate_Access
39159                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
39160
39161         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
39162            --  NamedElement::qualifiedName : String
39163
39164            return
39165              AMF.Holders.To_Holder
39166               (AMF.UML.Pseudostates.UML_Pseudostate_Access
39167                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
39168
39169         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Pseudostate_State_State_Connection_Point then
39170            --  Pseudostate::state : State
39171
39172            return
39173              AMF.Internals.Holders.UML_Holders.To_Holder
39174               (AMF.UML.States.UML_State_Access'
39175                 (AMF.UML.Pseudostates.UML_Pseudostate_Access
39176                   (AMF.Internals.Helpers.To_Element (Self)).Get_State));
39177
39178         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Pseudostate_State_Machine_State_Machine_Connection_Point then
39179            --  Pseudostate::stateMachine : StateMachine
39180
39181            return
39182              AMF.Internals.Holders.UML_Holders.To_Holder
39183               (AMF.UML.State_Machines.UML_State_Machine_Access'
39184                 (AMF.UML.Pseudostates.UML_Pseudostate_Access
39185                   (AMF.Internals.Helpers.To_Element (Self)).Get_State_Machine));
39186
39187         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
39188            --  NamedElement::visibility : VisibilityKind
39189
39190            return
39191              AMF.UML.Holders.To_Holder
39192               (AMF.UML.Pseudostates.UML_Pseudostate_Access
39193                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
39194
39195         else
39196            raise Program_Error;
39197         end if;
39198      end UML_Pseudostate_Get;
39199
39200      -----------------------------
39201      -- UML_Qualifier_Value_Get --
39202      -----------------------------
39203
39204      function UML_Qualifier_Value_Get return League.Holders.Holder is
39205      begin
39206         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
39207            --  Element::ownedComment : Comment
39208
39209            return
39210              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
39211               (AMF.UML.Qualifier_Values.UML_Qualifier_Value_Access
39212                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
39213
39214         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
39215            --  Element::ownedElement : Element
39216
39217            return
39218              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
39219               (AMF.UML.Qualifier_Values.UML_Qualifier_Value_Access
39220                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
39221
39222         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
39223            --  Element::owner : Element
39224
39225            return
39226              AMF.Internals.Holders.UML_Holders.To_Holder
39227               (AMF.UML.Elements.UML_Element_Access'
39228                 (AMF.UML.Qualifier_Values.UML_Qualifier_Value_Access
39229                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
39230
39231         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Qualifier_Value_Qualifier_A_Qualifier_Value then
39232            --  QualifierValue::qualifier : Property
39233
39234            return
39235              AMF.Internals.Holders.UML_Holders.To_Holder
39236               (AMF.UML.Properties.UML_Property_Access'
39237                 (AMF.UML.Qualifier_Values.UML_Qualifier_Value_Access
39238                   (AMF.Internals.Helpers.To_Element (Self)).Get_Qualifier));
39239
39240         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Qualifier_Value_Value_A_Qualifier_Value then
39241            --  QualifierValue::value : InputPin
39242
39243            return
39244              AMF.Internals.Holders.UML_Holders.To_Holder
39245               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
39246                 (AMF.UML.Qualifier_Values.UML_Qualifier_Value_Access
39247                   (AMF.Internals.Helpers.To_Element (Self)).Get_Value));
39248
39249         else
39250            raise Program_Error;
39251         end if;
39252      end UML_Qualifier_Value_Get;
39253
39254      ------------------------------------
39255      -- UML_Raise_Exception_Action_Get --
39256      ------------------------------------
39257
39258      function UML_Raise_Exception_Action_Get return League.Holders.Holder is
39259      begin
39260         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
39261            --  ActivityNode::activity : Activity
39262
39263            return
39264              AMF.Internals.Holders.UML_Holders.To_Holder
39265               (AMF.UML.Activities.UML_Activity_Access'
39266                 (AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
39267                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
39268
39269         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
39270            --  NamedElement::clientDependency : Dependency
39271
39272            return
39273              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
39274               (AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
39275                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
39276
39277         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
39278            --  Action::context : Classifier
39279
39280            return
39281              AMF.Internals.Holders.UML_Holders.To_Holder
39282               (AMF.UML.Classifiers.UML_Classifier_Access'
39283                 (AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
39284                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
39285
39286         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Raise_Exception_Action_Exception_A_Raise_Exception_Action then
39287            --  RaiseExceptionAction::exception : InputPin
39288
39289            return
39290              AMF.Internals.Holders.UML_Holders.To_Holder
39291               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
39292                 (AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
39293                   (AMF.Internals.Helpers.To_Element (Self)).Get_Exception));
39294
39295         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
39296            --  ExecutableNode::handler : ExceptionHandler
39297
39298            return
39299              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
39300               (AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
39301                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
39302
39303         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
39304            --  ActivityNode::inGroup : ActivityGroup
39305
39306            return
39307              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
39308               (AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
39309                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
39310
39311         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
39312            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
39313
39314            return
39315              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
39316               (AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
39317                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
39318
39319         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
39320            --  ActivityNode::inPartition : ActivityPartition
39321
39322            return
39323              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
39324               (AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
39325                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
39326
39327         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
39328            --  ActivityNode::inStructuredNode : StructuredActivityNode
39329
39330            return
39331              AMF.Internals.Holders.UML_Holders.To_Holder
39332               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
39333                 (AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
39334                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
39335
39336         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
39337            --  ActivityNode::incoming : ActivityEdge
39338
39339            return
39340              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
39341               (AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
39342                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
39343
39344         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
39345            --  Action::input : InputPin
39346
39347            return
39348              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
39349               (AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
39350                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
39351
39352         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
39353            --  RedefinableElement::isLeaf : Boolean
39354
39355            return
39356              League.Holders.Booleans.To_Holder
39357               (AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
39358                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
39359
39360         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
39361            --  Action::isLocallyReentrant : Boolean
39362
39363            return
39364              League.Holders.Booleans.To_Holder
39365               (AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
39366                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
39367
39368         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
39369            --  Action::localPostcondition : Constraint
39370
39371            return
39372              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
39373               (AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
39374                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
39375
39376         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
39377            --  Action::localPrecondition : Constraint
39378
39379            return
39380              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
39381               (AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
39382                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
39383
39384         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
39385            --  NamedElement::name : String
39386
39387            return
39388              AMF.Holders.To_Holder
39389               (AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
39390                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
39391
39392         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
39393            --  NamedElement::nameExpression : StringExpression
39394
39395            return
39396              AMF.Internals.Holders.UML_Holders.To_Holder
39397               (AMF.UML.String_Expressions.UML_String_Expression_Access'
39398                 (AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
39399                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
39400
39401         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
39402            --  NamedElement::namespace : Namespace
39403
39404            return
39405              AMF.Internals.Holders.UML_Holders.To_Holder
39406               (AMF.UML.Namespaces.UML_Namespace_Access'
39407                 (AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
39408                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
39409
39410         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
39411            --  ActivityNode::outgoing : ActivityEdge
39412
39413            return
39414              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
39415               (AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
39416                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
39417
39418         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
39419            --  Action::output : OutputPin
39420
39421            return
39422              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
39423               (AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
39424                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
39425
39426         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
39427            --  Element::ownedComment : Comment
39428
39429            return
39430              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
39431               (AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
39432                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
39433
39434         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
39435            --  Element::ownedElement : Element
39436
39437            return
39438              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
39439               (AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
39440                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
39441
39442         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
39443            --  Element::owner : Element
39444
39445            return
39446              AMF.Internals.Holders.UML_Holders.To_Holder
39447               (AMF.UML.Elements.UML_Element_Access'
39448                 (AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
39449                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
39450
39451         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
39452            --  NamedElement::qualifiedName : String
39453
39454            return
39455              AMF.Holders.To_Holder
39456               (AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
39457                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
39458
39459         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
39460            --  RedefinableElement::redefinedElement : RedefinableElement
39461
39462            return
39463              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
39464               (AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
39465                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
39466
39467         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
39468            --  ActivityNode::redefinedNode : ActivityNode
39469
39470            return
39471              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
39472               (AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
39473                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
39474
39475         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
39476            --  RedefinableElement::redefinitionContext : Classifier
39477
39478            return
39479              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
39480               (AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
39481                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
39482
39483         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
39484            --  NamedElement::visibility : VisibilityKind
39485
39486            return
39487              AMF.UML.Holders.To_Holder
39488               (AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
39489                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
39490
39491         else
39492            raise Program_Error;
39493         end if;
39494      end UML_Raise_Exception_Action_Get;
39495
39496      --------------------------------
39497      -- UML_Read_Extent_Action_Get --
39498      --------------------------------
39499
39500      function UML_Read_Extent_Action_Get return League.Holders.Holder is
39501      begin
39502         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
39503            --  ActivityNode::activity : Activity
39504
39505            return
39506              AMF.Internals.Holders.UML_Holders.To_Holder
39507               (AMF.UML.Activities.UML_Activity_Access'
39508                 (AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
39509                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
39510
39511         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Extent_Action_Classifier_A_Read_Extent_Action then
39512            --  ReadExtentAction::classifier : Classifier
39513
39514            return
39515              AMF.Internals.Holders.UML_Holders.To_Holder
39516               (AMF.UML.Classifiers.UML_Classifier_Access'
39517                 (AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
39518                   (AMF.Internals.Helpers.To_Element (Self)).Get_Classifier));
39519
39520         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
39521            --  NamedElement::clientDependency : Dependency
39522
39523            return
39524              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
39525               (AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
39526                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
39527
39528         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
39529            --  Action::context : Classifier
39530
39531            return
39532              AMF.Internals.Holders.UML_Holders.To_Holder
39533               (AMF.UML.Classifiers.UML_Classifier_Access'
39534                 (AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
39535                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
39536
39537         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
39538            --  ExecutableNode::handler : ExceptionHandler
39539
39540            return
39541              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
39542               (AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
39543                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
39544
39545         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
39546            --  ActivityNode::inGroup : ActivityGroup
39547
39548            return
39549              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
39550               (AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
39551                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
39552
39553         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
39554            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
39555
39556            return
39557              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
39558               (AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
39559                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
39560
39561         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
39562            --  ActivityNode::inPartition : ActivityPartition
39563
39564            return
39565              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
39566               (AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
39567                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
39568
39569         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
39570            --  ActivityNode::inStructuredNode : StructuredActivityNode
39571
39572            return
39573              AMF.Internals.Holders.UML_Holders.To_Holder
39574               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
39575                 (AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
39576                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
39577
39578         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
39579            --  ActivityNode::incoming : ActivityEdge
39580
39581            return
39582              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
39583               (AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
39584                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
39585
39586         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
39587            --  Action::input : InputPin
39588
39589            return
39590              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
39591               (AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
39592                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
39593
39594         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
39595            --  RedefinableElement::isLeaf : Boolean
39596
39597            return
39598              League.Holders.Booleans.To_Holder
39599               (AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
39600                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
39601
39602         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
39603            --  Action::isLocallyReentrant : Boolean
39604
39605            return
39606              League.Holders.Booleans.To_Holder
39607               (AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
39608                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
39609
39610         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
39611            --  Action::localPostcondition : Constraint
39612
39613            return
39614              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
39615               (AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
39616                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
39617
39618         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
39619            --  Action::localPrecondition : Constraint
39620
39621            return
39622              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
39623               (AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
39624                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
39625
39626         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
39627            --  NamedElement::name : String
39628
39629            return
39630              AMF.Holders.To_Holder
39631               (AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
39632                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
39633
39634         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
39635            --  NamedElement::nameExpression : StringExpression
39636
39637            return
39638              AMF.Internals.Holders.UML_Holders.To_Holder
39639               (AMF.UML.String_Expressions.UML_String_Expression_Access'
39640                 (AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
39641                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
39642
39643         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
39644            --  NamedElement::namespace : Namespace
39645
39646            return
39647              AMF.Internals.Holders.UML_Holders.To_Holder
39648               (AMF.UML.Namespaces.UML_Namespace_Access'
39649                 (AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
39650                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
39651
39652         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
39653            --  ActivityNode::outgoing : ActivityEdge
39654
39655            return
39656              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
39657               (AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
39658                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
39659
39660         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
39661            --  Action::output : OutputPin
39662
39663            return
39664              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
39665               (AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
39666                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
39667
39668         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
39669            --  Element::ownedComment : Comment
39670
39671            return
39672              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
39673               (AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
39674                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
39675
39676         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
39677            --  Element::ownedElement : Element
39678
39679            return
39680              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
39681               (AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
39682                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
39683
39684         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
39685            --  Element::owner : Element
39686
39687            return
39688              AMF.Internals.Holders.UML_Holders.To_Holder
39689               (AMF.UML.Elements.UML_Element_Access'
39690                 (AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
39691                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
39692
39693         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
39694            --  NamedElement::qualifiedName : String
39695
39696            return
39697              AMF.Holders.To_Holder
39698               (AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
39699                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
39700
39701         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
39702            --  RedefinableElement::redefinedElement : RedefinableElement
39703
39704            return
39705              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
39706               (AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
39707                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
39708
39709         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
39710            --  ActivityNode::redefinedNode : ActivityNode
39711
39712            return
39713              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
39714               (AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
39715                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
39716
39717         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
39718            --  RedefinableElement::redefinitionContext : Classifier
39719
39720            return
39721              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
39722               (AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
39723                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
39724
39725         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Extent_Action_Result_A_Read_Extent_Action then
39726            --  ReadExtentAction::result : OutputPin
39727
39728            return
39729              AMF.Internals.Holders.UML_Holders.To_Holder
39730               (AMF.UML.Output_Pins.UML_Output_Pin_Access'
39731                 (AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
39732                   (AMF.Internals.Helpers.To_Element (Self)).Get_Result));
39733
39734         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
39735            --  NamedElement::visibility : VisibilityKind
39736
39737            return
39738              AMF.UML.Holders.To_Holder
39739               (AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
39740                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
39741
39742         else
39743            raise Program_Error;
39744         end if;
39745      end UML_Read_Extent_Action_Get;
39746
39747      ----------------------------------------------
39748      -- UML_Read_Is_Classified_Object_Action_Get --
39749      ----------------------------------------------
39750
39751      function UML_Read_Is_Classified_Object_Action_Get return League.Holders.Holder is
39752      begin
39753         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
39754            --  ActivityNode::activity : Activity
39755
39756            return
39757              AMF.Internals.Holders.UML_Holders.To_Holder
39758               (AMF.UML.Activities.UML_Activity_Access'
39759                 (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
39760                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
39761
39762         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Is_Classified_Object_Action_Classifier_A_Read_Is_Classified_Object_Action then
39763            --  ReadIsClassifiedObjectAction::classifier : Classifier
39764
39765            return
39766              AMF.Internals.Holders.UML_Holders.To_Holder
39767               (AMF.UML.Classifiers.UML_Classifier_Access'
39768                 (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
39769                   (AMF.Internals.Helpers.To_Element (Self)).Get_Classifier));
39770
39771         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
39772            --  NamedElement::clientDependency : Dependency
39773
39774            return
39775              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
39776               (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
39777                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
39778
39779         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
39780            --  Action::context : Classifier
39781
39782            return
39783              AMF.Internals.Holders.UML_Holders.To_Holder
39784               (AMF.UML.Classifiers.UML_Classifier_Access'
39785                 (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
39786                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
39787
39788         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
39789            --  ExecutableNode::handler : ExceptionHandler
39790
39791            return
39792              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
39793               (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
39794                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
39795
39796         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
39797            --  ActivityNode::inGroup : ActivityGroup
39798
39799            return
39800              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
39801               (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
39802                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
39803
39804         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
39805            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
39806
39807            return
39808              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
39809               (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
39810                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
39811
39812         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
39813            --  ActivityNode::inPartition : ActivityPartition
39814
39815            return
39816              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
39817               (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
39818                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
39819
39820         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
39821            --  ActivityNode::inStructuredNode : StructuredActivityNode
39822
39823            return
39824              AMF.Internals.Holders.UML_Holders.To_Holder
39825               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
39826                 (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
39827                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
39828
39829         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
39830            --  ActivityNode::incoming : ActivityEdge
39831
39832            return
39833              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
39834               (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
39835                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
39836
39837         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
39838            --  Action::input : InputPin
39839
39840            return
39841              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
39842               (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
39843                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
39844
39845         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Is_Classified_Object_Action_Is_Direct then
39846            --  ReadIsClassifiedObjectAction::isDirect : Boolean
39847
39848            return
39849              League.Holders.Booleans.To_Holder
39850               (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
39851                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Direct);
39852
39853         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
39854            --  RedefinableElement::isLeaf : Boolean
39855
39856            return
39857              League.Holders.Booleans.To_Holder
39858               (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
39859                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
39860
39861         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
39862            --  Action::isLocallyReentrant : Boolean
39863
39864            return
39865              League.Holders.Booleans.To_Holder
39866               (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
39867                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
39868
39869         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
39870            --  Action::localPostcondition : Constraint
39871
39872            return
39873              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
39874               (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
39875                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
39876
39877         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
39878            --  Action::localPrecondition : Constraint
39879
39880            return
39881              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
39882               (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
39883                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
39884
39885         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
39886            --  NamedElement::name : String
39887
39888            return
39889              AMF.Holders.To_Holder
39890               (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
39891                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
39892
39893         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
39894            --  NamedElement::nameExpression : StringExpression
39895
39896            return
39897              AMF.Internals.Holders.UML_Holders.To_Holder
39898               (AMF.UML.String_Expressions.UML_String_Expression_Access'
39899                 (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
39900                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
39901
39902         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
39903            --  NamedElement::namespace : Namespace
39904
39905            return
39906              AMF.Internals.Holders.UML_Holders.To_Holder
39907               (AMF.UML.Namespaces.UML_Namespace_Access'
39908                 (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
39909                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
39910
39911         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Is_Classified_Object_Action_Object_A_Read_Is_Classified_Object_Action then
39912            --  ReadIsClassifiedObjectAction::object : InputPin
39913
39914            return
39915              AMF.Internals.Holders.UML_Holders.To_Holder
39916               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
39917                 (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
39918                   (AMF.Internals.Helpers.To_Element (Self)).Get_Object));
39919
39920         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
39921            --  ActivityNode::outgoing : ActivityEdge
39922
39923            return
39924              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
39925               (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
39926                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
39927
39928         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
39929            --  Action::output : OutputPin
39930
39931            return
39932              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
39933               (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
39934                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
39935
39936         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
39937            --  Element::ownedComment : Comment
39938
39939            return
39940              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
39941               (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
39942                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
39943
39944         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
39945            --  Element::ownedElement : Element
39946
39947            return
39948              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
39949               (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
39950                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
39951
39952         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
39953            --  Element::owner : Element
39954
39955            return
39956              AMF.Internals.Holders.UML_Holders.To_Holder
39957               (AMF.UML.Elements.UML_Element_Access'
39958                 (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
39959                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
39960
39961         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
39962            --  NamedElement::qualifiedName : String
39963
39964            return
39965              AMF.Holders.To_Holder
39966               (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
39967                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
39968
39969         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
39970            --  RedefinableElement::redefinedElement : RedefinableElement
39971
39972            return
39973              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
39974               (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
39975                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
39976
39977         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
39978            --  ActivityNode::redefinedNode : ActivityNode
39979
39980            return
39981              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
39982               (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
39983                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
39984
39985         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
39986            --  RedefinableElement::redefinitionContext : Classifier
39987
39988            return
39989              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
39990               (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
39991                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
39992
39993         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Is_Classified_Object_Action_Result_A_Read_Is_Classified_Object_Action then
39994            --  ReadIsClassifiedObjectAction::result : OutputPin
39995
39996            return
39997              AMF.Internals.Holders.UML_Holders.To_Holder
39998               (AMF.UML.Output_Pins.UML_Output_Pin_Access'
39999                 (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
40000                   (AMF.Internals.Helpers.To_Element (Self)).Get_Result));
40001
40002         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
40003            --  NamedElement::visibility : VisibilityKind
40004
40005            return
40006              AMF.UML.Holders.To_Holder
40007               (AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
40008                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
40009
40010         else
40011            raise Program_Error;
40012         end if;
40013      end UML_Read_Is_Classified_Object_Action_Get;
40014
40015      ------------------------------
40016      -- UML_Read_Link_Action_Get --
40017      ------------------------------
40018
40019      function UML_Read_Link_Action_Get return League.Holders.Holder is
40020      begin
40021         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
40022            --  ActivityNode::activity : Activity
40023
40024            return
40025              AMF.Internals.Holders.UML_Holders.To_Holder
40026               (AMF.UML.Activities.UML_Activity_Access'
40027                 (AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
40028                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
40029
40030         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
40031            --  NamedElement::clientDependency : Dependency
40032
40033            return
40034              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
40035               (AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
40036                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
40037
40038         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
40039            --  Action::context : Classifier
40040
40041            return
40042              AMF.Internals.Holders.UML_Holders.To_Holder
40043               (AMF.UML.Classifiers.UML_Classifier_Access'
40044                 (AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
40045                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
40046
40047         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_Action_End_Data_A_Link_Action then
40048            --  LinkAction::endData : LinkEndData
40049
40050            return
40051              AMF.UML.Link_End_Datas.Collections.UML_Link_End_Data_Collections.Internals.To_Holder
40052               (AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
40053                 (AMF.Internals.Helpers.To_Element (Self)).Get_End_Data);
40054
40055         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
40056            --  ExecutableNode::handler : ExceptionHandler
40057
40058            return
40059              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
40060               (AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
40061                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
40062
40063         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
40064            --  ActivityNode::inGroup : ActivityGroup
40065
40066            return
40067              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
40068               (AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
40069                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
40070
40071         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
40072            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
40073
40074            return
40075              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
40076               (AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
40077                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
40078
40079         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
40080            --  ActivityNode::inPartition : ActivityPartition
40081
40082            return
40083              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
40084               (AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
40085                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
40086
40087         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
40088            --  ActivityNode::inStructuredNode : StructuredActivityNode
40089
40090            return
40091              AMF.Internals.Holders.UML_Holders.To_Holder
40092               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
40093                 (AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
40094                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
40095
40096         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
40097            --  ActivityNode::incoming : ActivityEdge
40098
40099            return
40100              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
40101               (AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
40102                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
40103
40104         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
40105            --  Action::input : InputPin
40106
40107            return
40108              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
40109               (AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
40110                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
40111
40112         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_Action_Input_Value_A_Link_Action then
40113            --  LinkAction::inputValue : InputPin
40114
40115            return
40116              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
40117               (AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
40118                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input_Value);
40119
40120         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
40121            --  RedefinableElement::isLeaf : Boolean
40122
40123            return
40124              League.Holders.Booleans.To_Holder
40125               (AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
40126                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
40127
40128         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
40129            --  Action::isLocallyReentrant : Boolean
40130
40131            return
40132              League.Holders.Booleans.To_Holder
40133               (AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
40134                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
40135
40136         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
40137            --  Action::localPostcondition : Constraint
40138
40139            return
40140              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
40141               (AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
40142                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
40143
40144         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
40145            --  Action::localPrecondition : Constraint
40146
40147            return
40148              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
40149               (AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
40150                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
40151
40152         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
40153            --  NamedElement::name : String
40154
40155            return
40156              AMF.Holders.To_Holder
40157               (AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
40158                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
40159
40160         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
40161            --  NamedElement::nameExpression : StringExpression
40162
40163            return
40164              AMF.Internals.Holders.UML_Holders.To_Holder
40165               (AMF.UML.String_Expressions.UML_String_Expression_Access'
40166                 (AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
40167                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
40168
40169         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
40170            --  NamedElement::namespace : Namespace
40171
40172            return
40173              AMF.Internals.Holders.UML_Holders.To_Holder
40174               (AMF.UML.Namespaces.UML_Namespace_Access'
40175                 (AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
40176                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
40177
40178         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
40179            --  ActivityNode::outgoing : ActivityEdge
40180
40181            return
40182              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
40183               (AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
40184                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
40185
40186         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
40187            --  Action::output : OutputPin
40188
40189            return
40190              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
40191               (AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
40192                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
40193
40194         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
40195            --  Element::ownedComment : Comment
40196
40197            return
40198              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
40199               (AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
40200                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
40201
40202         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
40203            --  Element::ownedElement : Element
40204
40205            return
40206              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
40207               (AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
40208                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
40209
40210         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
40211            --  Element::owner : Element
40212
40213            return
40214              AMF.Internals.Holders.UML_Holders.To_Holder
40215               (AMF.UML.Elements.UML_Element_Access'
40216                 (AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
40217                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
40218
40219         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
40220            --  NamedElement::qualifiedName : String
40221
40222            return
40223              AMF.Holders.To_Holder
40224               (AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
40225                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
40226
40227         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
40228            --  RedefinableElement::redefinedElement : RedefinableElement
40229
40230            return
40231              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
40232               (AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
40233                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
40234
40235         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
40236            --  ActivityNode::redefinedNode : ActivityNode
40237
40238            return
40239              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
40240               (AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
40241                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
40242
40243         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
40244            --  RedefinableElement::redefinitionContext : Classifier
40245
40246            return
40247              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
40248               (AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
40249                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
40250
40251         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Link_Action_Result_A_Read_Link_Action then
40252            --  ReadLinkAction::result : OutputPin
40253
40254            return
40255              AMF.Internals.Holders.UML_Holders.To_Holder
40256               (AMF.UML.Output_Pins.UML_Output_Pin_Access'
40257                 (AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
40258                   (AMF.Internals.Helpers.To_Element (Self)).Get_Result));
40259
40260         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
40261            --  NamedElement::visibility : VisibilityKind
40262
40263            return
40264              AMF.UML.Holders.To_Holder
40265               (AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
40266                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
40267
40268         else
40269            raise Program_Error;
40270         end if;
40271      end UML_Read_Link_Action_Get;
40272
40273      -----------------------------------------
40274      -- UML_Read_Link_Object_End_Action_Get --
40275      -----------------------------------------
40276
40277      function UML_Read_Link_Object_End_Action_Get return League.Holders.Holder is
40278      begin
40279         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
40280            --  ActivityNode::activity : Activity
40281
40282            return
40283              AMF.Internals.Holders.UML_Holders.To_Holder
40284               (AMF.UML.Activities.UML_Activity_Access'
40285                 (AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
40286                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
40287
40288         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
40289            --  NamedElement::clientDependency : Dependency
40290
40291            return
40292              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
40293               (AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
40294                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
40295
40296         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
40297            --  Action::context : Classifier
40298
40299            return
40300              AMF.Internals.Holders.UML_Holders.To_Holder
40301               (AMF.UML.Classifiers.UML_Classifier_Access'
40302                 (AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
40303                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
40304
40305         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Link_Object_End_Action_End_A_Read_Link_Object_End_Action then
40306            --  ReadLinkObjectEndAction::end : Property
40307
40308            return
40309              AMF.Internals.Holders.UML_Holders.To_Holder
40310               (AMF.UML.Properties.UML_Property_Access'
40311                 (AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
40312                   (AMF.Internals.Helpers.To_Element (Self)).Get_End));
40313
40314         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
40315            --  ExecutableNode::handler : ExceptionHandler
40316
40317            return
40318              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
40319               (AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
40320                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
40321
40322         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
40323            --  ActivityNode::inGroup : ActivityGroup
40324
40325            return
40326              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
40327               (AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
40328                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
40329
40330         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
40331            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
40332
40333            return
40334              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
40335               (AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
40336                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
40337
40338         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
40339            --  ActivityNode::inPartition : ActivityPartition
40340
40341            return
40342              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
40343               (AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
40344                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
40345
40346         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
40347            --  ActivityNode::inStructuredNode : StructuredActivityNode
40348
40349            return
40350              AMF.Internals.Holders.UML_Holders.To_Holder
40351               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
40352                 (AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
40353                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
40354
40355         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
40356            --  ActivityNode::incoming : ActivityEdge
40357
40358            return
40359              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
40360               (AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
40361                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
40362
40363         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
40364            --  Action::input : InputPin
40365
40366            return
40367              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
40368               (AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
40369                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
40370
40371         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
40372            --  RedefinableElement::isLeaf : Boolean
40373
40374            return
40375              League.Holders.Booleans.To_Holder
40376               (AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
40377                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
40378
40379         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
40380            --  Action::isLocallyReentrant : Boolean
40381
40382            return
40383              League.Holders.Booleans.To_Holder
40384               (AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
40385                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
40386
40387         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
40388            --  Action::localPostcondition : Constraint
40389
40390            return
40391              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
40392               (AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
40393                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
40394
40395         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
40396            --  Action::localPrecondition : Constraint
40397
40398            return
40399              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
40400               (AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
40401                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
40402
40403         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
40404            --  NamedElement::name : String
40405
40406            return
40407              AMF.Holders.To_Holder
40408               (AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
40409                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
40410
40411         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
40412            --  NamedElement::nameExpression : StringExpression
40413
40414            return
40415              AMF.Internals.Holders.UML_Holders.To_Holder
40416               (AMF.UML.String_Expressions.UML_String_Expression_Access'
40417                 (AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
40418                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
40419
40420         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
40421            --  NamedElement::namespace : Namespace
40422
40423            return
40424              AMF.Internals.Holders.UML_Holders.To_Holder
40425               (AMF.UML.Namespaces.UML_Namespace_Access'
40426                 (AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
40427                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
40428
40429         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Link_Object_End_Action_Object_A_Read_Link_Object_End_Action then
40430            --  ReadLinkObjectEndAction::object : InputPin
40431
40432            return
40433              AMF.Internals.Holders.UML_Holders.To_Holder
40434               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
40435                 (AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
40436                   (AMF.Internals.Helpers.To_Element (Self)).Get_Object));
40437
40438         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
40439            --  ActivityNode::outgoing : ActivityEdge
40440
40441            return
40442              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
40443               (AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
40444                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
40445
40446         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
40447            --  Action::output : OutputPin
40448
40449            return
40450              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
40451               (AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
40452                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
40453
40454         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
40455            --  Element::ownedComment : Comment
40456
40457            return
40458              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
40459               (AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
40460                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
40461
40462         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
40463            --  Element::ownedElement : Element
40464
40465            return
40466              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
40467               (AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
40468                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
40469
40470         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
40471            --  Element::owner : Element
40472
40473            return
40474              AMF.Internals.Holders.UML_Holders.To_Holder
40475               (AMF.UML.Elements.UML_Element_Access'
40476                 (AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
40477                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
40478
40479         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
40480            --  NamedElement::qualifiedName : String
40481
40482            return
40483              AMF.Holders.To_Holder
40484               (AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
40485                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
40486
40487         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
40488            --  RedefinableElement::redefinedElement : RedefinableElement
40489
40490            return
40491              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
40492               (AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
40493                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
40494
40495         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
40496            --  ActivityNode::redefinedNode : ActivityNode
40497
40498            return
40499              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
40500               (AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
40501                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
40502
40503         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
40504            --  RedefinableElement::redefinitionContext : Classifier
40505
40506            return
40507              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
40508               (AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
40509                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
40510
40511         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Link_Object_End_Action_Result_A_Read_Link_Object_End_Action then
40512            --  ReadLinkObjectEndAction::result : OutputPin
40513
40514            return
40515              AMF.Internals.Holders.UML_Holders.To_Holder
40516               (AMF.UML.Output_Pins.UML_Output_Pin_Access'
40517                 (AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
40518                   (AMF.Internals.Helpers.To_Element (Self)).Get_Result));
40519
40520         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
40521            --  NamedElement::visibility : VisibilityKind
40522
40523            return
40524              AMF.UML.Holders.To_Holder
40525               (AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
40526                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
40527
40528         else
40529            raise Program_Error;
40530         end if;
40531      end UML_Read_Link_Object_End_Action_Get;
40532
40533      ---------------------------------------------------
40534      -- UML_Read_Link_Object_End_Qualifier_Action_Get --
40535      ---------------------------------------------------
40536
40537      function UML_Read_Link_Object_End_Qualifier_Action_Get return League.Holders.Holder is
40538      begin
40539         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
40540            --  ActivityNode::activity : Activity
40541
40542            return
40543              AMF.Internals.Holders.UML_Holders.To_Holder
40544               (AMF.UML.Activities.UML_Activity_Access'
40545                 (AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
40546                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
40547
40548         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
40549            --  NamedElement::clientDependency : Dependency
40550
40551            return
40552              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
40553               (AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
40554                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
40555
40556         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
40557            --  Action::context : Classifier
40558
40559            return
40560              AMF.Internals.Holders.UML_Holders.To_Holder
40561               (AMF.UML.Classifiers.UML_Classifier_Access'
40562                 (AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
40563                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
40564
40565         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
40566            --  ExecutableNode::handler : ExceptionHandler
40567
40568            return
40569              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
40570               (AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
40571                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
40572
40573         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
40574            --  ActivityNode::inGroup : ActivityGroup
40575
40576            return
40577              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
40578               (AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
40579                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
40580
40581         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
40582            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
40583
40584            return
40585              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
40586               (AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
40587                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
40588
40589         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
40590            --  ActivityNode::inPartition : ActivityPartition
40591
40592            return
40593              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
40594               (AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
40595                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
40596
40597         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
40598            --  ActivityNode::inStructuredNode : StructuredActivityNode
40599
40600            return
40601              AMF.Internals.Holders.UML_Holders.To_Holder
40602               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
40603                 (AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
40604                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
40605
40606         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
40607            --  ActivityNode::incoming : ActivityEdge
40608
40609            return
40610              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
40611               (AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
40612                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
40613
40614         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
40615            --  Action::input : InputPin
40616
40617            return
40618              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
40619               (AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
40620                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
40621
40622         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
40623            --  RedefinableElement::isLeaf : Boolean
40624
40625            return
40626              League.Holders.Booleans.To_Holder
40627               (AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
40628                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
40629
40630         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
40631            --  Action::isLocallyReentrant : Boolean
40632
40633            return
40634              League.Holders.Booleans.To_Holder
40635               (AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
40636                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
40637
40638         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
40639            --  Action::localPostcondition : Constraint
40640
40641            return
40642              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
40643               (AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
40644                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
40645
40646         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
40647            --  Action::localPrecondition : Constraint
40648
40649            return
40650              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
40651               (AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
40652                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
40653
40654         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
40655            --  NamedElement::name : String
40656
40657            return
40658              AMF.Holders.To_Holder
40659               (AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
40660                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
40661
40662         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
40663            --  NamedElement::nameExpression : StringExpression
40664
40665            return
40666              AMF.Internals.Holders.UML_Holders.To_Holder
40667               (AMF.UML.String_Expressions.UML_String_Expression_Access'
40668                 (AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
40669                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
40670
40671         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
40672            --  NamedElement::namespace : Namespace
40673
40674            return
40675              AMF.Internals.Holders.UML_Holders.To_Holder
40676               (AMF.UML.Namespaces.UML_Namespace_Access'
40677                 (AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
40678                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
40679
40680         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Link_Object_End_Qualifier_Action_Object_A_Read_Link_Object_End_Qualifier_Action then
40681            --  ReadLinkObjectEndQualifierAction::object : InputPin
40682
40683            return
40684              AMF.Internals.Holders.UML_Holders.To_Holder
40685               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
40686                 (AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
40687                   (AMF.Internals.Helpers.To_Element (Self)).Get_Object));
40688
40689         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
40690            --  ActivityNode::outgoing : ActivityEdge
40691
40692            return
40693              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
40694               (AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
40695                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
40696
40697         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
40698            --  Action::output : OutputPin
40699
40700            return
40701              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
40702               (AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
40703                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
40704
40705         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
40706            --  Element::ownedComment : Comment
40707
40708            return
40709              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
40710               (AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
40711                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
40712
40713         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
40714            --  Element::ownedElement : Element
40715
40716            return
40717              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
40718               (AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
40719                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
40720
40721         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
40722            --  Element::owner : Element
40723
40724            return
40725              AMF.Internals.Holders.UML_Holders.To_Holder
40726               (AMF.UML.Elements.UML_Element_Access'
40727                 (AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
40728                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
40729
40730         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
40731            --  NamedElement::qualifiedName : String
40732
40733            return
40734              AMF.Holders.To_Holder
40735               (AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
40736                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
40737
40738         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Link_Object_End_Qualifier_Action_Qualifier_A_Read_Link_Object_End_Qualifier_Action then
40739            --  ReadLinkObjectEndQualifierAction::qualifier : Property
40740
40741            return
40742              AMF.Internals.Holders.UML_Holders.To_Holder
40743               (AMF.UML.Properties.UML_Property_Access'
40744                 (AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
40745                   (AMF.Internals.Helpers.To_Element (Self)).Get_Qualifier));
40746
40747         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
40748            --  RedefinableElement::redefinedElement : RedefinableElement
40749
40750            return
40751              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
40752               (AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
40753                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
40754
40755         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
40756            --  ActivityNode::redefinedNode : ActivityNode
40757
40758            return
40759              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
40760               (AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
40761                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
40762
40763         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
40764            --  RedefinableElement::redefinitionContext : Classifier
40765
40766            return
40767              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
40768               (AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
40769                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
40770
40771         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Link_Object_End_Qualifier_Action_Result_A_Read_Link_Object_End_Qualifier_Action then
40772            --  ReadLinkObjectEndQualifierAction::result : OutputPin
40773
40774            return
40775              AMF.Internals.Holders.UML_Holders.To_Holder
40776               (AMF.UML.Output_Pins.UML_Output_Pin_Access'
40777                 (AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
40778                   (AMF.Internals.Helpers.To_Element (Self)).Get_Result));
40779
40780         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
40781            --  NamedElement::visibility : VisibilityKind
40782
40783            return
40784              AMF.UML.Holders.To_Holder
40785               (AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
40786                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
40787
40788         else
40789            raise Program_Error;
40790         end if;
40791      end UML_Read_Link_Object_End_Qualifier_Action_Get;
40792
40793      ------------------------------
40794      -- UML_Read_Self_Action_Get --
40795      ------------------------------
40796
40797      function UML_Read_Self_Action_Get return League.Holders.Holder is
40798      begin
40799         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
40800            --  ActivityNode::activity : Activity
40801
40802            return
40803              AMF.Internals.Holders.UML_Holders.To_Holder
40804               (AMF.UML.Activities.UML_Activity_Access'
40805                 (AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
40806                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
40807
40808         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
40809            --  NamedElement::clientDependency : Dependency
40810
40811            return
40812              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
40813               (AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
40814                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
40815
40816         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
40817            --  Action::context : Classifier
40818
40819            return
40820              AMF.Internals.Holders.UML_Holders.To_Holder
40821               (AMF.UML.Classifiers.UML_Classifier_Access'
40822                 (AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
40823                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
40824
40825         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
40826            --  ExecutableNode::handler : ExceptionHandler
40827
40828            return
40829              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
40830               (AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
40831                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
40832
40833         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
40834            --  ActivityNode::inGroup : ActivityGroup
40835
40836            return
40837              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
40838               (AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
40839                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
40840
40841         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
40842            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
40843
40844            return
40845              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
40846               (AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
40847                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
40848
40849         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
40850            --  ActivityNode::inPartition : ActivityPartition
40851
40852            return
40853              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
40854               (AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
40855                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
40856
40857         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
40858            --  ActivityNode::inStructuredNode : StructuredActivityNode
40859
40860            return
40861              AMF.Internals.Holders.UML_Holders.To_Holder
40862               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
40863                 (AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
40864                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
40865
40866         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
40867            --  ActivityNode::incoming : ActivityEdge
40868
40869            return
40870              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
40871               (AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
40872                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
40873
40874         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
40875            --  Action::input : InputPin
40876
40877            return
40878              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
40879               (AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
40880                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
40881
40882         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
40883            --  RedefinableElement::isLeaf : Boolean
40884
40885            return
40886              League.Holders.Booleans.To_Holder
40887               (AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
40888                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
40889
40890         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
40891            --  Action::isLocallyReentrant : Boolean
40892
40893            return
40894              League.Holders.Booleans.To_Holder
40895               (AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
40896                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
40897
40898         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
40899            --  Action::localPostcondition : Constraint
40900
40901            return
40902              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
40903               (AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
40904                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
40905
40906         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
40907            --  Action::localPrecondition : Constraint
40908
40909            return
40910              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
40911               (AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
40912                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
40913
40914         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
40915            --  NamedElement::name : String
40916
40917            return
40918              AMF.Holders.To_Holder
40919               (AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
40920                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
40921
40922         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
40923            --  NamedElement::nameExpression : StringExpression
40924
40925            return
40926              AMF.Internals.Holders.UML_Holders.To_Holder
40927               (AMF.UML.String_Expressions.UML_String_Expression_Access'
40928                 (AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
40929                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
40930
40931         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
40932            --  NamedElement::namespace : Namespace
40933
40934            return
40935              AMF.Internals.Holders.UML_Holders.To_Holder
40936               (AMF.UML.Namespaces.UML_Namespace_Access'
40937                 (AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
40938                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
40939
40940         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
40941            --  ActivityNode::outgoing : ActivityEdge
40942
40943            return
40944              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
40945               (AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
40946                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
40947
40948         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
40949            --  Action::output : OutputPin
40950
40951            return
40952              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
40953               (AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
40954                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
40955
40956         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
40957            --  Element::ownedComment : Comment
40958
40959            return
40960              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
40961               (AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
40962                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
40963
40964         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
40965            --  Element::ownedElement : Element
40966
40967            return
40968              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
40969               (AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
40970                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
40971
40972         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
40973            --  Element::owner : Element
40974
40975            return
40976              AMF.Internals.Holders.UML_Holders.To_Holder
40977               (AMF.UML.Elements.UML_Element_Access'
40978                 (AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
40979                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
40980
40981         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
40982            --  NamedElement::qualifiedName : String
40983
40984            return
40985              AMF.Holders.To_Holder
40986               (AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
40987                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
40988
40989         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
40990            --  RedefinableElement::redefinedElement : RedefinableElement
40991
40992            return
40993              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
40994               (AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
40995                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
40996
40997         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
40998            --  ActivityNode::redefinedNode : ActivityNode
40999
41000            return
41001              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
41002               (AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
41003                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
41004
41005         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
41006            --  RedefinableElement::redefinitionContext : Classifier
41007
41008            return
41009              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
41010               (AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
41011                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
41012
41013         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Self_Action_Result_A_Read_Self_Action then
41014            --  ReadSelfAction::result : OutputPin
41015
41016            return
41017              AMF.Internals.Holders.UML_Holders.To_Holder
41018               (AMF.UML.Output_Pins.UML_Output_Pin_Access'
41019                 (AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
41020                   (AMF.Internals.Helpers.To_Element (Self)).Get_Result));
41021
41022         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
41023            --  NamedElement::visibility : VisibilityKind
41024
41025            return
41026              AMF.UML.Holders.To_Holder
41027               (AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
41028                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
41029
41030         else
41031            raise Program_Error;
41032         end if;
41033      end UML_Read_Self_Action_Get;
41034
41035      --------------------------------------------
41036      -- UML_Read_Structural_Feature_Action_Get --
41037      --------------------------------------------
41038
41039      function UML_Read_Structural_Feature_Action_Get return League.Holders.Holder is
41040      begin
41041         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
41042            --  ActivityNode::activity : Activity
41043
41044            return
41045              AMF.Internals.Holders.UML_Holders.To_Holder
41046               (AMF.UML.Activities.UML_Activity_Access'
41047                 (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
41048                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
41049
41050         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
41051            --  NamedElement::clientDependency : Dependency
41052
41053            return
41054              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
41055               (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
41056                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
41057
41058         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
41059            --  Action::context : Classifier
41060
41061            return
41062              AMF.Internals.Holders.UML_Holders.To_Holder
41063               (AMF.UML.Classifiers.UML_Classifier_Access'
41064                 (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
41065                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
41066
41067         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
41068            --  ExecutableNode::handler : ExceptionHandler
41069
41070            return
41071              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
41072               (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
41073                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
41074
41075         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
41076            --  ActivityNode::inGroup : ActivityGroup
41077
41078            return
41079              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
41080               (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
41081                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
41082
41083         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
41084            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
41085
41086            return
41087              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
41088               (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
41089                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
41090
41091         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
41092            --  ActivityNode::inPartition : ActivityPartition
41093
41094            return
41095              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
41096               (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
41097                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
41098
41099         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
41100            --  ActivityNode::inStructuredNode : StructuredActivityNode
41101
41102            return
41103              AMF.Internals.Holders.UML_Holders.To_Holder
41104               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
41105                 (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
41106                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
41107
41108         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
41109            --  ActivityNode::incoming : ActivityEdge
41110
41111            return
41112              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
41113               (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
41114                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
41115
41116         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
41117            --  Action::input : InputPin
41118
41119            return
41120              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
41121               (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
41122                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
41123
41124         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
41125            --  RedefinableElement::isLeaf : Boolean
41126
41127            return
41128              League.Holders.Booleans.To_Holder
41129               (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
41130                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
41131
41132         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
41133            --  Action::isLocallyReentrant : Boolean
41134
41135            return
41136              League.Holders.Booleans.To_Holder
41137               (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
41138                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
41139
41140         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
41141            --  Action::localPostcondition : Constraint
41142
41143            return
41144              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
41145               (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
41146                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
41147
41148         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
41149            --  Action::localPrecondition : Constraint
41150
41151            return
41152              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
41153               (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
41154                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
41155
41156         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
41157            --  NamedElement::name : String
41158
41159            return
41160              AMF.Holders.To_Holder
41161               (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
41162                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
41163
41164         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
41165            --  NamedElement::nameExpression : StringExpression
41166
41167            return
41168              AMF.Internals.Holders.UML_Holders.To_Holder
41169               (AMF.UML.String_Expressions.UML_String_Expression_Access'
41170                 (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
41171                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
41172
41173         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
41174            --  NamedElement::namespace : Namespace
41175
41176            return
41177              AMF.Internals.Holders.UML_Holders.To_Holder
41178               (AMF.UML.Namespaces.UML_Namespace_Access'
41179                 (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
41180                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
41181
41182         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structural_Feature_Action_Object_A_Structural_Feature_Action then
41183            --  StructuralFeatureAction::object : InputPin
41184
41185            return
41186              AMF.Internals.Holders.UML_Holders.To_Holder
41187               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
41188                 (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
41189                   (AMF.Internals.Helpers.To_Element (Self)).Get_Object));
41190
41191         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
41192            --  ActivityNode::outgoing : ActivityEdge
41193
41194            return
41195              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
41196               (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
41197                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
41198
41199         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
41200            --  Action::output : OutputPin
41201
41202            return
41203              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
41204               (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
41205                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
41206
41207         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
41208            --  Element::ownedComment : Comment
41209
41210            return
41211              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
41212               (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
41213                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
41214
41215         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
41216            --  Element::ownedElement : Element
41217
41218            return
41219              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
41220               (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
41221                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
41222
41223         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
41224            --  Element::owner : Element
41225
41226            return
41227              AMF.Internals.Holders.UML_Holders.To_Holder
41228               (AMF.UML.Elements.UML_Element_Access'
41229                 (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
41230                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
41231
41232         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
41233            --  NamedElement::qualifiedName : String
41234
41235            return
41236              AMF.Holders.To_Holder
41237               (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
41238                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
41239
41240         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
41241            --  RedefinableElement::redefinedElement : RedefinableElement
41242
41243            return
41244              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
41245               (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
41246                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
41247
41248         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
41249            --  ActivityNode::redefinedNode : ActivityNode
41250
41251            return
41252              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
41253               (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
41254                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
41255
41256         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
41257            --  RedefinableElement::redefinitionContext : Classifier
41258
41259            return
41260              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
41261               (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
41262                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
41263
41264         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Structural_Feature_Action_Result_A_Read_Structural_Feature_Action then
41265            --  ReadStructuralFeatureAction::result : OutputPin
41266
41267            return
41268              AMF.Internals.Holders.UML_Holders.To_Holder
41269               (AMF.UML.Output_Pins.UML_Output_Pin_Access'
41270                 (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
41271                   (AMF.Internals.Helpers.To_Element (Self)).Get_Result));
41272
41273         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structural_Feature_Action_Structural_Feature_A_Structural_Feature_Action then
41274            --  StructuralFeatureAction::structuralFeature : StructuralFeature
41275
41276            return
41277              AMF.Internals.Holders.UML_Holders.To_Holder
41278               (AMF.UML.Structural_Features.UML_Structural_Feature_Access'
41279                 (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
41280                   (AMF.Internals.Helpers.To_Element (Self)).Get_Structural_Feature));
41281
41282         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
41283            --  NamedElement::visibility : VisibilityKind
41284
41285            return
41286              AMF.UML.Holders.To_Holder
41287               (AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
41288                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
41289
41290         else
41291            raise Program_Error;
41292         end if;
41293      end UML_Read_Structural_Feature_Action_Get;
41294
41295      ----------------------------------
41296      -- UML_Read_Variable_Action_Get --
41297      ----------------------------------
41298
41299      function UML_Read_Variable_Action_Get return League.Holders.Holder is
41300      begin
41301         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
41302            --  ActivityNode::activity : Activity
41303
41304            return
41305              AMF.Internals.Holders.UML_Holders.To_Holder
41306               (AMF.UML.Activities.UML_Activity_Access'
41307                 (AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
41308                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
41309
41310         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
41311            --  NamedElement::clientDependency : Dependency
41312
41313            return
41314              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
41315               (AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
41316                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
41317
41318         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
41319            --  Action::context : Classifier
41320
41321            return
41322              AMF.Internals.Holders.UML_Holders.To_Holder
41323               (AMF.UML.Classifiers.UML_Classifier_Access'
41324                 (AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
41325                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
41326
41327         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
41328            --  ExecutableNode::handler : ExceptionHandler
41329
41330            return
41331              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
41332               (AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
41333                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
41334
41335         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
41336            --  ActivityNode::inGroup : ActivityGroup
41337
41338            return
41339              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
41340               (AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
41341                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
41342
41343         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
41344            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
41345
41346            return
41347              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
41348               (AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
41349                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
41350
41351         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
41352            --  ActivityNode::inPartition : ActivityPartition
41353
41354            return
41355              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
41356               (AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
41357                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
41358
41359         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
41360            --  ActivityNode::inStructuredNode : StructuredActivityNode
41361
41362            return
41363              AMF.Internals.Holders.UML_Holders.To_Holder
41364               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
41365                 (AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
41366                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
41367
41368         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
41369            --  ActivityNode::incoming : ActivityEdge
41370
41371            return
41372              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
41373               (AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
41374                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
41375
41376         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
41377            --  Action::input : InputPin
41378
41379            return
41380              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
41381               (AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
41382                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
41383
41384         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
41385            --  RedefinableElement::isLeaf : Boolean
41386
41387            return
41388              League.Holders.Booleans.To_Holder
41389               (AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
41390                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
41391
41392         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
41393            --  Action::isLocallyReentrant : Boolean
41394
41395            return
41396              League.Holders.Booleans.To_Holder
41397               (AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
41398                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
41399
41400         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
41401            --  Action::localPostcondition : Constraint
41402
41403            return
41404              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
41405               (AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
41406                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
41407
41408         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
41409            --  Action::localPrecondition : Constraint
41410
41411            return
41412              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
41413               (AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
41414                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
41415
41416         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
41417            --  NamedElement::name : String
41418
41419            return
41420              AMF.Holders.To_Holder
41421               (AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
41422                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
41423
41424         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
41425            --  NamedElement::nameExpression : StringExpression
41426
41427            return
41428              AMF.Internals.Holders.UML_Holders.To_Holder
41429               (AMF.UML.String_Expressions.UML_String_Expression_Access'
41430                 (AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
41431                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
41432
41433         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
41434            --  NamedElement::namespace : Namespace
41435
41436            return
41437              AMF.Internals.Holders.UML_Holders.To_Holder
41438               (AMF.UML.Namespaces.UML_Namespace_Access'
41439                 (AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
41440                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
41441
41442         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
41443            --  ActivityNode::outgoing : ActivityEdge
41444
41445            return
41446              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
41447               (AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
41448                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
41449
41450         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
41451            --  Action::output : OutputPin
41452
41453            return
41454              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
41455               (AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
41456                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
41457
41458         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
41459            --  Element::ownedComment : Comment
41460
41461            return
41462              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
41463               (AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
41464                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
41465
41466         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
41467            --  Element::ownedElement : Element
41468
41469            return
41470              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
41471               (AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
41472                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
41473
41474         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
41475            --  Element::owner : Element
41476
41477            return
41478              AMF.Internals.Holders.UML_Holders.To_Holder
41479               (AMF.UML.Elements.UML_Element_Access'
41480                 (AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
41481                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
41482
41483         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
41484            --  NamedElement::qualifiedName : String
41485
41486            return
41487              AMF.Holders.To_Holder
41488               (AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
41489                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
41490
41491         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
41492            --  RedefinableElement::redefinedElement : RedefinableElement
41493
41494            return
41495              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
41496               (AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
41497                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
41498
41499         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
41500            --  ActivityNode::redefinedNode : ActivityNode
41501
41502            return
41503              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
41504               (AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
41505                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
41506
41507         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
41508            --  RedefinableElement::redefinitionContext : Classifier
41509
41510            return
41511              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
41512               (AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
41513                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
41514
41515         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Variable_Action_Result_A_Read_Variable_Action then
41516            --  ReadVariableAction::result : OutputPin
41517
41518            return
41519              AMF.Internals.Holders.UML_Holders.To_Holder
41520               (AMF.UML.Output_Pins.UML_Output_Pin_Access'
41521                 (AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
41522                   (AMF.Internals.Helpers.To_Element (Self)).Get_Result));
41523
41524         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Variable_Action_Variable_A_Variable_Action then
41525            --  VariableAction::variable : Variable
41526
41527            return
41528              AMF.Internals.Holders.UML_Holders.To_Holder
41529               (AMF.UML.Variables.UML_Variable_Access'
41530                 (AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
41531                   (AMF.Internals.Helpers.To_Element (Self)).Get_Variable));
41532
41533         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
41534            --  NamedElement::visibility : VisibilityKind
41535
41536            return
41537              AMF.UML.Holders.To_Holder
41538               (AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
41539                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
41540
41541         else
41542            raise Program_Error;
41543         end if;
41544      end UML_Read_Variable_Action_Get;
41545
41546      -------------------------
41547      -- UML_Realization_Get --
41548      -------------------------
41549
41550      function UML_Realization_Get return League.Holders.Holder is
41551      begin
41552         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Client_Named_Element_Client_Dependency then
41553            --  Dependency::client : NamedElement
41554
41555            return
41556              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
41557               (AMF.UML.Realizations.UML_Realization_Access
41558                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client);
41559
41560         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
41561            --  NamedElement::clientDependency : Dependency
41562
41563            return
41564              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
41565               (AMF.UML.Realizations.UML_Realization_Access
41566                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
41567
41568         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Abstraction_Mapping_A_Abstraction then
41569            --  Abstraction::mapping : OpaqueExpression
41570
41571            return
41572              AMF.Internals.Holders.UML_Holders.To_Holder
41573               (AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access'
41574                 (AMF.UML.Realizations.UML_Realization_Access
41575                   (AMF.Internals.Helpers.To_Element (Self)).Get_Mapping));
41576
41577         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
41578            --  NamedElement::name : String
41579
41580            return
41581              AMF.Holders.To_Holder
41582               (AMF.UML.Realizations.UML_Realization_Access
41583                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
41584
41585         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
41586            --  NamedElement::nameExpression : StringExpression
41587
41588            return
41589              AMF.Internals.Holders.UML_Holders.To_Holder
41590               (AMF.UML.String_Expressions.UML_String_Expression_Access'
41591                 (AMF.UML.Realizations.UML_Realization_Access
41592                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
41593
41594         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
41595            --  NamedElement::namespace : Namespace
41596
41597            return
41598              AMF.Internals.Holders.UML_Holders.To_Holder
41599               (AMF.UML.Namespaces.UML_Namespace_Access'
41600                 (AMF.UML.Realizations.UML_Realization_Access
41601                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
41602
41603         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
41604            --  Element::ownedComment : Comment
41605
41606            return
41607              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
41608               (AMF.UML.Realizations.UML_Realization_Access
41609                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
41610
41611         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
41612            --  Element::ownedElement : Element
41613
41614            return
41615              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
41616               (AMF.UML.Realizations.UML_Realization_Access
41617                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
41618
41619         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
41620            --  Element::owner : Element
41621
41622            return
41623              AMF.Internals.Holders.UML_Holders.To_Holder
41624               (AMF.UML.Elements.UML_Element_Access'
41625                 (AMF.UML.Realizations.UML_Realization_Access
41626                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
41627
41628         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
41629            --  ParameterableElement::owningTemplateParameter : TemplateParameter
41630
41631            return
41632              AMF.Internals.Holders.UML_Holders.To_Holder
41633               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
41634                 (AMF.UML.Realizations.UML_Realization_Access
41635                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
41636
41637         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
41638            --  NamedElement::qualifiedName : String
41639
41640            return
41641              AMF.Holders.To_Holder
41642               (AMF.UML.Realizations.UML_Realization_Access
41643                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
41644
41645         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship then
41646            --  Relationship::relatedElement : Element
41647
41648            return
41649              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
41650               (AMF.UML.Realizations.UML_Realization_Access
41651                 (AMF.Internals.Helpers.To_Element (Self)).Get_Related_Element);
41652
41653         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship then
41654            --  DirectedRelationship::source : Element
41655
41656            return
41657              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
41658               (AMF.UML.Realizations.UML_Realization_Access
41659                 (AMF.Internals.Helpers.To_Element (Self)).Get_Source);
41660
41661         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Supplier_A_Supplier_Dependency then
41662            --  Dependency::supplier : NamedElement
41663
41664            return
41665              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
41666               (AMF.UML.Realizations.UML_Realization_Access
41667                 (AMF.Internals.Helpers.To_Element (Self)).Get_Supplier);
41668
41669         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship then
41670            --  DirectedRelationship::target : Element
41671
41672            return
41673              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
41674               (AMF.UML.Realizations.UML_Realization_Access
41675                 (AMF.Internals.Helpers.To_Element (Self)).Get_Target);
41676
41677         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
41678            --  ParameterableElement::templateParameter : TemplateParameter
41679
41680            return
41681              AMF.Internals.Holders.UML_Holders.To_Holder
41682               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
41683                 (AMF.UML.Realizations.UML_Realization_Access
41684                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
41685
41686         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
41687            --  NamedElement::visibility : VisibilityKind
41688
41689            return
41690              AMF.UML.Holders.To_Holder
41691               (AMF.UML.Realizations.UML_Realization_Access
41692                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
41693
41694         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
41695            --  PackageableElement::visibility : VisibilityKind
41696
41697            return
41698              AMF.UML.Holders.Visibility_Kinds.To_Holder
41699               (AMF.UML.Realizations.UML_Realization_Access
41700                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
41701
41702         else
41703            raise Program_Error;
41704         end if;
41705      end UML_Realization_Get;
41706
41707      -----------------------
41708      -- UML_Reception_Get --
41709      -----------------------
41710
41711      function UML_Reception_Get return League.Holders.Holder is
41712      begin
41713         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
41714            --  NamedElement::clientDependency : Dependency
41715
41716            return
41717              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
41718               (AMF.UML.Receptions.UML_Reception_Access
41719                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
41720
41721         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavioral_Feature_Concurrency then
41722            --  BehavioralFeature::concurrency : CallConcurrencyKind
41723
41724            return
41725              AMF.UML.Holders.Call_Concurrency_Kinds.To_Holder
41726               (AMF.UML.Receptions.UML_Reception_Access
41727                 (AMF.Internals.Helpers.To_Element (Self)).Get_Concurrency);
41728
41729         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
41730            --  Namespace::elementImport : ElementImport
41731
41732            return
41733              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
41734               (AMF.UML.Receptions.UML_Reception_Access
41735                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
41736
41737         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Feature_Featuring_Classifier_Classifier_Feature then
41738            --  Feature::featuringClassifier : Classifier
41739
41740            return
41741              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
41742               (AMF.UML.Receptions.UML_Reception_Access
41743                 (AMF.Internals.Helpers.To_Element (Self)).Get_Featuring_Classifier);
41744
41745         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
41746            --  Namespace::importedMember : PackageableElement
41747
41748            return
41749              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
41750               (AMF.UML.Receptions.UML_Reception_Access
41751                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
41752
41753         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavioral_Feature_Is_Abstract then
41754            --  BehavioralFeature::isAbstract : Boolean
41755
41756            return
41757              League.Holders.Booleans.To_Holder
41758               (AMF.UML.Receptions.UML_Reception_Access
41759                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
41760
41761         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
41762            --  RedefinableElement::isLeaf : Boolean
41763
41764            return
41765              League.Holders.Booleans.To_Holder
41766               (AMF.UML.Receptions.UML_Reception_Access
41767                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
41768
41769         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Feature_Is_Static then
41770            --  Feature::isStatic : Boolean
41771
41772            return
41773              League.Holders.Booleans.To_Holder
41774               (AMF.UML.Receptions.UML_Reception_Access
41775                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Static);
41776
41777         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
41778            --  Namespace::member : NamedElement
41779
41780            return
41781              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
41782               (AMF.UML.Receptions.UML_Reception_Access
41783                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
41784
41785         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavioral_Feature_Method_Behavior_Specification then
41786            --  BehavioralFeature::method : Behavior
41787
41788            return
41789              AMF.UML.Behaviors.Collections.UML_Behavior_Collections.Internals.To_Holder
41790               (AMF.UML.Receptions.UML_Reception_Access
41791                 (AMF.Internals.Helpers.To_Element (Self)).Get_Method);
41792
41793         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
41794            --  NamedElement::name : String
41795
41796            return
41797              AMF.Holders.To_Holder
41798               (AMF.UML.Receptions.UML_Reception_Access
41799                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
41800
41801         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
41802            --  NamedElement::nameExpression : StringExpression
41803
41804            return
41805              AMF.Internals.Holders.UML_Holders.To_Holder
41806               (AMF.UML.String_Expressions.UML_String_Expression_Access'
41807                 (AMF.UML.Receptions.UML_Reception_Access
41808                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
41809
41810         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
41811            --  NamedElement::namespace : Namespace
41812
41813            return
41814              AMF.Internals.Holders.UML_Holders.To_Holder
41815               (AMF.UML.Namespaces.UML_Namespace_Access'
41816                 (AMF.UML.Receptions.UML_Reception_Access
41817                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
41818
41819         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
41820            --  Element::ownedComment : Comment
41821
41822            return
41823              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
41824               (AMF.UML.Receptions.UML_Reception_Access
41825                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
41826
41827         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
41828            --  Element::ownedElement : Element
41829
41830            return
41831              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
41832               (AMF.UML.Receptions.UML_Reception_Access
41833                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
41834
41835         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
41836            --  Namespace::ownedMember : NamedElement
41837
41838            return
41839              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
41840               (AMF.UML.Receptions.UML_Reception_Access
41841                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
41842
41843         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavioral_Feature_Owned_Parameter_A_Owner_Formal_Param then
41844            --  BehavioralFeature::ownedParameter : Parameter
41845
41846            return
41847              AMF.UML.Parameters.Collections.UML_Parameter_Collections.Internals.To_Holder
41848               (AMF.UML.Receptions.UML_Reception_Access
41849                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Parameter);
41850
41851         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavioral_Feature_Owned_Parameter_Set_A_Behavioral_Feature then
41852            --  BehavioralFeature::ownedParameterSet : ParameterSet
41853
41854            return
41855              AMF.UML.Parameter_Sets.Collections.UML_Parameter_Set_Collections.Internals.To_Holder
41856               (AMF.UML.Receptions.UML_Reception_Access
41857                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Parameter_Set);
41858
41859         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
41860            --  Namespace::ownedRule : Constraint
41861
41862            return
41863              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
41864               (AMF.UML.Receptions.UML_Reception_Access
41865                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
41866
41867         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
41868            --  Element::owner : Element
41869
41870            return
41871              AMF.Internals.Holders.UML_Holders.To_Holder
41872               (AMF.UML.Elements.UML_Element_Access'
41873                 (AMF.UML.Receptions.UML_Reception_Access
41874                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
41875
41876         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
41877            --  Namespace::packageImport : PackageImport
41878
41879            return
41880              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
41881               (AMF.UML.Receptions.UML_Reception_Access
41882                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
41883
41884         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
41885            --  NamedElement::qualifiedName : String
41886
41887            return
41888              AMF.Holders.To_Holder
41889               (AMF.UML.Receptions.UML_Reception_Access
41890                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
41891
41892         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavioral_Feature_Raised_Exception_A_Behavioral_Feature then
41893            --  BehavioralFeature::raisedException : Type
41894
41895            return
41896              AMF.UML.Types.Collections.UML_Type_Collections.Internals.To_Holder
41897               (AMF.UML.Receptions.UML_Reception_Access
41898                 (AMF.Internals.Helpers.To_Element (Self)).Get_Raised_Exception);
41899
41900         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
41901            --  RedefinableElement::redefinedElement : RedefinableElement
41902
41903            return
41904              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
41905               (AMF.UML.Receptions.UML_Reception_Access
41906                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
41907
41908         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
41909            --  RedefinableElement::redefinitionContext : Classifier
41910
41911            return
41912              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
41913               (AMF.UML.Receptions.UML_Reception_Access
41914                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
41915
41916         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Reception_Signal_A_Reception then
41917            --  Reception::signal : Signal
41918
41919            return
41920              AMF.Internals.Holders.UML_Holders.To_Holder
41921               (AMF.UML.Signals.UML_Signal_Access'
41922                 (AMF.UML.Receptions.UML_Reception_Access
41923                   (AMF.Internals.Helpers.To_Element (Self)).Get_Signal));
41924
41925         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
41926            --  NamedElement::visibility : VisibilityKind
41927
41928            return
41929              AMF.UML.Holders.To_Holder
41930               (AMF.UML.Receptions.UML_Reception_Access
41931                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
41932
41933         else
41934            raise Program_Error;
41935         end if;
41936      end UML_Reception_Get;
41937
41938      --------------------------------------
41939      -- UML_Reclassify_Object_Action_Get --
41940      --------------------------------------
41941
41942      function UML_Reclassify_Object_Action_Get return League.Holders.Holder is
41943      begin
41944         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
41945            --  ActivityNode::activity : Activity
41946
41947            return
41948              AMF.Internals.Holders.UML_Holders.To_Holder
41949               (AMF.UML.Activities.UML_Activity_Access'
41950                 (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
41951                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
41952
41953         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
41954            --  NamedElement::clientDependency : Dependency
41955
41956            return
41957              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
41958               (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
41959                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
41960
41961         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
41962            --  Action::context : Classifier
41963
41964            return
41965              AMF.Internals.Holders.UML_Holders.To_Holder
41966               (AMF.UML.Classifiers.UML_Classifier_Access'
41967                 (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
41968                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
41969
41970         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
41971            --  ExecutableNode::handler : ExceptionHandler
41972
41973            return
41974              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
41975               (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
41976                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
41977
41978         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
41979            --  ActivityNode::inGroup : ActivityGroup
41980
41981            return
41982              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
41983               (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
41984                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
41985
41986         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
41987            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
41988
41989            return
41990              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
41991               (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
41992                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
41993
41994         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
41995            --  ActivityNode::inPartition : ActivityPartition
41996
41997            return
41998              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
41999               (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
42000                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
42001
42002         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
42003            --  ActivityNode::inStructuredNode : StructuredActivityNode
42004
42005            return
42006              AMF.Internals.Holders.UML_Holders.To_Holder
42007               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
42008                 (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
42009                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
42010
42011         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
42012            --  ActivityNode::incoming : ActivityEdge
42013
42014            return
42015              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
42016               (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
42017                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
42018
42019         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
42020            --  Action::input : InputPin
42021
42022            return
42023              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
42024               (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
42025                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
42026
42027         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
42028            --  RedefinableElement::isLeaf : Boolean
42029
42030            return
42031              League.Holders.Booleans.To_Holder
42032               (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
42033                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
42034
42035         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
42036            --  Action::isLocallyReentrant : Boolean
42037
42038            return
42039              League.Holders.Booleans.To_Holder
42040               (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
42041                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
42042
42043         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Reclassify_Object_Action_Is_Replace_All then
42044            --  ReclassifyObjectAction::isReplaceAll : Boolean
42045
42046            return
42047              League.Holders.Booleans.To_Holder
42048               (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
42049                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Replace_All);
42050
42051         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
42052            --  Action::localPostcondition : Constraint
42053
42054            return
42055              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
42056               (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
42057                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
42058
42059         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
42060            --  Action::localPrecondition : Constraint
42061
42062            return
42063              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
42064               (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
42065                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
42066
42067         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
42068            --  NamedElement::name : String
42069
42070            return
42071              AMF.Holders.To_Holder
42072               (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
42073                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
42074
42075         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
42076            --  NamedElement::nameExpression : StringExpression
42077
42078            return
42079              AMF.Internals.Holders.UML_Holders.To_Holder
42080               (AMF.UML.String_Expressions.UML_String_Expression_Access'
42081                 (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
42082                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
42083
42084         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
42085            --  NamedElement::namespace : Namespace
42086
42087            return
42088              AMF.Internals.Holders.UML_Holders.To_Holder
42089               (AMF.UML.Namespaces.UML_Namespace_Access'
42090                 (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
42091                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
42092
42093         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Reclassify_Object_Action_New_Classifier_A_Reclassify_Object_Action then
42094            --  ReclassifyObjectAction::newClassifier : Classifier
42095
42096            return
42097              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
42098               (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
42099                 (AMF.Internals.Helpers.To_Element (Self)).Get_New_Classifier);
42100
42101         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Reclassify_Object_Action_Object_A_Reclassify_Object_Action then
42102            --  ReclassifyObjectAction::object : InputPin
42103
42104            return
42105              AMF.Internals.Holders.UML_Holders.To_Holder
42106               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
42107                 (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
42108                   (AMF.Internals.Helpers.To_Element (Self)).Get_Object));
42109
42110         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Reclassify_Object_Action_Old_Classifier_A_Reclassify_Object_Action then
42111            --  ReclassifyObjectAction::oldClassifier : Classifier
42112
42113            return
42114              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
42115               (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
42116                 (AMF.Internals.Helpers.To_Element (Self)).Get_Old_Classifier);
42117
42118         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
42119            --  ActivityNode::outgoing : ActivityEdge
42120
42121            return
42122              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
42123               (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
42124                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
42125
42126         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
42127            --  Action::output : OutputPin
42128
42129            return
42130              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
42131               (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
42132                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
42133
42134         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
42135            --  Element::ownedComment : Comment
42136
42137            return
42138              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
42139               (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
42140                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
42141
42142         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
42143            --  Element::ownedElement : Element
42144
42145            return
42146              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
42147               (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
42148                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
42149
42150         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
42151            --  Element::owner : Element
42152
42153            return
42154              AMF.Internals.Holders.UML_Holders.To_Holder
42155               (AMF.UML.Elements.UML_Element_Access'
42156                 (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
42157                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
42158
42159         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
42160            --  NamedElement::qualifiedName : String
42161
42162            return
42163              AMF.Holders.To_Holder
42164               (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
42165                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
42166
42167         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
42168            --  RedefinableElement::redefinedElement : RedefinableElement
42169
42170            return
42171              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
42172               (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
42173                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
42174
42175         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
42176            --  ActivityNode::redefinedNode : ActivityNode
42177
42178            return
42179              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
42180               (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
42181                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
42182
42183         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
42184            --  RedefinableElement::redefinitionContext : Classifier
42185
42186            return
42187              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
42188               (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
42189                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
42190
42191         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
42192            --  NamedElement::visibility : VisibilityKind
42193
42194            return
42195              AMF.UML.Holders.To_Holder
42196               (AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
42197                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
42198
42199         else
42200            raise Program_Error;
42201         end if;
42202      end UML_Reclassify_Object_Action_Get;
42203
42204      --------------------------------------------
42205      -- UML_Redefinable_Template_Signature_Get --
42206      --------------------------------------------
42207
42208      function UML_Redefinable_Template_Signature_Get return League.Holders.Holder is
42209      begin
42210         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Template_Signature_Classifier_Classifier_Owned_Template_Signature then
42211            --  RedefinableTemplateSignature::classifier : Classifier
42212
42213            return
42214              AMF.Internals.Holders.UML_Holders.To_Holder
42215               (AMF.UML.Classifiers.UML_Classifier_Access'
42216                 (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access
42217                   (AMF.Internals.Helpers.To_Element (Self)).Get_Classifier));
42218
42219         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
42220            --  NamedElement::clientDependency : Dependency
42221
42222            return
42223              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
42224               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access
42225                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
42226
42227         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Template_Signature_Extended_Signature_A_Redefinable_Template_Signature then
42228            --  RedefinableTemplateSignature::extendedSignature : RedefinableTemplateSignature
42229
42230            return
42231              AMF.UML.Redefinable_Template_Signatures.Collections.UML_Redefinable_Template_Signature_Collections.Internals.To_Holder
42232               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access
42233                 (AMF.Internals.Helpers.To_Element (Self)).Get_Extended_Signature);
42234
42235         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Template_Signature_Inherited_Parameter_A_Redefinable_Template_Signature then
42236            --  RedefinableTemplateSignature::inheritedParameter : TemplateParameter
42237
42238            return
42239              AMF.UML.Template_Parameters.Collections.UML_Template_Parameter_Collections.Internals.To_Holder
42240               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access
42241                 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Parameter);
42242
42243         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
42244            --  RedefinableElement::isLeaf : Boolean
42245
42246            return
42247              League.Holders.Booleans.To_Holder
42248               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access
42249                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
42250
42251         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
42252            --  NamedElement::name : String
42253
42254            return
42255              AMF.Holders.To_Holder
42256               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access
42257                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
42258
42259         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
42260            --  NamedElement::nameExpression : StringExpression
42261
42262            return
42263              AMF.Internals.Holders.UML_Holders.To_Holder
42264               (AMF.UML.String_Expressions.UML_String_Expression_Access'
42265                 (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access
42266                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
42267
42268         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
42269            --  NamedElement::namespace : Namespace
42270
42271            return
42272              AMF.Internals.Holders.UML_Holders.To_Holder
42273               (AMF.UML.Namespaces.UML_Namespace_Access'
42274                 (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access
42275                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
42276
42277         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
42278            --  Element::ownedComment : Comment
42279
42280            return
42281              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
42282               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access
42283                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
42284
42285         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
42286            --  Element::ownedElement : Element
42287
42288            return
42289              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
42290               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access
42291                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
42292
42293         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Signature_Owned_Parameter_Template_Parameter_Signature then
42294            --  TemplateSignature::ownedParameter : TemplateParameter
42295
42296            return
42297              AMF.UML.Template_Parameters.Collections.UML_Template_Parameter_Collections.Internals.To_Holder
42298               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access
42299                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Parameter);
42300
42301         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
42302            --  Element::owner : Element
42303
42304            return
42305              AMF.Internals.Holders.UML_Holders.To_Holder
42306               (AMF.UML.Elements.UML_Element_Access'
42307                 (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access
42308                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
42309
42310         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Signature_Parameter_A_Template_Signature then
42311            --  TemplateSignature::parameter : TemplateParameter
42312
42313            return
42314              AMF.UML.Template_Parameters.Collections.UML_Template_Parameter_Collections.Internals.To_Holder
42315               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access
42316                 (AMF.Internals.Helpers.To_Element (Self)).Get_Parameter);
42317
42318         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
42319            --  NamedElement::qualifiedName : String
42320
42321            return
42322              AMF.Holders.To_Holder
42323               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access
42324                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
42325
42326         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
42327            --  RedefinableElement::redefinedElement : RedefinableElement
42328
42329            return
42330              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
42331               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access
42332                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
42333
42334         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
42335            --  RedefinableElement::redefinitionContext : Classifier
42336
42337            return
42338              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
42339               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access
42340                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
42341
42342         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Signature_Template_Templateable_Element_Owned_Template_Signature then
42343            --  TemplateSignature::template : TemplateableElement
42344
42345            return
42346              AMF.Internals.Holders.UML_Holders.To_Holder
42347               (AMF.UML.Templateable_Elements.UML_Templateable_Element_Access'
42348                 (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access
42349                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template));
42350
42351         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
42352            --  NamedElement::visibility : VisibilityKind
42353
42354            return
42355              AMF.UML.Holders.To_Holder
42356               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access
42357                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
42358
42359         else
42360            raise Program_Error;
42361         end if;
42362      end UML_Redefinable_Template_Signature_Get;
42363
42364      ---------------------------
42365      -- UML_Reduce_Action_Get --
42366      ---------------------------
42367
42368      function UML_Reduce_Action_Get return League.Holders.Holder is
42369      begin
42370         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
42371            --  ActivityNode::activity : Activity
42372
42373            return
42374              AMF.Internals.Holders.UML_Holders.To_Holder
42375               (AMF.UML.Activities.UML_Activity_Access'
42376                 (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42377                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
42378
42379         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
42380            --  NamedElement::clientDependency : Dependency
42381
42382            return
42383              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
42384               (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42385                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
42386
42387         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Reduce_Action_Collection_A_Reduce_Action then
42388            --  ReduceAction::collection : InputPin
42389
42390            return
42391              AMF.Internals.Holders.UML_Holders.To_Holder
42392               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
42393                 (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42394                   (AMF.Internals.Helpers.To_Element (Self)).Get_Collection));
42395
42396         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
42397            --  Action::context : Classifier
42398
42399            return
42400              AMF.Internals.Holders.UML_Holders.To_Holder
42401               (AMF.UML.Classifiers.UML_Classifier_Access'
42402                 (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42403                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
42404
42405         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
42406            --  ExecutableNode::handler : ExceptionHandler
42407
42408            return
42409              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
42410               (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42411                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
42412
42413         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
42414            --  ActivityNode::inGroup : ActivityGroup
42415
42416            return
42417              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
42418               (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42419                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
42420
42421         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
42422            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
42423
42424            return
42425              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
42426               (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42427                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
42428
42429         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
42430            --  ActivityNode::inPartition : ActivityPartition
42431
42432            return
42433              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
42434               (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42435                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
42436
42437         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
42438            --  ActivityNode::inStructuredNode : StructuredActivityNode
42439
42440            return
42441              AMF.Internals.Holders.UML_Holders.To_Holder
42442               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
42443                 (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42444                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
42445
42446         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
42447            --  ActivityNode::incoming : ActivityEdge
42448
42449            return
42450              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
42451               (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42452                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
42453
42454         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
42455            --  Action::input : InputPin
42456
42457            return
42458              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
42459               (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42460                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
42461
42462         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
42463            --  RedefinableElement::isLeaf : Boolean
42464
42465            return
42466              League.Holders.Booleans.To_Holder
42467               (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42468                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
42469
42470         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
42471            --  Action::isLocallyReentrant : Boolean
42472
42473            return
42474              League.Holders.Booleans.To_Holder
42475               (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42476                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
42477
42478         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Reduce_Action_Is_Ordered then
42479            --  ReduceAction::isOrdered : Boolean
42480
42481            return
42482              League.Holders.Booleans.To_Holder
42483               (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42484                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Ordered);
42485
42486         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
42487            --  Action::localPostcondition : Constraint
42488
42489            return
42490              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
42491               (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42492                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
42493
42494         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
42495            --  Action::localPrecondition : Constraint
42496
42497            return
42498              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
42499               (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42500                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
42501
42502         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
42503            --  NamedElement::name : String
42504
42505            return
42506              AMF.Holders.To_Holder
42507               (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42508                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
42509
42510         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
42511            --  NamedElement::nameExpression : StringExpression
42512
42513            return
42514              AMF.Internals.Holders.UML_Holders.To_Holder
42515               (AMF.UML.String_Expressions.UML_String_Expression_Access'
42516                 (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42517                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
42518
42519         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
42520            --  NamedElement::namespace : Namespace
42521
42522            return
42523              AMF.Internals.Holders.UML_Holders.To_Holder
42524               (AMF.UML.Namespaces.UML_Namespace_Access'
42525                 (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42526                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
42527
42528         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
42529            --  ActivityNode::outgoing : ActivityEdge
42530
42531            return
42532              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
42533               (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42534                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
42535
42536         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
42537            --  Action::output : OutputPin
42538
42539            return
42540              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
42541               (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42542                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
42543
42544         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
42545            --  Element::ownedComment : Comment
42546
42547            return
42548              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
42549               (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42550                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
42551
42552         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
42553            --  Element::ownedElement : Element
42554
42555            return
42556              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
42557               (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42558                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
42559
42560         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
42561            --  Element::owner : Element
42562
42563            return
42564              AMF.Internals.Holders.UML_Holders.To_Holder
42565               (AMF.UML.Elements.UML_Element_Access'
42566                 (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42567                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
42568
42569         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
42570            --  NamedElement::qualifiedName : String
42571
42572            return
42573              AMF.Holders.To_Holder
42574               (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42575                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
42576
42577         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
42578            --  RedefinableElement::redefinedElement : RedefinableElement
42579
42580            return
42581              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
42582               (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42583                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
42584
42585         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
42586            --  ActivityNode::redefinedNode : ActivityNode
42587
42588            return
42589              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
42590               (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42591                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
42592
42593         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
42594            --  RedefinableElement::redefinitionContext : Classifier
42595
42596            return
42597              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
42598               (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42599                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
42600
42601         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Reduce_Action_Reducer_A_Reduce_Action then
42602            --  ReduceAction::reducer : Behavior
42603
42604            return
42605              AMF.Internals.Holders.UML_Holders.To_Holder
42606               (AMF.UML.Behaviors.UML_Behavior_Access'
42607                 (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42608                   (AMF.Internals.Helpers.To_Element (Self)).Get_Reducer));
42609
42610         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Reduce_Action_Result_A_Reduce_Action then
42611            --  ReduceAction::result : OutputPin
42612
42613            return
42614              AMF.Internals.Holders.UML_Holders.To_Holder
42615               (AMF.UML.Output_Pins.UML_Output_Pin_Access'
42616                 (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42617                   (AMF.Internals.Helpers.To_Element (Self)).Get_Result));
42618
42619         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
42620            --  NamedElement::visibility : VisibilityKind
42621
42622            return
42623              AMF.UML.Holders.To_Holder
42624               (AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
42625                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
42626
42627         else
42628            raise Program_Error;
42629         end if;
42630      end UML_Reduce_Action_Get;
42631
42632      --------------------
42633      -- UML_Region_Get --
42634      --------------------
42635
42636      function UML_Region_Get return League.Holders.Holder is
42637      begin
42638         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
42639            --  NamedElement::clientDependency : Dependency
42640
42641            return
42642              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
42643               (AMF.UML.Regions.UML_Region_Access
42644                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
42645
42646         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
42647            --  Namespace::elementImport : ElementImport
42648
42649            return
42650              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
42651               (AMF.UML.Regions.UML_Region_Access
42652                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
42653
42654         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Region_Extended_Region_A_Region then
42655            --  Region::extendedRegion : Region
42656
42657            return
42658              AMF.Internals.Holders.UML_Holders.To_Holder
42659               (AMF.UML.Regions.UML_Region_Access'
42660                 (AMF.UML.Regions.UML_Region_Access
42661                   (AMF.Internals.Helpers.To_Element (Self)).Get_Extended_Region));
42662
42663         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
42664            --  Namespace::importedMember : PackageableElement
42665
42666            return
42667              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
42668               (AMF.UML.Regions.UML_Region_Access
42669                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
42670
42671         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
42672            --  RedefinableElement::isLeaf : Boolean
42673
42674            return
42675              League.Holders.Booleans.To_Holder
42676               (AMF.UML.Regions.UML_Region_Access
42677                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
42678
42679         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
42680            --  Namespace::member : NamedElement
42681
42682            return
42683              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
42684               (AMF.UML.Regions.UML_Region_Access
42685                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
42686
42687         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
42688            --  NamedElement::name : String
42689
42690            return
42691              AMF.Holders.To_Holder
42692               (AMF.UML.Regions.UML_Region_Access
42693                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
42694
42695         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
42696            --  NamedElement::nameExpression : StringExpression
42697
42698            return
42699              AMF.Internals.Holders.UML_Holders.To_Holder
42700               (AMF.UML.String_Expressions.UML_String_Expression_Access'
42701                 (AMF.UML.Regions.UML_Region_Access
42702                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
42703
42704         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
42705            --  NamedElement::namespace : Namespace
42706
42707            return
42708              AMF.Internals.Holders.UML_Holders.To_Holder
42709               (AMF.UML.Namespaces.UML_Namespace_Access'
42710                 (AMF.UML.Regions.UML_Region_Access
42711                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
42712
42713         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
42714            --  Element::ownedComment : Comment
42715
42716            return
42717              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
42718               (AMF.UML.Regions.UML_Region_Access
42719                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
42720
42721         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
42722            --  Element::ownedElement : Element
42723
42724            return
42725              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
42726               (AMF.UML.Regions.UML_Region_Access
42727                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
42728
42729         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
42730            --  Namespace::ownedMember : NamedElement
42731
42732            return
42733              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
42734               (AMF.UML.Regions.UML_Region_Access
42735                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
42736
42737         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
42738            --  Namespace::ownedRule : Constraint
42739
42740            return
42741              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
42742               (AMF.UML.Regions.UML_Region_Access
42743                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
42744
42745         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
42746            --  Element::owner : Element
42747
42748            return
42749              AMF.Internals.Holders.UML_Holders.To_Holder
42750               (AMF.UML.Elements.UML_Element_Access'
42751                 (AMF.UML.Regions.UML_Region_Access
42752                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
42753
42754         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
42755            --  Namespace::packageImport : PackageImport
42756
42757            return
42758              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
42759               (AMF.UML.Regions.UML_Region_Access
42760                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
42761
42762         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
42763            --  NamedElement::qualifiedName : String
42764
42765            return
42766              AMF.Holders.To_Holder
42767               (AMF.UML.Regions.UML_Region_Access
42768                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
42769
42770         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
42771            --  RedefinableElement::redefinedElement : RedefinableElement
42772
42773            return
42774              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
42775               (AMF.UML.Regions.UML_Region_Access
42776                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
42777
42778         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
42779            --  RedefinableElement::redefinitionContext : Classifier
42780
42781            return
42782              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
42783               (AMF.UML.Regions.UML_Region_Access
42784                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
42785
42786         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Region_Redefinition_Context_A_Region then
42787            --  Region::redefinitionContext : Classifier
42788
42789            return
42790              AMF.Internals.Holders.UML_Holders.To_Holder
42791               (AMF.UML.Classifiers.UML_Classifier_Access'
42792                 (AMF.UML.Regions.UML_Region_Access
42793                   (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context));
42794
42795         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Region_State_State_Region then
42796            --  Region::state : State
42797
42798            return
42799              AMF.Internals.Holders.UML_Holders.To_Holder
42800               (AMF.UML.States.UML_State_Access'
42801                 (AMF.UML.Regions.UML_Region_Access
42802                   (AMF.Internals.Helpers.To_Element (Self)).Get_State));
42803
42804         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Region_State_Machine_State_Machine_Region then
42805            --  Region::stateMachine : StateMachine
42806
42807            return
42808              AMF.Internals.Holders.UML_Holders.To_Holder
42809               (AMF.UML.State_Machines.UML_State_Machine_Access'
42810                 (AMF.UML.Regions.UML_Region_Access
42811                   (AMF.Internals.Helpers.To_Element (Self)).Get_State_Machine));
42812
42813         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Region_Subvertex_Vertex_Container then
42814            --  Region::subvertex : Vertex
42815
42816            return
42817              AMF.UML.Vertexs.Collections.UML_Vertex_Collections.Internals.To_Holder
42818               (AMF.UML.Regions.UML_Region_Access
42819                 (AMF.Internals.Helpers.To_Element (Self)).Get_Subvertex);
42820
42821         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Region_Transition_Transition_Container then
42822            --  Region::transition : Transition
42823
42824            return
42825              AMF.UML.Transitions.Collections.UML_Transition_Collections.Internals.To_Holder
42826               (AMF.UML.Regions.UML_Region_Access
42827                 (AMF.Internals.Helpers.To_Element (Self)).Get_Transition);
42828
42829         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
42830            --  NamedElement::visibility : VisibilityKind
42831
42832            return
42833              AMF.UML.Holders.To_Holder
42834               (AMF.UML.Regions.UML_Region_Access
42835                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
42836
42837         else
42838            raise Program_Error;
42839         end if;
42840      end UML_Region_Get;
42841
42842      ----------------------------------------------------
42843      -- UML_Remove_Structural_Feature_Value_Action_Get --
42844      ----------------------------------------------------
42845
42846      function UML_Remove_Structural_Feature_Value_Action_Get return League.Holders.Holder is
42847      begin
42848         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
42849            --  ActivityNode::activity : Activity
42850
42851            return
42852              AMF.Internals.Holders.UML_Holders.To_Holder
42853               (AMF.UML.Activities.UML_Activity_Access'
42854                 (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
42855                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
42856
42857         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
42858            --  NamedElement::clientDependency : Dependency
42859
42860            return
42861              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
42862               (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
42863                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
42864
42865         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
42866            --  Action::context : Classifier
42867
42868            return
42869              AMF.Internals.Holders.UML_Holders.To_Holder
42870               (AMF.UML.Classifiers.UML_Classifier_Access'
42871                 (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
42872                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
42873
42874         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
42875            --  ExecutableNode::handler : ExceptionHandler
42876
42877            return
42878              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
42879               (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
42880                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
42881
42882         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
42883            --  ActivityNode::inGroup : ActivityGroup
42884
42885            return
42886              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
42887               (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
42888                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
42889
42890         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
42891            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
42892
42893            return
42894              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
42895               (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
42896                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
42897
42898         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
42899            --  ActivityNode::inPartition : ActivityPartition
42900
42901            return
42902              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
42903               (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
42904                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
42905
42906         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
42907            --  ActivityNode::inStructuredNode : StructuredActivityNode
42908
42909            return
42910              AMF.Internals.Holders.UML_Holders.To_Holder
42911               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
42912                 (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
42913                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
42914
42915         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
42916            --  ActivityNode::incoming : ActivityEdge
42917
42918            return
42919              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
42920               (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
42921                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
42922
42923         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
42924            --  Action::input : InputPin
42925
42926            return
42927              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
42928               (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
42929                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
42930
42931         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
42932            --  RedefinableElement::isLeaf : Boolean
42933
42934            return
42935              League.Holders.Booleans.To_Holder
42936               (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
42937                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
42938
42939         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
42940            --  Action::isLocallyReentrant : Boolean
42941
42942            return
42943              League.Holders.Booleans.To_Holder
42944               (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
42945                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
42946
42947         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Remove_Structural_Feature_Value_Action_Is_Remove_Duplicates then
42948            --  RemoveStructuralFeatureValueAction::isRemoveDuplicates : Boolean
42949
42950            return
42951              League.Holders.Booleans.To_Holder
42952               (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
42953                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Remove_Duplicates);
42954
42955         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
42956            --  Action::localPostcondition : Constraint
42957
42958            return
42959              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
42960               (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
42961                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
42962
42963         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
42964            --  Action::localPrecondition : Constraint
42965
42966            return
42967              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
42968               (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
42969                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
42970
42971         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
42972            --  NamedElement::name : String
42973
42974            return
42975              AMF.Holders.To_Holder
42976               (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
42977                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
42978
42979         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
42980            --  NamedElement::nameExpression : StringExpression
42981
42982            return
42983              AMF.Internals.Holders.UML_Holders.To_Holder
42984               (AMF.UML.String_Expressions.UML_String_Expression_Access'
42985                 (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
42986                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
42987
42988         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
42989            --  NamedElement::namespace : Namespace
42990
42991            return
42992              AMF.Internals.Holders.UML_Holders.To_Holder
42993               (AMF.UML.Namespaces.UML_Namespace_Access'
42994                 (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
42995                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
42996
42997         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structural_Feature_Action_Object_A_Structural_Feature_Action then
42998            --  StructuralFeatureAction::object : InputPin
42999
43000            return
43001              AMF.Internals.Holders.UML_Holders.To_Holder
43002               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
43003                 (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
43004                   (AMF.Internals.Helpers.To_Element (Self)).Get_Object));
43005
43006         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
43007            --  ActivityNode::outgoing : ActivityEdge
43008
43009            return
43010              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
43011               (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
43012                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
43013
43014         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
43015            --  Action::output : OutputPin
43016
43017            return
43018              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
43019               (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
43020                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
43021
43022         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
43023            --  Element::ownedComment : Comment
43024
43025            return
43026              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
43027               (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
43028                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
43029
43030         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
43031            --  Element::ownedElement : Element
43032
43033            return
43034              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
43035               (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
43036                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
43037
43038         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
43039            --  Element::owner : Element
43040
43041            return
43042              AMF.Internals.Holders.UML_Holders.To_Holder
43043               (AMF.UML.Elements.UML_Element_Access'
43044                 (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
43045                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
43046
43047         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
43048            --  NamedElement::qualifiedName : String
43049
43050            return
43051              AMF.Holders.To_Holder
43052               (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
43053                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
43054
43055         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
43056            --  RedefinableElement::redefinedElement : RedefinableElement
43057
43058            return
43059              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
43060               (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
43061                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
43062
43063         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
43064            --  ActivityNode::redefinedNode : ActivityNode
43065
43066            return
43067              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
43068               (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
43069                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
43070
43071         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
43072            --  RedefinableElement::redefinitionContext : Classifier
43073
43074            return
43075              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
43076               (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
43077                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
43078
43079         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Remove_Structural_Feature_Value_Action_Remove_At_A_Remove_Structural_Feature_Value_Action then
43080            --  RemoveStructuralFeatureValueAction::removeAt : InputPin
43081
43082            return
43083              AMF.Internals.Holders.UML_Holders.To_Holder
43084               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
43085                 (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
43086                   (AMF.Internals.Helpers.To_Element (Self)).Get_Remove_At));
43087
43088         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Write_Structural_Feature_Action_Result_A_Write_Structural_Feature_Action then
43089            --  WriteStructuralFeatureAction::result : OutputPin
43090
43091            return
43092              AMF.Internals.Holders.UML_Holders.To_Holder
43093               (AMF.UML.Output_Pins.UML_Output_Pin_Access'
43094                 (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
43095                   (AMF.Internals.Helpers.To_Element (Self)).Get_Result));
43096
43097         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structural_Feature_Action_Structural_Feature_A_Structural_Feature_Action then
43098            --  StructuralFeatureAction::structuralFeature : StructuralFeature
43099
43100            return
43101              AMF.Internals.Holders.UML_Holders.To_Holder
43102               (AMF.UML.Structural_Features.UML_Structural_Feature_Access'
43103                 (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
43104                   (AMF.Internals.Helpers.To_Element (Self)).Get_Structural_Feature));
43105
43106         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Write_Structural_Feature_Action_Value_A_Write_Structural_Feature_Action then
43107            --  WriteStructuralFeatureAction::value : InputPin
43108
43109            return
43110              AMF.Internals.Holders.UML_Holders.To_Holder
43111               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
43112                 (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
43113                   (AMF.Internals.Helpers.To_Element (Self)).Get_Value));
43114
43115         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
43116            --  NamedElement::visibility : VisibilityKind
43117
43118            return
43119              AMF.UML.Holders.To_Holder
43120               (AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
43121                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
43122
43123         else
43124            raise Program_Error;
43125         end if;
43126      end UML_Remove_Structural_Feature_Value_Action_Get;
43127
43128      ------------------------------------------
43129      -- UML_Remove_Variable_Value_Action_Get --
43130      ------------------------------------------
43131
43132      function UML_Remove_Variable_Value_Action_Get return League.Holders.Holder is
43133      begin
43134         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
43135            --  ActivityNode::activity : Activity
43136
43137            return
43138              AMF.Internals.Holders.UML_Holders.To_Holder
43139               (AMF.UML.Activities.UML_Activity_Access'
43140                 (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43141                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
43142
43143         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
43144            --  NamedElement::clientDependency : Dependency
43145
43146            return
43147              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
43148               (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43149                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
43150
43151         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
43152            --  Action::context : Classifier
43153
43154            return
43155              AMF.Internals.Holders.UML_Holders.To_Holder
43156               (AMF.UML.Classifiers.UML_Classifier_Access'
43157                 (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43158                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
43159
43160         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
43161            --  ExecutableNode::handler : ExceptionHandler
43162
43163            return
43164              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
43165               (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43166                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
43167
43168         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
43169            --  ActivityNode::inGroup : ActivityGroup
43170
43171            return
43172              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
43173               (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43174                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
43175
43176         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
43177            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
43178
43179            return
43180              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
43181               (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43182                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
43183
43184         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
43185            --  ActivityNode::inPartition : ActivityPartition
43186
43187            return
43188              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
43189               (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43190                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
43191
43192         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
43193            --  ActivityNode::inStructuredNode : StructuredActivityNode
43194
43195            return
43196              AMF.Internals.Holders.UML_Holders.To_Holder
43197               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
43198                 (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43199                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
43200
43201         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
43202            --  ActivityNode::incoming : ActivityEdge
43203
43204            return
43205              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
43206               (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43207                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
43208
43209         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
43210            --  Action::input : InputPin
43211
43212            return
43213              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
43214               (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43215                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
43216
43217         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
43218            --  RedefinableElement::isLeaf : Boolean
43219
43220            return
43221              League.Holders.Booleans.To_Holder
43222               (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43223                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
43224
43225         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
43226            --  Action::isLocallyReentrant : Boolean
43227
43228            return
43229              League.Holders.Booleans.To_Holder
43230               (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43231                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
43232
43233         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Remove_Variable_Value_Action_Is_Remove_Duplicates then
43234            --  RemoveVariableValueAction::isRemoveDuplicates : Boolean
43235
43236            return
43237              League.Holders.Booleans.To_Holder
43238               (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43239                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Remove_Duplicates);
43240
43241         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
43242            --  Action::localPostcondition : Constraint
43243
43244            return
43245              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
43246               (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43247                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
43248
43249         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
43250            --  Action::localPrecondition : Constraint
43251
43252            return
43253              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
43254               (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43255                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
43256
43257         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
43258            --  NamedElement::name : String
43259
43260            return
43261              AMF.Holders.To_Holder
43262               (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43263                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
43264
43265         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
43266            --  NamedElement::nameExpression : StringExpression
43267
43268            return
43269              AMF.Internals.Holders.UML_Holders.To_Holder
43270               (AMF.UML.String_Expressions.UML_String_Expression_Access'
43271                 (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43272                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
43273
43274         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
43275            --  NamedElement::namespace : Namespace
43276
43277            return
43278              AMF.Internals.Holders.UML_Holders.To_Holder
43279               (AMF.UML.Namespaces.UML_Namespace_Access'
43280                 (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43281                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
43282
43283         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
43284            --  ActivityNode::outgoing : ActivityEdge
43285
43286            return
43287              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
43288               (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43289                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
43290
43291         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
43292            --  Action::output : OutputPin
43293
43294            return
43295              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
43296               (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43297                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
43298
43299         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
43300            --  Element::ownedComment : Comment
43301
43302            return
43303              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
43304               (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43305                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
43306
43307         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
43308            --  Element::ownedElement : Element
43309
43310            return
43311              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
43312               (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43313                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
43314
43315         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
43316            --  Element::owner : Element
43317
43318            return
43319              AMF.Internals.Holders.UML_Holders.To_Holder
43320               (AMF.UML.Elements.UML_Element_Access'
43321                 (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43322                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
43323
43324         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
43325            --  NamedElement::qualifiedName : String
43326
43327            return
43328              AMF.Holders.To_Holder
43329               (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43330                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
43331
43332         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
43333            --  RedefinableElement::redefinedElement : RedefinableElement
43334
43335            return
43336              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
43337               (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43338                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
43339
43340         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
43341            --  ActivityNode::redefinedNode : ActivityNode
43342
43343            return
43344              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
43345               (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43346                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
43347
43348         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
43349            --  RedefinableElement::redefinitionContext : Classifier
43350
43351            return
43352              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
43353               (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43354                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
43355
43356         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Remove_Variable_Value_Action_Remove_At_A_Remove_Variable_Value_Action then
43357            --  RemoveVariableValueAction::removeAt : InputPin
43358
43359            return
43360              AMF.Internals.Holders.UML_Holders.To_Holder
43361               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
43362                 (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43363                   (AMF.Internals.Helpers.To_Element (Self)).Get_Remove_At));
43364
43365         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Write_Variable_Action_Value_A_Write_Variable_Action then
43366            --  WriteVariableAction::value : InputPin
43367
43368            return
43369              AMF.Internals.Holders.UML_Holders.To_Holder
43370               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
43371                 (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43372                   (AMF.Internals.Helpers.To_Element (Self)).Get_Value));
43373
43374         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Variable_Action_Variable_A_Variable_Action then
43375            --  VariableAction::variable : Variable
43376
43377            return
43378              AMF.Internals.Holders.UML_Holders.To_Holder
43379               (AMF.UML.Variables.UML_Variable_Access'
43380                 (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43381                   (AMF.Internals.Helpers.To_Element (Self)).Get_Variable));
43382
43383         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
43384            --  NamedElement::visibility : VisibilityKind
43385
43386            return
43387              AMF.UML.Holders.To_Holder
43388               (AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
43389                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
43390
43391         else
43392            raise Program_Error;
43393         end if;
43394      end UML_Remove_Variable_Value_Action_Get;
43395
43396      --------------------------
43397      -- UML_Reply_Action_Get --
43398      --------------------------
43399
43400      function UML_Reply_Action_Get return League.Holders.Holder is
43401      begin
43402         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
43403            --  ActivityNode::activity : Activity
43404
43405            return
43406              AMF.Internals.Holders.UML_Holders.To_Holder
43407               (AMF.UML.Activities.UML_Activity_Access'
43408                 (AMF.UML.Reply_Actions.UML_Reply_Action_Access
43409                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
43410
43411         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
43412            --  NamedElement::clientDependency : Dependency
43413
43414            return
43415              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
43416               (AMF.UML.Reply_Actions.UML_Reply_Action_Access
43417                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
43418
43419         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
43420            --  Action::context : Classifier
43421
43422            return
43423              AMF.Internals.Holders.UML_Holders.To_Holder
43424               (AMF.UML.Classifiers.UML_Classifier_Access'
43425                 (AMF.UML.Reply_Actions.UML_Reply_Action_Access
43426                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
43427
43428         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
43429            --  ExecutableNode::handler : ExceptionHandler
43430
43431            return
43432              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
43433               (AMF.UML.Reply_Actions.UML_Reply_Action_Access
43434                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
43435
43436         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
43437            --  ActivityNode::inGroup : ActivityGroup
43438
43439            return
43440              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
43441               (AMF.UML.Reply_Actions.UML_Reply_Action_Access
43442                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
43443
43444         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
43445            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
43446
43447            return
43448              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
43449               (AMF.UML.Reply_Actions.UML_Reply_Action_Access
43450                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
43451
43452         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
43453            --  ActivityNode::inPartition : ActivityPartition
43454
43455            return
43456              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
43457               (AMF.UML.Reply_Actions.UML_Reply_Action_Access
43458                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
43459
43460         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
43461            --  ActivityNode::inStructuredNode : StructuredActivityNode
43462
43463            return
43464              AMF.Internals.Holders.UML_Holders.To_Holder
43465               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
43466                 (AMF.UML.Reply_Actions.UML_Reply_Action_Access
43467                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
43468
43469         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
43470            --  ActivityNode::incoming : ActivityEdge
43471
43472            return
43473              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
43474               (AMF.UML.Reply_Actions.UML_Reply_Action_Access
43475                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
43476
43477         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
43478            --  Action::input : InputPin
43479
43480            return
43481              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
43482               (AMF.UML.Reply_Actions.UML_Reply_Action_Access
43483                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
43484
43485         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
43486            --  RedefinableElement::isLeaf : Boolean
43487
43488            return
43489              League.Holders.Booleans.To_Holder
43490               (AMF.UML.Reply_Actions.UML_Reply_Action_Access
43491                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
43492
43493         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
43494            --  Action::isLocallyReentrant : Boolean
43495
43496            return
43497              League.Holders.Booleans.To_Holder
43498               (AMF.UML.Reply_Actions.UML_Reply_Action_Access
43499                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
43500
43501         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
43502            --  Action::localPostcondition : Constraint
43503
43504            return
43505              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
43506               (AMF.UML.Reply_Actions.UML_Reply_Action_Access
43507                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
43508
43509         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
43510            --  Action::localPrecondition : Constraint
43511
43512            return
43513              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
43514               (AMF.UML.Reply_Actions.UML_Reply_Action_Access
43515                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
43516
43517         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
43518            --  NamedElement::name : String
43519
43520            return
43521              AMF.Holders.To_Holder
43522               (AMF.UML.Reply_Actions.UML_Reply_Action_Access
43523                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
43524
43525         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
43526            --  NamedElement::nameExpression : StringExpression
43527
43528            return
43529              AMF.Internals.Holders.UML_Holders.To_Holder
43530               (AMF.UML.String_Expressions.UML_String_Expression_Access'
43531                 (AMF.UML.Reply_Actions.UML_Reply_Action_Access
43532                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
43533
43534         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
43535            --  NamedElement::namespace : Namespace
43536
43537            return
43538              AMF.Internals.Holders.UML_Holders.To_Holder
43539               (AMF.UML.Namespaces.UML_Namespace_Access'
43540                 (AMF.UML.Reply_Actions.UML_Reply_Action_Access
43541                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
43542
43543         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
43544            --  ActivityNode::outgoing : ActivityEdge
43545
43546            return
43547              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
43548               (AMF.UML.Reply_Actions.UML_Reply_Action_Access
43549                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
43550
43551         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
43552            --  Action::output : OutputPin
43553
43554            return
43555              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
43556               (AMF.UML.Reply_Actions.UML_Reply_Action_Access
43557                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
43558
43559         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
43560            --  Element::ownedComment : Comment
43561
43562            return
43563              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
43564               (AMF.UML.Reply_Actions.UML_Reply_Action_Access
43565                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
43566
43567         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
43568            --  Element::ownedElement : Element
43569
43570            return
43571              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
43572               (AMF.UML.Reply_Actions.UML_Reply_Action_Access
43573                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
43574
43575         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
43576            --  Element::owner : Element
43577
43578            return
43579              AMF.Internals.Holders.UML_Holders.To_Holder
43580               (AMF.UML.Elements.UML_Element_Access'
43581                 (AMF.UML.Reply_Actions.UML_Reply_Action_Access
43582                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
43583
43584         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
43585            --  NamedElement::qualifiedName : String
43586
43587            return
43588              AMF.Holders.To_Holder
43589               (AMF.UML.Reply_Actions.UML_Reply_Action_Access
43590                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
43591
43592         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
43593            --  RedefinableElement::redefinedElement : RedefinableElement
43594
43595            return
43596              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
43597               (AMF.UML.Reply_Actions.UML_Reply_Action_Access
43598                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
43599
43600         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
43601            --  ActivityNode::redefinedNode : ActivityNode
43602
43603            return
43604              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
43605               (AMF.UML.Reply_Actions.UML_Reply_Action_Access
43606                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
43607
43608         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
43609            --  RedefinableElement::redefinitionContext : Classifier
43610
43611            return
43612              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
43613               (AMF.UML.Reply_Actions.UML_Reply_Action_Access
43614                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
43615
43616         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Reply_Action_Reply_To_Call_A_Reply_Action then
43617            --  ReplyAction::replyToCall : Trigger
43618
43619            return
43620              AMF.Internals.Holders.UML_Holders.To_Holder
43621               (AMF.UML.Triggers.UML_Trigger_Access'
43622                 (AMF.UML.Reply_Actions.UML_Reply_Action_Access
43623                   (AMF.Internals.Helpers.To_Element (Self)).Get_Reply_To_Call));
43624
43625         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Reply_Action_Reply_Value_A_Reply_Action then
43626            --  ReplyAction::replyValue : InputPin
43627
43628            return
43629              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
43630               (AMF.UML.Reply_Actions.UML_Reply_Action_Access
43631                 (AMF.Internals.Helpers.To_Element (Self)).Get_Reply_Value);
43632
43633         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Reply_Action_Return_Information_A_Reply_Action then
43634            --  ReplyAction::returnInformation : InputPin
43635
43636            return
43637              AMF.Internals.Holders.UML_Holders.To_Holder
43638               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
43639                 (AMF.UML.Reply_Actions.UML_Reply_Action_Access
43640                   (AMF.Internals.Helpers.To_Element (Self)).Get_Return_Information));
43641
43642         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
43643            --  NamedElement::visibility : VisibilityKind
43644
43645            return
43646              AMF.UML.Holders.To_Holder
43647               (AMF.UML.Reply_Actions.UML_Reply_Action_Access
43648                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
43649
43650         else
43651            raise Program_Error;
43652         end if;
43653      end UML_Reply_Action_Get;
43654
43655      --------------------------------
43656      -- UML_Send_Object_Action_Get --
43657      --------------------------------
43658
43659      function UML_Send_Object_Action_Get return League.Holders.Holder is
43660      begin
43661         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
43662            --  ActivityNode::activity : Activity
43663
43664            return
43665              AMF.Internals.Holders.UML_Holders.To_Holder
43666               (AMF.UML.Activities.UML_Activity_Access'
43667                 (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43668                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
43669
43670         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Invocation_Action_Argument_A_Invocation_Action then
43671            --  InvocationAction::argument : InputPin
43672
43673            return
43674              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
43675               (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43676                 (AMF.Internals.Helpers.To_Element (Self)).Get_Argument);
43677
43678         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
43679            --  NamedElement::clientDependency : Dependency
43680
43681            return
43682              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
43683               (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43684                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
43685
43686         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
43687            --  Action::context : Classifier
43688
43689            return
43690              AMF.Internals.Holders.UML_Holders.To_Holder
43691               (AMF.UML.Classifiers.UML_Classifier_Access'
43692                 (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43693                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
43694
43695         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
43696            --  ExecutableNode::handler : ExceptionHandler
43697
43698            return
43699              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
43700               (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43701                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
43702
43703         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
43704            --  ActivityNode::inGroup : ActivityGroup
43705
43706            return
43707              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
43708               (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43709                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
43710
43711         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
43712            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
43713
43714            return
43715              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
43716               (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43717                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
43718
43719         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
43720            --  ActivityNode::inPartition : ActivityPartition
43721
43722            return
43723              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
43724               (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43725                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
43726
43727         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
43728            --  ActivityNode::inStructuredNode : StructuredActivityNode
43729
43730            return
43731              AMF.Internals.Holders.UML_Holders.To_Holder
43732               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
43733                 (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43734                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
43735
43736         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
43737            --  ActivityNode::incoming : ActivityEdge
43738
43739            return
43740              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
43741               (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43742                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
43743
43744         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
43745            --  Action::input : InputPin
43746
43747            return
43748              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
43749               (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43750                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
43751
43752         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
43753            --  RedefinableElement::isLeaf : Boolean
43754
43755            return
43756              League.Holders.Booleans.To_Holder
43757               (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43758                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
43759
43760         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
43761            --  Action::isLocallyReentrant : Boolean
43762
43763            return
43764              League.Holders.Booleans.To_Holder
43765               (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43766                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
43767
43768         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
43769            --  Action::localPostcondition : Constraint
43770
43771            return
43772              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
43773               (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43774                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
43775
43776         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
43777            --  Action::localPrecondition : Constraint
43778
43779            return
43780              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
43781               (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43782                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
43783
43784         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
43785            --  NamedElement::name : String
43786
43787            return
43788              AMF.Holders.To_Holder
43789               (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43790                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
43791
43792         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
43793            --  NamedElement::nameExpression : StringExpression
43794
43795            return
43796              AMF.Internals.Holders.UML_Holders.To_Holder
43797               (AMF.UML.String_Expressions.UML_String_Expression_Access'
43798                 (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43799                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
43800
43801         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
43802            --  NamedElement::namespace : Namespace
43803
43804            return
43805              AMF.Internals.Holders.UML_Holders.To_Holder
43806               (AMF.UML.Namespaces.UML_Namespace_Access'
43807                 (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43808                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
43809
43810         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Invocation_Action_On_Port_A_Invocation_Action then
43811            --  InvocationAction::onPort : Port
43812
43813            return
43814              AMF.Internals.Holders.UML_Holders.To_Holder
43815               (AMF.UML.Ports.UML_Port_Access'
43816                 (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43817                   (AMF.Internals.Helpers.To_Element (Self)).Get_On_Port));
43818
43819         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
43820            --  ActivityNode::outgoing : ActivityEdge
43821
43822            return
43823              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
43824               (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43825                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
43826
43827         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
43828            --  Action::output : OutputPin
43829
43830            return
43831              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
43832               (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43833                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
43834
43835         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
43836            --  Element::ownedComment : Comment
43837
43838            return
43839              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
43840               (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43841                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
43842
43843         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
43844            --  Element::ownedElement : Element
43845
43846            return
43847              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
43848               (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43849                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
43850
43851         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
43852            --  Element::owner : Element
43853
43854            return
43855              AMF.Internals.Holders.UML_Holders.To_Holder
43856               (AMF.UML.Elements.UML_Element_Access'
43857                 (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43858                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
43859
43860         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
43861            --  NamedElement::qualifiedName : String
43862
43863            return
43864              AMF.Holders.To_Holder
43865               (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43866                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
43867
43868         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
43869            --  RedefinableElement::redefinedElement : RedefinableElement
43870
43871            return
43872              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
43873               (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43874                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
43875
43876         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
43877            --  ActivityNode::redefinedNode : ActivityNode
43878
43879            return
43880              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
43881               (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43882                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
43883
43884         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
43885            --  RedefinableElement::redefinitionContext : Classifier
43886
43887            return
43888              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
43889               (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43890                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
43891
43892         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Send_Object_Action_Request_A_Send_Object_Action then
43893            --  SendObjectAction::request : InputPin
43894
43895            return
43896              AMF.Internals.Holders.UML_Holders.To_Holder
43897               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
43898                 (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43899                   (AMF.Internals.Helpers.To_Element (Self)).Get_Request));
43900
43901         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Send_Object_Action_Target_A_Send_Object_Action then
43902            --  SendObjectAction::target : InputPin
43903
43904            return
43905              AMF.Internals.Holders.UML_Holders.To_Holder
43906               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
43907                 (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43908                   (AMF.Internals.Helpers.To_Element (Self)).Get_Target));
43909
43910         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
43911            --  NamedElement::visibility : VisibilityKind
43912
43913            return
43914              AMF.UML.Holders.To_Holder
43915               (AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
43916                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
43917
43918         else
43919            raise Program_Error;
43920         end if;
43921      end UML_Send_Object_Action_Get;
43922
43923      --------------------------------
43924      -- UML_Send_Signal_Action_Get --
43925      --------------------------------
43926
43927      function UML_Send_Signal_Action_Get return League.Holders.Holder is
43928      begin
43929         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
43930            --  ActivityNode::activity : Activity
43931
43932            return
43933              AMF.Internals.Holders.UML_Holders.To_Holder
43934               (AMF.UML.Activities.UML_Activity_Access'
43935                 (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
43936                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
43937
43938         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Invocation_Action_Argument_A_Invocation_Action then
43939            --  InvocationAction::argument : InputPin
43940
43941            return
43942              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
43943               (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
43944                 (AMF.Internals.Helpers.To_Element (Self)).Get_Argument);
43945
43946         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
43947            --  NamedElement::clientDependency : Dependency
43948
43949            return
43950              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
43951               (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
43952                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
43953
43954         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
43955            --  Action::context : Classifier
43956
43957            return
43958              AMF.Internals.Holders.UML_Holders.To_Holder
43959               (AMF.UML.Classifiers.UML_Classifier_Access'
43960                 (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
43961                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
43962
43963         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
43964            --  ExecutableNode::handler : ExceptionHandler
43965
43966            return
43967              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
43968               (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
43969                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
43970
43971         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
43972            --  ActivityNode::inGroup : ActivityGroup
43973
43974            return
43975              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
43976               (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
43977                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
43978
43979         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
43980            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
43981
43982            return
43983              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
43984               (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
43985                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
43986
43987         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
43988            --  ActivityNode::inPartition : ActivityPartition
43989
43990            return
43991              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
43992               (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
43993                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
43994
43995         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
43996            --  ActivityNode::inStructuredNode : StructuredActivityNode
43997
43998            return
43999              AMF.Internals.Holders.UML_Holders.To_Holder
44000               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
44001                 (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
44002                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
44003
44004         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
44005            --  ActivityNode::incoming : ActivityEdge
44006
44007            return
44008              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
44009               (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
44010                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
44011
44012         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
44013            --  Action::input : InputPin
44014
44015            return
44016              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
44017               (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
44018                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
44019
44020         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
44021            --  RedefinableElement::isLeaf : Boolean
44022
44023            return
44024              League.Holders.Booleans.To_Holder
44025               (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
44026                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
44027
44028         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
44029            --  Action::isLocallyReentrant : Boolean
44030
44031            return
44032              League.Holders.Booleans.To_Holder
44033               (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
44034                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
44035
44036         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
44037            --  Action::localPostcondition : Constraint
44038
44039            return
44040              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
44041               (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
44042                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
44043
44044         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
44045            --  Action::localPrecondition : Constraint
44046
44047            return
44048              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
44049               (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
44050                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
44051
44052         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
44053            --  NamedElement::name : String
44054
44055            return
44056              AMF.Holders.To_Holder
44057               (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
44058                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
44059
44060         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
44061            --  NamedElement::nameExpression : StringExpression
44062
44063            return
44064              AMF.Internals.Holders.UML_Holders.To_Holder
44065               (AMF.UML.String_Expressions.UML_String_Expression_Access'
44066                 (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
44067                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
44068
44069         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
44070            --  NamedElement::namespace : Namespace
44071
44072            return
44073              AMF.Internals.Holders.UML_Holders.To_Holder
44074               (AMF.UML.Namespaces.UML_Namespace_Access'
44075                 (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
44076                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
44077
44078         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Invocation_Action_On_Port_A_Invocation_Action then
44079            --  InvocationAction::onPort : Port
44080
44081            return
44082              AMF.Internals.Holders.UML_Holders.To_Holder
44083               (AMF.UML.Ports.UML_Port_Access'
44084                 (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
44085                   (AMF.Internals.Helpers.To_Element (Self)).Get_On_Port));
44086
44087         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
44088            --  ActivityNode::outgoing : ActivityEdge
44089
44090            return
44091              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
44092               (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
44093                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
44094
44095         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
44096            --  Action::output : OutputPin
44097
44098            return
44099              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
44100               (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
44101                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
44102
44103         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
44104            --  Element::ownedComment : Comment
44105
44106            return
44107              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
44108               (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
44109                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
44110
44111         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
44112            --  Element::ownedElement : Element
44113
44114            return
44115              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
44116               (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
44117                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
44118
44119         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
44120            --  Element::owner : Element
44121
44122            return
44123              AMF.Internals.Holders.UML_Holders.To_Holder
44124               (AMF.UML.Elements.UML_Element_Access'
44125                 (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
44126                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
44127
44128         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
44129            --  NamedElement::qualifiedName : String
44130
44131            return
44132              AMF.Holders.To_Holder
44133               (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
44134                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
44135
44136         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
44137            --  RedefinableElement::redefinedElement : RedefinableElement
44138
44139            return
44140              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
44141               (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
44142                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
44143
44144         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
44145            --  ActivityNode::redefinedNode : ActivityNode
44146
44147            return
44148              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
44149               (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
44150                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
44151
44152         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
44153            --  RedefinableElement::redefinitionContext : Classifier
44154
44155            return
44156              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
44157               (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
44158                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
44159
44160         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Send_Signal_Action_Signal_A_Send_Signal_Action then
44161            --  SendSignalAction::signal : Signal
44162
44163            return
44164              AMF.Internals.Holders.UML_Holders.To_Holder
44165               (AMF.UML.Signals.UML_Signal_Access'
44166                 (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
44167                   (AMF.Internals.Helpers.To_Element (Self)).Get_Signal));
44168
44169         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Send_Signal_Action_Target_A_Send_Signal_Action then
44170            --  SendSignalAction::target : InputPin
44171
44172            return
44173              AMF.Internals.Holders.UML_Holders.To_Holder
44174               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
44175                 (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
44176                   (AMF.Internals.Helpers.To_Element (Self)).Get_Target));
44177
44178         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
44179            --  NamedElement::visibility : VisibilityKind
44180
44181            return
44182              AMF.UML.Holders.To_Holder
44183               (AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
44184                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
44185
44186         else
44187            raise Program_Error;
44188         end if;
44189      end UML_Send_Signal_Action_Get;
44190
44191      ---------------------------
44192      -- UML_Sequence_Node_Get --
44193      ---------------------------
44194
44195      function UML_Sequence_Node_Get return League.Holders.Holder is
44196      begin
44197         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
44198            --  ActivityNode::activity : Activity
44199
44200            return
44201              AMF.Internals.Holders.UML_Holders.To_Holder
44202               (AMF.UML.Activities.UML_Activity_Access'
44203                 (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44204                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
44205
44206         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Activity_Activity_Structured_Node then
44207            --  StructuredActivityNode::activity : Activity
44208
44209            return
44210              AMF.Internals.Holders.UML_Holders.To_Holder
44211               (AMF.UML.Activities.UML_Activity_Access'
44212                 (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44213                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
44214
44215         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
44216            --  NamedElement::clientDependency : Dependency
44217
44218            return
44219              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
44220               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44221                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
44222
44223         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Contained_Edge_Activity_Edge_In_Group then
44224            --  ActivityGroup::containedEdge : ActivityEdge
44225
44226            return
44227              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
44228               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44229                 (AMF.Internals.Helpers.To_Element (Self)).Get_Contained_Edge);
44230
44231         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Contained_Node_Activity_Node_In_Group then
44232            --  ActivityGroup::containedNode : ActivityNode
44233
44234            return
44235              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
44236               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44237                 (AMF.Internals.Helpers.To_Element (Self)).Get_Contained_Node);
44238
44239         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
44240            --  Action::context : Classifier
44241
44242            return
44243              AMF.Internals.Holders.UML_Holders.To_Holder
44244               (AMF.UML.Classifiers.UML_Classifier_Access'
44245                 (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44246                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
44247
44248         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Edge_Activity_Edge_In_Structured_Node then
44249            --  StructuredActivityNode::edge : ActivityEdge
44250
44251            return
44252              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
44253               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44254                 (AMF.Internals.Helpers.To_Element (Self)).Get_Edge);
44255
44256         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
44257            --  Namespace::elementImport : ElementImport
44258
44259            return
44260              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
44261               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44262                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
44263
44264         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Sequence_Node_Executable_Node_A_Sequence_Node then
44265            --  SequenceNode::executableNode : ExecutableNode
44266
44267            return
44268              AMF.UML.Executable_Nodes.Collections.UML_Executable_Node_Collections.Internals.To_Holder
44269               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44270                 (AMF.Internals.Helpers.To_Element (Self)).Get_Executable_Node);
44271
44272         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
44273            --  ExecutableNode::handler : ExceptionHandler
44274
44275            return
44276              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
44277               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44278                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
44279
44280         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
44281            --  Namespace::importedMember : PackageableElement
44282
44283            return
44284              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
44285               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44286                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
44287
44288         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_In_Activity_Activity_Group then
44289            --  ActivityGroup::inActivity : Activity
44290
44291            return
44292              AMF.Internals.Holders.UML_Holders.To_Holder
44293               (AMF.UML.Activities.UML_Activity_Access'
44294                 (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44295                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Activity));
44296
44297         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
44298            --  ActivityNode::inGroup : ActivityGroup
44299
44300            return
44301              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
44302               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44303                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
44304
44305         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
44306            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
44307
44308            return
44309              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
44310               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44311                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
44312
44313         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
44314            --  ActivityNode::inPartition : ActivityPartition
44315
44316            return
44317              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
44318               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44319                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
44320
44321         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
44322            --  ActivityNode::inStructuredNode : StructuredActivityNode
44323
44324            return
44325              AMF.Internals.Holders.UML_Holders.To_Holder
44326               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
44327                 (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44328                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
44329
44330         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
44331            --  ActivityNode::incoming : ActivityEdge
44332
44333            return
44334              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
44335               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44336                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
44337
44338         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
44339            --  Action::input : InputPin
44340
44341            return
44342              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
44343               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44344                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
44345
44346         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
44347            --  RedefinableElement::isLeaf : Boolean
44348
44349            return
44350              League.Holders.Booleans.To_Holder
44351               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44352                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
44353
44354         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
44355            --  Action::isLocallyReentrant : Boolean
44356
44357            return
44358              League.Holders.Booleans.To_Holder
44359               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44360                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
44361
44362         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
44363            --  Action::localPostcondition : Constraint
44364
44365            return
44366              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
44367               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44368                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
44369
44370         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
44371            --  Action::localPrecondition : Constraint
44372
44373            return
44374              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
44375               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44376                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
44377
44378         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
44379            --  Namespace::member : NamedElement
44380
44381            return
44382              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
44383               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44384                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
44385
44386         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Must_Isolate then
44387            --  StructuredActivityNode::mustIsolate : Boolean
44388
44389            return
44390              League.Holders.Booleans.To_Holder
44391               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44392                 (AMF.Internals.Helpers.To_Element (Self)).Get_Must_Isolate);
44393
44394         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
44395            --  NamedElement::name : String
44396
44397            return
44398              AMF.Holders.To_Holder
44399               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44400                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
44401
44402         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
44403            --  NamedElement::nameExpression : StringExpression
44404
44405            return
44406              AMF.Internals.Holders.UML_Holders.To_Holder
44407               (AMF.UML.String_Expressions.UML_String_Expression_Access'
44408                 (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44409                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
44410
44411         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
44412            --  NamedElement::namespace : Namespace
44413
44414            return
44415              AMF.Internals.Holders.UML_Holders.To_Holder
44416               (AMF.UML.Namespaces.UML_Namespace_Access'
44417                 (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44418                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
44419
44420         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Node_Activity_Node_In_Structured_Node then
44421            --  StructuredActivityNode::node : ActivityNode
44422
44423            return
44424              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
44425               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44426                 (AMF.Internals.Helpers.To_Element (Self)).Get_Node);
44427
44428         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
44429            --  ActivityNode::outgoing : ActivityEdge
44430
44431            return
44432              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
44433               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44434                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
44435
44436         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
44437            --  Action::output : OutputPin
44438
44439            return
44440              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
44441               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44442                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
44443
44444         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
44445            --  Element::ownedComment : Comment
44446
44447            return
44448              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
44449               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44450                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
44451
44452         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
44453            --  Element::ownedElement : Element
44454
44455            return
44456              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
44457               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44458                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
44459
44460         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
44461            --  Namespace::ownedMember : NamedElement
44462
44463            return
44464              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
44465               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44466                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
44467
44468         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
44469            --  Namespace::ownedRule : Constraint
44470
44471            return
44472              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
44473               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44474                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
44475
44476         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
44477            --  Element::owner : Element
44478
44479            return
44480              AMF.Internals.Holders.UML_Holders.To_Holder
44481               (AMF.UML.Elements.UML_Element_Access'
44482                 (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44483                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
44484
44485         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
44486            --  Namespace::packageImport : PackageImport
44487
44488            return
44489              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
44490               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44491                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
44492
44493         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
44494            --  NamedElement::qualifiedName : String
44495
44496            return
44497              AMF.Holders.To_Holder
44498               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44499                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
44500
44501         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
44502            --  RedefinableElement::redefinedElement : RedefinableElement
44503
44504            return
44505              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
44506               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44507                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
44508
44509         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
44510            --  ActivityNode::redefinedNode : ActivityNode
44511
44512            return
44513              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
44514               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44515                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
44516
44517         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
44518            --  RedefinableElement::redefinitionContext : Classifier
44519
44520            return
44521              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
44522               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44523                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
44524
44525         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Structured_Node_Input_A_Structured_Activity_Node then
44526            --  StructuredActivityNode::structuredNodeInput : InputPin
44527
44528            return
44529              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
44530               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44531                 (AMF.Internals.Helpers.To_Element (Self)).Get_Structured_Node_Input);
44532
44533         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Structured_Node_Output_A_Structured_Activity_Node then
44534            --  StructuredActivityNode::structuredNodeOutput : OutputPin
44535
44536            return
44537              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
44538               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44539                 (AMF.Internals.Helpers.To_Element (Self)).Get_Structured_Node_Output);
44540
44541         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Subgroup_Activity_Group_Super_Group then
44542            --  ActivityGroup::subgroup : ActivityGroup
44543
44544            return
44545              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
44546               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44547                 (AMF.Internals.Helpers.To_Element (Self)).Get_Subgroup);
44548
44549         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Super_Group_Activity_Group_Subgroup then
44550            --  ActivityGroup::superGroup : ActivityGroup
44551
44552            return
44553              AMF.Internals.Holders.UML_Holders.To_Holder
44554               (AMF.UML.Activity_Groups.UML_Activity_Group_Access'
44555                 (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44556                   (AMF.Internals.Helpers.To_Element (Self)).Get_Super_Group));
44557
44558         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Variable_Variable_Scope then
44559            --  StructuredActivityNode::variable : Variable
44560
44561            return
44562              AMF.UML.Variables.Collections.UML_Variable_Collections.Internals.To_Holder
44563               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44564                 (AMF.Internals.Helpers.To_Element (Self)).Get_Variable);
44565
44566         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
44567            --  NamedElement::visibility : VisibilityKind
44568
44569            return
44570              AMF.UML.Holders.To_Holder
44571               (AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
44572                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
44573
44574         else
44575            raise Program_Error;
44576         end if;
44577      end UML_Sequence_Node_Get;
44578
44579      --------------------
44580      -- UML_Signal_Get --
44581      --------------------
44582
44583      function UML_Signal_Get return League.Holders.Holder is
44584      begin
44585         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier then
44586            --  Classifier::attribute : Property
44587
44588            return
44589              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
44590               (AMF.UML.Signals.UML_Signal_Access
44591                 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute);
44592
44593         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
44594            --  NamedElement::clientDependency : Dependency
44595
44596            return
44597              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
44598               (AMF.UML.Signals.UML_Signal_Access
44599                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
44600
44601         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier then
44602            --  Classifier::collaborationUse : CollaborationUse
44603
44604            return
44605              AMF.UML.Collaboration_Uses.Collections.UML_Collaboration_Use_Collections.Internals.To_Holder
44606               (AMF.UML.Signals.UML_Signal_Access
44607                 (AMF.Internals.Helpers.To_Element (Self)).Get_Collaboration_Use);
44608
44609         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
44610            --  Namespace::elementImport : ElementImport
44611
44612            return
44613              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
44614               (AMF.UML.Signals.UML_Signal_Access
44615                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
44616
44617         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier then
44618            --  Classifier::feature : Feature
44619
44620            return
44621              AMF.UML.Features.Collections.UML_Feature_Collections.Internals.To_Holder
44622               (AMF.UML.Signals.UML_Signal_Access
44623                 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature);
44624
44625         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier then
44626            --  Classifier::general : Classifier
44627
44628            return
44629              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
44630               (AMF.UML.Signals.UML_Signal_Access
44631                 (AMF.Internals.Helpers.To_Element (Self)).Get_General);
44632
44633         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific then
44634            --  Classifier::generalization : Generalization
44635
44636            return
44637              AMF.UML.Generalizations.Collections.UML_Generalization_Collections.Internals.To_Holder
44638               (AMF.UML.Signals.UML_Signal_Access
44639                 (AMF.Internals.Helpers.To_Element (Self)).Get_Generalization);
44640
44641         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
44642            --  Namespace::importedMember : PackageableElement
44643
44644            return
44645              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
44646               (AMF.UML.Signals.UML_Signal_Access
44647                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
44648
44649         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier then
44650            --  Classifier::inheritedMember : NamedElement
44651
44652            return
44653              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
44654               (AMF.UML.Signals.UML_Signal_Access
44655                 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member);
44656
44657         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
44658            --  Classifier::isAbstract : Boolean
44659
44660            return
44661              League.Holders.Booleans.To_Holder
44662               (AMF.UML.Signals.UML_Signal_Access
44663                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
44664
44665         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
44666            --  Classifier::isFinalSpecialization : Boolean
44667
44668            return
44669              League.Holders.Booleans.To_Holder
44670               (AMF.UML.Signals.UML_Signal_Access
44671                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization);
44672
44673         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
44674            --  RedefinableElement::isLeaf : Boolean
44675
44676            return
44677              League.Holders.Booleans.To_Holder
44678               (AMF.UML.Signals.UML_Signal_Access
44679                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
44680
44681         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
44682            --  Namespace::member : NamedElement
44683
44684            return
44685              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
44686               (AMF.UML.Signals.UML_Signal_Access
44687                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
44688
44689         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
44690            --  NamedElement::name : String
44691
44692            return
44693              AMF.Holders.To_Holder
44694               (AMF.UML.Signals.UML_Signal_Access
44695                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
44696
44697         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
44698            --  NamedElement::nameExpression : StringExpression
44699
44700            return
44701              AMF.Internals.Holders.UML_Holders.To_Holder
44702               (AMF.UML.String_Expressions.UML_String_Expression_Access'
44703                 (AMF.UML.Signals.UML_Signal_Access
44704                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
44705
44706         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
44707            --  NamedElement::namespace : Namespace
44708
44709            return
44710              AMF.Internals.Holders.UML_Holders.To_Holder
44711               (AMF.UML.Namespaces.UML_Namespace_Access'
44712                 (AMF.UML.Signals.UML_Signal_Access
44713                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
44714
44715         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Signal_Owned_Attribute_A_Owning_Signal then
44716            --  Signal::ownedAttribute : Property
44717
44718            return
44719              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
44720               (AMF.UML.Signals.UML_Signal_Access
44721                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
44722
44723         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
44724            --  Element::ownedComment : Comment
44725
44726            return
44727              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
44728               (AMF.UML.Signals.UML_Signal_Access
44729                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
44730
44731         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
44732            --  Element::ownedElement : Element
44733
44734            return
44735              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
44736               (AMF.UML.Signals.UML_Signal_Access
44737                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
44738
44739         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
44740            --  Namespace::ownedMember : NamedElement
44741
44742            return
44743              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
44744               (AMF.UML.Signals.UML_Signal_Access
44745                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
44746
44747         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
44748            --  Namespace::ownedRule : Constraint
44749
44750            return
44751              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
44752               (AMF.UML.Signals.UML_Signal_Access
44753                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
44754
44755         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
44756            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
44757
44758            return
44759              AMF.Internals.Holders.UML_Holders.To_Holder
44760               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access'
44761                 (AMF.UML.Signals.UML_Signal_Access
44762                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
44763
44764         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
44765            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
44766
44767            return
44768              AMF.Internals.Holders.UML_Holders.To_Holder
44769               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
44770                 (AMF.UML.Signals.UML_Signal_Access
44771                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
44772
44773         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier then
44774            --  Classifier::ownedUseCase : UseCase
44775
44776            return
44777              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
44778               (AMF.UML.Signals.UML_Signal_Access
44779                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Use_Case);
44780
44781         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
44782            --  Element::owner : Element
44783
44784            return
44785              AMF.Internals.Holders.UML_Holders.To_Holder
44786               (AMF.UML.Elements.UML_Element_Access'
44787                 (AMF.UML.Signals.UML_Signal_Access
44788                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
44789
44790         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
44791            --  ParameterableElement::owningTemplateParameter : TemplateParameter
44792
44793            return
44794              AMF.Internals.Holders.UML_Holders.To_Holder
44795               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
44796                 (AMF.UML.Signals.UML_Signal_Access
44797                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
44798
44799         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
44800            --  Type::package : Package
44801
44802            return
44803              AMF.Internals.Holders.UML_Holders.To_Holder
44804               (AMF.UML.Packages.UML_Package_Access'
44805                 (AMF.UML.Signals.UML_Signal_Access
44806                   (AMF.Internals.Helpers.To_Element (Self)).Get_Package));
44807
44808         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
44809            --  Namespace::packageImport : PackageImport
44810
44811            return
44812              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
44813               (AMF.UML.Signals.UML_Signal_Access
44814                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
44815
44816         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype then
44817            --  Classifier::powertypeExtent : GeneralizationSet
44818
44819            return
44820              AMF.UML.Generalization_Sets.Collections.UML_Generalization_Set_Collections.Internals.To_Holder
44821               (AMF.UML.Signals.UML_Signal_Access
44822                 (AMF.Internals.Helpers.To_Element (Self)).Get_Powertype_Extent);
44823
44824         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
44825            --  NamedElement::qualifiedName : String
44826
44827            return
44828              AMF.Holders.To_Holder
44829               (AMF.UML.Signals.UML_Signal_Access
44830                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
44831
44832         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier then
44833            --  Classifier::redefinedClassifier : Classifier
44834
44835            return
44836              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
44837               (AMF.UML.Signals.UML_Signal_Access
44838                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Classifier);
44839
44840         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
44841            --  RedefinableElement::redefinedElement : RedefinableElement
44842
44843            return
44844              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
44845               (AMF.UML.Signals.UML_Signal_Access
44846                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
44847
44848         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
44849            --  RedefinableElement::redefinitionContext : Classifier
44850
44851            return
44852              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
44853               (AMF.UML.Signals.UML_Signal_Access
44854                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
44855
44856         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
44857            --  Classifier::representation : CollaborationUse
44858
44859            return
44860              AMF.Internals.Holders.UML_Holders.To_Holder
44861               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access'
44862                 (AMF.UML.Signals.UML_Signal_Access
44863                   (AMF.Internals.Helpers.To_Element (Self)).Get_Representation));
44864
44865         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier then
44866            --  Classifier::substitution : Substitution
44867
44868            return
44869              AMF.UML.Substitutions.Collections.UML_Substitution_Collections.Internals.To_Holder
44870               (AMF.UML.Signals.UML_Signal_Access
44871                 (AMF.Internals.Helpers.To_Element (Self)).Get_Substitution);
44872
44873         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
44874            --  TemplateableElement::templateBinding : TemplateBinding
44875
44876            return
44877              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
44878               (AMF.UML.Signals.UML_Signal_Access
44879                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
44880
44881         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
44882            --  Classifier::templateParameter : ClassifierTemplateParameter
44883
44884            return
44885              AMF.Internals.Holders.UML_Holders.To_Holder
44886               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access'
44887                 (AMF.UML.Signals.UML_Signal_Access
44888                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
44889
44890         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
44891            --  ParameterableElement::templateParameter : TemplateParameter
44892
44893            return
44894              AMF.Internals.Holders.UML_Holders.To_Holder
44895               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
44896                 (AMF.UML.Signals.UML_Signal_Access
44897                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
44898
44899         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject then
44900            --  Classifier::useCase : UseCase
44901
44902            return
44903              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
44904               (AMF.UML.Signals.UML_Signal_Access
44905                 (AMF.Internals.Helpers.To_Element (Self)).Get_Use_Case);
44906
44907         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
44908            --  NamedElement::visibility : VisibilityKind
44909
44910            return
44911              AMF.UML.Holders.To_Holder
44912               (AMF.UML.Signals.UML_Signal_Access
44913                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
44914
44915         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
44916            --  PackageableElement::visibility : VisibilityKind
44917
44918            return
44919              AMF.UML.Holders.Visibility_Kinds.To_Holder
44920               (AMF.UML.Signals.UML_Signal_Access
44921                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
44922
44923         else
44924            raise Program_Error;
44925         end if;
44926      end UML_Signal_Get;
44927
44928      --------------------------
44929      -- UML_Signal_Event_Get --
44930      --------------------------
44931
44932      function UML_Signal_Event_Get return League.Holders.Holder is
44933      begin
44934         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
44935            --  NamedElement::clientDependency : Dependency
44936
44937            return
44938              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
44939               (AMF.UML.Signal_Events.UML_Signal_Event_Access
44940                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
44941
44942         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
44943            --  NamedElement::name : String
44944
44945            return
44946              AMF.Holders.To_Holder
44947               (AMF.UML.Signal_Events.UML_Signal_Event_Access
44948                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
44949
44950         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
44951            --  NamedElement::nameExpression : StringExpression
44952
44953            return
44954              AMF.Internals.Holders.UML_Holders.To_Holder
44955               (AMF.UML.String_Expressions.UML_String_Expression_Access'
44956                 (AMF.UML.Signal_Events.UML_Signal_Event_Access
44957                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
44958
44959         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
44960            --  NamedElement::namespace : Namespace
44961
44962            return
44963              AMF.Internals.Holders.UML_Holders.To_Holder
44964               (AMF.UML.Namespaces.UML_Namespace_Access'
44965                 (AMF.UML.Signal_Events.UML_Signal_Event_Access
44966                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
44967
44968         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
44969            --  Element::ownedComment : Comment
44970
44971            return
44972              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
44973               (AMF.UML.Signal_Events.UML_Signal_Event_Access
44974                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
44975
44976         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
44977            --  Element::ownedElement : Element
44978
44979            return
44980              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
44981               (AMF.UML.Signal_Events.UML_Signal_Event_Access
44982                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
44983
44984         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
44985            --  Element::owner : Element
44986
44987            return
44988              AMF.Internals.Holders.UML_Holders.To_Holder
44989               (AMF.UML.Elements.UML_Element_Access'
44990                 (AMF.UML.Signal_Events.UML_Signal_Event_Access
44991                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
44992
44993         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
44994            --  ParameterableElement::owningTemplateParameter : TemplateParameter
44995
44996            return
44997              AMF.Internals.Holders.UML_Holders.To_Holder
44998               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
44999                 (AMF.UML.Signal_Events.UML_Signal_Event_Access
45000                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
45001
45002         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
45003            --  NamedElement::qualifiedName : String
45004
45005            return
45006              AMF.Holders.To_Holder
45007               (AMF.UML.Signal_Events.UML_Signal_Event_Access
45008                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
45009
45010         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Signal_Event_Signal_A_Signal_Event then
45011            --  SignalEvent::signal : Signal
45012
45013            return
45014              AMF.Internals.Holders.UML_Holders.To_Holder
45015               (AMF.UML.Signals.UML_Signal_Access'
45016                 (AMF.UML.Signal_Events.UML_Signal_Event_Access
45017                   (AMF.Internals.Helpers.To_Element (Self)).Get_Signal));
45018
45019         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
45020            --  ParameterableElement::templateParameter : TemplateParameter
45021
45022            return
45023              AMF.Internals.Holders.UML_Holders.To_Holder
45024               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
45025                 (AMF.UML.Signal_Events.UML_Signal_Event_Access
45026                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
45027
45028         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
45029            --  NamedElement::visibility : VisibilityKind
45030
45031            return
45032              AMF.UML.Holders.To_Holder
45033               (AMF.UML.Signal_Events.UML_Signal_Event_Access
45034                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
45035
45036         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
45037            --  PackageableElement::visibility : VisibilityKind
45038
45039            return
45040              AMF.UML.Holders.Visibility_Kinds.To_Holder
45041               (AMF.UML.Signal_Events.UML_Signal_Event_Access
45042                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
45043
45044         else
45045            raise Program_Error;
45046         end if;
45047      end UML_Signal_Event_Get;
45048
45049      ------------------
45050      -- UML_Slot_Get --
45051      ------------------
45052
45053      function UML_Slot_Get return League.Holders.Holder is
45054      begin
45055         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Slot_Defining_Feature_A_Slot then
45056            --  Slot::definingFeature : StructuralFeature
45057
45058            return
45059              AMF.Internals.Holders.UML_Holders.To_Holder
45060               (AMF.UML.Structural_Features.UML_Structural_Feature_Access'
45061                 (AMF.UML.Slots.UML_Slot_Access
45062                   (AMF.Internals.Helpers.To_Element (Self)).Get_Defining_Feature));
45063
45064         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
45065            --  Element::ownedComment : Comment
45066
45067            return
45068              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
45069               (AMF.UML.Slots.UML_Slot_Access
45070                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
45071
45072         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
45073            --  Element::ownedElement : Element
45074
45075            return
45076              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
45077               (AMF.UML.Slots.UML_Slot_Access
45078                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
45079
45080         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
45081            --  Element::owner : Element
45082
45083            return
45084              AMF.Internals.Holders.UML_Holders.To_Holder
45085               (AMF.UML.Elements.UML_Element_Access'
45086                 (AMF.UML.Slots.UML_Slot_Access
45087                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
45088
45089         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Slot_Owning_Instance_Instance_Specification_Slot then
45090            --  Slot::owningInstance : InstanceSpecification
45091
45092            return
45093              AMF.Internals.Holders.UML_Holders.To_Holder
45094               (AMF.UML.Instance_Specifications.UML_Instance_Specification_Access'
45095                 (AMF.UML.Slots.UML_Slot_Access
45096                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Instance));
45097
45098         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Slot_Value_A_Owning_Slot then
45099            --  Slot::value : ValueSpecification
45100
45101            return
45102              AMF.UML.Value_Specifications.Collections.UML_Value_Specification_Collections.Internals.To_Holder
45103               (AMF.UML.Slots.UML_Slot_Access
45104                 (AMF.Internals.Helpers.To_Element (Self)).Get_Value);
45105
45106         else
45107            raise Program_Error;
45108         end if;
45109      end UML_Slot_Get;
45110
45111      ----------------------------------------------
45112      -- UML_Start_Classifier_Behavior_Action_Get --
45113      ----------------------------------------------
45114
45115      function UML_Start_Classifier_Behavior_Action_Get return League.Holders.Holder is
45116      begin
45117         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
45118            --  ActivityNode::activity : Activity
45119
45120            return
45121              AMF.Internals.Holders.UML_Holders.To_Holder
45122               (AMF.UML.Activities.UML_Activity_Access'
45123                 (AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
45124                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
45125
45126         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
45127            --  NamedElement::clientDependency : Dependency
45128
45129            return
45130              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
45131               (AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
45132                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
45133
45134         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
45135            --  Action::context : Classifier
45136
45137            return
45138              AMF.Internals.Holders.UML_Holders.To_Holder
45139               (AMF.UML.Classifiers.UML_Classifier_Access'
45140                 (AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
45141                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
45142
45143         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
45144            --  ExecutableNode::handler : ExceptionHandler
45145
45146            return
45147              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
45148               (AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
45149                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
45150
45151         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
45152            --  ActivityNode::inGroup : ActivityGroup
45153
45154            return
45155              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
45156               (AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
45157                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
45158
45159         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
45160            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
45161
45162            return
45163              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
45164               (AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
45165                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
45166
45167         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
45168            --  ActivityNode::inPartition : ActivityPartition
45169
45170            return
45171              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
45172               (AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
45173                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
45174
45175         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
45176            --  ActivityNode::inStructuredNode : StructuredActivityNode
45177
45178            return
45179              AMF.Internals.Holders.UML_Holders.To_Holder
45180               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
45181                 (AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
45182                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
45183
45184         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
45185            --  ActivityNode::incoming : ActivityEdge
45186
45187            return
45188              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
45189               (AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
45190                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
45191
45192         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
45193            --  Action::input : InputPin
45194
45195            return
45196              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
45197               (AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
45198                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
45199
45200         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
45201            --  RedefinableElement::isLeaf : Boolean
45202
45203            return
45204              League.Holders.Booleans.To_Holder
45205               (AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
45206                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
45207
45208         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
45209            --  Action::isLocallyReentrant : Boolean
45210
45211            return
45212              League.Holders.Booleans.To_Holder
45213               (AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
45214                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
45215
45216         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
45217            --  Action::localPostcondition : Constraint
45218
45219            return
45220              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
45221               (AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
45222                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
45223
45224         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
45225            --  Action::localPrecondition : Constraint
45226
45227            return
45228              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
45229               (AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
45230                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
45231
45232         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
45233            --  NamedElement::name : String
45234
45235            return
45236              AMF.Holders.To_Holder
45237               (AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
45238                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
45239
45240         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
45241            --  NamedElement::nameExpression : StringExpression
45242
45243            return
45244              AMF.Internals.Holders.UML_Holders.To_Holder
45245               (AMF.UML.String_Expressions.UML_String_Expression_Access'
45246                 (AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
45247                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
45248
45249         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
45250            --  NamedElement::namespace : Namespace
45251
45252            return
45253              AMF.Internals.Holders.UML_Holders.To_Holder
45254               (AMF.UML.Namespaces.UML_Namespace_Access'
45255                 (AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
45256                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
45257
45258         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Start_Classifier_Behavior_Action_Object_A_Start_Classifier_Behavior_Action then
45259            --  StartClassifierBehaviorAction::object : InputPin
45260
45261            return
45262              AMF.Internals.Holders.UML_Holders.To_Holder
45263               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
45264                 (AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
45265                   (AMF.Internals.Helpers.To_Element (Self)).Get_Object));
45266
45267         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
45268            --  ActivityNode::outgoing : ActivityEdge
45269
45270            return
45271              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
45272               (AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
45273                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
45274
45275         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
45276            --  Action::output : OutputPin
45277
45278            return
45279              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
45280               (AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
45281                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
45282
45283         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
45284            --  Element::ownedComment : Comment
45285
45286            return
45287              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
45288               (AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
45289                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
45290
45291         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
45292            --  Element::ownedElement : Element
45293
45294            return
45295              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
45296               (AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
45297                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
45298
45299         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
45300            --  Element::owner : Element
45301
45302            return
45303              AMF.Internals.Holders.UML_Holders.To_Holder
45304               (AMF.UML.Elements.UML_Element_Access'
45305                 (AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
45306                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
45307
45308         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
45309            --  NamedElement::qualifiedName : String
45310
45311            return
45312              AMF.Holders.To_Holder
45313               (AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
45314                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
45315
45316         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
45317            --  RedefinableElement::redefinedElement : RedefinableElement
45318
45319            return
45320              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
45321               (AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
45322                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
45323
45324         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
45325            --  ActivityNode::redefinedNode : ActivityNode
45326
45327            return
45328              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
45329               (AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
45330                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
45331
45332         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
45333            --  RedefinableElement::redefinitionContext : Classifier
45334
45335            return
45336              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
45337               (AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
45338                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
45339
45340         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
45341            --  NamedElement::visibility : VisibilityKind
45342
45343            return
45344              AMF.UML.Holders.To_Holder
45345               (AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
45346                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
45347
45348         else
45349            raise Program_Error;
45350         end if;
45351      end UML_Start_Classifier_Behavior_Action_Get;
45352
45353      ------------------------------------------
45354      -- UML_Start_Object_Behavior_Action_Get --
45355      ------------------------------------------
45356
45357      function UML_Start_Object_Behavior_Action_Get return League.Holders.Holder is
45358      begin
45359         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
45360            --  ActivityNode::activity : Activity
45361
45362            return
45363              AMF.Internals.Holders.UML_Holders.To_Holder
45364               (AMF.UML.Activities.UML_Activity_Access'
45365                 (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45366                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
45367
45368         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Invocation_Action_Argument_A_Invocation_Action then
45369            --  InvocationAction::argument : InputPin
45370
45371            return
45372              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
45373               (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45374                 (AMF.Internals.Helpers.To_Element (Self)).Get_Argument);
45375
45376         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
45377            --  NamedElement::clientDependency : Dependency
45378
45379            return
45380              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
45381               (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45382                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
45383
45384         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
45385            --  Action::context : Classifier
45386
45387            return
45388              AMF.Internals.Holders.UML_Holders.To_Holder
45389               (AMF.UML.Classifiers.UML_Classifier_Access'
45390                 (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45391                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
45392
45393         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
45394            --  ExecutableNode::handler : ExceptionHandler
45395
45396            return
45397              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
45398               (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45399                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
45400
45401         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
45402            --  ActivityNode::inGroup : ActivityGroup
45403
45404            return
45405              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
45406               (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45407                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
45408
45409         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
45410            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
45411
45412            return
45413              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
45414               (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45415                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
45416
45417         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
45418            --  ActivityNode::inPartition : ActivityPartition
45419
45420            return
45421              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
45422               (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45423                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
45424
45425         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
45426            --  ActivityNode::inStructuredNode : StructuredActivityNode
45427
45428            return
45429              AMF.Internals.Holders.UML_Holders.To_Holder
45430               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
45431                 (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45432                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
45433
45434         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
45435            --  ActivityNode::incoming : ActivityEdge
45436
45437            return
45438              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
45439               (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45440                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
45441
45442         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
45443            --  Action::input : InputPin
45444
45445            return
45446              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
45447               (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45448                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
45449
45450         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
45451            --  RedefinableElement::isLeaf : Boolean
45452
45453            return
45454              League.Holders.Booleans.To_Holder
45455               (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45456                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
45457
45458         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
45459            --  Action::isLocallyReentrant : Boolean
45460
45461            return
45462              League.Holders.Booleans.To_Holder
45463               (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45464                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
45465
45466         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Call_Action_Is_Synchronous then
45467            --  CallAction::isSynchronous : Boolean
45468
45469            return
45470              League.Holders.Booleans.To_Holder
45471               (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45472                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Synchronous);
45473
45474         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
45475            --  Action::localPostcondition : Constraint
45476
45477            return
45478              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
45479               (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45480                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
45481
45482         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
45483            --  Action::localPrecondition : Constraint
45484
45485            return
45486              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
45487               (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45488                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
45489
45490         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
45491            --  NamedElement::name : String
45492
45493            return
45494              AMF.Holders.To_Holder
45495               (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45496                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
45497
45498         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
45499            --  NamedElement::nameExpression : StringExpression
45500
45501            return
45502              AMF.Internals.Holders.UML_Holders.To_Holder
45503               (AMF.UML.String_Expressions.UML_String_Expression_Access'
45504                 (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45505                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
45506
45507         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
45508            --  NamedElement::namespace : Namespace
45509
45510            return
45511              AMF.Internals.Holders.UML_Holders.To_Holder
45512               (AMF.UML.Namespaces.UML_Namespace_Access'
45513                 (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45514                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
45515
45516         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Start_Object_Behavior_Action_Object_A_Start_Object_Behavior_Action then
45517            --  StartObjectBehaviorAction::object : InputPin
45518
45519            return
45520              AMF.Internals.Holders.UML_Holders.To_Holder
45521               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
45522                 (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45523                   (AMF.Internals.Helpers.To_Element (Self)).Get_Object));
45524
45525         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Invocation_Action_On_Port_A_Invocation_Action then
45526            --  InvocationAction::onPort : Port
45527
45528            return
45529              AMF.Internals.Holders.UML_Holders.To_Holder
45530               (AMF.UML.Ports.UML_Port_Access'
45531                 (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45532                   (AMF.Internals.Helpers.To_Element (Self)).Get_On_Port));
45533
45534         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
45535            --  ActivityNode::outgoing : ActivityEdge
45536
45537            return
45538              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
45539               (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45540                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
45541
45542         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
45543            --  Action::output : OutputPin
45544
45545            return
45546              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
45547               (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45548                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
45549
45550         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
45551            --  Element::ownedComment : Comment
45552
45553            return
45554              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
45555               (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45556                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
45557
45558         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
45559            --  Element::ownedElement : Element
45560
45561            return
45562              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
45563               (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45564                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
45565
45566         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
45567            --  Element::owner : Element
45568
45569            return
45570              AMF.Internals.Holders.UML_Holders.To_Holder
45571               (AMF.UML.Elements.UML_Element_Access'
45572                 (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45573                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
45574
45575         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
45576            --  NamedElement::qualifiedName : String
45577
45578            return
45579              AMF.Holders.To_Holder
45580               (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45581                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
45582
45583         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
45584            --  RedefinableElement::redefinedElement : RedefinableElement
45585
45586            return
45587              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
45588               (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45589                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
45590
45591         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
45592            --  ActivityNode::redefinedNode : ActivityNode
45593
45594            return
45595              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
45596               (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45597                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
45598
45599         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
45600            --  RedefinableElement::redefinitionContext : Classifier
45601
45602            return
45603              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
45604               (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45605                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
45606
45607         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Call_Action_Result_A_Call_Action then
45608            --  CallAction::result : OutputPin
45609
45610            return
45611              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
45612               (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45613                 (AMF.Internals.Helpers.To_Element (Self)).Get_Result);
45614
45615         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
45616            --  NamedElement::visibility : VisibilityKind
45617
45618            return
45619              AMF.UML.Holders.To_Holder
45620               (AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
45621                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
45622
45623         else
45624            raise Program_Error;
45625         end if;
45626      end UML_Start_Object_Behavior_Action_Get;
45627
45628      -------------------
45629      -- UML_State_Get --
45630      -------------------
45631
45632      function UML_State_Get return League.Holders.Holder is
45633      begin
45634         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
45635            --  NamedElement::clientDependency : Dependency
45636
45637            return
45638              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
45639               (AMF.UML.States.UML_State_Access
45640                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
45641
45642         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Connection_Connection_Point_Reference_State then
45643            --  State::connection : ConnectionPointReference
45644
45645            return
45646              AMF.UML.Connection_Point_References.Collections.UML_Connection_Point_Reference_Collections.Internals.To_Holder
45647               (AMF.UML.States.UML_State_Access
45648                 (AMF.Internals.Helpers.To_Element (Self)).Get_Connection);
45649
45650         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Connection_Point_Pseudostate_State then
45651            --  State::connectionPoint : Pseudostate
45652
45653            return
45654              AMF.UML.Pseudostates.Collections.UML_Pseudostate_Collections.Internals.To_Holder
45655               (AMF.UML.States.UML_State_Access
45656                 (AMF.Internals.Helpers.To_Element (Self)).Get_Connection_Point);
45657
45658         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Vertex_Container_Region_Subvertex then
45659            --  Vertex::container : Region
45660
45661            return
45662              AMF.Internals.Holders.UML_Holders.To_Holder
45663               (AMF.UML.Regions.UML_Region_Access'
45664                 (AMF.UML.States.UML_State_Access
45665                   (AMF.Internals.Helpers.To_Element (Self)).Get_Container));
45666
45667         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Deferrable_Trigger_A_State then
45668            --  State::deferrableTrigger : Trigger
45669
45670            return
45671              AMF.UML.Triggers.Collections.UML_Trigger_Collections.Internals.To_Holder
45672               (AMF.UML.States.UML_State_Access
45673                 (AMF.Internals.Helpers.To_Element (Self)).Get_Deferrable_Trigger);
45674
45675         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Do_Activity_A_State then
45676            --  State::doActivity : Behavior
45677
45678            return
45679              AMF.Internals.Holders.UML_Holders.To_Holder
45680               (AMF.UML.Behaviors.UML_Behavior_Access'
45681                 (AMF.UML.States.UML_State_Access
45682                   (AMF.Internals.Helpers.To_Element (Self)).Get_Do_Activity));
45683
45684         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
45685            --  Namespace::elementImport : ElementImport
45686
45687            return
45688              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
45689               (AMF.UML.States.UML_State_Access
45690                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
45691
45692         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Entry_A_State then
45693            --  State::entry : Behavior
45694
45695            return
45696              AMF.Internals.Holders.UML_Holders.To_Holder
45697               (AMF.UML.Behaviors.UML_Behavior_Access'
45698                 (AMF.UML.States.UML_State_Access
45699                   (AMF.Internals.Helpers.To_Element (Self)).Get_Entry));
45700
45701         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Exit_A_State then
45702            --  State::exit : Behavior
45703
45704            return
45705              AMF.Internals.Holders.UML_Holders.To_Holder
45706               (AMF.UML.Behaviors.UML_Behavior_Access'
45707                 (AMF.UML.States.UML_State_Access
45708                   (AMF.Internals.Helpers.To_Element (Self)).Get_Exit));
45709
45710         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
45711            --  Namespace::importedMember : PackageableElement
45712
45713            return
45714              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
45715               (AMF.UML.States.UML_State_Access
45716                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
45717
45718         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Vertex_Incoming_Transition_Target then
45719            --  Vertex::incoming : Transition
45720
45721            return
45722              AMF.UML.Transitions.Collections.UML_Transition_Collections.Internals.To_Holder
45723               (AMF.UML.States.UML_State_Access
45724                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
45725
45726         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Is_Composite then
45727            --  State::isComposite : Boolean
45728
45729            return
45730              League.Holders.Booleans.To_Holder
45731               (AMF.UML.States.UML_State_Access
45732                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Composite);
45733
45734         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
45735            --  RedefinableElement::isLeaf : Boolean
45736
45737            return
45738              League.Holders.Booleans.To_Holder
45739               (AMF.UML.States.UML_State_Access
45740                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
45741
45742         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Is_Orthogonal then
45743            --  State::isOrthogonal : Boolean
45744
45745            return
45746              League.Holders.Booleans.To_Holder
45747               (AMF.UML.States.UML_State_Access
45748                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Orthogonal);
45749
45750         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Is_Simple then
45751            --  State::isSimple : Boolean
45752
45753            return
45754              League.Holders.Booleans.To_Holder
45755               (AMF.UML.States.UML_State_Access
45756                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Simple);
45757
45758         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Is_Submachine_State then
45759            --  State::isSubmachineState : Boolean
45760
45761            return
45762              League.Holders.Booleans.To_Holder
45763               (AMF.UML.States.UML_State_Access
45764                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Submachine_State);
45765
45766         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
45767            --  Namespace::member : NamedElement
45768
45769            return
45770              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
45771               (AMF.UML.States.UML_State_Access
45772                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
45773
45774         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
45775            --  NamedElement::name : String
45776
45777            return
45778              AMF.Holders.To_Holder
45779               (AMF.UML.States.UML_State_Access
45780                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
45781
45782         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
45783            --  NamedElement::nameExpression : StringExpression
45784
45785            return
45786              AMF.Internals.Holders.UML_Holders.To_Holder
45787               (AMF.UML.String_Expressions.UML_String_Expression_Access'
45788                 (AMF.UML.States.UML_State_Access
45789                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
45790
45791         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
45792            --  NamedElement::namespace : Namespace
45793
45794            return
45795              AMF.Internals.Holders.UML_Holders.To_Holder
45796               (AMF.UML.Namespaces.UML_Namespace_Access'
45797                 (AMF.UML.States.UML_State_Access
45798                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
45799
45800         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Vertex_Outgoing_Transition_Source then
45801            --  Vertex::outgoing : Transition
45802
45803            return
45804              AMF.UML.Transitions.Collections.UML_Transition_Collections.Internals.To_Holder
45805               (AMF.UML.States.UML_State_Access
45806                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
45807
45808         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
45809            --  Element::ownedComment : Comment
45810
45811            return
45812              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
45813               (AMF.UML.States.UML_State_Access
45814                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
45815
45816         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
45817            --  Element::ownedElement : Element
45818
45819            return
45820              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
45821               (AMF.UML.States.UML_State_Access
45822                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
45823
45824         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
45825            --  Namespace::ownedMember : NamedElement
45826
45827            return
45828              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
45829               (AMF.UML.States.UML_State_Access
45830                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
45831
45832         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
45833            --  Namespace::ownedRule : Constraint
45834
45835            return
45836              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
45837               (AMF.UML.States.UML_State_Access
45838                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
45839
45840         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
45841            --  Element::owner : Element
45842
45843            return
45844              AMF.Internals.Holders.UML_Holders.To_Holder
45845               (AMF.UML.Elements.UML_Element_Access'
45846                 (AMF.UML.States.UML_State_Access
45847                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
45848
45849         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
45850            --  Namespace::packageImport : PackageImport
45851
45852            return
45853              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
45854               (AMF.UML.States.UML_State_Access
45855                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
45856
45857         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
45858            --  NamedElement::qualifiedName : String
45859
45860            return
45861              AMF.Holders.To_Holder
45862               (AMF.UML.States.UML_State_Access
45863                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
45864
45865         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
45866            --  RedefinableElement::redefinedElement : RedefinableElement
45867
45868            return
45869              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
45870               (AMF.UML.States.UML_State_Access
45871                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
45872
45873         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Redefined_State_A_State then
45874            --  State::redefinedState : State
45875
45876            return
45877              AMF.Internals.Holders.UML_Holders.To_Holder
45878               (AMF.UML.States.UML_State_Access'
45879                 (AMF.UML.States.UML_State_Access
45880                   (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_State));
45881
45882         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
45883            --  RedefinableElement::redefinitionContext : Classifier
45884
45885            return
45886              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
45887               (AMF.UML.States.UML_State_Access
45888                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
45889
45890         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Redefinition_Context_A_State then
45891            --  State::redefinitionContext : Classifier
45892
45893            return
45894              AMF.Internals.Holders.UML_Holders.To_Holder
45895               (AMF.UML.Classifiers.UML_Classifier_Access'
45896                 (AMF.UML.States.UML_State_Access
45897                   (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context));
45898
45899         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Region_Region_State then
45900            --  State::region : Region
45901
45902            return
45903              AMF.UML.Regions.Collections.UML_Region_Collections.Internals.To_Holder
45904               (AMF.UML.States.UML_State_Access
45905                 (AMF.Internals.Helpers.To_Element (Self)).Get_Region);
45906
45907         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_State_Invariant_A_Owning_State then
45908            --  State::stateInvariant : Constraint
45909
45910            return
45911              AMF.Internals.Holders.UML_Holders.To_Holder
45912               (AMF.UML.Constraints.UML_Constraint_Access'
45913                 (AMF.UML.States.UML_State_Access
45914                   (AMF.Internals.Helpers.To_Element (Self)).Get_State_Invariant));
45915
45916         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Submachine_State_Machine_Submachine_State then
45917            --  State::submachine : StateMachine
45918
45919            return
45920              AMF.Internals.Holders.UML_Holders.To_Holder
45921               (AMF.UML.State_Machines.UML_State_Machine_Access'
45922                 (AMF.UML.States.UML_State_Access
45923                   (AMF.Internals.Helpers.To_Element (Self)).Get_Submachine));
45924
45925         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
45926            --  NamedElement::visibility : VisibilityKind
45927
45928            return
45929              AMF.UML.Holders.To_Holder
45930               (AMF.UML.States.UML_State_Access
45931                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
45932
45933         else
45934            raise Program_Error;
45935         end if;
45936      end UML_State_Get;
45937
45938      -----------------------------
45939      -- UML_State_Invariant_Get --
45940      -----------------------------
45941
45942      function UML_State_Invariant_Get return League.Holders.Holder is
45943      begin
45944         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
45945            --  NamedElement::clientDependency : Dependency
45946
45947            return
45948              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
45949               (AMF.UML.State_Invariants.UML_State_Invariant_Access
45950                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
45951
45952         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Covered_Lifeline_Covered_By then
45953            --  InteractionFragment::covered : Lifeline
45954
45955            return
45956              AMF.UML.Lifelines.Collections.UML_Lifeline_Collections.Internals.To_Holder
45957               (AMF.UML.State_Invariants.UML_State_Invariant_Access
45958                 (AMF.Internals.Helpers.To_Element (Self)).Get_Covered);
45959
45960         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Invariant_Covered_A_State_Invariant then
45961            --  StateInvariant::covered : Lifeline
45962
45963            return
45964              AMF.Internals.Holders.UML_Holders.To_Holder
45965               (AMF.UML.Lifelines.UML_Lifeline_Access'
45966                 (AMF.UML.State_Invariants.UML_State_Invariant_Access
45967                   (AMF.Internals.Helpers.To_Element (Self)).Get_Covered));
45968
45969         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Interaction_Interaction_Fragment then
45970            --  InteractionFragment::enclosingInteraction : Interaction
45971
45972            return
45973              AMF.Internals.Holders.UML_Holders.To_Holder
45974               (AMF.UML.Interactions.UML_Interaction_Access'
45975                 (AMF.UML.State_Invariants.UML_State_Invariant_Access
45976                   (AMF.Internals.Helpers.To_Element (Self)).Get_Enclosing_Interaction));
45977
45978         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Operand_Interaction_Operand_Fragment then
45979            --  InteractionFragment::enclosingOperand : InteractionOperand
45980
45981            return
45982              AMF.Internals.Holders.UML_Holders.To_Holder
45983               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access'
45984                 (AMF.UML.State_Invariants.UML_State_Invariant_Access
45985                   (AMF.Internals.Helpers.To_Element (Self)).Get_Enclosing_Operand));
45986
45987         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_General_Ordering_A_Interaction_Fragment then
45988            --  InteractionFragment::generalOrdering : GeneralOrdering
45989
45990            return
45991              AMF.UML.General_Orderings.Collections.UML_General_Ordering_Collections.Internals.To_Holder
45992               (AMF.UML.State_Invariants.UML_State_Invariant_Access
45993                 (AMF.Internals.Helpers.To_Element (Self)).Get_General_Ordering);
45994
45995         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Invariant_Invariant_A_State_Invariant then
45996            --  StateInvariant::invariant : Constraint
45997
45998            return
45999              AMF.Internals.Holders.UML_Holders.To_Holder
46000               (AMF.UML.Constraints.UML_Constraint_Access'
46001                 (AMF.UML.State_Invariants.UML_State_Invariant_Access
46002                   (AMF.Internals.Helpers.To_Element (Self)).Get_Invariant));
46003
46004         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
46005            --  NamedElement::name : String
46006
46007            return
46008              AMF.Holders.To_Holder
46009               (AMF.UML.State_Invariants.UML_State_Invariant_Access
46010                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
46011
46012         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
46013            --  NamedElement::nameExpression : StringExpression
46014
46015            return
46016              AMF.Internals.Holders.UML_Holders.To_Holder
46017               (AMF.UML.String_Expressions.UML_String_Expression_Access'
46018                 (AMF.UML.State_Invariants.UML_State_Invariant_Access
46019                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
46020
46021         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
46022            --  NamedElement::namespace : Namespace
46023
46024            return
46025              AMF.Internals.Holders.UML_Holders.To_Holder
46026               (AMF.UML.Namespaces.UML_Namespace_Access'
46027                 (AMF.UML.State_Invariants.UML_State_Invariant_Access
46028                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
46029
46030         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
46031            --  Element::ownedComment : Comment
46032
46033            return
46034              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
46035               (AMF.UML.State_Invariants.UML_State_Invariant_Access
46036                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
46037
46038         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
46039            --  Element::ownedElement : Element
46040
46041            return
46042              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
46043               (AMF.UML.State_Invariants.UML_State_Invariant_Access
46044                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
46045
46046         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
46047            --  Element::owner : Element
46048
46049            return
46050              AMF.Internals.Holders.UML_Holders.To_Holder
46051               (AMF.UML.Elements.UML_Element_Access'
46052                 (AMF.UML.State_Invariants.UML_State_Invariant_Access
46053                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
46054
46055         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
46056            --  NamedElement::qualifiedName : String
46057
46058            return
46059              AMF.Holders.To_Holder
46060               (AMF.UML.State_Invariants.UML_State_Invariant_Access
46061                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
46062
46063         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
46064            --  NamedElement::visibility : VisibilityKind
46065
46066            return
46067              AMF.UML.Holders.To_Holder
46068               (AMF.UML.State_Invariants.UML_State_Invariant_Access
46069                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
46070
46071         else
46072            raise Program_Error;
46073         end if;
46074      end UML_State_Invariant_Get;
46075
46076      ---------------------------
46077      -- UML_State_Machine_Get --
46078      ---------------------------
46079
46080      function UML_State_Machine_Get return League.Holders.Holder is
46081      begin
46082         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier then
46083            --  Classifier::attribute : Property
46084
46085            return
46086              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
46087               (AMF.UML.State_Machines.UML_State_Machine_Access
46088                 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute);
46089
46090         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
46091            --  BehavioredClassifier::classifierBehavior : Behavior
46092
46093            return
46094              AMF.Internals.Holders.UML_Holders.To_Holder
46095               (AMF.UML.Behaviors.UML_Behavior_Access'
46096                 (AMF.UML.State_Machines.UML_State_Machine_Access
46097                   (AMF.Internals.Helpers.To_Element (Self)).Get_Classifier_Behavior));
46098
46099         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
46100            --  NamedElement::clientDependency : Dependency
46101
46102            return
46103              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
46104               (AMF.UML.State_Machines.UML_State_Machine_Access
46105                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
46106
46107         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier then
46108            --  Classifier::collaborationUse : CollaborationUse
46109
46110            return
46111              AMF.UML.Collaboration_Uses.Collections.UML_Collaboration_Use_Collections.Internals.To_Holder
46112               (AMF.UML.State_Machines.UML_State_Machine_Access
46113                 (AMF.Internals.Helpers.To_Element (Self)).Get_Collaboration_Use);
46114
46115         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Machine_Connection_Point_Pseudostate_State_Machine then
46116            --  StateMachine::connectionPoint : Pseudostate
46117
46118            return
46119              AMF.UML.Pseudostates.Collections.UML_Pseudostate_Collections.Internals.To_Holder
46120               (AMF.UML.State_Machines.UML_State_Machine_Access
46121                 (AMF.Internals.Helpers.To_Element (Self)).Get_Connection_Point);
46122
46123         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Context_A_Behavior then
46124            --  Behavior::context : BehavioredClassifier
46125
46126            return
46127              AMF.Internals.Holders.UML_Holders.To_Holder
46128               (AMF.UML.Behaviored_Classifiers.UML_Behaviored_Classifier_Access'
46129                 (AMF.UML.State_Machines.UML_State_Machine_Access
46130                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
46131
46132         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
46133            --  Namespace::elementImport : ElementImport
46134
46135            return
46136              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
46137               (AMF.UML.State_Machines.UML_State_Machine_Access
46138                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
46139
46140         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Machine_Extended_State_Machine_A_State_Machine then
46141            --  StateMachine::extendedStateMachine : StateMachine
46142
46143            return
46144              AMF.UML.State_Machines.Collections.UML_State_Machine_Collections.Internals.To_Holder
46145               (AMF.UML.State_Machines.UML_State_Machine_Access
46146                 (AMF.Internals.Helpers.To_Element (Self)).Get_Extended_State_Machine);
46147
46148         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Extension_Extension_Metaclass then
46149            --  Class::extension : Extension
46150
46151            return
46152              AMF.UML.Extensions.Collections.UML_Extension_Collections.Internals.To_Holder
46153               (AMF.UML.State_Machines.UML_State_Machine_Access
46154                 (AMF.Internals.Helpers.To_Element (Self)).Get_Extension);
46155
46156         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier then
46157            --  Classifier::feature : Feature
46158
46159            return
46160              AMF.UML.Features.Collections.UML_Feature_Collections.Internals.To_Holder
46161               (AMF.UML.State_Machines.UML_State_Machine_Access
46162                 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature);
46163
46164         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier then
46165            --  Classifier::general : Classifier
46166
46167            return
46168              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
46169               (AMF.UML.State_Machines.UML_State_Machine_Access
46170                 (AMF.Internals.Helpers.To_Element (Self)).Get_General);
46171
46172         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific then
46173            --  Classifier::generalization : Generalization
46174
46175            return
46176              AMF.UML.Generalizations.Collections.UML_Generalization_Collections.Internals.To_Holder
46177               (AMF.UML.State_Machines.UML_State_Machine_Access
46178                 (AMF.Internals.Helpers.To_Element (Self)).Get_Generalization);
46179
46180         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
46181            --  Namespace::importedMember : PackageableElement
46182
46183            return
46184              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
46185               (AMF.UML.State_Machines.UML_State_Machine_Access
46186                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
46187
46188         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier then
46189            --  Classifier::inheritedMember : NamedElement
46190
46191            return
46192              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
46193               (AMF.UML.State_Machines.UML_State_Machine_Access
46194                 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member);
46195
46196         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier then
46197            --  BehavioredClassifier::interfaceRealization : InterfaceRealization
46198
46199            return
46200              AMF.UML.Interface_Realizations.Collections.UML_Interface_Realization_Collections.Internals.To_Holder
46201               (AMF.UML.State_Machines.UML_State_Machine_Access
46202                 (AMF.Internals.Helpers.To_Element (Self)).Get_Interface_Realization);
46203
46204         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Abstract then
46205            --  Class::isAbstract : Boolean
46206
46207            return
46208              League.Holders.Booleans.To_Holder
46209               (AMF.UML.State_Machines.UML_State_Machine_Access
46210                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
46211
46212         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
46213            --  Classifier::isAbstract : Boolean
46214
46215            return
46216              League.Holders.Booleans.To_Holder
46217               (AMF.UML.State_Machines.UML_State_Machine_Access
46218                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
46219
46220         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Active then
46221            --  Class::isActive : Boolean
46222
46223            return
46224              League.Holders.Booleans.To_Holder
46225               (AMF.UML.State_Machines.UML_State_Machine_Access
46226                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Active);
46227
46228         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
46229            --  Classifier::isFinalSpecialization : Boolean
46230
46231            return
46232              League.Holders.Booleans.To_Holder
46233               (AMF.UML.State_Machines.UML_State_Machine_Access
46234                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization);
46235
46236         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
46237            --  RedefinableElement::isLeaf : Boolean
46238
46239            return
46240              League.Holders.Booleans.To_Holder
46241               (AMF.UML.State_Machines.UML_State_Machine_Access
46242                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
46243
46244         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Is_Reentrant then
46245            --  Behavior::isReentrant : Boolean
46246
46247            return
46248              League.Holders.Booleans.To_Holder
46249               (AMF.UML.State_Machines.UML_State_Machine_Access
46250                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Reentrant);
46251
46252         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
46253            --  Namespace::member : NamedElement
46254
46255            return
46256              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
46257               (AMF.UML.State_Machines.UML_State_Machine_Access
46258                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
46259
46260         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
46261            --  NamedElement::name : String
46262
46263            return
46264              AMF.Holders.To_Holder
46265               (AMF.UML.State_Machines.UML_State_Machine_Access
46266                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
46267
46268         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
46269            --  NamedElement::nameExpression : StringExpression
46270
46271            return
46272              AMF.Internals.Holders.UML_Holders.To_Holder
46273               (AMF.UML.String_Expressions.UML_String_Expression_Access'
46274                 (AMF.UML.State_Machines.UML_State_Machine_Access
46275                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
46276
46277         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
46278            --  NamedElement::namespace : Namespace
46279
46280            return
46281              AMF.Internals.Holders.UML_Holders.To_Holder
46282               (AMF.UML.Namespaces.UML_Namespace_Access'
46283                 (AMF.UML.State_Machines.UML_State_Machine_Access
46284                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
46285
46286         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Nested_Classifier_A_Class then
46287            --  Class::nestedClassifier : Classifier
46288
46289            return
46290              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
46291               (AMF.UML.State_Machines.UML_State_Machine_Access
46292                 (AMF.Internals.Helpers.To_Element (Self)).Get_Nested_Classifier);
46293
46294         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Attribute_Property_Class then
46295            --  Class::ownedAttribute : Property
46296
46297            return
46298              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
46299               (AMF.UML.State_Machines.UML_State_Machine_Access
46300                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
46301
46302         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Attribute_A_Structured_Classifier then
46303            --  StructuredClassifier::ownedAttribute : Property
46304
46305            return
46306              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
46307               (AMF.UML.State_Machines.UML_State_Machine_Access
46308                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
46309
46310         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier then
46311            --  BehavioredClassifier::ownedBehavior : Behavior
46312
46313            return
46314              AMF.UML.Behaviors.Collections.UML_Behavior_Collections.Internals.To_Holder
46315               (AMF.UML.State_Machines.UML_State_Machine_Access
46316                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Behavior);
46317
46318         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
46319            --  Element::ownedComment : Comment
46320
46321            return
46322              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
46323               (AMF.UML.State_Machines.UML_State_Machine_Access
46324                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
46325
46326         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Connector_A_Structured_Classifier then
46327            --  StructuredClassifier::ownedConnector : Connector
46328
46329            return
46330              AMF.UML.Connectors.Collections.UML_Connector_Collections.Internals.To_Holder
46331               (AMF.UML.State_Machines.UML_State_Machine_Access
46332                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Connector);
46333
46334         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
46335            --  Element::ownedElement : Element
46336
46337            return
46338              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
46339               (AMF.UML.State_Machines.UML_State_Machine_Access
46340                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
46341
46342         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
46343            --  Namespace::ownedMember : NamedElement
46344
46345            return
46346              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
46347               (AMF.UML.State_Machines.UML_State_Machine_Access
46348                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
46349
46350         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Operation_Operation_Class then
46351            --  Class::ownedOperation : Operation
46352
46353            return
46354              AMF.UML.Operations.Collections.UML_Operation_Collections.Internals.To_Holder
46355               (AMF.UML.State_Machines.UML_State_Machine_Access
46356                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Operation);
46357
46358         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Owned_Parameter_A_Behavior then
46359            --  Behavior::ownedParameter : Parameter
46360
46361            return
46362              AMF.UML.Parameters.Collections.UML_Parameter_Collections.Internals.To_Holder
46363               (AMF.UML.State_Machines.UML_State_Machine_Access
46364                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Parameter);
46365
46366         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Owned_Parameter_Set_A_Behavior then
46367            --  Behavior::ownedParameterSet : ParameterSet
46368
46369            return
46370              AMF.UML.Parameter_Sets.Collections.UML_Parameter_Set_Collections.Internals.To_Holder
46371               (AMF.UML.State_Machines.UML_State_Machine_Access
46372                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Parameter_Set);
46373
46374         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Encapsulated_Classifier_Owned_Port_A_Encapsulated_Classifier then
46375            --  EncapsulatedClassifier::ownedPort : Port
46376
46377            return
46378              AMF.UML.Ports.Collections.UML_Port_Collections.Internals.To_Holder
46379               (AMF.UML.State_Machines.UML_State_Machine_Access
46380                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Port);
46381
46382         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Reception_A_Class then
46383            --  Class::ownedReception : Reception
46384
46385            return
46386              AMF.UML.Receptions.Collections.UML_Reception_Collections.Internals.To_Holder
46387               (AMF.UML.State_Machines.UML_State_Machine_Access
46388                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Reception);
46389
46390         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
46391            --  Namespace::ownedRule : Constraint
46392
46393            return
46394              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
46395               (AMF.UML.State_Machines.UML_State_Machine_Access
46396                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
46397
46398         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
46399            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
46400
46401            return
46402              AMF.Internals.Holders.UML_Holders.To_Holder
46403               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access'
46404                 (AMF.UML.State_Machines.UML_State_Machine_Access
46405                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
46406
46407         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
46408            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
46409
46410            return
46411              AMF.Internals.Holders.UML_Holders.To_Holder
46412               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
46413                 (AMF.UML.State_Machines.UML_State_Machine_Access
46414                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
46415
46416         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier then
46417            --  Classifier::ownedUseCase : UseCase
46418
46419            return
46420              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
46421               (AMF.UML.State_Machines.UML_State_Machine_Access
46422                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Use_Case);
46423
46424         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
46425            --  Element::owner : Element
46426
46427            return
46428              AMF.Internals.Holders.UML_Holders.To_Holder
46429               (AMF.UML.Elements.UML_Element_Access'
46430                 (AMF.UML.State_Machines.UML_State_Machine_Access
46431                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
46432
46433         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
46434            --  ParameterableElement::owningTemplateParameter : TemplateParameter
46435
46436            return
46437              AMF.Internals.Holders.UML_Holders.To_Holder
46438               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
46439                 (AMF.UML.State_Machines.UML_State_Machine_Access
46440                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
46441
46442         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
46443            --  Type::package : Package
46444
46445            return
46446              AMF.Internals.Holders.UML_Holders.To_Holder
46447               (AMF.UML.Packages.UML_Package_Access'
46448                 (AMF.UML.State_Machines.UML_State_Machine_Access
46449                   (AMF.Internals.Helpers.To_Element (Self)).Get_Package));
46450
46451         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
46452            --  Namespace::packageImport : PackageImport
46453
46454            return
46455              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
46456               (AMF.UML.State_Machines.UML_State_Machine_Access
46457                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
46458
46459         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Part_A_Structured_Classifier then
46460            --  StructuredClassifier::part : Property
46461
46462            return
46463              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
46464               (AMF.UML.State_Machines.UML_State_Machine_Access
46465                 (AMF.Internals.Helpers.To_Element (Self)).Get_Part);
46466
46467         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Postcondition_A_Behavior then
46468            --  Behavior::postcondition : Constraint
46469
46470            return
46471              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
46472               (AMF.UML.State_Machines.UML_State_Machine_Access
46473                 (AMF.Internals.Helpers.To_Element (Self)).Get_Postcondition);
46474
46475         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype then
46476            --  Classifier::powertypeExtent : GeneralizationSet
46477
46478            return
46479              AMF.UML.Generalization_Sets.Collections.UML_Generalization_Set_Collections.Internals.To_Holder
46480               (AMF.UML.State_Machines.UML_State_Machine_Access
46481                 (AMF.Internals.Helpers.To_Element (Self)).Get_Powertype_Extent);
46482
46483         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Precondition_A_Behavior then
46484            --  Behavior::precondition : Constraint
46485
46486            return
46487              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
46488               (AMF.UML.State_Machines.UML_State_Machine_Access
46489                 (AMF.Internals.Helpers.To_Element (Self)).Get_Precondition);
46490
46491         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
46492            --  NamedElement::qualifiedName : String
46493
46494            return
46495              AMF.Holders.To_Holder
46496               (AMF.UML.State_Machines.UML_State_Machine_Access
46497                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
46498
46499         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Redefined_Behavior_A_Behavior then
46500            --  Behavior::redefinedBehavior : Behavior
46501
46502            return
46503              AMF.UML.Behaviors.Collections.UML_Behavior_Collections.Internals.To_Holder
46504               (AMF.UML.State_Machines.UML_State_Machine_Access
46505                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Behavior);
46506
46507         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier then
46508            --  Classifier::redefinedClassifier : Classifier
46509
46510            return
46511              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
46512               (AMF.UML.State_Machines.UML_State_Machine_Access
46513                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Classifier);
46514
46515         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
46516            --  RedefinableElement::redefinedElement : RedefinableElement
46517
46518            return
46519              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
46520               (AMF.UML.State_Machines.UML_State_Machine_Access
46521                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
46522
46523         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
46524            --  RedefinableElement::redefinitionContext : Classifier
46525
46526            return
46527              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
46528               (AMF.UML.State_Machines.UML_State_Machine_Access
46529                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
46530
46531         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Machine_Region_Region_State_Machine then
46532            --  StateMachine::region : Region
46533
46534            return
46535              AMF.UML.Regions.Collections.UML_Region_Collections.Internals.To_Holder
46536               (AMF.UML.State_Machines.UML_State_Machine_Access
46537                 (AMF.Internals.Helpers.To_Element (Self)).Get_Region);
46538
46539         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
46540            --  Classifier::representation : CollaborationUse
46541
46542            return
46543              AMF.Internals.Holders.UML_Holders.To_Holder
46544               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access'
46545                 (AMF.UML.State_Machines.UML_State_Machine_Access
46546                   (AMF.Internals.Helpers.To_Element (Self)).Get_Representation));
46547
46548         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Role_A_Structured_Classifier then
46549            --  StructuredClassifier::role : ConnectableElement
46550
46551            return
46552              AMF.UML.Connectable_Elements.Collections.UML_Connectable_Element_Collections.Internals.To_Holder
46553               (AMF.UML.State_Machines.UML_State_Machine_Access
46554                 (AMF.Internals.Helpers.To_Element (Self)).Get_Role);
46555
46556         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Specification_Behavioral_Feature_Method then
46557            --  Behavior::specification : BehavioralFeature
46558
46559            return
46560              AMF.Internals.Holders.UML_Holders.To_Holder
46561               (AMF.UML.Behavioral_Features.UML_Behavioral_Feature_Access'
46562                 (AMF.UML.State_Machines.UML_State_Machine_Access
46563                   (AMF.Internals.Helpers.To_Element (Self)).Get_Specification));
46564
46565         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Machine_Submachine_State_State_Submachine then
46566            --  StateMachine::submachineState : State
46567
46568            return
46569              AMF.UML.States.Collections.UML_State_Collections.Internals.To_Holder
46570               (AMF.UML.State_Machines.UML_State_Machine_Access
46571                 (AMF.Internals.Helpers.To_Element (Self)).Get_Submachine_State);
46572
46573         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier then
46574            --  Classifier::substitution : Substitution
46575
46576            return
46577              AMF.UML.Substitutions.Collections.UML_Substitution_Collections.Internals.To_Holder
46578               (AMF.UML.State_Machines.UML_State_Machine_Access
46579                 (AMF.Internals.Helpers.To_Element (Self)).Get_Substitution);
46580
46581         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Super_Class_A_Class then
46582            --  Class::superClass : Class
46583
46584            return
46585              AMF.UML.Classes.Collections.UML_Class_Collections.Internals.To_Holder
46586               (AMF.UML.State_Machines.UML_State_Machine_Access
46587                 (AMF.Internals.Helpers.To_Element (Self)).Get_Super_Class);
46588
46589         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
46590            --  TemplateableElement::templateBinding : TemplateBinding
46591
46592            return
46593              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
46594               (AMF.UML.State_Machines.UML_State_Machine_Access
46595                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
46596
46597         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
46598            --  Classifier::templateParameter : ClassifierTemplateParameter
46599
46600            return
46601              AMF.Internals.Holders.UML_Holders.To_Holder
46602               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access'
46603                 (AMF.UML.State_Machines.UML_State_Machine_Access
46604                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
46605
46606         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
46607            --  ParameterableElement::templateParameter : TemplateParameter
46608
46609            return
46610              AMF.Internals.Holders.UML_Holders.To_Holder
46611               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
46612                 (AMF.UML.State_Machines.UML_State_Machine_Access
46613                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
46614
46615         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject then
46616            --  Classifier::useCase : UseCase
46617
46618            return
46619              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
46620               (AMF.UML.State_Machines.UML_State_Machine_Access
46621                 (AMF.Internals.Helpers.To_Element (Self)).Get_Use_Case);
46622
46623         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
46624            --  NamedElement::visibility : VisibilityKind
46625
46626            return
46627              AMF.UML.Holders.To_Holder
46628               (AMF.UML.State_Machines.UML_State_Machine_Access
46629                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
46630
46631         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
46632            --  PackageableElement::visibility : VisibilityKind
46633
46634            return
46635              AMF.UML.Holders.Visibility_Kinds.To_Holder
46636               (AMF.UML.State_Machines.UML_State_Machine_Access
46637                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
46638
46639         else
46640            raise Program_Error;
46641         end if;
46642      end UML_State_Machine_Get;
46643
46644      ------------------------
46645      -- UML_Stereotype_Get --
46646      ------------------------
46647
46648      function UML_Stereotype_Get return League.Holders.Holder is
46649      begin
46650         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier then
46651            --  Classifier::attribute : Property
46652
46653            return
46654              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
46655               (AMF.UML.Stereotypes.UML_Stereotype_Access
46656                 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute);
46657
46658         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
46659            --  BehavioredClassifier::classifierBehavior : Behavior
46660
46661            return
46662              AMF.Internals.Holders.UML_Holders.To_Holder
46663               (AMF.UML.Behaviors.UML_Behavior_Access'
46664                 (AMF.UML.Stereotypes.UML_Stereotype_Access
46665                   (AMF.Internals.Helpers.To_Element (Self)).Get_Classifier_Behavior));
46666
46667         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
46668            --  NamedElement::clientDependency : Dependency
46669
46670            return
46671              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
46672               (AMF.UML.Stereotypes.UML_Stereotype_Access
46673                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
46674
46675         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier then
46676            --  Classifier::collaborationUse : CollaborationUse
46677
46678            return
46679              AMF.UML.Collaboration_Uses.Collections.UML_Collaboration_Use_Collections.Internals.To_Holder
46680               (AMF.UML.Stereotypes.UML_Stereotype_Access
46681                 (AMF.Internals.Helpers.To_Element (Self)).Get_Collaboration_Use);
46682
46683         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
46684            --  Namespace::elementImport : ElementImport
46685
46686            return
46687              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
46688               (AMF.UML.Stereotypes.UML_Stereotype_Access
46689                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
46690
46691         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Extension_Extension_Metaclass then
46692            --  Class::extension : Extension
46693
46694            return
46695              AMF.UML.Extensions.Collections.UML_Extension_Collections.Internals.To_Holder
46696               (AMF.UML.Stereotypes.UML_Stereotype_Access
46697                 (AMF.Internals.Helpers.To_Element (Self)).Get_Extension);
46698
46699         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier then
46700            --  Classifier::feature : Feature
46701
46702            return
46703              AMF.UML.Features.Collections.UML_Feature_Collections.Internals.To_Holder
46704               (AMF.UML.Stereotypes.UML_Stereotype_Access
46705                 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature);
46706
46707         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier then
46708            --  Classifier::general : Classifier
46709
46710            return
46711              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
46712               (AMF.UML.Stereotypes.UML_Stereotype_Access
46713                 (AMF.Internals.Helpers.To_Element (Self)).Get_General);
46714
46715         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific then
46716            --  Classifier::generalization : Generalization
46717
46718            return
46719              AMF.UML.Generalizations.Collections.UML_Generalization_Collections.Internals.To_Holder
46720               (AMF.UML.Stereotypes.UML_Stereotype_Access
46721                 (AMF.Internals.Helpers.To_Element (Self)).Get_Generalization);
46722
46723         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Stereotype_Icon_A_Stereotype then
46724            --  Stereotype::icon : Image
46725
46726            return
46727              AMF.UML.Images.Collections.UML_Image_Collections.Internals.To_Holder
46728               (AMF.UML.Stereotypes.UML_Stereotype_Access
46729                 (AMF.Internals.Helpers.To_Element (Self)).Get_Icon);
46730
46731         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
46732            --  Namespace::importedMember : PackageableElement
46733
46734            return
46735              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
46736               (AMF.UML.Stereotypes.UML_Stereotype_Access
46737                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
46738
46739         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier then
46740            --  Classifier::inheritedMember : NamedElement
46741
46742            return
46743              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
46744               (AMF.UML.Stereotypes.UML_Stereotype_Access
46745                 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member);
46746
46747         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier then
46748            --  BehavioredClassifier::interfaceRealization : InterfaceRealization
46749
46750            return
46751              AMF.UML.Interface_Realizations.Collections.UML_Interface_Realization_Collections.Internals.To_Holder
46752               (AMF.UML.Stereotypes.UML_Stereotype_Access
46753                 (AMF.Internals.Helpers.To_Element (Self)).Get_Interface_Realization);
46754
46755         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Abstract then
46756            --  Class::isAbstract : Boolean
46757
46758            return
46759              League.Holders.Booleans.To_Holder
46760               (AMF.UML.Stereotypes.UML_Stereotype_Access
46761                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
46762
46763         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
46764            --  Classifier::isAbstract : Boolean
46765
46766            return
46767              League.Holders.Booleans.To_Holder
46768               (AMF.UML.Stereotypes.UML_Stereotype_Access
46769                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
46770
46771         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Active then
46772            --  Class::isActive : Boolean
46773
46774            return
46775              League.Holders.Booleans.To_Holder
46776               (AMF.UML.Stereotypes.UML_Stereotype_Access
46777                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Active);
46778
46779         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
46780            --  Classifier::isFinalSpecialization : Boolean
46781
46782            return
46783              League.Holders.Booleans.To_Holder
46784               (AMF.UML.Stereotypes.UML_Stereotype_Access
46785                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization);
46786
46787         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
46788            --  RedefinableElement::isLeaf : Boolean
46789
46790            return
46791              League.Holders.Booleans.To_Holder
46792               (AMF.UML.Stereotypes.UML_Stereotype_Access
46793                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
46794
46795         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
46796            --  Namespace::member : NamedElement
46797
46798            return
46799              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
46800               (AMF.UML.Stereotypes.UML_Stereotype_Access
46801                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
46802
46803         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
46804            --  NamedElement::name : String
46805
46806            return
46807              AMF.Holders.To_Holder
46808               (AMF.UML.Stereotypes.UML_Stereotype_Access
46809                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
46810
46811         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
46812            --  NamedElement::nameExpression : StringExpression
46813
46814            return
46815              AMF.Internals.Holders.UML_Holders.To_Holder
46816               (AMF.UML.String_Expressions.UML_String_Expression_Access'
46817                 (AMF.UML.Stereotypes.UML_Stereotype_Access
46818                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
46819
46820         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
46821            --  NamedElement::namespace : Namespace
46822
46823            return
46824              AMF.Internals.Holders.UML_Holders.To_Holder
46825               (AMF.UML.Namespaces.UML_Namespace_Access'
46826                 (AMF.UML.Stereotypes.UML_Stereotype_Access
46827                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
46828
46829         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Nested_Classifier_A_Class then
46830            --  Class::nestedClassifier : Classifier
46831
46832            return
46833              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
46834               (AMF.UML.Stereotypes.UML_Stereotype_Access
46835                 (AMF.Internals.Helpers.To_Element (Self)).Get_Nested_Classifier);
46836
46837         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Attribute_Property_Class then
46838            --  Class::ownedAttribute : Property
46839
46840            return
46841              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
46842               (AMF.UML.Stereotypes.UML_Stereotype_Access
46843                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
46844
46845         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Attribute_A_Structured_Classifier then
46846            --  StructuredClassifier::ownedAttribute : Property
46847
46848            return
46849              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
46850               (AMF.UML.Stereotypes.UML_Stereotype_Access
46851                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Attribute);
46852
46853         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier then
46854            --  BehavioredClassifier::ownedBehavior : Behavior
46855
46856            return
46857              AMF.UML.Behaviors.Collections.UML_Behavior_Collections.Internals.To_Holder
46858               (AMF.UML.Stereotypes.UML_Stereotype_Access
46859                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Behavior);
46860
46861         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
46862            --  Element::ownedComment : Comment
46863
46864            return
46865              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
46866               (AMF.UML.Stereotypes.UML_Stereotype_Access
46867                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
46868
46869         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Owned_Connector_A_Structured_Classifier then
46870            --  StructuredClassifier::ownedConnector : Connector
46871
46872            return
46873              AMF.UML.Connectors.Collections.UML_Connector_Collections.Internals.To_Holder
46874               (AMF.UML.Stereotypes.UML_Stereotype_Access
46875                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Connector);
46876
46877         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
46878            --  Element::ownedElement : Element
46879
46880            return
46881              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
46882               (AMF.UML.Stereotypes.UML_Stereotype_Access
46883                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
46884
46885         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
46886            --  Namespace::ownedMember : NamedElement
46887
46888            return
46889              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
46890               (AMF.UML.Stereotypes.UML_Stereotype_Access
46891                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
46892
46893         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Operation_Operation_Class then
46894            --  Class::ownedOperation : Operation
46895
46896            return
46897              AMF.UML.Operations.Collections.UML_Operation_Collections.Internals.To_Holder
46898               (AMF.UML.Stereotypes.UML_Stereotype_Access
46899                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Operation);
46900
46901         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Encapsulated_Classifier_Owned_Port_A_Encapsulated_Classifier then
46902            --  EncapsulatedClassifier::ownedPort : Port
46903
46904            return
46905              AMF.UML.Ports.Collections.UML_Port_Collections.Internals.To_Holder
46906               (AMF.UML.Stereotypes.UML_Stereotype_Access
46907                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Port);
46908
46909         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Owned_Reception_A_Class then
46910            --  Class::ownedReception : Reception
46911
46912            return
46913              AMF.UML.Receptions.Collections.UML_Reception_Collections.Internals.To_Holder
46914               (AMF.UML.Stereotypes.UML_Stereotype_Access
46915                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Reception);
46916
46917         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
46918            --  Namespace::ownedRule : Constraint
46919
46920            return
46921              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
46922               (AMF.UML.Stereotypes.UML_Stereotype_Access
46923                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
46924
46925         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
46926            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
46927
46928            return
46929              AMF.Internals.Holders.UML_Holders.To_Holder
46930               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access'
46931                 (AMF.UML.Stereotypes.UML_Stereotype_Access
46932                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
46933
46934         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
46935            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
46936
46937            return
46938              AMF.Internals.Holders.UML_Holders.To_Holder
46939               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
46940                 (AMF.UML.Stereotypes.UML_Stereotype_Access
46941                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
46942
46943         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier then
46944            --  Classifier::ownedUseCase : UseCase
46945
46946            return
46947              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
46948               (AMF.UML.Stereotypes.UML_Stereotype_Access
46949                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Use_Case);
46950
46951         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
46952            --  Element::owner : Element
46953
46954            return
46955              AMF.Internals.Holders.UML_Holders.To_Holder
46956               (AMF.UML.Elements.UML_Element_Access'
46957                 (AMF.UML.Stereotypes.UML_Stereotype_Access
46958                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
46959
46960         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
46961            --  ParameterableElement::owningTemplateParameter : TemplateParameter
46962
46963            return
46964              AMF.Internals.Holders.UML_Holders.To_Holder
46965               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
46966                 (AMF.UML.Stereotypes.UML_Stereotype_Access
46967                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
46968
46969         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
46970            --  Type::package : Package
46971
46972            return
46973              AMF.Internals.Holders.UML_Holders.To_Holder
46974               (AMF.UML.Packages.UML_Package_Access'
46975                 (AMF.UML.Stereotypes.UML_Stereotype_Access
46976                   (AMF.Internals.Helpers.To_Element (Self)).Get_Package));
46977
46978         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
46979            --  Namespace::packageImport : PackageImport
46980
46981            return
46982              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
46983               (AMF.UML.Stereotypes.UML_Stereotype_Access
46984                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
46985
46986         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Part_A_Structured_Classifier then
46987            --  StructuredClassifier::part : Property
46988
46989            return
46990              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
46991               (AMF.UML.Stereotypes.UML_Stereotype_Access
46992                 (AMF.Internals.Helpers.To_Element (Self)).Get_Part);
46993
46994         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype then
46995            --  Classifier::powertypeExtent : GeneralizationSet
46996
46997            return
46998              AMF.UML.Generalization_Sets.Collections.UML_Generalization_Set_Collections.Internals.To_Holder
46999               (AMF.UML.Stereotypes.UML_Stereotype_Access
47000                 (AMF.Internals.Helpers.To_Element (Self)).Get_Powertype_Extent);
47001
47002         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Stereotype_Profile_A_Stereotype then
47003            --  Stereotype::profile : Profile
47004
47005            return
47006              AMF.Internals.Holders.UML_Holders.To_Holder
47007               (AMF.UML.Profiles.UML_Profile_Access'
47008                 (AMF.UML.Stereotypes.UML_Stereotype_Access
47009                   (AMF.Internals.Helpers.To_Element (Self)).Get_Profile));
47010
47011         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
47012            --  NamedElement::qualifiedName : String
47013
47014            return
47015              AMF.Holders.To_Holder
47016               (AMF.UML.Stereotypes.UML_Stereotype_Access
47017                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
47018
47019         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier then
47020            --  Classifier::redefinedClassifier : Classifier
47021
47022            return
47023              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
47024               (AMF.UML.Stereotypes.UML_Stereotype_Access
47025                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Classifier);
47026
47027         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
47028            --  RedefinableElement::redefinedElement : RedefinableElement
47029
47030            return
47031              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
47032               (AMF.UML.Stereotypes.UML_Stereotype_Access
47033                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
47034
47035         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
47036            --  RedefinableElement::redefinitionContext : Classifier
47037
47038            return
47039              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
47040               (AMF.UML.Stereotypes.UML_Stereotype_Access
47041                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
47042
47043         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
47044            --  Classifier::representation : CollaborationUse
47045
47046            return
47047              AMF.Internals.Holders.UML_Holders.To_Holder
47048               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access'
47049                 (AMF.UML.Stereotypes.UML_Stereotype_Access
47050                   (AMF.Internals.Helpers.To_Element (Self)).Get_Representation));
47051
47052         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Classifier_Role_A_Structured_Classifier then
47053            --  StructuredClassifier::role : ConnectableElement
47054
47055            return
47056              AMF.UML.Connectable_Elements.Collections.UML_Connectable_Element_Collections.Internals.To_Holder
47057               (AMF.UML.Stereotypes.UML_Stereotype_Access
47058                 (AMF.Internals.Helpers.To_Element (Self)).Get_Role);
47059
47060         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier then
47061            --  Classifier::substitution : Substitution
47062
47063            return
47064              AMF.UML.Substitutions.Collections.UML_Substitution_Collections.Internals.To_Holder
47065               (AMF.UML.Stereotypes.UML_Stereotype_Access
47066                 (AMF.Internals.Helpers.To_Element (Self)).Get_Substitution);
47067
47068         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Super_Class_A_Class then
47069            --  Class::superClass : Class
47070
47071            return
47072              AMF.UML.Classes.Collections.UML_Class_Collections.Internals.To_Holder
47073               (AMF.UML.Stereotypes.UML_Stereotype_Access
47074                 (AMF.Internals.Helpers.To_Element (Self)).Get_Super_Class);
47075
47076         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
47077            --  TemplateableElement::templateBinding : TemplateBinding
47078
47079            return
47080              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
47081               (AMF.UML.Stereotypes.UML_Stereotype_Access
47082                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
47083
47084         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
47085            --  Classifier::templateParameter : ClassifierTemplateParameter
47086
47087            return
47088              AMF.Internals.Holders.UML_Holders.To_Holder
47089               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access'
47090                 (AMF.UML.Stereotypes.UML_Stereotype_Access
47091                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
47092
47093         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
47094            --  ParameterableElement::templateParameter : TemplateParameter
47095
47096            return
47097              AMF.Internals.Holders.UML_Holders.To_Holder
47098               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
47099                 (AMF.UML.Stereotypes.UML_Stereotype_Access
47100                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
47101
47102         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject then
47103            --  Classifier::useCase : UseCase
47104
47105            return
47106              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
47107               (AMF.UML.Stereotypes.UML_Stereotype_Access
47108                 (AMF.Internals.Helpers.To_Element (Self)).Get_Use_Case);
47109
47110         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
47111            --  NamedElement::visibility : VisibilityKind
47112
47113            return
47114              AMF.UML.Holders.To_Holder
47115               (AMF.UML.Stereotypes.UML_Stereotype_Access
47116                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
47117
47118         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
47119            --  PackageableElement::visibility : VisibilityKind
47120
47121            return
47122              AMF.UML.Holders.Visibility_Kinds.To_Holder
47123               (AMF.UML.Stereotypes.UML_Stereotype_Access
47124                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
47125
47126         else
47127            raise Program_Error;
47128         end if;
47129      end UML_Stereotype_Get;
47130
47131      -------------------------------
47132      -- UML_String_Expression_Get --
47133      -------------------------------
47134
47135      function UML_String_Expression_Get return League.Holders.Holder is
47136      begin
47137         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
47138            --  NamedElement::clientDependency : Dependency
47139
47140            return
47141              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
47142               (AMF.UML.String_Expressions.UML_String_Expression_Access
47143                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
47144
47145         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
47146            --  NamedElement::name : String
47147
47148            return
47149              AMF.Holders.To_Holder
47150               (AMF.UML.String_Expressions.UML_String_Expression_Access
47151                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
47152
47153         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
47154            --  NamedElement::nameExpression : StringExpression
47155
47156            return
47157              AMF.Internals.Holders.UML_Holders.To_Holder
47158               (AMF.UML.String_Expressions.UML_String_Expression_Access'
47159                 (AMF.UML.String_Expressions.UML_String_Expression_Access
47160                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
47161
47162         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
47163            --  NamedElement::namespace : Namespace
47164
47165            return
47166              AMF.Internals.Holders.UML_Holders.To_Holder
47167               (AMF.UML.Namespaces.UML_Namespace_Access'
47168                 (AMF.UML.String_Expressions.UML_String_Expression_Access
47169                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
47170
47171         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Expression_Operand_A_Expression then
47172            --  Expression::operand : ValueSpecification
47173
47174            return
47175              AMF.UML.Value_Specifications.Collections.UML_Value_Specification_Collections.Internals.To_Holder
47176               (AMF.UML.String_Expressions.UML_String_Expression_Access
47177                 (AMF.Internals.Helpers.To_Element (Self)).Get_Operand);
47178
47179         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
47180            --  Element::ownedComment : Comment
47181
47182            return
47183              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
47184               (AMF.UML.String_Expressions.UML_String_Expression_Access
47185                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
47186
47187         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
47188            --  Element::ownedElement : Element
47189
47190            return
47191              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
47192               (AMF.UML.String_Expressions.UML_String_Expression_Access
47193                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
47194
47195         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
47196            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
47197
47198            return
47199              AMF.Internals.Holders.UML_Holders.To_Holder
47200               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
47201                 (AMF.UML.String_Expressions.UML_String_Expression_Access
47202                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
47203
47204         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
47205            --  Element::owner : Element
47206
47207            return
47208              AMF.Internals.Holders.UML_Holders.To_Holder
47209               (AMF.UML.Elements.UML_Element_Access'
47210                 (AMF.UML.String_Expressions.UML_String_Expression_Access
47211                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
47212
47213         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_String_Expression_Owning_Expression_String_Expression_Sub_Expression then
47214            --  StringExpression::owningExpression : StringExpression
47215
47216            return
47217              AMF.Internals.Holders.UML_Holders.To_Holder
47218               (AMF.UML.String_Expressions.UML_String_Expression_Access'
47219                 (AMF.UML.String_Expressions.UML_String_Expression_Access
47220                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Expression));
47221
47222         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
47223            --  ParameterableElement::owningTemplateParameter : TemplateParameter
47224
47225            return
47226              AMF.Internals.Holders.UML_Holders.To_Holder
47227               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
47228                 (AMF.UML.String_Expressions.UML_String_Expression_Access
47229                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
47230
47231         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
47232            --  NamedElement::qualifiedName : String
47233
47234            return
47235              AMF.Holders.To_Holder
47236               (AMF.UML.String_Expressions.UML_String_Expression_Access
47237                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
47238
47239         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_String_Expression_Sub_Expression_String_Expression_Owning_Expression then
47240            --  StringExpression::subExpression : StringExpression
47241
47242            return
47243              AMF.UML.String_Expressions.Collections.UML_String_Expression_Collections.Internals.To_Holder
47244               (AMF.UML.String_Expressions.UML_String_Expression_Access
47245                 (AMF.Internals.Helpers.To_Element (Self)).Get_Sub_Expression);
47246
47247         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Expression_Symbol then
47248            --  Expression::symbol : String
47249
47250            return
47251              AMF.Holders.To_Holder
47252               (AMF.UML.String_Expressions.UML_String_Expression_Access
47253                 (AMF.Internals.Helpers.To_Element (Self)).Get_Symbol);
47254
47255         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
47256            --  TemplateableElement::templateBinding : TemplateBinding
47257
47258            return
47259              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
47260               (AMF.UML.String_Expressions.UML_String_Expression_Access
47261                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
47262
47263         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
47264            --  ParameterableElement::templateParameter : TemplateParameter
47265
47266            return
47267              AMF.Internals.Holders.UML_Holders.To_Holder
47268               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
47269                 (AMF.UML.String_Expressions.UML_String_Expression_Access
47270                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
47271
47272         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
47273            --  TypedElement::type : Type
47274
47275            return
47276              AMF.Internals.Holders.UML_Holders.To_Holder
47277               (AMF.UML.Types.UML_Type_Access'
47278                 (AMF.UML.String_Expressions.UML_String_Expression_Access
47279                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
47280
47281         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
47282            --  NamedElement::visibility : VisibilityKind
47283
47284            return
47285              AMF.UML.Holders.To_Holder
47286               (AMF.UML.String_Expressions.UML_String_Expression_Access
47287                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
47288
47289         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
47290            --  PackageableElement::visibility : VisibilityKind
47291
47292            return
47293              AMF.UML.Holders.Visibility_Kinds.To_Holder
47294               (AMF.UML.String_Expressions.UML_String_Expression_Access
47295                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
47296
47297         else
47298            raise Program_Error;
47299         end if;
47300      end UML_String_Expression_Get;
47301
47302      --------------------------------------
47303      -- UML_Structured_Activity_Node_Get --
47304      --------------------------------------
47305
47306      function UML_Structured_Activity_Node_Get return League.Holders.Holder is
47307      begin
47308         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
47309            --  ActivityNode::activity : Activity
47310
47311            return
47312              AMF.Internals.Holders.UML_Holders.To_Holder
47313               (AMF.UML.Activities.UML_Activity_Access'
47314                 (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47315                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
47316
47317         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Activity_Activity_Structured_Node then
47318            --  StructuredActivityNode::activity : Activity
47319
47320            return
47321              AMF.Internals.Holders.UML_Holders.To_Holder
47322               (AMF.UML.Activities.UML_Activity_Access'
47323                 (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47324                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
47325
47326         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
47327            --  NamedElement::clientDependency : Dependency
47328
47329            return
47330              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
47331               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47332                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
47333
47334         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Contained_Edge_Activity_Edge_In_Group then
47335            --  ActivityGroup::containedEdge : ActivityEdge
47336
47337            return
47338              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
47339               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47340                 (AMF.Internals.Helpers.To_Element (Self)).Get_Contained_Edge);
47341
47342         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Contained_Node_Activity_Node_In_Group then
47343            --  ActivityGroup::containedNode : ActivityNode
47344
47345            return
47346              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
47347               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47348                 (AMF.Internals.Helpers.To_Element (Self)).Get_Contained_Node);
47349
47350         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
47351            --  Action::context : Classifier
47352
47353            return
47354              AMF.Internals.Holders.UML_Holders.To_Holder
47355               (AMF.UML.Classifiers.UML_Classifier_Access'
47356                 (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47357                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
47358
47359         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Edge_Activity_Edge_In_Structured_Node then
47360            --  StructuredActivityNode::edge : ActivityEdge
47361
47362            return
47363              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
47364               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47365                 (AMF.Internals.Helpers.To_Element (Self)).Get_Edge);
47366
47367         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
47368            --  Namespace::elementImport : ElementImport
47369
47370            return
47371              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
47372               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47373                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
47374
47375         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
47376            --  ExecutableNode::handler : ExceptionHandler
47377
47378            return
47379              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
47380               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47381                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
47382
47383         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
47384            --  Namespace::importedMember : PackageableElement
47385
47386            return
47387              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
47388               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47389                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
47390
47391         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_In_Activity_Activity_Group then
47392            --  ActivityGroup::inActivity : Activity
47393
47394            return
47395              AMF.Internals.Holders.UML_Holders.To_Holder
47396               (AMF.UML.Activities.UML_Activity_Access'
47397                 (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47398                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Activity));
47399
47400         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
47401            --  ActivityNode::inGroup : ActivityGroup
47402
47403            return
47404              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
47405               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47406                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
47407
47408         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
47409            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
47410
47411            return
47412              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
47413               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47414                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
47415
47416         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
47417            --  ActivityNode::inPartition : ActivityPartition
47418
47419            return
47420              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
47421               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47422                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
47423
47424         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
47425            --  ActivityNode::inStructuredNode : StructuredActivityNode
47426
47427            return
47428              AMF.Internals.Holders.UML_Holders.To_Holder
47429               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
47430                 (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47431                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
47432
47433         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
47434            --  ActivityNode::incoming : ActivityEdge
47435
47436            return
47437              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
47438               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47439                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
47440
47441         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
47442            --  Action::input : InputPin
47443
47444            return
47445              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
47446               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47447                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
47448
47449         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
47450            --  RedefinableElement::isLeaf : Boolean
47451
47452            return
47453              League.Holders.Booleans.To_Holder
47454               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47455                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
47456
47457         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
47458            --  Action::isLocallyReentrant : Boolean
47459
47460            return
47461              League.Holders.Booleans.To_Holder
47462               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47463                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
47464
47465         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
47466            --  Action::localPostcondition : Constraint
47467
47468            return
47469              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
47470               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47471                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
47472
47473         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
47474            --  Action::localPrecondition : Constraint
47475
47476            return
47477              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
47478               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47479                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
47480
47481         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
47482            --  Namespace::member : NamedElement
47483
47484            return
47485              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
47486               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47487                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
47488
47489         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Must_Isolate then
47490            --  StructuredActivityNode::mustIsolate : Boolean
47491
47492            return
47493              League.Holders.Booleans.To_Holder
47494               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47495                 (AMF.Internals.Helpers.To_Element (Self)).Get_Must_Isolate);
47496
47497         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
47498            --  NamedElement::name : String
47499
47500            return
47501              AMF.Holders.To_Holder
47502               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47503                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
47504
47505         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
47506            --  NamedElement::nameExpression : StringExpression
47507
47508            return
47509              AMF.Internals.Holders.UML_Holders.To_Holder
47510               (AMF.UML.String_Expressions.UML_String_Expression_Access'
47511                 (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47512                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
47513
47514         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
47515            --  NamedElement::namespace : Namespace
47516
47517            return
47518              AMF.Internals.Holders.UML_Holders.To_Holder
47519               (AMF.UML.Namespaces.UML_Namespace_Access'
47520                 (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47521                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
47522
47523         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Node_Activity_Node_In_Structured_Node then
47524            --  StructuredActivityNode::node : ActivityNode
47525
47526            return
47527              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
47528               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47529                 (AMF.Internals.Helpers.To_Element (Self)).Get_Node);
47530
47531         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
47532            --  ActivityNode::outgoing : ActivityEdge
47533
47534            return
47535              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
47536               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47537                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
47538
47539         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
47540            --  Action::output : OutputPin
47541
47542            return
47543              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
47544               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47545                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
47546
47547         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
47548            --  Element::ownedComment : Comment
47549
47550            return
47551              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
47552               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47553                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
47554
47555         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
47556            --  Element::ownedElement : Element
47557
47558            return
47559              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
47560               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47561                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
47562
47563         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
47564            --  Namespace::ownedMember : NamedElement
47565
47566            return
47567              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
47568               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47569                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
47570
47571         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
47572            --  Namespace::ownedRule : Constraint
47573
47574            return
47575              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
47576               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47577                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
47578
47579         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
47580            --  Element::owner : Element
47581
47582            return
47583              AMF.Internals.Holders.UML_Holders.To_Holder
47584               (AMF.UML.Elements.UML_Element_Access'
47585                 (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47586                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
47587
47588         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
47589            --  Namespace::packageImport : PackageImport
47590
47591            return
47592              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
47593               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47594                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
47595
47596         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
47597            --  NamedElement::qualifiedName : String
47598
47599            return
47600              AMF.Holders.To_Holder
47601               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47602                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
47603
47604         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
47605            --  RedefinableElement::redefinedElement : RedefinableElement
47606
47607            return
47608              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
47609               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47610                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
47611
47612         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
47613            --  ActivityNode::redefinedNode : ActivityNode
47614
47615            return
47616              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
47617               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47618                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
47619
47620         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
47621            --  RedefinableElement::redefinitionContext : Classifier
47622
47623            return
47624              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
47625               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47626                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
47627
47628         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Structured_Node_Input_A_Structured_Activity_Node then
47629            --  StructuredActivityNode::structuredNodeInput : InputPin
47630
47631            return
47632              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
47633               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47634                 (AMF.Internals.Helpers.To_Element (Self)).Get_Structured_Node_Input);
47635
47636         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Structured_Node_Output_A_Structured_Activity_Node then
47637            --  StructuredActivityNode::structuredNodeOutput : OutputPin
47638
47639            return
47640              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
47641               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47642                 (AMF.Internals.Helpers.To_Element (Self)).Get_Structured_Node_Output);
47643
47644         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Subgroup_Activity_Group_Super_Group then
47645            --  ActivityGroup::subgroup : ActivityGroup
47646
47647            return
47648              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
47649               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47650                 (AMF.Internals.Helpers.To_Element (Self)).Get_Subgroup);
47651
47652         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_Super_Group_Activity_Group_Subgroup then
47653            --  ActivityGroup::superGroup : ActivityGroup
47654
47655            return
47656              AMF.Internals.Holders.UML_Holders.To_Holder
47657               (AMF.UML.Activity_Groups.UML_Activity_Group_Access'
47658                 (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47659                   (AMF.Internals.Helpers.To_Element (Self)).Get_Super_Group));
47660
47661         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Variable_Variable_Scope then
47662            --  StructuredActivityNode::variable : Variable
47663
47664            return
47665              AMF.UML.Variables.Collections.UML_Variable_Collections.Internals.To_Holder
47666               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47667                 (AMF.Internals.Helpers.To_Element (Self)).Get_Variable);
47668
47669         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
47670            --  NamedElement::visibility : VisibilityKind
47671
47672            return
47673              AMF.UML.Holders.To_Holder
47674               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
47675                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
47676
47677         else
47678            raise Program_Error;
47679         end if;
47680      end UML_Structured_Activity_Node_Get;
47681
47682      --------------------------
47683      -- UML_Substitution_Get --
47684      --------------------------
47685
47686      function UML_Substitution_Get return League.Holders.Holder is
47687      begin
47688         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Client_Named_Element_Client_Dependency then
47689            --  Dependency::client : NamedElement
47690
47691            return
47692              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
47693               (AMF.UML.Substitutions.UML_Substitution_Access
47694                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client);
47695
47696         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
47697            --  NamedElement::clientDependency : Dependency
47698
47699            return
47700              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
47701               (AMF.UML.Substitutions.UML_Substitution_Access
47702                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
47703
47704         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Substitution_Contract_A_Substitution then
47705            --  Substitution::contract : Classifier
47706
47707            return
47708              AMF.Internals.Holders.UML_Holders.To_Holder
47709               (AMF.UML.Classifiers.UML_Classifier_Access'
47710                 (AMF.UML.Substitutions.UML_Substitution_Access
47711                   (AMF.Internals.Helpers.To_Element (Self)).Get_Contract));
47712
47713         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Abstraction_Mapping_A_Abstraction then
47714            --  Abstraction::mapping : OpaqueExpression
47715
47716            return
47717              AMF.Internals.Holders.UML_Holders.To_Holder
47718               (AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access'
47719                 (AMF.UML.Substitutions.UML_Substitution_Access
47720                   (AMF.Internals.Helpers.To_Element (Self)).Get_Mapping));
47721
47722         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
47723            --  NamedElement::name : String
47724
47725            return
47726              AMF.Holders.To_Holder
47727               (AMF.UML.Substitutions.UML_Substitution_Access
47728                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
47729
47730         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
47731            --  NamedElement::nameExpression : StringExpression
47732
47733            return
47734              AMF.Internals.Holders.UML_Holders.To_Holder
47735               (AMF.UML.String_Expressions.UML_String_Expression_Access'
47736                 (AMF.UML.Substitutions.UML_Substitution_Access
47737                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
47738
47739         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
47740            --  NamedElement::namespace : Namespace
47741
47742            return
47743              AMF.Internals.Holders.UML_Holders.To_Holder
47744               (AMF.UML.Namespaces.UML_Namespace_Access'
47745                 (AMF.UML.Substitutions.UML_Substitution_Access
47746                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
47747
47748         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
47749            --  Element::ownedComment : Comment
47750
47751            return
47752              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
47753               (AMF.UML.Substitutions.UML_Substitution_Access
47754                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
47755
47756         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
47757            --  Element::ownedElement : Element
47758
47759            return
47760              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
47761               (AMF.UML.Substitutions.UML_Substitution_Access
47762                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
47763
47764         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
47765            --  Element::owner : Element
47766
47767            return
47768              AMF.Internals.Holders.UML_Holders.To_Holder
47769               (AMF.UML.Elements.UML_Element_Access'
47770                 (AMF.UML.Substitutions.UML_Substitution_Access
47771                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
47772
47773         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
47774            --  ParameterableElement::owningTemplateParameter : TemplateParameter
47775
47776            return
47777              AMF.Internals.Holders.UML_Holders.To_Holder
47778               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
47779                 (AMF.UML.Substitutions.UML_Substitution_Access
47780                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
47781
47782         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
47783            --  NamedElement::qualifiedName : String
47784
47785            return
47786              AMF.Holders.To_Holder
47787               (AMF.UML.Substitutions.UML_Substitution_Access
47788                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
47789
47790         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship then
47791            --  Relationship::relatedElement : Element
47792
47793            return
47794              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
47795               (AMF.UML.Substitutions.UML_Substitution_Access
47796                 (AMF.Internals.Helpers.To_Element (Self)).Get_Related_Element);
47797
47798         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship then
47799            --  DirectedRelationship::source : Element
47800
47801            return
47802              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
47803               (AMF.UML.Substitutions.UML_Substitution_Access
47804                 (AMF.Internals.Helpers.To_Element (Self)).Get_Source);
47805
47806         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Substitution_Substituting_Classifier_Classifier_Substitution then
47807            --  Substitution::substitutingClassifier : Classifier
47808
47809            return
47810              AMF.Internals.Holders.UML_Holders.To_Holder
47811               (AMF.UML.Classifiers.UML_Classifier_Access'
47812                 (AMF.UML.Substitutions.UML_Substitution_Access
47813                   (AMF.Internals.Helpers.To_Element (Self)).Get_Substituting_Classifier));
47814
47815         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Supplier_A_Supplier_Dependency then
47816            --  Dependency::supplier : NamedElement
47817
47818            return
47819              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
47820               (AMF.UML.Substitutions.UML_Substitution_Access
47821                 (AMF.Internals.Helpers.To_Element (Self)).Get_Supplier);
47822
47823         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship then
47824            --  DirectedRelationship::target : Element
47825
47826            return
47827              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
47828               (AMF.UML.Substitutions.UML_Substitution_Access
47829                 (AMF.Internals.Helpers.To_Element (Self)).Get_Target);
47830
47831         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
47832            --  ParameterableElement::templateParameter : TemplateParameter
47833
47834            return
47835              AMF.Internals.Holders.UML_Holders.To_Holder
47836               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
47837                 (AMF.UML.Substitutions.UML_Substitution_Access
47838                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
47839
47840         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
47841            --  NamedElement::visibility : VisibilityKind
47842
47843            return
47844              AMF.UML.Holders.To_Holder
47845               (AMF.UML.Substitutions.UML_Substitution_Access
47846                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
47847
47848         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
47849            --  PackageableElement::visibility : VisibilityKind
47850
47851            return
47852              AMF.UML.Holders.Visibility_Kinds.To_Holder
47853               (AMF.UML.Substitutions.UML_Substitution_Access
47854                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
47855
47856         else
47857            raise Program_Error;
47858         end if;
47859      end UML_Substitution_Get;
47860
47861      ------------------------------
47862      -- UML_Template_Binding_Get --
47863      ------------------------------
47864
47865      function UML_Template_Binding_Get return League.Holders.Holder is
47866      begin
47867         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Binding_Bound_Element_Templateable_Element_Template_Binding then
47868            --  TemplateBinding::boundElement : TemplateableElement
47869
47870            return
47871              AMF.Internals.Holders.UML_Holders.To_Holder
47872               (AMF.UML.Templateable_Elements.UML_Templateable_Element_Access'
47873                 (AMF.UML.Template_Bindings.UML_Template_Binding_Access
47874                   (AMF.Internals.Helpers.To_Element (Self)).Get_Bound_Element));
47875
47876         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
47877            --  Element::ownedComment : Comment
47878
47879            return
47880              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
47881               (AMF.UML.Template_Bindings.UML_Template_Binding_Access
47882                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
47883
47884         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
47885            --  Element::ownedElement : Element
47886
47887            return
47888              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
47889               (AMF.UML.Template_Bindings.UML_Template_Binding_Access
47890                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
47891
47892         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
47893            --  Element::owner : Element
47894
47895            return
47896              AMF.Internals.Holders.UML_Holders.To_Holder
47897               (AMF.UML.Elements.UML_Element_Access'
47898                 (AMF.UML.Template_Bindings.UML_Template_Binding_Access
47899                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
47900
47901         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Binding_Parameter_Substitution_Template_Parameter_Substitution_Template_Binding then
47902            --  TemplateBinding::parameterSubstitution : TemplateParameterSubstitution
47903
47904            return
47905              AMF.UML.Template_Parameter_Substitutions.Collections.UML_Template_Parameter_Substitution_Collections.Internals.To_Holder
47906               (AMF.UML.Template_Bindings.UML_Template_Binding_Access
47907                 (AMF.Internals.Helpers.To_Element (Self)).Get_Parameter_Substitution);
47908
47909         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship then
47910            --  Relationship::relatedElement : Element
47911
47912            return
47913              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
47914               (AMF.UML.Template_Bindings.UML_Template_Binding_Access
47915                 (AMF.Internals.Helpers.To_Element (Self)).Get_Related_Element);
47916
47917         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Binding_Signature_A_Template_Binding then
47918            --  TemplateBinding::signature : TemplateSignature
47919
47920            return
47921              AMF.Internals.Holders.UML_Holders.To_Holder
47922               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
47923                 (AMF.UML.Template_Bindings.UML_Template_Binding_Access
47924                   (AMF.Internals.Helpers.To_Element (Self)).Get_Signature));
47925
47926         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship then
47927            --  DirectedRelationship::source : Element
47928
47929            return
47930              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
47931               (AMF.UML.Template_Bindings.UML_Template_Binding_Access
47932                 (AMF.Internals.Helpers.To_Element (Self)).Get_Source);
47933
47934         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship then
47935            --  DirectedRelationship::target : Element
47936
47937            return
47938              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
47939               (AMF.UML.Template_Bindings.UML_Template_Binding_Access
47940                 (AMF.Internals.Helpers.To_Element (Self)).Get_Target);
47941
47942         else
47943            raise Program_Error;
47944         end if;
47945      end UML_Template_Binding_Get;
47946
47947      --------------------------------
47948      -- UML_Template_Parameter_Get --
47949      --------------------------------
47950
47951      function UML_Template_Parameter_Get return League.Holders.Holder is
47952      begin
47953         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Default_A_Template_Parameter then
47954            --  TemplateParameter::default : ParameterableElement
47955
47956            return
47957              AMF.Internals.Holders.UML_Holders.To_Holder
47958               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access'
47959                 (AMF.UML.Template_Parameters.UML_Template_Parameter_Access
47960                   (AMF.Internals.Helpers.To_Element (Self)).Get_Default));
47961
47962         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
47963            --  Element::ownedComment : Comment
47964
47965            return
47966              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
47967               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access
47968                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
47969
47970         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Owned_Default_A_Template_Parameter then
47971            --  TemplateParameter::ownedDefault : ParameterableElement
47972
47973            return
47974              AMF.Internals.Holders.UML_Holders.To_Holder
47975               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access'
47976                 (AMF.UML.Template_Parameters.UML_Template_Parameter_Access
47977                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Default));
47978
47979         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
47980            --  Element::ownedElement : Element
47981
47982            return
47983              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
47984               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access
47985                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
47986
47987         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Owned_Parametered_Element_Parameterable_Element_Owning_Template_Parameter then
47988            --  TemplateParameter::ownedParameteredElement : ParameterableElement
47989
47990            return
47991              AMF.Internals.Holders.UML_Holders.To_Holder
47992               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access'
47993                 (AMF.UML.Template_Parameters.UML_Template_Parameter_Access
47994                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Parametered_Element));
47995
47996         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
47997            --  Element::owner : Element
47998
47999            return
48000              AMF.Internals.Holders.UML_Holders.To_Holder
48001               (AMF.UML.Elements.UML_Element_Access'
48002                 (AMF.UML.Template_Parameters.UML_Template_Parameter_Access
48003                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
48004
48005         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Parametered_Element_Parameterable_Element_Template_Parameter then
48006            --  TemplateParameter::parameteredElement : ParameterableElement
48007
48008            return
48009              AMF.Internals.Holders.UML_Holders.To_Holder
48010               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access'
48011                 (AMF.UML.Template_Parameters.UML_Template_Parameter_Access
48012                   (AMF.Internals.Helpers.To_Element (Self)).Get_Parametered_Element));
48013
48014         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Signature_Template_Signature_Owned_Parameter then
48015            --  TemplateParameter::signature : TemplateSignature
48016
48017            return
48018              AMF.Internals.Holders.UML_Holders.To_Holder
48019               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
48020                 (AMF.UML.Template_Parameters.UML_Template_Parameter_Access
48021                   (AMF.Internals.Helpers.To_Element (Self)).Get_Signature));
48022
48023         else
48024            raise Program_Error;
48025         end if;
48026      end UML_Template_Parameter_Get;
48027
48028      ---------------------------------------------
48029      -- UML_Template_Parameter_Substitution_Get --
48030      ---------------------------------------------
48031
48032      function UML_Template_Parameter_Substitution_Get return League.Holders.Holder is
48033      begin
48034         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Substitution_Actual_A_Template_Parameter_Substitution then
48035            --  TemplateParameterSubstitution::actual : ParameterableElement
48036
48037            return
48038              AMF.Internals.Holders.UML_Holders.To_Holder
48039               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access'
48040                 (AMF.UML.Template_Parameter_Substitutions.UML_Template_Parameter_Substitution_Access
48041                   (AMF.Internals.Helpers.To_Element (Self)).Get_Actual));
48042
48043         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Substitution_Formal_A_Template_Parameter_Substitution then
48044            --  TemplateParameterSubstitution::formal : TemplateParameter
48045
48046            return
48047              AMF.Internals.Holders.UML_Holders.To_Holder
48048               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
48049                 (AMF.UML.Template_Parameter_Substitutions.UML_Template_Parameter_Substitution_Access
48050                   (AMF.Internals.Helpers.To_Element (Self)).Get_Formal));
48051
48052         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Substitution_Owned_Actual_A_Template_Parameter_Substitution then
48053            --  TemplateParameterSubstitution::ownedActual : ParameterableElement
48054
48055            return
48056              AMF.Internals.Holders.UML_Holders.To_Holder
48057               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access'
48058                 (AMF.UML.Template_Parameter_Substitutions.UML_Template_Parameter_Substitution_Access
48059                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Actual));
48060
48061         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
48062            --  Element::ownedComment : Comment
48063
48064            return
48065              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
48066               (AMF.UML.Template_Parameter_Substitutions.UML_Template_Parameter_Substitution_Access
48067                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
48068
48069         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
48070            --  Element::ownedElement : Element
48071
48072            return
48073              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
48074               (AMF.UML.Template_Parameter_Substitutions.UML_Template_Parameter_Substitution_Access
48075                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
48076
48077         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
48078            --  Element::owner : Element
48079
48080            return
48081              AMF.Internals.Holders.UML_Holders.To_Holder
48082               (AMF.UML.Elements.UML_Element_Access'
48083                 (AMF.UML.Template_Parameter_Substitutions.UML_Template_Parameter_Substitution_Access
48084                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
48085
48086         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Substitution_Template_Binding_Template_Binding_Parameter_Substitution then
48087            --  TemplateParameterSubstitution::templateBinding : TemplateBinding
48088
48089            return
48090              AMF.Internals.Holders.UML_Holders.To_Holder
48091               (AMF.UML.Template_Bindings.UML_Template_Binding_Access'
48092                 (AMF.UML.Template_Parameter_Substitutions.UML_Template_Parameter_Substitution_Access
48093                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding));
48094
48095         else
48096            raise Program_Error;
48097         end if;
48098      end UML_Template_Parameter_Substitution_Get;
48099
48100      --------------------------------
48101      -- UML_Template_Signature_Get --
48102      --------------------------------
48103
48104      function UML_Template_Signature_Get return League.Holders.Holder is
48105      begin
48106         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
48107            --  Element::ownedComment : Comment
48108
48109            return
48110              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
48111               (AMF.UML.Template_Signatures.UML_Template_Signature_Access
48112                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
48113
48114         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
48115            --  Element::ownedElement : Element
48116
48117            return
48118              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
48119               (AMF.UML.Template_Signatures.UML_Template_Signature_Access
48120                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
48121
48122         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Signature_Owned_Parameter_Template_Parameter_Signature then
48123            --  TemplateSignature::ownedParameter : TemplateParameter
48124
48125            return
48126              AMF.UML.Template_Parameters.Collections.UML_Template_Parameter_Collections.Internals.To_Holder
48127               (AMF.UML.Template_Signatures.UML_Template_Signature_Access
48128                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Parameter);
48129
48130         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
48131            --  Element::owner : Element
48132
48133            return
48134              AMF.Internals.Holders.UML_Holders.To_Holder
48135               (AMF.UML.Elements.UML_Element_Access'
48136                 (AMF.UML.Template_Signatures.UML_Template_Signature_Access
48137                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
48138
48139         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Signature_Parameter_A_Template_Signature then
48140            --  TemplateSignature::parameter : TemplateParameter
48141
48142            return
48143              AMF.UML.Template_Parameters.Collections.UML_Template_Parameter_Collections.Internals.To_Holder
48144               (AMF.UML.Template_Signatures.UML_Template_Signature_Access
48145                 (AMF.Internals.Helpers.To_Element (Self)).Get_Parameter);
48146
48147         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Signature_Template_Templateable_Element_Owned_Template_Signature then
48148            --  TemplateSignature::template : TemplateableElement
48149
48150            return
48151              AMF.Internals.Holders.UML_Holders.To_Holder
48152               (AMF.UML.Templateable_Elements.UML_Templateable_Element_Access'
48153                 (AMF.UML.Template_Signatures.UML_Template_Signature_Access
48154                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template));
48155
48156         else
48157            raise Program_Error;
48158         end if;
48159      end UML_Template_Signature_Get;
48160
48161      ----------------------------------
48162      -- UML_Test_Identity_Action_Get --
48163      ----------------------------------
48164
48165      function UML_Test_Identity_Action_Get return League.Holders.Holder is
48166      begin
48167         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
48168            --  ActivityNode::activity : Activity
48169
48170            return
48171              AMF.Internals.Holders.UML_Holders.To_Holder
48172               (AMF.UML.Activities.UML_Activity_Access'
48173                 (AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
48174                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
48175
48176         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
48177            --  NamedElement::clientDependency : Dependency
48178
48179            return
48180              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
48181               (AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
48182                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
48183
48184         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
48185            --  Action::context : Classifier
48186
48187            return
48188              AMF.Internals.Holders.UML_Holders.To_Holder
48189               (AMF.UML.Classifiers.UML_Classifier_Access'
48190                 (AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
48191                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
48192
48193         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Test_Identity_Action_First_A_Test_Identity_Action then
48194            --  TestIdentityAction::first : InputPin
48195
48196            return
48197              AMF.Internals.Holders.UML_Holders.To_Holder
48198               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
48199                 (AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
48200                   (AMF.Internals.Helpers.To_Element (Self)).Get_First));
48201
48202         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
48203            --  ExecutableNode::handler : ExceptionHandler
48204
48205            return
48206              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
48207               (AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
48208                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
48209
48210         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
48211            --  ActivityNode::inGroup : ActivityGroup
48212
48213            return
48214              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
48215               (AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
48216                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
48217
48218         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
48219            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
48220
48221            return
48222              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
48223               (AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
48224                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
48225
48226         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
48227            --  ActivityNode::inPartition : ActivityPartition
48228
48229            return
48230              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
48231               (AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
48232                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
48233
48234         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
48235            --  ActivityNode::inStructuredNode : StructuredActivityNode
48236
48237            return
48238              AMF.Internals.Holders.UML_Holders.To_Holder
48239               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
48240                 (AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
48241                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
48242
48243         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
48244            --  ActivityNode::incoming : ActivityEdge
48245
48246            return
48247              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
48248               (AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
48249                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
48250
48251         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
48252            --  Action::input : InputPin
48253
48254            return
48255              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
48256               (AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
48257                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
48258
48259         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
48260            --  RedefinableElement::isLeaf : Boolean
48261
48262            return
48263              League.Holders.Booleans.To_Holder
48264               (AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
48265                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
48266
48267         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
48268            --  Action::isLocallyReentrant : Boolean
48269
48270            return
48271              League.Holders.Booleans.To_Holder
48272               (AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
48273                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
48274
48275         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
48276            --  Action::localPostcondition : Constraint
48277
48278            return
48279              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
48280               (AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
48281                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
48282
48283         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
48284            --  Action::localPrecondition : Constraint
48285
48286            return
48287              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
48288               (AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
48289                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
48290
48291         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
48292            --  NamedElement::name : String
48293
48294            return
48295              AMF.Holders.To_Holder
48296               (AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
48297                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
48298
48299         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
48300            --  NamedElement::nameExpression : StringExpression
48301
48302            return
48303              AMF.Internals.Holders.UML_Holders.To_Holder
48304               (AMF.UML.String_Expressions.UML_String_Expression_Access'
48305                 (AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
48306                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
48307
48308         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
48309            --  NamedElement::namespace : Namespace
48310
48311            return
48312              AMF.Internals.Holders.UML_Holders.To_Holder
48313               (AMF.UML.Namespaces.UML_Namespace_Access'
48314                 (AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
48315                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
48316
48317         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
48318            --  ActivityNode::outgoing : ActivityEdge
48319
48320            return
48321              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
48322               (AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
48323                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
48324
48325         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
48326            --  Action::output : OutputPin
48327
48328            return
48329              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
48330               (AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
48331                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
48332
48333         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
48334            --  Element::ownedComment : Comment
48335
48336            return
48337              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
48338               (AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
48339                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
48340
48341         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
48342            --  Element::ownedElement : Element
48343
48344            return
48345              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
48346               (AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
48347                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
48348
48349         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
48350            --  Element::owner : Element
48351
48352            return
48353              AMF.Internals.Holders.UML_Holders.To_Holder
48354               (AMF.UML.Elements.UML_Element_Access'
48355                 (AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
48356                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
48357
48358         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
48359            --  NamedElement::qualifiedName : String
48360
48361            return
48362              AMF.Holders.To_Holder
48363               (AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
48364                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
48365
48366         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
48367            --  RedefinableElement::redefinedElement : RedefinableElement
48368
48369            return
48370              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
48371               (AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
48372                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
48373
48374         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
48375            --  ActivityNode::redefinedNode : ActivityNode
48376
48377            return
48378              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
48379               (AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
48380                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
48381
48382         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
48383            --  RedefinableElement::redefinitionContext : Classifier
48384
48385            return
48386              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
48387               (AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
48388                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
48389
48390         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Test_Identity_Action_Result_A_Test_Identity_Action then
48391            --  TestIdentityAction::result : OutputPin
48392
48393            return
48394              AMF.Internals.Holders.UML_Holders.To_Holder
48395               (AMF.UML.Output_Pins.UML_Output_Pin_Access'
48396                 (AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
48397                   (AMF.Internals.Helpers.To_Element (Self)).Get_Result));
48398
48399         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Test_Identity_Action_Second_A_Test_Identity_Action then
48400            --  TestIdentityAction::second : InputPin
48401
48402            return
48403              AMF.Internals.Holders.UML_Holders.To_Holder
48404               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
48405                 (AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
48406                   (AMF.Internals.Helpers.To_Element (Self)).Get_Second));
48407
48408         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
48409            --  NamedElement::visibility : VisibilityKind
48410
48411            return
48412              AMF.UML.Holders.To_Holder
48413               (AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
48414                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
48415
48416         else
48417            raise Program_Error;
48418         end if;
48419      end UML_Test_Identity_Action_Get;
48420
48421      -----------------------------
48422      -- UML_Time_Constraint_Get --
48423      -----------------------------
48424
48425      function UML_Time_Constraint_Get return League.Holders.Holder is
48426      begin
48427         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
48428            --  NamedElement::clientDependency : Dependency
48429
48430            return
48431              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
48432               (AMF.UML.Time_Constraints.UML_Time_Constraint_Access
48433                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
48434
48435         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Constraint_Constrained_Element_A_Constraint then
48436            --  Constraint::constrainedElement : Element
48437
48438            return
48439              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
48440               (AMF.UML.Time_Constraints.UML_Time_Constraint_Access
48441                 (AMF.Internals.Helpers.To_Element (Self)).Get_Constrained_Element);
48442
48443         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Constraint_Context_Namespace_Owned_Rule then
48444            --  Constraint::context : Namespace
48445
48446            return
48447              AMF.Internals.Holders.UML_Holders.To_Holder
48448               (AMF.UML.Namespaces.UML_Namespace_Access'
48449                 (AMF.UML.Time_Constraints.UML_Time_Constraint_Access
48450                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
48451
48452         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Time_Constraint_First_Event then
48453            --  TimeConstraint::firstEvent : Boolean
48454
48455            return
48456              AMF.Holders.To_Holder
48457               (AMF.UML.Time_Constraints.UML_Time_Constraint_Access
48458                 (AMF.Internals.Helpers.To_Element (Self)).Get_First_Event);
48459
48460         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
48461            --  NamedElement::name : String
48462
48463            return
48464              AMF.Holders.To_Holder
48465               (AMF.UML.Time_Constraints.UML_Time_Constraint_Access
48466                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
48467
48468         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
48469            --  NamedElement::nameExpression : StringExpression
48470
48471            return
48472              AMF.Internals.Holders.UML_Holders.To_Holder
48473               (AMF.UML.String_Expressions.UML_String_Expression_Access'
48474                 (AMF.UML.Time_Constraints.UML_Time_Constraint_Access
48475                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
48476
48477         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
48478            --  NamedElement::namespace : Namespace
48479
48480            return
48481              AMF.Internals.Holders.UML_Holders.To_Holder
48482               (AMF.UML.Namespaces.UML_Namespace_Access'
48483                 (AMF.UML.Time_Constraints.UML_Time_Constraint_Access
48484                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
48485
48486         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
48487            --  Element::ownedComment : Comment
48488
48489            return
48490              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
48491               (AMF.UML.Time_Constraints.UML_Time_Constraint_Access
48492                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
48493
48494         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
48495            --  Element::ownedElement : Element
48496
48497            return
48498              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
48499               (AMF.UML.Time_Constraints.UML_Time_Constraint_Access
48500                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
48501
48502         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
48503            --  Element::owner : Element
48504
48505            return
48506              AMF.Internals.Holders.UML_Holders.To_Holder
48507               (AMF.UML.Elements.UML_Element_Access'
48508                 (AMF.UML.Time_Constraints.UML_Time_Constraint_Access
48509                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
48510
48511         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
48512            --  ParameterableElement::owningTemplateParameter : TemplateParameter
48513
48514            return
48515              AMF.Internals.Holders.UML_Holders.To_Holder
48516               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
48517                 (AMF.UML.Time_Constraints.UML_Time_Constraint_Access
48518                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
48519
48520         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
48521            --  NamedElement::qualifiedName : String
48522
48523            return
48524              AMF.Holders.To_Holder
48525               (AMF.UML.Time_Constraints.UML_Time_Constraint_Access
48526                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
48527
48528         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Constraint_Specification_A_Owning_Constraint then
48529            --  Constraint::specification : ValueSpecification
48530
48531            return
48532              AMF.Internals.Holders.UML_Holders.To_Holder
48533               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
48534                 (AMF.UML.Time_Constraints.UML_Time_Constraint_Access
48535                   (AMF.Internals.Helpers.To_Element (Self)).Get_Specification));
48536
48537         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interval_Constraint_Specification_A_Interval_Constraint then
48538            --  IntervalConstraint::specification : Interval
48539
48540            return
48541              AMF.Internals.Holders.UML_Holders.To_Holder
48542               (AMF.UML.Intervals.UML_Interval_Access'
48543                 (AMF.UML.Time_Constraints.UML_Time_Constraint_Access
48544                   (AMF.Internals.Helpers.To_Element (Self)).Get_Specification));
48545
48546         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Time_Constraint_Specification_A_Time_Constraint then
48547            --  TimeConstraint::specification : TimeInterval
48548
48549            return
48550              AMF.Internals.Holders.UML_Holders.To_Holder
48551               (AMF.UML.Time_Intervals.UML_Time_Interval_Access'
48552                 (AMF.UML.Time_Constraints.UML_Time_Constraint_Access
48553                   (AMF.Internals.Helpers.To_Element (Self)).Get_Specification));
48554
48555         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
48556            --  ParameterableElement::templateParameter : TemplateParameter
48557
48558            return
48559              AMF.Internals.Holders.UML_Holders.To_Holder
48560               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
48561                 (AMF.UML.Time_Constraints.UML_Time_Constraint_Access
48562                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
48563
48564         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
48565            --  NamedElement::visibility : VisibilityKind
48566
48567            return
48568              AMF.UML.Holders.To_Holder
48569               (AMF.UML.Time_Constraints.UML_Time_Constraint_Access
48570                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
48571
48572         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
48573            --  PackageableElement::visibility : VisibilityKind
48574
48575            return
48576              AMF.UML.Holders.Visibility_Kinds.To_Holder
48577               (AMF.UML.Time_Constraints.UML_Time_Constraint_Access
48578                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
48579
48580         else
48581            raise Program_Error;
48582         end if;
48583      end UML_Time_Constraint_Get;
48584
48585      ------------------------
48586      -- UML_Time_Event_Get --
48587      ------------------------
48588
48589      function UML_Time_Event_Get return League.Holders.Holder is
48590      begin
48591         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
48592            --  NamedElement::clientDependency : Dependency
48593
48594            return
48595              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
48596               (AMF.UML.Time_Events.UML_Time_Event_Access
48597                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
48598
48599         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Time_Event_Is_Relative then
48600            --  TimeEvent::isRelative : Boolean
48601
48602            return
48603              League.Holders.Booleans.To_Holder
48604               (AMF.UML.Time_Events.UML_Time_Event_Access
48605                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Relative);
48606
48607         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
48608            --  NamedElement::name : String
48609
48610            return
48611              AMF.Holders.To_Holder
48612               (AMF.UML.Time_Events.UML_Time_Event_Access
48613                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
48614
48615         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
48616            --  NamedElement::nameExpression : StringExpression
48617
48618            return
48619              AMF.Internals.Holders.UML_Holders.To_Holder
48620               (AMF.UML.String_Expressions.UML_String_Expression_Access'
48621                 (AMF.UML.Time_Events.UML_Time_Event_Access
48622                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
48623
48624         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
48625            --  NamedElement::namespace : Namespace
48626
48627            return
48628              AMF.Internals.Holders.UML_Holders.To_Holder
48629               (AMF.UML.Namespaces.UML_Namespace_Access'
48630                 (AMF.UML.Time_Events.UML_Time_Event_Access
48631                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
48632
48633         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
48634            --  Element::ownedComment : Comment
48635
48636            return
48637              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
48638               (AMF.UML.Time_Events.UML_Time_Event_Access
48639                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
48640
48641         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
48642            --  Element::ownedElement : Element
48643
48644            return
48645              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
48646               (AMF.UML.Time_Events.UML_Time_Event_Access
48647                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
48648
48649         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
48650            --  Element::owner : Element
48651
48652            return
48653              AMF.Internals.Holders.UML_Holders.To_Holder
48654               (AMF.UML.Elements.UML_Element_Access'
48655                 (AMF.UML.Time_Events.UML_Time_Event_Access
48656                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
48657
48658         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
48659            --  ParameterableElement::owningTemplateParameter : TemplateParameter
48660
48661            return
48662              AMF.Internals.Holders.UML_Holders.To_Holder
48663               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
48664                 (AMF.UML.Time_Events.UML_Time_Event_Access
48665                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
48666
48667         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
48668            --  NamedElement::qualifiedName : String
48669
48670            return
48671              AMF.Holders.To_Holder
48672               (AMF.UML.Time_Events.UML_Time_Event_Access
48673                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
48674
48675         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
48676            --  ParameterableElement::templateParameter : TemplateParameter
48677
48678            return
48679              AMF.Internals.Holders.UML_Holders.To_Holder
48680               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
48681                 (AMF.UML.Time_Events.UML_Time_Event_Access
48682                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
48683
48684         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
48685            --  NamedElement::visibility : VisibilityKind
48686
48687            return
48688              AMF.UML.Holders.To_Holder
48689               (AMF.UML.Time_Events.UML_Time_Event_Access
48690                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
48691
48692         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
48693            --  PackageableElement::visibility : VisibilityKind
48694
48695            return
48696              AMF.UML.Holders.Visibility_Kinds.To_Holder
48697               (AMF.UML.Time_Events.UML_Time_Event_Access
48698                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
48699
48700         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Time_Event_When_A_Time_Event then
48701            --  TimeEvent::when : TimeExpression
48702
48703            return
48704              AMF.Internals.Holders.UML_Holders.To_Holder
48705               (AMF.UML.Time_Expressions.UML_Time_Expression_Access'
48706                 (AMF.UML.Time_Events.UML_Time_Event_Access
48707                   (AMF.Internals.Helpers.To_Element (Self)).Get_When));
48708
48709         else
48710            raise Program_Error;
48711         end if;
48712      end UML_Time_Event_Get;
48713
48714      -----------------------------
48715      -- UML_Time_Expression_Get --
48716      -----------------------------
48717
48718      function UML_Time_Expression_Get return League.Holders.Holder is
48719      begin
48720         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
48721            --  NamedElement::clientDependency : Dependency
48722
48723            return
48724              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
48725               (AMF.UML.Time_Expressions.UML_Time_Expression_Access
48726                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
48727
48728         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Time_Expression_Expr_A_Time_Expression then
48729            --  TimeExpression::expr : ValueSpecification
48730
48731            return
48732              AMF.Internals.Holders.UML_Holders.To_Holder
48733               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
48734                 (AMF.UML.Time_Expressions.UML_Time_Expression_Access
48735                   (AMF.Internals.Helpers.To_Element (Self)).Get_Expr));
48736
48737         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
48738            --  NamedElement::name : String
48739
48740            return
48741              AMF.Holders.To_Holder
48742               (AMF.UML.Time_Expressions.UML_Time_Expression_Access
48743                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
48744
48745         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
48746            --  NamedElement::nameExpression : StringExpression
48747
48748            return
48749              AMF.Internals.Holders.UML_Holders.To_Holder
48750               (AMF.UML.String_Expressions.UML_String_Expression_Access'
48751                 (AMF.UML.Time_Expressions.UML_Time_Expression_Access
48752                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
48753
48754         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
48755            --  NamedElement::namespace : Namespace
48756
48757            return
48758              AMF.Internals.Holders.UML_Holders.To_Holder
48759               (AMF.UML.Namespaces.UML_Namespace_Access'
48760                 (AMF.UML.Time_Expressions.UML_Time_Expression_Access
48761                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
48762
48763         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Time_Expression_Observation_A_Time_Expression then
48764            --  TimeExpression::observation : Observation
48765
48766            return
48767              AMF.UML.Observations.Collections.UML_Observation_Collections.Internals.To_Holder
48768               (AMF.UML.Time_Expressions.UML_Time_Expression_Access
48769                 (AMF.Internals.Helpers.To_Element (Self)).Get_Observation);
48770
48771         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
48772            --  Element::ownedComment : Comment
48773
48774            return
48775              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
48776               (AMF.UML.Time_Expressions.UML_Time_Expression_Access
48777                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
48778
48779         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
48780            --  Element::ownedElement : Element
48781
48782            return
48783              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
48784               (AMF.UML.Time_Expressions.UML_Time_Expression_Access
48785                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
48786
48787         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
48788            --  Element::owner : Element
48789
48790            return
48791              AMF.Internals.Holders.UML_Holders.To_Holder
48792               (AMF.UML.Elements.UML_Element_Access'
48793                 (AMF.UML.Time_Expressions.UML_Time_Expression_Access
48794                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
48795
48796         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
48797            --  ParameterableElement::owningTemplateParameter : TemplateParameter
48798
48799            return
48800              AMF.Internals.Holders.UML_Holders.To_Holder
48801               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
48802                 (AMF.UML.Time_Expressions.UML_Time_Expression_Access
48803                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
48804
48805         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
48806            --  NamedElement::qualifiedName : String
48807
48808            return
48809              AMF.Holders.To_Holder
48810               (AMF.UML.Time_Expressions.UML_Time_Expression_Access
48811                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
48812
48813         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
48814            --  ParameterableElement::templateParameter : TemplateParameter
48815
48816            return
48817              AMF.Internals.Holders.UML_Holders.To_Holder
48818               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
48819                 (AMF.UML.Time_Expressions.UML_Time_Expression_Access
48820                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
48821
48822         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
48823            --  TypedElement::type : Type
48824
48825            return
48826              AMF.Internals.Holders.UML_Holders.To_Holder
48827               (AMF.UML.Types.UML_Type_Access'
48828                 (AMF.UML.Time_Expressions.UML_Time_Expression_Access
48829                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
48830
48831         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
48832            --  NamedElement::visibility : VisibilityKind
48833
48834            return
48835              AMF.UML.Holders.To_Holder
48836               (AMF.UML.Time_Expressions.UML_Time_Expression_Access
48837                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
48838
48839         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
48840            --  PackageableElement::visibility : VisibilityKind
48841
48842            return
48843              AMF.UML.Holders.Visibility_Kinds.To_Holder
48844               (AMF.UML.Time_Expressions.UML_Time_Expression_Access
48845                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
48846
48847         else
48848            raise Program_Error;
48849         end if;
48850      end UML_Time_Expression_Get;
48851
48852      ---------------------------
48853      -- UML_Time_Interval_Get --
48854      ---------------------------
48855
48856      function UML_Time_Interval_Get return League.Holders.Holder is
48857      begin
48858         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
48859            --  NamedElement::clientDependency : Dependency
48860
48861            return
48862              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
48863               (AMF.UML.Time_Intervals.UML_Time_Interval_Access
48864                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
48865
48866         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interval_Max_A_Interval then
48867            --  Interval::max : ValueSpecification
48868
48869            return
48870              AMF.Internals.Holders.UML_Holders.To_Holder
48871               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
48872                 (AMF.UML.Time_Intervals.UML_Time_Interval_Access
48873                   (AMF.Internals.Helpers.To_Element (Self)).Get_Max));
48874
48875         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Time_Interval_Max_A_Time_Interval then
48876            --  TimeInterval::max : TimeExpression
48877
48878            return
48879              AMF.Internals.Holders.UML_Holders.To_Holder
48880               (AMF.UML.Time_Expressions.UML_Time_Expression_Access'
48881                 (AMF.UML.Time_Intervals.UML_Time_Interval_Access
48882                   (AMF.Internals.Helpers.To_Element (Self)).Get_Max));
48883
48884         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interval_Min_A_Interval then
48885            --  Interval::min : ValueSpecification
48886
48887            return
48888              AMF.Internals.Holders.UML_Holders.To_Holder
48889               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
48890                 (AMF.UML.Time_Intervals.UML_Time_Interval_Access
48891                   (AMF.Internals.Helpers.To_Element (Self)).Get_Min));
48892
48893         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Time_Interval_Min_A_Time_Interval then
48894            --  TimeInterval::min : TimeExpression
48895
48896            return
48897              AMF.Internals.Holders.UML_Holders.To_Holder
48898               (AMF.UML.Time_Expressions.UML_Time_Expression_Access'
48899                 (AMF.UML.Time_Intervals.UML_Time_Interval_Access
48900                   (AMF.Internals.Helpers.To_Element (Self)).Get_Min));
48901
48902         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
48903            --  NamedElement::name : String
48904
48905            return
48906              AMF.Holders.To_Holder
48907               (AMF.UML.Time_Intervals.UML_Time_Interval_Access
48908                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
48909
48910         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
48911            --  NamedElement::nameExpression : StringExpression
48912
48913            return
48914              AMF.Internals.Holders.UML_Holders.To_Holder
48915               (AMF.UML.String_Expressions.UML_String_Expression_Access'
48916                 (AMF.UML.Time_Intervals.UML_Time_Interval_Access
48917                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
48918
48919         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
48920            --  NamedElement::namespace : Namespace
48921
48922            return
48923              AMF.Internals.Holders.UML_Holders.To_Holder
48924               (AMF.UML.Namespaces.UML_Namespace_Access'
48925                 (AMF.UML.Time_Intervals.UML_Time_Interval_Access
48926                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
48927
48928         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
48929            --  Element::ownedComment : Comment
48930
48931            return
48932              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
48933               (AMF.UML.Time_Intervals.UML_Time_Interval_Access
48934                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
48935
48936         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
48937            --  Element::ownedElement : Element
48938
48939            return
48940              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
48941               (AMF.UML.Time_Intervals.UML_Time_Interval_Access
48942                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
48943
48944         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
48945            --  Element::owner : Element
48946
48947            return
48948              AMF.Internals.Holders.UML_Holders.To_Holder
48949               (AMF.UML.Elements.UML_Element_Access'
48950                 (AMF.UML.Time_Intervals.UML_Time_Interval_Access
48951                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
48952
48953         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
48954            --  ParameterableElement::owningTemplateParameter : TemplateParameter
48955
48956            return
48957              AMF.Internals.Holders.UML_Holders.To_Holder
48958               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
48959                 (AMF.UML.Time_Intervals.UML_Time_Interval_Access
48960                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
48961
48962         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
48963            --  NamedElement::qualifiedName : String
48964
48965            return
48966              AMF.Holders.To_Holder
48967               (AMF.UML.Time_Intervals.UML_Time_Interval_Access
48968                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
48969
48970         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
48971            --  ParameterableElement::templateParameter : TemplateParameter
48972
48973            return
48974              AMF.Internals.Holders.UML_Holders.To_Holder
48975               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
48976                 (AMF.UML.Time_Intervals.UML_Time_Interval_Access
48977                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
48978
48979         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
48980            --  TypedElement::type : Type
48981
48982            return
48983              AMF.Internals.Holders.UML_Holders.To_Holder
48984               (AMF.UML.Types.UML_Type_Access'
48985                 (AMF.UML.Time_Intervals.UML_Time_Interval_Access
48986                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
48987
48988         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
48989            --  NamedElement::visibility : VisibilityKind
48990
48991            return
48992              AMF.UML.Holders.To_Holder
48993               (AMF.UML.Time_Intervals.UML_Time_Interval_Access
48994                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
48995
48996         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
48997            --  PackageableElement::visibility : VisibilityKind
48998
48999            return
49000              AMF.UML.Holders.Visibility_Kinds.To_Holder
49001               (AMF.UML.Time_Intervals.UML_Time_Interval_Access
49002                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
49003
49004         else
49005            raise Program_Error;
49006         end if;
49007      end UML_Time_Interval_Get;
49008
49009      ------------------------------
49010      -- UML_Time_Observation_Get --
49011      ------------------------------
49012
49013      function UML_Time_Observation_Get return League.Holders.Holder is
49014      begin
49015         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
49016            --  NamedElement::clientDependency : Dependency
49017
49018            return
49019              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
49020               (AMF.UML.Time_Observations.UML_Time_Observation_Access
49021                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
49022
49023         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Time_Observation_Event_A_Time_Observation then
49024            --  TimeObservation::event : NamedElement
49025
49026            return
49027              AMF.Internals.Holders.UML_Holders.To_Holder
49028               (AMF.UML.Named_Elements.UML_Named_Element_Access'
49029                 (AMF.UML.Time_Observations.UML_Time_Observation_Access
49030                   (AMF.Internals.Helpers.To_Element (Self)).Get_Event));
49031
49032         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Time_Observation_First_Event then
49033            --  TimeObservation::firstEvent : Boolean
49034
49035            return
49036              League.Holders.Booleans.To_Holder
49037               (AMF.UML.Time_Observations.UML_Time_Observation_Access
49038                 (AMF.Internals.Helpers.To_Element (Self)).Get_First_Event);
49039
49040         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
49041            --  NamedElement::name : String
49042
49043            return
49044              AMF.Holders.To_Holder
49045               (AMF.UML.Time_Observations.UML_Time_Observation_Access
49046                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
49047
49048         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
49049            --  NamedElement::nameExpression : StringExpression
49050
49051            return
49052              AMF.Internals.Holders.UML_Holders.To_Holder
49053               (AMF.UML.String_Expressions.UML_String_Expression_Access'
49054                 (AMF.UML.Time_Observations.UML_Time_Observation_Access
49055                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
49056
49057         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
49058            --  NamedElement::namespace : Namespace
49059
49060            return
49061              AMF.Internals.Holders.UML_Holders.To_Holder
49062               (AMF.UML.Namespaces.UML_Namespace_Access'
49063                 (AMF.UML.Time_Observations.UML_Time_Observation_Access
49064                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
49065
49066         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
49067            --  Element::ownedComment : Comment
49068
49069            return
49070              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
49071               (AMF.UML.Time_Observations.UML_Time_Observation_Access
49072                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
49073
49074         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
49075            --  Element::ownedElement : Element
49076
49077            return
49078              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
49079               (AMF.UML.Time_Observations.UML_Time_Observation_Access
49080                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
49081
49082         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
49083            --  Element::owner : Element
49084
49085            return
49086              AMF.Internals.Holders.UML_Holders.To_Holder
49087               (AMF.UML.Elements.UML_Element_Access'
49088                 (AMF.UML.Time_Observations.UML_Time_Observation_Access
49089                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
49090
49091         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
49092            --  ParameterableElement::owningTemplateParameter : TemplateParameter
49093
49094            return
49095              AMF.Internals.Holders.UML_Holders.To_Holder
49096               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
49097                 (AMF.UML.Time_Observations.UML_Time_Observation_Access
49098                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
49099
49100         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
49101            --  NamedElement::qualifiedName : String
49102
49103            return
49104              AMF.Holders.To_Holder
49105               (AMF.UML.Time_Observations.UML_Time_Observation_Access
49106                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
49107
49108         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
49109            --  ParameterableElement::templateParameter : TemplateParameter
49110
49111            return
49112              AMF.Internals.Holders.UML_Holders.To_Holder
49113               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
49114                 (AMF.UML.Time_Observations.UML_Time_Observation_Access
49115                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
49116
49117         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
49118            --  NamedElement::visibility : VisibilityKind
49119
49120            return
49121              AMF.UML.Holders.To_Holder
49122               (AMF.UML.Time_Observations.UML_Time_Observation_Access
49123                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
49124
49125         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
49126            --  PackageableElement::visibility : VisibilityKind
49127
49128            return
49129              AMF.UML.Holders.Visibility_Kinds.To_Holder
49130               (AMF.UML.Time_Observations.UML_Time_Observation_Access
49131                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
49132
49133         else
49134            raise Program_Error;
49135         end if;
49136      end UML_Time_Observation_Get;
49137
49138      ------------------------
49139      -- UML_Transition_Get --
49140      ------------------------
49141
49142      function UML_Transition_Get return League.Holders.Holder is
49143      begin
49144         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
49145            --  NamedElement::clientDependency : Dependency
49146
49147            return
49148              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
49149               (AMF.UML.Transitions.UML_Transition_Access
49150                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
49151
49152         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Container_Region_Transition then
49153            --  Transition::container : Region
49154
49155            return
49156              AMF.Internals.Holders.UML_Holders.To_Holder
49157               (AMF.UML.Regions.UML_Region_Access'
49158                 (AMF.UML.Transitions.UML_Transition_Access
49159                   (AMF.Internals.Helpers.To_Element (Self)).Get_Container));
49160
49161         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Effect_A_Transition then
49162            --  Transition::effect : Behavior
49163
49164            return
49165              AMF.Internals.Holders.UML_Holders.To_Holder
49166               (AMF.UML.Behaviors.UML_Behavior_Access'
49167                 (AMF.UML.Transitions.UML_Transition_Access
49168                   (AMF.Internals.Helpers.To_Element (Self)).Get_Effect));
49169
49170         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
49171            --  Namespace::elementImport : ElementImport
49172
49173            return
49174              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
49175               (AMF.UML.Transitions.UML_Transition_Access
49176                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
49177
49178         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Guard_A_Transition then
49179            --  Transition::guard : Constraint
49180
49181            return
49182              AMF.Internals.Holders.UML_Holders.To_Holder
49183               (AMF.UML.Constraints.UML_Constraint_Access'
49184                 (AMF.UML.Transitions.UML_Transition_Access
49185                   (AMF.Internals.Helpers.To_Element (Self)).Get_Guard));
49186
49187         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
49188            --  Namespace::importedMember : PackageableElement
49189
49190            return
49191              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
49192               (AMF.UML.Transitions.UML_Transition_Access
49193                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
49194
49195         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
49196            --  RedefinableElement::isLeaf : Boolean
49197
49198            return
49199              League.Holders.Booleans.To_Holder
49200               (AMF.UML.Transitions.UML_Transition_Access
49201                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
49202
49203         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Kind then
49204            --  Transition::kind : TransitionKind
49205
49206            return
49207              AMF.UML.Holders.Transition_Kinds.To_Holder
49208               (AMF.UML.Transitions.UML_Transition_Access
49209                 (AMF.Internals.Helpers.To_Element (Self)).Get_Kind);
49210
49211         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
49212            --  Namespace::member : NamedElement
49213
49214            return
49215              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
49216               (AMF.UML.Transitions.UML_Transition_Access
49217                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
49218
49219         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
49220            --  NamedElement::name : String
49221
49222            return
49223              AMF.Holders.To_Holder
49224               (AMF.UML.Transitions.UML_Transition_Access
49225                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
49226
49227         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
49228            --  NamedElement::nameExpression : StringExpression
49229
49230            return
49231              AMF.Internals.Holders.UML_Holders.To_Holder
49232               (AMF.UML.String_Expressions.UML_String_Expression_Access'
49233                 (AMF.UML.Transitions.UML_Transition_Access
49234                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
49235
49236         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
49237            --  NamedElement::namespace : Namespace
49238
49239            return
49240              AMF.Internals.Holders.UML_Holders.To_Holder
49241               (AMF.UML.Namespaces.UML_Namespace_Access'
49242                 (AMF.UML.Transitions.UML_Transition_Access
49243                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
49244
49245         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
49246            --  Element::ownedComment : Comment
49247
49248            return
49249              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
49250               (AMF.UML.Transitions.UML_Transition_Access
49251                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
49252
49253         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
49254            --  Element::ownedElement : Element
49255
49256            return
49257              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
49258               (AMF.UML.Transitions.UML_Transition_Access
49259                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
49260
49261         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
49262            --  Namespace::ownedMember : NamedElement
49263
49264            return
49265              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
49266               (AMF.UML.Transitions.UML_Transition_Access
49267                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
49268
49269         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
49270            --  Namespace::ownedRule : Constraint
49271
49272            return
49273              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
49274               (AMF.UML.Transitions.UML_Transition_Access
49275                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
49276
49277         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
49278            --  Element::owner : Element
49279
49280            return
49281              AMF.Internals.Holders.UML_Holders.To_Holder
49282               (AMF.UML.Elements.UML_Element_Access'
49283                 (AMF.UML.Transitions.UML_Transition_Access
49284                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
49285
49286         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
49287            --  Namespace::packageImport : PackageImport
49288
49289            return
49290              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
49291               (AMF.UML.Transitions.UML_Transition_Access
49292                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
49293
49294         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
49295            --  NamedElement::qualifiedName : String
49296
49297            return
49298              AMF.Holders.To_Holder
49299               (AMF.UML.Transitions.UML_Transition_Access
49300                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
49301
49302         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
49303            --  RedefinableElement::redefinedElement : RedefinableElement
49304
49305            return
49306              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
49307               (AMF.UML.Transitions.UML_Transition_Access
49308                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
49309
49310         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Redefined_Transition_A_Transition then
49311            --  Transition::redefinedTransition : Transition
49312
49313            return
49314              AMF.Internals.Holders.UML_Holders.To_Holder
49315               (AMF.UML.Transitions.UML_Transition_Access'
49316                 (AMF.UML.Transitions.UML_Transition_Access
49317                   (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Transition));
49318
49319         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
49320            --  RedefinableElement::redefinitionContext : Classifier
49321
49322            return
49323              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
49324               (AMF.UML.Transitions.UML_Transition_Access
49325                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
49326
49327         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Redefinition_Context_A_Transition then
49328            --  Transition::redefinitionContext : Classifier
49329
49330            return
49331              AMF.Internals.Holders.UML_Holders.To_Holder
49332               (AMF.UML.Classifiers.UML_Classifier_Access'
49333                 (AMF.UML.Transitions.UML_Transition_Access
49334                   (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context));
49335
49336         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Source_Vertex_Outgoing then
49337            --  Transition::source : Vertex
49338
49339            return
49340              AMF.Internals.Holders.UML_Holders.To_Holder
49341               (AMF.UML.Vertexs.UML_Vertex_Access'
49342                 (AMF.UML.Transitions.UML_Transition_Access
49343                   (AMF.Internals.Helpers.To_Element (Self)).Get_Source));
49344
49345         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Target_Vertex_Incoming then
49346            --  Transition::target : Vertex
49347
49348            return
49349              AMF.Internals.Holders.UML_Holders.To_Holder
49350               (AMF.UML.Vertexs.UML_Vertex_Access'
49351                 (AMF.UML.Transitions.UML_Transition_Access
49352                   (AMF.Internals.Helpers.To_Element (Self)).Get_Target));
49353
49354         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Trigger_A_Transition then
49355            --  Transition::trigger : Trigger
49356
49357            return
49358              AMF.UML.Triggers.Collections.UML_Trigger_Collections.Internals.To_Holder
49359               (AMF.UML.Transitions.UML_Transition_Access
49360                 (AMF.Internals.Helpers.To_Element (Self)).Get_Trigger);
49361
49362         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
49363            --  NamedElement::visibility : VisibilityKind
49364
49365            return
49366              AMF.UML.Holders.To_Holder
49367               (AMF.UML.Transitions.UML_Transition_Access
49368                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
49369
49370         else
49371            raise Program_Error;
49372         end if;
49373      end UML_Transition_Get;
49374
49375      ---------------------
49376      -- UML_Trigger_Get --
49377      ---------------------
49378
49379      function UML_Trigger_Get return League.Holders.Holder is
49380      begin
49381         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
49382            --  NamedElement::clientDependency : Dependency
49383
49384            return
49385              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
49386               (AMF.UML.Triggers.UML_Trigger_Access
49387                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
49388
49389         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Trigger_Event_A_Trigger then
49390            --  Trigger::event : Event
49391
49392            return
49393              AMF.Internals.Holders.UML_Holders.To_Holder
49394               (AMF.UML.Events.UML_Event_Access'
49395                 (AMF.UML.Triggers.UML_Trigger_Access
49396                   (AMF.Internals.Helpers.To_Element (Self)).Get_Event));
49397
49398         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
49399            --  NamedElement::name : String
49400
49401            return
49402              AMF.Holders.To_Holder
49403               (AMF.UML.Triggers.UML_Trigger_Access
49404                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
49405
49406         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
49407            --  NamedElement::nameExpression : StringExpression
49408
49409            return
49410              AMF.Internals.Holders.UML_Holders.To_Holder
49411               (AMF.UML.String_Expressions.UML_String_Expression_Access'
49412                 (AMF.UML.Triggers.UML_Trigger_Access
49413                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
49414
49415         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
49416            --  NamedElement::namespace : Namespace
49417
49418            return
49419              AMF.Internals.Holders.UML_Holders.To_Holder
49420               (AMF.UML.Namespaces.UML_Namespace_Access'
49421                 (AMF.UML.Triggers.UML_Trigger_Access
49422                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
49423
49424         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
49425            --  Element::ownedComment : Comment
49426
49427            return
49428              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
49429               (AMF.UML.Triggers.UML_Trigger_Access
49430                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
49431
49432         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
49433            --  Element::ownedElement : Element
49434
49435            return
49436              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
49437               (AMF.UML.Triggers.UML_Trigger_Access
49438                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
49439
49440         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
49441            --  Element::owner : Element
49442
49443            return
49444              AMF.Internals.Holders.UML_Holders.To_Holder
49445               (AMF.UML.Elements.UML_Element_Access'
49446                 (AMF.UML.Triggers.UML_Trigger_Access
49447                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
49448
49449         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Trigger_Port_A_Trigger then
49450            --  Trigger::port : Port
49451
49452            return
49453              AMF.UML.Ports.Collections.UML_Port_Collections.Internals.To_Holder
49454               (AMF.UML.Triggers.UML_Trigger_Access
49455                 (AMF.Internals.Helpers.To_Element (Self)).Get_Port);
49456
49457         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
49458            --  NamedElement::qualifiedName : String
49459
49460            return
49461              AMF.Holders.To_Holder
49462               (AMF.UML.Triggers.UML_Trigger_Access
49463                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
49464
49465         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
49466            --  NamedElement::visibility : VisibilityKind
49467
49468            return
49469              AMF.UML.Holders.To_Holder
49470               (AMF.UML.Triggers.UML_Trigger_Access
49471                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
49472
49473         else
49474            raise Program_Error;
49475         end if;
49476      end UML_Trigger_Get;
49477
49478      -------------------------------
49479      -- UML_Unmarshall_Action_Get --
49480      -------------------------------
49481
49482      function UML_Unmarshall_Action_Get return League.Holders.Holder is
49483      begin
49484         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
49485            --  ActivityNode::activity : Activity
49486
49487            return
49488              AMF.Internals.Holders.UML_Holders.To_Holder
49489               (AMF.UML.Activities.UML_Activity_Access'
49490                 (AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
49491                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
49492
49493         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
49494            --  NamedElement::clientDependency : Dependency
49495
49496            return
49497              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
49498               (AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
49499                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
49500
49501         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
49502            --  Action::context : Classifier
49503
49504            return
49505              AMF.Internals.Holders.UML_Holders.To_Holder
49506               (AMF.UML.Classifiers.UML_Classifier_Access'
49507                 (AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
49508                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
49509
49510         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
49511            --  ExecutableNode::handler : ExceptionHandler
49512
49513            return
49514              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
49515               (AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
49516                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
49517
49518         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
49519            --  ActivityNode::inGroup : ActivityGroup
49520
49521            return
49522              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
49523               (AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
49524                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
49525
49526         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
49527            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
49528
49529            return
49530              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
49531               (AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
49532                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
49533
49534         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
49535            --  ActivityNode::inPartition : ActivityPartition
49536
49537            return
49538              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
49539               (AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
49540                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
49541
49542         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
49543            --  ActivityNode::inStructuredNode : StructuredActivityNode
49544
49545            return
49546              AMF.Internals.Holders.UML_Holders.To_Holder
49547               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
49548                 (AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
49549                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
49550
49551         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
49552            --  ActivityNode::incoming : ActivityEdge
49553
49554            return
49555              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
49556               (AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
49557                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
49558
49559         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
49560            --  Action::input : InputPin
49561
49562            return
49563              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
49564               (AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
49565                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
49566
49567         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
49568            --  RedefinableElement::isLeaf : Boolean
49569
49570            return
49571              League.Holders.Booleans.To_Holder
49572               (AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
49573                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
49574
49575         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
49576            --  Action::isLocallyReentrant : Boolean
49577
49578            return
49579              League.Holders.Booleans.To_Holder
49580               (AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
49581                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
49582
49583         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
49584            --  Action::localPostcondition : Constraint
49585
49586            return
49587              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
49588               (AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
49589                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
49590
49591         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
49592            --  Action::localPrecondition : Constraint
49593
49594            return
49595              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
49596               (AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
49597                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
49598
49599         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
49600            --  NamedElement::name : String
49601
49602            return
49603              AMF.Holders.To_Holder
49604               (AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
49605                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
49606
49607         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
49608            --  NamedElement::nameExpression : StringExpression
49609
49610            return
49611              AMF.Internals.Holders.UML_Holders.To_Holder
49612               (AMF.UML.String_Expressions.UML_String_Expression_Access'
49613                 (AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
49614                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
49615
49616         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
49617            --  NamedElement::namespace : Namespace
49618
49619            return
49620              AMF.Internals.Holders.UML_Holders.To_Holder
49621               (AMF.UML.Namespaces.UML_Namespace_Access'
49622                 (AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
49623                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
49624
49625         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Unmarshall_Action_Object_A_Unmarshall_Action then
49626            --  UnmarshallAction::object : InputPin
49627
49628            return
49629              AMF.Internals.Holders.UML_Holders.To_Holder
49630               (AMF.UML.Input_Pins.UML_Input_Pin_Access'
49631                 (AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
49632                   (AMF.Internals.Helpers.To_Element (Self)).Get_Object));
49633
49634         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
49635            --  ActivityNode::outgoing : ActivityEdge
49636
49637            return
49638              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
49639               (AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
49640                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
49641
49642         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
49643            --  Action::output : OutputPin
49644
49645            return
49646              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
49647               (AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
49648                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
49649
49650         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
49651            --  Element::ownedComment : Comment
49652
49653            return
49654              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
49655               (AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
49656                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
49657
49658         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
49659            --  Element::ownedElement : Element
49660
49661            return
49662              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
49663               (AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
49664                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
49665
49666         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
49667            --  Element::owner : Element
49668
49669            return
49670              AMF.Internals.Holders.UML_Holders.To_Holder
49671               (AMF.UML.Elements.UML_Element_Access'
49672                 (AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
49673                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
49674
49675         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
49676            --  NamedElement::qualifiedName : String
49677
49678            return
49679              AMF.Holders.To_Holder
49680               (AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
49681                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
49682
49683         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
49684            --  RedefinableElement::redefinedElement : RedefinableElement
49685
49686            return
49687              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
49688               (AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
49689                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
49690
49691         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
49692            --  ActivityNode::redefinedNode : ActivityNode
49693
49694            return
49695              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
49696               (AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
49697                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
49698
49699         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
49700            --  RedefinableElement::redefinitionContext : Classifier
49701
49702            return
49703              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
49704               (AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
49705                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
49706
49707         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Unmarshall_Action_Result_A_Unmarshall_Action then
49708            --  UnmarshallAction::result : OutputPin
49709
49710            return
49711              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
49712               (AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
49713                 (AMF.Internals.Helpers.To_Element (Self)).Get_Result);
49714
49715         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Unmarshall_Action_Unmarshall_Type_A_Unmarshall_Action then
49716            --  UnmarshallAction::unmarshallType : Classifier
49717
49718            return
49719              AMF.Internals.Holders.UML_Holders.To_Holder
49720               (AMF.UML.Classifiers.UML_Classifier_Access'
49721                 (AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
49722                   (AMF.Internals.Helpers.To_Element (Self)).Get_Unmarshall_Type));
49723
49724         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
49725            --  NamedElement::visibility : VisibilityKind
49726
49727            return
49728              AMF.UML.Holders.To_Holder
49729               (AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
49730                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
49731
49732         else
49733            raise Program_Error;
49734         end if;
49735      end UML_Unmarshall_Action_Get;
49736
49737      -------------------
49738      -- UML_Usage_Get --
49739      -------------------
49740
49741      function UML_Usage_Get return League.Holders.Holder is
49742      begin
49743         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Client_Named_Element_Client_Dependency then
49744            --  Dependency::client : NamedElement
49745
49746            return
49747              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
49748               (AMF.UML.Usages.UML_Usage_Access
49749                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client);
49750
49751         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
49752            --  NamedElement::clientDependency : Dependency
49753
49754            return
49755              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
49756               (AMF.UML.Usages.UML_Usage_Access
49757                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
49758
49759         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
49760            --  NamedElement::name : String
49761
49762            return
49763              AMF.Holders.To_Holder
49764               (AMF.UML.Usages.UML_Usage_Access
49765                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
49766
49767         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
49768            --  NamedElement::nameExpression : StringExpression
49769
49770            return
49771              AMF.Internals.Holders.UML_Holders.To_Holder
49772               (AMF.UML.String_Expressions.UML_String_Expression_Access'
49773                 (AMF.UML.Usages.UML_Usage_Access
49774                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
49775
49776         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
49777            --  NamedElement::namespace : Namespace
49778
49779            return
49780              AMF.Internals.Holders.UML_Holders.To_Holder
49781               (AMF.UML.Namespaces.UML_Namespace_Access'
49782                 (AMF.UML.Usages.UML_Usage_Access
49783                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
49784
49785         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
49786            --  Element::ownedComment : Comment
49787
49788            return
49789              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
49790               (AMF.UML.Usages.UML_Usage_Access
49791                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
49792
49793         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
49794            --  Element::ownedElement : Element
49795
49796            return
49797              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
49798               (AMF.UML.Usages.UML_Usage_Access
49799                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
49800
49801         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
49802            --  Element::owner : Element
49803
49804            return
49805              AMF.Internals.Holders.UML_Holders.To_Holder
49806               (AMF.UML.Elements.UML_Element_Access'
49807                 (AMF.UML.Usages.UML_Usage_Access
49808                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
49809
49810         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
49811            --  ParameterableElement::owningTemplateParameter : TemplateParameter
49812
49813            return
49814              AMF.Internals.Holders.UML_Holders.To_Holder
49815               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
49816                 (AMF.UML.Usages.UML_Usage_Access
49817                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
49818
49819         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
49820            --  NamedElement::qualifiedName : String
49821
49822            return
49823              AMF.Holders.To_Holder
49824               (AMF.UML.Usages.UML_Usage_Access
49825                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
49826
49827         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Relationship_Related_Element_A_Relationship then
49828            --  Relationship::relatedElement : Element
49829
49830            return
49831              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
49832               (AMF.UML.Usages.UML_Usage_Access
49833                 (AMF.Internals.Helpers.To_Element (Self)).Get_Related_Element);
49834
49835         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Source_A_Directed_Relationship then
49836            --  DirectedRelationship::source : Element
49837
49838            return
49839              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
49840               (AMF.UML.Usages.UML_Usage_Access
49841                 (AMF.Internals.Helpers.To_Element (Self)).Get_Source);
49842
49843         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Dependency_Supplier_A_Supplier_Dependency then
49844            --  Dependency::supplier : NamedElement
49845
49846            return
49847              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
49848               (AMF.UML.Usages.UML_Usage_Access
49849                 (AMF.Internals.Helpers.To_Element (Self)).Get_Supplier);
49850
49851         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Directed_Relationship_Target_A_Directed_Relationship then
49852            --  DirectedRelationship::target : Element
49853
49854            return
49855              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
49856               (AMF.UML.Usages.UML_Usage_Access
49857                 (AMF.Internals.Helpers.To_Element (Self)).Get_Target);
49858
49859         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
49860            --  ParameterableElement::templateParameter : TemplateParameter
49861
49862            return
49863              AMF.Internals.Holders.UML_Holders.To_Holder
49864               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
49865                 (AMF.UML.Usages.UML_Usage_Access
49866                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
49867
49868         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
49869            --  NamedElement::visibility : VisibilityKind
49870
49871            return
49872              AMF.UML.Holders.To_Holder
49873               (AMF.UML.Usages.UML_Usage_Access
49874                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
49875
49876         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
49877            --  PackageableElement::visibility : VisibilityKind
49878
49879            return
49880              AMF.UML.Holders.Visibility_Kinds.To_Holder
49881               (AMF.UML.Usages.UML_Usage_Access
49882                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
49883
49884         else
49885            raise Program_Error;
49886         end if;
49887      end UML_Usage_Get;
49888
49889      ----------------------
49890      -- UML_Use_Case_Get --
49891      ----------------------
49892
49893      function UML_Use_Case_Get return League.Holders.Holder is
49894      begin
49895         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Attribute_A_Classifier then
49896            --  Classifier::attribute : Property
49897
49898            return
49899              AMF.UML.Properties.Collections.UML_Property_Collections.Internals.To_Holder
49900               (AMF.UML.Use_Cases.UML_Use_Case_Access
49901                 (AMF.Internals.Helpers.To_Element (Self)).Get_Attribute);
49902
49903         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
49904            --  BehavioredClassifier::classifierBehavior : Behavior
49905
49906            return
49907              AMF.Internals.Holders.UML_Holders.To_Holder
49908               (AMF.UML.Behaviors.UML_Behavior_Access'
49909                 (AMF.UML.Use_Cases.UML_Use_Case_Access
49910                   (AMF.Internals.Helpers.To_Element (Self)).Get_Classifier_Behavior));
49911
49912         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
49913            --  NamedElement::clientDependency : Dependency
49914
49915            return
49916              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
49917               (AMF.UML.Use_Cases.UML_Use_Case_Access
49918                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
49919
49920         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Collaboration_Use_A_Classifier then
49921            --  Classifier::collaborationUse : CollaborationUse
49922
49923            return
49924              AMF.UML.Collaboration_Uses.Collections.UML_Collaboration_Use_Collections.Internals.To_Holder
49925               (AMF.UML.Use_Cases.UML_Use_Case_Access
49926                 (AMF.Internals.Helpers.To_Element (Self)).Get_Collaboration_Use);
49927
49928         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Element_Import_Element_Import_Importing_Namespace then
49929            --  Namespace::elementImport : ElementImport
49930
49931            return
49932              AMF.UML.Element_Imports.Collections.UML_Element_Import_Collections.Internals.To_Holder
49933               (AMF.UML.Use_Cases.UML_Use_Case_Access
49934                 (AMF.Internals.Helpers.To_Element (Self)).Get_Element_Import);
49935
49936         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Use_Case_Extend_Extend_Extension then
49937            --  UseCase::extend : Extend
49938
49939            return
49940              AMF.UML.Extends.Collections.UML_Extend_Collections.Internals.To_Holder
49941               (AMF.UML.Use_Cases.UML_Use_Case_Access
49942                 (AMF.Internals.Helpers.To_Element (Self)).Get_Extend);
49943
49944         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Use_Case_Extension_Point_Extension_Point_Use_Case then
49945            --  UseCase::extensionPoint : ExtensionPoint
49946
49947            return
49948              AMF.UML.Extension_Points.Collections.UML_Extension_Point_Collections.Internals.To_Holder
49949               (AMF.UML.Use_Cases.UML_Use_Case_Access
49950                 (AMF.Internals.Helpers.To_Element (Self)).Get_Extension_Point);
49951
49952         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Feature_Feature_Featuring_Classifier then
49953            --  Classifier::feature : Feature
49954
49955            return
49956              AMF.UML.Features.Collections.UML_Feature_Collections.Internals.To_Holder
49957               (AMF.UML.Use_Cases.UML_Use_Case_Access
49958                 (AMF.Internals.Helpers.To_Element (Self)).Get_Feature);
49959
49960         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_General_A_Classifier then
49961            --  Classifier::general : Classifier
49962
49963            return
49964              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
49965               (AMF.UML.Use_Cases.UML_Use_Case_Access
49966                 (AMF.Internals.Helpers.To_Element (Self)).Get_General);
49967
49968         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Generalization_Generalization_Specific then
49969            --  Classifier::generalization : Generalization
49970
49971            return
49972              AMF.UML.Generalizations.Collections.UML_Generalization_Collections.Internals.To_Holder
49973               (AMF.UML.Use_Cases.UML_Use_Case_Access
49974                 (AMF.Internals.Helpers.To_Element (Self)).Get_Generalization);
49975
49976         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Imported_Member_A_Namespace then
49977            --  Namespace::importedMember : PackageableElement
49978
49979            return
49980              AMF.UML.Packageable_Elements.Collections.UML_Packageable_Element_Collections.Internals.To_Holder
49981               (AMF.UML.Use_Cases.UML_Use_Case_Access
49982                 (AMF.Internals.Helpers.To_Element (Self)).Get_Imported_Member);
49983
49984         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Use_Case_Include_Include_Including_Case then
49985            --  UseCase::include : Include
49986
49987            return
49988              AMF.UML.Includes.Collections.UML_Include_Collections.Internals.To_Holder
49989               (AMF.UML.Use_Cases.UML_Use_Case_Access
49990                 (AMF.Internals.Helpers.To_Element (Self)).Get_Include);
49991
49992         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Inherited_Member_A_Classifier then
49993            --  Classifier::inheritedMember : NamedElement
49994
49995            return
49996              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
49997               (AMF.UML.Use_Cases.UML_Use_Case_Access
49998                 (AMF.Internals.Helpers.To_Element (Self)).Get_Inherited_Member);
49999
50000         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Interface_Realization_Interface_Realization_Implementing_Classifier then
50001            --  BehavioredClassifier::interfaceRealization : InterfaceRealization
50002
50003            return
50004              AMF.UML.Interface_Realizations.Collections.UML_Interface_Realization_Collections.Internals.To_Holder
50005               (AMF.UML.Use_Cases.UML_Use_Case_Access
50006                 (AMF.Internals.Helpers.To_Element (Self)).Get_Interface_Realization);
50007
50008         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
50009            --  Classifier::isAbstract : Boolean
50010
50011            return
50012              League.Holders.Booleans.To_Holder
50013               (AMF.UML.Use_Cases.UML_Use_Case_Access
50014                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Abstract);
50015
50016         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
50017            --  Classifier::isFinalSpecialization : Boolean
50018
50019            return
50020              League.Holders.Booleans.To_Holder
50021               (AMF.UML.Use_Cases.UML_Use_Case_Access
50022                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Final_Specialization);
50023
50024         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
50025            --  RedefinableElement::isLeaf : Boolean
50026
50027            return
50028              League.Holders.Booleans.To_Holder
50029               (AMF.UML.Use_Cases.UML_Use_Case_Access
50030                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
50031
50032         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Member_A_Member_Namespace then
50033            --  Namespace::member : NamedElement
50034
50035            return
50036              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
50037               (AMF.UML.Use_Cases.UML_Use_Case_Access
50038                 (AMF.Internals.Helpers.To_Element (Self)).Get_Member);
50039
50040         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
50041            --  NamedElement::name : String
50042
50043            return
50044              AMF.Holders.To_Holder
50045               (AMF.UML.Use_Cases.UML_Use_Case_Access
50046                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
50047
50048         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
50049            --  NamedElement::nameExpression : StringExpression
50050
50051            return
50052              AMF.Internals.Holders.UML_Holders.To_Holder
50053               (AMF.UML.String_Expressions.UML_String_Expression_Access'
50054                 (AMF.UML.Use_Cases.UML_Use_Case_Access
50055                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
50056
50057         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
50058            --  NamedElement::namespace : Namespace
50059
50060            return
50061              AMF.Internals.Holders.UML_Holders.To_Holder
50062               (AMF.UML.Namespaces.UML_Namespace_Access'
50063                 (AMF.UML.Use_Cases.UML_Use_Case_Access
50064                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
50065
50066         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Owned_Behavior_A_Behaviored_Classifier then
50067            --  BehavioredClassifier::ownedBehavior : Behavior
50068
50069            return
50070              AMF.UML.Behaviors.Collections.UML_Behavior_Collections.Internals.To_Holder
50071               (AMF.UML.Use_Cases.UML_Use_Case_Access
50072                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Behavior);
50073
50074         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
50075            --  Element::ownedComment : Comment
50076
50077            return
50078              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
50079               (AMF.UML.Use_Cases.UML_Use_Case_Access
50080                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
50081
50082         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
50083            --  Element::ownedElement : Element
50084
50085            return
50086              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
50087               (AMF.UML.Use_Cases.UML_Use_Case_Access
50088                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
50089
50090         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Member_Named_Element_Namespace then
50091            --  Namespace::ownedMember : NamedElement
50092
50093            return
50094              AMF.UML.Named_Elements.Collections.UML_Named_Element_Collections.Internals.To_Holder
50095               (AMF.UML.Use_Cases.UML_Use_Case_Access
50096                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Member);
50097
50098         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Owned_Rule_Constraint_Context then
50099            --  Namespace::ownedRule : Constraint
50100
50101            return
50102              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
50103               (AMF.UML.Use_Cases.UML_Use_Case_Access
50104                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Rule);
50105
50106         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
50107            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
50108
50109            return
50110              AMF.Internals.Holders.UML_Holders.To_Holder
50111               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access'
50112                 (AMF.UML.Use_Cases.UML_Use_Case_Access
50113                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
50114
50115         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
50116            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
50117
50118            return
50119              AMF.Internals.Holders.UML_Holders.To_Holder
50120               (AMF.UML.Template_Signatures.UML_Template_Signature_Access'
50121                 (AMF.UML.Use_Cases.UML_Use_Case_Access
50122                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Template_Signature));
50123
50124         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Use_Case_A_Classifier then
50125            --  Classifier::ownedUseCase : UseCase
50126
50127            return
50128              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
50129               (AMF.UML.Use_Cases.UML_Use_Case_Access
50130                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Use_Case);
50131
50132         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
50133            --  Element::owner : Element
50134
50135            return
50136              AMF.Internals.Holders.UML_Holders.To_Holder
50137               (AMF.UML.Elements.UML_Element_Access'
50138                 (AMF.UML.Use_Cases.UML_Use_Case_Access
50139                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
50140
50141         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
50142            --  ParameterableElement::owningTemplateParameter : TemplateParameter
50143
50144            return
50145              AMF.Internals.Holders.UML_Holders.To_Holder
50146               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
50147                 (AMF.UML.Use_Cases.UML_Use_Case_Access
50148                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
50149
50150         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
50151            --  Type::package : Package
50152
50153            return
50154              AMF.Internals.Holders.UML_Holders.To_Holder
50155               (AMF.UML.Packages.UML_Package_Access'
50156                 (AMF.UML.Use_Cases.UML_Use_Case_Access
50157                   (AMF.Internals.Helpers.To_Element (Self)).Get_Package));
50158
50159         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Namespace_Package_Import_Package_Import_Importing_Namespace then
50160            --  Namespace::packageImport : PackageImport
50161
50162            return
50163              AMF.UML.Package_Imports.Collections.UML_Package_Import_Collections.Internals.To_Holder
50164               (AMF.UML.Use_Cases.UML_Use_Case_Access
50165                 (AMF.Internals.Helpers.To_Element (Self)).Get_Package_Import);
50166
50167         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Powertype_Extent_Generalization_Set_Powertype then
50168            --  Classifier::powertypeExtent : GeneralizationSet
50169
50170            return
50171              AMF.UML.Generalization_Sets.Collections.UML_Generalization_Set_Collections.Internals.To_Holder
50172               (AMF.UML.Use_Cases.UML_Use_Case_Access
50173                 (AMF.Internals.Helpers.To_Element (Self)).Get_Powertype_Extent);
50174
50175         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
50176            --  NamedElement::qualifiedName : String
50177
50178            return
50179              AMF.Holders.To_Holder
50180               (AMF.UML.Use_Cases.UML_Use_Case_Access
50181                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
50182
50183         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Redefined_Classifier_A_Classifier then
50184            --  Classifier::redefinedClassifier : Classifier
50185
50186            return
50187              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
50188               (AMF.UML.Use_Cases.UML_Use_Case_Access
50189                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Classifier);
50190
50191         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
50192            --  RedefinableElement::redefinedElement : RedefinableElement
50193
50194            return
50195              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
50196               (AMF.UML.Use_Cases.UML_Use_Case_Access
50197                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
50198
50199         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
50200            --  RedefinableElement::redefinitionContext : Classifier
50201
50202            return
50203              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
50204               (AMF.UML.Use_Cases.UML_Use_Case_Access
50205                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
50206
50207         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
50208            --  Classifier::representation : CollaborationUse
50209
50210            return
50211              AMF.Internals.Holders.UML_Holders.To_Holder
50212               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access'
50213                 (AMF.UML.Use_Cases.UML_Use_Case_Access
50214                   (AMF.Internals.Helpers.To_Element (Self)).Get_Representation));
50215
50216         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Use_Case_Subject_Classifier_Use_Case then
50217            --  UseCase::subject : Classifier
50218
50219            return
50220              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
50221               (AMF.UML.Use_Cases.UML_Use_Case_Access
50222                 (AMF.Internals.Helpers.To_Element (Self)).Get_Subject);
50223
50224         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Substitution_Substitution_Substituting_Classifier then
50225            --  Classifier::substitution : Substitution
50226
50227            return
50228              AMF.UML.Substitutions.Collections.UML_Substitution_Collections.Internals.To_Holder
50229               (AMF.UML.Use_Cases.UML_Use_Case_Access
50230                 (AMF.Internals.Helpers.To_Element (Self)).Get_Substitution);
50231
50232         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Template_Binding_Template_Binding_Bound_Element then
50233            --  TemplateableElement::templateBinding : TemplateBinding
50234
50235            return
50236              AMF.UML.Template_Bindings.Collections.UML_Template_Binding_Collections.Internals.To_Holder
50237               (AMF.UML.Use_Cases.UML_Use_Case_Access
50238                 (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Binding);
50239
50240         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
50241            --  Classifier::templateParameter : ClassifierTemplateParameter
50242
50243            return
50244              AMF.Internals.Holders.UML_Holders.To_Holder
50245               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access'
50246                 (AMF.UML.Use_Cases.UML_Use_Case_Access
50247                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
50248
50249         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
50250            --  ParameterableElement::templateParameter : TemplateParameter
50251
50252            return
50253              AMF.Internals.Holders.UML_Holders.To_Holder
50254               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
50255                 (AMF.UML.Use_Cases.UML_Use_Case_Access
50256                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
50257
50258         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Use_Case_Use_Case_Subject then
50259            --  Classifier::useCase : UseCase
50260
50261            return
50262              AMF.UML.Use_Cases.Collections.UML_Use_Case_Collections.Internals.To_Holder
50263               (AMF.UML.Use_Cases.UML_Use_Case_Access
50264                 (AMF.Internals.Helpers.To_Element (Self)).Get_Use_Case);
50265
50266         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
50267            --  NamedElement::visibility : VisibilityKind
50268
50269            return
50270              AMF.UML.Holders.To_Holder
50271               (AMF.UML.Use_Cases.UML_Use_Case_Access
50272                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
50273
50274         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
50275            --  PackageableElement::visibility : VisibilityKind
50276
50277            return
50278              AMF.UML.Holders.Visibility_Kinds.To_Holder
50279               (AMF.UML.Use_Cases.UML_Use_Case_Access
50280                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
50281
50282         else
50283            raise Program_Error;
50284         end if;
50285      end UML_Use_Case_Get;
50286
50287      -----------------------
50288      -- UML_Value_Pin_Get --
50289      -----------------------
50290
50291      function UML_Value_Pin_Get return League.Holders.Holder is
50292      begin
50293         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
50294            --  ActivityNode::activity : Activity
50295
50296            return
50297              AMF.Internals.Holders.UML_Holders.To_Holder
50298               (AMF.UML.Activities.UML_Activity_Access'
50299                 (AMF.UML.Value_Pins.UML_Value_Pin_Access
50300                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
50301
50302         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
50303            --  NamedElement::clientDependency : Dependency
50304
50305            return
50306              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
50307               (AMF.UML.Value_Pins.UML_Value_Pin_Access
50308                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
50309
50310         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
50311            --  ActivityNode::inGroup : ActivityGroup
50312
50313            return
50314              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
50315               (AMF.UML.Value_Pins.UML_Value_Pin_Access
50316                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
50317
50318         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
50319            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
50320
50321            return
50322              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
50323               (AMF.UML.Value_Pins.UML_Value_Pin_Access
50324                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
50325
50326         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
50327            --  ActivityNode::inPartition : ActivityPartition
50328
50329            return
50330              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
50331               (AMF.UML.Value_Pins.UML_Value_Pin_Access
50332                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
50333
50334         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_In_State_A_Object_Node then
50335            --  ObjectNode::inState : State
50336
50337            return
50338              AMF.UML.States.Collections.UML_State_Collections.Internals.To_Holder
50339               (AMF.UML.Value_Pins.UML_Value_Pin_Access
50340                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_State);
50341
50342         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
50343            --  ActivityNode::inStructuredNode : StructuredActivityNode
50344
50345            return
50346              AMF.Internals.Holders.UML_Holders.To_Holder
50347               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
50348                 (AMF.UML.Value_Pins.UML_Value_Pin_Access
50349                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
50350
50351         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
50352            --  ActivityNode::incoming : ActivityEdge
50353
50354            return
50355              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
50356               (AMF.UML.Value_Pins.UML_Value_Pin_Access
50357                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
50358
50359         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Pin_Is_Control then
50360            --  Pin::isControl : Boolean
50361
50362            return
50363              League.Holders.Booleans.To_Holder
50364               (AMF.UML.Value_Pins.UML_Value_Pin_Access
50365                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Control);
50366
50367         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Is_Control_Type then
50368            --  ObjectNode::isControlType : Boolean
50369
50370            return
50371              League.Holders.Booleans.To_Holder
50372               (AMF.UML.Value_Pins.UML_Value_Pin_Access
50373                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Control_Type);
50374
50375         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
50376            --  RedefinableElement::isLeaf : Boolean
50377
50378            return
50379              League.Holders.Booleans.To_Holder
50380               (AMF.UML.Value_Pins.UML_Value_Pin_Access
50381                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
50382
50383         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Ordered then
50384            --  MultiplicityElement::isOrdered : Boolean
50385
50386            return
50387              League.Holders.Booleans.To_Holder
50388               (AMF.UML.Value_Pins.UML_Value_Pin_Access
50389                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Ordered);
50390
50391         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Unique then
50392            --  MultiplicityElement::isUnique : Boolean
50393
50394            return
50395              League.Holders.Booleans.To_Holder
50396               (AMF.UML.Value_Pins.UML_Value_Pin_Access
50397                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Unique);
50398
50399         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower then
50400            --  MultiplicityElement::lower : Integer
50401
50402            return
50403              AMF.Holders.To_Holder
50404               (AMF.UML.Value_Pins.UML_Value_Pin_Access
50405                 (AMF.Internals.Helpers.To_Element (Self)).Get_Lower);
50406
50407         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower_Value_A_Owning_Lower then
50408            --  MultiplicityElement::lowerValue : ValueSpecification
50409
50410            return
50411              AMF.Internals.Holders.UML_Holders.To_Holder
50412               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
50413                 (AMF.UML.Value_Pins.UML_Value_Pin_Access
50414                   (AMF.Internals.Helpers.To_Element (Self)).Get_Lower_Value));
50415
50416         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
50417            --  NamedElement::name : String
50418
50419            return
50420              AMF.Holders.To_Holder
50421               (AMF.UML.Value_Pins.UML_Value_Pin_Access
50422                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
50423
50424         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
50425            --  NamedElement::nameExpression : StringExpression
50426
50427            return
50428              AMF.Internals.Holders.UML_Holders.To_Holder
50429               (AMF.UML.String_Expressions.UML_String_Expression_Access'
50430                 (AMF.UML.Value_Pins.UML_Value_Pin_Access
50431                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
50432
50433         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
50434            --  NamedElement::namespace : Namespace
50435
50436            return
50437              AMF.Internals.Holders.UML_Holders.To_Holder
50438               (AMF.UML.Namespaces.UML_Namespace_Access'
50439                 (AMF.UML.Value_Pins.UML_Value_Pin_Access
50440                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
50441
50442         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Ordering then
50443            --  ObjectNode::ordering : ObjectNodeOrderingKind
50444
50445            return
50446              AMF.UML.Holders.Object_Node_Ordering_Kinds.To_Holder
50447               (AMF.UML.Value_Pins.UML_Value_Pin_Access
50448                 (AMF.Internals.Helpers.To_Element (Self)).Get_Ordering);
50449
50450         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
50451            --  ActivityNode::outgoing : ActivityEdge
50452
50453            return
50454              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
50455               (AMF.UML.Value_Pins.UML_Value_Pin_Access
50456                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
50457
50458         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
50459            --  Element::ownedComment : Comment
50460
50461            return
50462              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
50463               (AMF.UML.Value_Pins.UML_Value_Pin_Access
50464                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
50465
50466         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
50467            --  Element::ownedElement : Element
50468
50469            return
50470              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
50471               (AMF.UML.Value_Pins.UML_Value_Pin_Access
50472                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
50473
50474         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
50475            --  Element::owner : Element
50476
50477            return
50478              AMF.Internals.Holders.UML_Holders.To_Holder
50479               (AMF.UML.Elements.UML_Element_Access'
50480                 (AMF.UML.Value_Pins.UML_Value_Pin_Access
50481                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
50482
50483         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
50484            --  NamedElement::qualifiedName : String
50485
50486            return
50487              AMF.Holders.To_Holder
50488               (AMF.UML.Value_Pins.UML_Value_Pin_Access
50489                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
50490
50491         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
50492            --  RedefinableElement::redefinedElement : RedefinableElement
50493
50494            return
50495              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
50496               (AMF.UML.Value_Pins.UML_Value_Pin_Access
50497                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
50498
50499         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
50500            --  ActivityNode::redefinedNode : ActivityNode
50501
50502            return
50503              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
50504               (AMF.UML.Value_Pins.UML_Value_Pin_Access
50505                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
50506
50507         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
50508            --  RedefinableElement::redefinitionContext : Classifier
50509
50510            return
50511              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
50512               (AMF.UML.Value_Pins.UML_Value_Pin_Access
50513                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
50514
50515         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Selection_A_Object_Node then
50516            --  ObjectNode::selection : Behavior
50517
50518            return
50519              AMF.Internals.Holders.UML_Holders.To_Holder
50520               (AMF.UML.Behaviors.UML_Behavior_Access'
50521                 (AMF.UML.Value_Pins.UML_Value_Pin_Access
50522                   (AMF.Internals.Helpers.To_Element (Self)).Get_Selection));
50523
50524         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
50525            --  TypedElement::type : Type
50526
50527            return
50528              AMF.Internals.Holders.UML_Holders.To_Holder
50529               (AMF.UML.Types.UML_Type_Access'
50530                 (AMF.UML.Value_Pins.UML_Value_Pin_Access
50531                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
50532
50533         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper then
50534            --  MultiplicityElement::upper : UnlimitedNatural
50535
50536            return
50537              AMF.Holders.To_Holder
50538               (AMF.UML.Value_Pins.UML_Value_Pin_Access
50539                 (AMF.Internals.Helpers.To_Element (Self)).Get_Upper);
50540
50541         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Upper_Bound_A_Object_Node then
50542            --  ObjectNode::upperBound : ValueSpecification
50543
50544            return
50545              AMF.Internals.Holders.UML_Holders.To_Holder
50546               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
50547                 (AMF.UML.Value_Pins.UML_Value_Pin_Access
50548                   (AMF.Internals.Helpers.To_Element (Self)).Get_Upper_Bound));
50549
50550         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper_Value_A_Owning_Upper then
50551            --  MultiplicityElement::upperValue : ValueSpecification
50552
50553            return
50554              AMF.Internals.Holders.UML_Holders.To_Holder
50555               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
50556                 (AMF.UML.Value_Pins.UML_Value_Pin_Access
50557                   (AMF.Internals.Helpers.To_Element (Self)).Get_Upper_Value));
50558
50559         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Value_Pin_Value_A_Value_Pin then
50560            --  ValuePin::value : ValueSpecification
50561
50562            return
50563              AMF.Internals.Holders.UML_Holders.To_Holder
50564               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
50565                 (AMF.UML.Value_Pins.UML_Value_Pin_Access
50566                   (AMF.Internals.Helpers.To_Element (Self)).Get_Value));
50567
50568         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
50569            --  NamedElement::visibility : VisibilityKind
50570
50571            return
50572              AMF.UML.Holders.To_Holder
50573               (AMF.UML.Value_Pins.UML_Value_Pin_Access
50574                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
50575
50576         else
50577            raise Program_Error;
50578         end if;
50579      end UML_Value_Pin_Get;
50580
50581      ----------------------------------------
50582      -- UML_Value_Specification_Action_Get --
50583      ----------------------------------------
50584
50585      function UML_Value_Specification_Action_Get return League.Holders.Holder is
50586      begin
50587         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
50588            --  ActivityNode::activity : Activity
50589
50590            return
50591              AMF.Internals.Holders.UML_Holders.To_Holder
50592               (AMF.UML.Activities.UML_Activity_Access'
50593                 (AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
50594                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity));
50595
50596         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
50597            --  NamedElement::clientDependency : Dependency
50598
50599            return
50600              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
50601               (AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
50602                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
50603
50604         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Context_A_Action then
50605            --  Action::context : Classifier
50606
50607            return
50608              AMF.Internals.Holders.UML_Holders.To_Holder
50609               (AMF.UML.Classifiers.UML_Classifier_Access'
50610                 (AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
50611                   (AMF.Internals.Helpers.To_Element (Self)).Get_Context));
50612
50613         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Executable_Node_Handler_Exception_Handler_Protected_Node then
50614            --  ExecutableNode::handler : ExceptionHandler
50615
50616            return
50617              AMF.UML.Exception_Handlers.Collections.UML_Exception_Handler_Collections.Internals.To_Holder
50618               (AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
50619                 (AMF.Internals.Helpers.To_Element (Self)).Get_Handler);
50620
50621         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Group_Activity_Group_Contained_Node then
50622            --  ActivityNode::inGroup : ActivityGroup
50623
50624            return
50625              AMF.UML.Activity_Groups.Collections.UML_Activity_Group_Collections.Internals.To_Holder
50626               (AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
50627                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Group);
50628
50629         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Interruptible_Region_Interruptible_Activity_Region_Node then
50630            --  ActivityNode::inInterruptibleRegion : InterruptibleActivityRegion
50631
50632            return
50633              AMF.UML.Interruptible_Activity_Regions.Collections.UML_Interruptible_Activity_Region_Collections.Internals.To_Holder
50634               (AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
50635                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Interruptible_Region);
50636
50637         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Partition_Activity_Partition_Node then
50638            --  ActivityNode::inPartition : ActivityPartition
50639
50640            return
50641              AMF.UML.Activity_Partitions.Collections.UML_Activity_Partition_Collections.Internals.To_Holder
50642               (AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
50643                 (AMF.Internals.Helpers.To_Element (Self)).Get_In_Partition);
50644
50645         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
50646            --  ActivityNode::inStructuredNode : StructuredActivityNode
50647
50648            return
50649              AMF.Internals.Holders.UML_Holders.To_Holder
50650               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
50651                 (AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
50652                   (AMF.Internals.Helpers.To_Element (Self)).Get_In_Structured_Node));
50653
50654         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Incoming_Activity_Edge_Target then
50655            --  ActivityNode::incoming : ActivityEdge
50656
50657            return
50658              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
50659               (AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
50660                 (AMF.Internals.Helpers.To_Element (Self)).Get_Incoming);
50661
50662         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_A_Action then
50663            --  Action::input : InputPin
50664
50665            return
50666              AMF.UML.Input_Pins.Collections.UML_Input_Pin_Collections.Internals.To_Holder
50667               (AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
50668                 (AMF.Internals.Helpers.To_Element (Self)).Get_Input);
50669
50670         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
50671            --  RedefinableElement::isLeaf : Boolean
50672
50673            return
50674              League.Holders.Booleans.To_Holder
50675               (AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
50676                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Leaf);
50677
50678         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
50679            --  Action::isLocallyReentrant : Boolean
50680
50681            return
50682              League.Holders.Booleans.To_Holder
50683               (AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
50684                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Locally_Reentrant);
50685
50686         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Postcondition_A_Action then
50687            --  Action::localPostcondition : Constraint
50688
50689            return
50690              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
50691               (AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
50692                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Postcondition);
50693
50694         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Local_Precondition_A_Action then
50695            --  Action::localPrecondition : Constraint
50696
50697            return
50698              AMF.UML.Constraints.Collections.UML_Constraint_Collections.Internals.To_Holder
50699               (AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
50700                 (AMF.Internals.Helpers.To_Element (Self)).Get_Local_Precondition);
50701
50702         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
50703            --  NamedElement::name : String
50704
50705            return
50706              AMF.Holders.To_Holder
50707               (AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
50708                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
50709
50710         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
50711            --  NamedElement::nameExpression : StringExpression
50712
50713            return
50714              AMF.Internals.Holders.UML_Holders.To_Holder
50715               (AMF.UML.String_Expressions.UML_String_Expression_Access'
50716                 (AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
50717                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
50718
50719         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
50720            --  NamedElement::namespace : Namespace
50721
50722            return
50723              AMF.Internals.Holders.UML_Holders.To_Holder
50724               (AMF.UML.Namespaces.UML_Namespace_Access'
50725                 (AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
50726                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
50727
50728         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Outgoing_Activity_Edge_Source then
50729            --  ActivityNode::outgoing : ActivityEdge
50730
50731            return
50732              AMF.UML.Activity_Edges.Collections.UML_Activity_Edge_Collections.Internals.To_Holder
50733               (AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
50734                 (AMF.Internals.Helpers.To_Element (Self)).Get_Outgoing);
50735
50736         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Output_A_Action then
50737            --  Action::output : OutputPin
50738
50739            return
50740              AMF.UML.Output_Pins.Collections.UML_Output_Pin_Collections.Internals.To_Holder
50741               (AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
50742                 (AMF.Internals.Helpers.To_Element (Self)).Get_Output);
50743
50744         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
50745            --  Element::ownedComment : Comment
50746
50747            return
50748              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
50749               (AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
50750                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
50751
50752         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
50753            --  Element::ownedElement : Element
50754
50755            return
50756              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
50757               (AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
50758                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
50759
50760         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
50761            --  Element::owner : Element
50762
50763            return
50764              AMF.Internals.Holders.UML_Holders.To_Holder
50765               (AMF.UML.Elements.UML_Element_Access'
50766                 (AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
50767                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
50768
50769         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
50770            --  NamedElement::qualifiedName : String
50771
50772            return
50773              AMF.Holders.To_Holder
50774               (AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
50775                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
50776
50777         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefined_Element_A_Redefinable_Element then
50778            --  RedefinableElement::redefinedElement : RedefinableElement
50779
50780            return
50781              AMF.UML.Redefinable_Elements.Collections.UML_Redefinable_Element_Collections.Internals.To_Holder
50782               (AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
50783                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Element);
50784
50785         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Redefined_Node_A_Activity_Node then
50786            --  ActivityNode::redefinedNode : ActivityNode
50787
50788            return
50789              AMF.UML.Activity_Nodes.Collections.UML_Activity_Node_Collections.Internals.To_Holder
50790               (AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
50791                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefined_Node);
50792
50793         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Redefinition_Context_A_Redefinable_Element then
50794            --  RedefinableElement::redefinitionContext : Classifier
50795
50796            return
50797              AMF.UML.Classifiers.Collections.UML_Classifier_Collections.Internals.To_Holder
50798               (AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
50799                 (AMF.Internals.Helpers.To_Element (Self)).Get_Redefinition_Context);
50800
50801         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Value_Specification_Action_Result_A_Value_Specification_Action then
50802            --  ValueSpecificationAction::result : OutputPin
50803
50804            return
50805              AMF.Internals.Holders.UML_Holders.To_Holder
50806               (AMF.UML.Output_Pins.UML_Output_Pin_Access'
50807                 (AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
50808                   (AMF.Internals.Helpers.To_Element (Self)).Get_Result));
50809
50810         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Value_Specification_Action_Value_A_Value_Specification_Action then
50811            --  ValueSpecificationAction::value : ValueSpecification
50812
50813            return
50814              AMF.Internals.Holders.UML_Holders.To_Holder
50815               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
50816                 (AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
50817                   (AMF.Internals.Helpers.To_Element (Self)).Get_Value));
50818
50819         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
50820            --  NamedElement::visibility : VisibilityKind
50821
50822            return
50823              AMF.UML.Holders.To_Holder
50824               (AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
50825                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
50826
50827         else
50828            raise Program_Error;
50829         end if;
50830      end UML_Value_Specification_Action_Get;
50831
50832      ----------------------
50833      -- UML_Variable_Get --
50834      ----------------------
50835
50836      function UML_Variable_Get return League.Holders.Holder is
50837      begin
50838         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Variable_Activity_Scope_Activity_Variable then
50839            --  Variable::activityScope : Activity
50840
50841            return
50842              AMF.Internals.Holders.UML_Holders.To_Holder
50843               (AMF.UML.Activities.UML_Activity_Access'
50844                 (AMF.UML.Variables.UML_Variable_Access
50845                   (AMF.Internals.Helpers.To_Element (Self)).Get_Activity_Scope));
50846
50847         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Client_Dependency_Dependency_Client then
50848            --  NamedElement::clientDependency : Dependency
50849
50850            return
50851              AMF.UML.Dependencies.Collections.UML_Dependency_Collections.Internals.To_Holder
50852               (AMF.UML.Variables.UML_Variable_Access
50853                 (AMF.Internals.Helpers.To_Element (Self)).Get_Client_Dependency);
50854
50855         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connectable_Element_End_Connector_End_Role then
50856            --  ConnectableElement::end : ConnectorEnd
50857
50858            return
50859              AMF.UML.Connector_Ends.Collections.UML_Connector_End_Collections.Internals.To_Holder
50860               (AMF.UML.Variables.UML_Variable_Access
50861                 (AMF.Internals.Helpers.To_Element (Self)).Get_End);
50862
50863         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Ordered then
50864            --  MultiplicityElement::isOrdered : Boolean
50865
50866            return
50867              League.Holders.Booleans.To_Holder
50868               (AMF.UML.Variables.UML_Variable_Access
50869                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Ordered);
50870
50871         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Unique then
50872            --  MultiplicityElement::isUnique : Boolean
50873
50874            return
50875              League.Holders.Booleans.To_Holder
50876               (AMF.UML.Variables.UML_Variable_Access
50877                 (AMF.Internals.Helpers.To_Element (Self)).Get_Is_Unique);
50878
50879         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower then
50880            --  MultiplicityElement::lower : Integer
50881
50882            return
50883              AMF.Holders.To_Holder
50884               (AMF.UML.Variables.UML_Variable_Access
50885                 (AMF.Internals.Helpers.To_Element (Self)).Get_Lower);
50886
50887         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower_Value_A_Owning_Lower then
50888            --  MultiplicityElement::lowerValue : ValueSpecification
50889
50890            return
50891              AMF.Internals.Holders.UML_Holders.To_Holder
50892               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
50893                 (AMF.UML.Variables.UML_Variable_Access
50894                   (AMF.Internals.Helpers.To_Element (Self)).Get_Lower_Value));
50895
50896         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
50897            --  NamedElement::name : String
50898
50899            return
50900              AMF.Holders.To_Holder
50901               (AMF.UML.Variables.UML_Variable_Access
50902                 (AMF.Internals.Helpers.To_Element (Self)).Get_Name);
50903
50904         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
50905            --  NamedElement::nameExpression : StringExpression
50906
50907            return
50908              AMF.Internals.Holders.UML_Holders.To_Holder
50909               (AMF.UML.String_Expressions.UML_String_Expression_Access'
50910                 (AMF.UML.Variables.UML_Variable_Access
50911                   (AMF.Internals.Helpers.To_Element (Self)).Get_Name_Expression));
50912
50913         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Namespace_Namespace_Owned_Member then
50914            --  NamedElement::namespace : Namespace
50915
50916            return
50917              AMF.Internals.Holders.UML_Holders.To_Holder
50918               (AMF.UML.Namespaces.UML_Namespace_Access'
50919                 (AMF.UML.Variables.UML_Variable_Access
50920                   (AMF.Internals.Helpers.To_Element (Self)).Get_Namespace));
50921
50922         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Comment_A_Owning_Element then
50923            --  Element::ownedComment : Comment
50924
50925            return
50926              AMF.UML.Comments.Collections.UML_Comment_Collections.Internals.To_Holder
50927               (AMF.UML.Variables.UML_Variable_Access
50928                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Comment);
50929
50930         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owned_Element_Element_Owner then
50931            --  Element::ownedElement : Element
50932
50933            return
50934              AMF.UML.Elements.Collections.UML_Element_Collections.Internals.To_Holder
50935               (AMF.UML.Variables.UML_Variable_Access
50936                 (AMF.Internals.Helpers.To_Element (Self)).Get_Owned_Element);
50937
50938         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Owner_Element_Owned_Element then
50939            --  Element::owner : Element
50940
50941            return
50942              AMF.Internals.Holders.UML_Holders.To_Holder
50943               (AMF.UML.Elements.UML_Element_Access'
50944                 (AMF.UML.Variables.UML_Variable_Access
50945                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owner));
50946
50947         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
50948            --  ParameterableElement::owningTemplateParameter : TemplateParameter
50949
50950            return
50951              AMF.Internals.Holders.UML_Holders.To_Holder
50952               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
50953                 (AMF.UML.Variables.UML_Variable_Access
50954                   (AMF.Internals.Helpers.To_Element (Self)).Get_Owning_Template_Parameter));
50955
50956         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Qualified_Name then
50957            --  NamedElement::qualifiedName : String
50958
50959            return
50960              AMF.Holders.To_Holder
50961               (AMF.UML.Variables.UML_Variable_Access
50962                 (AMF.Internals.Helpers.To_Element (Self)).Get_Qualified_Name);
50963
50964         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Variable_Scope_Structured_Activity_Node_Variable then
50965            --  Variable::scope : StructuredActivityNode
50966
50967            return
50968              AMF.Internals.Holders.UML_Holders.To_Holder
50969               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access'
50970                 (AMF.UML.Variables.UML_Variable_Access
50971                   (AMF.Internals.Helpers.To_Element (Self)).Get_Scope));
50972
50973         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connectable_Element_Template_Parameter_Connectable_Element_Template_Parameter_Parametered_Element then
50974            --  ConnectableElement::templateParameter : ConnectableElementTemplateParameter
50975
50976            return
50977              AMF.Internals.Holders.UML_Holders.To_Holder
50978               (AMF.UML.Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Access'
50979                 (AMF.UML.Variables.UML_Variable_Access
50980                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
50981
50982         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
50983            --  ParameterableElement::templateParameter : TemplateParameter
50984
50985            return
50986              AMF.Internals.Holders.UML_Holders.To_Holder
50987               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access'
50988                 (AMF.UML.Variables.UML_Variable_Access
50989                   (AMF.Internals.Helpers.To_Element (Self)).Get_Template_Parameter));
50990
50991         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
50992            --  TypedElement::type : Type
50993
50994            return
50995              AMF.Internals.Holders.UML_Holders.To_Holder
50996               (AMF.UML.Types.UML_Type_Access'
50997                 (AMF.UML.Variables.UML_Variable_Access
50998                   (AMF.Internals.Helpers.To_Element (Self)).Get_Type));
50999
51000         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper then
51001            --  MultiplicityElement::upper : UnlimitedNatural
51002
51003            return
51004              AMF.Holders.To_Holder
51005               (AMF.UML.Variables.UML_Variable_Access
51006                 (AMF.Internals.Helpers.To_Element (Self)).Get_Upper);
51007
51008         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper_Value_A_Owning_Upper then
51009            --  MultiplicityElement::upperValue : ValueSpecification
51010
51011            return
51012              AMF.Internals.Holders.UML_Holders.To_Holder
51013               (AMF.UML.Value_Specifications.UML_Value_Specification_Access'
51014                 (AMF.UML.Variables.UML_Variable_Access
51015                   (AMF.Internals.Helpers.To_Element (Self)).Get_Upper_Value));
51016
51017         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
51018            --  NamedElement::visibility : VisibilityKind
51019
51020            return
51021              AMF.UML.Holders.To_Holder
51022               (AMF.UML.Variables.UML_Variable_Access
51023                 (AMF.Internals.Helpers.To_Element (Self)).Get_Visibility);
51024
51025         else
51026            raise Program_Error;
51027         end if;
51028      end UML_Variable_Get;
51029
51030   begin
51031      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
51032         when AMF.Internals.Tables.UML_Types.E_None =>
51033            raise Program_Error;
51034
51035         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Auxiliary =>
51036            return Standard_Profile_L2_Auxiliary_Get;
51037
51038         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Call =>
51039            return Standard_Profile_L2_Call_Get;
51040
51041         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Create =>
51042            return Standard_Profile_L2_Create_Get;
51043
51044         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Derive =>
51045            return Standard_Profile_L2_Derive_Get;
51046
51047         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Destroy =>
51048            return Standard_Profile_L2_Destroy_Get;
51049
51050         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Document =>
51051            return Standard_Profile_L2_Document_Get;
51052
51053         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Entity =>
51054            return Standard_Profile_L2_Entity_Get;
51055
51056         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Executable =>
51057            return Standard_Profile_L2_Executable_Get;
51058
51059         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Focus =>
51060            return Standard_Profile_L2_Focus_Get;
51061
51062         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Framework =>
51063            return Standard_Profile_L2_Framework_Get;
51064
51065         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Implement =>
51066            return Standard_Profile_L2_Implement_Get;
51067
51068         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Implementation_Class =>
51069            return Standard_Profile_L2_Implementation_Class_Get;
51070
51071         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Instantiate =>
51072            return Standard_Profile_L2_Instantiate_Get;
51073
51074         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Library =>
51075            return Standard_Profile_L2_Library_Get;
51076
51077         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Metaclass =>
51078            return Standard_Profile_L2_Metaclass_Get;
51079
51080         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Model_Library =>
51081            return Standard_Profile_L2_Model_Library_Get;
51082
51083         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Process =>
51084            return Standard_Profile_L2_Process_Get;
51085
51086         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Realization =>
51087            return Standard_Profile_L2_Realization_Get;
51088
51089         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Refine =>
51090            return Standard_Profile_L2_Refine_Get;
51091
51092         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Responsibility =>
51093            return Standard_Profile_L2_Responsibility_Get;
51094
51095         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Script =>
51096            return Standard_Profile_L2_Script_Get;
51097
51098         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Send =>
51099            return Standard_Profile_L2_Send_Get;
51100
51101         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Service =>
51102            return Standard_Profile_L2_Service_Get;
51103
51104         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Source =>
51105            return Standard_Profile_L2_Source_Get;
51106
51107         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Specification =>
51108            return Standard_Profile_L2_Specification_Get;
51109
51110         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Subsystem =>
51111            return Standard_Profile_L2_Subsystem_Get;
51112
51113         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Trace =>
51114            return Standard_Profile_L2_Trace_Get;
51115
51116         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Type =>
51117            return Standard_Profile_L2_Type_Get;
51118
51119         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Utility =>
51120            return Standard_Profile_L2_Utility_Get;
51121
51122         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L3_Build_Component =>
51123            return Standard_Profile_L3_Build_Component_Get;
51124
51125         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L3_Metamodel =>
51126            return Standard_Profile_L3_Metamodel_Get;
51127
51128         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L3_System_Model =>
51129            return Standard_Profile_L3_System_Model_Get;
51130
51131         when AMF.Internals.Tables.UML_Types.E_UML_Abstraction =>
51132            return UML_Abstraction_Get;
51133
51134         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
51135            return UML_Accept_Call_Action_Get;
51136
51137         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action =>
51138            return UML_Accept_Event_Action_Get;
51139
51140         when AMF.Internals.Tables.UML_Types.E_UML_Action_Execution_Specification =>
51141            return UML_Action_Execution_Specification_Get;
51142
51143         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
51144            return UML_Action_Input_Pin_Get;
51145
51146         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
51147            return UML_Activity_Get;
51148
51149         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Final_Node =>
51150            return UML_Activity_Final_Node_Get;
51151
51152         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
51153            return UML_Activity_Parameter_Node_Get;
51154
51155         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Partition =>
51156            return UML_Activity_Partition_Get;
51157
51158         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
51159            return UML_Actor_Get;
51160
51161         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
51162            return UML_Add_Structural_Feature_Value_Action_Get;
51163
51164         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
51165            return UML_Add_Variable_Value_Action_Get;
51166
51167         when AMF.Internals.Tables.UML_Types.E_UML_Any_Receive_Event =>
51168            return UML_Any_Receive_Event_Get;
51169
51170         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
51171            return UML_Artifact_Get;
51172
51173         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
51174            return UML_Association_Get;
51175
51176         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
51177            return UML_Association_Class_Get;
51178
51179         when AMF.Internals.Tables.UML_Types.E_UML_Behavior_Execution_Specification =>
51180            return UML_Behavior_Execution_Specification_Get;
51181
51182         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
51183            return UML_Broadcast_Signal_Action_Get;
51184
51185         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
51186            return UML_Call_Behavior_Action_Get;
51187
51188         when AMF.Internals.Tables.UML_Types.E_UML_Call_Event =>
51189            return UML_Call_Event_Get;
51190
51191         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
51192            return UML_Call_Operation_Action_Get;
51193
51194         when AMF.Internals.Tables.UML_Types.E_UML_Central_Buffer_Node =>
51195            return UML_Central_Buffer_Node_Get;
51196
51197         when AMF.Internals.Tables.UML_Types.E_UML_Change_Event =>
51198            return UML_Change_Event_Get;
51199
51200         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
51201            return UML_Class_Get;
51202
51203         when AMF.Internals.Tables.UML_Types.E_UML_Classifier_Template_Parameter =>
51204            return UML_Classifier_Template_Parameter_Get;
51205
51206         when AMF.Internals.Tables.UML_Types.E_UML_Clause =>
51207            return UML_Clause_Get;
51208
51209         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
51210            return UML_Clear_Association_Action_Get;
51211
51212         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
51213            return UML_Clear_Structural_Feature_Action_Get;
51214
51215         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action =>
51216            return UML_Clear_Variable_Action_Get;
51217
51218         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
51219            return UML_Collaboration_Get;
51220
51221         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration_Use =>
51222            return UML_Collaboration_Use_Get;
51223
51224         when AMF.Internals.Tables.UML_Types.E_UML_Combined_Fragment =>
51225            return UML_Combined_Fragment_Get;
51226
51227         when AMF.Internals.Tables.UML_Types.E_UML_Comment =>
51228            return UML_Comment_Get;
51229
51230         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
51231            return UML_Communication_Path_Get;
51232
51233         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
51234            return UML_Component_Get;
51235
51236         when AMF.Internals.Tables.UML_Types.E_UML_Component_Realization =>
51237            return UML_Component_Realization_Get;
51238
51239         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
51240            return UML_Conditional_Node_Get;
51241
51242         when AMF.Internals.Tables.UML_Types.E_UML_Connectable_Element_Template_Parameter =>
51243            return UML_Connectable_Element_Template_Parameter_Get;
51244
51245         when AMF.Internals.Tables.UML_Types.E_UML_Connection_Point_Reference =>
51246            return UML_Connection_Point_Reference_Get;
51247
51248         when AMF.Internals.Tables.UML_Types.E_UML_Connector =>
51249            return UML_Connector_Get;
51250
51251         when AMF.Internals.Tables.UML_Types.E_UML_Connector_End =>
51252            return UML_Connector_End_Get;
51253
51254         when AMF.Internals.Tables.UML_Types.E_UML_Consider_Ignore_Fragment =>
51255            return UML_Consider_Ignore_Fragment_Get;
51256
51257         when AMF.Internals.Tables.UML_Types.E_UML_Constraint =>
51258            return UML_Constraint_Get;
51259
51260         when AMF.Internals.Tables.UML_Types.E_UML_Continuation =>
51261            return UML_Continuation_Get;
51262
51263         when AMF.Internals.Tables.UML_Types.E_UML_Control_Flow =>
51264            return UML_Control_Flow_Get;
51265
51266         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action =>
51267            return UML_Create_Link_Action_Get;
51268
51269         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
51270            return UML_Create_Link_Object_Action_Get;
51271
51272         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
51273            return UML_Create_Object_Action_Get;
51274
51275         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Activity_Diagram =>
51276            return UMLDI_UML_Activity_Diagram_Get;
51277
51278         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Association_End_Label =>
51279            return UMLDI_UML_Association_End_Label_Get;
51280
51281         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Association_Or_Connector_Or_Link_Shape =>
51282            return UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Get;
51283
51284         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Class_Diagram =>
51285            return UMLDI_UML_Class_Diagram_Get;
51286
51287         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Classifier_Shape =>
51288            return UMLDI_UML_Classifier_Shape_Get;
51289
51290         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Compartment =>
51291            return UMLDI_UML_Compartment_Get;
51292
51293         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Compartmentable_Shape =>
51294            return UMLDI_UML_Compartmentable_Shape_Get;
51295
51296         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Component_Diagram =>
51297            return UMLDI_UML_Component_Diagram_Get;
51298
51299         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Composite_Structure_Diagram =>
51300            return UMLDI_UML_Composite_Structure_Diagram_Get;
51301
51302         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Deployment_Diagram =>
51303            return UMLDI_UML_Deployment_Diagram_Get;
51304
51305         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Edge =>
51306            return UMLDI_UML_Edge_Get;
51307
51308         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Diagram =>
51309            return UMLDI_UML_Interaction_Diagram_Get;
51310
51311         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Table_Label =>
51312            return UMLDI_UML_Interaction_Table_Label_Get;
51313
51314         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Keyword_Label =>
51315            return UMLDI_UML_Keyword_Label_Get;
51316
51317         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Label =>
51318            return UMLDI_UML_Label_Get;
51319
51320         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Multiplicity_Label =>
51321            return UMLDI_UML_Multiplicity_Label_Get;
51322
51323         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Name_Label =>
51324            return UMLDI_UML_Name_Label_Get;
51325
51326         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Object_Diagram =>
51327            return UMLDI_UML_Object_Diagram_Get;
51328
51329         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Package_Diagram =>
51330            return UMLDI_UML_Package_Diagram_Get;
51331
51332         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Profile_Diagram =>
51333            return UMLDI_UML_Profile_Diagram_Get;
51334
51335         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Redefines_Label =>
51336            return UMLDI_UML_Redefines_Label_Get;
51337
51338         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Shape =>
51339            return UMLDI_UML_Shape_Get;
51340
51341         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Machine_Diagram =>
51342            return UMLDI_UML_State_Machine_Diagram_Get;
51343
51344         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Shape =>
51345            return UMLDI_UML_State_Shape_Get;
51346
51347         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Stereotype_Property_Value_Label =>
51348            return UMLDI_UML_Stereotype_Property_Value_Label_Get;
51349
51350         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Style =>
51351            return UMLDI_UML_Style_Get;
51352
51353         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Typed_Element_Label =>
51354            return UMLDI_UML_Typed_Element_Label_Get;
51355
51356         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Use_Case_Diagram =>
51357            return UMLDI_UML_Use_Case_Diagram_Get;
51358
51359         when AMF.Internals.Tables.UML_Types.E_UML_Data_Store_Node =>
51360            return UML_Data_Store_Node_Get;
51361
51362         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
51363            return UML_Data_Type_Get;
51364
51365         when AMF.Internals.Tables.UML_Types.E_UML_Decision_Node =>
51366            return UML_Decision_Node_Get;
51367
51368         when AMF.Internals.Tables.UML_Types.E_UML_Dependency =>
51369            return UML_Dependency_Get;
51370
51371         when AMF.Internals.Tables.UML_Types.E_UML_Deployment =>
51372            return UML_Deployment_Get;
51373
51374         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
51375            return UML_Deployment_Specification_Get;
51376
51377         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action =>
51378            return UML_Destroy_Link_Action_Get;
51379
51380         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action =>
51381            return UML_Destroy_Object_Action_Get;
51382
51383         when AMF.Internals.Tables.UML_Types.E_UML_Destruction_Occurrence_Specification =>
51384            return UML_Destruction_Occurrence_Specification_Get;
51385
51386         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
51387            return UML_Device_Get;
51388
51389         when AMF.Internals.Tables.UML_Types.E_UML_Duration =>
51390            return UML_Duration_Get;
51391
51392         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Constraint =>
51393            return UML_Duration_Constraint_Get;
51394
51395         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Interval =>
51396            return UML_Duration_Interval_Get;
51397
51398         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Observation =>
51399            return UML_Duration_Observation_Get;
51400
51401         when AMF.Internals.Tables.UML_Types.E_UML_Element_Import =>
51402            return UML_Element_Import_Get;
51403
51404         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
51405            return UML_Enumeration_Get;
51406
51407         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration_Literal =>
51408            return UML_Enumeration_Literal_Get;
51409
51410         when AMF.Internals.Tables.UML_Types.E_UML_Exception_Handler =>
51411            return UML_Exception_Handler_Get;
51412
51413         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
51414            return UML_Execution_Environment_Get;
51415
51416         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Occurrence_Specification =>
51417            return UML_Execution_Occurrence_Specification_Get;
51418
51419         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
51420            return UML_Expansion_Node_Get;
51421
51422         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
51423            return UML_Expansion_Region_Get;
51424
51425         when AMF.Internals.Tables.UML_Types.E_UML_Expression =>
51426            return UML_Expression_Get;
51427
51428         when AMF.Internals.Tables.UML_Types.E_UML_Extend =>
51429            return UML_Extend_Get;
51430
51431         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
51432            return UML_Extension_Get;
51433
51434         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
51435            return UML_Extension_End_Get;
51436
51437         when AMF.Internals.Tables.UML_Types.E_UML_Extension_Point =>
51438            return UML_Extension_Point_Get;
51439
51440         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
51441            return UML_Final_State_Get;
51442
51443         when AMF.Internals.Tables.UML_Types.E_UML_Flow_Final_Node =>
51444            return UML_Flow_Final_Node_Get;
51445
51446         when AMF.Internals.Tables.UML_Types.E_UML_Fork_Node =>
51447            return UML_Fork_Node_Get;
51448
51449         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
51450            return UML_Function_Behavior_Get;
51451
51452         when AMF.Internals.Tables.UML_Types.E_UML_Gate =>
51453            return UML_Gate_Get;
51454
51455         when AMF.Internals.Tables.UML_Types.E_UML_General_Ordering =>
51456            return UML_General_Ordering_Get;
51457
51458         when AMF.Internals.Tables.UML_Types.E_UML_Generalization =>
51459            return UML_Generalization_Get;
51460
51461         when AMF.Internals.Tables.UML_Types.E_UML_Generalization_Set =>
51462            return UML_Generalization_Set_Get;
51463
51464         when AMF.Internals.Tables.UML_Types.E_UML_Image =>
51465            return UML_Image_Get;
51466
51467         when AMF.Internals.Tables.UML_Types.E_UML_Include =>
51468            return UML_Include_Get;
51469
51470         when AMF.Internals.Tables.UML_Types.E_UML_Information_Flow =>
51471            return UML_Information_Flow_Get;
51472
51473         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
51474            return UML_Information_Item_Get;
51475
51476         when AMF.Internals.Tables.UML_Types.E_UML_Initial_Node =>
51477            return UML_Initial_Node_Get;
51478
51479         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
51480            return UML_Input_Pin_Get;
51481
51482         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Specification =>
51483            return UML_Instance_Specification_Get;
51484
51485         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Value =>
51486            return UML_Instance_Value_Get;
51487
51488         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
51489            return UML_Interaction_Get;
51490
51491         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Constraint =>
51492            return UML_Interaction_Constraint_Get;
51493
51494         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Operand =>
51495            return UML_Interaction_Operand_Get;
51496
51497         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Use =>
51498            return UML_Interaction_Use_Get;
51499
51500         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
51501            return UML_Interface_Get;
51502
51503         when AMF.Internals.Tables.UML_Types.E_UML_Interface_Realization =>
51504            return UML_Interface_Realization_Get;
51505
51506         when AMF.Internals.Tables.UML_Types.E_UML_Interruptible_Activity_Region =>
51507            return UML_Interruptible_Activity_Region_Get;
51508
51509         when AMF.Internals.Tables.UML_Types.E_UML_Interval =>
51510            return UML_Interval_Get;
51511
51512         when AMF.Internals.Tables.UML_Types.E_UML_Interval_Constraint =>
51513            return UML_Interval_Constraint_Get;
51514
51515         when AMF.Internals.Tables.UML_Types.E_UML_Join_Node =>
51516            return UML_Join_Node_Get;
51517
51518         when AMF.Internals.Tables.UML_Types.E_UML_Lifeline =>
51519            return UML_Lifeline_Get;
51520
51521         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Creation_Data =>
51522            return UML_Link_End_Creation_Data_Get;
51523
51524         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Data =>
51525            return UML_Link_End_Data_Get;
51526
51527         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Destruction_Data =>
51528            return UML_Link_End_Destruction_Data_Get;
51529
51530         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Boolean =>
51531            return UML_Literal_Boolean_Get;
51532
51533         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Integer =>
51534            return UML_Literal_Integer_Get;
51535
51536         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Null =>
51537            return UML_Literal_Null_Get;
51538
51539         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Real =>
51540            return UML_Literal_Real_Get;
51541
51542         when AMF.Internals.Tables.UML_Types.E_UML_Literal_String =>
51543            return UML_Literal_String_Get;
51544
51545         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Unlimited_Natural =>
51546            return UML_Literal_Unlimited_Natural_Get;
51547
51548         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
51549            return UML_Loop_Node_Get;
51550
51551         when AMF.Internals.Tables.UML_Types.E_UML_Manifestation =>
51552            return UML_Manifestation_Get;
51553
51554         when AMF.Internals.Tables.UML_Types.E_UML_Merge_Node =>
51555            return UML_Merge_Node_Get;
51556
51557         when AMF.Internals.Tables.UML_Types.E_UML_Message =>
51558            return UML_Message_Get;
51559
51560         when AMF.Internals.Tables.UML_Types.E_UML_Message_Occurrence_Specification =>
51561            return UML_Message_Occurrence_Specification_Get;
51562
51563         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
51564            return UML_Model_Get;
51565
51566         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
51567            return UML_Node_Get;
51568
51569         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
51570            return UML_Object_Flow_Get;
51571
51572         when AMF.Internals.Tables.UML_Types.E_UML_Occurrence_Specification =>
51573            return UML_Occurrence_Specification_Get;
51574
51575         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action =>
51576            return UML_Opaque_Action_Get;
51577
51578         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
51579            return UML_Opaque_Behavior_Get;
51580
51581         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Expression =>
51582            return UML_Opaque_Expression_Get;
51583
51584         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
51585            return UML_Operation_Get;
51586
51587         when AMF.Internals.Tables.UML_Types.E_UML_Operation_Template_Parameter =>
51588            return UML_Operation_Template_Parameter_Get;
51589
51590         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
51591            return UML_Output_Pin_Get;
51592
51593         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
51594            return UML_Package_Get;
51595
51596         when AMF.Internals.Tables.UML_Types.E_UML_Package_Import =>
51597            return UML_Package_Import_Get;
51598
51599         when AMF.Internals.Tables.UML_Types.E_UML_Package_Merge =>
51600            return UML_Package_Merge_Get;
51601
51602         when AMF.Internals.Tables.UML_Types.E_UML_Parameter =>
51603            return UML_Parameter_Get;
51604
51605         when AMF.Internals.Tables.UML_Types.E_UML_Parameter_Set =>
51606            return UML_Parameter_Set_Get;
51607
51608         when AMF.Internals.Tables.UML_Types.E_UML_Part_Decomposition =>
51609            return UML_Part_Decomposition_Get;
51610
51611         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
51612            return UML_Port_Get;
51613
51614         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
51615            return UML_Primitive_Type_Get;
51616
51617         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
51618            return UML_Profile_Get;
51619
51620         when AMF.Internals.Tables.UML_Types.E_UML_Profile_Application =>
51621            return UML_Profile_Application_Get;
51622
51623         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
51624            return UML_Property_Get;
51625
51626         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Conformance =>
51627            return UML_Protocol_Conformance_Get;
51628
51629         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
51630            return UML_Protocol_State_Machine_Get;
51631
51632         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
51633            return UML_Protocol_Transition_Get;
51634
51635         when AMF.Internals.Tables.UML_Types.E_UML_Pseudostate =>
51636            return UML_Pseudostate_Get;
51637
51638         when AMF.Internals.Tables.UML_Types.E_UML_Qualifier_Value =>
51639            return UML_Qualifier_Value_Get;
51640
51641         when AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action =>
51642            return UML_Raise_Exception_Action_Get;
51643
51644         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
51645            return UML_Read_Extent_Action_Get;
51646
51647         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
51648            return UML_Read_Is_Classified_Object_Action_Get;
51649
51650         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
51651            return UML_Read_Link_Action_Get;
51652
51653         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
51654            return UML_Read_Link_Object_End_Action_Get;
51655
51656         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
51657            return UML_Read_Link_Object_End_Qualifier_Action_Get;
51658
51659         when AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action =>
51660            return UML_Read_Self_Action_Get;
51661
51662         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
51663            return UML_Read_Structural_Feature_Action_Get;
51664
51665         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
51666            return UML_Read_Variable_Action_Get;
51667
51668         when AMF.Internals.Tables.UML_Types.E_UML_Realization =>
51669            return UML_Realization_Get;
51670
51671         when AMF.Internals.Tables.UML_Types.E_UML_Reception =>
51672            return UML_Reception_Get;
51673
51674         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
51675            return UML_Reclassify_Object_Action_Get;
51676
51677         when AMF.Internals.Tables.UML_Types.E_UML_Redefinable_Template_Signature =>
51678            return UML_Redefinable_Template_Signature_Get;
51679
51680         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
51681            return UML_Reduce_Action_Get;
51682
51683         when AMF.Internals.Tables.UML_Types.E_UML_Region =>
51684            return UML_Region_Get;
51685
51686         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
51687            return UML_Remove_Structural_Feature_Value_Action_Get;
51688
51689         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
51690            return UML_Remove_Variable_Value_Action_Get;
51691
51692         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
51693            return UML_Reply_Action_Get;
51694
51695         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
51696            return UML_Send_Object_Action_Get;
51697
51698         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
51699            return UML_Send_Signal_Action_Get;
51700
51701         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
51702            return UML_Sequence_Node_Get;
51703
51704         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
51705            return UML_Signal_Get;
51706
51707         when AMF.Internals.Tables.UML_Types.E_UML_Signal_Event =>
51708            return UML_Signal_Event_Get;
51709
51710         when AMF.Internals.Tables.UML_Types.E_UML_Slot =>
51711            return UML_Slot_Get;
51712
51713         when AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action =>
51714            return UML_Start_Classifier_Behavior_Action_Get;
51715
51716         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
51717            return UML_Start_Object_Behavior_Action_Get;
51718
51719         when AMF.Internals.Tables.UML_Types.E_UML_State =>
51720            return UML_State_Get;
51721
51722         when AMF.Internals.Tables.UML_Types.E_UML_State_Invariant =>
51723            return UML_State_Invariant_Get;
51724
51725         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
51726            return UML_State_Machine_Get;
51727
51728         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
51729            return UML_Stereotype_Get;
51730
51731         when AMF.Internals.Tables.UML_Types.E_UML_String_Expression =>
51732            return UML_String_Expression_Get;
51733
51734         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
51735            return UML_Structured_Activity_Node_Get;
51736
51737         when AMF.Internals.Tables.UML_Types.E_UML_Substitution =>
51738            return UML_Substitution_Get;
51739
51740         when AMF.Internals.Tables.UML_Types.E_UML_Template_Binding =>
51741            return UML_Template_Binding_Get;
51742
51743         when AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter =>
51744            return UML_Template_Parameter_Get;
51745
51746         when AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter_Substitution =>
51747            return UML_Template_Parameter_Substitution_Get;
51748
51749         when AMF.Internals.Tables.UML_Types.E_UML_Template_Signature =>
51750            return UML_Template_Signature_Get;
51751
51752         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
51753            return UML_Test_Identity_Action_Get;
51754
51755         when AMF.Internals.Tables.UML_Types.E_UML_Time_Constraint =>
51756            return UML_Time_Constraint_Get;
51757
51758         when AMF.Internals.Tables.UML_Types.E_UML_Time_Event =>
51759            return UML_Time_Event_Get;
51760
51761         when AMF.Internals.Tables.UML_Types.E_UML_Time_Expression =>
51762            return UML_Time_Expression_Get;
51763
51764         when AMF.Internals.Tables.UML_Types.E_UML_Time_Interval =>
51765            return UML_Time_Interval_Get;
51766
51767         when AMF.Internals.Tables.UML_Types.E_UML_Time_Observation =>
51768            return UML_Time_Observation_Get;
51769
51770         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
51771            return UML_Transition_Get;
51772
51773         when AMF.Internals.Tables.UML_Types.E_UML_Trigger =>
51774            return UML_Trigger_Get;
51775
51776         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
51777            return UML_Unmarshall_Action_Get;
51778
51779         when AMF.Internals.Tables.UML_Types.E_UML_Usage =>
51780            return UML_Usage_Get;
51781
51782         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
51783            return UML_Use_Case_Get;
51784
51785         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
51786            return UML_Value_Pin_Get;
51787
51788         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
51789            return UML_Value_Specification_Action_Get;
51790
51791         when AMF.Internals.Tables.UML_Types.E_UML_Variable =>
51792            return UML_Variable_Get;
51793      end case;
51794   end Get;
51795
51796   --------------------
51797   -- Get_Meta_Class --
51798   --------------------
51799
51800   function Get_Meta_Class
51801    (Self : AMF.Internals.AMF_Element) return CMOF_Element is
51802   begin
51803      case UML_Element_Table.Table (Self).Kind is
51804         when AMF.Internals.Tables.UML_Types.E_None =>
51805            return 0;
51806
51807         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Auxiliary =>
51808            return AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Auxiliary;
51809
51810         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Call =>
51811            return AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Call;
51812
51813         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Create =>
51814            return AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Create;
51815
51816         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Derive =>
51817            return AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Derive;
51818
51819         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Destroy =>
51820            return AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Destroy;
51821
51822         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Document =>
51823            return AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Document;
51824
51825         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Entity =>
51826            return AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Entity;
51827
51828         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Executable =>
51829            return AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Executable;
51830
51831         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Focus =>
51832            return AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Focus;
51833
51834         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Framework =>
51835            return AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Framework;
51836
51837         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Implement =>
51838            return AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Implement;
51839
51840         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Implementation_Class =>
51841            return AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Implementation_Class;
51842
51843         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Instantiate =>
51844            return AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Instantiate;
51845
51846         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Library =>
51847            return AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Library;
51848
51849         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Metaclass =>
51850            return AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Metaclass;
51851
51852         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Model_Library =>
51853            return AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Model_Library;
51854
51855         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Process =>
51856            return AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Process;
51857
51858         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Realization =>
51859            return AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Realization;
51860
51861         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Refine =>
51862            return AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Refine;
51863
51864         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Responsibility =>
51865            return AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Responsibility;
51866
51867         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Script =>
51868            return AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Script;
51869
51870         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Send =>
51871            return AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Send;
51872
51873         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Service =>
51874            return AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Service;
51875
51876         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Source =>
51877            return AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Source;
51878
51879         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Specification =>
51880            return AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Specification;
51881
51882         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Subsystem =>
51883            return AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Subsystem;
51884
51885         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Trace =>
51886            return AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Trace;
51887
51888         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Type =>
51889            return AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Type;
51890
51891         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Utility =>
51892            return AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Utility;
51893
51894         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L3_Build_Component =>
51895            return AMF.Internals.Tables.Standard_Profile_L3_Metamodel.MC_Standard_Profile_L3_Build_Component;
51896
51897         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L3_Metamodel =>
51898            return AMF.Internals.Tables.Standard_Profile_L3_Metamodel.MC_Standard_Profile_L3_Metamodel;
51899
51900         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L3_System_Model =>
51901            return AMF.Internals.Tables.Standard_Profile_L3_Metamodel.MC_Standard_Profile_L3_System_Model;
51902
51903         when AMF.Internals.Tables.UML_Types.E_UML_Abstraction =>
51904            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Abstraction;
51905
51906         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
51907            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Accept_Call_Action;
51908
51909         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action =>
51910            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Accept_Event_Action;
51911
51912         when AMF.Internals.Tables.UML_Types.E_UML_Action_Execution_Specification =>
51913            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Action_Execution_Specification;
51914
51915         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
51916            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Action_Input_Pin;
51917
51918         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
51919            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Activity;
51920
51921         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Final_Node =>
51922            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Activity_Final_Node;
51923
51924         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
51925            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Activity_Parameter_Node;
51926
51927         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Partition =>
51928            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Activity_Partition;
51929
51930         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
51931            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Actor;
51932
51933         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
51934            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Add_Structural_Feature_Value_Action;
51935
51936         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
51937            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Add_Variable_Value_Action;
51938
51939         when AMF.Internals.Tables.UML_Types.E_UML_Any_Receive_Event =>
51940            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Any_Receive_Event;
51941
51942         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
51943            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Artifact;
51944
51945         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
51946            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Association;
51947
51948         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
51949            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Association_Class;
51950
51951         when AMF.Internals.Tables.UML_Types.E_UML_Behavior_Execution_Specification =>
51952            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Behavior_Execution_Specification;
51953
51954         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
51955            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Broadcast_Signal_Action;
51956
51957         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
51958            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Call_Behavior_Action;
51959
51960         when AMF.Internals.Tables.UML_Types.E_UML_Call_Event =>
51961            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Call_Event;
51962
51963         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
51964            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Call_Operation_Action;
51965
51966         when AMF.Internals.Tables.UML_Types.E_UML_Central_Buffer_Node =>
51967            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Central_Buffer_Node;
51968
51969         when AMF.Internals.Tables.UML_Types.E_UML_Change_Event =>
51970            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Change_Event;
51971
51972         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
51973            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Class;
51974
51975         when AMF.Internals.Tables.UML_Types.E_UML_Classifier_Template_Parameter =>
51976            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Classifier_Template_Parameter;
51977
51978         when AMF.Internals.Tables.UML_Types.E_UML_Clause =>
51979            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Clause;
51980
51981         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
51982            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Clear_Association_Action;
51983
51984         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
51985            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Clear_Structural_Feature_Action;
51986
51987         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action =>
51988            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Clear_Variable_Action;
51989
51990         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
51991            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Collaboration;
51992
51993         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration_Use =>
51994            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Collaboration_Use;
51995
51996         when AMF.Internals.Tables.UML_Types.E_UML_Combined_Fragment =>
51997            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Combined_Fragment;
51998
51999         when AMF.Internals.Tables.UML_Types.E_UML_Comment =>
52000            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Comment;
52001
52002         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
52003            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Communication_Path;
52004
52005         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
52006            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Component;
52007
52008         when AMF.Internals.Tables.UML_Types.E_UML_Component_Realization =>
52009            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Component_Realization;
52010
52011         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
52012            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Conditional_Node;
52013
52014         when AMF.Internals.Tables.UML_Types.E_UML_Connectable_Element_Template_Parameter =>
52015            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Connectable_Element_Template_Parameter;
52016
52017         when AMF.Internals.Tables.UML_Types.E_UML_Connection_Point_Reference =>
52018            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Connection_Point_Reference;
52019
52020         when AMF.Internals.Tables.UML_Types.E_UML_Connector =>
52021            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Connector;
52022
52023         when AMF.Internals.Tables.UML_Types.E_UML_Connector_End =>
52024            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Connector_End;
52025
52026         when AMF.Internals.Tables.UML_Types.E_UML_Consider_Ignore_Fragment =>
52027            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Consider_Ignore_Fragment;
52028
52029         when AMF.Internals.Tables.UML_Types.E_UML_Constraint =>
52030            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Constraint;
52031
52032         when AMF.Internals.Tables.UML_Types.E_UML_Continuation =>
52033            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Continuation;
52034
52035         when AMF.Internals.Tables.UML_Types.E_UML_Control_Flow =>
52036            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Control_Flow;
52037
52038         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action =>
52039            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Create_Link_Action;
52040
52041         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
52042            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Create_Link_Object_Action;
52043
52044         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
52045            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Create_Object_Action;
52046
52047         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Activity_Diagram =>
52048            return AMF.Internals.Tables.UMLDI_Metamodel.MC_UMLDI_UML_Activity_Diagram;
52049
52050         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Association_End_Label =>
52051            return AMF.Internals.Tables.UMLDI_Metamodel.MC_UMLDI_UML_Association_End_Label;
52052
52053         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Association_Or_Connector_Or_Link_Shape =>
52054            return AMF.Internals.Tables.UMLDI_Metamodel.MC_UMLDI_UML_Association_Or_Connector_Or_Link_Shape;
52055
52056         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Class_Diagram =>
52057            return AMF.Internals.Tables.UMLDI_Metamodel.MC_UMLDI_UML_Class_Diagram;
52058
52059         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Classifier_Shape =>
52060            return AMF.Internals.Tables.UMLDI_Metamodel.MC_UMLDI_UML_Classifier_Shape;
52061
52062         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Compartment =>
52063            return AMF.Internals.Tables.UMLDI_Metamodel.MC_UMLDI_UML_Compartment;
52064
52065         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Compartmentable_Shape =>
52066            return AMF.Internals.Tables.UMLDI_Metamodel.MC_UMLDI_UML_Compartmentable_Shape;
52067
52068         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Component_Diagram =>
52069            return AMF.Internals.Tables.UMLDI_Metamodel.MC_UMLDI_UML_Component_Diagram;
52070
52071         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Composite_Structure_Diagram =>
52072            return AMF.Internals.Tables.UMLDI_Metamodel.MC_UMLDI_UML_Composite_Structure_Diagram;
52073
52074         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Deployment_Diagram =>
52075            return AMF.Internals.Tables.UMLDI_Metamodel.MC_UMLDI_UML_Deployment_Diagram;
52076
52077         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Edge =>
52078            return AMF.Internals.Tables.UMLDI_Metamodel.MC_UMLDI_UML_Edge;
52079
52080         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Diagram =>
52081            return AMF.Internals.Tables.UMLDI_Metamodel.MC_UMLDI_UML_Interaction_Diagram;
52082
52083         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Table_Label =>
52084            return AMF.Internals.Tables.UMLDI_Metamodel.MC_UMLDI_UML_Interaction_Table_Label;
52085
52086         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Keyword_Label =>
52087            return AMF.Internals.Tables.UMLDI_Metamodel.MC_UMLDI_UML_Keyword_Label;
52088
52089         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Label =>
52090            return AMF.Internals.Tables.UMLDI_Metamodel.MC_UMLDI_UML_Label;
52091
52092         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Multiplicity_Label =>
52093            return AMF.Internals.Tables.UMLDI_Metamodel.MC_UMLDI_UML_Multiplicity_Label;
52094
52095         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Name_Label =>
52096            return AMF.Internals.Tables.UMLDI_Metamodel.MC_UMLDI_UML_Name_Label;
52097
52098         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Object_Diagram =>
52099            return AMF.Internals.Tables.UMLDI_Metamodel.MC_UMLDI_UML_Object_Diagram;
52100
52101         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Package_Diagram =>
52102            return AMF.Internals.Tables.UMLDI_Metamodel.MC_UMLDI_UML_Package_Diagram;
52103
52104         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Profile_Diagram =>
52105            return AMF.Internals.Tables.UMLDI_Metamodel.MC_UMLDI_UML_Profile_Diagram;
52106
52107         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Redefines_Label =>
52108            return AMF.Internals.Tables.UMLDI_Metamodel.MC_UMLDI_UML_Redefines_Label;
52109
52110         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Shape =>
52111            return AMF.Internals.Tables.UMLDI_Metamodel.MC_UMLDI_UML_Shape;
52112
52113         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Machine_Diagram =>
52114            return AMF.Internals.Tables.UMLDI_Metamodel.MC_UMLDI_UML_State_Machine_Diagram;
52115
52116         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Shape =>
52117            return AMF.Internals.Tables.UMLDI_Metamodel.MC_UMLDI_UML_State_Shape;
52118
52119         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Stereotype_Property_Value_Label =>
52120            return AMF.Internals.Tables.UMLDI_Metamodel.MC_UMLDI_UML_Stereotype_Property_Value_Label;
52121
52122         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Style =>
52123            return AMF.Internals.Tables.UMLDI_Metamodel.MC_UMLDI_UML_Style;
52124
52125         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Typed_Element_Label =>
52126            return AMF.Internals.Tables.UMLDI_Metamodel.MC_UMLDI_UML_Typed_Element_Label;
52127
52128         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Use_Case_Diagram =>
52129            return AMF.Internals.Tables.UMLDI_Metamodel.MC_UMLDI_UML_Use_Case_Diagram;
52130
52131         when AMF.Internals.Tables.UML_Types.E_UML_Data_Store_Node =>
52132            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Data_Store_Node;
52133
52134         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
52135            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Data_Type;
52136
52137         when AMF.Internals.Tables.UML_Types.E_UML_Decision_Node =>
52138            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Decision_Node;
52139
52140         when AMF.Internals.Tables.UML_Types.E_UML_Dependency =>
52141            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Dependency;
52142
52143         when AMF.Internals.Tables.UML_Types.E_UML_Deployment =>
52144            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Deployment;
52145
52146         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
52147            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Deployment_Specification;
52148
52149         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action =>
52150            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Destroy_Link_Action;
52151
52152         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action =>
52153            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Destroy_Object_Action;
52154
52155         when AMF.Internals.Tables.UML_Types.E_UML_Destruction_Occurrence_Specification =>
52156            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Destruction_Occurrence_Specification;
52157
52158         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
52159            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Device;
52160
52161         when AMF.Internals.Tables.UML_Types.E_UML_Duration =>
52162            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Duration;
52163
52164         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Constraint =>
52165            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Duration_Constraint;
52166
52167         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Interval =>
52168            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Duration_Interval;
52169
52170         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Observation =>
52171            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Duration_Observation;
52172
52173         when AMF.Internals.Tables.UML_Types.E_UML_Element_Import =>
52174            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Element_Import;
52175
52176         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
52177            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Enumeration;
52178
52179         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration_Literal =>
52180            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Enumeration_Literal;
52181
52182         when AMF.Internals.Tables.UML_Types.E_UML_Exception_Handler =>
52183            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Exception_Handler;
52184
52185         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
52186            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Execution_Environment;
52187
52188         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Occurrence_Specification =>
52189            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Execution_Occurrence_Specification;
52190
52191         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
52192            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Expansion_Node;
52193
52194         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
52195            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Expansion_Region;
52196
52197         when AMF.Internals.Tables.UML_Types.E_UML_Expression =>
52198            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Expression;
52199
52200         when AMF.Internals.Tables.UML_Types.E_UML_Extend =>
52201            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Extend;
52202
52203         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
52204            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Extension;
52205
52206         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
52207            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Extension_End;
52208
52209         when AMF.Internals.Tables.UML_Types.E_UML_Extension_Point =>
52210            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Extension_Point;
52211
52212         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
52213            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Final_State;
52214
52215         when AMF.Internals.Tables.UML_Types.E_UML_Flow_Final_Node =>
52216            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Flow_Final_Node;
52217
52218         when AMF.Internals.Tables.UML_Types.E_UML_Fork_Node =>
52219            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Fork_Node;
52220
52221         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
52222            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Function_Behavior;
52223
52224         when AMF.Internals.Tables.UML_Types.E_UML_Gate =>
52225            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Gate;
52226
52227         when AMF.Internals.Tables.UML_Types.E_UML_General_Ordering =>
52228            return AMF.Internals.Tables.UML_Metamodel.MC_UML_General_Ordering;
52229
52230         when AMF.Internals.Tables.UML_Types.E_UML_Generalization =>
52231            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Generalization;
52232
52233         when AMF.Internals.Tables.UML_Types.E_UML_Generalization_Set =>
52234            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Generalization_Set;
52235
52236         when AMF.Internals.Tables.UML_Types.E_UML_Image =>
52237            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Image;
52238
52239         when AMF.Internals.Tables.UML_Types.E_UML_Include =>
52240            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Include;
52241
52242         when AMF.Internals.Tables.UML_Types.E_UML_Information_Flow =>
52243            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Information_Flow;
52244
52245         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
52246            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Information_Item;
52247
52248         when AMF.Internals.Tables.UML_Types.E_UML_Initial_Node =>
52249            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Initial_Node;
52250
52251         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
52252            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Input_Pin;
52253
52254         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Specification =>
52255            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Instance_Specification;
52256
52257         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Value =>
52258            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Instance_Value;
52259
52260         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
52261            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Interaction;
52262
52263         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Constraint =>
52264            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Interaction_Constraint;
52265
52266         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Operand =>
52267            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Interaction_Operand;
52268
52269         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Use =>
52270            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Interaction_Use;
52271
52272         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
52273            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Interface;
52274
52275         when AMF.Internals.Tables.UML_Types.E_UML_Interface_Realization =>
52276            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Interface_Realization;
52277
52278         when AMF.Internals.Tables.UML_Types.E_UML_Interruptible_Activity_Region =>
52279            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Interruptible_Activity_Region;
52280
52281         when AMF.Internals.Tables.UML_Types.E_UML_Interval =>
52282            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Interval;
52283
52284         when AMF.Internals.Tables.UML_Types.E_UML_Interval_Constraint =>
52285            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Interval_Constraint;
52286
52287         when AMF.Internals.Tables.UML_Types.E_UML_Join_Node =>
52288            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Join_Node;
52289
52290         when AMF.Internals.Tables.UML_Types.E_UML_Lifeline =>
52291            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Lifeline;
52292
52293         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Creation_Data =>
52294            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Link_End_Creation_Data;
52295
52296         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Data =>
52297            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Link_End_Data;
52298
52299         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Destruction_Data =>
52300            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Link_End_Destruction_Data;
52301
52302         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Boolean =>
52303            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Literal_Boolean;
52304
52305         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Integer =>
52306            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Literal_Integer;
52307
52308         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Null =>
52309            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Literal_Null;
52310
52311         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Real =>
52312            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Literal_Real;
52313
52314         when AMF.Internals.Tables.UML_Types.E_UML_Literal_String =>
52315            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Literal_String;
52316
52317         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Unlimited_Natural =>
52318            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Literal_Unlimited_Natural;
52319
52320         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
52321            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Loop_Node;
52322
52323         when AMF.Internals.Tables.UML_Types.E_UML_Manifestation =>
52324            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Manifestation;
52325
52326         when AMF.Internals.Tables.UML_Types.E_UML_Merge_Node =>
52327            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Merge_Node;
52328
52329         when AMF.Internals.Tables.UML_Types.E_UML_Message =>
52330            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Message;
52331
52332         when AMF.Internals.Tables.UML_Types.E_UML_Message_Occurrence_Specification =>
52333            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Message_Occurrence_Specification;
52334
52335         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
52336            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Model;
52337
52338         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
52339            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Node;
52340
52341         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
52342            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Object_Flow;
52343
52344         when AMF.Internals.Tables.UML_Types.E_UML_Occurrence_Specification =>
52345            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Occurrence_Specification;
52346
52347         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action =>
52348            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Opaque_Action;
52349
52350         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
52351            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Opaque_Behavior;
52352
52353         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Expression =>
52354            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Opaque_Expression;
52355
52356         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
52357            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Operation;
52358
52359         when AMF.Internals.Tables.UML_Types.E_UML_Operation_Template_Parameter =>
52360            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Operation_Template_Parameter;
52361
52362         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
52363            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Output_Pin;
52364
52365         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
52366            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Package;
52367
52368         when AMF.Internals.Tables.UML_Types.E_UML_Package_Import =>
52369            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Package_Import;
52370
52371         when AMF.Internals.Tables.UML_Types.E_UML_Package_Merge =>
52372            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Package_Merge;
52373
52374         when AMF.Internals.Tables.UML_Types.E_UML_Parameter =>
52375            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Parameter;
52376
52377         when AMF.Internals.Tables.UML_Types.E_UML_Parameter_Set =>
52378            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Parameter_Set;
52379
52380         when AMF.Internals.Tables.UML_Types.E_UML_Part_Decomposition =>
52381            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Part_Decomposition;
52382
52383         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
52384            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Port;
52385
52386         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
52387            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Primitive_Type;
52388
52389         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
52390            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Profile;
52391
52392         when AMF.Internals.Tables.UML_Types.E_UML_Profile_Application =>
52393            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Profile_Application;
52394
52395         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
52396            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Property;
52397
52398         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Conformance =>
52399            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Protocol_Conformance;
52400
52401         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
52402            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Protocol_State_Machine;
52403
52404         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
52405            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Protocol_Transition;
52406
52407         when AMF.Internals.Tables.UML_Types.E_UML_Pseudostate =>
52408            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Pseudostate;
52409
52410         when AMF.Internals.Tables.UML_Types.E_UML_Qualifier_Value =>
52411            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Qualifier_Value;
52412
52413         when AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action =>
52414            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Raise_Exception_Action;
52415
52416         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
52417            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Read_Extent_Action;
52418
52419         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
52420            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Read_Is_Classified_Object_Action;
52421
52422         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
52423            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Read_Link_Action;
52424
52425         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
52426            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Read_Link_Object_End_Action;
52427
52428         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
52429            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Read_Link_Object_End_Qualifier_Action;
52430
52431         when AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action =>
52432            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Read_Self_Action;
52433
52434         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
52435            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Read_Structural_Feature_Action;
52436
52437         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
52438            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Read_Variable_Action;
52439
52440         when AMF.Internals.Tables.UML_Types.E_UML_Realization =>
52441            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Realization;
52442
52443         when AMF.Internals.Tables.UML_Types.E_UML_Reception =>
52444            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Reception;
52445
52446         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
52447            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Reclassify_Object_Action;
52448
52449         when AMF.Internals.Tables.UML_Types.E_UML_Redefinable_Template_Signature =>
52450            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Redefinable_Template_Signature;
52451
52452         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
52453            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Reduce_Action;
52454
52455         when AMF.Internals.Tables.UML_Types.E_UML_Region =>
52456            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Region;
52457
52458         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
52459            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Remove_Structural_Feature_Value_Action;
52460
52461         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
52462            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Remove_Variable_Value_Action;
52463
52464         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
52465            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Reply_Action;
52466
52467         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
52468            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Send_Object_Action;
52469
52470         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
52471            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Send_Signal_Action;
52472
52473         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
52474            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Sequence_Node;
52475
52476         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
52477            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Signal;
52478
52479         when AMF.Internals.Tables.UML_Types.E_UML_Signal_Event =>
52480            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Signal_Event;
52481
52482         when AMF.Internals.Tables.UML_Types.E_UML_Slot =>
52483            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Slot;
52484
52485         when AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action =>
52486            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Start_Classifier_Behavior_Action;
52487
52488         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
52489            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Start_Object_Behavior_Action;
52490
52491         when AMF.Internals.Tables.UML_Types.E_UML_State =>
52492            return AMF.Internals.Tables.UML_Metamodel.MC_UML_State;
52493
52494         when AMF.Internals.Tables.UML_Types.E_UML_State_Invariant =>
52495            return AMF.Internals.Tables.UML_Metamodel.MC_UML_State_Invariant;
52496
52497         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
52498            return AMF.Internals.Tables.UML_Metamodel.MC_UML_State_Machine;
52499
52500         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
52501            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Stereotype;
52502
52503         when AMF.Internals.Tables.UML_Types.E_UML_String_Expression =>
52504            return AMF.Internals.Tables.UML_Metamodel.MC_UML_String_Expression;
52505
52506         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
52507            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Structured_Activity_Node;
52508
52509         when AMF.Internals.Tables.UML_Types.E_UML_Substitution =>
52510            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Substitution;
52511
52512         when AMF.Internals.Tables.UML_Types.E_UML_Template_Binding =>
52513            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Template_Binding;
52514
52515         when AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter =>
52516            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Template_Parameter;
52517
52518         when AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter_Substitution =>
52519            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Template_Parameter_Substitution;
52520
52521         when AMF.Internals.Tables.UML_Types.E_UML_Template_Signature =>
52522            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Template_Signature;
52523
52524         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
52525            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Test_Identity_Action;
52526
52527         when AMF.Internals.Tables.UML_Types.E_UML_Time_Constraint =>
52528            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Time_Constraint;
52529
52530         when AMF.Internals.Tables.UML_Types.E_UML_Time_Event =>
52531            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Time_Event;
52532
52533         when AMF.Internals.Tables.UML_Types.E_UML_Time_Expression =>
52534            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Time_Expression;
52535
52536         when AMF.Internals.Tables.UML_Types.E_UML_Time_Interval =>
52537            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Time_Interval;
52538
52539         when AMF.Internals.Tables.UML_Types.E_UML_Time_Observation =>
52540            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Time_Observation;
52541
52542         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
52543            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Transition;
52544
52545         when AMF.Internals.Tables.UML_Types.E_UML_Trigger =>
52546            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Trigger;
52547
52548         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
52549            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Unmarshall_Action;
52550
52551         when AMF.Internals.Tables.UML_Types.E_UML_Usage =>
52552            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Usage;
52553
52554         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
52555            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Use_Case;
52556
52557         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
52558            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Value_Pin;
52559
52560         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
52561            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Value_Specification_Action;
52562
52563         when AMF.Internals.Tables.UML_Types.E_UML_Variable =>
52564            return AMF.Internals.Tables.UML_Metamodel.MC_UML_Variable;
52565      end case;
52566   end Get_Meta_Class;
52567
52568   ---------
52569   -- Set --
52570   ---------
52571
52572   procedure Set
52573    (Self     : AMF.Internals.AMF_Element;
52574     Property : CMOF_Element;
52575     Value    : League.Holders.Holder)
52576   is
52577
52578      procedure Standard_Profile_L2_Auxiliary_Set;
52579      --  Sets attribute's value of instance of Auxiliary class.
52580
52581      procedure Standard_Profile_L2_Call_Set;
52582      --  Sets attribute's value of instance of Call class.
52583
52584      procedure Standard_Profile_L2_Create_Set;
52585      --  Sets attribute's value of instance of Create class.
52586
52587      procedure Standard_Profile_L2_Derive_Set;
52588      --  Sets attribute's value of instance of Derive class.
52589
52590      procedure Standard_Profile_L2_Destroy_Set;
52591      --  Sets attribute's value of instance of Destroy class.
52592
52593      procedure Standard_Profile_L2_Document_Set;
52594      --  Sets attribute's value of instance of Document class.
52595
52596      procedure Standard_Profile_L2_Entity_Set;
52597      --  Sets attribute's value of instance of Entity class.
52598
52599      procedure Standard_Profile_L2_Executable_Set;
52600      --  Sets attribute's value of instance of Executable class.
52601
52602      procedure Standard_Profile_L2_Focus_Set;
52603      --  Sets attribute's value of instance of Focus class.
52604
52605      procedure Standard_Profile_L2_Framework_Set;
52606      --  Sets attribute's value of instance of Framework class.
52607
52608      procedure Standard_Profile_L2_Implement_Set;
52609      --  Sets attribute's value of instance of Implement class.
52610
52611      procedure Standard_Profile_L2_Implementation_Class_Set;
52612      --  Sets attribute's value of instance of ImplementationClass class.
52613
52614      procedure Standard_Profile_L2_Instantiate_Set;
52615      --  Sets attribute's value of instance of Instantiate class.
52616
52617      procedure Standard_Profile_L2_Library_Set;
52618      --  Sets attribute's value of instance of Library class.
52619
52620      procedure Standard_Profile_L2_Metaclass_Set;
52621      --  Sets attribute's value of instance of Metaclass class.
52622
52623      procedure Standard_Profile_L2_Model_Library_Set;
52624      --  Sets attribute's value of instance of ModelLibrary class.
52625
52626      procedure Standard_Profile_L2_Process_Set;
52627      --  Sets attribute's value of instance of Process class.
52628
52629      procedure Standard_Profile_L2_Realization_Set;
52630      --  Sets attribute's value of instance of Realization class.
52631
52632      procedure Standard_Profile_L2_Refine_Set;
52633      --  Sets attribute's value of instance of Refine class.
52634
52635      procedure Standard_Profile_L2_Responsibility_Set;
52636      --  Sets attribute's value of instance of Responsibility class.
52637
52638      procedure Standard_Profile_L2_Script_Set;
52639      --  Sets attribute's value of instance of Script class.
52640
52641      procedure Standard_Profile_L2_Send_Set;
52642      --  Sets attribute's value of instance of Send class.
52643
52644      procedure Standard_Profile_L2_Service_Set;
52645      --  Sets attribute's value of instance of Service class.
52646
52647      procedure Standard_Profile_L2_Source_Set;
52648      --  Sets attribute's value of instance of Source class.
52649
52650      procedure Standard_Profile_L2_Specification_Set;
52651      --  Sets attribute's value of instance of Specification class.
52652
52653      procedure Standard_Profile_L2_Subsystem_Set;
52654      --  Sets attribute's value of instance of Subsystem class.
52655
52656      procedure Standard_Profile_L2_Trace_Set;
52657      --  Sets attribute's value of instance of Trace class.
52658
52659      procedure Standard_Profile_L2_Type_Set;
52660      --  Sets attribute's value of instance of Type class.
52661
52662      procedure Standard_Profile_L2_Utility_Set;
52663      --  Sets attribute's value of instance of Utility class.
52664
52665      procedure Standard_Profile_L3_Build_Component_Set;
52666      --  Sets attribute's value of instance of BuildComponent class.
52667
52668      procedure Standard_Profile_L3_Metamodel_Set;
52669      --  Sets attribute's value of instance of Metamodel class.
52670
52671      procedure Standard_Profile_L3_System_Model_Set;
52672      --  Sets attribute's value of instance of SystemModel class.
52673
52674      procedure UML_Abstraction_Set;
52675      --  Sets attribute's value of instance of Abstraction class.
52676
52677      procedure UML_Accept_Call_Action_Set;
52678      --  Sets attribute's value of instance of AcceptCallAction class.
52679
52680      procedure UML_Accept_Event_Action_Set;
52681      --  Sets attribute's value of instance of AcceptEventAction class.
52682
52683      procedure UML_Action_Execution_Specification_Set;
52684      --  Sets attribute's value of instance of ActionExecutionSpecification class.
52685
52686      procedure UML_Action_Input_Pin_Set;
52687      --  Sets attribute's value of instance of ActionInputPin class.
52688
52689      procedure UML_Activity_Set;
52690      --  Sets attribute's value of instance of Activity class.
52691
52692      procedure UML_Activity_Final_Node_Set;
52693      --  Sets attribute's value of instance of ActivityFinalNode class.
52694
52695      procedure UML_Activity_Parameter_Node_Set;
52696      --  Sets attribute's value of instance of ActivityParameterNode class.
52697
52698      procedure UML_Activity_Partition_Set;
52699      --  Sets attribute's value of instance of ActivityPartition class.
52700
52701      procedure UML_Actor_Set;
52702      --  Sets attribute's value of instance of Actor class.
52703
52704      procedure UML_Add_Structural_Feature_Value_Action_Set;
52705      --  Sets attribute's value of instance of AddStructuralFeatureValueAction class.
52706
52707      procedure UML_Add_Variable_Value_Action_Set;
52708      --  Sets attribute's value of instance of AddVariableValueAction class.
52709
52710      procedure UML_Any_Receive_Event_Set;
52711      --  Sets attribute's value of instance of AnyReceiveEvent class.
52712
52713      procedure UML_Artifact_Set;
52714      --  Sets attribute's value of instance of Artifact class.
52715
52716      procedure UML_Association_Set;
52717      --  Sets attribute's value of instance of Association class.
52718
52719      procedure UML_Association_Class_Set;
52720      --  Sets attribute's value of instance of AssociationClass class.
52721
52722      procedure UML_Behavior_Execution_Specification_Set;
52723      --  Sets attribute's value of instance of BehaviorExecutionSpecification class.
52724
52725      procedure UML_Broadcast_Signal_Action_Set;
52726      --  Sets attribute's value of instance of BroadcastSignalAction class.
52727
52728      procedure UML_Call_Behavior_Action_Set;
52729      --  Sets attribute's value of instance of CallBehaviorAction class.
52730
52731      procedure UML_Call_Event_Set;
52732      --  Sets attribute's value of instance of CallEvent class.
52733
52734      procedure UML_Call_Operation_Action_Set;
52735      --  Sets attribute's value of instance of CallOperationAction class.
52736
52737      procedure UML_Central_Buffer_Node_Set;
52738      --  Sets attribute's value of instance of CentralBufferNode class.
52739
52740      procedure UML_Change_Event_Set;
52741      --  Sets attribute's value of instance of ChangeEvent class.
52742
52743      procedure UML_Class_Set;
52744      --  Sets attribute's value of instance of Class class.
52745
52746      procedure UML_Classifier_Template_Parameter_Set;
52747      --  Sets attribute's value of instance of ClassifierTemplateParameter class.
52748
52749      procedure UML_Clause_Set;
52750      --  Sets attribute's value of instance of Clause class.
52751
52752      procedure UML_Clear_Association_Action_Set;
52753      --  Sets attribute's value of instance of ClearAssociationAction class.
52754
52755      procedure UML_Clear_Structural_Feature_Action_Set;
52756      --  Sets attribute's value of instance of ClearStructuralFeatureAction class.
52757
52758      procedure UML_Clear_Variable_Action_Set;
52759      --  Sets attribute's value of instance of ClearVariableAction class.
52760
52761      procedure UML_Collaboration_Set;
52762      --  Sets attribute's value of instance of Collaboration class.
52763
52764      procedure UML_Collaboration_Use_Set;
52765      --  Sets attribute's value of instance of CollaborationUse class.
52766
52767      procedure UML_Combined_Fragment_Set;
52768      --  Sets attribute's value of instance of CombinedFragment class.
52769
52770      procedure UML_Comment_Set;
52771      --  Sets attribute's value of instance of Comment class.
52772
52773      procedure UML_Communication_Path_Set;
52774      --  Sets attribute's value of instance of CommunicationPath class.
52775
52776      procedure UML_Component_Set;
52777      --  Sets attribute's value of instance of Component class.
52778
52779      procedure UML_Component_Realization_Set;
52780      --  Sets attribute's value of instance of ComponentRealization class.
52781
52782      procedure UML_Conditional_Node_Set;
52783      --  Sets attribute's value of instance of ConditionalNode class.
52784
52785      procedure UML_Connectable_Element_Template_Parameter_Set;
52786      --  Sets attribute's value of instance of ConnectableElementTemplateParameter class.
52787
52788      procedure UML_Connection_Point_Reference_Set;
52789      --  Sets attribute's value of instance of ConnectionPointReference class.
52790
52791      procedure UML_Connector_Set;
52792      --  Sets attribute's value of instance of Connector class.
52793
52794      procedure UML_Connector_End_Set;
52795      --  Sets attribute's value of instance of ConnectorEnd class.
52796
52797      procedure UML_Consider_Ignore_Fragment_Set;
52798      --  Sets attribute's value of instance of ConsiderIgnoreFragment class.
52799
52800      procedure UML_Constraint_Set;
52801      --  Sets attribute's value of instance of Constraint class.
52802
52803      procedure UML_Continuation_Set;
52804      --  Sets attribute's value of instance of Continuation class.
52805
52806      procedure UML_Control_Flow_Set;
52807      --  Sets attribute's value of instance of ControlFlow class.
52808
52809      procedure UML_Create_Link_Action_Set;
52810      --  Sets attribute's value of instance of CreateLinkAction class.
52811
52812      procedure UML_Create_Link_Object_Action_Set;
52813      --  Sets attribute's value of instance of CreateLinkObjectAction class.
52814
52815      procedure UML_Create_Object_Action_Set;
52816      --  Sets attribute's value of instance of CreateObjectAction class.
52817
52818      procedure UMLDI_UML_Activity_Diagram_Set;
52819      --  Sets attribute's value of instance of UMLActivityDiagram class.
52820
52821      procedure UMLDI_UML_Association_End_Label_Set;
52822      --  Sets attribute's value of instance of UMLAssociationEndLabel class.
52823
52824      procedure UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Set;
52825      --  Sets attribute's value of instance of UMLAssociationOrConnectorOrLinkShape class.
52826
52827      procedure UMLDI_UML_Class_Diagram_Set;
52828      --  Sets attribute's value of instance of UMLClassDiagram class.
52829
52830      procedure UMLDI_UML_Classifier_Shape_Set;
52831      --  Sets attribute's value of instance of UMLClassifierShape class.
52832
52833      procedure UMLDI_UML_Compartment_Set;
52834      --  Sets attribute's value of instance of UMLCompartment class.
52835
52836      procedure UMLDI_UML_Compartmentable_Shape_Set;
52837      --  Sets attribute's value of instance of UMLCompartmentableShape class.
52838
52839      procedure UMLDI_UML_Component_Diagram_Set;
52840      --  Sets attribute's value of instance of UMLComponentDiagram class.
52841
52842      procedure UMLDI_UML_Composite_Structure_Diagram_Set;
52843      --  Sets attribute's value of instance of UMLCompositeStructureDiagram class.
52844
52845      procedure UMLDI_UML_Deployment_Diagram_Set;
52846      --  Sets attribute's value of instance of UMLDeploymentDiagram class.
52847
52848      procedure UMLDI_UML_Edge_Set;
52849      --  Sets attribute's value of instance of UMLEdge class.
52850
52851      procedure UMLDI_UML_Interaction_Diagram_Set;
52852      --  Sets attribute's value of instance of UMLInteractionDiagram class.
52853
52854      procedure UMLDI_UML_Interaction_Table_Label_Set;
52855      --  Sets attribute's value of instance of UMLInteractionTableLabel class.
52856
52857      procedure UMLDI_UML_Keyword_Label_Set;
52858      --  Sets attribute's value of instance of UMLKeywordLabel class.
52859
52860      procedure UMLDI_UML_Label_Set;
52861      --  Sets attribute's value of instance of UMLLabel class.
52862
52863      procedure UMLDI_UML_Multiplicity_Label_Set;
52864      --  Sets attribute's value of instance of UMLMultiplicityLabel class.
52865
52866      procedure UMLDI_UML_Name_Label_Set;
52867      --  Sets attribute's value of instance of UMLNameLabel class.
52868
52869      procedure UMLDI_UML_Object_Diagram_Set;
52870      --  Sets attribute's value of instance of UMLObjectDiagram class.
52871
52872      procedure UMLDI_UML_Package_Diagram_Set;
52873      --  Sets attribute's value of instance of UMLPackageDiagram class.
52874
52875      procedure UMLDI_UML_Profile_Diagram_Set;
52876      --  Sets attribute's value of instance of UMLProfileDiagram class.
52877
52878      procedure UMLDI_UML_Redefines_Label_Set;
52879      --  Sets attribute's value of instance of UMLRedefinesLabel class.
52880
52881      procedure UMLDI_UML_Shape_Set;
52882      --  Sets attribute's value of instance of UMLShape class.
52883
52884      procedure UMLDI_UML_State_Machine_Diagram_Set;
52885      --  Sets attribute's value of instance of UMLStateMachineDiagram class.
52886
52887      procedure UMLDI_UML_State_Shape_Set;
52888      --  Sets attribute's value of instance of UMLStateShape class.
52889
52890      procedure UMLDI_UML_Stereotype_Property_Value_Label_Set;
52891      --  Sets attribute's value of instance of UMLStereotypePropertyValueLabel class.
52892
52893      procedure UMLDI_UML_Style_Set;
52894      --  Sets attribute's value of instance of UMLStyle class.
52895
52896      procedure UMLDI_UML_Typed_Element_Label_Set;
52897      --  Sets attribute's value of instance of UMLTypedElementLabel class.
52898
52899      procedure UMLDI_UML_Use_Case_Diagram_Set;
52900      --  Sets attribute's value of instance of UMLUseCaseDiagram class.
52901
52902      procedure UML_Data_Store_Node_Set;
52903      --  Sets attribute's value of instance of DataStoreNode class.
52904
52905      procedure UML_Data_Type_Set;
52906      --  Sets attribute's value of instance of DataType class.
52907
52908      procedure UML_Decision_Node_Set;
52909      --  Sets attribute's value of instance of DecisionNode class.
52910
52911      procedure UML_Dependency_Set;
52912      --  Sets attribute's value of instance of Dependency class.
52913
52914      procedure UML_Deployment_Set;
52915      --  Sets attribute's value of instance of Deployment class.
52916
52917      procedure UML_Deployment_Specification_Set;
52918      --  Sets attribute's value of instance of DeploymentSpecification class.
52919
52920      procedure UML_Destroy_Link_Action_Set;
52921      --  Sets attribute's value of instance of DestroyLinkAction class.
52922
52923      procedure UML_Destroy_Object_Action_Set;
52924      --  Sets attribute's value of instance of DestroyObjectAction class.
52925
52926      procedure UML_Destruction_Occurrence_Specification_Set;
52927      --  Sets attribute's value of instance of DestructionOccurrenceSpecification class.
52928
52929      procedure UML_Device_Set;
52930      --  Sets attribute's value of instance of Device class.
52931
52932      procedure UML_Duration_Set;
52933      --  Sets attribute's value of instance of Duration class.
52934
52935      procedure UML_Duration_Constraint_Set;
52936      --  Sets attribute's value of instance of DurationConstraint class.
52937
52938      procedure UML_Duration_Interval_Set;
52939      --  Sets attribute's value of instance of DurationInterval class.
52940
52941      procedure UML_Duration_Observation_Set;
52942      --  Sets attribute's value of instance of DurationObservation class.
52943
52944      procedure UML_Element_Import_Set;
52945      --  Sets attribute's value of instance of ElementImport class.
52946
52947      procedure UML_Enumeration_Set;
52948      --  Sets attribute's value of instance of Enumeration class.
52949
52950      procedure UML_Enumeration_Literal_Set;
52951      --  Sets attribute's value of instance of EnumerationLiteral class.
52952
52953      procedure UML_Exception_Handler_Set;
52954      --  Sets attribute's value of instance of ExceptionHandler class.
52955
52956      procedure UML_Execution_Environment_Set;
52957      --  Sets attribute's value of instance of ExecutionEnvironment class.
52958
52959      procedure UML_Execution_Occurrence_Specification_Set;
52960      --  Sets attribute's value of instance of ExecutionOccurrenceSpecification class.
52961
52962      procedure UML_Expansion_Node_Set;
52963      --  Sets attribute's value of instance of ExpansionNode class.
52964
52965      procedure UML_Expansion_Region_Set;
52966      --  Sets attribute's value of instance of ExpansionRegion class.
52967
52968      procedure UML_Expression_Set;
52969      --  Sets attribute's value of instance of Expression class.
52970
52971      procedure UML_Extend_Set;
52972      --  Sets attribute's value of instance of Extend class.
52973
52974      procedure UML_Extension_Set;
52975      --  Sets attribute's value of instance of Extension class.
52976
52977      procedure UML_Extension_End_Set;
52978      --  Sets attribute's value of instance of ExtensionEnd class.
52979
52980      procedure UML_Extension_Point_Set;
52981      --  Sets attribute's value of instance of ExtensionPoint class.
52982
52983      procedure UML_Final_State_Set;
52984      --  Sets attribute's value of instance of FinalState class.
52985
52986      procedure UML_Flow_Final_Node_Set;
52987      --  Sets attribute's value of instance of FlowFinalNode class.
52988
52989      procedure UML_Fork_Node_Set;
52990      --  Sets attribute's value of instance of ForkNode class.
52991
52992      procedure UML_Function_Behavior_Set;
52993      --  Sets attribute's value of instance of FunctionBehavior class.
52994
52995      procedure UML_Gate_Set;
52996      --  Sets attribute's value of instance of Gate class.
52997
52998      procedure UML_General_Ordering_Set;
52999      --  Sets attribute's value of instance of GeneralOrdering class.
53000
53001      procedure UML_Generalization_Set;
53002      --  Sets attribute's value of instance of Generalization class.
53003
53004      procedure UML_Generalization_Set_Set;
53005      --  Sets attribute's value of instance of GeneralizationSet class.
53006
53007      procedure UML_Image_Set;
53008      --  Sets attribute's value of instance of Image class.
53009
53010      procedure UML_Include_Set;
53011      --  Sets attribute's value of instance of Include class.
53012
53013      procedure UML_Information_Flow_Set;
53014      --  Sets attribute's value of instance of InformationFlow class.
53015
53016      procedure UML_Information_Item_Set;
53017      --  Sets attribute's value of instance of InformationItem class.
53018
53019      procedure UML_Initial_Node_Set;
53020      --  Sets attribute's value of instance of InitialNode class.
53021
53022      procedure UML_Input_Pin_Set;
53023      --  Sets attribute's value of instance of InputPin class.
53024
53025      procedure UML_Instance_Specification_Set;
53026      --  Sets attribute's value of instance of InstanceSpecification class.
53027
53028      procedure UML_Instance_Value_Set;
53029      --  Sets attribute's value of instance of InstanceValue class.
53030
53031      procedure UML_Interaction_Set;
53032      --  Sets attribute's value of instance of Interaction class.
53033
53034      procedure UML_Interaction_Constraint_Set;
53035      --  Sets attribute's value of instance of InteractionConstraint class.
53036
53037      procedure UML_Interaction_Operand_Set;
53038      --  Sets attribute's value of instance of InteractionOperand class.
53039
53040      procedure UML_Interaction_Use_Set;
53041      --  Sets attribute's value of instance of InteractionUse class.
53042
53043      procedure UML_Interface_Set;
53044      --  Sets attribute's value of instance of Interface class.
53045
53046      procedure UML_Interface_Realization_Set;
53047      --  Sets attribute's value of instance of InterfaceRealization class.
53048
53049      procedure UML_Interruptible_Activity_Region_Set;
53050      --  Sets attribute's value of instance of InterruptibleActivityRegion class.
53051
53052      procedure UML_Interval_Set;
53053      --  Sets attribute's value of instance of Interval class.
53054
53055      procedure UML_Interval_Constraint_Set;
53056      --  Sets attribute's value of instance of IntervalConstraint class.
53057
53058      procedure UML_Join_Node_Set;
53059      --  Sets attribute's value of instance of JoinNode class.
53060
53061      procedure UML_Lifeline_Set;
53062      --  Sets attribute's value of instance of Lifeline class.
53063
53064      procedure UML_Link_End_Creation_Data_Set;
53065      --  Sets attribute's value of instance of LinkEndCreationData class.
53066
53067      procedure UML_Link_End_Data_Set;
53068      --  Sets attribute's value of instance of LinkEndData class.
53069
53070      procedure UML_Link_End_Destruction_Data_Set;
53071      --  Sets attribute's value of instance of LinkEndDestructionData class.
53072
53073      procedure UML_Literal_Boolean_Set;
53074      --  Sets attribute's value of instance of LiteralBoolean class.
53075
53076      procedure UML_Literal_Integer_Set;
53077      --  Sets attribute's value of instance of LiteralInteger class.
53078
53079      procedure UML_Literal_Null_Set;
53080      --  Sets attribute's value of instance of LiteralNull class.
53081
53082      procedure UML_Literal_Real_Set;
53083      --  Sets attribute's value of instance of LiteralReal class.
53084
53085      procedure UML_Literal_String_Set;
53086      --  Sets attribute's value of instance of LiteralString class.
53087
53088      procedure UML_Literal_Unlimited_Natural_Set;
53089      --  Sets attribute's value of instance of LiteralUnlimitedNatural class.
53090
53091      procedure UML_Loop_Node_Set;
53092      --  Sets attribute's value of instance of LoopNode class.
53093
53094      procedure UML_Manifestation_Set;
53095      --  Sets attribute's value of instance of Manifestation class.
53096
53097      procedure UML_Merge_Node_Set;
53098      --  Sets attribute's value of instance of MergeNode class.
53099
53100      procedure UML_Message_Set;
53101      --  Sets attribute's value of instance of Message class.
53102
53103      procedure UML_Message_Occurrence_Specification_Set;
53104      --  Sets attribute's value of instance of MessageOccurrenceSpecification class.
53105
53106      procedure UML_Model_Set;
53107      --  Sets attribute's value of instance of Model class.
53108
53109      procedure UML_Node_Set;
53110      --  Sets attribute's value of instance of Node class.
53111
53112      procedure UML_Object_Flow_Set;
53113      --  Sets attribute's value of instance of ObjectFlow class.
53114
53115      procedure UML_Occurrence_Specification_Set;
53116      --  Sets attribute's value of instance of OccurrenceSpecification class.
53117
53118      procedure UML_Opaque_Action_Set;
53119      --  Sets attribute's value of instance of OpaqueAction class.
53120
53121      procedure UML_Opaque_Behavior_Set;
53122      --  Sets attribute's value of instance of OpaqueBehavior class.
53123
53124      procedure UML_Opaque_Expression_Set;
53125      --  Sets attribute's value of instance of OpaqueExpression class.
53126
53127      procedure UML_Operation_Set;
53128      --  Sets attribute's value of instance of Operation class.
53129
53130      procedure UML_Operation_Template_Parameter_Set;
53131      --  Sets attribute's value of instance of OperationTemplateParameter class.
53132
53133      procedure UML_Output_Pin_Set;
53134      --  Sets attribute's value of instance of OutputPin class.
53135
53136      procedure UML_Package_Set;
53137      --  Sets attribute's value of instance of Package class.
53138
53139      procedure UML_Package_Import_Set;
53140      --  Sets attribute's value of instance of PackageImport class.
53141
53142      procedure UML_Package_Merge_Set;
53143      --  Sets attribute's value of instance of PackageMerge class.
53144
53145      procedure UML_Parameter_Set;
53146      --  Sets attribute's value of instance of Parameter class.
53147
53148      procedure UML_Parameter_Set_Set;
53149      --  Sets attribute's value of instance of ParameterSet class.
53150
53151      procedure UML_Part_Decomposition_Set;
53152      --  Sets attribute's value of instance of PartDecomposition class.
53153
53154      procedure UML_Port_Set;
53155      --  Sets attribute's value of instance of Port class.
53156
53157      procedure UML_Primitive_Type_Set;
53158      --  Sets attribute's value of instance of PrimitiveType class.
53159
53160      procedure UML_Profile_Set;
53161      --  Sets attribute's value of instance of Profile class.
53162
53163      procedure UML_Profile_Application_Set;
53164      --  Sets attribute's value of instance of ProfileApplication class.
53165
53166      procedure UML_Property_Set;
53167      --  Sets attribute's value of instance of Property class.
53168
53169      procedure UML_Protocol_Conformance_Set;
53170      --  Sets attribute's value of instance of ProtocolConformance class.
53171
53172      procedure UML_Protocol_State_Machine_Set;
53173      --  Sets attribute's value of instance of ProtocolStateMachine class.
53174
53175      procedure UML_Protocol_Transition_Set;
53176      --  Sets attribute's value of instance of ProtocolTransition class.
53177
53178      procedure UML_Pseudostate_Set;
53179      --  Sets attribute's value of instance of Pseudostate class.
53180
53181      procedure UML_Qualifier_Value_Set;
53182      --  Sets attribute's value of instance of QualifierValue class.
53183
53184      procedure UML_Raise_Exception_Action_Set;
53185      --  Sets attribute's value of instance of RaiseExceptionAction class.
53186
53187      procedure UML_Read_Extent_Action_Set;
53188      --  Sets attribute's value of instance of ReadExtentAction class.
53189
53190      procedure UML_Read_Is_Classified_Object_Action_Set;
53191      --  Sets attribute's value of instance of ReadIsClassifiedObjectAction class.
53192
53193      procedure UML_Read_Link_Action_Set;
53194      --  Sets attribute's value of instance of ReadLinkAction class.
53195
53196      procedure UML_Read_Link_Object_End_Action_Set;
53197      --  Sets attribute's value of instance of ReadLinkObjectEndAction class.
53198
53199      procedure UML_Read_Link_Object_End_Qualifier_Action_Set;
53200      --  Sets attribute's value of instance of ReadLinkObjectEndQualifierAction class.
53201
53202      procedure UML_Read_Self_Action_Set;
53203      --  Sets attribute's value of instance of ReadSelfAction class.
53204
53205      procedure UML_Read_Structural_Feature_Action_Set;
53206      --  Sets attribute's value of instance of ReadStructuralFeatureAction class.
53207
53208      procedure UML_Read_Variable_Action_Set;
53209      --  Sets attribute's value of instance of ReadVariableAction class.
53210
53211      procedure UML_Realization_Set;
53212      --  Sets attribute's value of instance of Realization class.
53213
53214      procedure UML_Reception_Set;
53215      --  Sets attribute's value of instance of Reception class.
53216
53217      procedure UML_Reclassify_Object_Action_Set;
53218      --  Sets attribute's value of instance of ReclassifyObjectAction class.
53219
53220      procedure UML_Redefinable_Template_Signature_Set;
53221      --  Sets attribute's value of instance of RedefinableTemplateSignature class.
53222
53223      procedure UML_Reduce_Action_Set;
53224      --  Sets attribute's value of instance of ReduceAction class.
53225
53226      procedure UML_Region_Set;
53227      --  Sets attribute's value of instance of Region class.
53228
53229      procedure UML_Remove_Structural_Feature_Value_Action_Set;
53230      --  Sets attribute's value of instance of RemoveStructuralFeatureValueAction class.
53231
53232      procedure UML_Remove_Variable_Value_Action_Set;
53233      --  Sets attribute's value of instance of RemoveVariableValueAction class.
53234
53235      procedure UML_Reply_Action_Set;
53236      --  Sets attribute's value of instance of ReplyAction class.
53237
53238      procedure UML_Send_Object_Action_Set;
53239      --  Sets attribute's value of instance of SendObjectAction class.
53240
53241      procedure UML_Send_Signal_Action_Set;
53242      --  Sets attribute's value of instance of SendSignalAction class.
53243
53244      procedure UML_Sequence_Node_Set;
53245      --  Sets attribute's value of instance of SequenceNode class.
53246
53247      procedure UML_Signal_Set;
53248      --  Sets attribute's value of instance of Signal class.
53249
53250      procedure UML_Signal_Event_Set;
53251      --  Sets attribute's value of instance of SignalEvent class.
53252
53253      procedure UML_Slot_Set;
53254      --  Sets attribute's value of instance of Slot class.
53255
53256      procedure UML_Start_Classifier_Behavior_Action_Set;
53257      --  Sets attribute's value of instance of StartClassifierBehaviorAction class.
53258
53259      procedure UML_Start_Object_Behavior_Action_Set;
53260      --  Sets attribute's value of instance of StartObjectBehaviorAction class.
53261
53262      procedure UML_State_Set;
53263      --  Sets attribute's value of instance of State class.
53264
53265      procedure UML_State_Invariant_Set;
53266      --  Sets attribute's value of instance of StateInvariant class.
53267
53268      procedure UML_State_Machine_Set;
53269      --  Sets attribute's value of instance of StateMachine class.
53270
53271      procedure UML_Stereotype_Set;
53272      --  Sets attribute's value of instance of Stereotype class.
53273
53274      procedure UML_String_Expression_Set;
53275      --  Sets attribute's value of instance of StringExpression class.
53276
53277      procedure UML_Structured_Activity_Node_Set;
53278      --  Sets attribute's value of instance of StructuredActivityNode class.
53279
53280      procedure UML_Substitution_Set;
53281      --  Sets attribute's value of instance of Substitution class.
53282
53283      procedure UML_Template_Binding_Set;
53284      --  Sets attribute's value of instance of TemplateBinding class.
53285
53286      procedure UML_Template_Parameter_Set;
53287      --  Sets attribute's value of instance of TemplateParameter class.
53288
53289      procedure UML_Template_Parameter_Substitution_Set;
53290      --  Sets attribute's value of instance of TemplateParameterSubstitution class.
53291
53292      procedure UML_Template_Signature_Set;
53293      --  Sets attribute's value of instance of TemplateSignature class.
53294
53295      procedure UML_Test_Identity_Action_Set;
53296      --  Sets attribute's value of instance of TestIdentityAction class.
53297
53298      procedure UML_Time_Constraint_Set;
53299      --  Sets attribute's value of instance of TimeConstraint class.
53300
53301      procedure UML_Time_Event_Set;
53302      --  Sets attribute's value of instance of TimeEvent class.
53303
53304      procedure UML_Time_Expression_Set;
53305      --  Sets attribute's value of instance of TimeExpression class.
53306
53307      procedure UML_Time_Interval_Set;
53308      --  Sets attribute's value of instance of TimeInterval class.
53309
53310      procedure UML_Time_Observation_Set;
53311      --  Sets attribute's value of instance of TimeObservation class.
53312
53313      procedure UML_Transition_Set;
53314      --  Sets attribute's value of instance of Transition class.
53315
53316      procedure UML_Trigger_Set;
53317      --  Sets attribute's value of instance of Trigger class.
53318
53319      procedure UML_Unmarshall_Action_Set;
53320      --  Sets attribute's value of instance of UnmarshallAction class.
53321
53322      procedure UML_Usage_Set;
53323      --  Sets attribute's value of instance of Usage class.
53324
53325      procedure UML_Use_Case_Set;
53326      --  Sets attribute's value of instance of UseCase class.
53327
53328      procedure UML_Value_Pin_Set;
53329      --  Sets attribute's value of instance of ValuePin class.
53330
53331      procedure UML_Value_Specification_Action_Set;
53332      --  Sets attribute's value of instance of ValueSpecificationAction class.
53333
53334      procedure UML_Variable_Set;
53335      --  Sets attribute's value of instance of Variable class.
53336
53337      ---------------------------------------
53338      -- Standard_Profile_L2_Auxiliary_Set --
53339      ---------------------------------------
53340
53341      procedure Standard_Profile_L2_Auxiliary_Set is
53342      begin
53343         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Auxiliary_Base_Class_A_Extension_Auxiliary then
53344            --  Auxiliary::base_Class : Class
53345
53346            AMF.Standard_Profile_L2.Auxiliaries.Standard_Profile_L2_Auxiliary_Access
53347             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Class
53348               (AMF.UML.Classes.UML_Class_Access (AMF.Holders.Elements.Element (Value)));
53349
53350         else
53351            raise Program_Error;
53352         end if;
53353      end Standard_Profile_L2_Auxiliary_Set;
53354
53355      ----------------------------------
53356      -- Standard_Profile_L2_Call_Set --
53357      ----------------------------------
53358
53359      procedure Standard_Profile_L2_Call_Set is
53360      begin
53361         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Call_Base_Usage_A_Extension_Call then
53362            --  Call::base_Usage : Usage
53363
53364            AMF.Standard_Profile_L2.Calls.Standard_Profile_L2_Call_Access
53365             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Usage
53366               (AMF.UML.Usages.UML_Usage_Access (AMF.Holders.Elements.Element (Value)));
53367
53368         else
53369            raise Program_Error;
53370         end if;
53371      end Standard_Profile_L2_Call_Set;
53372
53373      ------------------------------------
53374      -- Standard_Profile_L2_Create_Set --
53375      ------------------------------------
53376
53377      procedure Standard_Profile_L2_Create_Set is
53378      begin
53379         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Create_Base_Behavioral_Feature_A_Extension_Create then
53380            --  Create::base_BehavioralFeature : BehavioralFeature
53381
53382            AMF.Standard_Profile_L2.Creates.Standard_Profile_L2_Create_Access
53383             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Behavioral_Feature
53384               (AMF.UML.Behavioral_Features.UML_Behavioral_Feature_Access (AMF.Holders.Elements.Element (Value)));
53385
53386         elsif Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Create_Base_Usage_A_Extension_Create then
53387            --  Create::base_Usage : Usage
53388
53389            AMF.Standard_Profile_L2.Creates.Standard_Profile_L2_Create_Access
53390             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Usage
53391               (AMF.UML.Usages.UML_Usage_Access (AMF.Holders.Elements.Element (Value)));
53392
53393         else
53394            raise Program_Error;
53395         end if;
53396      end Standard_Profile_L2_Create_Set;
53397
53398      ------------------------------------
53399      -- Standard_Profile_L2_Derive_Set --
53400      ------------------------------------
53401
53402      procedure Standard_Profile_L2_Derive_Set is
53403      begin
53404         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Derive_Base_Abstraction_A_Extension_Derive then
53405            --  Derive::base_Abstraction : Abstraction
53406
53407            AMF.Standard_Profile_L2.Derives.Standard_Profile_L2_Derive_Access
53408             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Abstraction
53409               (AMF.UML.Abstractions.UML_Abstraction_Access (AMF.Holders.Elements.Element (Value)));
53410
53411         elsif Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Derive_Computation_A_Extension_Derive then
53412            --  Derive::computation : ValueSpecification
53413
53414            AMF.Standard_Profile_L2.Derives.Standard_Profile_L2_Derive_Access
53415             (AMF.Internals.Helpers.To_Element (Self)).Set_Computation
53416               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
53417
53418         else
53419            raise Program_Error;
53420         end if;
53421      end Standard_Profile_L2_Derive_Set;
53422
53423      -------------------------------------
53424      -- Standard_Profile_L2_Destroy_Set --
53425      -------------------------------------
53426
53427      procedure Standard_Profile_L2_Destroy_Set is
53428      begin
53429         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Destroy_Base_Behavioral_Feature_A_Extension_Destroy then
53430            --  Destroy::base_BehavioralFeature : BehavioralFeature
53431
53432            AMF.Standard_Profile_L2.Destroies.Standard_Profile_L2_Destroy_Access
53433             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Behavioral_Feature
53434               (AMF.UML.Behavioral_Features.UML_Behavioral_Feature_Access (AMF.Holders.Elements.Element (Value)));
53435
53436         else
53437            raise Program_Error;
53438         end if;
53439      end Standard_Profile_L2_Destroy_Set;
53440
53441      --------------------------------------
53442      -- Standard_Profile_L2_Document_Set --
53443      --------------------------------------
53444
53445      procedure Standard_Profile_L2_Document_Set is
53446      begin
53447         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Document_Base_Artifact_A_Extension_Document then
53448            --  Document::base_Artifact : Artifact
53449
53450            AMF.Standard_Profile_L2.Documents.Standard_Profile_L2_Document_Access
53451             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Artifact
53452               (AMF.UML.Artifacts.UML_Artifact_Access (AMF.Holders.Elements.Element (Value)));
53453
53454         elsif Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_File_Base_Artifact_A_Extension_File then
53455            --  File::base_Artifact : Artifact
53456
53457            AMF.Standard_Profile_L2.Documents.Standard_Profile_L2_Document_Access
53458             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Artifact
53459               (AMF.UML.Artifacts.UML_Artifact_Access (AMF.Holders.Elements.Element (Value)));
53460
53461         else
53462            raise Program_Error;
53463         end if;
53464      end Standard_Profile_L2_Document_Set;
53465
53466      ------------------------------------
53467      -- Standard_Profile_L2_Entity_Set --
53468      ------------------------------------
53469
53470      procedure Standard_Profile_L2_Entity_Set is
53471      begin
53472         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Entity_Base_Component_A_Extension_Entity then
53473            --  Entity::base_Component : Component
53474
53475            AMF.Standard_Profile_L2.Entities.Standard_Profile_L2_Entity_Access
53476             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Component
53477               (AMF.UML.Components.UML_Component_Access (AMF.Holders.Elements.Element (Value)));
53478
53479         else
53480            raise Program_Error;
53481         end if;
53482      end Standard_Profile_L2_Entity_Set;
53483
53484      ----------------------------------------
53485      -- Standard_Profile_L2_Executable_Set --
53486      ----------------------------------------
53487
53488      procedure Standard_Profile_L2_Executable_Set is
53489      begin
53490         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Executable_Base_Artifact_A_Extension_Executable then
53491            --  Executable::base_Artifact : Artifact
53492
53493            AMF.Standard_Profile_L2.Executables.Standard_Profile_L2_Executable_Access
53494             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Artifact
53495               (AMF.UML.Artifacts.UML_Artifact_Access (AMF.Holders.Elements.Element (Value)));
53496
53497         elsif Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_File_Base_Artifact_A_Extension_File then
53498            --  File::base_Artifact : Artifact
53499
53500            AMF.Standard_Profile_L2.Executables.Standard_Profile_L2_Executable_Access
53501             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Artifact
53502               (AMF.UML.Artifacts.UML_Artifact_Access (AMF.Holders.Elements.Element (Value)));
53503
53504         else
53505            raise Program_Error;
53506         end if;
53507      end Standard_Profile_L2_Executable_Set;
53508
53509      -----------------------------------
53510      -- Standard_Profile_L2_Focus_Set --
53511      -----------------------------------
53512
53513      procedure Standard_Profile_L2_Focus_Set is
53514      begin
53515         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Focus_Base_Class_A_Extension_Focus then
53516            --  Focus::base_Class : Class
53517
53518            AMF.Standard_Profile_L2.Focuses.Standard_Profile_L2_Focus_Access
53519             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Class
53520               (AMF.UML.Classes.UML_Class_Access (AMF.Holders.Elements.Element (Value)));
53521
53522         else
53523            raise Program_Error;
53524         end if;
53525      end Standard_Profile_L2_Focus_Set;
53526
53527      ---------------------------------------
53528      -- Standard_Profile_L2_Framework_Set --
53529      ---------------------------------------
53530
53531      procedure Standard_Profile_L2_Framework_Set is
53532      begin
53533         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Framework_Base_Package_A_Extension_Framework then
53534            --  Framework::base_Package : Package
53535
53536            AMF.Standard_Profile_L2.Frameworks.Standard_Profile_L2_Framework_Access
53537             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Package
53538               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
53539
53540         else
53541            raise Program_Error;
53542         end if;
53543      end Standard_Profile_L2_Framework_Set;
53544
53545      ---------------------------------------
53546      -- Standard_Profile_L2_Implement_Set --
53547      ---------------------------------------
53548
53549      procedure Standard_Profile_L2_Implement_Set is
53550      begin
53551         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Implement_Base_Component_A_Extension_Implement then
53552            --  Implement::base_Component : Component
53553
53554            AMF.Standard_Profile_L2.Implements.Standard_Profile_L2_Implement_Access
53555             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Component
53556               (AMF.UML.Components.UML_Component_Access (AMF.Holders.Elements.Element (Value)));
53557
53558         else
53559            raise Program_Error;
53560         end if;
53561      end Standard_Profile_L2_Implement_Set;
53562
53563      --------------------------------------------------
53564      -- Standard_Profile_L2_Implementation_Class_Set --
53565      --------------------------------------------------
53566
53567      procedure Standard_Profile_L2_Implementation_Class_Set is
53568      begin
53569         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Implementation_Class_Base_Class_A_Extension_Implementation_Class then
53570            --  ImplementationClass::base_Class : Class
53571
53572            AMF.Standard_Profile_L2.Implementation_Classes.Standard_Profile_L2_Implementation_Class_Access
53573             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Class
53574               (AMF.UML.Classes.UML_Class_Access (AMF.Holders.Elements.Element (Value)));
53575
53576         else
53577            raise Program_Error;
53578         end if;
53579      end Standard_Profile_L2_Implementation_Class_Set;
53580
53581      -----------------------------------------
53582      -- Standard_Profile_L2_Instantiate_Set --
53583      -----------------------------------------
53584
53585      procedure Standard_Profile_L2_Instantiate_Set is
53586      begin
53587         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Instantiate_Base_Usage_A_Extension_Instantiate then
53588            --  Instantiate::base_Usage : Usage
53589
53590            AMF.Standard_Profile_L2.Instantiates.Standard_Profile_L2_Instantiate_Access
53591             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Usage
53592               (AMF.UML.Usages.UML_Usage_Access (AMF.Holders.Elements.Element (Value)));
53593
53594         else
53595            raise Program_Error;
53596         end if;
53597      end Standard_Profile_L2_Instantiate_Set;
53598
53599      -------------------------------------
53600      -- Standard_Profile_L2_Library_Set --
53601      -------------------------------------
53602
53603      procedure Standard_Profile_L2_Library_Set is
53604      begin
53605         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_File_Base_Artifact_A_Extension_File then
53606            --  File::base_Artifact : Artifact
53607
53608            AMF.Standard_Profile_L2.Libraries.Standard_Profile_L2_Library_Access
53609             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Artifact
53610               (AMF.UML.Artifacts.UML_Artifact_Access (AMF.Holders.Elements.Element (Value)));
53611
53612         elsif Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Library_Base_Artifact_A_Extension_Library then
53613            --  Library::base_Artifact : Artifact
53614
53615            AMF.Standard_Profile_L2.Libraries.Standard_Profile_L2_Library_Access
53616             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Artifact
53617               (AMF.UML.Artifacts.UML_Artifact_Access (AMF.Holders.Elements.Element (Value)));
53618
53619         else
53620            raise Program_Error;
53621         end if;
53622      end Standard_Profile_L2_Library_Set;
53623
53624      ---------------------------------------
53625      -- Standard_Profile_L2_Metaclass_Set --
53626      ---------------------------------------
53627
53628      procedure Standard_Profile_L2_Metaclass_Set is
53629      begin
53630         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Metaclass_Base_Class_A_Extension_Metaclass then
53631            --  Metaclass::base_Class : Class
53632
53633            AMF.Standard_Profile_L2.Metaclasses.Standard_Profile_L2_Metaclass_Access
53634             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Class
53635               (AMF.UML.Classes.UML_Class_Access (AMF.Holders.Elements.Element (Value)));
53636
53637         else
53638            raise Program_Error;
53639         end if;
53640      end Standard_Profile_L2_Metaclass_Set;
53641
53642      -------------------------------------------
53643      -- Standard_Profile_L2_Model_Library_Set --
53644      -------------------------------------------
53645
53646      procedure Standard_Profile_L2_Model_Library_Set is
53647      begin
53648         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Model_Library_Base_Package_A_Extension_Model_Library then
53649            --  ModelLibrary::base_Package : Package
53650
53651            AMF.Standard_Profile_L2.Model_Libraries.Standard_Profile_L2_Model_Library_Access
53652             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Package
53653               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
53654
53655         else
53656            raise Program_Error;
53657         end if;
53658      end Standard_Profile_L2_Model_Library_Set;
53659
53660      -------------------------------------
53661      -- Standard_Profile_L2_Process_Set --
53662      -------------------------------------
53663
53664      procedure Standard_Profile_L2_Process_Set is
53665      begin
53666         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Process_Base_Component_A_Extension_Process then
53667            --  Process::base_Component : Component
53668
53669            AMF.Standard_Profile_L2.Processes.Standard_Profile_L2_Process_Access
53670             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Component
53671               (AMF.UML.Components.UML_Component_Access (AMF.Holders.Elements.Element (Value)));
53672
53673         else
53674            raise Program_Error;
53675         end if;
53676      end Standard_Profile_L2_Process_Set;
53677
53678      -----------------------------------------
53679      -- Standard_Profile_L2_Realization_Set --
53680      -----------------------------------------
53681
53682      procedure Standard_Profile_L2_Realization_Set is
53683      begin
53684         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Realization_Base_Classifier_A_Extension_Realization then
53685            --  Realization::base_Classifier : Classifier
53686
53687            AMF.Standard_Profile_L2.Realizations.Standard_Profile_L2_Realization_Access
53688             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Classifier
53689               (AMF.UML.Classifiers.UML_Classifier_Access (AMF.Holders.Elements.Element (Value)));
53690
53691         else
53692            raise Program_Error;
53693         end if;
53694      end Standard_Profile_L2_Realization_Set;
53695
53696      ------------------------------------
53697      -- Standard_Profile_L2_Refine_Set --
53698      ------------------------------------
53699
53700      procedure Standard_Profile_L2_Refine_Set is
53701      begin
53702         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Refine_Base_Abstraction_A_Extension_Refine then
53703            --  Refine::base_Abstraction : Abstraction
53704
53705            AMF.Standard_Profile_L2.Refines.Standard_Profile_L2_Refine_Access
53706             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Abstraction
53707               (AMF.UML.Abstractions.UML_Abstraction_Access (AMF.Holders.Elements.Element (Value)));
53708
53709         else
53710            raise Program_Error;
53711         end if;
53712      end Standard_Profile_L2_Refine_Set;
53713
53714      --------------------------------------------
53715      -- Standard_Profile_L2_Responsibility_Set --
53716      --------------------------------------------
53717
53718      procedure Standard_Profile_L2_Responsibility_Set is
53719      begin
53720         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Responsibility_Base_Usage_A_Extension_Responsibility then
53721            --  Responsibility::base_Usage : Usage
53722
53723            AMF.Standard_Profile_L2.Responsibilities.Standard_Profile_L2_Responsibility_Access
53724             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Usage
53725               (AMF.UML.Usages.UML_Usage_Access (AMF.Holders.Elements.Element (Value)));
53726
53727         else
53728            raise Program_Error;
53729         end if;
53730      end Standard_Profile_L2_Responsibility_Set;
53731
53732      ------------------------------------
53733      -- Standard_Profile_L2_Script_Set --
53734      ------------------------------------
53735
53736      procedure Standard_Profile_L2_Script_Set is
53737      begin
53738         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_File_Base_Artifact_A_Extension_File then
53739            --  File::base_Artifact : Artifact
53740
53741            AMF.Standard_Profile_L2.Scripts.Standard_Profile_L2_Script_Access
53742             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Artifact
53743               (AMF.UML.Artifacts.UML_Artifact_Access (AMF.Holders.Elements.Element (Value)));
53744
53745         elsif Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Script_Base_Artifact_A_Extension_Script then
53746            --  Script::base_Artifact : Artifact
53747
53748            AMF.Standard_Profile_L2.Scripts.Standard_Profile_L2_Script_Access
53749             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Artifact
53750               (AMF.UML.Artifacts.UML_Artifact_Access (AMF.Holders.Elements.Element (Value)));
53751
53752         else
53753            raise Program_Error;
53754         end if;
53755      end Standard_Profile_L2_Script_Set;
53756
53757      ----------------------------------
53758      -- Standard_Profile_L2_Send_Set --
53759      ----------------------------------
53760
53761      procedure Standard_Profile_L2_Send_Set is
53762      begin
53763         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Send_Base_Usage_A_Extension_Send then
53764            --  Send::base_Usage : Usage
53765
53766            AMF.Standard_Profile_L2.Sends.Standard_Profile_L2_Send_Access
53767             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Usage
53768               (AMF.UML.Usages.UML_Usage_Access (AMF.Holders.Elements.Element (Value)));
53769
53770         else
53771            raise Program_Error;
53772         end if;
53773      end Standard_Profile_L2_Send_Set;
53774
53775      -------------------------------------
53776      -- Standard_Profile_L2_Service_Set --
53777      -------------------------------------
53778
53779      procedure Standard_Profile_L2_Service_Set is
53780      begin
53781         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Service_Base_Component_A_Extension_Service then
53782            --  Service::base_Component : Component
53783
53784            AMF.Standard_Profile_L2.Services.Standard_Profile_L2_Service_Access
53785             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Component
53786               (AMF.UML.Components.UML_Component_Access (AMF.Holders.Elements.Element (Value)));
53787
53788         else
53789            raise Program_Error;
53790         end if;
53791      end Standard_Profile_L2_Service_Set;
53792
53793      ------------------------------------
53794      -- Standard_Profile_L2_Source_Set --
53795      ------------------------------------
53796
53797      procedure Standard_Profile_L2_Source_Set is
53798      begin
53799         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_File_Base_Artifact_A_Extension_File then
53800            --  File::base_Artifact : Artifact
53801
53802            AMF.Standard_Profile_L2.Sources.Standard_Profile_L2_Source_Access
53803             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Artifact
53804               (AMF.UML.Artifacts.UML_Artifact_Access (AMF.Holders.Elements.Element (Value)));
53805
53806         elsif Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Source_Base_Artifact_A_Extension_Source then
53807            --  Source::base_Artifact : Artifact
53808
53809            AMF.Standard_Profile_L2.Sources.Standard_Profile_L2_Source_Access
53810             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Artifact
53811               (AMF.UML.Artifacts.UML_Artifact_Access (AMF.Holders.Elements.Element (Value)));
53812
53813         else
53814            raise Program_Error;
53815         end if;
53816      end Standard_Profile_L2_Source_Set;
53817
53818      -------------------------------------------
53819      -- Standard_Profile_L2_Specification_Set --
53820      -------------------------------------------
53821
53822      procedure Standard_Profile_L2_Specification_Set is
53823      begin
53824         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Specification_Base_Classifier_A_Extension_Specification then
53825            --  Specification::base_Classifier : Classifier
53826
53827            AMF.Standard_Profile_L2.Specifications.Standard_Profile_L2_Specification_Access
53828             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Classifier
53829               (AMF.UML.Classifiers.UML_Classifier_Access (AMF.Holders.Elements.Element (Value)));
53830
53831         else
53832            raise Program_Error;
53833         end if;
53834      end Standard_Profile_L2_Specification_Set;
53835
53836      ---------------------------------------
53837      -- Standard_Profile_L2_Subsystem_Set --
53838      ---------------------------------------
53839
53840      procedure Standard_Profile_L2_Subsystem_Set is
53841      begin
53842         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Subsystem_Base_Component_A_Extension_Subsystem then
53843            --  Subsystem::base_Component : Component
53844
53845            AMF.Standard_Profile_L2.Subsystems.Standard_Profile_L2_Subsystem_Access
53846             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Component
53847               (AMF.UML.Components.UML_Component_Access (AMF.Holders.Elements.Element (Value)));
53848
53849         else
53850            raise Program_Error;
53851         end if;
53852      end Standard_Profile_L2_Subsystem_Set;
53853
53854      -----------------------------------
53855      -- Standard_Profile_L2_Trace_Set --
53856      -----------------------------------
53857
53858      procedure Standard_Profile_L2_Trace_Set is
53859      begin
53860         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Trace_Base_Abstraction_A_Extension_Trace then
53861            --  Trace::base_Abstraction : Abstraction
53862
53863            AMF.Standard_Profile_L2.Traces.Standard_Profile_L2_Trace_Access
53864             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Abstraction
53865               (AMF.UML.Abstractions.UML_Abstraction_Access (AMF.Holders.Elements.Element (Value)));
53866
53867         else
53868            raise Program_Error;
53869         end if;
53870      end Standard_Profile_L2_Trace_Set;
53871
53872      ----------------------------------
53873      -- Standard_Profile_L2_Type_Set --
53874      ----------------------------------
53875
53876      procedure Standard_Profile_L2_Type_Set is
53877      begin
53878         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Type_Base_Class_A_Extension_Type then
53879            --  Type::base_Class : Class
53880
53881            AMF.Standard_Profile_L2.Types.Standard_Profile_L2_Type_Access
53882             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Class
53883               (AMF.UML.Classes.UML_Class_Access (AMF.Holders.Elements.Element (Value)));
53884
53885         else
53886            raise Program_Error;
53887         end if;
53888      end Standard_Profile_L2_Type_Set;
53889
53890      -------------------------------------
53891      -- Standard_Profile_L2_Utility_Set --
53892      -------------------------------------
53893
53894      procedure Standard_Profile_L2_Utility_Set is
53895      begin
53896         if Property = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MP_Standard_Profile_L2_Utility_Base_Class_A_Extension_Utility then
53897            --  Utility::base_Class : Class
53898
53899            AMF.Standard_Profile_L2.Utilities.Standard_Profile_L2_Utility_Access
53900             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Class
53901               (AMF.UML.Classes.UML_Class_Access (AMF.Holders.Elements.Element (Value)));
53902
53903         else
53904            raise Program_Error;
53905         end if;
53906      end Standard_Profile_L2_Utility_Set;
53907
53908      ---------------------------------------------
53909      -- Standard_Profile_L3_Build_Component_Set --
53910      ---------------------------------------------
53911
53912      procedure Standard_Profile_L3_Build_Component_Set is
53913      begin
53914         if Property = AMF.Internals.Tables.Standard_Profile_L3_Metamodel.MP_Standard_Profile_L3_Build_Component_Base_Component_A_Extension_Build_Component then
53915            --  BuildComponent::base_Component : Component
53916
53917            AMF.Standard_Profile_L3.Build_Components.Standard_Profile_L3_Build_Component_Access
53918             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Component
53919               (AMF.UML.Components.UML_Component_Access (AMF.Holders.Elements.Element (Value)));
53920
53921         else
53922            raise Program_Error;
53923         end if;
53924      end Standard_Profile_L3_Build_Component_Set;
53925
53926      ---------------------------------------
53927      -- Standard_Profile_L3_Metamodel_Set --
53928      ---------------------------------------
53929
53930      procedure Standard_Profile_L3_Metamodel_Set is
53931      begin
53932         if Property = AMF.Internals.Tables.Standard_Profile_L3_Metamodel.MP_Standard_Profile_L3_Metamodel_Base_Model_A_Extension_Metamodel then
53933            --  Metamodel::base_Model : Model
53934
53935            AMF.Standard_Profile_L3.Metamodels.Standard_Profile_L3_Metamodel_Access
53936             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Model
53937               (AMF.UML.Models.UML_Model_Access (AMF.Holders.Elements.Element (Value)));
53938
53939         else
53940            raise Program_Error;
53941         end if;
53942      end Standard_Profile_L3_Metamodel_Set;
53943
53944      ------------------------------------------
53945      -- Standard_Profile_L3_System_Model_Set --
53946      ------------------------------------------
53947
53948      procedure Standard_Profile_L3_System_Model_Set is
53949      begin
53950         if Property = AMF.Internals.Tables.Standard_Profile_L3_Metamodel.MP_Standard_Profile_L3_System_Model_Base_Model_A_Extension_System_Model then
53951            --  SystemModel::base_Model : Model
53952
53953            AMF.Standard_Profile_L3.System_Models.Standard_Profile_L3_System_Model_Access
53954             (AMF.Internals.Helpers.To_Element (Self)).Set_Base_Model
53955               (AMF.UML.Models.UML_Model_Access (AMF.Holders.Elements.Element (Value)));
53956
53957         else
53958            raise Program_Error;
53959         end if;
53960      end Standard_Profile_L3_System_Model_Set;
53961
53962      -------------------------
53963      -- UML_Abstraction_Set --
53964      -------------------------
53965
53966      procedure UML_Abstraction_Set is
53967      begin
53968         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Abstraction_Mapping_A_Abstraction then
53969            --  Abstraction::mapping : OpaqueExpression
53970
53971            AMF.UML.Abstractions.UML_Abstraction_Access
53972             (AMF.Internals.Helpers.To_Element (Self)).Set_Mapping
53973               (AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access (AMF.Holders.Elements.Element (Value)));
53974
53975         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
53976            --  NamedElement::name : String
53977
53978            AMF.UML.Abstractions.UML_Abstraction_Access
53979             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
53980               (AMF.Holders.Element (Value));
53981
53982         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
53983            --  NamedElement::nameExpression : StringExpression
53984
53985            AMF.UML.Abstractions.UML_Abstraction_Access
53986             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
53987               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
53988
53989         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
53990            --  ParameterableElement::owningTemplateParameter : TemplateParameter
53991
53992            AMF.UML.Abstractions.UML_Abstraction_Access
53993             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
53994               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
53995
53996         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
53997            --  ParameterableElement::templateParameter : TemplateParameter
53998
53999            AMF.UML.Abstractions.UML_Abstraction_Access
54000             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
54001               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
54002
54003         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
54004            --  NamedElement::visibility : VisibilityKind
54005
54006            AMF.UML.Abstractions.UML_Abstraction_Access
54007             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
54008               (AMF.UML.Holders.Element (Value));
54009
54010         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
54011            --  PackageableElement::visibility : VisibilityKind
54012
54013            AMF.UML.Abstractions.UML_Abstraction_Access
54014             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
54015               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
54016
54017         else
54018            raise Program_Error;
54019         end if;
54020      end UML_Abstraction_Set;
54021
54022      --------------------------------
54023      -- UML_Accept_Call_Action_Set --
54024      --------------------------------
54025
54026      procedure UML_Accept_Call_Action_Set is
54027      begin
54028         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
54029            --  ActivityNode::activity : Activity
54030
54031            AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
54032             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
54033               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
54034
54035         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
54036            --  ActivityNode::inStructuredNode : StructuredActivityNode
54037
54038            AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
54039             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
54040               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
54041
54042         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
54043            --  RedefinableElement::isLeaf : Boolean
54044
54045            AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
54046             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
54047               (League.Holders.Booleans.Element (Value));
54048
54049         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
54050            --  Action::isLocallyReentrant : Boolean
54051
54052            AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
54053             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
54054               (League.Holders.Booleans.Element (Value));
54055
54056         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Accept_Event_Action_Is_Unmarshall then
54057            --  AcceptEventAction::isUnmarshall : Boolean
54058
54059            AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
54060             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Unmarshall
54061               (League.Holders.Booleans.Element (Value));
54062
54063         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
54064            --  NamedElement::name : String
54065
54066            AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
54067             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
54068               (AMF.Holders.Element (Value));
54069
54070         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
54071            --  NamedElement::nameExpression : StringExpression
54072
54073            AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
54074             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
54075               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
54076
54077         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Accept_Call_Action_Return_Information_A_Accept_Call_Action then
54078            --  AcceptCallAction::returnInformation : OutputPin
54079
54080            AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
54081             (AMF.Internals.Helpers.To_Element (Self)).Set_Return_Information
54082               (AMF.UML.Output_Pins.UML_Output_Pin_Access (AMF.Holders.Elements.Element (Value)));
54083
54084         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
54085            --  NamedElement::visibility : VisibilityKind
54086
54087            AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access
54088             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
54089               (AMF.UML.Holders.Element (Value));
54090
54091         else
54092            raise Program_Error;
54093         end if;
54094      end UML_Accept_Call_Action_Set;
54095
54096      ---------------------------------
54097      -- UML_Accept_Event_Action_Set --
54098      ---------------------------------
54099
54100      procedure UML_Accept_Event_Action_Set is
54101      begin
54102         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
54103            --  ActivityNode::activity : Activity
54104
54105            AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
54106             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
54107               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
54108
54109         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
54110            --  ActivityNode::inStructuredNode : StructuredActivityNode
54111
54112            AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
54113             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
54114               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
54115
54116         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
54117            --  RedefinableElement::isLeaf : Boolean
54118
54119            AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
54120             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
54121               (League.Holders.Booleans.Element (Value));
54122
54123         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
54124            --  Action::isLocallyReentrant : Boolean
54125
54126            AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
54127             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
54128               (League.Holders.Booleans.Element (Value));
54129
54130         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Accept_Event_Action_Is_Unmarshall then
54131            --  AcceptEventAction::isUnmarshall : Boolean
54132
54133            AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
54134             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Unmarshall
54135               (League.Holders.Booleans.Element (Value));
54136
54137         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
54138            --  NamedElement::name : String
54139
54140            AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
54141             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
54142               (AMF.Holders.Element (Value));
54143
54144         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
54145            --  NamedElement::nameExpression : StringExpression
54146
54147            AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
54148             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
54149               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
54150
54151         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
54152            --  NamedElement::visibility : VisibilityKind
54153
54154            AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access
54155             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
54156               (AMF.UML.Holders.Element (Value));
54157
54158         else
54159            raise Program_Error;
54160         end if;
54161      end UML_Accept_Event_Action_Set;
54162
54163      --------------------------------------------
54164      -- UML_Action_Execution_Specification_Set --
54165      --------------------------------------------
54166
54167      procedure UML_Action_Execution_Specification_Set is
54168      begin
54169         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Execution_Specification_Action_A_Action_Execution_Specification then
54170            --  ActionExecutionSpecification::action : Action
54171
54172            AMF.UML.Action_Execution_Specifications.UML_Action_Execution_Specification_Access
54173             (AMF.Internals.Helpers.To_Element (Self)).Set_Action
54174               (AMF.UML.Actions.UML_Action_Access (AMF.Holders.Elements.Element (Value)));
54175
54176         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Interaction_Interaction_Fragment then
54177            --  InteractionFragment::enclosingInteraction : Interaction
54178
54179            AMF.UML.Action_Execution_Specifications.UML_Action_Execution_Specification_Access
54180             (AMF.Internals.Helpers.To_Element (Self)).Set_Enclosing_Interaction
54181               (AMF.UML.Interactions.UML_Interaction_Access (AMF.Holders.Elements.Element (Value)));
54182
54183         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Operand_Interaction_Operand_Fragment then
54184            --  InteractionFragment::enclosingOperand : InteractionOperand
54185
54186            AMF.UML.Action_Execution_Specifications.UML_Action_Execution_Specification_Access
54187             (AMF.Internals.Helpers.To_Element (Self)).Set_Enclosing_Operand
54188               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access (AMF.Holders.Elements.Element (Value)));
54189
54190         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Execution_Specification_Finish_A_Execution_Specification then
54191            --  ExecutionSpecification::finish : OccurrenceSpecification
54192
54193            AMF.UML.Action_Execution_Specifications.UML_Action_Execution_Specification_Access
54194             (AMF.Internals.Helpers.To_Element (Self)).Set_Finish
54195               (AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access (AMF.Holders.Elements.Element (Value)));
54196
54197         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
54198            --  NamedElement::name : String
54199
54200            AMF.UML.Action_Execution_Specifications.UML_Action_Execution_Specification_Access
54201             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
54202               (AMF.Holders.Element (Value));
54203
54204         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
54205            --  NamedElement::nameExpression : StringExpression
54206
54207            AMF.UML.Action_Execution_Specifications.UML_Action_Execution_Specification_Access
54208             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
54209               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
54210
54211         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Execution_Specification_Start_A_Execution_Specification then
54212            --  ExecutionSpecification::start : OccurrenceSpecification
54213
54214            AMF.UML.Action_Execution_Specifications.UML_Action_Execution_Specification_Access
54215             (AMF.Internals.Helpers.To_Element (Self)).Set_Start
54216               (AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access (AMF.Holders.Elements.Element (Value)));
54217
54218         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
54219            --  NamedElement::visibility : VisibilityKind
54220
54221            AMF.UML.Action_Execution_Specifications.UML_Action_Execution_Specification_Access
54222             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
54223               (AMF.UML.Holders.Element (Value));
54224
54225         else
54226            raise Program_Error;
54227         end if;
54228      end UML_Action_Execution_Specification_Set;
54229
54230      ------------------------------
54231      -- UML_Action_Input_Pin_Set --
54232      ------------------------------
54233
54234      procedure UML_Action_Input_Pin_Set is
54235      begin
54236         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
54237            --  ActivityNode::activity : Activity
54238
54239            AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
54240             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
54241               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
54242
54243         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Input_Pin_From_Action_A_Action_Input_Pin then
54244            --  ActionInputPin::fromAction : Action
54245
54246            AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
54247             (AMF.Internals.Helpers.To_Element (Self)).Set_From_Action
54248               (AMF.UML.Actions.UML_Action_Access (AMF.Holders.Elements.Element (Value)));
54249
54250         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
54251            --  ActivityNode::inStructuredNode : StructuredActivityNode
54252
54253            AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
54254             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
54255               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
54256
54257         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Pin_Is_Control then
54258            --  Pin::isControl : Boolean
54259
54260            AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
54261             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Control
54262               (League.Holders.Booleans.Element (Value));
54263
54264         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Is_Control_Type then
54265            --  ObjectNode::isControlType : Boolean
54266
54267            AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
54268             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Control_Type
54269               (League.Holders.Booleans.Element (Value));
54270
54271         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
54272            --  RedefinableElement::isLeaf : Boolean
54273
54274            AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
54275             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
54276               (League.Holders.Booleans.Element (Value));
54277
54278         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Ordered then
54279            --  MultiplicityElement::isOrdered : Boolean
54280
54281            AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
54282             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Ordered
54283               (League.Holders.Booleans.Element (Value));
54284
54285         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Unique then
54286            --  MultiplicityElement::isUnique : Boolean
54287
54288            AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
54289             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Unique
54290               (League.Holders.Booleans.Element (Value));
54291
54292         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower_Value_A_Owning_Lower then
54293            --  MultiplicityElement::lowerValue : ValueSpecification
54294
54295            AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
54296             (AMF.Internals.Helpers.To_Element (Self)).Set_Lower_Value
54297               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
54298
54299         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
54300            --  NamedElement::name : String
54301
54302            AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
54303             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
54304               (AMF.Holders.Element (Value));
54305
54306         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
54307            --  NamedElement::nameExpression : StringExpression
54308
54309            AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
54310             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
54311               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
54312
54313         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Ordering then
54314            --  ObjectNode::ordering : ObjectNodeOrderingKind
54315
54316            AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
54317             (AMF.Internals.Helpers.To_Element (Self)).Set_Ordering
54318               (AMF.UML.Holders.Object_Node_Ordering_Kinds.Element (Value));
54319
54320         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Selection_A_Object_Node then
54321            --  ObjectNode::selection : Behavior
54322
54323            AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
54324             (AMF.Internals.Helpers.To_Element (Self)).Set_Selection
54325               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
54326
54327         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
54328            --  TypedElement::type : Type
54329
54330            AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
54331             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
54332               (AMF.UML.Types.UML_Type_Access (AMF.Holders.Elements.Element (Value)));
54333
54334         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Upper_Bound_A_Object_Node then
54335            --  ObjectNode::upperBound : ValueSpecification
54336
54337            AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
54338             (AMF.Internals.Helpers.To_Element (Self)).Set_Upper_Bound
54339               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
54340
54341         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper_Value_A_Owning_Upper then
54342            --  MultiplicityElement::upperValue : ValueSpecification
54343
54344            AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
54345             (AMF.Internals.Helpers.To_Element (Self)).Set_Upper_Value
54346               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
54347
54348         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
54349            --  NamedElement::visibility : VisibilityKind
54350
54351            AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access
54352             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
54353               (AMF.UML.Holders.Element (Value));
54354
54355         else
54356            raise Program_Error;
54357         end if;
54358      end UML_Action_Input_Pin_Set;
54359
54360      ----------------------
54361      -- UML_Activity_Set --
54362      ----------------------
54363
54364      procedure UML_Activity_Set is
54365      begin
54366         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
54367            --  BehavioredClassifier::classifierBehavior : Behavior
54368
54369            AMF.UML.Activities.UML_Activity_Access
54370             (AMF.Internals.Helpers.To_Element (Self)).Set_Classifier_Behavior
54371               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
54372
54373         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Abstract then
54374            --  Class::isAbstract : Boolean
54375
54376            AMF.UML.Activities.UML_Activity_Access
54377             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
54378               (League.Holders.Booleans.Element (Value));
54379
54380         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
54381            --  Classifier::isAbstract : Boolean
54382
54383            AMF.UML.Activities.UML_Activity_Access
54384             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
54385               (League.Holders.Booleans.Element (Value));
54386
54387         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Active then
54388            --  Class::isActive : Boolean
54389
54390            AMF.UML.Activities.UML_Activity_Access
54391             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Active
54392               (League.Holders.Booleans.Element (Value));
54393
54394         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
54395            --  Classifier::isFinalSpecialization : Boolean
54396
54397            AMF.UML.Activities.UML_Activity_Access
54398             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization
54399               (League.Holders.Booleans.Element (Value));
54400
54401         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
54402            --  RedefinableElement::isLeaf : Boolean
54403
54404            AMF.UML.Activities.UML_Activity_Access
54405             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
54406               (League.Holders.Booleans.Element (Value));
54407
54408         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Is_Read_Only then
54409            --  Activity::isReadOnly : Boolean
54410
54411            AMF.UML.Activities.UML_Activity_Access
54412             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Read_Only
54413               (League.Holders.Booleans.Element (Value));
54414
54415         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Is_Reentrant then
54416            --  Behavior::isReentrant : Boolean
54417
54418            AMF.UML.Activities.UML_Activity_Access
54419             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Reentrant
54420               (League.Holders.Booleans.Element (Value));
54421
54422         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Is_Single_Execution then
54423            --  Activity::isSingleExecution : Boolean
54424
54425            AMF.UML.Activities.UML_Activity_Access
54426             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Single_Execution
54427               (League.Holders.Booleans.Element (Value));
54428
54429         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
54430            --  NamedElement::name : String
54431
54432            AMF.UML.Activities.UML_Activity_Access
54433             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
54434               (AMF.Holders.Element (Value));
54435
54436         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
54437            --  NamedElement::nameExpression : StringExpression
54438
54439            AMF.UML.Activities.UML_Activity_Access
54440             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
54441               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
54442
54443         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
54444            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
54445
54446            AMF.UML.Activities.UML_Activity_Access
54447             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
54448               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
54449
54450         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
54451            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
54452
54453            AMF.UML.Activities.UML_Activity_Access
54454             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
54455               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
54456
54457         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
54458            --  ParameterableElement::owningTemplateParameter : TemplateParameter
54459
54460            AMF.UML.Activities.UML_Activity_Access
54461             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
54462               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
54463
54464         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
54465            --  Type::package : Package
54466
54467            AMF.UML.Activities.UML_Activity_Access
54468             (AMF.Internals.Helpers.To_Element (Self)).Set_Package
54469               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
54470
54471         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
54472            --  Classifier::representation : CollaborationUse
54473
54474            AMF.UML.Activities.UML_Activity_Access
54475             (AMF.Internals.Helpers.To_Element (Self)).Set_Representation
54476               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access (AMF.Holders.Elements.Element (Value)));
54477
54478         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Specification_Behavioral_Feature_Method then
54479            --  Behavior::specification : BehavioralFeature
54480
54481            AMF.UML.Activities.UML_Activity_Access
54482             (AMF.Internals.Helpers.To_Element (Self)).Set_Specification
54483               (AMF.UML.Behavioral_Features.UML_Behavioral_Feature_Access (AMF.Holders.Elements.Element (Value)));
54484
54485         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
54486            --  Classifier::templateParameter : ClassifierTemplateParameter
54487
54488            AMF.UML.Activities.UML_Activity_Access
54489             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
54490               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
54491
54492         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
54493            --  ParameterableElement::templateParameter : TemplateParameter
54494
54495            AMF.UML.Activities.UML_Activity_Access
54496             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
54497               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
54498
54499         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
54500            --  NamedElement::visibility : VisibilityKind
54501
54502            AMF.UML.Activities.UML_Activity_Access
54503             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
54504               (AMF.UML.Holders.Element (Value));
54505
54506         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
54507            --  PackageableElement::visibility : VisibilityKind
54508
54509            AMF.UML.Activities.UML_Activity_Access
54510             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
54511               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
54512
54513         else
54514            raise Program_Error;
54515         end if;
54516      end UML_Activity_Set;
54517
54518      ---------------------------------
54519      -- UML_Activity_Final_Node_Set --
54520      ---------------------------------
54521
54522      procedure UML_Activity_Final_Node_Set is
54523      begin
54524         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
54525            --  ActivityNode::activity : Activity
54526
54527            AMF.UML.Activity_Final_Nodes.UML_Activity_Final_Node_Access
54528             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
54529               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
54530
54531         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
54532            --  ActivityNode::inStructuredNode : StructuredActivityNode
54533
54534            AMF.UML.Activity_Final_Nodes.UML_Activity_Final_Node_Access
54535             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
54536               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
54537
54538         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
54539            --  RedefinableElement::isLeaf : Boolean
54540
54541            AMF.UML.Activity_Final_Nodes.UML_Activity_Final_Node_Access
54542             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
54543               (League.Holders.Booleans.Element (Value));
54544
54545         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
54546            --  NamedElement::name : String
54547
54548            AMF.UML.Activity_Final_Nodes.UML_Activity_Final_Node_Access
54549             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
54550               (AMF.Holders.Element (Value));
54551
54552         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
54553            --  NamedElement::nameExpression : StringExpression
54554
54555            AMF.UML.Activity_Final_Nodes.UML_Activity_Final_Node_Access
54556             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
54557               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
54558
54559         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
54560            --  NamedElement::visibility : VisibilityKind
54561
54562            AMF.UML.Activity_Final_Nodes.UML_Activity_Final_Node_Access
54563             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
54564               (AMF.UML.Holders.Element (Value));
54565
54566         else
54567            raise Program_Error;
54568         end if;
54569      end UML_Activity_Final_Node_Set;
54570
54571      -------------------------------------
54572      -- UML_Activity_Parameter_Node_Set --
54573      -------------------------------------
54574
54575      procedure UML_Activity_Parameter_Node_Set is
54576      begin
54577         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
54578            --  ActivityNode::activity : Activity
54579
54580            AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
54581             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
54582               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
54583
54584         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
54585            --  ActivityNode::inStructuredNode : StructuredActivityNode
54586
54587            AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
54588             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
54589               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
54590
54591         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Is_Control_Type then
54592            --  ObjectNode::isControlType : Boolean
54593
54594            AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
54595             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Control_Type
54596               (League.Holders.Booleans.Element (Value));
54597
54598         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
54599            --  RedefinableElement::isLeaf : Boolean
54600
54601            AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
54602             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
54603               (League.Holders.Booleans.Element (Value));
54604
54605         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
54606            --  NamedElement::name : String
54607
54608            AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
54609             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
54610               (AMF.Holders.Element (Value));
54611
54612         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
54613            --  NamedElement::nameExpression : StringExpression
54614
54615            AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
54616             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
54617               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
54618
54619         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Ordering then
54620            --  ObjectNode::ordering : ObjectNodeOrderingKind
54621
54622            AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
54623             (AMF.Internals.Helpers.To_Element (Self)).Set_Ordering
54624               (AMF.UML.Holders.Object_Node_Ordering_Kinds.Element (Value));
54625
54626         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Parameter_Node_Parameter_A_Activity_Parameter_Node then
54627            --  ActivityParameterNode::parameter : Parameter
54628
54629            AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
54630             (AMF.Internals.Helpers.To_Element (Self)).Set_Parameter
54631               (AMF.UML.Parameters.UML_Parameter_Access (AMF.Holders.Elements.Element (Value)));
54632
54633         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Selection_A_Object_Node then
54634            --  ObjectNode::selection : Behavior
54635
54636            AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
54637             (AMF.Internals.Helpers.To_Element (Self)).Set_Selection
54638               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
54639
54640         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
54641            --  TypedElement::type : Type
54642
54643            AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
54644             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
54645               (AMF.UML.Types.UML_Type_Access (AMF.Holders.Elements.Element (Value)));
54646
54647         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Upper_Bound_A_Object_Node then
54648            --  ObjectNode::upperBound : ValueSpecification
54649
54650            AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
54651             (AMF.Internals.Helpers.To_Element (Self)).Set_Upper_Bound
54652               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
54653
54654         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
54655            --  NamedElement::visibility : VisibilityKind
54656
54657            AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access
54658             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
54659               (AMF.UML.Holders.Element (Value));
54660
54661         else
54662            raise Program_Error;
54663         end if;
54664      end UML_Activity_Parameter_Node_Set;
54665
54666      --------------------------------
54667      -- UML_Activity_Partition_Set --
54668      --------------------------------
54669
54670      procedure UML_Activity_Partition_Set is
54671      begin
54672         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_In_Activity_Activity_Group then
54673            --  ActivityGroup::inActivity : Activity
54674
54675            AMF.UML.Activity_Partitions.UML_Activity_Partition_Access
54676             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Activity
54677               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
54678
54679         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Partition_Is_Dimension then
54680            --  ActivityPartition::isDimension : Boolean
54681
54682            AMF.UML.Activity_Partitions.UML_Activity_Partition_Access
54683             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Dimension
54684               (League.Holders.Booleans.Element (Value));
54685
54686         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Partition_Is_External then
54687            --  ActivityPartition::isExternal : Boolean
54688
54689            AMF.UML.Activity_Partitions.UML_Activity_Partition_Access
54690             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_External
54691               (League.Holders.Booleans.Element (Value));
54692
54693         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
54694            --  NamedElement::name : String
54695
54696            AMF.UML.Activity_Partitions.UML_Activity_Partition_Access
54697             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
54698               (AMF.Holders.Element (Value));
54699
54700         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
54701            --  NamedElement::nameExpression : StringExpression
54702
54703            AMF.UML.Activity_Partitions.UML_Activity_Partition_Access
54704             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
54705               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
54706
54707         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Partition_Represents_A_Activity_Partition then
54708            --  ActivityPartition::represents : Element
54709
54710            AMF.UML.Activity_Partitions.UML_Activity_Partition_Access
54711             (AMF.Internals.Helpers.To_Element (Self)).Set_Represents
54712               (AMF.UML.Elements.UML_Element_Access (AMF.Holders.Elements.Element (Value)));
54713
54714         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Partition_Super_Partition_Activity_Partition_Subpartition then
54715            --  ActivityPartition::superPartition : ActivityPartition
54716
54717            AMF.UML.Activity_Partitions.UML_Activity_Partition_Access
54718             (AMF.Internals.Helpers.To_Element (Self)).Set_Super_Partition
54719               (AMF.UML.Activity_Partitions.UML_Activity_Partition_Access (AMF.Holders.Elements.Element (Value)));
54720
54721         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
54722            --  NamedElement::visibility : VisibilityKind
54723
54724            AMF.UML.Activity_Partitions.UML_Activity_Partition_Access
54725             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
54726               (AMF.UML.Holders.Element (Value));
54727
54728         else
54729            raise Program_Error;
54730         end if;
54731      end UML_Activity_Partition_Set;
54732
54733      -------------------
54734      -- UML_Actor_Set --
54735      -------------------
54736
54737      procedure UML_Actor_Set is
54738      begin
54739         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
54740            --  BehavioredClassifier::classifierBehavior : Behavior
54741
54742            AMF.UML.Actors.UML_Actor_Access
54743             (AMF.Internals.Helpers.To_Element (Self)).Set_Classifier_Behavior
54744               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
54745
54746         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
54747            --  Classifier::isAbstract : Boolean
54748
54749            AMF.UML.Actors.UML_Actor_Access
54750             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
54751               (League.Holders.Booleans.Element (Value));
54752
54753         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
54754            --  Classifier::isFinalSpecialization : Boolean
54755
54756            AMF.UML.Actors.UML_Actor_Access
54757             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization
54758               (League.Holders.Booleans.Element (Value));
54759
54760         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
54761            --  RedefinableElement::isLeaf : Boolean
54762
54763            AMF.UML.Actors.UML_Actor_Access
54764             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
54765               (League.Holders.Booleans.Element (Value));
54766
54767         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
54768            --  NamedElement::name : String
54769
54770            AMF.UML.Actors.UML_Actor_Access
54771             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
54772               (AMF.Holders.Element (Value));
54773
54774         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
54775            --  NamedElement::nameExpression : StringExpression
54776
54777            AMF.UML.Actors.UML_Actor_Access
54778             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
54779               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
54780
54781         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
54782            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
54783
54784            AMF.UML.Actors.UML_Actor_Access
54785             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
54786               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
54787
54788         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
54789            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
54790
54791            AMF.UML.Actors.UML_Actor_Access
54792             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
54793               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
54794
54795         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
54796            --  ParameterableElement::owningTemplateParameter : TemplateParameter
54797
54798            AMF.UML.Actors.UML_Actor_Access
54799             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
54800               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
54801
54802         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
54803            --  Type::package : Package
54804
54805            AMF.UML.Actors.UML_Actor_Access
54806             (AMF.Internals.Helpers.To_Element (Self)).Set_Package
54807               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
54808
54809         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
54810            --  Classifier::representation : CollaborationUse
54811
54812            AMF.UML.Actors.UML_Actor_Access
54813             (AMF.Internals.Helpers.To_Element (Self)).Set_Representation
54814               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access (AMF.Holders.Elements.Element (Value)));
54815
54816         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
54817            --  Classifier::templateParameter : ClassifierTemplateParameter
54818
54819            AMF.UML.Actors.UML_Actor_Access
54820             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
54821               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
54822
54823         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
54824            --  ParameterableElement::templateParameter : TemplateParameter
54825
54826            AMF.UML.Actors.UML_Actor_Access
54827             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
54828               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
54829
54830         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
54831            --  NamedElement::visibility : VisibilityKind
54832
54833            AMF.UML.Actors.UML_Actor_Access
54834             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
54835               (AMF.UML.Holders.Element (Value));
54836
54837         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
54838            --  PackageableElement::visibility : VisibilityKind
54839
54840            AMF.UML.Actors.UML_Actor_Access
54841             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
54842               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
54843
54844         else
54845            raise Program_Error;
54846         end if;
54847      end UML_Actor_Set;
54848
54849      -------------------------------------------------
54850      -- UML_Add_Structural_Feature_Value_Action_Set --
54851      -------------------------------------------------
54852
54853      procedure UML_Add_Structural_Feature_Value_Action_Set is
54854      begin
54855         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
54856            --  ActivityNode::activity : Activity
54857
54858            AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
54859             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
54860               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
54861
54862         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
54863            --  ActivityNode::inStructuredNode : StructuredActivityNode
54864
54865            AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
54866             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
54867               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
54868
54869         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Add_Structural_Feature_Value_Action_Insert_At_A_Add_Structural_Feature_Value_Action then
54870            --  AddStructuralFeatureValueAction::insertAt : InputPin
54871
54872            AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
54873             (AMF.Internals.Helpers.To_Element (Self)).Set_Insert_At
54874               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
54875
54876         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
54877            --  RedefinableElement::isLeaf : Boolean
54878
54879            AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
54880             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
54881               (League.Holders.Booleans.Element (Value));
54882
54883         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
54884            --  Action::isLocallyReentrant : Boolean
54885
54886            AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
54887             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
54888               (League.Holders.Booleans.Element (Value));
54889
54890         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Add_Structural_Feature_Value_Action_Is_Replace_All then
54891            --  AddStructuralFeatureValueAction::isReplaceAll : Boolean
54892
54893            AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
54894             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Replace_All
54895               (League.Holders.Booleans.Element (Value));
54896
54897         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
54898            --  NamedElement::name : String
54899
54900            AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
54901             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
54902               (AMF.Holders.Element (Value));
54903
54904         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
54905            --  NamedElement::nameExpression : StringExpression
54906
54907            AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
54908             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
54909               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
54910
54911         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structural_Feature_Action_Object_A_Structural_Feature_Action then
54912            --  StructuralFeatureAction::object : InputPin
54913
54914            AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
54915             (AMF.Internals.Helpers.To_Element (Self)).Set_Object
54916               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
54917
54918         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Write_Structural_Feature_Action_Result_A_Write_Structural_Feature_Action then
54919            --  WriteStructuralFeatureAction::result : OutputPin
54920
54921            AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
54922             (AMF.Internals.Helpers.To_Element (Self)).Set_Result
54923               (AMF.UML.Output_Pins.UML_Output_Pin_Access (AMF.Holders.Elements.Element (Value)));
54924
54925         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structural_Feature_Action_Structural_Feature_A_Structural_Feature_Action then
54926            --  StructuralFeatureAction::structuralFeature : StructuralFeature
54927
54928            AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
54929             (AMF.Internals.Helpers.To_Element (Self)).Set_Structural_Feature
54930               (AMF.UML.Structural_Features.UML_Structural_Feature_Access (AMF.Holders.Elements.Element (Value)));
54931
54932         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Write_Structural_Feature_Action_Value_A_Write_Structural_Feature_Action then
54933            --  WriteStructuralFeatureAction::value : InputPin
54934
54935            AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
54936             (AMF.Internals.Helpers.To_Element (Self)).Set_Value
54937               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
54938
54939         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
54940            --  NamedElement::visibility : VisibilityKind
54941
54942            AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access
54943             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
54944               (AMF.UML.Holders.Element (Value));
54945
54946         else
54947            raise Program_Error;
54948         end if;
54949      end UML_Add_Structural_Feature_Value_Action_Set;
54950
54951      ---------------------------------------
54952      -- UML_Add_Variable_Value_Action_Set --
54953      ---------------------------------------
54954
54955      procedure UML_Add_Variable_Value_Action_Set is
54956      begin
54957         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
54958            --  ActivityNode::activity : Activity
54959
54960            AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
54961             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
54962               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
54963
54964         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
54965            --  ActivityNode::inStructuredNode : StructuredActivityNode
54966
54967            AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
54968             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
54969               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
54970
54971         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Add_Variable_Value_Action_Insert_At_A_Add_Variable_Value_Action then
54972            --  AddVariableValueAction::insertAt : InputPin
54973
54974            AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
54975             (AMF.Internals.Helpers.To_Element (Self)).Set_Insert_At
54976               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
54977
54978         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
54979            --  RedefinableElement::isLeaf : Boolean
54980
54981            AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
54982             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
54983               (League.Holders.Booleans.Element (Value));
54984
54985         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
54986            --  Action::isLocallyReentrant : Boolean
54987
54988            AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
54989             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
54990               (League.Holders.Booleans.Element (Value));
54991
54992         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Add_Variable_Value_Action_Is_Replace_All then
54993            --  AddVariableValueAction::isReplaceAll : Boolean
54994
54995            AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
54996             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Replace_All
54997               (League.Holders.Booleans.Element (Value));
54998
54999         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
55000            --  NamedElement::name : String
55001
55002            AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
55003             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
55004               (AMF.Holders.Element (Value));
55005
55006         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
55007            --  NamedElement::nameExpression : StringExpression
55008
55009            AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
55010             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
55011               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
55012
55013         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Write_Variable_Action_Value_A_Write_Variable_Action then
55014            --  WriteVariableAction::value : InputPin
55015
55016            AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
55017             (AMF.Internals.Helpers.To_Element (Self)).Set_Value
55018               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
55019
55020         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Variable_Action_Variable_A_Variable_Action then
55021            --  VariableAction::variable : Variable
55022
55023            AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
55024             (AMF.Internals.Helpers.To_Element (Self)).Set_Variable
55025               (AMF.UML.Variables.UML_Variable_Access (AMF.Holders.Elements.Element (Value)));
55026
55027         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
55028            --  NamedElement::visibility : VisibilityKind
55029
55030            AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access
55031             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
55032               (AMF.UML.Holders.Element (Value));
55033
55034         else
55035            raise Program_Error;
55036         end if;
55037      end UML_Add_Variable_Value_Action_Set;
55038
55039      -------------------------------
55040      -- UML_Any_Receive_Event_Set --
55041      -------------------------------
55042
55043      procedure UML_Any_Receive_Event_Set is
55044      begin
55045         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
55046            --  NamedElement::name : String
55047
55048            AMF.UML.Any_Receive_Events.UML_Any_Receive_Event_Access
55049             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
55050               (AMF.Holders.Element (Value));
55051
55052         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
55053            --  NamedElement::nameExpression : StringExpression
55054
55055            AMF.UML.Any_Receive_Events.UML_Any_Receive_Event_Access
55056             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
55057               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
55058
55059         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
55060            --  ParameterableElement::owningTemplateParameter : TemplateParameter
55061
55062            AMF.UML.Any_Receive_Events.UML_Any_Receive_Event_Access
55063             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
55064               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
55065
55066         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
55067            --  ParameterableElement::templateParameter : TemplateParameter
55068
55069            AMF.UML.Any_Receive_Events.UML_Any_Receive_Event_Access
55070             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
55071               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
55072
55073         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
55074            --  NamedElement::visibility : VisibilityKind
55075
55076            AMF.UML.Any_Receive_Events.UML_Any_Receive_Event_Access
55077             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
55078               (AMF.UML.Holders.Element (Value));
55079
55080         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
55081            --  PackageableElement::visibility : VisibilityKind
55082
55083            AMF.UML.Any_Receive_Events.UML_Any_Receive_Event_Access
55084             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
55085               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
55086
55087         else
55088            raise Program_Error;
55089         end if;
55090      end UML_Any_Receive_Event_Set;
55091
55092      ----------------------
55093      -- UML_Artifact_Set --
55094      ----------------------
55095
55096      procedure UML_Artifact_Set is
55097      begin
55098         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Artifact_File_Name then
55099            --  Artifact::fileName : String
55100
55101            AMF.UML.Artifacts.UML_Artifact_Access
55102             (AMF.Internals.Helpers.To_Element (Self)).Set_File_Name
55103               (AMF.Holders.Element (Value));
55104
55105         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
55106            --  Classifier::isAbstract : Boolean
55107
55108            AMF.UML.Artifacts.UML_Artifact_Access
55109             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
55110               (League.Holders.Booleans.Element (Value));
55111
55112         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
55113            --  Classifier::isFinalSpecialization : Boolean
55114
55115            AMF.UML.Artifacts.UML_Artifact_Access
55116             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization
55117               (League.Holders.Booleans.Element (Value));
55118
55119         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
55120            --  RedefinableElement::isLeaf : Boolean
55121
55122            AMF.UML.Artifacts.UML_Artifact_Access
55123             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
55124               (League.Holders.Booleans.Element (Value));
55125
55126         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
55127            --  NamedElement::name : String
55128
55129            AMF.UML.Artifacts.UML_Artifact_Access
55130             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
55131               (AMF.Holders.Element (Value));
55132
55133         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
55134            --  NamedElement::nameExpression : StringExpression
55135
55136            AMF.UML.Artifacts.UML_Artifact_Access
55137             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
55138               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
55139
55140         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
55141            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
55142
55143            AMF.UML.Artifacts.UML_Artifact_Access
55144             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
55145               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
55146
55147         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
55148            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
55149
55150            AMF.UML.Artifacts.UML_Artifact_Access
55151             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
55152               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
55153
55154         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
55155            --  ParameterableElement::owningTemplateParameter : TemplateParameter
55156
55157            AMF.UML.Artifacts.UML_Artifact_Access
55158             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
55159               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
55160
55161         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
55162            --  Type::package : Package
55163
55164            AMF.UML.Artifacts.UML_Artifact_Access
55165             (AMF.Internals.Helpers.To_Element (Self)).Set_Package
55166               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
55167
55168         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
55169            --  Classifier::representation : CollaborationUse
55170
55171            AMF.UML.Artifacts.UML_Artifact_Access
55172             (AMF.Internals.Helpers.To_Element (Self)).Set_Representation
55173               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access (AMF.Holders.Elements.Element (Value)));
55174
55175         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
55176            --  Classifier::templateParameter : ClassifierTemplateParameter
55177
55178            AMF.UML.Artifacts.UML_Artifact_Access
55179             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
55180               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
55181
55182         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
55183            --  ParameterableElement::templateParameter : TemplateParameter
55184
55185            AMF.UML.Artifacts.UML_Artifact_Access
55186             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
55187               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
55188
55189         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
55190            --  NamedElement::visibility : VisibilityKind
55191
55192            AMF.UML.Artifacts.UML_Artifact_Access
55193             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
55194               (AMF.UML.Holders.Element (Value));
55195
55196         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
55197            --  PackageableElement::visibility : VisibilityKind
55198
55199            AMF.UML.Artifacts.UML_Artifact_Access
55200             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
55201               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
55202
55203         else
55204            raise Program_Error;
55205         end if;
55206      end UML_Artifact_Set;
55207
55208      -------------------------
55209      -- UML_Association_Set --
55210      -------------------------
55211
55212      procedure UML_Association_Set is
55213      begin
55214         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
55215            --  Classifier::isAbstract : Boolean
55216
55217            AMF.UML.Associations.UML_Association_Access
55218             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
55219               (League.Holders.Booleans.Element (Value));
55220
55221         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Is_Derived then
55222            --  Association::isDerived : Boolean
55223
55224            AMF.UML.Associations.UML_Association_Access
55225             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Derived
55226               (League.Holders.Booleans.Element (Value));
55227
55228         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
55229            --  Classifier::isFinalSpecialization : Boolean
55230
55231            AMF.UML.Associations.UML_Association_Access
55232             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization
55233               (League.Holders.Booleans.Element (Value));
55234
55235         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
55236            --  RedefinableElement::isLeaf : Boolean
55237
55238            AMF.UML.Associations.UML_Association_Access
55239             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
55240               (League.Holders.Booleans.Element (Value));
55241
55242         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
55243            --  NamedElement::name : String
55244
55245            AMF.UML.Associations.UML_Association_Access
55246             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
55247               (AMF.Holders.Element (Value));
55248
55249         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
55250            --  NamedElement::nameExpression : StringExpression
55251
55252            AMF.UML.Associations.UML_Association_Access
55253             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
55254               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
55255
55256         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
55257            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
55258
55259            AMF.UML.Associations.UML_Association_Access
55260             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
55261               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
55262
55263         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
55264            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
55265
55266            AMF.UML.Associations.UML_Association_Access
55267             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
55268               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
55269
55270         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
55271            --  ParameterableElement::owningTemplateParameter : TemplateParameter
55272
55273            AMF.UML.Associations.UML_Association_Access
55274             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
55275               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
55276
55277         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
55278            --  Type::package : Package
55279
55280            AMF.UML.Associations.UML_Association_Access
55281             (AMF.Internals.Helpers.To_Element (Self)).Set_Package
55282               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
55283
55284         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
55285            --  Classifier::representation : CollaborationUse
55286
55287            AMF.UML.Associations.UML_Association_Access
55288             (AMF.Internals.Helpers.To_Element (Self)).Set_Representation
55289               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access (AMF.Holders.Elements.Element (Value)));
55290
55291         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
55292            --  Classifier::templateParameter : ClassifierTemplateParameter
55293
55294            AMF.UML.Associations.UML_Association_Access
55295             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
55296               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
55297
55298         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
55299            --  ParameterableElement::templateParameter : TemplateParameter
55300
55301            AMF.UML.Associations.UML_Association_Access
55302             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
55303               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
55304
55305         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
55306            --  NamedElement::visibility : VisibilityKind
55307
55308            AMF.UML.Associations.UML_Association_Access
55309             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
55310               (AMF.UML.Holders.Element (Value));
55311
55312         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
55313            --  PackageableElement::visibility : VisibilityKind
55314
55315            AMF.UML.Associations.UML_Association_Access
55316             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
55317               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
55318
55319         else
55320            raise Program_Error;
55321         end if;
55322      end UML_Association_Set;
55323
55324      -------------------------------
55325      -- UML_Association_Class_Set --
55326      -------------------------------
55327
55328      procedure UML_Association_Class_Set is
55329      begin
55330         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
55331            --  BehavioredClassifier::classifierBehavior : Behavior
55332
55333            AMF.UML.Association_Classes.UML_Association_Class_Access
55334             (AMF.Internals.Helpers.To_Element (Self)).Set_Classifier_Behavior
55335               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
55336
55337         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Abstract then
55338            --  Class::isAbstract : Boolean
55339
55340            AMF.UML.Association_Classes.UML_Association_Class_Access
55341             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
55342               (League.Holders.Booleans.Element (Value));
55343
55344         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
55345            --  Classifier::isAbstract : Boolean
55346
55347            AMF.UML.Association_Classes.UML_Association_Class_Access
55348             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
55349               (League.Holders.Booleans.Element (Value));
55350
55351         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Active then
55352            --  Class::isActive : Boolean
55353
55354            AMF.UML.Association_Classes.UML_Association_Class_Access
55355             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Active
55356               (League.Holders.Booleans.Element (Value));
55357
55358         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Is_Derived then
55359            --  Association::isDerived : Boolean
55360
55361            AMF.UML.Association_Classes.UML_Association_Class_Access
55362             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Derived
55363               (League.Holders.Booleans.Element (Value));
55364
55365         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
55366            --  Classifier::isFinalSpecialization : Boolean
55367
55368            AMF.UML.Association_Classes.UML_Association_Class_Access
55369             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization
55370               (League.Holders.Booleans.Element (Value));
55371
55372         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
55373            --  RedefinableElement::isLeaf : Boolean
55374
55375            AMF.UML.Association_Classes.UML_Association_Class_Access
55376             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
55377               (League.Holders.Booleans.Element (Value));
55378
55379         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
55380            --  NamedElement::name : String
55381
55382            AMF.UML.Association_Classes.UML_Association_Class_Access
55383             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
55384               (AMF.Holders.Element (Value));
55385
55386         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
55387            --  NamedElement::nameExpression : StringExpression
55388
55389            AMF.UML.Association_Classes.UML_Association_Class_Access
55390             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
55391               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
55392
55393         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
55394            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
55395
55396            AMF.UML.Association_Classes.UML_Association_Class_Access
55397             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
55398               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
55399
55400         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
55401            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
55402
55403            AMF.UML.Association_Classes.UML_Association_Class_Access
55404             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
55405               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
55406
55407         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
55408            --  ParameterableElement::owningTemplateParameter : TemplateParameter
55409
55410            AMF.UML.Association_Classes.UML_Association_Class_Access
55411             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
55412               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
55413
55414         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
55415            --  Type::package : Package
55416
55417            AMF.UML.Association_Classes.UML_Association_Class_Access
55418             (AMF.Internals.Helpers.To_Element (Self)).Set_Package
55419               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
55420
55421         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
55422            --  Classifier::representation : CollaborationUse
55423
55424            AMF.UML.Association_Classes.UML_Association_Class_Access
55425             (AMF.Internals.Helpers.To_Element (Self)).Set_Representation
55426               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access (AMF.Holders.Elements.Element (Value)));
55427
55428         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
55429            --  Classifier::templateParameter : ClassifierTemplateParameter
55430
55431            AMF.UML.Association_Classes.UML_Association_Class_Access
55432             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
55433               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
55434
55435         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
55436            --  ParameterableElement::templateParameter : TemplateParameter
55437
55438            AMF.UML.Association_Classes.UML_Association_Class_Access
55439             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
55440               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
55441
55442         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
55443            --  NamedElement::visibility : VisibilityKind
55444
55445            AMF.UML.Association_Classes.UML_Association_Class_Access
55446             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
55447               (AMF.UML.Holders.Element (Value));
55448
55449         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
55450            --  PackageableElement::visibility : VisibilityKind
55451
55452            AMF.UML.Association_Classes.UML_Association_Class_Access
55453             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
55454               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
55455
55456         else
55457            raise Program_Error;
55458         end if;
55459      end UML_Association_Class_Set;
55460
55461      ----------------------------------------------
55462      -- UML_Behavior_Execution_Specification_Set --
55463      ----------------------------------------------
55464
55465      procedure UML_Behavior_Execution_Specification_Set is
55466      begin
55467         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Execution_Specification_Behavior_A_Behavior_Execution_Specification then
55468            --  BehaviorExecutionSpecification::behavior : Behavior
55469
55470            AMF.UML.Behavior_Execution_Specifications.UML_Behavior_Execution_Specification_Access
55471             (AMF.Internals.Helpers.To_Element (Self)).Set_Behavior
55472               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
55473
55474         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Interaction_Interaction_Fragment then
55475            --  InteractionFragment::enclosingInteraction : Interaction
55476
55477            AMF.UML.Behavior_Execution_Specifications.UML_Behavior_Execution_Specification_Access
55478             (AMF.Internals.Helpers.To_Element (Self)).Set_Enclosing_Interaction
55479               (AMF.UML.Interactions.UML_Interaction_Access (AMF.Holders.Elements.Element (Value)));
55480
55481         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Operand_Interaction_Operand_Fragment then
55482            --  InteractionFragment::enclosingOperand : InteractionOperand
55483
55484            AMF.UML.Behavior_Execution_Specifications.UML_Behavior_Execution_Specification_Access
55485             (AMF.Internals.Helpers.To_Element (Self)).Set_Enclosing_Operand
55486               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access (AMF.Holders.Elements.Element (Value)));
55487
55488         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Execution_Specification_Finish_A_Execution_Specification then
55489            --  ExecutionSpecification::finish : OccurrenceSpecification
55490
55491            AMF.UML.Behavior_Execution_Specifications.UML_Behavior_Execution_Specification_Access
55492             (AMF.Internals.Helpers.To_Element (Self)).Set_Finish
55493               (AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access (AMF.Holders.Elements.Element (Value)));
55494
55495         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
55496            --  NamedElement::name : String
55497
55498            AMF.UML.Behavior_Execution_Specifications.UML_Behavior_Execution_Specification_Access
55499             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
55500               (AMF.Holders.Element (Value));
55501
55502         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
55503            --  NamedElement::nameExpression : StringExpression
55504
55505            AMF.UML.Behavior_Execution_Specifications.UML_Behavior_Execution_Specification_Access
55506             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
55507               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
55508
55509         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Execution_Specification_Start_A_Execution_Specification then
55510            --  ExecutionSpecification::start : OccurrenceSpecification
55511
55512            AMF.UML.Behavior_Execution_Specifications.UML_Behavior_Execution_Specification_Access
55513             (AMF.Internals.Helpers.To_Element (Self)).Set_Start
55514               (AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access (AMF.Holders.Elements.Element (Value)));
55515
55516         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
55517            --  NamedElement::visibility : VisibilityKind
55518
55519            AMF.UML.Behavior_Execution_Specifications.UML_Behavior_Execution_Specification_Access
55520             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
55521               (AMF.UML.Holders.Element (Value));
55522
55523         else
55524            raise Program_Error;
55525         end if;
55526      end UML_Behavior_Execution_Specification_Set;
55527
55528      -------------------------------------
55529      -- UML_Broadcast_Signal_Action_Set --
55530      -------------------------------------
55531
55532      procedure UML_Broadcast_Signal_Action_Set is
55533      begin
55534         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
55535            --  ActivityNode::activity : Activity
55536
55537            AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
55538             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
55539               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
55540
55541         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
55542            --  ActivityNode::inStructuredNode : StructuredActivityNode
55543
55544            AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
55545             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
55546               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
55547
55548         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
55549            --  RedefinableElement::isLeaf : Boolean
55550
55551            AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
55552             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
55553               (League.Holders.Booleans.Element (Value));
55554
55555         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
55556            --  Action::isLocallyReentrant : Boolean
55557
55558            AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
55559             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
55560               (League.Holders.Booleans.Element (Value));
55561
55562         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
55563            --  NamedElement::name : String
55564
55565            AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
55566             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
55567               (AMF.Holders.Element (Value));
55568
55569         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
55570            --  NamedElement::nameExpression : StringExpression
55571
55572            AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
55573             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
55574               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
55575
55576         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Invocation_Action_On_Port_A_Invocation_Action then
55577            --  InvocationAction::onPort : Port
55578
55579            AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
55580             (AMF.Internals.Helpers.To_Element (Self)).Set_On_Port
55581               (AMF.UML.Ports.UML_Port_Access (AMF.Holders.Elements.Element (Value)));
55582
55583         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Broadcast_Signal_Action_Signal_A_Broadcast_Signal_Action then
55584            --  BroadcastSignalAction::signal : Signal
55585
55586            AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
55587             (AMF.Internals.Helpers.To_Element (Self)).Set_Signal
55588               (AMF.UML.Signals.UML_Signal_Access (AMF.Holders.Elements.Element (Value)));
55589
55590         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
55591            --  NamedElement::visibility : VisibilityKind
55592
55593            AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access
55594             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
55595               (AMF.UML.Holders.Element (Value));
55596
55597         else
55598            raise Program_Error;
55599         end if;
55600      end UML_Broadcast_Signal_Action_Set;
55601
55602      ----------------------------------
55603      -- UML_Call_Behavior_Action_Set --
55604      ----------------------------------
55605
55606      procedure UML_Call_Behavior_Action_Set is
55607      begin
55608         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
55609            --  ActivityNode::activity : Activity
55610
55611            AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
55612             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
55613               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
55614
55615         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Call_Behavior_Action_Behavior_A_Call_Behavior_Action then
55616            --  CallBehaviorAction::behavior : Behavior
55617
55618            AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
55619             (AMF.Internals.Helpers.To_Element (Self)).Set_Behavior
55620               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
55621
55622         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
55623            --  ActivityNode::inStructuredNode : StructuredActivityNode
55624
55625            AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
55626             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
55627               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
55628
55629         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
55630            --  RedefinableElement::isLeaf : Boolean
55631
55632            AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
55633             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
55634               (League.Holders.Booleans.Element (Value));
55635
55636         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
55637            --  Action::isLocallyReentrant : Boolean
55638
55639            AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
55640             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
55641               (League.Holders.Booleans.Element (Value));
55642
55643         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Call_Action_Is_Synchronous then
55644            --  CallAction::isSynchronous : Boolean
55645
55646            AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
55647             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Synchronous
55648               (League.Holders.Booleans.Element (Value));
55649
55650         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
55651            --  NamedElement::name : String
55652
55653            AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
55654             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
55655               (AMF.Holders.Element (Value));
55656
55657         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
55658            --  NamedElement::nameExpression : StringExpression
55659
55660            AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
55661             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
55662               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
55663
55664         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Invocation_Action_On_Port_A_Invocation_Action then
55665            --  InvocationAction::onPort : Port
55666
55667            AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
55668             (AMF.Internals.Helpers.To_Element (Self)).Set_On_Port
55669               (AMF.UML.Ports.UML_Port_Access (AMF.Holders.Elements.Element (Value)));
55670
55671         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
55672            --  NamedElement::visibility : VisibilityKind
55673
55674            AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access
55675             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
55676               (AMF.UML.Holders.Element (Value));
55677
55678         else
55679            raise Program_Error;
55680         end if;
55681      end UML_Call_Behavior_Action_Set;
55682
55683      ------------------------
55684      -- UML_Call_Event_Set --
55685      ------------------------
55686
55687      procedure UML_Call_Event_Set is
55688      begin
55689         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
55690            --  NamedElement::name : String
55691
55692            AMF.UML.Call_Events.UML_Call_Event_Access
55693             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
55694               (AMF.Holders.Element (Value));
55695
55696         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
55697            --  NamedElement::nameExpression : StringExpression
55698
55699            AMF.UML.Call_Events.UML_Call_Event_Access
55700             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
55701               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
55702
55703         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Call_Event_Operation_A_Call_Event then
55704            --  CallEvent::operation : Operation
55705
55706            AMF.UML.Call_Events.UML_Call_Event_Access
55707             (AMF.Internals.Helpers.To_Element (Self)).Set_Operation
55708               (AMF.UML.Operations.UML_Operation_Access (AMF.Holders.Elements.Element (Value)));
55709
55710         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
55711            --  ParameterableElement::owningTemplateParameter : TemplateParameter
55712
55713            AMF.UML.Call_Events.UML_Call_Event_Access
55714             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
55715               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
55716
55717         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
55718            --  ParameterableElement::templateParameter : TemplateParameter
55719
55720            AMF.UML.Call_Events.UML_Call_Event_Access
55721             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
55722               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
55723
55724         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
55725            --  NamedElement::visibility : VisibilityKind
55726
55727            AMF.UML.Call_Events.UML_Call_Event_Access
55728             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
55729               (AMF.UML.Holders.Element (Value));
55730
55731         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
55732            --  PackageableElement::visibility : VisibilityKind
55733
55734            AMF.UML.Call_Events.UML_Call_Event_Access
55735             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
55736               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
55737
55738         else
55739            raise Program_Error;
55740         end if;
55741      end UML_Call_Event_Set;
55742
55743      -----------------------------------
55744      -- UML_Call_Operation_Action_Set --
55745      -----------------------------------
55746
55747      procedure UML_Call_Operation_Action_Set is
55748      begin
55749         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
55750            --  ActivityNode::activity : Activity
55751
55752            AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
55753             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
55754               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
55755
55756         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
55757            --  ActivityNode::inStructuredNode : StructuredActivityNode
55758
55759            AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
55760             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
55761               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
55762
55763         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
55764            --  RedefinableElement::isLeaf : Boolean
55765
55766            AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
55767             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
55768               (League.Holders.Booleans.Element (Value));
55769
55770         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
55771            --  Action::isLocallyReentrant : Boolean
55772
55773            AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
55774             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
55775               (League.Holders.Booleans.Element (Value));
55776
55777         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Call_Action_Is_Synchronous then
55778            --  CallAction::isSynchronous : Boolean
55779
55780            AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
55781             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Synchronous
55782               (League.Holders.Booleans.Element (Value));
55783
55784         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
55785            --  NamedElement::name : String
55786
55787            AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
55788             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
55789               (AMF.Holders.Element (Value));
55790
55791         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
55792            --  NamedElement::nameExpression : StringExpression
55793
55794            AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
55795             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
55796               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
55797
55798         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Invocation_Action_On_Port_A_Invocation_Action then
55799            --  InvocationAction::onPort : Port
55800
55801            AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
55802             (AMF.Internals.Helpers.To_Element (Self)).Set_On_Port
55803               (AMF.UML.Ports.UML_Port_Access (AMF.Holders.Elements.Element (Value)));
55804
55805         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Call_Operation_Action_Operation_A_Call_Operation_Action then
55806            --  CallOperationAction::operation : Operation
55807
55808            AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
55809             (AMF.Internals.Helpers.To_Element (Self)).Set_Operation
55810               (AMF.UML.Operations.UML_Operation_Access (AMF.Holders.Elements.Element (Value)));
55811
55812         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Call_Operation_Action_Target_A_Call_Operation_Action then
55813            --  CallOperationAction::target : InputPin
55814
55815            AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
55816             (AMF.Internals.Helpers.To_Element (Self)).Set_Target
55817               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
55818
55819         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
55820            --  NamedElement::visibility : VisibilityKind
55821
55822            AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access
55823             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
55824               (AMF.UML.Holders.Element (Value));
55825
55826         else
55827            raise Program_Error;
55828         end if;
55829      end UML_Call_Operation_Action_Set;
55830
55831      ---------------------------------
55832      -- UML_Central_Buffer_Node_Set --
55833      ---------------------------------
55834
55835      procedure UML_Central_Buffer_Node_Set is
55836      begin
55837         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
55838            --  ActivityNode::activity : Activity
55839
55840            AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
55841             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
55842               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
55843
55844         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
55845            --  ActivityNode::inStructuredNode : StructuredActivityNode
55846
55847            AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
55848             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
55849               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
55850
55851         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Is_Control_Type then
55852            --  ObjectNode::isControlType : Boolean
55853
55854            AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
55855             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Control_Type
55856               (League.Holders.Booleans.Element (Value));
55857
55858         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
55859            --  RedefinableElement::isLeaf : Boolean
55860
55861            AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
55862             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
55863               (League.Holders.Booleans.Element (Value));
55864
55865         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
55866            --  NamedElement::name : String
55867
55868            AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
55869             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
55870               (AMF.Holders.Element (Value));
55871
55872         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
55873            --  NamedElement::nameExpression : StringExpression
55874
55875            AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
55876             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
55877               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
55878
55879         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Ordering then
55880            --  ObjectNode::ordering : ObjectNodeOrderingKind
55881
55882            AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
55883             (AMF.Internals.Helpers.To_Element (Self)).Set_Ordering
55884               (AMF.UML.Holders.Object_Node_Ordering_Kinds.Element (Value));
55885
55886         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Selection_A_Object_Node then
55887            --  ObjectNode::selection : Behavior
55888
55889            AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
55890             (AMF.Internals.Helpers.To_Element (Self)).Set_Selection
55891               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
55892
55893         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
55894            --  TypedElement::type : Type
55895
55896            AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
55897             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
55898               (AMF.UML.Types.UML_Type_Access (AMF.Holders.Elements.Element (Value)));
55899
55900         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Upper_Bound_A_Object_Node then
55901            --  ObjectNode::upperBound : ValueSpecification
55902
55903            AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
55904             (AMF.Internals.Helpers.To_Element (Self)).Set_Upper_Bound
55905               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
55906
55907         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
55908            --  NamedElement::visibility : VisibilityKind
55909
55910            AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access
55911             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
55912               (AMF.UML.Holders.Element (Value));
55913
55914         else
55915            raise Program_Error;
55916         end if;
55917      end UML_Central_Buffer_Node_Set;
55918
55919      --------------------------
55920      -- UML_Change_Event_Set --
55921      --------------------------
55922
55923      procedure UML_Change_Event_Set is
55924      begin
55925         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Change_Event_Change_Expression_A_Change_Event then
55926            --  ChangeEvent::changeExpression : ValueSpecification
55927
55928            AMF.UML.Change_Events.UML_Change_Event_Access
55929             (AMF.Internals.Helpers.To_Element (Self)).Set_Change_Expression
55930               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
55931
55932         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
55933            --  NamedElement::name : String
55934
55935            AMF.UML.Change_Events.UML_Change_Event_Access
55936             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
55937               (AMF.Holders.Element (Value));
55938
55939         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
55940            --  NamedElement::nameExpression : StringExpression
55941
55942            AMF.UML.Change_Events.UML_Change_Event_Access
55943             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
55944               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
55945
55946         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
55947            --  ParameterableElement::owningTemplateParameter : TemplateParameter
55948
55949            AMF.UML.Change_Events.UML_Change_Event_Access
55950             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
55951               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
55952
55953         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
55954            --  ParameterableElement::templateParameter : TemplateParameter
55955
55956            AMF.UML.Change_Events.UML_Change_Event_Access
55957             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
55958               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
55959
55960         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
55961            --  NamedElement::visibility : VisibilityKind
55962
55963            AMF.UML.Change_Events.UML_Change_Event_Access
55964             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
55965               (AMF.UML.Holders.Element (Value));
55966
55967         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
55968            --  PackageableElement::visibility : VisibilityKind
55969
55970            AMF.UML.Change_Events.UML_Change_Event_Access
55971             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
55972               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
55973
55974         else
55975            raise Program_Error;
55976         end if;
55977      end UML_Change_Event_Set;
55978
55979      -------------------
55980      -- UML_Class_Set --
55981      -------------------
55982
55983      procedure UML_Class_Set is
55984      begin
55985         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
55986            --  BehavioredClassifier::classifierBehavior : Behavior
55987
55988            AMF.UML.Classes.UML_Class_Access
55989             (AMF.Internals.Helpers.To_Element (Self)).Set_Classifier_Behavior
55990               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
55991
55992         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Abstract then
55993            --  Class::isAbstract : Boolean
55994
55995            AMF.UML.Classes.UML_Class_Access
55996             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
55997               (League.Holders.Booleans.Element (Value));
55998
55999         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
56000            --  Classifier::isAbstract : Boolean
56001
56002            AMF.UML.Classes.UML_Class_Access
56003             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
56004               (League.Holders.Booleans.Element (Value));
56005
56006         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Active then
56007            --  Class::isActive : Boolean
56008
56009            AMF.UML.Classes.UML_Class_Access
56010             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Active
56011               (League.Holders.Booleans.Element (Value));
56012
56013         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
56014            --  Classifier::isFinalSpecialization : Boolean
56015
56016            AMF.UML.Classes.UML_Class_Access
56017             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization
56018               (League.Holders.Booleans.Element (Value));
56019
56020         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
56021            --  RedefinableElement::isLeaf : Boolean
56022
56023            AMF.UML.Classes.UML_Class_Access
56024             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
56025               (League.Holders.Booleans.Element (Value));
56026
56027         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
56028            --  NamedElement::name : String
56029
56030            AMF.UML.Classes.UML_Class_Access
56031             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
56032               (AMF.Holders.Element (Value));
56033
56034         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
56035            --  NamedElement::nameExpression : StringExpression
56036
56037            AMF.UML.Classes.UML_Class_Access
56038             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
56039               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
56040
56041         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
56042            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
56043
56044            AMF.UML.Classes.UML_Class_Access
56045             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
56046               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
56047
56048         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
56049            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
56050
56051            AMF.UML.Classes.UML_Class_Access
56052             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
56053               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
56054
56055         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
56056            --  ParameterableElement::owningTemplateParameter : TemplateParameter
56057
56058            AMF.UML.Classes.UML_Class_Access
56059             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
56060               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
56061
56062         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
56063            --  Type::package : Package
56064
56065            AMF.UML.Classes.UML_Class_Access
56066             (AMF.Internals.Helpers.To_Element (Self)).Set_Package
56067               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
56068
56069         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
56070            --  Classifier::representation : CollaborationUse
56071
56072            AMF.UML.Classes.UML_Class_Access
56073             (AMF.Internals.Helpers.To_Element (Self)).Set_Representation
56074               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access (AMF.Holders.Elements.Element (Value)));
56075
56076         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
56077            --  Classifier::templateParameter : ClassifierTemplateParameter
56078
56079            AMF.UML.Classes.UML_Class_Access
56080             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
56081               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
56082
56083         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
56084            --  ParameterableElement::templateParameter : TemplateParameter
56085
56086            AMF.UML.Classes.UML_Class_Access
56087             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
56088               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
56089
56090         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
56091            --  NamedElement::visibility : VisibilityKind
56092
56093            AMF.UML.Classes.UML_Class_Access
56094             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
56095               (AMF.UML.Holders.Element (Value));
56096
56097         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
56098            --  PackageableElement::visibility : VisibilityKind
56099
56100            AMF.UML.Classes.UML_Class_Access
56101             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
56102               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
56103
56104         else
56105            raise Program_Error;
56106         end if;
56107      end UML_Class_Set;
56108
56109      -------------------------------------------
56110      -- UML_Classifier_Template_Parameter_Set --
56111      -------------------------------------------
56112
56113      procedure UML_Classifier_Template_Parameter_Set is
56114      begin
56115         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Allow_Substitutable then
56116            --  ClassifierTemplateParameter::allowSubstitutable : Boolean
56117
56118            AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access
56119             (AMF.Internals.Helpers.To_Element (Self)).Set_Allow_Substitutable
56120               (League.Holders.Booleans.Element (Value));
56121
56122         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Default_A_Template_Parameter then
56123            --  TemplateParameter::default : ParameterableElement
56124
56125            AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access
56126             (AMF.Internals.Helpers.To_Element (Self)).Set_Default
56127               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access (AMF.Holders.Elements.Element (Value)));
56128
56129         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Owned_Default_A_Template_Parameter then
56130            --  TemplateParameter::ownedDefault : ParameterableElement
56131
56132            AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access
56133             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Default
56134               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access (AMF.Holders.Elements.Element (Value)));
56135
56136         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Owned_Parametered_Element_Parameterable_Element_Owning_Template_Parameter then
56137            --  TemplateParameter::ownedParameteredElement : ParameterableElement
56138
56139            AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access
56140             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Parametered_Element
56141               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access (AMF.Holders.Elements.Element (Value)));
56142
56143         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Parametered_Element_Classifier_Template_Parameter then
56144            --  ClassifierTemplateParameter::parameteredElement : Classifier
56145
56146            AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access
56147             (AMF.Internals.Helpers.To_Element (Self)).Set_Parametered_Element
56148               (AMF.UML.Classifiers.UML_Classifier_Access (AMF.Holders.Elements.Element (Value)));
56149
56150         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Parametered_Element_Parameterable_Element_Template_Parameter then
56151            --  TemplateParameter::parameteredElement : ParameterableElement
56152
56153            AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access
56154             (AMF.Internals.Helpers.To_Element (Self)).Set_Parametered_Element
56155               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access (AMF.Holders.Elements.Element (Value)));
56156
56157         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Signature_Template_Signature_Owned_Parameter then
56158            --  TemplateParameter::signature : TemplateSignature
56159
56160            AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access
56161             (AMF.Internals.Helpers.To_Element (Self)).Set_Signature
56162               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
56163
56164         else
56165            raise Program_Error;
56166         end if;
56167      end UML_Classifier_Template_Parameter_Set;
56168
56169      --------------------
56170      -- UML_Clause_Set --
56171      --------------------
56172
56173      procedure UML_Clause_Set is
56174      begin
56175         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Clause_Decider_A_Clause then
56176            --  Clause::decider : OutputPin
56177
56178            AMF.UML.Clauses.UML_Clause_Access
56179             (AMF.Internals.Helpers.To_Element (Self)).Set_Decider
56180               (AMF.UML.Output_Pins.UML_Output_Pin_Access (AMF.Holders.Elements.Element (Value)));
56181
56182         else
56183            raise Program_Error;
56184         end if;
56185      end UML_Clause_Set;
56186
56187      --------------------------------------
56188      -- UML_Clear_Association_Action_Set --
56189      --------------------------------------
56190
56191      procedure UML_Clear_Association_Action_Set is
56192      begin
56193         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
56194            --  ActivityNode::activity : Activity
56195
56196            AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
56197             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
56198               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
56199
56200         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Clear_Association_Action_Association_A_Clear_Association_Action then
56201            --  ClearAssociationAction::association : Association
56202
56203            AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
56204             (AMF.Internals.Helpers.To_Element (Self)).Set_Association
56205               (AMF.UML.Associations.UML_Association_Access (AMF.Holders.Elements.Element (Value)));
56206
56207         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
56208            --  ActivityNode::inStructuredNode : StructuredActivityNode
56209
56210            AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
56211             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
56212               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
56213
56214         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
56215            --  RedefinableElement::isLeaf : Boolean
56216
56217            AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
56218             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
56219               (League.Holders.Booleans.Element (Value));
56220
56221         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
56222            --  Action::isLocallyReentrant : Boolean
56223
56224            AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
56225             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
56226               (League.Holders.Booleans.Element (Value));
56227
56228         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
56229            --  NamedElement::name : String
56230
56231            AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
56232             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
56233               (AMF.Holders.Element (Value));
56234
56235         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
56236            --  NamedElement::nameExpression : StringExpression
56237
56238            AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
56239             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
56240               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
56241
56242         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Clear_Association_Action_Object_A_Clear_Association_Action then
56243            --  ClearAssociationAction::object : InputPin
56244
56245            AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
56246             (AMF.Internals.Helpers.To_Element (Self)).Set_Object
56247               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
56248
56249         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
56250            --  NamedElement::visibility : VisibilityKind
56251
56252            AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access
56253             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
56254               (AMF.UML.Holders.Element (Value));
56255
56256         else
56257            raise Program_Error;
56258         end if;
56259      end UML_Clear_Association_Action_Set;
56260
56261      ---------------------------------------------
56262      -- UML_Clear_Structural_Feature_Action_Set --
56263      ---------------------------------------------
56264
56265      procedure UML_Clear_Structural_Feature_Action_Set is
56266      begin
56267         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
56268            --  ActivityNode::activity : Activity
56269
56270            AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
56271             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
56272               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
56273
56274         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
56275            --  ActivityNode::inStructuredNode : StructuredActivityNode
56276
56277            AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
56278             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
56279               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
56280
56281         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
56282            --  RedefinableElement::isLeaf : Boolean
56283
56284            AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
56285             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
56286               (League.Holders.Booleans.Element (Value));
56287
56288         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
56289            --  Action::isLocallyReentrant : Boolean
56290
56291            AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
56292             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
56293               (League.Holders.Booleans.Element (Value));
56294
56295         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
56296            --  NamedElement::name : String
56297
56298            AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
56299             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
56300               (AMF.Holders.Element (Value));
56301
56302         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
56303            --  NamedElement::nameExpression : StringExpression
56304
56305            AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
56306             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
56307               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
56308
56309         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structural_Feature_Action_Object_A_Structural_Feature_Action then
56310            --  StructuralFeatureAction::object : InputPin
56311
56312            AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
56313             (AMF.Internals.Helpers.To_Element (Self)).Set_Object
56314               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
56315
56316         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Clear_Structural_Feature_Action_Result_A_Clear_Structural_Feature_Action then
56317            --  ClearStructuralFeatureAction::result : OutputPin
56318
56319            AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
56320             (AMF.Internals.Helpers.To_Element (Self)).Set_Result
56321               (AMF.UML.Output_Pins.UML_Output_Pin_Access (AMF.Holders.Elements.Element (Value)));
56322
56323         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structural_Feature_Action_Structural_Feature_A_Structural_Feature_Action then
56324            --  StructuralFeatureAction::structuralFeature : StructuralFeature
56325
56326            AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
56327             (AMF.Internals.Helpers.To_Element (Self)).Set_Structural_Feature
56328               (AMF.UML.Structural_Features.UML_Structural_Feature_Access (AMF.Holders.Elements.Element (Value)));
56329
56330         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
56331            --  NamedElement::visibility : VisibilityKind
56332
56333            AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access
56334             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
56335               (AMF.UML.Holders.Element (Value));
56336
56337         else
56338            raise Program_Error;
56339         end if;
56340      end UML_Clear_Structural_Feature_Action_Set;
56341
56342      -----------------------------------
56343      -- UML_Clear_Variable_Action_Set --
56344      -----------------------------------
56345
56346      procedure UML_Clear_Variable_Action_Set is
56347      begin
56348         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
56349            --  ActivityNode::activity : Activity
56350
56351            AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
56352             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
56353               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
56354
56355         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
56356            --  ActivityNode::inStructuredNode : StructuredActivityNode
56357
56358            AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
56359             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
56360               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
56361
56362         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
56363            --  RedefinableElement::isLeaf : Boolean
56364
56365            AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
56366             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
56367               (League.Holders.Booleans.Element (Value));
56368
56369         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
56370            --  Action::isLocallyReentrant : Boolean
56371
56372            AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
56373             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
56374               (League.Holders.Booleans.Element (Value));
56375
56376         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
56377            --  NamedElement::name : String
56378
56379            AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
56380             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
56381               (AMF.Holders.Element (Value));
56382
56383         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
56384            --  NamedElement::nameExpression : StringExpression
56385
56386            AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
56387             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
56388               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
56389
56390         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Variable_Action_Variable_A_Variable_Action then
56391            --  VariableAction::variable : Variable
56392
56393            AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
56394             (AMF.Internals.Helpers.To_Element (Self)).Set_Variable
56395               (AMF.UML.Variables.UML_Variable_Access (AMF.Holders.Elements.Element (Value)));
56396
56397         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
56398            --  NamedElement::visibility : VisibilityKind
56399
56400            AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access
56401             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
56402               (AMF.UML.Holders.Element (Value));
56403
56404         else
56405            raise Program_Error;
56406         end if;
56407      end UML_Clear_Variable_Action_Set;
56408
56409      ---------------------------
56410      -- UML_Collaboration_Set --
56411      ---------------------------
56412
56413      procedure UML_Collaboration_Set is
56414      begin
56415         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
56416            --  BehavioredClassifier::classifierBehavior : Behavior
56417
56418            AMF.UML.Collaborations.UML_Collaboration_Access
56419             (AMF.Internals.Helpers.To_Element (Self)).Set_Classifier_Behavior
56420               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
56421
56422         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
56423            --  Classifier::isAbstract : Boolean
56424
56425            AMF.UML.Collaborations.UML_Collaboration_Access
56426             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
56427               (League.Holders.Booleans.Element (Value));
56428
56429         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
56430            --  Classifier::isFinalSpecialization : Boolean
56431
56432            AMF.UML.Collaborations.UML_Collaboration_Access
56433             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization
56434               (League.Holders.Booleans.Element (Value));
56435
56436         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
56437            --  RedefinableElement::isLeaf : Boolean
56438
56439            AMF.UML.Collaborations.UML_Collaboration_Access
56440             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
56441               (League.Holders.Booleans.Element (Value));
56442
56443         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
56444            --  NamedElement::name : String
56445
56446            AMF.UML.Collaborations.UML_Collaboration_Access
56447             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
56448               (AMF.Holders.Element (Value));
56449
56450         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
56451            --  NamedElement::nameExpression : StringExpression
56452
56453            AMF.UML.Collaborations.UML_Collaboration_Access
56454             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
56455               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
56456
56457         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
56458            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
56459
56460            AMF.UML.Collaborations.UML_Collaboration_Access
56461             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
56462               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
56463
56464         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
56465            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
56466
56467            AMF.UML.Collaborations.UML_Collaboration_Access
56468             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
56469               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
56470
56471         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
56472            --  ParameterableElement::owningTemplateParameter : TemplateParameter
56473
56474            AMF.UML.Collaborations.UML_Collaboration_Access
56475             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
56476               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
56477
56478         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
56479            --  Type::package : Package
56480
56481            AMF.UML.Collaborations.UML_Collaboration_Access
56482             (AMF.Internals.Helpers.To_Element (Self)).Set_Package
56483               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
56484
56485         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
56486            --  Classifier::representation : CollaborationUse
56487
56488            AMF.UML.Collaborations.UML_Collaboration_Access
56489             (AMF.Internals.Helpers.To_Element (Self)).Set_Representation
56490               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access (AMF.Holders.Elements.Element (Value)));
56491
56492         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
56493            --  Classifier::templateParameter : ClassifierTemplateParameter
56494
56495            AMF.UML.Collaborations.UML_Collaboration_Access
56496             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
56497               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
56498
56499         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
56500            --  ParameterableElement::templateParameter : TemplateParameter
56501
56502            AMF.UML.Collaborations.UML_Collaboration_Access
56503             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
56504               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
56505
56506         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
56507            --  NamedElement::visibility : VisibilityKind
56508
56509            AMF.UML.Collaborations.UML_Collaboration_Access
56510             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
56511               (AMF.UML.Holders.Element (Value));
56512
56513         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
56514            --  PackageableElement::visibility : VisibilityKind
56515
56516            AMF.UML.Collaborations.UML_Collaboration_Access
56517             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
56518               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
56519
56520         else
56521            raise Program_Error;
56522         end if;
56523      end UML_Collaboration_Set;
56524
56525      -------------------------------
56526      -- UML_Collaboration_Use_Set --
56527      -------------------------------
56528
56529      procedure UML_Collaboration_Use_Set is
56530      begin
56531         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
56532            --  NamedElement::name : String
56533
56534            AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access
56535             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
56536               (AMF.Holders.Element (Value));
56537
56538         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
56539            --  NamedElement::nameExpression : StringExpression
56540
56541            AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access
56542             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
56543               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
56544
56545         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Collaboration_Use_Type_A_Collaboration_Use then
56546            --  CollaborationUse::type : Collaboration
56547
56548            AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access
56549             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
56550               (AMF.UML.Collaborations.UML_Collaboration_Access (AMF.Holders.Elements.Element (Value)));
56551
56552         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
56553            --  NamedElement::visibility : VisibilityKind
56554
56555            AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access
56556             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
56557               (AMF.UML.Holders.Element (Value));
56558
56559         else
56560            raise Program_Error;
56561         end if;
56562      end UML_Collaboration_Use_Set;
56563
56564      -------------------------------
56565      -- UML_Combined_Fragment_Set --
56566      -------------------------------
56567
56568      procedure UML_Combined_Fragment_Set is
56569      begin
56570         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Interaction_Interaction_Fragment then
56571            --  InteractionFragment::enclosingInteraction : Interaction
56572
56573            AMF.UML.Combined_Fragments.UML_Combined_Fragment_Access
56574             (AMF.Internals.Helpers.To_Element (Self)).Set_Enclosing_Interaction
56575               (AMF.UML.Interactions.UML_Interaction_Access (AMF.Holders.Elements.Element (Value)));
56576
56577         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Operand_Interaction_Operand_Fragment then
56578            --  InteractionFragment::enclosingOperand : InteractionOperand
56579
56580            AMF.UML.Combined_Fragments.UML_Combined_Fragment_Access
56581             (AMF.Internals.Helpers.To_Element (Self)).Set_Enclosing_Operand
56582               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access (AMF.Holders.Elements.Element (Value)));
56583
56584         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Combined_Fragment_Interaction_Operator then
56585            --  CombinedFragment::interactionOperator : InteractionOperatorKind
56586
56587            AMF.UML.Combined_Fragments.UML_Combined_Fragment_Access
56588             (AMF.Internals.Helpers.To_Element (Self)).Set_Interaction_Operator
56589               (AMF.UML.Holders.Interaction_Operator_Kinds.Element (Value));
56590
56591         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
56592            --  NamedElement::name : String
56593
56594            AMF.UML.Combined_Fragments.UML_Combined_Fragment_Access
56595             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
56596               (AMF.Holders.Element (Value));
56597
56598         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
56599            --  NamedElement::nameExpression : StringExpression
56600
56601            AMF.UML.Combined_Fragments.UML_Combined_Fragment_Access
56602             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
56603               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
56604
56605         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
56606            --  NamedElement::visibility : VisibilityKind
56607
56608            AMF.UML.Combined_Fragments.UML_Combined_Fragment_Access
56609             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
56610               (AMF.UML.Holders.Element (Value));
56611
56612         else
56613            raise Program_Error;
56614         end if;
56615      end UML_Combined_Fragment_Set;
56616
56617      ---------------------
56618      -- UML_Comment_Set --
56619      ---------------------
56620
56621      procedure UML_Comment_Set is
56622      begin
56623         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Comment_Body then
56624            --  Comment::body : String
56625
56626            AMF.UML.Comments.UML_Comment_Access
56627             (AMF.Internals.Helpers.To_Element (Self)).Set_Body
56628               (AMF.Holders.Element (Value));
56629
56630         else
56631            raise Program_Error;
56632         end if;
56633      end UML_Comment_Set;
56634
56635      --------------------------------
56636      -- UML_Communication_Path_Set --
56637      --------------------------------
56638
56639      procedure UML_Communication_Path_Set is
56640      begin
56641         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
56642            --  Classifier::isAbstract : Boolean
56643
56644            AMF.UML.Communication_Paths.UML_Communication_Path_Access
56645             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
56646               (League.Holders.Booleans.Element (Value));
56647
56648         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Is_Derived then
56649            --  Association::isDerived : Boolean
56650
56651            AMF.UML.Communication_Paths.UML_Communication_Path_Access
56652             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Derived
56653               (League.Holders.Booleans.Element (Value));
56654
56655         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
56656            --  Classifier::isFinalSpecialization : Boolean
56657
56658            AMF.UML.Communication_Paths.UML_Communication_Path_Access
56659             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization
56660               (League.Holders.Booleans.Element (Value));
56661
56662         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
56663            --  RedefinableElement::isLeaf : Boolean
56664
56665            AMF.UML.Communication_Paths.UML_Communication_Path_Access
56666             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
56667               (League.Holders.Booleans.Element (Value));
56668
56669         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
56670            --  NamedElement::name : String
56671
56672            AMF.UML.Communication_Paths.UML_Communication_Path_Access
56673             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
56674               (AMF.Holders.Element (Value));
56675
56676         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
56677            --  NamedElement::nameExpression : StringExpression
56678
56679            AMF.UML.Communication_Paths.UML_Communication_Path_Access
56680             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
56681               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
56682
56683         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
56684            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
56685
56686            AMF.UML.Communication_Paths.UML_Communication_Path_Access
56687             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
56688               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
56689
56690         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
56691            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
56692
56693            AMF.UML.Communication_Paths.UML_Communication_Path_Access
56694             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
56695               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
56696
56697         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
56698            --  ParameterableElement::owningTemplateParameter : TemplateParameter
56699
56700            AMF.UML.Communication_Paths.UML_Communication_Path_Access
56701             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
56702               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
56703
56704         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
56705            --  Type::package : Package
56706
56707            AMF.UML.Communication_Paths.UML_Communication_Path_Access
56708             (AMF.Internals.Helpers.To_Element (Self)).Set_Package
56709               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
56710
56711         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
56712            --  Classifier::representation : CollaborationUse
56713
56714            AMF.UML.Communication_Paths.UML_Communication_Path_Access
56715             (AMF.Internals.Helpers.To_Element (Self)).Set_Representation
56716               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access (AMF.Holders.Elements.Element (Value)));
56717
56718         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
56719            --  Classifier::templateParameter : ClassifierTemplateParameter
56720
56721            AMF.UML.Communication_Paths.UML_Communication_Path_Access
56722             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
56723               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
56724
56725         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
56726            --  ParameterableElement::templateParameter : TemplateParameter
56727
56728            AMF.UML.Communication_Paths.UML_Communication_Path_Access
56729             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
56730               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
56731
56732         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
56733            --  NamedElement::visibility : VisibilityKind
56734
56735            AMF.UML.Communication_Paths.UML_Communication_Path_Access
56736             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
56737               (AMF.UML.Holders.Element (Value));
56738
56739         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
56740            --  PackageableElement::visibility : VisibilityKind
56741
56742            AMF.UML.Communication_Paths.UML_Communication_Path_Access
56743             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
56744               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
56745
56746         else
56747            raise Program_Error;
56748         end if;
56749      end UML_Communication_Path_Set;
56750
56751      -----------------------
56752      -- UML_Component_Set --
56753      -----------------------
56754
56755      procedure UML_Component_Set is
56756      begin
56757         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
56758            --  BehavioredClassifier::classifierBehavior : Behavior
56759
56760            AMF.UML.Components.UML_Component_Access
56761             (AMF.Internals.Helpers.To_Element (Self)).Set_Classifier_Behavior
56762               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
56763
56764         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Abstract then
56765            --  Class::isAbstract : Boolean
56766
56767            AMF.UML.Components.UML_Component_Access
56768             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
56769               (League.Holders.Booleans.Element (Value));
56770
56771         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
56772            --  Classifier::isAbstract : Boolean
56773
56774            AMF.UML.Components.UML_Component_Access
56775             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
56776               (League.Holders.Booleans.Element (Value));
56777
56778         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Active then
56779            --  Class::isActive : Boolean
56780
56781            AMF.UML.Components.UML_Component_Access
56782             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Active
56783               (League.Holders.Booleans.Element (Value));
56784
56785         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
56786            --  Classifier::isFinalSpecialization : Boolean
56787
56788            AMF.UML.Components.UML_Component_Access
56789             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization
56790               (League.Holders.Booleans.Element (Value));
56791
56792         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Component_Is_Indirectly_Instantiated then
56793            --  Component::isIndirectlyInstantiated : Boolean
56794
56795            AMF.UML.Components.UML_Component_Access
56796             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Indirectly_Instantiated
56797               (League.Holders.Booleans.Element (Value));
56798
56799         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
56800            --  RedefinableElement::isLeaf : Boolean
56801
56802            AMF.UML.Components.UML_Component_Access
56803             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
56804               (League.Holders.Booleans.Element (Value));
56805
56806         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
56807            --  NamedElement::name : String
56808
56809            AMF.UML.Components.UML_Component_Access
56810             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
56811               (AMF.Holders.Element (Value));
56812
56813         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
56814            --  NamedElement::nameExpression : StringExpression
56815
56816            AMF.UML.Components.UML_Component_Access
56817             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
56818               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
56819
56820         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
56821            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
56822
56823            AMF.UML.Components.UML_Component_Access
56824             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
56825               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
56826
56827         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
56828            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
56829
56830            AMF.UML.Components.UML_Component_Access
56831             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
56832               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
56833
56834         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
56835            --  ParameterableElement::owningTemplateParameter : TemplateParameter
56836
56837            AMF.UML.Components.UML_Component_Access
56838             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
56839               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
56840
56841         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
56842            --  Type::package : Package
56843
56844            AMF.UML.Components.UML_Component_Access
56845             (AMF.Internals.Helpers.To_Element (Self)).Set_Package
56846               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
56847
56848         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
56849            --  Classifier::representation : CollaborationUse
56850
56851            AMF.UML.Components.UML_Component_Access
56852             (AMF.Internals.Helpers.To_Element (Self)).Set_Representation
56853               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access (AMF.Holders.Elements.Element (Value)));
56854
56855         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
56856            --  Classifier::templateParameter : ClassifierTemplateParameter
56857
56858            AMF.UML.Components.UML_Component_Access
56859             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
56860               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
56861
56862         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
56863            --  ParameterableElement::templateParameter : TemplateParameter
56864
56865            AMF.UML.Components.UML_Component_Access
56866             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
56867               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
56868
56869         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
56870            --  NamedElement::visibility : VisibilityKind
56871
56872            AMF.UML.Components.UML_Component_Access
56873             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
56874               (AMF.UML.Holders.Element (Value));
56875
56876         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
56877            --  PackageableElement::visibility : VisibilityKind
56878
56879            AMF.UML.Components.UML_Component_Access
56880             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
56881               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
56882
56883         else
56884            raise Program_Error;
56885         end if;
56886      end UML_Component_Set;
56887
56888      -----------------------------------
56889      -- UML_Component_Realization_Set --
56890      -----------------------------------
56891
56892      procedure UML_Component_Realization_Set is
56893      begin
56894         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Component_Realization_Abstraction_Component_Realization then
56895            --  ComponentRealization::abstraction : Component
56896
56897            AMF.UML.Component_Realizations.UML_Component_Realization_Access
56898             (AMF.Internals.Helpers.To_Element (Self)).Set_Abstraction
56899               (AMF.UML.Components.UML_Component_Access (AMF.Holders.Elements.Element (Value)));
56900
56901         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Abstraction_Mapping_A_Abstraction then
56902            --  Abstraction::mapping : OpaqueExpression
56903
56904            AMF.UML.Component_Realizations.UML_Component_Realization_Access
56905             (AMF.Internals.Helpers.To_Element (Self)).Set_Mapping
56906               (AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access (AMF.Holders.Elements.Element (Value)));
56907
56908         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
56909            --  NamedElement::name : String
56910
56911            AMF.UML.Component_Realizations.UML_Component_Realization_Access
56912             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
56913               (AMF.Holders.Element (Value));
56914
56915         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
56916            --  NamedElement::nameExpression : StringExpression
56917
56918            AMF.UML.Component_Realizations.UML_Component_Realization_Access
56919             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
56920               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
56921
56922         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
56923            --  ParameterableElement::owningTemplateParameter : TemplateParameter
56924
56925            AMF.UML.Component_Realizations.UML_Component_Realization_Access
56926             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
56927               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
56928
56929         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
56930            --  ParameterableElement::templateParameter : TemplateParameter
56931
56932            AMF.UML.Component_Realizations.UML_Component_Realization_Access
56933             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
56934               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
56935
56936         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
56937            --  NamedElement::visibility : VisibilityKind
56938
56939            AMF.UML.Component_Realizations.UML_Component_Realization_Access
56940             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
56941               (AMF.UML.Holders.Element (Value));
56942
56943         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
56944            --  PackageableElement::visibility : VisibilityKind
56945
56946            AMF.UML.Component_Realizations.UML_Component_Realization_Access
56947             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
56948               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
56949
56950         else
56951            raise Program_Error;
56952         end if;
56953      end UML_Component_Realization_Set;
56954
56955      ------------------------------
56956      -- UML_Conditional_Node_Set --
56957      ------------------------------
56958
56959      procedure UML_Conditional_Node_Set is
56960      begin
56961         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
56962            --  ActivityNode::activity : Activity
56963
56964            AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
56965             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
56966               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
56967
56968         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Activity_Activity_Structured_Node then
56969            --  StructuredActivityNode::activity : Activity
56970
56971            AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
56972             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
56973               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
56974
56975         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_In_Activity_Activity_Group then
56976            --  ActivityGroup::inActivity : Activity
56977
56978            AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
56979             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Activity
56980               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
56981
56982         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
56983            --  ActivityNode::inStructuredNode : StructuredActivityNode
56984
56985            AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
56986             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
56987               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
56988
56989         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Conditional_Node_Is_Assured then
56990            --  ConditionalNode::isAssured : Boolean
56991
56992            AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
56993             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Assured
56994               (League.Holders.Booleans.Element (Value));
56995
56996         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Conditional_Node_Is_Determinate then
56997            --  ConditionalNode::isDeterminate : Boolean
56998
56999            AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
57000             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Determinate
57001               (League.Holders.Booleans.Element (Value));
57002
57003         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
57004            --  RedefinableElement::isLeaf : Boolean
57005
57006            AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
57007             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
57008               (League.Holders.Booleans.Element (Value));
57009
57010         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
57011            --  Action::isLocallyReentrant : Boolean
57012
57013            AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
57014             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
57015               (League.Holders.Booleans.Element (Value));
57016
57017         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Must_Isolate then
57018            --  StructuredActivityNode::mustIsolate : Boolean
57019
57020            AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
57021             (AMF.Internals.Helpers.To_Element (Self)).Set_Must_Isolate
57022               (League.Holders.Booleans.Element (Value));
57023
57024         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
57025            --  NamedElement::name : String
57026
57027            AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
57028             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
57029               (AMF.Holders.Element (Value));
57030
57031         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
57032            --  NamedElement::nameExpression : StringExpression
57033
57034            AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
57035             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
57036               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
57037
57038         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
57039            --  NamedElement::visibility : VisibilityKind
57040
57041            AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access
57042             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
57043               (AMF.UML.Holders.Element (Value));
57044
57045         else
57046            raise Program_Error;
57047         end if;
57048      end UML_Conditional_Node_Set;
57049
57050      ----------------------------------------------------
57051      -- UML_Connectable_Element_Template_Parameter_Set --
57052      ----------------------------------------------------
57053
57054      procedure UML_Connectable_Element_Template_Parameter_Set is
57055      begin
57056         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Default_A_Template_Parameter then
57057            --  TemplateParameter::default : ParameterableElement
57058
57059            AMF.UML.Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Access
57060             (AMF.Internals.Helpers.To_Element (Self)).Set_Default
57061               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access (AMF.Holders.Elements.Element (Value)));
57062
57063         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Owned_Default_A_Template_Parameter then
57064            --  TemplateParameter::ownedDefault : ParameterableElement
57065
57066            AMF.UML.Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Access
57067             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Default
57068               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access (AMF.Holders.Elements.Element (Value)));
57069
57070         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Owned_Parametered_Element_Parameterable_Element_Owning_Template_Parameter then
57071            --  TemplateParameter::ownedParameteredElement : ParameterableElement
57072
57073            AMF.UML.Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Access
57074             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Parametered_Element
57075               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access (AMF.Holders.Elements.Element (Value)));
57076
57077         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connectable_Element_Template_Parameter_Parametered_Element_Connectable_Element_Template_Parameter then
57078            --  ConnectableElementTemplateParameter::parameteredElement : ConnectableElement
57079
57080            AMF.UML.Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Access
57081             (AMF.Internals.Helpers.To_Element (Self)).Set_Parametered_Element
57082               (AMF.UML.Connectable_Elements.UML_Connectable_Element_Access (AMF.Holders.Elements.Element (Value)));
57083
57084         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Parametered_Element_Parameterable_Element_Template_Parameter then
57085            --  TemplateParameter::parameteredElement : ParameterableElement
57086
57087            AMF.UML.Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Access
57088             (AMF.Internals.Helpers.To_Element (Self)).Set_Parametered_Element
57089               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access (AMF.Holders.Elements.Element (Value)));
57090
57091         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Signature_Template_Signature_Owned_Parameter then
57092            --  TemplateParameter::signature : TemplateSignature
57093
57094            AMF.UML.Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Access
57095             (AMF.Internals.Helpers.To_Element (Self)).Set_Signature
57096               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
57097
57098         else
57099            raise Program_Error;
57100         end if;
57101      end UML_Connectable_Element_Template_Parameter_Set;
57102
57103      ----------------------------------------
57104      -- UML_Connection_Point_Reference_Set --
57105      ----------------------------------------
57106
57107      procedure UML_Connection_Point_Reference_Set is
57108      begin
57109         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Vertex_Container_Region_Subvertex then
57110            --  Vertex::container : Region
57111
57112            AMF.UML.Connection_Point_References.UML_Connection_Point_Reference_Access
57113             (AMF.Internals.Helpers.To_Element (Self)).Set_Container
57114               (AMF.UML.Regions.UML_Region_Access (AMF.Holders.Elements.Element (Value)));
57115
57116         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
57117            --  NamedElement::name : String
57118
57119            AMF.UML.Connection_Point_References.UML_Connection_Point_Reference_Access
57120             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
57121               (AMF.Holders.Element (Value));
57122
57123         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
57124            --  NamedElement::nameExpression : StringExpression
57125
57126            AMF.UML.Connection_Point_References.UML_Connection_Point_Reference_Access
57127             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
57128               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
57129
57130         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connection_Point_Reference_State_State_Connection then
57131            --  ConnectionPointReference::state : State
57132
57133            AMF.UML.Connection_Point_References.UML_Connection_Point_Reference_Access
57134             (AMF.Internals.Helpers.To_Element (Self)).Set_State
57135               (AMF.UML.States.UML_State_Access (AMF.Holders.Elements.Element (Value)));
57136
57137         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
57138            --  NamedElement::visibility : VisibilityKind
57139
57140            AMF.UML.Connection_Point_References.UML_Connection_Point_Reference_Access
57141             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
57142               (AMF.UML.Holders.Element (Value));
57143
57144         else
57145            raise Program_Error;
57146         end if;
57147      end UML_Connection_Point_Reference_Set;
57148
57149      -----------------------
57150      -- UML_Connector_Set --
57151      -----------------------
57152
57153      procedure UML_Connector_Set is
57154      begin
57155         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
57156            --  RedefinableElement::isLeaf : Boolean
57157
57158            AMF.UML.Connectors.UML_Connector_Access
57159             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
57160               (League.Holders.Booleans.Element (Value));
57161
57162         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Feature_Is_Static then
57163            --  Feature::isStatic : Boolean
57164
57165            AMF.UML.Connectors.UML_Connector_Access
57166             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Static
57167               (League.Holders.Booleans.Element (Value));
57168
57169         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
57170            --  NamedElement::name : String
57171
57172            AMF.UML.Connectors.UML_Connector_Access
57173             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
57174               (AMF.Holders.Element (Value));
57175
57176         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
57177            --  NamedElement::nameExpression : StringExpression
57178
57179            AMF.UML.Connectors.UML_Connector_Access
57180             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
57181               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
57182
57183         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connector_Type_A_Connector then
57184            --  Connector::type : Association
57185
57186            AMF.UML.Connectors.UML_Connector_Access
57187             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
57188               (AMF.UML.Associations.UML_Association_Access (AMF.Holders.Elements.Element (Value)));
57189
57190         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
57191            --  NamedElement::visibility : VisibilityKind
57192
57193            AMF.UML.Connectors.UML_Connector_Access
57194             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
57195               (AMF.UML.Holders.Element (Value));
57196
57197         else
57198            raise Program_Error;
57199         end if;
57200      end UML_Connector_Set;
57201
57202      ---------------------------
57203      -- UML_Connector_End_Set --
57204      ---------------------------
57205
57206      procedure UML_Connector_End_Set is
57207      begin
57208         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Ordered then
57209            --  MultiplicityElement::isOrdered : Boolean
57210
57211            AMF.UML.Connector_Ends.UML_Connector_End_Access
57212             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Ordered
57213               (League.Holders.Booleans.Element (Value));
57214
57215         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Unique then
57216            --  MultiplicityElement::isUnique : Boolean
57217
57218            AMF.UML.Connector_Ends.UML_Connector_End_Access
57219             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Unique
57220               (League.Holders.Booleans.Element (Value));
57221
57222         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower_Value_A_Owning_Lower then
57223            --  MultiplicityElement::lowerValue : ValueSpecification
57224
57225            AMF.UML.Connector_Ends.UML_Connector_End_Access
57226             (AMF.Internals.Helpers.To_Element (Self)).Set_Lower_Value
57227               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
57228
57229         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connector_End_Part_With_Port_A_Connector_End then
57230            --  ConnectorEnd::partWithPort : Property
57231
57232            AMF.UML.Connector_Ends.UML_Connector_End_Access
57233             (AMF.Internals.Helpers.To_Element (Self)).Set_Part_With_Port
57234               (AMF.UML.Properties.UML_Property_Access (AMF.Holders.Elements.Element (Value)));
57235
57236         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connector_End_Role_Connectable_Element_End then
57237            --  ConnectorEnd::role : ConnectableElement
57238
57239            AMF.UML.Connector_Ends.UML_Connector_End_Access
57240             (AMF.Internals.Helpers.To_Element (Self)).Set_Role
57241               (AMF.UML.Connectable_Elements.UML_Connectable_Element_Access (AMF.Holders.Elements.Element (Value)));
57242
57243         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper_Value_A_Owning_Upper then
57244            --  MultiplicityElement::upperValue : ValueSpecification
57245
57246            AMF.UML.Connector_Ends.UML_Connector_End_Access
57247             (AMF.Internals.Helpers.To_Element (Self)).Set_Upper_Value
57248               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
57249
57250         else
57251            raise Program_Error;
57252         end if;
57253      end UML_Connector_End_Set;
57254
57255      --------------------------------------
57256      -- UML_Consider_Ignore_Fragment_Set --
57257      --------------------------------------
57258
57259      procedure UML_Consider_Ignore_Fragment_Set is
57260      begin
57261         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Interaction_Interaction_Fragment then
57262            --  InteractionFragment::enclosingInteraction : Interaction
57263
57264            AMF.UML.Consider_Ignore_Fragments.UML_Consider_Ignore_Fragment_Access
57265             (AMF.Internals.Helpers.To_Element (Self)).Set_Enclosing_Interaction
57266               (AMF.UML.Interactions.UML_Interaction_Access (AMF.Holders.Elements.Element (Value)));
57267
57268         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Operand_Interaction_Operand_Fragment then
57269            --  InteractionFragment::enclosingOperand : InteractionOperand
57270
57271            AMF.UML.Consider_Ignore_Fragments.UML_Consider_Ignore_Fragment_Access
57272             (AMF.Internals.Helpers.To_Element (Self)).Set_Enclosing_Operand
57273               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access (AMF.Holders.Elements.Element (Value)));
57274
57275         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Combined_Fragment_Interaction_Operator then
57276            --  CombinedFragment::interactionOperator : InteractionOperatorKind
57277
57278            AMF.UML.Consider_Ignore_Fragments.UML_Consider_Ignore_Fragment_Access
57279             (AMF.Internals.Helpers.To_Element (Self)).Set_Interaction_Operator
57280               (AMF.UML.Holders.Interaction_Operator_Kinds.Element (Value));
57281
57282         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
57283            --  NamedElement::name : String
57284
57285            AMF.UML.Consider_Ignore_Fragments.UML_Consider_Ignore_Fragment_Access
57286             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
57287               (AMF.Holders.Element (Value));
57288
57289         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
57290            --  NamedElement::nameExpression : StringExpression
57291
57292            AMF.UML.Consider_Ignore_Fragments.UML_Consider_Ignore_Fragment_Access
57293             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
57294               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
57295
57296         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
57297            --  NamedElement::visibility : VisibilityKind
57298
57299            AMF.UML.Consider_Ignore_Fragments.UML_Consider_Ignore_Fragment_Access
57300             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
57301               (AMF.UML.Holders.Element (Value));
57302
57303         else
57304            raise Program_Error;
57305         end if;
57306      end UML_Consider_Ignore_Fragment_Set;
57307
57308      ------------------------
57309      -- UML_Constraint_Set --
57310      ------------------------
57311
57312      procedure UML_Constraint_Set is
57313      begin
57314         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Constraint_Context_Namespace_Owned_Rule then
57315            --  Constraint::context : Namespace
57316
57317            AMF.UML.Constraints.UML_Constraint_Access
57318             (AMF.Internals.Helpers.To_Element (Self)).Set_Context
57319               (AMF.UML.Namespaces.UML_Namespace_Access (AMF.Holders.Elements.Element (Value)));
57320
57321         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
57322            --  NamedElement::name : String
57323
57324            AMF.UML.Constraints.UML_Constraint_Access
57325             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
57326               (AMF.Holders.Element (Value));
57327
57328         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
57329            --  NamedElement::nameExpression : StringExpression
57330
57331            AMF.UML.Constraints.UML_Constraint_Access
57332             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
57333               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
57334
57335         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
57336            --  ParameterableElement::owningTemplateParameter : TemplateParameter
57337
57338            AMF.UML.Constraints.UML_Constraint_Access
57339             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
57340               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
57341
57342         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Constraint_Specification_A_Owning_Constraint then
57343            --  Constraint::specification : ValueSpecification
57344
57345            AMF.UML.Constraints.UML_Constraint_Access
57346             (AMF.Internals.Helpers.To_Element (Self)).Set_Specification
57347               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
57348
57349         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
57350            --  ParameterableElement::templateParameter : TemplateParameter
57351
57352            AMF.UML.Constraints.UML_Constraint_Access
57353             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
57354               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
57355
57356         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
57357            --  NamedElement::visibility : VisibilityKind
57358
57359            AMF.UML.Constraints.UML_Constraint_Access
57360             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
57361               (AMF.UML.Holders.Element (Value));
57362
57363         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
57364            --  PackageableElement::visibility : VisibilityKind
57365
57366            AMF.UML.Constraints.UML_Constraint_Access
57367             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
57368               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
57369
57370         else
57371            raise Program_Error;
57372         end if;
57373      end UML_Constraint_Set;
57374
57375      --------------------------
57376      -- UML_Continuation_Set --
57377      --------------------------
57378
57379      procedure UML_Continuation_Set is
57380      begin
57381         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Interaction_Interaction_Fragment then
57382            --  InteractionFragment::enclosingInteraction : Interaction
57383
57384            AMF.UML.Continuations.UML_Continuation_Access
57385             (AMF.Internals.Helpers.To_Element (Self)).Set_Enclosing_Interaction
57386               (AMF.UML.Interactions.UML_Interaction_Access (AMF.Holders.Elements.Element (Value)));
57387
57388         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Operand_Interaction_Operand_Fragment then
57389            --  InteractionFragment::enclosingOperand : InteractionOperand
57390
57391            AMF.UML.Continuations.UML_Continuation_Access
57392             (AMF.Internals.Helpers.To_Element (Self)).Set_Enclosing_Operand
57393               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access (AMF.Holders.Elements.Element (Value)));
57394
57395         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
57396            --  NamedElement::name : String
57397
57398            AMF.UML.Continuations.UML_Continuation_Access
57399             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
57400               (AMF.Holders.Element (Value));
57401
57402         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
57403            --  NamedElement::nameExpression : StringExpression
57404
57405            AMF.UML.Continuations.UML_Continuation_Access
57406             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
57407               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
57408
57409         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Continuation_Setting then
57410            --  Continuation::setting : Boolean
57411
57412            AMF.UML.Continuations.UML_Continuation_Access
57413             (AMF.Internals.Helpers.To_Element (Self)).Set_Setting
57414               (League.Holders.Booleans.Element (Value));
57415
57416         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
57417            --  NamedElement::visibility : VisibilityKind
57418
57419            AMF.UML.Continuations.UML_Continuation_Access
57420             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
57421               (AMF.UML.Holders.Element (Value));
57422
57423         else
57424            raise Program_Error;
57425         end if;
57426      end UML_Continuation_Set;
57427
57428      --------------------------
57429      -- UML_Control_Flow_Set --
57430      --------------------------
57431
57432      procedure UML_Control_Flow_Set is
57433      begin
57434         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_Activity_Activity_Edge then
57435            --  ActivityEdge::activity : Activity
57436
57437            AMF.UML.Control_Flows.UML_Control_Flow_Access
57438             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
57439               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
57440
57441         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_Guard_A_Activity_Edge then
57442            --  ActivityEdge::guard : ValueSpecification
57443
57444            AMF.UML.Control_Flows.UML_Control_Flow_Access
57445             (AMF.Internals.Helpers.To_Element (Self)).Set_Guard
57446               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
57447
57448         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_In_Structured_Node_Structured_Activity_Node_Edge then
57449            --  ActivityEdge::inStructuredNode : StructuredActivityNode
57450
57451            AMF.UML.Control_Flows.UML_Control_Flow_Access
57452             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
57453               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
57454
57455         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_Interrupts_Interruptible_Activity_Region_Interrupting_Edge then
57456            --  ActivityEdge::interrupts : InterruptibleActivityRegion
57457
57458            AMF.UML.Control_Flows.UML_Control_Flow_Access
57459             (AMF.Internals.Helpers.To_Element (Self)).Set_Interrupts
57460               (AMF.UML.Interruptible_Activity_Regions.UML_Interruptible_Activity_Region_Access (AMF.Holders.Elements.Element (Value)));
57461
57462         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
57463            --  RedefinableElement::isLeaf : Boolean
57464
57465            AMF.UML.Control_Flows.UML_Control_Flow_Access
57466             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
57467               (League.Holders.Booleans.Element (Value));
57468
57469         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
57470            --  NamedElement::name : String
57471
57472            AMF.UML.Control_Flows.UML_Control_Flow_Access
57473             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
57474               (AMF.Holders.Element (Value));
57475
57476         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
57477            --  NamedElement::nameExpression : StringExpression
57478
57479            AMF.UML.Control_Flows.UML_Control_Flow_Access
57480             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
57481               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
57482
57483         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_Source_Activity_Node_Outgoing then
57484            --  ActivityEdge::source : ActivityNode
57485
57486            AMF.UML.Control_Flows.UML_Control_Flow_Access
57487             (AMF.Internals.Helpers.To_Element (Self)).Set_Source
57488               (AMF.UML.Activity_Nodes.UML_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
57489
57490         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_Target_Activity_Node_Incoming then
57491            --  ActivityEdge::target : ActivityNode
57492
57493            AMF.UML.Control_Flows.UML_Control_Flow_Access
57494             (AMF.Internals.Helpers.To_Element (Self)).Set_Target
57495               (AMF.UML.Activity_Nodes.UML_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
57496
57497         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
57498            --  NamedElement::visibility : VisibilityKind
57499
57500            AMF.UML.Control_Flows.UML_Control_Flow_Access
57501             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
57502               (AMF.UML.Holders.Element (Value));
57503
57504         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_Weight_A_Activity_Edge then
57505            --  ActivityEdge::weight : ValueSpecification
57506
57507            AMF.UML.Control_Flows.UML_Control_Flow_Access
57508             (AMF.Internals.Helpers.To_Element (Self)).Set_Weight
57509               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
57510
57511         else
57512            raise Program_Error;
57513         end if;
57514      end UML_Control_Flow_Set;
57515
57516      --------------------------------
57517      -- UML_Create_Link_Action_Set --
57518      --------------------------------
57519
57520      procedure UML_Create_Link_Action_Set is
57521      begin
57522         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
57523            --  ActivityNode::activity : Activity
57524
57525            AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
57526             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
57527               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
57528
57529         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
57530            --  ActivityNode::inStructuredNode : StructuredActivityNode
57531
57532            AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
57533             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
57534               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
57535
57536         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
57537            --  RedefinableElement::isLeaf : Boolean
57538
57539            AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
57540             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
57541               (League.Holders.Booleans.Element (Value));
57542
57543         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
57544            --  Action::isLocallyReentrant : Boolean
57545
57546            AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
57547             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
57548               (League.Holders.Booleans.Element (Value));
57549
57550         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
57551            --  NamedElement::name : String
57552
57553            AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
57554             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
57555               (AMF.Holders.Element (Value));
57556
57557         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
57558            --  NamedElement::nameExpression : StringExpression
57559
57560            AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
57561             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
57562               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
57563
57564         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
57565            --  NamedElement::visibility : VisibilityKind
57566
57567            AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access
57568             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
57569               (AMF.UML.Holders.Element (Value));
57570
57571         else
57572            raise Program_Error;
57573         end if;
57574      end UML_Create_Link_Action_Set;
57575
57576      ---------------------------------------
57577      -- UML_Create_Link_Object_Action_Set --
57578      ---------------------------------------
57579
57580      procedure UML_Create_Link_Object_Action_Set is
57581      begin
57582         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
57583            --  ActivityNode::activity : Activity
57584
57585            AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
57586             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
57587               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
57588
57589         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
57590            --  ActivityNode::inStructuredNode : StructuredActivityNode
57591
57592            AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
57593             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
57594               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
57595
57596         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
57597            --  RedefinableElement::isLeaf : Boolean
57598
57599            AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
57600             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
57601               (League.Holders.Booleans.Element (Value));
57602
57603         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
57604            --  Action::isLocallyReentrant : Boolean
57605
57606            AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
57607             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
57608               (League.Holders.Booleans.Element (Value));
57609
57610         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
57611            --  NamedElement::name : String
57612
57613            AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
57614             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
57615               (AMF.Holders.Element (Value));
57616
57617         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
57618            --  NamedElement::nameExpression : StringExpression
57619
57620            AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
57621             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
57622               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
57623
57624         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Create_Link_Object_Action_Result_A_Create_Link_Object_Action then
57625            --  CreateLinkObjectAction::result : OutputPin
57626
57627            AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
57628             (AMF.Internals.Helpers.To_Element (Self)).Set_Result
57629               (AMF.UML.Output_Pins.UML_Output_Pin_Access (AMF.Holders.Elements.Element (Value)));
57630
57631         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
57632            --  NamedElement::visibility : VisibilityKind
57633
57634            AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access
57635             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
57636               (AMF.UML.Holders.Element (Value));
57637
57638         else
57639            raise Program_Error;
57640         end if;
57641      end UML_Create_Link_Object_Action_Set;
57642
57643      ----------------------------------
57644      -- UML_Create_Object_Action_Set --
57645      ----------------------------------
57646
57647      procedure UML_Create_Object_Action_Set is
57648      begin
57649         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
57650            --  ActivityNode::activity : Activity
57651
57652            AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
57653             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
57654               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
57655
57656         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Create_Object_Action_Classifier_A_Create_Object_Action then
57657            --  CreateObjectAction::classifier : Classifier
57658
57659            AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
57660             (AMF.Internals.Helpers.To_Element (Self)).Set_Classifier
57661               (AMF.UML.Classifiers.UML_Classifier_Access (AMF.Holders.Elements.Element (Value)));
57662
57663         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
57664            --  ActivityNode::inStructuredNode : StructuredActivityNode
57665
57666            AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
57667             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
57668               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
57669
57670         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
57671            --  RedefinableElement::isLeaf : Boolean
57672
57673            AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
57674             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
57675               (League.Holders.Booleans.Element (Value));
57676
57677         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
57678            --  Action::isLocallyReentrant : Boolean
57679
57680            AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
57681             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
57682               (League.Holders.Booleans.Element (Value));
57683
57684         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
57685            --  NamedElement::name : String
57686
57687            AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
57688             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
57689               (AMF.Holders.Element (Value));
57690
57691         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
57692            --  NamedElement::nameExpression : StringExpression
57693
57694            AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
57695             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
57696               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
57697
57698         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Create_Object_Action_Result_A_Create_Object_Action then
57699            --  CreateObjectAction::result : OutputPin
57700
57701            AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
57702             (AMF.Internals.Helpers.To_Element (Self)).Set_Result
57703               (AMF.UML.Output_Pins.UML_Output_Pin_Access (AMF.Holders.Elements.Element (Value)));
57704
57705         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
57706            --  NamedElement::visibility : VisibilityKind
57707
57708            AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access
57709             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
57710               (AMF.UML.Holders.Element (Value));
57711
57712         else
57713            raise Program_Error;
57714         end if;
57715      end UML_Create_Object_Action_Set;
57716
57717      ------------------------------------
57718      -- UMLDI_UML_Activity_Diagram_Set --
57719      ------------------------------------
57720
57721      procedure UMLDI_UML_Activity_Diagram_Set is
57722      begin
57723         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
57724            --  Shape::bounds : Bounds
57725
57726            AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
57727             (AMF.Internals.Helpers.To_Element (Self)).Set_Bounds
57728               (AMF.DC.Holders.Element (Value));
57729
57730         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Documentation then
57731            --  Diagram::documentation : String
57732
57733            AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
57734             (AMF.Internals.Helpers.To_Element (Self)).Set_Documentation
57735               (League.Holders.Element (Value));
57736
57737         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Heading_A_Headed_Diagram then
57738            --  UMLDiagram::heading : UMLLabel
57739
57740            AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
57741             (AMF.Internals.Helpers.To_Element (Self)).Set_Heading
57742               (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access (AMF.Holders.Elements.Element (Value)));
57743
57744         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Activity_Diagram_Is_Activity_Frame then
57745            --  UMLActivityDiagram::isActivityFrame : Boolean
57746
57747            AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
57748             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Activity_Frame
57749               (League.Holders.Booleans.Element (Value));
57750
57751         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Frame then
57752            --  UMLDiagram::isFrame : Boolean
57753
57754            AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
57755             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Frame
57756               (League.Holders.Booleans.Element (Value));
57757
57758         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
57759            --  UMLDiagramElement::isIcon : Boolean
57760
57761            AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
57762             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Icon
57763               (League.Holders.Booleans.Element (Value));
57764
57765         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Iso then
57766            --  UMLDiagram::isIso : Boolean
57767
57768            AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
57769             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Iso
57770               (League.Holders.Booleans.Element (Value));
57771
57772         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
57773            --  UMLDiagramElement::localStyle : UMLStyle
57774
57775            AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
57776             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
57777               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
57778
57779         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
57780            --  DiagramElement::localStyle : Style
57781
57782            AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
57783             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
57784               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
57785
57786         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Activity_Diagram_Model_Element_A_Uml_Diagram_Element then
57787            --  UMLActivityDiagram::modelElement : Activity
57788
57789            AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
57790             (AMF.Internals.Helpers.To_Element (Self)).Set_Model_Element
57791               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
57792
57793         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Behavior_Diagram_Model_Element_A_Uml_Diagram_Element then
57794            --  UMLBehaviorDiagram::modelElement : Behavior
57795
57796            AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
57797             (AMF.Internals.Helpers.To_Element (Self)).Set_Model_Element
57798               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
57799
57800         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
57801            --  NamedElement::name : String
57802
57803            AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
57804             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
57805               (AMF.Holders.Element (Value));
57806
57807         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Name then
57808            --  Diagram::name : String
57809
57810            AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
57811             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
57812               (League.Holders.Element (Value));
57813
57814         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
57815            --  NamedElement::nameExpression : StringExpression
57816
57817            AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
57818             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
57819               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
57820
57821         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
57822            --  UMLDiagramElement::owningElement : UMLDiagramElement
57823
57824            AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
57825             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Element
57826               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access (AMF.Holders.Elements.Element (Value)));
57827
57828         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
57829            --  ParameterableElement::owningTemplateParameter : TemplateParameter
57830
57831            AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
57832             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
57833               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
57834
57835         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Resolution then
57836            --  Diagram::resolution : Real
57837
57838            AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
57839             (AMF.Internals.Helpers.To_Element (Self)).Set_Resolution
57840               (AMF.Holders.Reals.Element (Value));
57841
57842         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
57843            --  UMLDiagramElement::sharedStyle : UMLStyle
57844
57845            AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
57846             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
57847               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
57848
57849         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
57850            --  DiagramElement::sharedStyle : Style
57851
57852            AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
57853             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
57854               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
57855
57856         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
57857            --  ParameterableElement::templateParameter : TemplateParameter
57858
57859            AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
57860             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
57861               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
57862
57863         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
57864            --  NamedElement::visibility : VisibilityKind
57865
57866            AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
57867             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
57868               (AMF.UML.Holders.Element (Value));
57869
57870         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
57871            --  PackageableElement::visibility : VisibilityKind
57872
57873            AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access
57874             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
57875               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
57876
57877         else
57878            raise Program_Error;
57879         end if;
57880      end UMLDI_UML_Activity_Diagram_Set;
57881
57882      -----------------------------------------
57883      -- UMLDI_UML_Association_End_Label_Set --
57884      -----------------------------------------
57885
57886      procedure UMLDI_UML_Association_End_Label_Set is
57887      begin
57888         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
57889            --  Shape::bounds : Bounds
57890
57891            AMF.UMLDI.UML_Association_End_Labels.UMLDI_UML_Association_End_Label_Access
57892             (AMF.Internals.Helpers.To_Element (Self)).Set_Bounds
57893               (AMF.DC.Holders.Element (Value));
57894
57895         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
57896            --  UMLDiagramElement::isIcon : Boolean
57897
57898            AMF.UMLDI.UML_Association_End_Labels.UMLDI_UML_Association_End_Label_Access
57899             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Icon
57900               (League.Holders.Booleans.Element (Value));
57901
57902         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
57903            --  UMLDiagramElement::localStyle : UMLStyle
57904
57905            AMF.UMLDI.UML_Association_End_Labels.UMLDI_UML_Association_End_Label_Access
57906             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
57907               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
57908
57909         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
57910            --  DiagramElement::localStyle : Style
57911
57912            AMF.UMLDI.UML_Association_End_Labels.UMLDI_UML_Association_End_Label_Access
57913             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
57914               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
57915
57916         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Association_End_Label_Model_Element_A_Uml_Diagram_Element then
57917            --  UMLAssociationEndLabel::modelElement : Property
57918
57919            AMF.UMLDI.UML_Association_End_Labels.UMLDI_UML_Association_End_Label_Access
57920             (AMF.Internals.Helpers.To_Element (Self)).Set_Model_Element
57921               (AMF.UML.Properties.UML_Property_Access (AMF.Holders.Elements.Element (Value)));
57922
57923         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
57924            --  UMLDiagramElement::owningElement : UMLDiagramElement
57925
57926            AMF.UMLDI.UML_Association_End_Labels.UMLDI_UML_Association_End_Label_Access
57927             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Element
57928               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access (AMF.Holders.Elements.Element (Value)));
57929
57930         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
57931            --  UMLDiagramElement::sharedStyle : UMLStyle
57932
57933            AMF.UMLDI.UML_Association_End_Labels.UMLDI_UML_Association_End_Label_Access
57934             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
57935               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
57936
57937         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
57938            --  DiagramElement::sharedStyle : Style
57939
57940            AMF.UMLDI.UML_Association_End_Labels.UMLDI_UML_Association_End_Label_Access
57941             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
57942               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
57943
57944         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Label_Text then
57945            --  UMLLabel::text : String
57946
57947            AMF.UMLDI.UML_Association_End_Labels.UMLDI_UML_Association_End_Label_Access
57948             (AMF.Internals.Helpers.To_Element (Self)).Set_Text
57949               (League.Holders.Element (Value));
57950
57951         else
57952            raise Program_Error;
57953         end if;
57954      end UMLDI_UML_Association_End_Label_Set;
57955
57956      ----------------------------------------------------------
57957      -- UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Set --
57958      ----------------------------------------------------------
57959
57960      procedure UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Set is
57961      begin
57962         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
57963            --  Shape::bounds : Bounds
57964
57965            AMF.UMLDI.UML_Association_Or_Connector_Or_Link_Shapes.UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Access
57966             (AMF.Internals.Helpers.To_Element (Self)).Set_Bounds
57967               (AMF.DC.Holders.Element (Value));
57968
57969         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
57970            --  UMLDiagramElement::isIcon : Boolean
57971
57972            AMF.UMLDI.UML_Association_Or_Connector_Or_Link_Shapes.UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Access
57973             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Icon
57974               (League.Holders.Booleans.Element (Value));
57975
57976         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Kind then
57977            --  UMLAssociationOrConnectorOrLinkShape::kind : UMLAssociationOrConnectorOrLinkShapeKind
57978
57979            AMF.UMLDI.UML_Association_Or_Connector_Or_Link_Shapes.UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Access
57980             (AMF.Internals.Helpers.To_Element (Self)).Set_Kind
57981               (AMF.UMLDI.Holders.UML_Association_Or_Connector_Or_Link_Shape_Kinds.Element (Value));
57982
57983         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
57984            --  UMLDiagramElement::localStyle : UMLStyle
57985
57986            AMF.UMLDI.UML_Association_Or_Connector_Or_Link_Shapes.UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Access
57987             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
57988               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
57989
57990         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
57991            --  DiagramElement::localStyle : Style
57992
57993            AMF.UMLDI.UML_Association_Or_Connector_Or_Link_Shapes.UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Access
57994             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
57995               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
57996
57997         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
57998            --  UMLDiagramElement::owningElement : UMLDiagramElement
57999
58000            AMF.UMLDI.UML_Association_Or_Connector_Or_Link_Shapes.UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Access
58001             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Element
58002               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access (AMF.Holders.Elements.Element (Value)));
58003
58004         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
58005            --  UMLDiagramElement::sharedStyle : UMLStyle
58006
58007            AMF.UMLDI.UML_Association_Or_Connector_Or_Link_Shapes.UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Access
58008             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
58009               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
58010
58011         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
58012            --  DiagramElement::sharedStyle : Style
58013
58014            AMF.UMLDI.UML_Association_Or_Connector_Or_Link_Shapes.UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Access
58015             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
58016               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
58017
58018         else
58019            raise Program_Error;
58020         end if;
58021      end UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Set;
58022
58023      ---------------------------------
58024      -- UMLDI_UML_Class_Diagram_Set --
58025      ---------------------------------
58026
58027      procedure UMLDI_UML_Class_Diagram_Set is
58028      begin
58029         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
58030            --  Shape::bounds : Bounds
58031
58032            AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
58033             (AMF.Internals.Helpers.To_Element (Self)).Set_Bounds
58034               (AMF.DC.Holders.Element (Value));
58035
58036         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Documentation then
58037            --  Diagram::documentation : String
58038
58039            AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
58040             (AMF.Internals.Helpers.To_Element (Self)).Set_Documentation
58041               (League.Holders.Element (Value));
58042
58043         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Heading_A_Headed_Diagram then
58044            --  UMLDiagram::heading : UMLLabel
58045
58046            AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
58047             (AMF.Internals.Helpers.To_Element (Self)).Set_Heading
58048               (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access (AMF.Holders.Elements.Element (Value)));
58049
58050         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Class_Or_Composite_Structure_Diagram_Is_Association_Dot_Shown then
58051            --  UMLClassOrCompositeStructureDiagram::isAssociationDotShown : Boolean
58052
58053            AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
58054             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Association_Dot_Shown
58055               (League.Holders.Booleans.Element (Value));
58056
58057         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Frame then
58058            --  UMLDiagram::isFrame : Boolean
58059
58060            AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
58061             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Frame
58062               (League.Holders.Booleans.Element (Value));
58063
58064         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
58065            --  UMLDiagramElement::isIcon : Boolean
58066
58067            AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
58068             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Icon
58069               (League.Holders.Booleans.Element (Value));
58070
58071         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Iso then
58072            --  UMLDiagram::isIso : Boolean
58073
58074            AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
58075             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Iso
58076               (League.Holders.Booleans.Element (Value));
58077
58078         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
58079            --  UMLDiagramElement::localStyle : UMLStyle
58080
58081            AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
58082             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
58083               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
58084
58085         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
58086            --  DiagramElement::localStyle : Style
58087
58088            AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
58089             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
58090               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
58091
58092         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
58093            --  NamedElement::name : String
58094
58095            AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
58096             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
58097               (AMF.Holders.Element (Value));
58098
58099         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Name then
58100            --  Diagram::name : String
58101
58102            AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
58103             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
58104               (League.Holders.Element (Value));
58105
58106         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
58107            --  NamedElement::nameExpression : StringExpression
58108
58109            AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
58110             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
58111               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
58112
58113         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Class_Or_Composite_Structure_Diagram_Navigability_Notation then
58114            --  UMLClassOrCompositeStructureDiagram::navigabilityNotation : UMLNavigabilityNotationKind
58115
58116            AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
58117             (AMF.Internals.Helpers.To_Element (Self)).Set_Navigability_Notation
58118               (AMF.UMLDI.Holders.UML_Navigability_Notation_Kinds.Element (Value));
58119
58120         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Class_Or_Composite_Structure_Diagram_Non_Navigability_Notation then
58121            --  UMLClassOrCompositeStructureDiagram::nonNavigabilityNotation : UMLNavigabilityNotationKind
58122
58123            AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
58124             (AMF.Internals.Helpers.To_Element (Self)).Set_Non_Navigability_Notation
58125               (AMF.UMLDI.Holders.UML_Navigability_Notation_Kinds.Element (Value));
58126
58127         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
58128            --  UMLDiagramElement::owningElement : UMLDiagramElement
58129
58130            AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
58131             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Element
58132               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access (AMF.Holders.Elements.Element (Value)));
58133
58134         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
58135            --  ParameterableElement::owningTemplateParameter : TemplateParameter
58136
58137            AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
58138             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
58139               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
58140
58141         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Resolution then
58142            --  Diagram::resolution : Real
58143
58144            AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
58145             (AMF.Internals.Helpers.To_Element (Self)).Set_Resolution
58146               (AMF.Holders.Reals.Element (Value));
58147
58148         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
58149            --  UMLDiagramElement::sharedStyle : UMLStyle
58150
58151            AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
58152             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
58153               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
58154
58155         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
58156            --  DiagramElement::sharedStyle : Style
58157
58158            AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
58159             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
58160               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
58161
58162         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
58163            --  ParameterableElement::templateParameter : TemplateParameter
58164
58165            AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
58166             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
58167               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
58168
58169         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
58170            --  NamedElement::visibility : VisibilityKind
58171
58172            AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
58173             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
58174               (AMF.UML.Holders.Element (Value));
58175
58176         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
58177            --  PackageableElement::visibility : VisibilityKind
58178
58179            AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access
58180             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
58181               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
58182
58183         else
58184            raise Program_Error;
58185         end if;
58186      end UMLDI_UML_Class_Diagram_Set;
58187
58188      ------------------------------------
58189      -- UMLDI_UML_Classifier_Shape_Set --
58190      ------------------------------------
58191
58192      procedure UMLDI_UML_Classifier_Shape_Set is
58193      begin
58194         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
58195            --  Shape::bounds : Bounds
58196
58197            AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access
58198             (AMF.Internals.Helpers.To_Element (Self)).Set_Bounds
58199               (AMF.DC.Holders.Element (Value));
58200
58201         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Classifier_Shape_Is_Double_Sided then
58202            --  UMLClassifierShape::isDoubleSided : Boolean
58203
58204            AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access
58205             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Double_Sided
58206               (League.Holders.Booleans.Element (Value));
58207
58208         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
58209            --  UMLDiagramElement::isIcon : Boolean
58210
58211            AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access
58212             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Icon
58213               (League.Holders.Booleans.Element (Value));
58214
58215         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Classifier_Shape_Is_Indent_For_Visibility then
58216            --  UMLClassifierShape::isIndentForVisibility : Boolean
58217
58218            AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access
58219             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Indent_For_Visibility
58220               (League.Holders.Booleans.Element (Value));
58221
58222         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
58223            --  UMLDiagramElement::localStyle : UMLStyle
58224
58225            AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access
58226             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
58227               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
58228
58229         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
58230            --  DiagramElement::localStyle : Style
58231
58232            AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access
58233             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
58234               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
58235
58236         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Classifier_Shape_Model_Element_A_Uml_Diagram_Element then
58237            --  UMLClassifierShape::modelElement : Classifier
58238
58239            AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access
58240             (AMF.Internals.Helpers.To_Element (Self)).Set_Model_Element
58241               (AMF.UML.Classifiers.UML_Classifier_Access (AMF.Holders.Elements.Element (Value)));
58242
58243         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
58244            --  UMLDiagramElement::owningElement : UMLDiagramElement
58245
58246            AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access
58247             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Element
58248               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access (AMF.Holders.Elements.Element (Value)));
58249
58250         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
58251            --  UMLDiagramElement::sharedStyle : UMLStyle
58252
58253            AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access
58254             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
58255               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
58256
58257         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
58258            --  DiagramElement::sharedStyle : Style
58259
58260            AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access
58261             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
58262               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
58263
58264         else
58265            raise Program_Error;
58266         end if;
58267      end UMLDI_UML_Classifier_Shape_Set;
58268
58269      -------------------------------
58270      -- UMLDI_UML_Compartment_Set --
58271      -------------------------------
58272
58273      procedure UMLDI_UML_Compartment_Set is
58274      begin
58275         if Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
58276            --  UMLDiagramElement::isIcon : Boolean
58277
58278            AMF.UMLDI.UML_Compartments.UMLDI_UML_Compartment_Access
58279             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Icon
58280               (League.Holders.Booleans.Element (Value));
58281
58282         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
58283            --  UMLDiagramElement::localStyle : UMLStyle
58284
58285            AMF.UMLDI.UML_Compartments.UMLDI_UML_Compartment_Access
58286             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
58287               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
58288
58289         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
58290            --  DiagramElement::localStyle : Style
58291
58292            AMF.UMLDI.UML_Compartments.UMLDI_UML_Compartment_Access
58293             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
58294               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
58295
58296         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
58297            --  UMLDiagramElement::owningElement : UMLDiagramElement
58298
58299            AMF.UMLDI.UML_Compartments.UMLDI_UML_Compartment_Access
58300             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Element
58301               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access (AMF.Holders.Elements.Element (Value)));
58302
58303         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
58304            --  UMLDiagramElement::sharedStyle : UMLStyle
58305
58306            AMF.UMLDI.UML_Compartments.UMLDI_UML_Compartment_Access
58307             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
58308               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
58309
58310         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
58311            --  DiagramElement::sharedStyle : Style
58312
58313            AMF.UMLDI.UML_Compartments.UMLDI_UML_Compartment_Access
58314             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
58315               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
58316
58317         else
58318            raise Program_Error;
58319         end if;
58320      end UMLDI_UML_Compartment_Set;
58321
58322      -----------------------------------------
58323      -- UMLDI_UML_Compartmentable_Shape_Set --
58324      -----------------------------------------
58325
58326      procedure UMLDI_UML_Compartmentable_Shape_Set is
58327      begin
58328         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
58329            --  Shape::bounds : Bounds
58330
58331            AMF.UMLDI.UML_Compartmentable_Shapes.UMLDI_UML_Compartmentable_Shape_Access
58332             (AMF.Internals.Helpers.To_Element (Self)).Set_Bounds
58333               (AMF.DC.Holders.Element (Value));
58334
58335         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
58336            --  UMLDiagramElement::isIcon : Boolean
58337
58338            AMF.UMLDI.UML_Compartmentable_Shapes.UMLDI_UML_Compartmentable_Shape_Access
58339             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Icon
58340               (League.Holders.Booleans.Element (Value));
58341
58342         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
58343            --  UMLDiagramElement::localStyle : UMLStyle
58344
58345            AMF.UMLDI.UML_Compartmentable_Shapes.UMLDI_UML_Compartmentable_Shape_Access
58346             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
58347               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
58348
58349         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
58350            --  DiagramElement::localStyle : Style
58351
58352            AMF.UMLDI.UML_Compartmentable_Shapes.UMLDI_UML_Compartmentable_Shape_Access
58353             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
58354               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
58355
58356         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
58357            --  UMLDiagramElement::owningElement : UMLDiagramElement
58358
58359            AMF.UMLDI.UML_Compartmentable_Shapes.UMLDI_UML_Compartmentable_Shape_Access
58360             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Element
58361               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access (AMF.Holders.Elements.Element (Value)));
58362
58363         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
58364            --  UMLDiagramElement::sharedStyle : UMLStyle
58365
58366            AMF.UMLDI.UML_Compartmentable_Shapes.UMLDI_UML_Compartmentable_Shape_Access
58367             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
58368               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
58369
58370         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
58371            --  DiagramElement::sharedStyle : Style
58372
58373            AMF.UMLDI.UML_Compartmentable_Shapes.UMLDI_UML_Compartmentable_Shape_Access
58374             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
58375               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
58376
58377         else
58378            raise Program_Error;
58379         end if;
58380      end UMLDI_UML_Compartmentable_Shape_Set;
58381
58382      -------------------------------------
58383      -- UMLDI_UML_Component_Diagram_Set --
58384      -------------------------------------
58385
58386      procedure UMLDI_UML_Component_Diagram_Set is
58387      begin
58388         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
58389            --  Shape::bounds : Bounds
58390
58391            AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
58392             (AMF.Internals.Helpers.To_Element (Self)).Set_Bounds
58393               (AMF.DC.Holders.Element (Value));
58394
58395         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Documentation then
58396            --  Diagram::documentation : String
58397
58398            AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
58399             (AMF.Internals.Helpers.To_Element (Self)).Set_Documentation
58400               (League.Holders.Element (Value));
58401
58402         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Heading_A_Headed_Diagram then
58403            --  UMLDiagram::heading : UMLLabel
58404
58405            AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
58406             (AMF.Internals.Helpers.To_Element (Self)).Set_Heading
58407               (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access (AMF.Holders.Elements.Element (Value)));
58408
58409         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Frame then
58410            --  UMLDiagram::isFrame : Boolean
58411
58412            AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
58413             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Frame
58414               (League.Holders.Booleans.Element (Value));
58415
58416         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
58417            --  UMLDiagramElement::isIcon : Boolean
58418
58419            AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
58420             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Icon
58421               (League.Holders.Booleans.Element (Value));
58422
58423         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Iso then
58424            --  UMLDiagram::isIso : Boolean
58425
58426            AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
58427             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Iso
58428               (League.Holders.Booleans.Element (Value));
58429
58430         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
58431            --  UMLDiagramElement::localStyle : UMLStyle
58432
58433            AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
58434             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
58435               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
58436
58437         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
58438            --  DiagramElement::localStyle : Style
58439
58440            AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
58441             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
58442               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
58443
58444         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
58445            --  NamedElement::name : String
58446
58447            AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
58448             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
58449               (AMF.Holders.Element (Value));
58450
58451         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Name then
58452            --  Diagram::name : String
58453
58454            AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
58455             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
58456               (League.Holders.Element (Value));
58457
58458         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
58459            --  NamedElement::nameExpression : StringExpression
58460
58461            AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
58462             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
58463               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
58464
58465         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
58466            --  UMLDiagramElement::owningElement : UMLDiagramElement
58467
58468            AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
58469             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Element
58470               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access (AMF.Holders.Elements.Element (Value)));
58471
58472         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
58473            --  ParameterableElement::owningTemplateParameter : TemplateParameter
58474
58475            AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
58476             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
58477               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
58478
58479         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Resolution then
58480            --  Diagram::resolution : Real
58481
58482            AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
58483             (AMF.Internals.Helpers.To_Element (Self)).Set_Resolution
58484               (AMF.Holders.Reals.Element (Value));
58485
58486         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
58487            --  UMLDiagramElement::sharedStyle : UMLStyle
58488
58489            AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
58490             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
58491               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
58492
58493         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
58494            --  DiagramElement::sharedStyle : Style
58495
58496            AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
58497             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
58498               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
58499
58500         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
58501            --  ParameterableElement::templateParameter : TemplateParameter
58502
58503            AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
58504             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
58505               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
58506
58507         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
58508            --  NamedElement::visibility : VisibilityKind
58509
58510            AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
58511             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
58512               (AMF.UML.Holders.Element (Value));
58513
58514         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
58515            --  PackageableElement::visibility : VisibilityKind
58516
58517            AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access
58518             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
58519               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
58520
58521         else
58522            raise Program_Error;
58523         end if;
58524      end UMLDI_UML_Component_Diagram_Set;
58525
58526      -----------------------------------------------
58527      -- UMLDI_UML_Composite_Structure_Diagram_Set --
58528      -----------------------------------------------
58529
58530      procedure UMLDI_UML_Composite_Structure_Diagram_Set is
58531      begin
58532         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
58533            --  Shape::bounds : Bounds
58534
58535            AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
58536             (AMF.Internals.Helpers.To_Element (Self)).Set_Bounds
58537               (AMF.DC.Holders.Element (Value));
58538
58539         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Documentation then
58540            --  Diagram::documentation : String
58541
58542            AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
58543             (AMF.Internals.Helpers.To_Element (Self)).Set_Documentation
58544               (League.Holders.Element (Value));
58545
58546         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Heading_A_Headed_Diagram then
58547            --  UMLDiagram::heading : UMLLabel
58548
58549            AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
58550             (AMF.Internals.Helpers.To_Element (Self)).Set_Heading
58551               (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access (AMF.Holders.Elements.Element (Value)));
58552
58553         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Class_Or_Composite_Structure_Diagram_Is_Association_Dot_Shown then
58554            --  UMLClassOrCompositeStructureDiagram::isAssociationDotShown : Boolean
58555
58556            AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
58557             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Association_Dot_Shown
58558               (League.Holders.Booleans.Element (Value));
58559
58560         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Frame then
58561            --  UMLDiagram::isFrame : Boolean
58562
58563            AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
58564             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Frame
58565               (League.Holders.Booleans.Element (Value));
58566
58567         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
58568            --  UMLDiagramElement::isIcon : Boolean
58569
58570            AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
58571             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Icon
58572               (League.Holders.Booleans.Element (Value));
58573
58574         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Iso then
58575            --  UMLDiagram::isIso : Boolean
58576
58577            AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
58578             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Iso
58579               (League.Holders.Booleans.Element (Value));
58580
58581         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
58582            --  UMLDiagramElement::localStyle : UMLStyle
58583
58584            AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
58585             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
58586               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
58587
58588         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
58589            --  DiagramElement::localStyle : Style
58590
58591            AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
58592             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
58593               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
58594
58595         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
58596            --  NamedElement::name : String
58597
58598            AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
58599             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
58600               (AMF.Holders.Element (Value));
58601
58602         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Name then
58603            --  Diagram::name : String
58604
58605            AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
58606             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
58607               (League.Holders.Element (Value));
58608
58609         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
58610            --  NamedElement::nameExpression : StringExpression
58611
58612            AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
58613             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
58614               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
58615
58616         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Class_Or_Composite_Structure_Diagram_Navigability_Notation then
58617            --  UMLClassOrCompositeStructureDiagram::navigabilityNotation : UMLNavigabilityNotationKind
58618
58619            AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
58620             (AMF.Internals.Helpers.To_Element (Self)).Set_Navigability_Notation
58621               (AMF.UMLDI.Holders.UML_Navigability_Notation_Kinds.Element (Value));
58622
58623         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Class_Or_Composite_Structure_Diagram_Non_Navigability_Notation then
58624            --  UMLClassOrCompositeStructureDiagram::nonNavigabilityNotation : UMLNavigabilityNotationKind
58625
58626            AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
58627             (AMF.Internals.Helpers.To_Element (Self)).Set_Non_Navigability_Notation
58628               (AMF.UMLDI.Holders.UML_Navigability_Notation_Kinds.Element (Value));
58629
58630         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
58631            --  UMLDiagramElement::owningElement : UMLDiagramElement
58632
58633            AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
58634             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Element
58635               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access (AMF.Holders.Elements.Element (Value)));
58636
58637         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
58638            --  ParameterableElement::owningTemplateParameter : TemplateParameter
58639
58640            AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
58641             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
58642               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
58643
58644         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Resolution then
58645            --  Diagram::resolution : Real
58646
58647            AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
58648             (AMF.Internals.Helpers.To_Element (Self)).Set_Resolution
58649               (AMF.Holders.Reals.Element (Value));
58650
58651         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
58652            --  UMLDiagramElement::sharedStyle : UMLStyle
58653
58654            AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
58655             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
58656               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
58657
58658         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
58659            --  DiagramElement::sharedStyle : Style
58660
58661            AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
58662             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
58663               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
58664
58665         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
58666            --  ParameterableElement::templateParameter : TemplateParameter
58667
58668            AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
58669             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
58670               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
58671
58672         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
58673            --  NamedElement::visibility : VisibilityKind
58674
58675            AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
58676             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
58677               (AMF.UML.Holders.Element (Value));
58678
58679         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
58680            --  PackageableElement::visibility : VisibilityKind
58681
58682            AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access
58683             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
58684               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
58685
58686         else
58687            raise Program_Error;
58688         end if;
58689      end UMLDI_UML_Composite_Structure_Diagram_Set;
58690
58691      --------------------------------------
58692      -- UMLDI_UML_Deployment_Diagram_Set --
58693      --------------------------------------
58694
58695      procedure UMLDI_UML_Deployment_Diagram_Set is
58696      begin
58697         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
58698            --  Shape::bounds : Bounds
58699
58700            AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
58701             (AMF.Internals.Helpers.To_Element (Self)).Set_Bounds
58702               (AMF.DC.Holders.Element (Value));
58703
58704         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Documentation then
58705            --  Diagram::documentation : String
58706
58707            AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
58708             (AMF.Internals.Helpers.To_Element (Self)).Set_Documentation
58709               (League.Holders.Element (Value));
58710
58711         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Heading_A_Headed_Diagram then
58712            --  UMLDiagram::heading : UMLLabel
58713
58714            AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
58715             (AMF.Internals.Helpers.To_Element (Self)).Set_Heading
58716               (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access (AMF.Holders.Elements.Element (Value)));
58717
58718         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Frame then
58719            --  UMLDiagram::isFrame : Boolean
58720
58721            AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
58722             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Frame
58723               (League.Holders.Booleans.Element (Value));
58724
58725         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
58726            --  UMLDiagramElement::isIcon : Boolean
58727
58728            AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
58729             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Icon
58730               (League.Holders.Booleans.Element (Value));
58731
58732         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Iso then
58733            --  UMLDiagram::isIso : Boolean
58734
58735            AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
58736             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Iso
58737               (League.Holders.Booleans.Element (Value));
58738
58739         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
58740            --  UMLDiagramElement::localStyle : UMLStyle
58741
58742            AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
58743             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
58744               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
58745
58746         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
58747            --  DiagramElement::localStyle : Style
58748
58749            AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
58750             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
58751               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
58752
58753         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
58754            --  NamedElement::name : String
58755
58756            AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
58757             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
58758               (AMF.Holders.Element (Value));
58759
58760         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Name then
58761            --  Diagram::name : String
58762
58763            AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
58764             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
58765               (League.Holders.Element (Value));
58766
58767         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
58768            --  NamedElement::nameExpression : StringExpression
58769
58770            AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
58771             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
58772               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
58773
58774         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
58775            --  UMLDiagramElement::owningElement : UMLDiagramElement
58776
58777            AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
58778             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Element
58779               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access (AMF.Holders.Elements.Element (Value)));
58780
58781         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
58782            --  ParameterableElement::owningTemplateParameter : TemplateParameter
58783
58784            AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
58785             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
58786               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
58787
58788         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Resolution then
58789            --  Diagram::resolution : Real
58790
58791            AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
58792             (AMF.Internals.Helpers.To_Element (Self)).Set_Resolution
58793               (AMF.Holders.Reals.Element (Value));
58794
58795         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
58796            --  UMLDiagramElement::sharedStyle : UMLStyle
58797
58798            AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
58799             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
58800               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
58801
58802         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
58803            --  DiagramElement::sharedStyle : Style
58804
58805            AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
58806             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
58807               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
58808
58809         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
58810            --  ParameterableElement::templateParameter : TemplateParameter
58811
58812            AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
58813             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
58814               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
58815
58816         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
58817            --  NamedElement::visibility : VisibilityKind
58818
58819            AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
58820             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
58821               (AMF.UML.Holders.Element (Value));
58822
58823         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
58824            --  PackageableElement::visibility : VisibilityKind
58825
58826            AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access
58827             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
58828               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
58829
58830         else
58831            raise Program_Error;
58832         end if;
58833      end UMLDI_UML_Deployment_Diagram_Set;
58834
58835      ------------------------
58836      -- UMLDI_UML_Edge_Set --
58837      ------------------------
58838
58839      procedure UMLDI_UML_Edge_Set is
58840      begin
58841         if Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
58842            --  UMLDiagramElement::isIcon : Boolean
58843
58844            AMF.UMLDI.UML_Edges.UMLDI_UML_Edge_Access
58845             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Icon
58846               (League.Holders.Booleans.Element (Value));
58847
58848         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
58849            --  UMLDiagramElement::localStyle : UMLStyle
58850
58851            AMF.UMLDI.UML_Edges.UMLDI_UML_Edge_Access
58852             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
58853               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
58854
58855         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
58856            --  DiagramElement::localStyle : Style
58857
58858            AMF.UMLDI.UML_Edges.UMLDI_UML_Edge_Access
58859             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
58860               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
58861
58862         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
58863            --  UMLDiagramElement::owningElement : UMLDiagramElement
58864
58865            AMF.UMLDI.UML_Edges.UMLDI_UML_Edge_Access
58866             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Element
58867               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access (AMF.Holders.Elements.Element (Value)));
58868
58869         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
58870            --  UMLDiagramElement::sharedStyle : UMLStyle
58871
58872            AMF.UMLDI.UML_Edges.UMLDI_UML_Edge_Access
58873             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
58874               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
58875
58876         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
58877            --  DiagramElement::sharedStyle : Style
58878
58879            AMF.UMLDI.UML_Edges.UMLDI_UML_Edge_Access
58880             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
58881               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
58882
58883         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Edge_Source_A_Source_Edge then
58884            --  UMLEdge::source : UMLDiagramElement
58885
58886            AMF.UMLDI.UML_Edges.UMLDI_UML_Edge_Access
58887             (AMF.Internals.Helpers.To_Element (Self)).Set_Source
58888               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access (AMF.Holders.Elements.Element (Value)));
58889
58890         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Edge_Target_A_Target_Edge then
58891            --  UMLEdge::target : UMLDiagramElement
58892
58893            AMF.UMLDI.UML_Edges.UMLDI_UML_Edge_Access
58894             (AMF.Internals.Helpers.To_Element (Self)).Set_Target
58895               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access (AMF.Holders.Elements.Element (Value)));
58896
58897         else
58898            raise Program_Error;
58899         end if;
58900      end UMLDI_UML_Edge_Set;
58901
58902      ---------------------------------------
58903      -- UMLDI_UML_Interaction_Diagram_Set --
58904      ---------------------------------------
58905
58906      procedure UMLDI_UML_Interaction_Diagram_Set is
58907      begin
58908         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
58909            --  Shape::bounds : Bounds
58910
58911            AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
58912             (AMF.Internals.Helpers.To_Element (Self)).Set_Bounds
58913               (AMF.DC.Holders.Element (Value));
58914
58915         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Documentation then
58916            --  Diagram::documentation : String
58917
58918            AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
58919             (AMF.Internals.Helpers.To_Element (Self)).Set_Documentation
58920               (League.Holders.Element (Value));
58921
58922         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Heading_A_Headed_Diagram then
58923            --  UMLDiagram::heading : UMLLabel
58924
58925            AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
58926             (AMF.Internals.Helpers.To_Element (Self)).Set_Heading
58927               (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access (AMF.Holders.Elements.Element (Value)));
58928
58929         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Frame then
58930            --  UMLDiagram::isFrame : Boolean
58931
58932            AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
58933             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Frame
58934               (League.Holders.Booleans.Element (Value));
58935
58936         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
58937            --  UMLDiagramElement::isIcon : Boolean
58938
58939            AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
58940             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Icon
58941               (League.Holders.Booleans.Element (Value));
58942
58943         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Iso then
58944            --  UMLDiagram::isIso : Boolean
58945
58946            AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
58947             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Iso
58948               (League.Holders.Booleans.Element (Value));
58949
58950         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Interaction_Diagram_Kind then
58951            --  UMLInteractionDiagram::kind : UMLInteractionDiagramKind
58952
58953            AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
58954             (AMF.Internals.Helpers.To_Element (Self)).Set_Kind
58955               (AMF.UMLDI.Holders.UML_Interaction_Diagram_Kinds.Element (Value));
58956
58957         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
58958            --  UMLDiagramElement::localStyle : UMLStyle
58959
58960            AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
58961             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
58962               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
58963
58964         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
58965            --  DiagramElement::localStyle : Style
58966
58967            AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
58968             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
58969               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
58970
58971         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Behavior_Diagram_Model_Element_A_Uml_Diagram_Element then
58972            --  UMLBehaviorDiagram::modelElement : Behavior
58973
58974            AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
58975             (AMF.Internals.Helpers.To_Element (Self)).Set_Model_Element
58976               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
58977
58978         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Interaction_Diagram_Model_Element_A_Uml_Diagram_Element then
58979            --  UMLInteractionDiagram::modelElement : Interaction
58980
58981            AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
58982             (AMF.Internals.Helpers.To_Element (Self)).Set_Model_Element
58983               (AMF.UML.Interactions.UML_Interaction_Access (AMF.Holders.Elements.Element (Value)));
58984
58985         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
58986            --  NamedElement::name : String
58987
58988            AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
58989             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
58990               (AMF.Holders.Element (Value));
58991
58992         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Name then
58993            --  Diagram::name : String
58994
58995            AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
58996             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
58997               (League.Holders.Element (Value));
58998
58999         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
59000            --  NamedElement::nameExpression : StringExpression
59001
59002            AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
59003             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
59004               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
59005
59006         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
59007            --  UMLDiagramElement::owningElement : UMLDiagramElement
59008
59009            AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
59010             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Element
59011               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access (AMF.Holders.Elements.Element (Value)));
59012
59013         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
59014            --  ParameterableElement::owningTemplateParameter : TemplateParameter
59015
59016            AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
59017             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
59018               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
59019
59020         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Resolution then
59021            --  Diagram::resolution : Real
59022
59023            AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
59024             (AMF.Internals.Helpers.To_Element (Self)).Set_Resolution
59025               (AMF.Holders.Reals.Element (Value));
59026
59027         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
59028            --  UMLDiagramElement::sharedStyle : UMLStyle
59029
59030            AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
59031             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
59032               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
59033
59034         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
59035            --  DiagramElement::sharedStyle : Style
59036
59037            AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
59038             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
59039               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
59040
59041         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
59042            --  ParameterableElement::templateParameter : TemplateParameter
59043
59044            AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
59045             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
59046               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
59047
59048         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
59049            --  NamedElement::visibility : VisibilityKind
59050
59051            AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
59052             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
59053               (AMF.UML.Holders.Element (Value));
59054
59055         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
59056            --  PackageableElement::visibility : VisibilityKind
59057
59058            AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access
59059             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
59060               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
59061
59062         else
59063            raise Program_Error;
59064         end if;
59065      end UMLDI_UML_Interaction_Diagram_Set;
59066
59067      -------------------------------------------
59068      -- UMLDI_UML_Interaction_Table_Label_Set --
59069      -------------------------------------------
59070
59071      procedure UMLDI_UML_Interaction_Table_Label_Set is
59072      begin
59073         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
59074            --  Shape::bounds : Bounds
59075
59076            AMF.UMLDI.UML_Interaction_Table_Labels.UMLDI_UML_Interaction_Table_Label_Access
59077             (AMF.Internals.Helpers.To_Element (Self)).Set_Bounds
59078               (AMF.DC.Holders.Element (Value));
59079
59080         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
59081            --  UMLDiagramElement::isIcon : Boolean
59082
59083            AMF.UMLDI.UML_Interaction_Table_Labels.UMLDI_UML_Interaction_Table_Label_Access
59084             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Icon
59085               (League.Holders.Booleans.Element (Value));
59086
59087         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Interaction_Table_Label_Kind then
59088            --  UMLInteractionTableLabel::kind : UMLInteractionTableLabelKind
59089
59090            AMF.UMLDI.UML_Interaction_Table_Labels.UMLDI_UML_Interaction_Table_Label_Access
59091             (AMF.Internals.Helpers.To_Element (Self)).Set_Kind
59092               (AMF.UMLDI.Holders.UML_Interaction_Table_Label_Kinds.Element (Value));
59093
59094         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
59095            --  UMLDiagramElement::localStyle : UMLStyle
59096
59097            AMF.UMLDI.UML_Interaction_Table_Labels.UMLDI_UML_Interaction_Table_Label_Access
59098             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
59099               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
59100
59101         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
59102            --  DiagramElement::localStyle : Style
59103
59104            AMF.UMLDI.UML_Interaction_Table_Labels.UMLDI_UML_Interaction_Table_Label_Access
59105             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
59106               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
59107
59108         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
59109            --  UMLDiagramElement::owningElement : UMLDiagramElement
59110
59111            AMF.UMLDI.UML_Interaction_Table_Labels.UMLDI_UML_Interaction_Table_Label_Access
59112             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Element
59113               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access (AMF.Holders.Elements.Element (Value)));
59114
59115         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
59116            --  UMLDiagramElement::sharedStyle : UMLStyle
59117
59118            AMF.UMLDI.UML_Interaction_Table_Labels.UMLDI_UML_Interaction_Table_Label_Access
59119             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
59120               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
59121
59122         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
59123            --  DiagramElement::sharedStyle : Style
59124
59125            AMF.UMLDI.UML_Interaction_Table_Labels.UMLDI_UML_Interaction_Table_Label_Access
59126             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
59127               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
59128
59129         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Label_Text then
59130            --  UMLLabel::text : String
59131
59132            AMF.UMLDI.UML_Interaction_Table_Labels.UMLDI_UML_Interaction_Table_Label_Access
59133             (AMF.Internals.Helpers.To_Element (Self)).Set_Text
59134               (League.Holders.Element (Value));
59135
59136         else
59137            raise Program_Error;
59138         end if;
59139      end UMLDI_UML_Interaction_Table_Label_Set;
59140
59141      ---------------------------------
59142      -- UMLDI_UML_Keyword_Label_Set --
59143      ---------------------------------
59144
59145      procedure UMLDI_UML_Keyword_Label_Set is
59146      begin
59147         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
59148            --  Shape::bounds : Bounds
59149
59150            AMF.UMLDI.UML_Keyword_Labels.UMLDI_UML_Keyword_Label_Access
59151             (AMF.Internals.Helpers.To_Element (Self)).Set_Bounds
59152               (AMF.DC.Holders.Element (Value));
59153
59154         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
59155            --  UMLDiagramElement::isIcon : Boolean
59156
59157            AMF.UMLDI.UML_Keyword_Labels.UMLDI_UML_Keyword_Label_Access
59158             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Icon
59159               (League.Holders.Booleans.Element (Value));
59160
59161         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
59162            --  UMLDiagramElement::localStyle : UMLStyle
59163
59164            AMF.UMLDI.UML_Keyword_Labels.UMLDI_UML_Keyword_Label_Access
59165             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
59166               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
59167
59168         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
59169            --  DiagramElement::localStyle : Style
59170
59171            AMF.UMLDI.UML_Keyword_Labels.UMLDI_UML_Keyword_Label_Access
59172             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
59173               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
59174
59175         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
59176            --  UMLDiagramElement::owningElement : UMLDiagramElement
59177
59178            AMF.UMLDI.UML_Keyword_Labels.UMLDI_UML_Keyword_Label_Access
59179             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Element
59180               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access (AMF.Holders.Elements.Element (Value)));
59181
59182         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
59183            --  UMLDiagramElement::sharedStyle : UMLStyle
59184
59185            AMF.UMLDI.UML_Keyword_Labels.UMLDI_UML_Keyword_Label_Access
59186             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
59187               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
59188
59189         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
59190            --  DiagramElement::sharedStyle : Style
59191
59192            AMF.UMLDI.UML_Keyword_Labels.UMLDI_UML_Keyword_Label_Access
59193             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
59194               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
59195
59196         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Label_Text then
59197            --  UMLLabel::text : String
59198
59199            AMF.UMLDI.UML_Keyword_Labels.UMLDI_UML_Keyword_Label_Access
59200             (AMF.Internals.Helpers.To_Element (Self)).Set_Text
59201               (League.Holders.Element (Value));
59202
59203         else
59204            raise Program_Error;
59205         end if;
59206      end UMLDI_UML_Keyword_Label_Set;
59207
59208      -------------------------
59209      -- UMLDI_UML_Label_Set --
59210      -------------------------
59211
59212      procedure UMLDI_UML_Label_Set is
59213      begin
59214         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
59215            --  Shape::bounds : Bounds
59216
59217            AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access
59218             (AMF.Internals.Helpers.To_Element (Self)).Set_Bounds
59219               (AMF.DC.Holders.Element (Value));
59220
59221         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
59222            --  UMLDiagramElement::isIcon : Boolean
59223
59224            AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access
59225             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Icon
59226               (League.Holders.Booleans.Element (Value));
59227
59228         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
59229            --  UMLDiagramElement::localStyle : UMLStyle
59230
59231            AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access
59232             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
59233               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
59234
59235         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
59236            --  DiagramElement::localStyle : Style
59237
59238            AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access
59239             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
59240               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
59241
59242         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
59243            --  UMLDiagramElement::owningElement : UMLDiagramElement
59244
59245            AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access
59246             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Element
59247               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access (AMF.Holders.Elements.Element (Value)));
59248
59249         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
59250            --  UMLDiagramElement::sharedStyle : UMLStyle
59251
59252            AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access
59253             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
59254               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
59255
59256         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
59257            --  DiagramElement::sharedStyle : Style
59258
59259            AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access
59260             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
59261               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
59262
59263         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Label_Text then
59264            --  UMLLabel::text : String
59265
59266            AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access
59267             (AMF.Internals.Helpers.To_Element (Self)).Set_Text
59268               (League.Holders.Element (Value));
59269
59270         else
59271            raise Program_Error;
59272         end if;
59273      end UMLDI_UML_Label_Set;
59274
59275      --------------------------------------
59276      -- UMLDI_UML_Multiplicity_Label_Set --
59277      --------------------------------------
59278
59279      procedure UMLDI_UML_Multiplicity_Label_Set is
59280      begin
59281         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
59282            --  Shape::bounds : Bounds
59283
59284            AMF.UMLDI.UML_Multiplicity_Labels.UMLDI_UML_Multiplicity_Label_Access
59285             (AMF.Internals.Helpers.To_Element (Self)).Set_Bounds
59286               (AMF.DC.Holders.Element (Value));
59287
59288         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
59289            --  UMLDiagramElement::isIcon : Boolean
59290
59291            AMF.UMLDI.UML_Multiplicity_Labels.UMLDI_UML_Multiplicity_Label_Access
59292             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Icon
59293               (League.Holders.Booleans.Element (Value));
59294
59295         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
59296            --  UMLDiagramElement::localStyle : UMLStyle
59297
59298            AMF.UMLDI.UML_Multiplicity_Labels.UMLDI_UML_Multiplicity_Label_Access
59299             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
59300               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
59301
59302         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
59303            --  DiagramElement::localStyle : Style
59304
59305            AMF.UMLDI.UML_Multiplicity_Labels.UMLDI_UML_Multiplicity_Label_Access
59306             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
59307               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
59308
59309         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Multiplicity_Label_Model_Element_A_Uml_Diagram_Element then
59310            --  UMLMultiplicityLabel::modelElement : MultiplicityElement
59311
59312            AMF.UMLDI.UML_Multiplicity_Labels.UMLDI_UML_Multiplicity_Label_Access
59313             (AMF.Internals.Helpers.To_Element (Self)).Set_Model_Element
59314               (AMF.UML.Multiplicity_Elements.UML_Multiplicity_Element_Access (AMF.Holders.Elements.Element (Value)));
59315
59316         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
59317            --  UMLDiagramElement::owningElement : UMLDiagramElement
59318
59319            AMF.UMLDI.UML_Multiplicity_Labels.UMLDI_UML_Multiplicity_Label_Access
59320             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Element
59321               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access (AMF.Holders.Elements.Element (Value)));
59322
59323         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
59324            --  UMLDiagramElement::sharedStyle : UMLStyle
59325
59326            AMF.UMLDI.UML_Multiplicity_Labels.UMLDI_UML_Multiplicity_Label_Access
59327             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
59328               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
59329
59330         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
59331            --  DiagramElement::sharedStyle : Style
59332
59333            AMF.UMLDI.UML_Multiplicity_Labels.UMLDI_UML_Multiplicity_Label_Access
59334             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
59335               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
59336
59337         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Label_Text then
59338            --  UMLLabel::text : String
59339
59340            AMF.UMLDI.UML_Multiplicity_Labels.UMLDI_UML_Multiplicity_Label_Access
59341             (AMF.Internals.Helpers.To_Element (Self)).Set_Text
59342               (League.Holders.Element (Value));
59343
59344         else
59345            raise Program_Error;
59346         end if;
59347      end UMLDI_UML_Multiplicity_Label_Set;
59348
59349      ------------------------------
59350      -- UMLDI_UML_Name_Label_Set --
59351      ------------------------------
59352
59353      procedure UMLDI_UML_Name_Label_Set is
59354      begin
59355         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
59356            --  Shape::bounds : Bounds
59357
59358            AMF.UMLDI.UML_Name_Labels.UMLDI_UML_Name_Label_Access
59359             (AMF.Internals.Helpers.To_Element (Self)).Set_Bounds
59360               (AMF.DC.Holders.Element (Value));
59361
59362         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
59363            --  UMLDiagramElement::isIcon : Boolean
59364
59365            AMF.UMLDI.UML_Name_Labels.UMLDI_UML_Name_Label_Access
59366             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Icon
59367               (League.Holders.Booleans.Element (Value));
59368
59369         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
59370            --  UMLDiagramElement::localStyle : UMLStyle
59371
59372            AMF.UMLDI.UML_Name_Labels.UMLDI_UML_Name_Label_Access
59373             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
59374               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
59375
59376         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
59377            --  DiagramElement::localStyle : Style
59378
59379            AMF.UMLDI.UML_Name_Labels.UMLDI_UML_Name_Label_Access
59380             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
59381               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
59382
59383         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Name_Label_Mode_Element_A_Uml_Diagram_Element then
59384            --  UMLNameLabel::modeElement : NamedElement
59385
59386            AMF.UMLDI.UML_Name_Labels.UMLDI_UML_Name_Label_Access
59387             (AMF.Internals.Helpers.To_Element (Self)).Set_Mode_Element
59388               (AMF.UML.Named_Elements.UML_Named_Element_Access (AMF.Holders.Elements.Element (Value)));
59389
59390         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
59391            --  UMLDiagramElement::owningElement : UMLDiagramElement
59392
59393            AMF.UMLDI.UML_Name_Labels.UMLDI_UML_Name_Label_Access
59394             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Element
59395               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access (AMF.Holders.Elements.Element (Value)));
59396
59397         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
59398            --  UMLDiagramElement::sharedStyle : UMLStyle
59399
59400            AMF.UMLDI.UML_Name_Labels.UMLDI_UML_Name_Label_Access
59401             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
59402               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
59403
59404         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
59405            --  DiagramElement::sharedStyle : Style
59406
59407            AMF.UMLDI.UML_Name_Labels.UMLDI_UML_Name_Label_Access
59408             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
59409               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
59410
59411         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Label_Text then
59412            --  UMLLabel::text : String
59413
59414            AMF.UMLDI.UML_Name_Labels.UMLDI_UML_Name_Label_Access
59415             (AMF.Internals.Helpers.To_Element (Self)).Set_Text
59416               (League.Holders.Element (Value));
59417
59418         else
59419            raise Program_Error;
59420         end if;
59421      end UMLDI_UML_Name_Label_Set;
59422
59423      ----------------------------------
59424      -- UMLDI_UML_Object_Diagram_Set --
59425      ----------------------------------
59426
59427      procedure UMLDI_UML_Object_Diagram_Set is
59428      begin
59429         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
59430            --  Shape::bounds : Bounds
59431
59432            AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
59433             (AMF.Internals.Helpers.To_Element (Self)).Set_Bounds
59434               (AMF.DC.Holders.Element (Value));
59435
59436         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Documentation then
59437            --  Diagram::documentation : String
59438
59439            AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
59440             (AMF.Internals.Helpers.To_Element (Self)).Set_Documentation
59441               (League.Holders.Element (Value));
59442
59443         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Heading_A_Headed_Diagram then
59444            --  UMLDiagram::heading : UMLLabel
59445
59446            AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
59447             (AMF.Internals.Helpers.To_Element (Self)).Set_Heading
59448               (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access (AMF.Holders.Elements.Element (Value)));
59449
59450         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Frame then
59451            --  UMLDiagram::isFrame : Boolean
59452
59453            AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
59454             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Frame
59455               (League.Holders.Booleans.Element (Value));
59456
59457         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
59458            --  UMLDiagramElement::isIcon : Boolean
59459
59460            AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
59461             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Icon
59462               (League.Holders.Booleans.Element (Value));
59463
59464         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Iso then
59465            --  UMLDiagram::isIso : Boolean
59466
59467            AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
59468             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Iso
59469               (League.Holders.Booleans.Element (Value));
59470
59471         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
59472            --  UMLDiagramElement::localStyle : UMLStyle
59473
59474            AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
59475             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
59476               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
59477
59478         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
59479            --  DiagramElement::localStyle : Style
59480
59481            AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
59482             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
59483               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
59484
59485         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
59486            --  NamedElement::name : String
59487
59488            AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
59489             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
59490               (AMF.Holders.Element (Value));
59491
59492         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Name then
59493            --  Diagram::name : String
59494
59495            AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
59496             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
59497               (League.Holders.Element (Value));
59498
59499         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
59500            --  NamedElement::nameExpression : StringExpression
59501
59502            AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
59503             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
59504               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
59505
59506         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
59507            --  UMLDiagramElement::owningElement : UMLDiagramElement
59508
59509            AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
59510             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Element
59511               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access (AMF.Holders.Elements.Element (Value)));
59512
59513         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
59514            --  ParameterableElement::owningTemplateParameter : TemplateParameter
59515
59516            AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
59517             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
59518               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
59519
59520         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Resolution then
59521            --  Diagram::resolution : Real
59522
59523            AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
59524             (AMF.Internals.Helpers.To_Element (Self)).Set_Resolution
59525               (AMF.Holders.Reals.Element (Value));
59526
59527         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
59528            --  UMLDiagramElement::sharedStyle : UMLStyle
59529
59530            AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
59531             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
59532               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
59533
59534         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
59535            --  DiagramElement::sharedStyle : Style
59536
59537            AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
59538             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
59539               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
59540
59541         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
59542            --  ParameterableElement::templateParameter : TemplateParameter
59543
59544            AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
59545             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
59546               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
59547
59548         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
59549            --  NamedElement::visibility : VisibilityKind
59550
59551            AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
59552             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
59553               (AMF.UML.Holders.Element (Value));
59554
59555         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
59556            --  PackageableElement::visibility : VisibilityKind
59557
59558            AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access
59559             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
59560               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
59561
59562         else
59563            raise Program_Error;
59564         end if;
59565      end UMLDI_UML_Object_Diagram_Set;
59566
59567      -----------------------------------
59568      -- UMLDI_UML_Package_Diagram_Set --
59569      -----------------------------------
59570
59571      procedure UMLDI_UML_Package_Diagram_Set is
59572      begin
59573         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
59574            --  Shape::bounds : Bounds
59575
59576            AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
59577             (AMF.Internals.Helpers.To_Element (Self)).Set_Bounds
59578               (AMF.DC.Holders.Element (Value));
59579
59580         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Documentation then
59581            --  Diagram::documentation : String
59582
59583            AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
59584             (AMF.Internals.Helpers.To_Element (Self)).Set_Documentation
59585               (League.Holders.Element (Value));
59586
59587         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Heading_A_Headed_Diagram then
59588            --  UMLDiagram::heading : UMLLabel
59589
59590            AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
59591             (AMF.Internals.Helpers.To_Element (Self)).Set_Heading
59592               (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access (AMF.Holders.Elements.Element (Value)));
59593
59594         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Frame then
59595            --  UMLDiagram::isFrame : Boolean
59596
59597            AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
59598             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Frame
59599               (League.Holders.Booleans.Element (Value));
59600
59601         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
59602            --  UMLDiagramElement::isIcon : Boolean
59603
59604            AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
59605             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Icon
59606               (League.Holders.Booleans.Element (Value));
59607
59608         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Iso then
59609            --  UMLDiagram::isIso : Boolean
59610
59611            AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
59612             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Iso
59613               (League.Holders.Booleans.Element (Value));
59614
59615         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
59616            --  UMLDiagramElement::localStyle : UMLStyle
59617
59618            AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
59619             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
59620               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
59621
59622         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
59623            --  DiagramElement::localStyle : Style
59624
59625            AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
59626             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
59627               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
59628
59629         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
59630            --  NamedElement::name : String
59631
59632            AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
59633             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
59634               (AMF.Holders.Element (Value));
59635
59636         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Name then
59637            --  Diagram::name : String
59638
59639            AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
59640             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
59641               (League.Holders.Element (Value));
59642
59643         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
59644            --  NamedElement::nameExpression : StringExpression
59645
59646            AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
59647             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
59648               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
59649
59650         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
59651            --  UMLDiagramElement::owningElement : UMLDiagramElement
59652
59653            AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
59654             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Element
59655               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access (AMF.Holders.Elements.Element (Value)));
59656
59657         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
59658            --  ParameterableElement::owningTemplateParameter : TemplateParameter
59659
59660            AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
59661             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
59662               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
59663
59664         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Resolution then
59665            --  Diagram::resolution : Real
59666
59667            AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
59668             (AMF.Internals.Helpers.To_Element (Self)).Set_Resolution
59669               (AMF.Holders.Reals.Element (Value));
59670
59671         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
59672            --  UMLDiagramElement::sharedStyle : UMLStyle
59673
59674            AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
59675             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
59676               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
59677
59678         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
59679            --  DiagramElement::sharedStyle : Style
59680
59681            AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
59682             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
59683               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
59684
59685         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
59686            --  ParameterableElement::templateParameter : TemplateParameter
59687
59688            AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
59689             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
59690               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
59691
59692         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
59693            --  NamedElement::visibility : VisibilityKind
59694
59695            AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
59696             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
59697               (AMF.UML.Holders.Element (Value));
59698
59699         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
59700            --  PackageableElement::visibility : VisibilityKind
59701
59702            AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access
59703             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
59704               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
59705
59706         else
59707            raise Program_Error;
59708         end if;
59709      end UMLDI_UML_Package_Diagram_Set;
59710
59711      -----------------------------------
59712      -- UMLDI_UML_Profile_Diagram_Set --
59713      -----------------------------------
59714
59715      procedure UMLDI_UML_Profile_Diagram_Set is
59716      begin
59717         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
59718            --  Shape::bounds : Bounds
59719
59720            AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
59721             (AMF.Internals.Helpers.To_Element (Self)).Set_Bounds
59722               (AMF.DC.Holders.Element (Value));
59723
59724         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Documentation then
59725            --  Diagram::documentation : String
59726
59727            AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
59728             (AMF.Internals.Helpers.To_Element (Self)).Set_Documentation
59729               (League.Holders.Element (Value));
59730
59731         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Heading_A_Headed_Diagram then
59732            --  UMLDiagram::heading : UMLLabel
59733
59734            AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
59735             (AMF.Internals.Helpers.To_Element (Self)).Set_Heading
59736               (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access (AMF.Holders.Elements.Element (Value)));
59737
59738         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Frame then
59739            --  UMLDiagram::isFrame : Boolean
59740
59741            AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
59742             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Frame
59743               (League.Holders.Booleans.Element (Value));
59744
59745         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
59746            --  UMLDiagramElement::isIcon : Boolean
59747
59748            AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
59749             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Icon
59750               (League.Holders.Booleans.Element (Value));
59751
59752         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Iso then
59753            --  UMLDiagram::isIso : Boolean
59754
59755            AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
59756             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Iso
59757               (League.Holders.Booleans.Element (Value));
59758
59759         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
59760            --  UMLDiagramElement::localStyle : UMLStyle
59761
59762            AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
59763             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
59764               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
59765
59766         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
59767            --  DiagramElement::localStyle : Style
59768
59769            AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
59770             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
59771               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
59772
59773         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
59774            --  NamedElement::name : String
59775
59776            AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
59777             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
59778               (AMF.Holders.Element (Value));
59779
59780         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Name then
59781            --  Diagram::name : String
59782
59783            AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
59784             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
59785               (League.Holders.Element (Value));
59786
59787         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
59788            --  NamedElement::nameExpression : StringExpression
59789
59790            AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
59791             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
59792               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
59793
59794         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
59795            --  UMLDiagramElement::owningElement : UMLDiagramElement
59796
59797            AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
59798             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Element
59799               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access (AMF.Holders.Elements.Element (Value)));
59800
59801         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
59802            --  ParameterableElement::owningTemplateParameter : TemplateParameter
59803
59804            AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
59805             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
59806               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
59807
59808         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Resolution then
59809            --  Diagram::resolution : Real
59810
59811            AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
59812             (AMF.Internals.Helpers.To_Element (Self)).Set_Resolution
59813               (AMF.Holders.Reals.Element (Value));
59814
59815         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
59816            --  UMLDiagramElement::sharedStyle : UMLStyle
59817
59818            AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
59819             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
59820               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
59821
59822         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
59823            --  DiagramElement::sharedStyle : Style
59824
59825            AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
59826             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
59827               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
59828
59829         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
59830            --  ParameterableElement::templateParameter : TemplateParameter
59831
59832            AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
59833             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
59834               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
59835
59836         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
59837            --  NamedElement::visibility : VisibilityKind
59838
59839            AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
59840             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
59841               (AMF.UML.Holders.Element (Value));
59842
59843         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
59844            --  PackageableElement::visibility : VisibilityKind
59845
59846            AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access
59847             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
59848               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
59849
59850         else
59851            raise Program_Error;
59852         end if;
59853      end UMLDI_UML_Profile_Diagram_Set;
59854
59855      -----------------------------------
59856      -- UMLDI_UML_Redefines_Label_Set --
59857      -----------------------------------
59858
59859      procedure UMLDI_UML_Redefines_Label_Set is
59860      begin
59861         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
59862            --  Shape::bounds : Bounds
59863
59864            AMF.UMLDI.UML_Redefines_Labels.UMLDI_UML_Redefines_Label_Access
59865             (AMF.Internals.Helpers.To_Element (Self)).Set_Bounds
59866               (AMF.DC.Holders.Element (Value));
59867
59868         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
59869            --  UMLDiagramElement::isIcon : Boolean
59870
59871            AMF.UMLDI.UML_Redefines_Labels.UMLDI_UML_Redefines_Label_Access
59872             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Icon
59873               (League.Holders.Booleans.Element (Value));
59874
59875         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
59876            --  UMLDiagramElement::localStyle : UMLStyle
59877
59878            AMF.UMLDI.UML_Redefines_Labels.UMLDI_UML_Redefines_Label_Access
59879             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
59880               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
59881
59882         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
59883            --  DiagramElement::localStyle : Style
59884
59885            AMF.UMLDI.UML_Redefines_Labels.UMLDI_UML_Redefines_Label_Access
59886             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
59887               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
59888
59889         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Redefines_Label_Model_Element_A_Uml_Diagram_Element then
59890            --  UMLRedefinesLabel::modelElement : RedefinableElement
59891
59892            AMF.UMLDI.UML_Redefines_Labels.UMLDI_UML_Redefines_Label_Access
59893             (AMF.Internals.Helpers.To_Element (Self)).Set_Model_Element
59894               (AMF.UML.Redefinable_Elements.UML_Redefinable_Element_Access (AMF.Holders.Elements.Element (Value)));
59895
59896         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
59897            --  UMLDiagramElement::owningElement : UMLDiagramElement
59898
59899            AMF.UMLDI.UML_Redefines_Labels.UMLDI_UML_Redefines_Label_Access
59900             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Element
59901               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access (AMF.Holders.Elements.Element (Value)));
59902
59903         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
59904            --  UMLDiagramElement::sharedStyle : UMLStyle
59905
59906            AMF.UMLDI.UML_Redefines_Labels.UMLDI_UML_Redefines_Label_Access
59907             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
59908               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
59909
59910         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
59911            --  DiagramElement::sharedStyle : Style
59912
59913            AMF.UMLDI.UML_Redefines_Labels.UMLDI_UML_Redefines_Label_Access
59914             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
59915               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
59916
59917         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Label_Text then
59918            --  UMLLabel::text : String
59919
59920            AMF.UMLDI.UML_Redefines_Labels.UMLDI_UML_Redefines_Label_Access
59921             (AMF.Internals.Helpers.To_Element (Self)).Set_Text
59922               (League.Holders.Element (Value));
59923
59924         else
59925            raise Program_Error;
59926         end if;
59927      end UMLDI_UML_Redefines_Label_Set;
59928
59929      -------------------------
59930      -- UMLDI_UML_Shape_Set --
59931      -------------------------
59932
59933      procedure UMLDI_UML_Shape_Set is
59934      begin
59935         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
59936            --  Shape::bounds : Bounds
59937
59938            AMF.UMLDI.UML_Shapes.UMLDI_UML_Shape_Access
59939             (AMF.Internals.Helpers.To_Element (Self)).Set_Bounds
59940               (AMF.DC.Holders.Element (Value));
59941
59942         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
59943            --  UMLDiagramElement::isIcon : Boolean
59944
59945            AMF.UMLDI.UML_Shapes.UMLDI_UML_Shape_Access
59946             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Icon
59947               (League.Holders.Booleans.Element (Value));
59948
59949         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
59950            --  UMLDiagramElement::localStyle : UMLStyle
59951
59952            AMF.UMLDI.UML_Shapes.UMLDI_UML_Shape_Access
59953             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
59954               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
59955
59956         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
59957            --  DiagramElement::localStyle : Style
59958
59959            AMF.UMLDI.UML_Shapes.UMLDI_UML_Shape_Access
59960             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
59961               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
59962
59963         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
59964            --  UMLDiagramElement::owningElement : UMLDiagramElement
59965
59966            AMF.UMLDI.UML_Shapes.UMLDI_UML_Shape_Access
59967             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Element
59968               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access (AMF.Holders.Elements.Element (Value)));
59969
59970         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
59971            --  UMLDiagramElement::sharedStyle : UMLStyle
59972
59973            AMF.UMLDI.UML_Shapes.UMLDI_UML_Shape_Access
59974             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
59975               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
59976
59977         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
59978            --  DiagramElement::sharedStyle : Style
59979
59980            AMF.UMLDI.UML_Shapes.UMLDI_UML_Shape_Access
59981             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
59982               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
59983
59984         else
59985            raise Program_Error;
59986         end if;
59987      end UMLDI_UML_Shape_Set;
59988
59989      -----------------------------------------
59990      -- UMLDI_UML_State_Machine_Diagram_Set --
59991      -----------------------------------------
59992
59993      procedure UMLDI_UML_State_Machine_Diagram_Set is
59994      begin
59995         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
59996            --  Shape::bounds : Bounds
59997
59998            AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
59999             (AMF.Internals.Helpers.To_Element (Self)).Set_Bounds
60000               (AMF.DC.Holders.Element (Value));
60001
60002         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Documentation then
60003            --  Diagram::documentation : String
60004
60005            AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
60006             (AMF.Internals.Helpers.To_Element (Self)).Set_Documentation
60007               (League.Holders.Element (Value));
60008
60009         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Heading_A_Headed_Diagram then
60010            --  UMLDiagram::heading : UMLLabel
60011
60012            AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
60013             (AMF.Internals.Helpers.To_Element (Self)).Set_Heading
60014               (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access (AMF.Holders.Elements.Element (Value)));
60015
60016         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_State_Machine_Diagram_Inherited_State_Border then
60017            --  UMLStateMachineDiagram::inheritedStateBorder : UMLInheritedStateBorderKind
60018
60019            AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
60020             (AMF.Internals.Helpers.To_Element (Self)).Set_Inherited_State_Border
60021               (AMF.UMLDI.Holders.Element (Value));
60022
60023         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_State_Machine_Diagram_Is_Collapse_State_Icon then
60024            --  UMLStateMachineDiagram::isCollapseStateIcon : Boolean
60025
60026            AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
60027             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Collapse_State_Icon
60028               (League.Holders.Booleans.Element (Value));
60029
60030         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Frame then
60031            --  UMLDiagram::isFrame : Boolean
60032
60033            AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
60034             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Frame
60035               (League.Holders.Booleans.Element (Value));
60036
60037         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
60038            --  UMLDiagramElement::isIcon : Boolean
60039
60040            AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
60041             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Icon
60042               (League.Holders.Booleans.Element (Value));
60043
60044         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Iso then
60045            --  UMLDiagram::isIso : Boolean
60046
60047            AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
60048             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Iso
60049               (League.Holders.Booleans.Element (Value));
60050
60051         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_State_Machine_Diagram_Is_Transition_Oriented then
60052            --  UMLStateMachineDiagram::isTransitionOriented : Boolean
60053
60054            AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
60055             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Transition_Oriented
60056               (League.Holders.Booleans.Element (Value));
60057
60058         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
60059            --  UMLDiagramElement::localStyle : UMLStyle
60060
60061            AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
60062             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
60063               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
60064
60065         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
60066            --  DiagramElement::localStyle : Style
60067
60068            AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
60069             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
60070               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
60071
60072         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Behavior_Diagram_Model_Element_A_Uml_Diagram_Element then
60073            --  UMLBehaviorDiagram::modelElement : Behavior
60074
60075            AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
60076             (AMF.Internals.Helpers.To_Element (Self)).Set_Model_Element
60077               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
60078
60079         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_State_Machine_Diagram_Model_Element_A_Uml_Diagram_Element then
60080            --  UMLStateMachineDiagram::modelElement : StateMachine
60081
60082            AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
60083             (AMF.Internals.Helpers.To_Element (Self)).Set_Model_Element
60084               (AMF.UML.State_Machines.UML_State_Machine_Access (AMF.Holders.Elements.Element (Value)));
60085
60086         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
60087            --  NamedElement::name : String
60088
60089            AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
60090             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
60091               (AMF.Holders.Element (Value));
60092
60093         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Name then
60094            --  Diagram::name : String
60095
60096            AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
60097             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
60098               (League.Holders.Element (Value));
60099
60100         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
60101            --  NamedElement::nameExpression : StringExpression
60102
60103            AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
60104             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
60105               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
60106
60107         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
60108            --  UMLDiagramElement::owningElement : UMLDiagramElement
60109
60110            AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
60111             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Element
60112               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access (AMF.Holders.Elements.Element (Value)));
60113
60114         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
60115            --  ParameterableElement::owningTemplateParameter : TemplateParameter
60116
60117            AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
60118             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
60119               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
60120
60121         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Resolution then
60122            --  Diagram::resolution : Real
60123
60124            AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
60125             (AMF.Internals.Helpers.To_Element (Self)).Set_Resolution
60126               (AMF.Holders.Reals.Element (Value));
60127
60128         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
60129            --  UMLDiagramElement::sharedStyle : UMLStyle
60130
60131            AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
60132             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
60133               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
60134
60135         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
60136            --  DiagramElement::sharedStyle : Style
60137
60138            AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
60139             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
60140               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
60141
60142         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
60143            --  ParameterableElement::templateParameter : TemplateParameter
60144
60145            AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
60146             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
60147               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
60148
60149         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
60150            --  NamedElement::visibility : VisibilityKind
60151
60152            AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
60153             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
60154               (AMF.UML.Holders.Element (Value));
60155
60156         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
60157            --  PackageableElement::visibility : VisibilityKind
60158
60159            AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access
60160             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
60161               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
60162
60163         else
60164            raise Program_Error;
60165         end if;
60166      end UMLDI_UML_State_Machine_Diagram_Set;
60167
60168      -------------------------------
60169      -- UMLDI_UML_State_Shape_Set --
60170      -------------------------------
60171
60172      procedure UMLDI_UML_State_Shape_Set is
60173      begin
60174         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
60175            --  Shape::bounds : Bounds
60176
60177            AMF.UMLDI.UML_State_Shapes.UMLDI_UML_State_Shape_Access
60178             (AMF.Internals.Helpers.To_Element (Self)).Set_Bounds
60179               (AMF.DC.Holders.Element (Value));
60180
60181         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
60182            --  UMLDiagramElement::isIcon : Boolean
60183
60184            AMF.UMLDI.UML_State_Shapes.UMLDI_UML_State_Shape_Access
60185             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Icon
60186               (League.Holders.Booleans.Element (Value));
60187
60188         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_State_Shape_Is_Tabbed then
60189            --  UMLStateShape::isTabbed : Boolean
60190
60191            AMF.UMLDI.UML_State_Shapes.UMLDI_UML_State_Shape_Access
60192             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Tabbed
60193               (League.Holders.Booleans.Element (Value));
60194
60195         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
60196            --  UMLDiagramElement::localStyle : UMLStyle
60197
60198            AMF.UMLDI.UML_State_Shapes.UMLDI_UML_State_Shape_Access
60199             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
60200               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
60201
60202         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
60203            --  DiagramElement::localStyle : Style
60204
60205            AMF.UMLDI.UML_State_Shapes.UMLDI_UML_State_Shape_Access
60206             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
60207               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
60208
60209         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
60210            --  UMLDiagramElement::owningElement : UMLDiagramElement
60211
60212            AMF.UMLDI.UML_State_Shapes.UMLDI_UML_State_Shape_Access
60213             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Element
60214               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access (AMF.Holders.Elements.Element (Value)));
60215
60216         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
60217            --  UMLDiagramElement::sharedStyle : UMLStyle
60218
60219            AMF.UMLDI.UML_State_Shapes.UMLDI_UML_State_Shape_Access
60220             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
60221               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
60222
60223         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
60224            --  DiagramElement::sharedStyle : Style
60225
60226            AMF.UMLDI.UML_State_Shapes.UMLDI_UML_State_Shape_Access
60227             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
60228               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
60229
60230         else
60231            raise Program_Error;
60232         end if;
60233      end UMLDI_UML_State_Shape_Set;
60234
60235      ---------------------------------------------------
60236      -- UMLDI_UML_Stereotype_Property_Value_Label_Set --
60237      ---------------------------------------------------
60238
60239      procedure UMLDI_UML_Stereotype_Property_Value_Label_Set is
60240      begin
60241         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
60242            --  Shape::bounds : Bounds
60243
60244            AMF.UMLDI.UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Access
60245             (AMF.Internals.Helpers.To_Element (Self)).Set_Bounds
60246               (AMF.DC.Holders.Element (Value));
60247
60248         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
60249            --  UMLDiagramElement::isIcon : Boolean
60250
60251            AMF.UMLDI.UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Access
60252             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Icon
60253               (League.Holders.Booleans.Element (Value));
60254
60255         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
60256            --  UMLDiagramElement::localStyle : UMLStyle
60257
60258            AMF.UMLDI.UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Access
60259             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
60260               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
60261
60262         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
60263            --  DiagramElement::localStyle : Style
60264
60265            AMF.UMLDI.UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Access
60266             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
60267               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
60268
60269         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Stereotype_Property_Value_Label_Model_Element_A_Uml_Diagram_Element then
60270            --  UMLStereotypePropertyValueLabel::modelElement : Property
60271
60272            AMF.UMLDI.UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Access
60273             (AMF.Internals.Helpers.To_Element (Self)).Set_Model_Element
60274               (AMF.UML.Properties.UML_Property_Access (AMF.Holders.Elements.Element (Value)));
60275
60276         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
60277            --  UMLDiagramElement::owningElement : UMLDiagramElement
60278
60279            AMF.UMLDI.UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Access
60280             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Element
60281               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access (AMF.Holders.Elements.Element (Value)));
60282
60283         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
60284            --  UMLDiagramElement::sharedStyle : UMLStyle
60285
60286            AMF.UMLDI.UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Access
60287             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
60288               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
60289
60290         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
60291            --  DiagramElement::sharedStyle : Style
60292
60293            AMF.UMLDI.UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Access
60294             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
60295               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
60296
60297         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Stereotype_Property_Value_Label_Stereotyped_Element_A_Label_Showing_Stereotype_Value then
60298            --  UMLStereotypePropertyValueLabel::stereotypedElement : Element
60299
60300            AMF.UMLDI.UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Access
60301             (AMF.Internals.Helpers.To_Element (Self)).Set_Stereotyped_Element
60302               (AMF.UML.Elements.UML_Element_Access (AMF.Holders.Elements.Element (Value)));
60303
60304         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Label_Text then
60305            --  UMLLabel::text : String
60306
60307            AMF.UMLDI.UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Access
60308             (AMF.Internals.Helpers.To_Element (Self)).Set_Text
60309               (League.Holders.Element (Value));
60310
60311         else
60312            raise Program_Error;
60313         end if;
60314      end UMLDI_UML_Stereotype_Property_Value_Label_Set;
60315
60316      -------------------------
60317      -- UMLDI_UML_Style_Set --
60318      -------------------------
60319
60320      procedure UMLDI_UML_Style_Set is
60321      begin
60322         if Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Style_Font_Name then
60323            --  UMLStyle::fontName : String
60324
60325            AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access
60326             (AMF.Internals.Helpers.To_Element (Self)).Set_Font_Name
60327               (AMF.Holders.Element (Value));
60328
60329         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Style_Font_Size then
60330            --  UMLStyle::fontSize : Real
60331
60332            AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access
60333             (AMF.Internals.Helpers.To_Element (Self)).Set_Font_Size
60334               (AMF.Holders.Element (Value));
60335
60336         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
60337            --  NamedElement::name : String
60338
60339            AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access
60340             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
60341               (AMF.Holders.Element (Value));
60342
60343         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
60344            --  NamedElement::nameExpression : StringExpression
60345
60346            AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access
60347             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
60348               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
60349
60350         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
60351            --  ParameterableElement::owningTemplateParameter : TemplateParameter
60352
60353            AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access
60354             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
60355               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
60356
60357         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
60358            --  ParameterableElement::templateParameter : TemplateParameter
60359
60360            AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access
60361             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
60362               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
60363
60364         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
60365            --  NamedElement::visibility : VisibilityKind
60366
60367            AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access
60368             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
60369               (AMF.UML.Holders.Element (Value));
60370
60371         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
60372            --  PackageableElement::visibility : VisibilityKind
60373
60374            AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access
60375             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
60376               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
60377
60378         else
60379            raise Program_Error;
60380         end if;
60381      end UMLDI_UML_Style_Set;
60382
60383      ---------------------------------------
60384      -- UMLDI_UML_Typed_Element_Label_Set --
60385      ---------------------------------------
60386
60387      procedure UMLDI_UML_Typed_Element_Label_Set is
60388      begin
60389         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
60390            --  Shape::bounds : Bounds
60391
60392            AMF.UMLDI.UML_Typed_Element_Labels.UMLDI_UML_Typed_Element_Label_Access
60393             (AMF.Internals.Helpers.To_Element (Self)).Set_Bounds
60394               (AMF.DC.Holders.Element (Value));
60395
60396         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
60397            --  UMLDiagramElement::isIcon : Boolean
60398
60399            AMF.UMLDI.UML_Typed_Element_Labels.UMLDI_UML_Typed_Element_Label_Access
60400             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Icon
60401               (League.Holders.Booleans.Element (Value));
60402
60403         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
60404            --  UMLDiagramElement::localStyle : UMLStyle
60405
60406            AMF.UMLDI.UML_Typed_Element_Labels.UMLDI_UML_Typed_Element_Label_Access
60407             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
60408               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
60409
60410         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
60411            --  DiagramElement::localStyle : Style
60412
60413            AMF.UMLDI.UML_Typed_Element_Labels.UMLDI_UML_Typed_Element_Label_Access
60414             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
60415               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
60416
60417         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
60418            --  UMLDiagramElement::owningElement : UMLDiagramElement
60419
60420            AMF.UMLDI.UML_Typed_Element_Labels.UMLDI_UML_Typed_Element_Label_Access
60421             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Element
60422               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access (AMF.Holders.Elements.Element (Value)));
60423
60424         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
60425            --  UMLDiagramElement::sharedStyle : UMLStyle
60426
60427            AMF.UMLDI.UML_Typed_Element_Labels.UMLDI_UML_Typed_Element_Label_Access
60428             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
60429               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
60430
60431         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
60432            --  DiagramElement::sharedStyle : Style
60433
60434            AMF.UMLDI.UML_Typed_Element_Labels.UMLDI_UML_Typed_Element_Label_Access
60435             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
60436               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
60437
60438         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Label_Text then
60439            --  UMLLabel::text : String
60440
60441            AMF.UMLDI.UML_Typed_Element_Labels.UMLDI_UML_Typed_Element_Label_Access
60442             (AMF.Internals.Helpers.To_Element (Self)).Set_Text
60443               (League.Holders.Element (Value));
60444
60445         else
60446            raise Program_Error;
60447         end if;
60448      end UMLDI_UML_Typed_Element_Label_Set;
60449
60450      ------------------------------------
60451      -- UMLDI_UML_Use_Case_Diagram_Set --
60452      ------------------------------------
60453
60454      procedure UMLDI_UML_Use_Case_Diagram_Set is
60455      begin
60456         if Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds then
60457            --  Shape::bounds : Bounds
60458
60459            AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
60460             (AMF.Internals.Helpers.To_Element (Self)).Set_Bounds
60461               (AMF.DC.Holders.Element (Value));
60462
60463         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Documentation then
60464            --  Diagram::documentation : String
60465
60466            AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
60467             (AMF.Internals.Helpers.To_Element (Self)).Set_Documentation
60468               (League.Holders.Element (Value));
60469
60470         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Heading_A_Headed_Diagram then
60471            --  UMLDiagram::heading : UMLLabel
60472
60473            AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
60474             (AMF.Internals.Helpers.To_Element (Self)).Set_Heading
60475               (AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access (AMF.Holders.Elements.Element (Value)));
60476
60477         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Frame then
60478            --  UMLDiagram::isFrame : Boolean
60479
60480            AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
60481             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Frame
60482               (League.Holders.Booleans.Element (Value));
60483
60484         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon then
60485            --  UMLDiagramElement::isIcon : Boolean
60486
60487            AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
60488             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Icon
60489               (League.Holders.Booleans.Element (Value));
60490
60491         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Iso then
60492            --  UMLDiagram::isIso : Boolean
60493
60494            AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
60495             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Iso
60496               (League.Holders.Booleans.Element (Value));
60497
60498         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Local_Style_A_Styled_Element then
60499            --  UMLDiagramElement::localStyle : UMLStyle
60500
60501            AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
60502             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
60503               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
60504
60505         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Local_Style_A_Styled_Element then
60506            --  DiagramElement::localStyle : Style
60507
60508            AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
60509             (AMF.Internals.Helpers.To_Element (Self)).Set_Local_Style
60510               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
60511
60512         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Behavior_Diagram_Model_Element_A_Uml_Diagram_Element then
60513            --  UMLBehaviorDiagram::modelElement : Behavior
60514
60515            AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
60516             (AMF.Internals.Helpers.To_Element (Self)).Set_Model_Element
60517               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
60518
60519         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
60520            --  NamedElement::name : String
60521
60522            AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
60523             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
60524               (AMF.Holders.Element (Value));
60525
60526         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Name then
60527            --  Diagram::name : String
60528
60529            AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
60530             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
60531               (League.Holders.Element (Value));
60532
60533         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
60534            --  NamedElement::nameExpression : StringExpression
60535
60536            AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
60537             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
60538               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
60539
60540         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Owning_Element_UML_Diagram_Element_Owned_Element then
60541            --  UMLDiagramElement::owningElement : UMLDiagramElement
60542
60543            AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
60544             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Element
60545               (AMF.UMLDI.UML_Diagram_Elements.UMLDI_UML_Diagram_Element_Access (AMF.Holders.Elements.Element (Value)));
60546
60547         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
60548            --  ParameterableElement::owningTemplateParameter : TemplateParameter
60549
60550            AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
60551             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
60552               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
60553
60554         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Resolution then
60555            --  Diagram::resolution : Real
60556
60557            AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
60558             (AMF.Internals.Helpers.To_Element (Self)).Set_Resolution
60559               (AMF.Holders.Reals.Element (Value));
60560
60561         elsif Property = AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Shared_Style_A_Styled_Element then
60562            --  UMLDiagramElement::sharedStyle : UMLStyle
60563
60564            AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
60565             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
60566               (AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access (AMF.Holders.Elements.Element (Value)));
60567
60568         elsif Property = AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Element_Shared_Style_A_Styled_Element then
60569            --  DiagramElement::sharedStyle : Style
60570
60571            AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
60572             (AMF.Internals.Helpers.To_Element (Self)).Set_Shared_Style
60573               (AMF.DI.Styles.DI_Style_Access (AMF.Holders.Elements.Element (Value)));
60574
60575         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
60576            --  ParameterableElement::templateParameter : TemplateParameter
60577
60578            AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
60579             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
60580               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
60581
60582         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
60583            --  NamedElement::visibility : VisibilityKind
60584
60585            AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
60586             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
60587               (AMF.UML.Holders.Element (Value));
60588
60589         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
60590            --  PackageableElement::visibility : VisibilityKind
60591
60592            AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access
60593             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
60594               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
60595
60596         else
60597            raise Program_Error;
60598         end if;
60599      end UMLDI_UML_Use_Case_Diagram_Set;
60600
60601      -----------------------------
60602      -- UML_Data_Store_Node_Set --
60603      -----------------------------
60604
60605      procedure UML_Data_Store_Node_Set is
60606      begin
60607         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
60608            --  ActivityNode::activity : Activity
60609
60610            AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
60611             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
60612               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
60613
60614         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
60615            --  ActivityNode::inStructuredNode : StructuredActivityNode
60616
60617            AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
60618             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
60619               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
60620
60621         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Is_Control_Type then
60622            --  ObjectNode::isControlType : Boolean
60623
60624            AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
60625             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Control_Type
60626               (League.Holders.Booleans.Element (Value));
60627
60628         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
60629            --  RedefinableElement::isLeaf : Boolean
60630
60631            AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
60632             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
60633               (League.Holders.Booleans.Element (Value));
60634
60635         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
60636            --  NamedElement::name : String
60637
60638            AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
60639             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
60640               (AMF.Holders.Element (Value));
60641
60642         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
60643            --  NamedElement::nameExpression : StringExpression
60644
60645            AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
60646             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
60647               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
60648
60649         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Ordering then
60650            --  ObjectNode::ordering : ObjectNodeOrderingKind
60651
60652            AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
60653             (AMF.Internals.Helpers.To_Element (Self)).Set_Ordering
60654               (AMF.UML.Holders.Object_Node_Ordering_Kinds.Element (Value));
60655
60656         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Selection_A_Object_Node then
60657            --  ObjectNode::selection : Behavior
60658
60659            AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
60660             (AMF.Internals.Helpers.To_Element (Self)).Set_Selection
60661               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
60662
60663         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
60664            --  TypedElement::type : Type
60665
60666            AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
60667             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
60668               (AMF.UML.Types.UML_Type_Access (AMF.Holders.Elements.Element (Value)));
60669
60670         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Upper_Bound_A_Object_Node then
60671            --  ObjectNode::upperBound : ValueSpecification
60672
60673            AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
60674             (AMF.Internals.Helpers.To_Element (Self)).Set_Upper_Bound
60675               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
60676
60677         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
60678            --  NamedElement::visibility : VisibilityKind
60679
60680            AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access
60681             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
60682               (AMF.UML.Holders.Element (Value));
60683
60684         else
60685            raise Program_Error;
60686         end if;
60687      end UML_Data_Store_Node_Set;
60688
60689      -----------------------
60690      -- UML_Data_Type_Set --
60691      -----------------------
60692
60693      procedure UML_Data_Type_Set is
60694      begin
60695         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
60696            --  Classifier::isAbstract : Boolean
60697
60698            AMF.UML.Data_Types.UML_Data_Type_Access
60699             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
60700               (League.Holders.Booleans.Element (Value));
60701
60702         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
60703            --  Classifier::isFinalSpecialization : Boolean
60704
60705            AMF.UML.Data_Types.UML_Data_Type_Access
60706             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization
60707               (League.Holders.Booleans.Element (Value));
60708
60709         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
60710            --  RedefinableElement::isLeaf : Boolean
60711
60712            AMF.UML.Data_Types.UML_Data_Type_Access
60713             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
60714               (League.Holders.Booleans.Element (Value));
60715
60716         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
60717            --  NamedElement::name : String
60718
60719            AMF.UML.Data_Types.UML_Data_Type_Access
60720             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
60721               (AMF.Holders.Element (Value));
60722
60723         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
60724            --  NamedElement::nameExpression : StringExpression
60725
60726            AMF.UML.Data_Types.UML_Data_Type_Access
60727             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
60728               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
60729
60730         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
60731            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
60732
60733            AMF.UML.Data_Types.UML_Data_Type_Access
60734             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
60735               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
60736
60737         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
60738            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
60739
60740            AMF.UML.Data_Types.UML_Data_Type_Access
60741             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
60742               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
60743
60744         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
60745            --  ParameterableElement::owningTemplateParameter : TemplateParameter
60746
60747            AMF.UML.Data_Types.UML_Data_Type_Access
60748             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
60749               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
60750
60751         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
60752            --  Type::package : Package
60753
60754            AMF.UML.Data_Types.UML_Data_Type_Access
60755             (AMF.Internals.Helpers.To_Element (Self)).Set_Package
60756               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
60757
60758         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
60759            --  Classifier::representation : CollaborationUse
60760
60761            AMF.UML.Data_Types.UML_Data_Type_Access
60762             (AMF.Internals.Helpers.To_Element (Self)).Set_Representation
60763               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access (AMF.Holders.Elements.Element (Value)));
60764
60765         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
60766            --  Classifier::templateParameter : ClassifierTemplateParameter
60767
60768            AMF.UML.Data_Types.UML_Data_Type_Access
60769             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
60770               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
60771
60772         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
60773            --  ParameterableElement::templateParameter : TemplateParameter
60774
60775            AMF.UML.Data_Types.UML_Data_Type_Access
60776             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
60777               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
60778
60779         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
60780            --  NamedElement::visibility : VisibilityKind
60781
60782            AMF.UML.Data_Types.UML_Data_Type_Access
60783             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
60784               (AMF.UML.Holders.Element (Value));
60785
60786         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
60787            --  PackageableElement::visibility : VisibilityKind
60788
60789            AMF.UML.Data_Types.UML_Data_Type_Access
60790             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
60791               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
60792
60793         else
60794            raise Program_Error;
60795         end if;
60796      end UML_Data_Type_Set;
60797
60798      ---------------------------
60799      -- UML_Decision_Node_Set --
60800      ---------------------------
60801
60802      procedure UML_Decision_Node_Set is
60803      begin
60804         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
60805            --  ActivityNode::activity : Activity
60806
60807            AMF.UML.Decision_Nodes.UML_Decision_Node_Access
60808             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
60809               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
60810
60811         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Decision_Node_Decision_Input_A_Decision_Node then
60812            --  DecisionNode::decisionInput : Behavior
60813
60814            AMF.UML.Decision_Nodes.UML_Decision_Node_Access
60815             (AMF.Internals.Helpers.To_Element (Self)).Set_Decision_Input
60816               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
60817
60818         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Decision_Node_Decision_Input_Flow_A_Decision_Node then
60819            --  DecisionNode::decisionInputFlow : ObjectFlow
60820
60821            AMF.UML.Decision_Nodes.UML_Decision_Node_Access
60822             (AMF.Internals.Helpers.To_Element (Self)).Set_Decision_Input_Flow
60823               (AMF.UML.Object_Flows.UML_Object_Flow_Access (AMF.Holders.Elements.Element (Value)));
60824
60825         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
60826            --  ActivityNode::inStructuredNode : StructuredActivityNode
60827
60828            AMF.UML.Decision_Nodes.UML_Decision_Node_Access
60829             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
60830               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
60831
60832         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
60833            --  RedefinableElement::isLeaf : Boolean
60834
60835            AMF.UML.Decision_Nodes.UML_Decision_Node_Access
60836             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
60837               (League.Holders.Booleans.Element (Value));
60838
60839         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
60840            --  NamedElement::name : String
60841
60842            AMF.UML.Decision_Nodes.UML_Decision_Node_Access
60843             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
60844               (AMF.Holders.Element (Value));
60845
60846         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
60847            --  NamedElement::nameExpression : StringExpression
60848
60849            AMF.UML.Decision_Nodes.UML_Decision_Node_Access
60850             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
60851               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
60852
60853         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
60854            --  NamedElement::visibility : VisibilityKind
60855
60856            AMF.UML.Decision_Nodes.UML_Decision_Node_Access
60857             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
60858               (AMF.UML.Holders.Element (Value));
60859
60860         else
60861            raise Program_Error;
60862         end if;
60863      end UML_Decision_Node_Set;
60864
60865      ------------------------
60866      -- UML_Dependency_Set --
60867      ------------------------
60868
60869      procedure UML_Dependency_Set is
60870      begin
60871         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
60872            --  NamedElement::name : String
60873
60874            AMF.UML.Dependencies.UML_Dependency_Access
60875             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
60876               (AMF.Holders.Element (Value));
60877
60878         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
60879            --  NamedElement::nameExpression : StringExpression
60880
60881            AMF.UML.Dependencies.UML_Dependency_Access
60882             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
60883               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
60884
60885         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
60886            --  ParameterableElement::owningTemplateParameter : TemplateParameter
60887
60888            AMF.UML.Dependencies.UML_Dependency_Access
60889             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
60890               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
60891
60892         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
60893            --  ParameterableElement::templateParameter : TemplateParameter
60894
60895            AMF.UML.Dependencies.UML_Dependency_Access
60896             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
60897               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
60898
60899         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
60900            --  NamedElement::visibility : VisibilityKind
60901
60902            AMF.UML.Dependencies.UML_Dependency_Access
60903             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
60904               (AMF.UML.Holders.Element (Value));
60905
60906         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
60907            --  PackageableElement::visibility : VisibilityKind
60908
60909            AMF.UML.Dependencies.UML_Dependency_Access
60910             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
60911               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
60912
60913         else
60914            raise Program_Error;
60915         end if;
60916      end UML_Dependency_Set;
60917
60918      ------------------------
60919      -- UML_Deployment_Set --
60920      ------------------------
60921
60922      procedure UML_Deployment_Set is
60923      begin
60924         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Location_Deployment_Target_Deployment then
60925            --  Deployment::location : DeploymentTarget
60926
60927            AMF.UML.Deployments.UML_Deployment_Access
60928             (AMF.Internals.Helpers.To_Element (Self)).Set_Location
60929               (AMF.UML.Deployment_Targets.UML_Deployment_Target_Access (AMF.Holders.Elements.Element (Value)));
60930
60931         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
60932            --  NamedElement::name : String
60933
60934            AMF.UML.Deployments.UML_Deployment_Access
60935             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
60936               (AMF.Holders.Element (Value));
60937
60938         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
60939            --  NamedElement::nameExpression : StringExpression
60940
60941            AMF.UML.Deployments.UML_Deployment_Access
60942             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
60943               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
60944
60945         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
60946            --  ParameterableElement::owningTemplateParameter : TemplateParameter
60947
60948            AMF.UML.Deployments.UML_Deployment_Access
60949             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
60950               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
60951
60952         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
60953            --  ParameterableElement::templateParameter : TemplateParameter
60954
60955            AMF.UML.Deployments.UML_Deployment_Access
60956             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
60957               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
60958
60959         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
60960            --  NamedElement::visibility : VisibilityKind
60961
60962            AMF.UML.Deployments.UML_Deployment_Access
60963             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
60964               (AMF.UML.Holders.Element (Value));
60965
60966         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
60967            --  PackageableElement::visibility : VisibilityKind
60968
60969            AMF.UML.Deployments.UML_Deployment_Access
60970             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
60971               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
60972
60973         else
60974            raise Program_Error;
60975         end if;
60976      end UML_Deployment_Set;
60977
60978      --------------------------------------
60979      -- UML_Deployment_Specification_Set --
60980      --------------------------------------
60981
60982      procedure UML_Deployment_Specification_Set is
60983      begin
60984         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Specification_Deployment_Deployment_Configuration then
60985            --  DeploymentSpecification::deployment : Deployment
60986
60987            AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
60988             (AMF.Internals.Helpers.To_Element (Self)).Set_Deployment
60989               (AMF.UML.Deployments.UML_Deployment_Access (AMF.Holders.Elements.Element (Value)));
60990
60991         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Specification_Deployment_Location then
60992            --  DeploymentSpecification::deploymentLocation : String
60993
60994            AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
60995             (AMF.Internals.Helpers.To_Element (Self)).Set_Deployment_Location
60996               (AMF.Holders.Element (Value));
60997
60998         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Specification_Execution_Location then
60999            --  DeploymentSpecification::executionLocation : String
61000
61001            AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
61002             (AMF.Internals.Helpers.To_Element (Self)).Set_Execution_Location
61003               (AMF.Holders.Element (Value));
61004
61005         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Artifact_File_Name then
61006            --  Artifact::fileName : String
61007
61008            AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
61009             (AMF.Internals.Helpers.To_Element (Self)).Set_File_Name
61010               (AMF.Holders.Element (Value));
61011
61012         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
61013            --  Classifier::isAbstract : Boolean
61014
61015            AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
61016             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
61017               (League.Holders.Booleans.Element (Value));
61018
61019         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
61020            --  Classifier::isFinalSpecialization : Boolean
61021
61022            AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
61023             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization
61024               (League.Holders.Booleans.Element (Value));
61025
61026         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
61027            --  RedefinableElement::isLeaf : Boolean
61028
61029            AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
61030             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
61031               (League.Holders.Booleans.Element (Value));
61032
61033         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
61034            --  NamedElement::name : String
61035
61036            AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
61037             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
61038               (AMF.Holders.Element (Value));
61039
61040         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
61041            --  NamedElement::nameExpression : StringExpression
61042
61043            AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
61044             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
61045               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
61046
61047         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
61048            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
61049
61050            AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
61051             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
61052               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
61053
61054         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
61055            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
61056
61057            AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
61058             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
61059               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
61060
61061         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
61062            --  ParameterableElement::owningTemplateParameter : TemplateParameter
61063
61064            AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
61065             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
61066               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
61067
61068         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
61069            --  Type::package : Package
61070
61071            AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
61072             (AMF.Internals.Helpers.To_Element (Self)).Set_Package
61073               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
61074
61075         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
61076            --  Classifier::representation : CollaborationUse
61077
61078            AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
61079             (AMF.Internals.Helpers.To_Element (Self)).Set_Representation
61080               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access (AMF.Holders.Elements.Element (Value)));
61081
61082         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
61083            --  Classifier::templateParameter : ClassifierTemplateParameter
61084
61085            AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
61086             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
61087               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
61088
61089         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
61090            --  ParameterableElement::templateParameter : TemplateParameter
61091
61092            AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
61093             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
61094               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
61095
61096         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
61097            --  NamedElement::visibility : VisibilityKind
61098
61099            AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
61100             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
61101               (AMF.UML.Holders.Element (Value));
61102
61103         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
61104            --  PackageableElement::visibility : VisibilityKind
61105
61106            AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access
61107             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
61108               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
61109
61110         else
61111            raise Program_Error;
61112         end if;
61113      end UML_Deployment_Specification_Set;
61114
61115      ---------------------------------
61116      -- UML_Destroy_Link_Action_Set --
61117      ---------------------------------
61118
61119      procedure UML_Destroy_Link_Action_Set is
61120      begin
61121         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
61122            --  ActivityNode::activity : Activity
61123
61124            AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
61125             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
61126               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
61127
61128         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
61129            --  ActivityNode::inStructuredNode : StructuredActivityNode
61130
61131            AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
61132             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
61133               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
61134
61135         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
61136            --  RedefinableElement::isLeaf : Boolean
61137
61138            AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
61139             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
61140               (League.Holders.Booleans.Element (Value));
61141
61142         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
61143            --  Action::isLocallyReentrant : Boolean
61144
61145            AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
61146             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
61147               (League.Holders.Booleans.Element (Value));
61148
61149         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
61150            --  NamedElement::name : String
61151
61152            AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
61153             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
61154               (AMF.Holders.Element (Value));
61155
61156         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
61157            --  NamedElement::nameExpression : StringExpression
61158
61159            AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
61160             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
61161               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
61162
61163         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
61164            --  NamedElement::visibility : VisibilityKind
61165
61166            AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access
61167             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
61168               (AMF.UML.Holders.Element (Value));
61169
61170         else
61171            raise Program_Error;
61172         end if;
61173      end UML_Destroy_Link_Action_Set;
61174
61175      -----------------------------------
61176      -- UML_Destroy_Object_Action_Set --
61177      -----------------------------------
61178
61179      procedure UML_Destroy_Object_Action_Set is
61180      begin
61181         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
61182            --  ActivityNode::activity : Activity
61183
61184            AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
61185             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
61186               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
61187
61188         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
61189            --  ActivityNode::inStructuredNode : StructuredActivityNode
61190
61191            AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
61192             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
61193               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
61194
61195         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Destroy_Object_Action_Is_Destroy_Links then
61196            --  DestroyObjectAction::isDestroyLinks : Boolean
61197
61198            AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
61199             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Destroy_Links
61200               (League.Holders.Booleans.Element (Value));
61201
61202         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Destroy_Object_Action_Is_Destroy_Owned_Objects then
61203            --  DestroyObjectAction::isDestroyOwnedObjects : Boolean
61204
61205            AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
61206             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Destroy_Owned_Objects
61207               (League.Holders.Booleans.Element (Value));
61208
61209         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
61210            --  RedefinableElement::isLeaf : Boolean
61211
61212            AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
61213             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
61214               (League.Holders.Booleans.Element (Value));
61215
61216         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
61217            --  Action::isLocallyReentrant : Boolean
61218
61219            AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
61220             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
61221               (League.Holders.Booleans.Element (Value));
61222
61223         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
61224            --  NamedElement::name : String
61225
61226            AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
61227             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
61228               (AMF.Holders.Element (Value));
61229
61230         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
61231            --  NamedElement::nameExpression : StringExpression
61232
61233            AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
61234             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
61235               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
61236
61237         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Destroy_Object_Action_Target_A_Destroy_Object_Action then
61238            --  DestroyObjectAction::target : InputPin
61239
61240            AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
61241             (AMF.Internals.Helpers.To_Element (Self)).Set_Target
61242               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
61243
61244         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
61245            --  NamedElement::visibility : VisibilityKind
61246
61247            AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access
61248             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
61249               (AMF.UML.Holders.Element (Value));
61250
61251         else
61252            raise Program_Error;
61253         end if;
61254      end UML_Destroy_Object_Action_Set;
61255
61256      --------------------------------------------------
61257      -- UML_Destruction_Occurrence_Specification_Set --
61258      --------------------------------------------------
61259
61260      procedure UML_Destruction_Occurrence_Specification_Set is
61261      begin
61262         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Occurrence_Specification_Covered_A_Events then
61263            --  OccurrenceSpecification::covered : Lifeline
61264
61265            AMF.UML.Destruction_Occurrence_Specifications.UML_Destruction_Occurrence_Specification_Access
61266             (AMF.Internals.Helpers.To_Element (Self)).Set_Covered
61267               (AMF.UML.Lifelines.UML_Lifeline_Access (AMF.Holders.Elements.Element (Value)));
61268
61269         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Interaction_Interaction_Fragment then
61270            --  InteractionFragment::enclosingInteraction : Interaction
61271
61272            AMF.UML.Destruction_Occurrence_Specifications.UML_Destruction_Occurrence_Specification_Access
61273             (AMF.Internals.Helpers.To_Element (Self)).Set_Enclosing_Interaction
61274               (AMF.UML.Interactions.UML_Interaction_Access (AMF.Holders.Elements.Element (Value)));
61275
61276         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Operand_Interaction_Operand_Fragment then
61277            --  InteractionFragment::enclosingOperand : InteractionOperand
61278
61279            AMF.UML.Destruction_Occurrence_Specifications.UML_Destruction_Occurrence_Specification_Access
61280             (AMF.Internals.Helpers.To_Element (Self)).Set_Enclosing_Operand
61281               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access (AMF.Holders.Elements.Element (Value)));
61282
61283         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Message_End_Message_A_Message_End then
61284            --  MessageEnd::message : Message
61285
61286            AMF.UML.Destruction_Occurrence_Specifications.UML_Destruction_Occurrence_Specification_Access
61287             (AMF.Internals.Helpers.To_Element (Self)).Set_Message
61288               (AMF.UML.Messages.UML_Message_Access (AMF.Holders.Elements.Element (Value)));
61289
61290         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
61291            --  NamedElement::name : String
61292
61293            AMF.UML.Destruction_Occurrence_Specifications.UML_Destruction_Occurrence_Specification_Access
61294             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
61295               (AMF.Holders.Element (Value));
61296
61297         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
61298            --  NamedElement::nameExpression : StringExpression
61299
61300            AMF.UML.Destruction_Occurrence_Specifications.UML_Destruction_Occurrence_Specification_Access
61301             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
61302               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
61303
61304         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
61305            --  NamedElement::visibility : VisibilityKind
61306
61307            AMF.UML.Destruction_Occurrence_Specifications.UML_Destruction_Occurrence_Specification_Access
61308             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
61309               (AMF.UML.Holders.Element (Value));
61310
61311         else
61312            raise Program_Error;
61313         end if;
61314      end UML_Destruction_Occurrence_Specification_Set;
61315
61316      --------------------
61317      -- UML_Device_Set --
61318      --------------------
61319
61320      procedure UML_Device_Set is
61321      begin
61322         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
61323            --  BehavioredClassifier::classifierBehavior : Behavior
61324
61325            AMF.UML.Devices.UML_Device_Access
61326             (AMF.Internals.Helpers.To_Element (Self)).Set_Classifier_Behavior
61327               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
61328
61329         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Abstract then
61330            --  Class::isAbstract : Boolean
61331
61332            AMF.UML.Devices.UML_Device_Access
61333             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
61334               (League.Holders.Booleans.Element (Value));
61335
61336         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
61337            --  Classifier::isAbstract : Boolean
61338
61339            AMF.UML.Devices.UML_Device_Access
61340             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
61341               (League.Holders.Booleans.Element (Value));
61342
61343         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Active then
61344            --  Class::isActive : Boolean
61345
61346            AMF.UML.Devices.UML_Device_Access
61347             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Active
61348               (League.Holders.Booleans.Element (Value));
61349
61350         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
61351            --  Classifier::isFinalSpecialization : Boolean
61352
61353            AMF.UML.Devices.UML_Device_Access
61354             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization
61355               (League.Holders.Booleans.Element (Value));
61356
61357         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
61358            --  RedefinableElement::isLeaf : Boolean
61359
61360            AMF.UML.Devices.UML_Device_Access
61361             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
61362               (League.Holders.Booleans.Element (Value));
61363
61364         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
61365            --  NamedElement::name : String
61366
61367            AMF.UML.Devices.UML_Device_Access
61368             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
61369               (AMF.Holders.Element (Value));
61370
61371         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
61372            --  NamedElement::nameExpression : StringExpression
61373
61374            AMF.UML.Devices.UML_Device_Access
61375             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
61376               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
61377
61378         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
61379            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
61380
61381            AMF.UML.Devices.UML_Device_Access
61382             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
61383               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
61384
61385         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
61386            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
61387
61388            AMF.UML.Devices.UML_Device_Access
61389             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
61390               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
61391
61392         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
61393            --  ParameterableElement::owningTemplateParameter : TemplateParameter
61394
61395            AMF.UML.Devices.UML_Device_Access
61396             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
61397               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
61398
61399         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
61400            --  Type::package : Package
61401
61402            AMF.UML.Devices.UML_Device_Access
61403             (AMF.Internals.Helpers.To_Element (Self)).Set_Package
61404               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
61405
61406         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
61407            --  Classifier::representation : CollaborationUse
61408
61409            AMF.UML.Devices.UML_Device_Access
61410             (AMF.Internals.Helpers.To_Element (Self)).Set_Representation
61411               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access (AMF.Holders.Elements.Element (Value)));
61412
61413         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
61414            --  Classifier::templateParameter : ClassifierTemplateParameter
61415
61416            AMF.UML.Devices.UML_Device_Access
61417             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
61418               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
61419
61420         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
61421            --  ParameterableElement::templateParameter : TemplateParameter
61422
61423            AMF.UML.Devices.UML_Device_Access
61424             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
61425               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
61426
61427         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
61428            --  NamedElement::visibility : VisibilityKind
61429
61430            AMF.UML.Devices.UML_Device_Access
61431             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
61432               (AMF.UML.Holders.Element (Value));
61433
61434         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
61435            --  PackageableElement::visibility : VisibilityKind
61436
61437            AMF.UML.Devices.UML_Device_Access
61438             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
61439               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
61440
61441         else
61442            raise Program_Error;
61443         end if;
61444      end UML_Device_Set;
61445
61446      ----------------------
61447      -- UML_Duration_Set --
61448      ----------------------
61449
61450      procedure UML_Duration_Set is
61451      begin
61452         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Duration_Expr_A_Duration then
61453            --  Duration::expr : ValueSpecification
61454
61455            AMF.UML.Durations.UML_Duration_Access
61456             (AMF.Internals.Helpers.To_Element (Self)).Set_Expr
61457               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
61458
61459         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
61460            --  NamedElement::name : String
61461
61462            AMF.UML.Durations.UML_Duration_Access
61463             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
61464               (AMF.Holders.Element (Value));
61465
61466         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
61467            --  NamedElement::nameExpression : StringExpression
61468
61469            AMF.UML.Durations.UML_Duration_Access
61470             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
61471               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
61472
61473         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
61474            --  ParameterableElement::owningTemplateParameter : TemplateParameter
61475
61476            AMF.UML.Durations.UML_Duration_Access
61477             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
61478               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
61479
61480         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
61481            --  ParameterableElement::templateParameter : TemplateParameter
61482
61483            AMF.UML.Durations.UML_Duration_Access
61484             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
61485               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
61486
61487         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
61488            --  TypedElement::type : Type
61489
61490            AMF.UML.Durations.UML_Duration_Access
61491             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
61492               (AMF.UML.Types.UML_Type_Access (AMF.Holders.Elements.Element (Value)));
61493
61494         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
61495            --  NamedElement::visibility : VisibilityKind
61496
61497            AMF.UML.Durations.UML_Duration_Access
61498             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
61499               (AMF.UML.Holders.Element (Value));
61500
61501         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
61502            --  PackageableElement::visibility : VisibilityKind
61503
61504            AMF.UML.Durations.UML_Duration_Access
61505             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
61506               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
61507
61508         else
61509            raise Program_Error;
61510         end if;
61511      end UML_Duration_Set;
61512
61513      ---------------------------------
61514      -- UML_Duration_Constraint_Set --
61515      ---------------------------------
61516
61517      procedure UML_Duration_Constraint_Set is
61518      begin
61519         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Constraint_Context_Namespace_Owned_Rule then
61520            --  Constraint::context : Namespace
61521
61522            AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access
61523             (AMF.Internals.Helpers.To_Element (Self)).Set_Context
61524               (AMF.UML.Namespaces.UML_Namespace_Access (AMF.Holders.Elements.Element (Value)));
61525
61526         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
61527            --  NamedElement::name : String
61528
61529            AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access
61530             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
61531               (AMF.Holders.Element (Value));
61532
61533         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
61534            --  NamedElement::nameExpression : StringExpression
61535
61536            AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access
61537             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
61538               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
61539
61540         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
61541            --  ParameterableElement::owningTemplateParameter : TemplateParameter
61542
61543            AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access
61544             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
61545               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
61546
61547         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Constraint_Specification_A_Owning_Constraint then
61548            --  Constraint::specification : ValueSpecification
61549
61550            AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access
61551             (AMF.Internals.Helpers.To_Element (Self)).Set_Specification
61552               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
61553
61554         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Duration_Constraint_Specification_A_Duration_Constraint then
61555            --  DurationConstraint::specification : DurationInterval
61556
61557            AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access
61558             (AMF.Internals.Helpers.To_Element (Self)).Set_Specification
61559               (AMF.UML.Duration_Intervals.UML_Duration_Interval_Access (AMF.Holders.Elements.Element (Value)));
61560
61561         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interval_Constraint_Specification_A_Interval_Constraint then
61562            --  IntervalConstraint::specification : Interval
61563
61564            AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access
61565             (AMF.Internals.Helpers.To_Element (Self)).Set_Specification
61566               (AMF.UML.Intervals.UML_Interval_Access (AMF.Holders.Elements.Element (Value)));
61567
61568         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
61569            --  ParameterableElement::templateParameter : TemplateParameter
61570
61571            AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access
61572             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
61573               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
61574
61575         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
61576            --  NamedElement::visibility : VisibilityKind
61577
61578            AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access
61579             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
61580               (AMF.UML.Holders.Element (Value));
61581
61582         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
61583            --  PackageableElement::visibility : VisibilityKind
61584
61585            AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access
61586             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
61587               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
61588
61589         else
61590            raise Program_Error;
61591         end if;
61592      end UML_Duration_Constraint_Set;
61593
61594      -------------------------------
61595      -- UML_Duration_Interval_Set --
61596      -------------------------------
61597
61598      procedure UML_Duration_Interval_Set is
61599      begin
61600         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Duration_Interval_Max_A_Duration_Interval then
61601            --  DurationInterval::max : Duration
61602
61603            AMF.UML.Duration_Intervals.UML_Duration_Interval_Access
61604             (AMF.Internals.Helpers.To_Element (Self)).Set_Max
61605               (AMF.UML.Durations.UML_Duration_Access (AMF.Holders.Elements.Element (Value)));
61606
61607         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interval_Max_A_Interval then
61608            --  Interval::max : ValueSpecification
61609
61610            AMF.UML.Duration_Intervals.UML_Duration_Interval_Access
61611             (AMF.Internals.Helpers.To_Element (Self)).Set_Max
61612               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
61613
61614         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Duration_Interval_Min_A_Duration_Interval then
61615            --  DurationInterval::min : Duration
61616
61617            AMF.UML.Duration_Intervals.UML_Duration_Interval_Access
61618             (AMF.Internals.Helpers.To_Element (Self)).Set_Min
61619               (AMF.UML.Durations.UML_Duration_Access (AMF.Holders.Elements.Element (Value)));
61620
61621         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interval_Min_A_Interval then
61622            --  Interval::min : ValueSpecification
61623
61624            AMF.UML.Duration_Intervals.UML_Duration_Interval_Access
61625             (AMF.Internals.Helpers.To_Element (Self)).Set_Min
61626               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
61627
61628         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
61629            --  NamedElement::name : String
61630
61631            AMF.UML.Duration_Intervals.UML_Duration_Interval_Access
61632             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
61633               (AMF.Holders.Element (Value));
61634
61635         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
61636            --  NamedElement::nameExpression : StringExpression
61637
61638            AMF.UML.Duration_Intervals.UML_Duration_Interval_Access
61639             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
61640               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
61641
61642         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
61643            --  ParameterableElement::owningTemplateParameter : TemplateParameter
61644
61645            AMF.UML.Duration_Intervals.UML_Duration_Interval_Access
61646             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
61647               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
61648
61649         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
61650            --  ParameterableElement::templateParameter : TemplateParameter
61651
61652            AMF.UML.Duration_Intervals.UML_Duration_Interval_Access
61653             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
61654               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
61655
61656         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
61657            --  TypedElement::type : Type
61658
61659            AMF.UML.Duration_Intervals.UML_Duration_Interval_Access
61660             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
61661               (AMF.UML.Types.UML_Type_Access (AMF.Holders.Elements.Element (Value)));
61662
61663         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
61664            --  NamedElement::visibility : VisibilityKind
61665
61666            AMF.UML.Duration_Intervals.UML_Duration_Interval_Access
61667             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
61668               (AMF.UML.Holders.Element (Value));
61669
61670         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
61671            --  PackageableElement::visibility : VisibilityKind
61672
61673            AMF.UML.Duration_Intervals.UML_Duration_Interval_Access
61674             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
61675               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
61676
61677         else
61678            raise Program_Error;
61679         end if;
61680      end UML_Duration_Interval_Set;
61681
61682      ----------------------------------
61683      -- UML_Duration_Observation_Set --
61684      ----------------------------------
61685
61686      procedure UML_Duration_Observation_Set is
61687      begin
61688         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
61689            --  NamedElement::name : String
61690
61691            AMF.UML.Duration_Observations.UML_Duration_Observation_Access
61692             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
61693               (AMF.Holders.Element (Value));
61694
61695         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
61696            --  NamedElement::nameExpression : StringExpression
61697
61698            AMF.UML.Duration_Observations.UML_Duration_Observation_Access
61699             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
61700               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
61701
61702         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
61703            --  ParameterableElement::owningTemplateParameter : TemplateParameter
61704
61705            AMF.UML.Duration_Observations.UML_Duration_Observation_Access
61706             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
61707               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
61708
61709         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
61710            --  ParameterableElement::templateParameter : TemplateParameter
61711
61712            AMF.UML.Duration_Observations.UML_Duration_Observation_Access
61713             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
61714               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
61715
61716         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
61717            --  NamedElement::visibility : VisibilityKind
61718
61719            AMF.UML.Duration_Observations.UML_Duration_Observation_Access
61720             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
61721               (AMF.UML.Holders.Element (Value));
61722
61723         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
61724            --  PackageableElement::visibility : VisibilityKind
61725
61726            AMF.UML.Duration_Observations.UML_Duration_Observation_Access
61727             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
61728               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
61729
61730         else
61731            raise Program_Error;
61732         end if;
61733      end UML_Duration_Observation_Set;
61734
61735      ----------------------------
61736      -- UML_Element_Import_Set --
61737      ----------------------------
61738
61739      procedure UML_Element_Import_Set is
61740      begin
61741         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Import_Alias then
61742            --  ElementImport::alias : String
61743
61744            AMF.UML.Element_Imports.UML_Element_Import_Access
61745             (AMF.Internals.Helpers.To_Element (Self)).Set_Alias
61746               (AMF.Holders.Element (Value));
61747
61748         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Import_Imported_Element_A_Element_Import then
61749            --  ElementImport::importedElement : PackageableElement
61750
61751            AMF.UML.Element_Imports.UML_Element_Import_Access
61752             (AMF.Internals.Helpers.To_Element (Self)).Set_Imported_Element
61753               (AMF.UML.Packageable_Elements.UML_Packageable_Element_Access (AMF.Holders.Elements.Element (Value)));
61754
61755         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Import_Importing_Namespace_Namespace_Element_Import then
61756            --  ElementImport::importingNamespace : Namespace
61757
61758            AMF.UML.Element_Imports.UML_Element_Import_Access
61759             (AMF.Internals.Helpers.To_Element (Self)).Set_Importing_Namespace
61760               (AMF.UML.Namespaces.UML_Namespace_Access (AMF.Holders.Elements.Element (Value)));
61761
61762         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Import_Visibility then
61763            --  ElementImport::visibility : VisibilityKind
61764
61765            AMF.UML.Element_Imports.UML_Element_Import_Access
61766             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
61767               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
61768
61769         else
61770            raise Program_Error;
61771         end if;
61772      end UML_Element_Import_Set;
61773
61774      -------------------------
61775      -- UML_Enumeration_Set --
61776      -------------------------
61777
61778      procedure UML_Enumeration_Set is
61779      begin
61780         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
61781            --  Classifier::isAbstract : Boolean
61782
61783            AMF.UML.Enumerations.UML_Enumeration_Access
61784             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
61785               (League.Holders.Booleans.Element (Value));
61786
61787         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
61788            --  Classifier::isFinalSpecialization : Boolean
61789
61790            AMF.UML.Enumerations.UML_Enumeration_Access
61791             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization
61792               (League.Holders.Booleans.Element (Value));
61793
61794         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
61795            --  RedefinableElement::isLeaf : Boolean
61796
61797            AMF.UML.Enumerations.UML_Enumeration_Access
61798             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
61799               (League.Holders.Booleans.Element (Value));
61800
61801         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
61802            --  NamedElement::name : String
61803
61804            AMF.UML.Enumerations.UML_Enumeration_Access
61805             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
61806               (AMF.Holders.Element (Value));
61807
61808         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
61809            --  NamedElement::nameExpression : StringExpression
61810
61811            AMF.UML.Enumerations.UML_Enumeration_Access
61812             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
61813               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
61814
61815         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
61816            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
61817
61818            AMF.UML.Enumerations.UML_Enumeration_Access
61819             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
61820               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
61821
61822         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
61823            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
61824
61825            AMF.UML.Enumerations.UML_Enumeration_Access
61826             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
61827               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
61828
61829         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
61830            --  ParameterableElement::owningTemplateParameter : TemplateParameter
61831
61832            AMF.UML.Enumerations.UML_Enumeration_Access
61833             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
61834               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
61835
61836         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
61837            --  Type::package : Package
61838
61839            AMF.UML.Enumerations.UML_Enumeration_Access
61840             (AMF.Internals.Helpers.To_Element (Self)).Set_Package
61841               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
61842
61843         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
61844            --  Classifier::representation : CollaborationUse
61845
61846            AMF.UML.Enumerations.UML_Enumeration_Access
61847             (AMF.Internals.Helpers.To_Element (Self)).Set_Representation
61848               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access (AMF.Holders.Elements.Element (Value)));
61849
61850         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
61851            --  Classifier::templateParameter : ClassifierTemplateParameter
61852
61853            AMF.UML.Enumerations.UML_Enumeration_Access
61854             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
61855               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
61856
61857         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
61858            --  ParameterableElement::templateParameter : TemplateParameter
61859
61860            AMF.UML.Enumerations.UML_Enumeration_Access
61861             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
61862               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
61863
61864         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
61865            --  NamedElement::visibility : VisibilityKind
61866
61867            AMF.UML.Enumerations.UML_Enumeration_Access
61868             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
61869               (AMF.UML.Holders.Element (Value));
61870
61871         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
61872            --  PackageableElement::visibility : VisibilityKind
61873
61874            AMF.UML.Enumerations.UML_Enumeration_Access
61875             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
61876               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
61877
61878         else
61879            raise Program_Error;
61880         end if;
61881      end UML_Enumeration_Set;
61882
61883      ---------------------------------
61884      -- UML_Enumeration_Literal_Set --
61885      ---------------------------------
61886
61887      procedure UML_Enumeration_Literal_Set is
61888      begin
61889         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Enumeration_Literal_Enumeration_Enumeration_Owned_Literal then
61890            --  EnumerationLiteral::enumeration : Enumeration
61891
61892            AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access
61893             (AMF.Internals.Helpers.To_Element (Self)).Set_Enumeration
61894               (AMF.UML.Enumerations.UML_Enumeration_Access (AMF.Holders.Elements.Element (Value)));
61895
61896         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
61897            --  NamedElement::name : String
61898
61899            AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access
61900             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
61901               (AMF.Holders.Element (Value));
61902
61903         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
61904            --  NamedElement::nameExpression : StringExpression
61905
61906            AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access
61907             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
61908               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
61909
61910         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
61911            --  ParameterableElement::owningTemplateParameter : TemplateParameter
61912
61913            AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access
61914             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
61915               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
61916
61917         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Instance_Specification_Specification_A_Owning_Instance_Spec then
61918            --  InstanceSpecification::specification : ValueSpecification
61919
61920            AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access
61921             (AMF.Internals.Helpers.To_Element (Self)).Set_Specification
61922               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
61923
61924         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
61925            --  ParameterableElement::templateParameter : TemplateParameter
61926
61927            AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access
61928             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
61929               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
61930
61931         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
61932            --  NamedElement::visibility : VisibilityKind
61933
61934            AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access
61935             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
61936               (AMF.UML.Holders.Element (Value));
61937
61938         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
61939            --  PackageableElement::visibility : VisibilityKind
61940
61941            AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access
61942             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
61943               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
61944
61945         else
61946            raise Program_Error;
61947         end if;
61948      end UML_Enumeration_Literal_Set;
61949
61950      -------------------------------
61951      -- UML_Exception_Handler_Set --
61952      -------------------------------
61953
61954      procedure UML_Exception_Handler_Set is
61955      begin
61956         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Exception_Handler_Exception_Input_A_Exception_Handler then
61957            --  ExceptionHandler::exceptionInput : ObjectNode
61958
61959            AMF.UML.Exception_Handlers.UML_Exception_Handler_Access
61960             (AMF.Internals.Helpers.To_Element (Self)).Set_Exception_Input
61961               (AMF.UML.Object_Nodes.UML_Object_Node_Access (AMF.Holders.Elements.Element (Value)));
61962
61963         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Exception_Handler_Handler_Body_A_Exception_Handler then
61964            --  ExceptionHandler::handlerBody : ExecutableNode
61965
61966            AMF.UML.Exception_Handlers.UML_Exception_Handler_Access
61967             (AMF.Internals.Helpers.To_Element (Self)).Set_Handler_Body
61968               (AMF.UML.Executable_Nodes.UML_Executable_Node_Access (AMF.Holders.Elements.Element (Value)));
61969
61970         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Exception_Handler_Protected_Node_Executable_Node_Handler then
61971            --  ExceptionHandler::protectedNode : ExecutableNode
61972
61973            AMF.UML.Exception_Handlers.UML_Exception_Handler_Access
61974             (AMF.Internals.Helpers.To_Element (Self)).Set_Protected_Node
61975               (AMF.UML.Executable_Nodes.UML_Executable_Node_Access (AMF.Holders.Elements.Element (Value)));
61976
61977         else
61978            raise Program_Error;
61979         end if;
61980      end UML_Exception_Handler_Set;
61981
61982      -----------------------------------
61983      -- UML_Execution_Environment_Set --
61984      -----------------------------------
61985
61986      procedure UML_Execution_Environment_Set is
61987      begin
61988         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
61989            --  BehavioredClassifier::classifierBehavior : Behavior
61990
61991            AMF.UML.Execution_Environments.UML_Execution_Environment_Access
61992             (AMF.Internals.Helpers.To_Element (Self)).Set_Classifier_Behavior
61993               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
61994
61995         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Abstract then
61996            --  Class::isAbstract : Boolean
61997
61998            AMF.UML.Execution_Environments.UML_Execution_Environment_Access
61999             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
62000               (League.Holders.Booleans.Element (Value));
62001
62002         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
62003            --  Classifier::isAbstract : Boolean
62004
62005            AMF.UML.Execution_Environments.UML_Execution_Environment_Access
62006             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
62007               (League.Holders.Booleans.Element (Value));
62008
62009         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Active then
62010            --  Class::isActive : Boolean
62011
62012            AMF.UML.Execution_Environments.UML_Execution_Environment_Access
62013             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Active
62014               (League.Holders.Booleans.Element (Value));
62015
62016         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
62017            --  Classifier::isFinalSpecialization : Boolean
62018
62019            AMF.UML.Execution_Environments.UML_Execution_Environment_Access
62020             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization
62021               (League.Holders.Booleans.Element (Value));
62022
62023         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
62024            --  RedefinableElement::isLeaf : Boolean
62025
62026            AMF.UML.Execution_Environments.UML_Execution_Environment_Access
62027             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
62028               (League.Holders.Booleans.Element (Value));
62029
62030         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
62031            --  NamedElement::name : String
62032
62033            AMF.UML.Execution_Environments.UML_Execution_Environment_Access
62034             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
62035               (AMF.Holders.Element (Value));
62036
62037         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
62038            --  NamedElement::nameExpression : StringExpression
62039
62040            AMF.UML.Execution_Environments.UML_Execution_Environment_Access
62041             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
62042               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
62043
62044         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
62045            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
62046
62047            AMF.UML.Execution_Environments.UML_Execution_Environment_Access
62048             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
62049               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
62050
62051         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
62052            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
62053
62054            AMF.UML.Execution_Environments.UML_Execution_Environment_Access
62055             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
62056               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
62057
62058         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
62059            --  ParameterableElement::owningTemplateParameter : TemplateParameter
62060
62061            AMF.UML.Execution_Environments.UML_Execution_Environment_Access
62062             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
62063               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
62064
62065         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
62066            --  Type::package : Package
62067
62068            AMF.UML.Execution_Environments.UML_Execution_Environment_Access
62069             (AMF.Internals.Helpers.To_Element (Self)).Set_Package
62070               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
62071
62072         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
62073            --  Classifier::representation : CollaborationUse
62074
62075            AMF.UML.Execution_Environments.UML_Execution_Environment_Access
62076             (AMF.Internals.Helpers.To_Element (Self)).Set_Representation
62077               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access (AMF.Holders.Elements.Element (Value)));
62078
62079         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
62080            --  Classifier::templateParameter : ClassifierTemplateParameter
62081
62082            AMF.UML.Execution_Environments.UML_Execution_Environment_Access
62083             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
62084               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
62085
62086         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
62087            --  ParameterableElement::templateParameter : TemplateParameter
62088
62089            AMF.UML.Execution_Environments.UML_Execution_Environment_Access
62090             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
62091               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
62092
62093         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
62094            --  NamedElement::visibility : VisibilityKind
62095
62096            AMF.UML.Execution_Environments.UML_Execution_Environment_Access
62097             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
62098               (AMF.UML.Holders.Element (Value));
62099
62100         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
62101            --  PackageableElement::visibility : VisibilityKind
62102
62103            AMF.UML.Execution_Environments.UML_Execution_Environment_Access
62104             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
62105               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
62106
62107         else
62108            raise Program_Error;
62109         end if;
62110      end UML_Execution_Environment_Set;
62111
62112      ------------------------------------------------
62113      -- UML_Execution_Occurrence_Specification_Set --
62114      ------------------------------------------------
62115
62116      procedure UML_Execution_Occurrence_Specification_Set is
62117      begin
62118         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Occurrence_Specification_Covered_A_Events then
62119            --  OccurrenceSpecification::covered : Lifeline
62120
62121            AMF.UML.Execution_Occurrence_Specifications.UML_Execution_Occurrence_Specification_Access
62122             (AMF.Internals.Helpers.To_Element (Self)).Set_Covered
62123               (AMF.UML.Lifelines.UML_Lifeline_Access (AMF.Holders.Elements.Element (Value)));
62124
62125         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Interaction_Interaction_Fragment then
62126            --  InteractionFragment::enclosingInteraction : Interaction
62127
62128            AMF.UML.Execution_Occurrence_Specifications.UML_Execution_Occurrence_Specification_Access
62129             (AMF.Internals.Helpers.To_Element (Self)).Set_Enclosing_Interaction
62130               (AMF.UML.Interactions.UML_Interaction_Access (AMF.Holders.Elements.Element (Value)));
62131
62132         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Operand_Interaction_Operand_Fragment then
62133            --  InteractionFragment::enclosingOperand : InteractionOperand
62134
62135            AMF.UML.Execution_Occurrence_Specifications.UML_Execution_Occurrence_Specification_Access
62136             (AMF.Internals.Helpers.To_Element (Self)).Set_Enclosing_Operand
62137               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access (AMF.Holders.Elements.Element (Value)));
62138
62139         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Execution_Occurrence_Specification_Execution_A_Execution_Occurrence_Specification then
62140            --  ExecutionOccurrenceSpecification::execution : ExecutionSpecification
62141
62142            AMF.UML.Execution_Occurrence_Specifications.UML_Execution_Occurrence_Specification_Access
62143             (AMF.Internals.Helpers.To_Element (Self)).Set_Execution
62144               (AMF.UML.Execution_Specifications.UML_Execution_Specification_Access (AMF.Holders.Elements.Element (Value)));
62145
62146         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
62147            --  NamedElement::name : String
62148
62149            AMF.UML.Execution_Occurrence_Specifications.UML_Execution_Occurrence_Specification_Access
62150             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
62151               (AMF.Holders.Element (Value));
62152
62153         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
62154            --  NamedElement::nameExpression : StringExpression
62155
62156            AMF.UML.Execution_Occurrence_Specifications.UML_Execution_Occurrence_Specification_Access
62157             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
62158               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
62159
62160         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
62161            --  NamedElement::visibility : VisibilityKind
62162
62163            AMF.UML.Execution_Occurrence_Specifications.UML_Execution_Occurrence_Specification_Access
62164             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
62165               (AMF.UML.Holders.Element (Value));
62166
62167         else
62168            raise Program_Error;
62169         end if;
62170      end UML_Execution_Occurrence_Specification_Set;
62171
62172      ----------------------------
62173      -- UML_Expansion_Node_Set --
62174      ----------------------------
62175
62176      procedure UML_Expansion_Node_Set is
62177      begin
62178         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
62179            --  ActivityNode::activity : Activity
62180
62181            AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
62182             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
62183               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
62184
62185         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
62186            --  ActivityNode::inStructuredNode : StructuredActivityNode
62187
62188            AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
62189             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
62190               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
62191
62192         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Is_Control_Type then
62193            --  ObjectNode::isControlType : Boolean
62194
62195            AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
62196             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Control_Type
62197               (League.Holders.Booleans.Element (Value));
62198
62199         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
62200            --  RedefinableElement::isLeaf : Boolean
62201
62202            AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
62203             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
62204               (League.Holders.Booleans.Element (Value));
62205
62206         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
62207            --  NamedElement::name : String
62208
62209            AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
62210             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
62211               (AMF.Holders.Element (Value));
62212
62213         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
62214            --  NamedElement::nameExpression : StringExpression
62215
62216            AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
62217             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
62218               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
62219
62220         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Ordering then
62221            --  ObjectNode::ordering : ObjectNodeOrderingKind
62222
62223            AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
62224             (AMF.Internals.Helpers.To_Element (Self)).Set_Ordering
62225               (AMF.UML.Holders.Object_Node_Ordering_Kinds.Element (Value));
62226
62227         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Expansion_Node_Region_As_Input_Expansion_Region_Input_Element then
62228            --  ExpansionNode::regionAsInput : ExpansionRegion
62229
62230            AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
62231             (AMF.Internals.Helpers.To_Element (Self)).Set_Region_As_Input
62232               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access (AMF.Holders.Elements.Element (Value)));
62233
62234         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Expansion_Node_Region_As_Output_Expansion_Region_Output_Element then
62235            --  ExpansionNode::regionAsOutput : ExpansionRegion
62236
62237            AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
62238             (AMF.Internals.Helpers.To_Element (Self)).Set_Region_As_Output
62239               (AMF.UML.Expansion_Regions.UML_Expansion_Region_Access (AMF.Holders.Elements.Element (Value)));
62240
62241         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Selection_A_Object_Node then
62242            --  ObjectNode::selection : Behavior
62243
62244            AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
62245             (AMF.Internals.Helpers.To_Element (Self)).Set_Selection
62246               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
62247
62248         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
62249            --  TypedElement::type : Type
62250
62251            AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
62252             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
62253               (AMF.UML.Types.UML_Type_Access (AMF.Holders.Elements.Element (Value)));
62254
62255         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Upper_Bound_A_Object_Node then
62256            --  ObjectNode::upperBound : ValueSpecification
62257
62258            AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
62259             (AMF.Internals.Helpers.To_Element (Self)).Set_Upper_Bound
62260               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
62261
62262         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
62263            --  NamedElement::visibility : VisibilityKind
62264
62265            AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access
62266             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
62267               (AMF.UML.Holders.Element (Value));
62268
62269         else
62270            raise Program_Error;
62271         end if;
62272      end UML_Expansion_Node_Set;
62273
62274      ------------------------------
62275      -- UML_Expansion_Region_Set --
62276      ------------------------------
62277
62278      procedure UML_Expansion_Region_Set is
62279      begin
62280         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
62281            --  ActivityNode::activity : Activity
62282
62283            AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
62284             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
62285               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
62286
62287         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Activity_Activity_Structured_Node then
62288            --  StructuredActivityNode::activity : Activity
62289
62290            AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
62291             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
62292               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
62293
62294         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_In_Activity_Activity_Group then
62295            --  ActivityGroup::inActivity : Activity
62296
62297            AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
62298             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Activity
62299               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
62300
62301         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
62302            --  ActivityNode::inStructuredNode : StructuredActivityNode
62303
62304            AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
62305             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
62306               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
62307
62308         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
62309            --  RedefinableElement::isLeaf : Boolean
62310
62311            AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
62312             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
62313               (League.Holders.Booleans.Element (Value));
62314
62315         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
62316            --  Action::isLocallyReentrant : Boolean
62317
62318            AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
62319             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
62320               (League.Holders.Booleans.Element (Value));
62321
62322         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Expansion_Region_Mode then
62323            --  ExpansionRegion::mode : ExpansionKind
62324
62325            AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
62326             (AMF.Internals.Helpers.To_Element (Self)).Set_Mode
62327               (AMF.UML.Holders.Expansion_Kinds.Element (Value));
62328
62329         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Must_Isolate then
62330            --  StructuredActivityNode::mustIsolate : Boolean
62331
62332            AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
62333             (AMF.Internals.Helpers.To_Element (Self)).Set_Must_Isolate
62334               (League.Holders.Booleans.Element (Value));
62335
62336         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
62337            --  NamedElement::name : String
62338
62339            AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
62340             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
62341               (AMF.Holders.Element (Value));
62342
62343         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
62344            --  NamedElement::nameExpression : StringExpression
62345
62346            AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
62347             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
62348               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
62349
62350         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
62351            --  NamedElement::visibility : VisibilityKind
62352
62353            AMF.UML.Expansion_Regions.UML_Expansion_Region_Access
62354             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
62355               (AMF.UML.Holders.Element (Value));
62356
62357         else
62358            raise Program_Error;
62359         end if;
62360      end UML_Expansion_Region_Set;
62361
62362      ------------------------
62363      -- UML_Expression_Set --
62364      ------------------------
62365
62366      procedure UML_Expression_Set is
62367      begin
62368         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
62369            --  NamedElement::name : String
62370
62371            AMF.UML.Expressions.UML_Expression_Access
62372             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
62373               (AMF.Holders.Element (Value));
62374
62375         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
62376            --  NamedElement::nameExpression : StringExpression
62377
62378            AMF.UML.Expressions.UML_Expression_Access
62379             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
62380               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
62381
62382         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
62383            --  ParameterableElement::owningTemplateParameter : TemplateParameter
62384
62385            AMF.UML.Expressions.UML_Expression_Access
62386             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
62387               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
62388
62389         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Expression_Symbol then
62390            --  Expression::symbol : String
62391
62392            AMF.UML.Expressions.UML_Expression_Access
62393             (AMF.Internals.Helpers.To_Element (Self)).Set_Symbol
62394               (AMF.Holders.Element (Value));
62395
62396         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
62397            --  ParameterableElement::templateParameter : TemplateParameter
62398
62399            AMF.UML.Expressions.UML_Expression_Access
62400             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
62401               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
62402
62403         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
62404            --  TypedElement::type : Type
62405
62406            AMF.UML.Expressions.UML_Expression_Access
62407             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
62408               (AMF.UML.Types.UML_Type_Access (AMF.Holders.Elements.Element (Value)));
62409
62410         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
62411            --  NamedElement::visibility : VisibilityKind
62412
62413            AMF.UML.Expressions.UML_Expression_Access
62414             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
62415               (AMF.UML.Holders.Element (Value));
62416
62417         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
62418            --  PackageableElement::visibility : VisibilityKind
62419
62420            AMF.UML.Expressions.UML_Expression_Access
62421             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
62422               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
62423
62424         else
62425            raise Program_Error;
62426         end if;
62427      end UML_Expression_Set;
62428
62429      --------------------
62430      -- UML_Extend_Set --
62431      --------------------
62432
62433      procedure UML_Extend_Set is
62434      begin
62435         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Extend_Condition_A_Extend then
62436            --  Extend::condition : Constraint
62437
62438            AMF.UML.Extends.UML_Extend_Access
62439             (AMF.Internals.Helpers.To_Element (Self)).Set_Condition
62440               (AMF.UML.Constraints.UML_Constraint_Access (AMF.Holders.Elements.Element (Value)));
62441
62442         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Extend_Extended_Case_A_Extend then
62443            --  Extend::extendedCase : UseCase
62444
62445            AMF.UML.Extends.UML_Extend_Access
62446             (AMF.Internals.Helpers.To_Element (Self)).Set_Extended_Case
62447               (AMF.UML.Use_Cases.UML_Use_Case_Access (AMF.Holders.Elements.Element (Value)));
62448
62449         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Extend_Extension_Use_Case_Extend then
62450            --  Extend::extension : UseCase
62451
62452            AMF.UML.Extends.UML_Extend_Access
62453             (AMF.Internals.Helpers.To_Element (Self)).Set_Extension
62454               (AMF.UML.Use_Cases.UML_Use_Case_Access (AMF.Holders.Elements.Element (Value)));
62455
62456         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
62457            --  NamedElement::name : String
62458
62459            AMF.UML.Extends.UML_Extend_Access
62460             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
62461               (AMF.Holders.Element (Value));
62462
62463         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
62464            --  NamedElement::nameExpression : StringExpression
62465
62466            AMF.UML.Extends.UML_Extend_Access
62467             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
62468               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
62469
62470         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
62471            --  NamedElement::visibility : VisibilityKind
62472
62473            AMF.UML.Extends.UML_Extend_Access
62474             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
62475               (AMF.UML.Holders.Element (Value));
62476
62477         else
62478            raise Program_Error;
62479         end if;
62480      end UML_Extend_Set;
62481
62482      -----------------------
62483      -- UML_Extension_Set --
62484      -----------------------
62485
62486      procedure UML_Extension_Set is
62487      begin
62488         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
62489            --  Classifier::isAbstract : Boolean
62490
62491            AMF.UML.Extensions.UML_Extension_Access
62492             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
62493               (League.Holders.Booleans.Element (Value));
62494
62495         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Is_Derived then
62496            --  Association::isDerived : Boolean
62497
62498            AMF.UML.Extensions.UML_Extension_Access
62499             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Derived
62500               (League.Holders.Booleans.Element (Value));
62501
62502         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
62503            --  Classifier::isFinalSpecialization : Boolean
62504
62505            AMF.UML.Extensions.UML_Extension_Access
62506             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization
62507               (League.Holders.Booleans.Element (Value));
62508
62509         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
62510            --  RedefinableElement::isLeaf : Boolean
62511
62512            AMF.UML.Extensions.UML_Extension_Access
62513             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
62514               (League.Holders.Booleans.Element (Value));
62515
62516         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
62517            --  NamedElement::name : String
62518
62519            AMF.UML.Extensions.UML_Extension_Access
62520             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
62521               (AMF.Holders.Element (Value));
62522
62523         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
62524            --  NamedElement::nameExpression : StringExpression
62525
62526            AMF.UML.Extensions.UML_Extension_Access
62527             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
62528               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
62529
62530         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Extension_Owned_End_A_Extension then
62531            --  Extension::ownedEnd : ExtensionEnd
62532
62533            AMF.UML.Extensions.UML_Extension_Access
62534             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_End
62535               (AMF.UML.Extension_Ends.UML_Extension_End_Access (AMF.Holders.Elements.Element (Value)));
62536
62537         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
62538            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
62539
62540            AMF.UML.Extensions.UML_Extension_Access
62541             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
62542               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
62543
62544         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
62545            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
62546
62547            AMF.UML.Extensions.UML_Extension_Access
62548             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
62549               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
62550
62551         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
62552            --  ParameterableElement::owningTemplateParameter : TemplateParameter
62553
62554            AMF.UML.Extensions.UML_Extension_Access
62555             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
62556               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
62557
62558         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
62559            --  Type::package : Package
62560
62561            AMF.UML.Extensions.UML_Extension_Access
62562             (AMF.Internals.Helpers.To_Element (Self)).Set_Package
62563               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
62564
62565         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
62566            --  Classifier::representation : CollaborationUse
62567
62568            AMF.UML.Extensions.UML_Extension_Access
62569             (AMF.Internals.Helpers.To_Element (Self)).Set_Representation
62570               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access (AMF.Holders.Elements.Element (Value)));
62571
62572         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
62573            --  Classifier::templateParameter : ClassifierTemplateParameter
62574
62575            AMF.UML.Extensions.UML_Extension_Access
62576             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
62577               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
62578
62579         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
62580            --  ParameterableElement::templateParameter : TemplateParameter
62581
62582            AMF.UML.Extensions.UML_Extension_Access
62583             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
62584               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
62585
62586         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
62587            --  NamedElement::visibility : VisibilityKind
62588
62589            AMF.UML.Extensions.UML_Extension_Access
62590             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
62591               (AMF.UML.Holders.Element (Value));
62592
62593         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
62594            --  PackageableElement::visibility : VisibilityKind
62595
62596            AMF.UML.Extensions.UML_Extension_Access
62597             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
62598               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
62599
62600         else
62601            raise Program_Error;
62602         end if;
62603      end UML_Extension_Set;
62604
62605      ---------------------------
62606      -- UML_Extension_End_Set --
62607      ---------------------------
62608
62609      procedure UML_Extension_End_Set is
62610      begin
62611         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Aggregation then
62612            --  Property::aggregation : AggregationKind
62613
62614            AMF.UML.Extension_Ends.UML_Extension_End_Access
62615             (AMF.Internals.Helpers.To_Element (Self)).Set_Aggregation
62616               (AMF.UML.Holders.Aggregation_Kinds.Element (Value));
62617
62618         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Association_Association_Member_End then
62619            --  Property::association : Association
62620
62621            AMF.UML.Extension_Ends.UML_Extension_End_Access
62622             (AMF.Internals.Helpers.To_Element (Self)).Set_Association
62623               (AMF.UML.Associations.UML_Association_Access (AMF.Holders.Elements.Element (Value)));
62624
62625         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Association_End_Property_Qualifier then
62626            --  Property::associationEnd : Property
62627
62628            AMF.UML.Extension_Ends.UML_Extension_End_Access
62629             (AMF.Internals.Helpers.To_Element (Self)).Set_Association_End
62630               (AMF.UML.Properties.UML_Property_Access (AMF.Holders.Elements.Element (Value)));
62631
62632         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Class_Class_Owned_Attribute then
62633            --  Property::class : Class
62634
62635            AMF.UML.Extension_Ends.UML_Extension_End_Access
62636             (AMF.Internals.Helpers.To_Element (Self)).Set_Class
62637               (AMF.UML.Classes.UML_Class_Access (AMF.Holders.Elements.Element (Value)));
62638
62639         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Datatype_Data_Type_Owned_Attribute then
62640            --  Property::datatype : DataType
62641
62642            AMF.UML.Extension_Ends.UML_Extension_End_Access
62643             (AMF.Internals.Helpers.To_Element (Self)).Set_Datatype
62644               (AMF.UML.Data_Types.UML_Data_Type_Access (AMF.Holders.Elements.Element (Value)));
62645
62646         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Default_Value_A_Owning_Property then
62647            --  Property::defaultValue : ValueSpecification
62648
62649            AMF.UML.Extension_Ends.UML_Extension_End_Access
62650             (AMF.Internals.Helpers.To_Element (Self)).Set_Default_Value
62651               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
62652
62653         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Interface_Interface_Owned_Attribute then
62654            --  Property::interface : Interface
62655
62656            AMF.UML.Extension_Ends.UML_Extension_End_Access
62657             (AMF.Internals.Helpers.To_Element (Self)).Set_Interface
62658               (AMF.UML.Interfaces.UML_Interface_Access (AMF.Holders.Elements.Element (Value)));
62659
62660         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Is_Derived then
62661            --  Property::isDerived : Boolean
62662
62663            AMF.UML.Extension_Ends.UML_Extension_End_Access
62664             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Derived
62665               (League.Holders.Booleans.Element (Value));
62666
62667         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Is_Derived_Union then
62668            --  Property::isDerivedUnion : Boolean
62669
62670            AMF.UML.Extension_Ends.UML_Extension_End_Access
62671             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Derived_Union
62672               (League.Holders.Booleans.Element (Value));
62673
62674         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Is_ID then
62675            --  Property::isID : Boolean
62676
62677            AMF.UML.Extension_Ends.UML_Extension_End_Access
62678             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_ID
62679               (League.Holders.Booleans.Element (Value));
62680
62681         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
62682            --  RedefinableElement::isLeaf : Boolean
62683
62684            AMF.UML.Extension_Ends.UML_Extension_End_Access
62685             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
62686               (League.Holders.Booleans.Element (Value));
62687
62688         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Ordered then
62689            --  MultiplicityElement::isOrdered : Boolean
62690
62691            AMF.UML.Extension_Ends.UML_Extension_End_Access
62692             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Ordered
62693               (League.Holders.Booleans.Element (Value));
62694
62695         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Is_Read_Only then
62696            --  Property::isReadOnly : Boolean
62697
62698            AMF.UML.Extension_Ends.UML_Extension_End_Access
62699             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Read_Only
62700               (League.Holders.Booleans.Element (Value));
62701
62702         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structural_Feature_Is_Read_Only then
62703            --  StructuralFeature::isReadOnly : Boolean
62704
62705            AMF.UML.Extension_Ends.UML_Extension_End_Access
62706             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Read_Only
62707               (League.Holders.Booleans.Element (Value));
62708
62709         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Feature_Is_Static then
62710            --  Feature::isStatic : Boolean
62711
62712            AMF.UML.Extension_Ends.UML_Extension_End_Access
62713             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Static
62714               (League.Holders.Booleans.Element (Value));
62715
62716         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Unique then
62717            --  MultiplicityElement::isUnique : Boolean
62718
62719            AMF.UML.Extension_Ends.UML_Extension_End_Access
62720             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Unique
62721               (League.Holders.Booleans.Element (Value));
62722
62723         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower_Value_A_Owning_Lower then
62724            --  MultiplicityElement::lowerValue : ValueSpecification
62725
62726            AMF.UML.Extension_Ends.UML_Extension_End_Access
62727             (AMF.Internals.Helpers.To_Element (Self)).Set_Lower_Value
62728               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
62729
62730         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
62731            --  NamedElement::name : String
62732
62733            AMF.UML.Extension_Ends.UML_Extension_End_Access
62734             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
62735               (AMF.Holders.Element (Value));
62736
62737         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
62738            --  NamedElement::nameExpression : StringExpression
62739
62740            AMF.UML.Extension_Ends.UML_Extension_End_Access
62741             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
62742               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
62743
62744         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Owning_Association_Association_Owned_End then
62745            --  Property::owningAssociation : Association
62746
62747            AMF.UML.Extension_Ends.UML_Extension_End_Access
62748             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Association
62749               (AMF.UML.Associations.UML_Association_Access (AMF.Holders.Elements.Element (Value)));
62750
62751         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
62752            --  ParameterableElement::owningTemplateParameter : TemplateParameter
62753
62754            AMF.UML.Extension_Ends.UML_Extension_End_Access
62755             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
62756               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
62757
62758         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connectable_Element_Template_Parameter_Connectable_Element_Template_Parameter_Parametered_Element then
62759            --  ConnectableElement::templateParameter : ConnectableElementTemplateParameter
62760
62761            AMF.UML.Extension_Ends.UML_Extension_End_Access
62762             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
62763               (AMF.UML.Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
62764
62765         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
62766            --  ParameterableElement::templateParameter : TemplateParameter
62767
62768            AMF.UML.Extension_Ends.UML_Extension_End_Access
62769             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
62770               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
62771
62772         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Extension_End_Type_A_Extension_End then
62773            --  ExtensionEnd::type : Stereotype
62774
62775            AMF.UML.Extension_Ends.UML_Extension_End_Access
62776             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
62777               (AMF.UML.Stereotypes.UML_Stereotype_Access (AMF.Holders.Elements.Element (Value)));
62778
62779         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
62780            --  TypedElement::type : Type
62781
62782            AMF.UML.Extension_Ends.UML_Extension_End_Access
62783             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
62784               (AMF.UML.Types.UML_Type_Access (AMF.Holders.Elements.Element (Value)));
62785
62786         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper_Value_A_Owning_Upper then
62787            --  MultiplicityElement::upperValue : ValueSpecification
62788
62789            AMF.UML.Extension_Ends.UML_Extension_End_Access
62790             (AMF.Internals.Helpers.To_Element (Self)).Set_Upper_Value
62791               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
62792
62793         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
62794            --  NamedElement::visibility : VisibilityKind
62795
62796            AMF.UML.Extension_Ends.UML_Extension_End_Access
62797             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
62798               (AMF.UML.Holders.Element (Value));
62799
62800         else
62801            raise Program_Error;
62802         end if;
62803      end UML_Extension_End_Set;
62804
62805      -----------------------------
62806      -- UML_Extension_Point_Set --
62807      -----------------------------
62808
62809      procedure UML_Extension_Point_Set is
62810      begin
62811         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
62812            --  RedefinableElement::isLeaf : Boolean
62813
62814            AMF.UML.Extension_Points.UML_Extension_Point_Access
62815             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
62816               (League.Holders.Booleans.Element (Value));
62817
62818         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
62819            --  NamedElement::name : String
62820
62821            AMF.UML.Extension_Points.UML_Extension_Point_Access
62822             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
62823               (AMF.Holders.Element (Value));
62824
62825         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
62826            --  NamedElement::nameExpression : StringExpression
62827
62828            AMF.UML.Extension_Points.UML_Extension_Point_Access
62829             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
62830               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
62831
62832         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Extension_Point_Use_Case_Use_Case_Extension_Point then
62833            --  ExtensionPoint::useCase : UseCase
62834
62835            AMF.UML.Extension_Points.UML_Extension_Point_Access
62836             (AMF.Internals.Helpers.To_Element (Self)).Set_Use_Case
62837               (AMF.UML.Use_Cases.UML_Use_Case_Access (AMF.Holders.Elements.Element (Value)));
62838
62839         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
62840            --  NamedElement::visibility : VisibilityKind
62841
62842            AMF.UML.Extension_Points.UML_Extension_Point_Access
62843             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
62844               (AMF.UML.Holders.Element (Value));
62845
62846         else
62847            raise Program_Error;
62848         end if;
62849      end UML_Extension_Point_Set;
62850
62851      -------------------------
62852      -- UML_Final_State_Set --
62853      -------------------------
62854
62855      procedure UML_Final_State_Set is
62856      begin
62857         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Vertex_Container_Region_Subvertex then
62858            --  Vertex::container : Region
62859
62860            AMF.UML.Final_States.UML_Final_State_Access
62861             (AMF.Internals.Helpers.To_Element (Self)).Set_Container
62862               (AMF.UML.Regions.UML_Region_Access (AMF.Holders.Elements.Element (Value)));
62863
62864         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Do_Activity_A_State then
62865            --  State::doActivity : Behavior
62866
62867            AMF.UML.Final_States.UML_Final_State_Access
62868             (AMF.Internals.Helpers.To_Element (Self)).Set_Do_Activity
62869               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
62870
62871         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Entry_A_State then
62872            --  State::entry : Behavior
62873
62874            AMF.UML.Final_States.UML_Final_State_Access
62875             (AMF.Internals.Helpers.To_Element (Self)).Set_Entry
62876               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
62877
62878         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Exit_A_State then
62879            --  State::exit : Behavior
62880
62881            AMF.UML.Final_States.UML_Final_State_Access
62882             (AMF.Internals.Helpers.To_Element (Self)).Set_Exit
62883               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
62884
62885         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
62886            --  RedefinableElement::isLeaf : Boolean
62887
62888            AMF.UML.Final_States.UML_Final_State_Access
62889             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
62890               (League.Holders.Booleans.Element (Value));
62891
62892         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
62893            --  NamedElement::name : String
62894
62895            AMF.UML.Final_States.UML_Final_State_Access
62896             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
62897               (AMF.Holders.Element (Value));
62898
62899         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
62900            --  NamedElement::nameExpression : StringExpression
62901
62902            AMF.UML.Final_States.UML_Final_State_Access
62903             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
62904               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
62905
62906         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Redefined_State_A_State then
62907            --  State::redefinedState : State
62908
62909            AMF.UML.Final_States.UML_Final_State_Access
62910             (AMF.Internals.Helpers.To_Element (Self)).Set_Redefined_State
62911               (AMF.UML.States.UML_State_Access (AMF.Holders.Elements.Element (Value)));
62912
62913         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_State_Invariant_A_Owning_State then
62914            --  State::stateInvariant : Constraint
62915
62916            AMF.UML.Final_States.UML_Final_State_Access
62917             (AMF.Internals.Helpers.To_Element (Self)).Set_State_Invariant
62918               (AMF.UML.Constraints.UML_Constraint_Access (AMF.Holders.Elements.Element (Value)));
62919
62920         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Submachine_State_Machine_Submachine_State then
62921            --  State::submachine : StateMachine
62922
62923            AMF.UML.Final_States.UML_Final_State_Access
62924             (AMF.Internals.Helpers.To_Element (Self)).Set_Submachine
62925               (AMF.UML.State_Machines.UML_State_Machine_Access (AMF.Holders.Elements.Element (Value)));
62926
62927         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
62928            --  NamedElement::visibility : VisibilityKind
62929
62930            AMF.UML.Final_States.UML_Final_State_Access
62931             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
62932               (AMF.UML.Holders.Element (Value));
62933
62934         else
62935            raise Program_Error;
62936         end if;
62937      end UML_Final_State_Set;
62938
62939      -----------------------------
62940      -- UML_Flow_Final_Node_Set --
62941      -----------------------------
62942
62943      procedure UML_Flow_Final_Node_Set is
62944      begin
62945         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
62946            --  ActivityNode::activity : Activity
62947
62948            AMF.UML.Flow_Final_Nodes.UML_Flow_Final_Node_Access
62949             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
62950               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
62951
62952         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
62953            --  ActivityNode::inStructuredNode : StructuredActivityNode
62954
62955            AMF.UML.Flow_Final_Nodes.UML_Flow_Final_Node_Access
62956             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
62957               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
62958
62959         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
62960            --  RedefinableElement::isLeaf : Boolean
62961
62962            AMF.UML.Flow_Final_Nodes.UML_Flow_Final_Node_Access
62963             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
62964               (League.Holders.Booleans.Element (Value));
62965
62966         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
62967            --  NamedElement::name : String
62968
62969            AMF.UML.Flow_Final_Nodes.UML_Flow_Final_Node_Access
62970             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
62971               (AMF.Holders.Element (Value));
62972
62973         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
62974            --  NamedElement::nameExpression : StringExpression
62975
62976            AMF.UML.Flow_Final_Nodes.UML_Flow_Final_Node_Access
62977             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
62978               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
62979
62980         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
62981            --  NamedElement::visibility : VisibilityKind
62982
62983            AMF.UML.Flow_Final_Nodes.UML_Flow_Final_Node_Access
62984             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
62985               (AMF.UML.Holders.Element (Value));
62986
62987         else
62988            raise Program_Error;
62989         end if;
62990      end UML_Flow_Final_Node_Set;
62991
62992      -----------------------
62993      -- UML_Fork_Node_Set --
62994      -----------------------
62995
62996      procedure UML_Fork_Node_Set is
62997      begin
62998         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
62999            --  ActivityNode::activity : Activity
63000
63001            AMF.UML.Fork_Nodes.UML_Fork_Node_Access
63002             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
63003               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
63004
63005         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
63006            --  ActivityNode::inStructuredNode : StructuredActivityNode
63007
63008            AMF.UML.Fork_Nodes.UML_Fork_Node_Access
63009             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
63010               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
63011
63012         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
63013            --  RedefinableElement::isLeaf : Boolean
63014
63015            AMF.UML.Fork_Nodes.UML_Fork_Node_Access
63016             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
63017               (League.Holders.Booleans.Element (Value));
63018
63019         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
63020            --  NamedElement::name : String
63021
63022            AMF.UML.Fork_Nodes.UML_Fork_Node_Access
63023             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
63024               (AMF.Holders.Element (Value));
63025
63026         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
63027            --  NamedElement::nameExpression : StringExpression
63028
63029            AMF.UML.Fork_Nodes.UML_Fork_Node_Access
63030             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
63031               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
63032
63033         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
63034            --  NamedElement::visibility : VisibilityKind
63035
63036            AMF.UML.Fork_Nodes.UML_Fork_Node_Access
63037             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
63038               (AMF.UML.Holders.Element (Value));
63039
63040         else
63041            raise Program_Error;
63042         end if;
63043      end UML_Fork_Node_Set;
63044
63045      -------------------------------
63046      -- UML_Function_Behavior_Set --
63047      -------------------------------
63048
63049      procedure UML_Function_Behavior_Set is
63050      begin
63051         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
63052            --  BehavioredClassifier::classifierBehavior : Behavior
63053
63054            AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
63055             (AMF.Internals.Helpers.To_Element (Self)).Set_Classifier_Behavior
63056               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
63057
63058         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Abstract then
63059            --  Class::isAbstract : Boolean
63060
63061            AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
63062             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
63063               (League.Holders.Booleans.Element (Value));
63064
63065         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
63066            --  Classifier::isAbstract : Boolean
63067
63068            AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
63069             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
63070               (League.Holders.Booleans.Element (Value));
63071
63072         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Active then
63073            --  Class::isActive : Boolean
63074
63075            AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
63076             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Active
63077               (League.Holders.Booleans.Element (Value));
63078
63079         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
63080            --  Classifier::isFinalSpecialization : Boolean
63081
63082            AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
63083             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization
63084               (League.Holders.Booleans.Element (Value));
63085
63086         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
63087            --  RedefinableElement::isLeaf : Boolean
63088
63089            AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
63090             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
63091               (League.Holders.Booleans.Element (Value));
63092
63093         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Is_Reentrant then
63094            --  Behavior::isReentrant : Boolean
63095
63096            AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
63097             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Reentrant
63098               (League.Holders.Booleans.Element (Value));
63099
63100         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
63101            --  NamedElement::name : String
63102
63103            AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
63104             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
63105               (AMF.Holders.Element (Value));
63106
63107         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
63108            --  NamedElement::nameExpression : StringExpression
63109
63110            AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
63111             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
63112               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
63113
63114         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
63115            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
63116
63117            AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
63118             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
63119               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
63120
63121         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
63122            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
63123
63124            AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
63125             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
63126               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
63127
63128         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
63129            --  ParameterableElement::owningTemplateParameter : TemplateParameter
63130
63131            AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
63132             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
63133               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
63134
63135         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
63136            --  Type::package : Package
63137
63138            AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
63139             (AMF.Internals.Helpers.To_Element (Self)).Set_Package
63140               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
63141
63142         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
63143            --  Classifier::representation : CollaborationUse
63144
63145            AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
63146             (AMF.Internals.Helpers.To_Element (Self)).Set_Representation
63147               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access (AMF.Holders.Elements.Element (Value)));
63148
63149         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Specification_Behavioral_Feature_Method then
63150            --  Behavior::specification : BehavioralFeature
63151
63152            AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
63153             (AMF.Internals.Helpers.To_Element (Self)).Set_Specification
63154               (AMF.UML.Behavioral_Features.UML_Behavioral_Feature_Access (AMF.Holders.Elements.Element (Value)));
63155
63156         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
63157            --  Classifier::templateParameter : ClassifierTemplateParameter
63158
63159            AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
63160             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
63161               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
63162
63163         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
63164            --  ParameterableElement::templateParameter : TemplateParameter
63165
63166            AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
63167             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
63168               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
63169
63170         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
63171            --  NamedElement::visibility : VisibilityKind
63172
63173            AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
63174             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
63175               (AMF.UML.Holders.Element (Value));
63176
63177         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
63178            --  PackageableElement::visibility : VisibilityKind
63179
63180            AMF.UML.Function_Behaviors.UML_Function_Behavior_Access
63181             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
63182               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
63183
63184         else
63185            raise Program_Error;
63186         end if;
63187      end UML_Function_Behavior_Set;
63188
63189      ------------------
63190      -- UML_Gate_Set --
63191      ------------------
63192
63193      procedure UML_Gate_Set is
63194      begin
63195         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Message_End_Message_A_Message_End then
63196            --  MessageEnd::message : Message
63197
63198            AMF.UML.Gates.UML_Gate_Access
63199             (AMF.Internals.Helpers.To_Element (Self)).Set_Message
63200               (AMF.UML.Messages.UML_Message_Access (AMF.Holders.Elements.Element (Value)));
63201
63202         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
63203            --  NamedElement::name : String
63204
63205            AMF.UML.Gates.UML_Gate_Access
63206             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
63207               (AMF.Holders.Element (Value));
63208
63209         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
63210            --  NamedElement::nameExpression : StringExpression
63211
63212            AMF.UML.Gates.UML_Gate_Access
63213             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
63214               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
63215
63216         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
63217            --  NamedElement::visibility : VisibilityKind
63218
63219            AMF.UML.Gates.UML_Gate_Access
63220             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
63221               (AMF.UML.Holders.Element (Value));
63222
63223         else
63224            raise Program_Error;
63225         end if;
63226      end UML_Gate_Set;
63227
63228      ------------------------------
63229      -- UML_General_Ordering_Set --
63230      ------------------------------
63231
63232      procedure UML_General_Ordering_Set is
63233      begin
63234         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_General_Ordering_After_Occurrence_Specification_To_Before then
63235            --  GeneralOrdering::after : OccurrenceSpecification
63236
63237            AMF.UML.General_Orderings.UML_General_Ordering_Access
63238             (AMF.Internals.Helpers.To_Element (Self)).Set_After
63239               (AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access (AMF.Holders.Elements.Element (Value)));
63240
63241         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_General_Ordering_Before_Occurrence_Specification_To_After then
63242            --  GeneralOrdering::before : OccurrenceSpecification
63243
63244            AMF.UML.General_Orderings.UML_General_Ordering_Access
63245             (AMF.Internals.Helpers.To_Element (Self)).Set_Before
63246               (AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access (AMF.Holders.Elements.Element (Value)));
63247
63248         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
63249            --  NamedElement::name : String
63250
63251            AMF.UML.General_Orderings.UML_General_Ordering_Access
63252             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
63253               (AMF.Holders.Element (Value));
63254
63255         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
63256            --  NamedElement::nameExpression : StringExpression
63257
63258            AMF.UML.General_Orderings.UML_General_Ordering_Access
63259             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
63260               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
63261
63262         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
63263            --  NamedElement::visibility : VisibilityKind
63264
63265            AMF.UML.General_Orderings.UML_General_Ordering_Access
63266             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
63267               (AMF.UML.Holders.Element (Value));
63268
63269         else
63270            raise Program_Error;
63271         end if;
63272      end UML_General_Ordering_Set;
63273
63274      ----------------------------
63275      -- UML_Generalization_Set --
63276      ----------------------------
63277
63278      procedure UML_Generalization_Set is
63279      begin
63280         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Generalization_General_A_Generalization then
63281            --  Generalization::general : Classifier
63282
63283            AMF.UML.Generalizations.UML_Generalization_Access
63284             (AMF.Internals.Helpers.To_Element (Self)).Set_General
63285               (AMF.UML.Classifiers.UML_Classifier_Access (AMF.Holders.Elements.Element (Value)));
63286
63287         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Generalization_Is_Substitutable then
63288            --  Generalization::isSubstitutable : Boolean
63289
63290            AMF.UML.Generalizations.UML_Generalization_Access
63291             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Substitutable
63292               (AMF.Holders.Element (Value));
63293
63294         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Generalization_Specific_Classifier_Generalization then
63295            --  Generalization::specific : Classifier
63296
63297            AMF.UML.Generalizations.UML_Generalization_Access
63298             (AMF.Internals.Helpers.To_Element (Self)).Set_Specific
63299               (AMF.UML.Classifiers.UML_Classifier_Access (AMF.Holders.Elements.Element (Value)));
63300
63301         else
63302            raise Program_Error;
63303         end if;
63304      end UML_Generalization_Set;
63305
63306      --------------------------------
63307      -- UML_Generalization_Set_Set --
63308      --------------------------------
63309
63310      procedure UML_Generalization_Set_Set is
63311      begin
63312         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Generalization_Set_Is_Covering then
63313            --  GeneralizationSet::isCovering : Boolean
63314
63315            AMF.UML.Generalization_Sets.UML_Generalization_Set_Access
63316             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Covering
63317               (League.Holders.Booleans.Element (Value));
63318
63319         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Generalization_Set_Is_Disjoint then
63320            --  GeneralizationSet::isDisjoint : Boolean
63321
63322            AMF.UML.Generalization_Sets.UML_Generalization_Set_Access
63323             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Disjoint
63324               (League.Holders.Booleans.Element (Value));
63325
63326         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
63327            --  NamedElement::name : String
63328
63329            AMF.UML.Generalization_Sets.UML_Generalization_Set_Access
63330             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
63331               (AMF.Holders.Element (Value));
63332
63333         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
63334            --  NamedElement::nameExpression : StringExpression
63335
63336            AMF.UML.Generalization_Sets.UML_Generalization_Set_Access
63337             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
63338               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
63339
63340         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
63341            --  ParameterableElement::owningTemplateParameter : TemplateParameter
63342
63343            AMF.UML.Generalization_Sets.UML_Generalization_Set_Access
63344             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
63345               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
63346
63347         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Generalization_Set_Powertype_Classifier_Powertype_Extent then
63348            --  GeneralizationSet::powertype : Classifier
63349
63350            AMF.UML.Generalization_Sets.UML_Generalization_Set_Access
63351             (AMF.Internals.Helpers.To_Element (Self)).Set_Powertype
63352               (AMF.UML.Classifiers.UML_Classifier_Access (AMF.Holders.Elements.Element (Value)));
63353
63354         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
63355            --  ParameterableElement::templateParameter : TemplateParameter
63356
63357            AMF.UML.Generalization_Sets.UML_Generalization_Set_Access
63358             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
63359               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
63360
63361         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
63362            --  NamedElement::visibility : VisibilityKind
63363
63364            AMF.UML.Generalization_Sets.UML_Generalization_Set_Access
63365             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
63366               (AMF.UML.Holders.Element (Value));
63367
63368         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
63369            --  PackageableElement::visibility : VisibilityKind
63370
63371            AMF.UML.Generalization_Sets.UML_Generalization_Set_Access
63372             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
63373               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
63374
63375         else
63376            raise Program_Error;
63377         end if;
63378      end UML_Generalization_Set_Set;
63379
63380      -------------------
63381      -- UML_Image_Set --
63382      -------------------
63383
63384      procedure UML_Image_Set is
63385      begin
63386         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Image_Content then
63387            --  Image::content : String
63388
63389            AMF.UML.Images.UML_Image_Access
63390             (AMF.Internals.Helpers.To_Element (Self)).Set_Content
63391               (AMF.Holders.Element (Value));
63392
63393         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Image_Format then
63394            --  Image::format : String
63395
63396            AMF.UML.Images.UML_Image_Access
63397             (AMF.Internals.Helpers.To_Element (Self)).Set_Format
63398               (AMF.Holders.Element (Value));
63399
63400         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Image_Location then
63401            --  Image::location : String
63402
63403            AMF.UML.Images.UML_Image_Access
63404             (AMF.Internals.Helpers.To_Element (Self)).Set_Location
63405               (AMF.Holders.Element (Value));
63406
63407         else
63408            raise Program_Error;
63409         end if;
63410      end UML_Image_Set;
63411
63412      ---------------------
63413      -- UML_Include_Set --
63414      ---------------------
63415
63416      procedure UML_Include_Set is
63417      begin
63418         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Include_Addition_A_Include then
63419            --  Include::addition : UseCase
63420
63421            AMF.UML.Includes.UML_Include_Access
63422             (AMF.Internals.Helpers.To_Element (Self)).Set_Addition
63423               (AMF.UML.Use_Cases.UML_Use_Case_Access (AMF.Holders.Elements.Element (Value)));
63424
63425         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Include_Including_Case_Use_Case_Include then
63426            --  Include::includingCase : UseCase
63427
63428            AMF.UML.Includes.UML_Include_Access
63429             (AMF.Internals.Helpers.To_Element (Self)).Set_Including_Case
63430               (AMF.UML.Use_Cases.UML_Use_Case_Access (AMF.Holders.Elements.Element (Value)));
63431
63432         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
63433            --  NamedElement::name : String
63434
63435            AMF.UML.Includes.UML_Include_Access
63436             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
63437               (AMF.Holders.Element (Value));
63438
63439         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
63440            --  NamedElement::nameExpression : StringExpression
63441
63442            AMF.UML.Includes.UML_Include_Access
63443             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
63444               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
63445
63446         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
63447            --  NamedElement::visibility : VisibilityKind
63448
63449            AMF.UML.Includes.UML_Include_Access
63450             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
63451               (AMF.UML.Holders.Element (Value));
63452
63453         else
63454            raise Program_Error;
63455         end if;
63456      end UML_Include_Set;
63457
63458      ------------------------------
63459      -- UML_Information_Flow_Set --
63460      ------------------------------
63461
63462      procedure UML_Information_Flow_Set is
63463      begin
63464         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
63465            --  NamedElement::name : String
63466
63467            AMF.UML.Information_Flows.UML_Information_Flow_Access
63468             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
63469               (AMF.Holders.Element (Value));
63470
63471         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
63472            --  NamedElement::nameExpression : StringExpression
63473
63474            AMF.UML.Information_Flows.UML_Information_Flow_Access
63475             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
63476               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
63477
63478         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
63479            --  ParameterableElement::owningTemplateParameter : TemplateParameter
63480
63481            AMF.UML.Information_Flows.UML_Information_Flow_Access
63482             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
63483               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
63484
63485         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
63486            --  ParameterableElement::templateParameter : TemplateParameter
63487
63488            AMF.UML.Information_Flows.UML_Information_Flow_Access
63489             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
63490               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
63491
63492         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
63493            --  NamedElement::visibility : VisibilityKind
63494
63495            AMF.UML.Information_Flows.UML_Information_Flow_Access
63496             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
63497               (AMF.UML.Holders.Element (Value));
63498
63499         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
63500            --  PackageableElement::visibility : VisibilityKind
63501
63502            AMF.UML.Information_Flows.UML_Information_Flow_Access
63503             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
63504               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
63505
63506         else
63507            raise Program_Error;
63508         end if;
63509      end UML_Information_Flow_Set;
63510
63511      ------------------------------
63512      -- UML_Information_Item_Set --
63513      ------------------------------
63514
63515      procedure UML_Information_Item_Set is
63516      begin
63517         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
63518            --  Classifier::isAbstract : Boolean
63519
63520            AMF.UML.Information_Items.UML_Information_Item_Access
63521             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
63522               (League.Holders.Booleans.Element (Value));
63523
63524         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
63525            --  Classifier::isFinalSpecialization : Boolean
63526
63527            AMF.UML.Information_Items.UML_Information_Item_Access
63528             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization
63529               (League.Holders.Booleans.Element (Value));
63530
63531         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
63532            --  RedefinableElement::isLeaf : Boolean
63533
63534            AMF.UML.Information_Items.UML_Information_Item_Access
63535             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
63536               (League.Holders.Booleans.Element (Value));
63537
63538         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
63539            --  NamedElement::name : String
63540
63541            AMF.UML.Information_Items.UML_Information_Item_Access
63542             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
63543               (AMF.Holders.Element (Value));
63544
63545         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
63546            --  NamedElement::nameExpression : StringExpression
63547
63548            AMF.UML.Information_Items.UML_Information_Item_Access
63549             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
63550               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
63551
63552         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
63553            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
63554
63555            AMF.UML.Information_Items.UML_Information_Item_Access
63556             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
63557               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
63558
63559         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
63560            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
63561
63562            AMF.UML.Information_Items.UML_Information_Item_Access
63563             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
63564               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
63565
63566         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
63567            --  ParameterableElement::owningTemplateParameter : TemplateParameter
63568
63569            AMF.UML.Information_Items.UML_Information_Item_Access
63570             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
63571               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
63572
63573         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
63574            --  Type::package : Package
63575
63576            AMF.UML.Information_Items.UML_Information_Item_Access
63577             (AMF.Internals.Helpers.To_Element (Self)).Set_Package
63578               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
63579
63580         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
63581            --  Classifier::representation : CollaborationUse
63582
63583            AMF.UML.Information_Items.UML_Information_Item_Access
63584             (AMF.Internals.Helpers.To_Element (Self)).Set_Representation
63585               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access (AMF.Holders.Elements.Element (Value)));
63586
63587         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
63588            --  Classifier::templateParameter : ClassifierTemplateParameter
63589
63590            AMF.UML.Information_Items.UML_Information_Item_Access
63591             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
63592               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
63593
63594         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
63595            --  ParameterableElement::templateParameter : TemplateParameter
63596
63597            AMF.UML.Information_Items.UML_Information_Item_Access
63598             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
63599               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
63600
63601         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
63602            --  NamedElement::visibility : VisibilityKind
63603
63604            AMF.UML.Information_Items.UML_Information_Item_Access
63605             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
63606               (AMF.UML.Holders.Element (Value));
63607
63608         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
63609            --  PackageableElement::visibility : VisibilityKind
63610
63611            AMF.UML.Information_Items.UML_Information_Item_Access
63612             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
63613               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
63614
63615         else
63616            raise Program_Error;
63617         end if;
63618      end UML_Information_Item_Set;
63619
63620      --------------------------
63621      -- UML_Initial_Node_Set --
63622      --------------------------
63623
63624      procedure UML_Initial_Node_Set is
63625      begin
63626         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
63627            --  ActivityNode::activity : Activity
63628
63629            AMF.UML.Initial_Nodes.UML_Initial_Node_Access
63630             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
63631               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
63632
63633         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
63634            --  ActivityNode::inStructuredNode : StructuredActivityNode
63635
63636            AMF.UML.Initial_Nodes.UML_Initial_Node_Access
63637             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
63638               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
63639
63640         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
63641            --  RedefinableElement::isLeaf : Boolean
63642
63643            AMF.UML.Initial_Nodes.UML_Initial_Node_Access
63644             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
63645               (League.Holders.Booleans.Element (Value));
63646
63647         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
63648            --  NamedElement::name : String
63649
63650            AMF.UML.Initial_Nodes.UML_Initial_Node_Access
63651             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
63652               (AMF.Holders.Element (Value));
63653
63654         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
63655            --  NamedElement::nameExpression : StringExpression
63656
63657            AMF.UML.Initial_Nodes.UML_Initial_Node_Access
63658             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
63659               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
63660
63661         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
63662            --  NamedElement::visibility : VisibilityKind
63663
63664            AMF.UML.Initial_Nodes.UML_Initial_Node_Access
63665             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
63666               (AMF.UML.Holders.Element (Value));
63667
63668         else
63669            raise Program_Error;
63670         end if;
63671      end UML_Initial_Node_Set;
63672
63673      -----------------------
63674      -- UML_Input_Pin_Set --
63675      -----------------------
63676
63677      procedure UML_Input_Pin_Set is
63678      begin
63679         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
63680            --  ActivityNode::activity : Activity
63681
63682            AMF.UML.Input_Pins.UML_Input_Pin_Access
63683             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
63684               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
63685
63686         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
63687            --  ActivityNode::inStructuredNode : StructuredActivityNode
63688
63689            AMF.UML.Input_Pins.UML_Input_Pin_Access
63690             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
63691               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
63692
63693         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Pin_Is_Control then
63694            --  Pin::isControl : Boolean
63695
63696            AMF.UML.Input_Pins.UML_Input_Pin_Access
63697             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Control
63698               (League.Holders.Booleans.Element (Value));
63699
63700         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Is_Control_Type then
63701            --  ObjectNode::isControlType : Boolean
63702
63703            AMF.UML.Input_Pins.UML_Input_Pin_Access
63704             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Control_Type
63705               (League.Holders.Booleans.Element (Value));
63706
63707         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
63708            --  RedefinableElement::isLeaf : Boolean
63709
63710            AMF.UML.Input_Pins.UML_Input_Pin_Access
63711             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
63712               (League.Holders.Booleans.Element (Value));
63713
63714         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Ordered then
63715            --  MultiplicityElement::isOrdered : Boolean
63716
63717            AMF.UML.Input_Pins.UML_Input_Pin_Access
63718             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Ordered
63719               (League.Holders.Booleans.Element (Value));
63720
63721         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Unique then
63722            --  MultiplicityElement::isUnique : Boolean
63723
63724            AMF.UML.Input_Pins.UML_Input_Pin_Access
63725             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Unique
63726               (League.Holders.Booleans.Element (Value));
63727
63728         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower_Value_A_Owning_Lower then
63729            --  MultiplicityElement::lowerValue : ValueSpecification
63730
63731            AMF.UML.Input_Pins.UML_Input_Pin_Access
63732             (AMF.Internals.Helpers.To_Element (Self)).Set_Lower_Value
63733               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
63734
63735         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
63736            --  NamedElement::name : String
63737
63738            AMF.UML.Input_Pins.UML_Input_Pin_Access
63739             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
63740               (AMF.Holders.Element (Value));
63741
63742         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
63743            --  NamedElement::nameExpression : StringExpression
63744
63745            AMF.UML.Input_Pins.UML_Input_Pin_Access
63746             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
63747               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
63748
63749         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Ordering then
63750            --  ObjectNode::ordering : ObjectNodeOrderingKind
63751
63752            AMF.UML.Input_Pins.UML_Input_Pin_Access
63753             (AMF.Internals.Helpers.To_Element (Self)).Set_Ordering
63754               (AMF.UML.Holders.Object_Node_Ordering_Kinds.Element (Value));
63755
63756         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Selection_A_Object_Node then
63757            --  ObjectNode::selection : Behavior
63758
63759            AMF.UML.Input_Pins.UML_Input_Pin_Access
63760             (AMF.Internals.Helpers.To_Element (Self)).Set_Selection
63761               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
63762
63763         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
63764            --  TypedElement::type : Type
63765
63766            AMF.UML.Input_Pins.UML_Input_Pin_Access
63767             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
63768               (AMF.UML.Types.UML_Type_Access (AMF.Holders.Elements.Element (Value)));
63769
63770         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Upper_Bound_A_Object_Node then
63771            --  ObjectNode::upperBound : ValueSpecification
63772
63773            AMF.UML.Input_Pins.UML_Input_Pin_Access
63774             (AMF.Internals.Helpers.To_Element (Self)).Set_Upper_Bound
63775               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
63776
63777         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper_Value_A_Owning_Upper then
63778            --  MultiplicityElement::upperValue : ValueSpecification
63779
63780            AMF.UML.Input_Pins.UML_Input_Pin_Access
63781             (AMF.Internals.Helpers.To_Element (Self)).Set_Upper_Value
63782               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
63783
63784         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
63785            --  NamedElement::visibility : VisibilityKind
63786
63787            AMF.UML.Input_Pins.UML_Input_Pin_Access
63788             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
63789               (AMF.UML.Holders.Element (Value));
63790
63791         else
63792            raise Program_Error;
63793         end if;
63794      end UML_Input_Pin_Set;
63795
63796      ------------------------------------
63797      -- UML_Instance_Specification_Set --
63798      ------------------------------------
63799
63800      procedure UML_Instance_Specification_Set is
63801      begin
63802         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
63803            --  NamedElement::name : String
63804
63805            AMF.UML.Instance_Specifications.UML_Instance_Specification_Access
63806             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
63807               (AMF.Holders.Element (Value));
63808
63809         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
63810            --  NamedElement::nameExpression : StringExpression
63811
63812            AMF.UML.Instance_Specifications.UML_Instance_Specification_Access
63813             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
63814               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
63815
63816         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
63817            --  ParameterableElement::owningTemplateParameter : TemplateParameter
63818
63819            AMF.UML.Instance_Specifications.UML_Instance_Specification_Access
63820             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
63821               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
63822
63823         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Instance_Specification_Specification_A_Owning_Instance_Spec then
63824            --  InstanceSpecification::specification : ValueSpecification
63825
63826            AMF.UML.Instance_Specifications.UML_Instance_Specification_Access
63827             (AMF.Internals.Helpers.To_Element (Self)).Set_Specification
63828               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
63829
63830         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
63831            --  ParameterableElement::templateParameter : TemplateParameter
63832
63833            AMF.UML.Instance_Specifications.UML_Instance_Specification_Access
63834             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
63835               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
63836
63837         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
63838            --  NamedElement::visibility : VisibilityKind
63839
63840            AMF.UML.Instance_Specifications.UML_Instance_Specification_Access
63841             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
63842               (AMF.UML.Holders.Element (Value));
63843
63844         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
63845            --  PackageableElement::visibility : VisibilityKind
63846
63847            AMF.UML.Instance_Specifications.UML_Instance_Specification_Access
63848             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
63849               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
63850
63851         else
63852            raise Program_Error;
63853         end if;
63854      end UML_Instance_Specification_Set;
63855
63856      ----------------------------
63857      -- UML_Instance_Value_Set --
63858      ----------------------------
63859
63860      procedure UML_Instance_Value_Set is
63861      begin
63862         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Instance_Value_Instance_A_Instance_Value then
63863            --  InstanceValue::instance : InstanceSpecification
63864
63865            AMF.UML.Instance_Values.UML_Instance_Value_Access
63866             (AMF.Internals.Helpers.To_Element (Self)).Set_Instance
63867               (AMF.UML.Instance_Specifications.UML_Instance_Specification_Access (AMF.Holders.Elements.Element (Value)));
63868
63869         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
63870            --  NamedElement::name : String
63871
63872            AMF.UML.Instance_Values.UML_Instance_Value_Access
63873             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
63874               (AMF.Holders.Element (Value));
63875
63876         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
63877            --  NamedElement::nameExpression : StringExpression
63878
63879            AMF.UML.Instance_Values.UML_Instance_Value_Access
63880             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
63881               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
63882
63883         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
63884            --  ParameterableElement::owningTemplateParameter : TemplateParameter
63885
63886            AMF.UML.Instance_Values.UML_Instance_Value_Access
63887             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
63888               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
63889
63890         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
63891            --  ParameterableElement::templateParameter : TemplateParameter
63892
63893            AMF.UML.Instance_Values.UML_Instance_Value_Access
63894             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
63895               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
63896
63897         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
63898            --  TypedElement::type : Type
63899
63900            AMF.UML.Instance_Values.UML_Instance_Value_Access
63901             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
63902               (AMF.UML.Types.UML_Type_Access (AMF.Holders.Elements.Element (Value)));
63903
63904         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
63905            --  NamedElement::visibility : VisibilityKind
63906
63907            AMF.UML.Instance_Values.UML_Instance_Value_Access
63908             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
63909               (AMF.UML.Holders.Element (Value));
63910
63911         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
63912            --  PackageableElement::visibility : VisibilityKind
63913
63914            AMF.UML.Instance_Values.UML_Instance_Value_Access
63915             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
63916               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
63917
63918         else
63919            raise Program_Error;
63920         end if;
63921      end UML_Instance_Value_Set;
63922
63923      -------------------------
63924      -- UML_Interaction_Set --
63925      -------------------------
63926
63927      procedure UML_Interaction_Set is
63928      begin
63929         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
63930            --  BehavioredClassifier::classifierBehavior : Behavior
63931
63932            AMF.UML.Interactions.UML_Interaction_Access
63933             (AMF.Internals.Helpers.To_Element (Self)).Set_Classifier_Behavior
63934               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
63935
63936         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Interaction_Interaction_Fragment then
63937            --  InteractionFragment::enclosingInteraction : Interaction
63938
63939            AMF.UML.Interactions.UML_Interaction_Access
63940             (AMF.Internals.Helpers.To_Element (Self)).Set_Enclosing_Interaction
63941               (AMF.UML.Interactions.UML_Interaction_Access (AMF.Holders.Elements.Element (Value)));
63942
63943         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Operand_Interaction_Operand_Fragment then
63944            --  InteractionFragment::enclosingOperand : InteractionOperand
63945
63946            AMF.UML.Interactions.UML_Interaction_Access
63947             (AMF.Internals.Helpers.To_Element (Self)).Set_Enclosing_Operand
63948               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access (AMF.Holders.Elements.Element (Value)));
63949
63950         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Abstract then
63951            --  Class::isAbstract : Boolean
63952
63953            AMF.UML.Interactions.UML_Interaction_Access
63954             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
63955               (League.Holders.Booleans.Element (Value));
63956
63957         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
63958            --  Classifier::isAbstract : Boolean
63959
63960            AMF.UML.Interactions.UML_Interaction_Access
63961             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
63962               (League.Holders.Booleans.Element (Value));
63963
63964         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Active then
63965            --  Class::isActive : Boolean
63966
63967            AMF.UML.Interactions.UML_Interaction_Access
63968             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Active
63969               (League.Holders.Booleans.Element (Value));
63970
63971         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
63972            --  Classifier::isFinalSpecialization : Boolean
63973
63974            AMF.UML.Interactions.UML_Interaction_Access
63975             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization
63976               (League.Holders.Booleans.Element (Value));
63977
63978         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
63979            --  RedefinableElement::isLeaf : Boolean
63980
63981            AMF.UML.Interactions.UML_Interaction_Access
63982             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
63983               (League.Holders.Booleans.Element (Value));
63984
63985         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Is_Reentrant then
63986            --  Behavior::isReentrant : Boolean
63987
63988            AMF.UML.Interactions.UML_Interaction_Access
63989             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Reentrant
63990               (League.Holders.Booleans.Element (Value));
63991
63992         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
63993            --  NamedElement::name : String
63994
63995            AMF.UML.Interactions.UML_Interaction_Access
63996             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
63997               (AMF.Holders.Element (Value));
63998
63999         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
64000            --  NamedElement::nameExpression : StringExpression
64001
64002            AMF.UML.Interactions.UML_Interaction_Access
64003             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
64004               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
64005
64006         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
64007            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
64008
64009            AMF.UML.Interactions.UML_Interaction_Access
64010             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
64011               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
64012
64013         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
64014            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
64015
64016            AMF.UML.Interactions.UML_Interaction_Access
64017             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
64018               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
64019
64020         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
64021            --  ParameterableElement::owningTemplateParameter : TemplateParameter
64022
64023            AMF.UML.Interactions.UML_Interaction_Access
64024             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
64025               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
64026
64027         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
64028            --  Type::package : Package
64029
64030            AMF.UML.Interactions.UML_Interaction_Access
64031             (AMF.Internals.Helpers.To_Element (Self)).Set_Package
64032               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
64033
64034         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
64035            --  Classifier::representation : CollaborationUse
64036
64037            AMF.UML.Interactions.UML_Interaction_Access
64038             (AMF.Internals.Helpers.To_Element (Self)).Set_Representation
64039               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access (AMF.Holders.Elements.Element (Value)));
64040
64041         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Specification_Behavioral_Feature_Method then
64042            --  Behavior::specification : BehavioralFeature
64043
64044            AMF.UML.Interactions.UML_Interaction_Access
64045             (AMF.Internals.Helpers.To_Element (Self)).Set_Specification
64046               (AMF.UML.Behavioral_Features.UML_Behavioral_Feature_Access (AMF.Holders.Elements.Element (Value)));
64047
64048         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
64049            --  Classifier::templateParameter : ClassifierTemplateParameter
64050
64051            AMF.UML.Interactions.UML_Interaction_Access
64052             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
64053               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
64054
64055         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
64056            --  ParameterableElement::templateParameter : TemplateParameter
64057
64058            AMF.UML.Interactions.UML_Interaction_Access
64059             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
64060               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
64061
64062         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
64063            --  NamedElement::visibility : VisibilityKind
64064
64065            AMF.UML.Interactions.UML_Interaction_Access
64066             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
64067               (AMF.UML.Holders.Element (Value));
64068
64069         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
64070            --  PackageableElement::visibility : VisibilityKind
64071
64072            AMF.UML.Interactions.UML_Interaction_Access
64073             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
64074               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
64075
64076         else
64077            raise Program_Error;
64078         end if;
64079      end UML_Interaction_Set;
64080
64081      ------------------------------------
64082      -- UML_Interaction_Constraint_Set --
64083      ------------------------------------
64084
64085      procedure UML_Interaction_Constraint_Set is
64086      begin
64087         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Constraint_Context_Namespace_Owned_Rule then
64088            --  Constraint::context : Namespace
64089
64090            AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access
64091             (AMF.Internals.Helpers.To_Element (Self)).Set_Context
64092               (AMF.UML.Namespaces.UML_Namespace_Access (AMF.Holders.Elements.Element (Value)));
64093
64094         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Constraint_Maxint_A_Interaction_Constraint then
64095            --  InteractionConstraint::maxint : ValueSpecification
64096
64097            AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access
64098             (AMF.Internals.Helpers.To_Element (Self)).Set_Maxint
64099               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
64100
64101         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Constraint_Minint_A_Interaction_Constraint then
64102            --  InteractionConstraint::minint : ValueSpecification
64103
64104            AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access
64105             (AMF.Internals.Helpers.To_Element (Self)).Set_Minint
64106               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
64107
64108         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
64109            --  NamedElement::name : String
64110
64111            AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access
64112             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
64113               (AMF.Holders.Element (Value));
64114
64115         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
64116            --  NamedElement::nameExpression : StringExpression
64117
64118            AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access
64119             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
64120               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
64121
64122         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
64123            --  ParameterableElement::owningTemplateParameter : TemplateParameter
64124
64125            AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access
64126             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
64127               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
64128
64129         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Constraint_Specification_A_Owning_Constraint then
64130            --  Constraint::specification : ValueSpecification
64131
64132            AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access
64133             (AMF.Internals.Helpers.To_Element (Self)).Set_Specification
64134               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
64135
64136         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
64137            --  ParameterableElement::templateParameter : TemplateParameter
64138
64139            AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access
64140             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
64141               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
64142
64143         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
64144            --  NamedElement::visibility : VisibilityKind
64145
64146            AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access
64147             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
64148               (AMF.UML.Holders.Element (Value));
64149
64150         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
64151            --  PackageableElement::visibility : VisibilityKind
64152
64153            AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access
64154             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
64155               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
64156
64157         else
64158            raise Program_Error;
64159         end if;
64160      end UML_Interaction_Constraint_Set;
64161
64162      ---------------------------------
64163      -- UML_Interaction_Operand_Set --
64164      ---------------------------------
64165
64166      procedure UML_Interaction_Operand_Set is
64167      begin
64168         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Interaction_Interaction_Fragment then
64169            --  InteractionFragment::enclosingInteraction : Interaction
64170
64171            AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access
64172             (AMF.Internals.Helpers.To_Element (Self)).Set_Enclosing_Interaction
64173               (AMF.UML.Interactions.UML_Interaction_Access (AMF.Holders.Elements.Element (Value)));
64174
64175         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Operand_Interaction_Operand_Fragment then
64176            --  InteractionFragment::enclosingOperand : InteractionOperand
64177
64178            AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access
64179             (AMF.Internals.Helpers.To_Element (Self)).Set_Enclosing_Operand
64180               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access (AMF.Holders.Elements.Element (Value)));
64181
64182         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Operand_Guard_A_Interaction_Operand then
64183            --  InteractionOperand::guard : InteractionConstraint
64184
64185            AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access
64186             (AMF.Internals.Helpers.To_Element (Self)).Set_Guard
64187               (AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access (AMF.Holders.Elements.Element (Value)));
64188
64189         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
64190            --  NamedElement::name : String
64191
64192            AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access
64193             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
64194               (AMF.Holders.Element (Value));
64195
64196         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
64197            --  NamedElement::nameExpression : StringExpression
64198
64199            AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access
64200             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
64201               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
64202
64203         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
64204            --  NamedElement::visibility : VisibilityKind
64205
64206            AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access
64207             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
64208               (AMF.UML.Holders.Element (Value));
64209
64210         else
64211            raise Program_Error;
64212         end if;
64213      end UML_Interaction_Operand_Set;
64214
64215      -----------------------------
64216      -- UML_Interaction_Use_Set --
64217      -----------------------------
64218
64219      procedure UML_Interaction_Use_Set is
64220      begin
64221         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Interaction_Interaction_Fragment then
64222            --  InteractionFragment::enclosingInteraction : Interaction
64223
64224            AMF.UML.Interaction_Uses.UML_Interaction_Use_Access
64225             (AMF.Internals.Helpers.To_Element (Self)).Set_Enclosing_Interaction
64226               (AMF.UML.Interactions.UML_Interaction_Access (AMF.Holders.Elements.Element (Value)));
64227
64228         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Operand_Interaction_Operand_Fragment then
64229            --  InteractionFragment::enclosingOperand : InteractionOperand
64230
64231            AMF.UML.Interaction_Uses.UML_Interaction_Use_Access
64232             (AMF.Internals.Helpers.To_Element (Self)).Set_Enclosing_Operand
64233               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access (AMF.Holders.Elements.Element (Value)));
64234
64235         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
64236            --  NamedElement::name : String
64237
64238            AMF.UML.Interaction_Uses.UML_Interaction_Use_Access
64239             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
64240               (AMF.Holders.Element (Value));
64241
64242         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
64243            --  NamedElement::nameExpression : StringExpression
64244
64245            AMF.UML.Interaction_Uses.UML_Interaction_Use_Access
64246             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
64247               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
64248
64249         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Use_Refers_To_A_Interaction_Use then
64250            --  InteractionUse::refersTo : Interaction
64251
64252            AMF.UML.Interaction_Uses.UML_Interaction_Use_Access
64253             (AMF.Internals.Helpers.To_Element (Self)).Set_Refers_To
64254               (AMF.UML.Interactions.UML_Interaction_Access (AMF.Holders.Elements.Element (Value)));
64255
64256         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Use_Return_Value_A_Interaction_Use then
64257            --  InteractionUse::returnValue : ValueSpecification
64258
64259            AMF.UML.Interaction_Uses.UML_Interaction_Use_Access
64260             (AMF.Internals.Helpers.To_Element (Self)).Set_Return_Value
64261               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
64262
64263         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Use_Return_Value_Recipient_A_Interaction_Use then
64264            --  InteractionUse::returnValueRecipient : Property
64265
64266            AMF.UML.Interaction_Uses.UML_Interaction_Use_Access
64267             (AMF.Internals.Helpers.To_Element (Self)).Set_Return_Value_Recipient
64268               (AMF.UML.Properties.UML_Property_Access (AMF.Holders.Elements.Element (Value)));
64269
64270         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
64271            --  NamedElement::visibility : VisibilityKind
64272
64273            AMF.UML.Interaction_Uses.UML_Interaction_Use_Access
64274             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
64275               (AMF.UML.Holders.Element (Value));
64276
64277         else
64278            raise Program_Error;
64279         end if;
64280      end UML_Interaction_Use_Set;
64281
64282      -----------------------
64283      -- UML_Interface_Set --
64284      -----------------------
64285
64286      procedure UML_Interface_Set is
64287      begin
64288         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
64289            --  Classifier::isAbstract : Boolean
64290
64291            AMF.UML.Interfaces.UML_Interface_Access
64292             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
64293               (League.Holders.Booleans.Element (Value));
64294
64295         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
64296            --  Classifier::isFinalSpecialization : Boolean
64297
64298            AMF.UML.Interfaces.UML_Interface_Access
64299             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization
64300               (League.Holders.Booleans.Element (Value));
64301
64302         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
64303            --  RedefinableElement::isLeaf : Boolean
64304
64305            AMF.UML.Interfaces.UML_Interface_Access
64306             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
64307               (League.Holders.Booleans.Element (Value));
64308
64309         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
64310            --  NamedElement::name : String
64311
64312            AMF.UML.Interfaces.UML_Interface_Access
64313             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
64314               (AMF.Holders.Element (Value));
64315
64316         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
64317            --  NamedElement::nameExpression : StringExpression
64318
64319            AMF.UML.Interfaces.UML_Interface_Access
64320             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
64321               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
64322
64323         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
64324            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
64325
64326            AMF.UML.Interfaces.UML_Interface_Access
64327             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
64328               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
64329
64330         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
64331            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
64332
64333            AMF.UML.Interfaces.UML_Interface_Access
64334             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
64335               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
64336
64337         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
64338            --  ParameterableElement::owningTemplateParameter : TemplateParameter
64339
64340            AMF.UML.Interfaces.UML_Interface_Access
64341             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
64342               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
64343
64344         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
64345            --  Type::package : Package
64346
64347            AMF.UML.Interfaces.UML_Interface_Access
64348             (AMF.Internals.Helpers.To_Element (Self)).Set_Package
64349               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
64350
64351         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interface_Protocol_A_Interface then
64352            --  Interface::protocol : ProtocolStateMachine
64353
64354            AMF.UML.Interfaces.UML_Interface_Access
64355             (AMF.Internals.Helpers.To_Element (Self)).Set_Protocol
64356               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access (AMF.Holders.Elements.Element (Value)));
64357
64358         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
64359            --  Classifier::representation : CollaborationUse
64360
64361            AMF.UML.Interfaces.UML_Interface_Access
64362             (AMF.Internals.Helpers.To_Element (Self)).Set_Representation
64363               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access (AMF.Holders.Elements.Element (Value)));
64364
64365         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
64366            --  Classifier::templateParameter : ClassifierTemplateParameter
64367
64368            AMF.UML.Interfaces.UML_Interface_Access
64369             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
64370               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
64371
64372         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
64373            --  ParameterableElement::templateParameter : TemplateParameter
64374
64375            AMF.UML.Interfaces.UML_Interface_Access
64376             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
64377               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
64378
64379         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
64380            --  NamedElement::visibility : VisibilityKind
64381
64382            AMF.UML.Interfaces.UML_Interface_Access
64383             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
64384               (AMF.UML.Holders.Element (Value));
64385
64386         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
64387            --  PackageableElement::visibility : VisibilityKind
64388
64389            AMF.UML.Interfaces.UML_Interface_Access
64390             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
64391               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
64392
64393         else
64394            raise Program_Error;
64395         end if;
64396      end UML_Interface_Set;
64397
64398      -----------------------------------
64399      -- UML_Interface_Realization_Set --
64400      -----------------------------------
64401
64402      procedure UML_Interface_Realization_Set is
64403      begin
64404         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interface_Realization_Contract_A_Interface_Realization then
64405            --  InterfaceRealization::contract : Interface
64406
64407            AMF.UML.Interface_Realizations.UML_Interface_Realization_Access
64408             (AMF.Internals.Helpers.To_Element (Self)).Set_Contract
64409               (AMF.UML.Interfaces.UML_Interface_Access (AMF.Holders.Elements.Element (Value)));
64410
64411         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interface_Realization_Implementing_Classifier_Behaviored_Classifier_Interface_Realization then
64412            --  InterfaceRealization::implementingClassifier : BehavioredClassifier
64413
64414            AMF.UML.Interface_Realizations.UML_Interface_Realization_Access
64415             (AMF.Internals.Helpers.To_Element (Self)).Set_Implementing_Classifier
64416               (AMF.UML.Behaviored_Classifiers.UML_Behaviored_Classifier_Access (AMF.Holders.Elements.Element (Value)));
64417
64418         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Abstraction_Mapping_A_Abstraction then
64419            --  Abstraction::mapping : OpaqueExpression
64420
64421            AMF.UML.Interface_Realizations.UML_Interface_Realization_Access
64422             (AMF.Internals.Helpers.To_Element (Self)).Set_Mapping
64423               (AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access (AMF.Holders.Elements.Element (Value)));
64424
64425         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
64426            --  NamedElement::name : String
64427
64428            AMF.UML.Interface_Realizations.UML_Interface_Realization_Access
64429             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
64430               (AMF.Holders.Element (Value));
64431
64432         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
64433            --  NamedElement::nameExpression : StringExpression
64434
64435            AMF.UML.Interface_Realizations.UML_Interface_Realization_Access
64436             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
64437               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
64438
64439         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
64440            --  ParameterableElement::owningTemplateParameter : TemplateParameter
64441
64442            AMF.UML.Interface_Realizations.UML_Interface_Realization_Access
64443             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
64444               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
64445
64446         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
64447            --  ParameterableElement::templateParameter : TemplateParameter
64448
64449            AMF.UML.Interface_Realizations.UML_Interface_Realization_Access
64450             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
64451               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
64452
64453         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
64454            --  NamedElement::visibility : VisibilityKind
64455
64456            AMF.UML.Interface_Realizations.UML_Interface_Realization_Access
64457             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
64458               (AMF.UML.Holders.Element (Value));
64459
64460         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
64461            --  PackageableElement::visibility : VisibilityKind
64462
64463            AMF.UML.Interface_Realizations.UML_Interface_Realization_Access
64464             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
64465               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
64466
64467         else
64468            raise Program_Error;
64469         end if;
64470      end UML_Interface_Realization_Set;
64471
64472      -------------------------------------------
64473      -- UML_Interruptible_Activity_Region_Set --
64474      -------------------------------------------
64475
64476      procedure UML_Interruptible_Activity_Region_Set is
64477      begin
64478         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_In_Activity_Activity_Group then
64479            --  ActivityGroup::inActivity : Activity
64480
64481            AMF.UML.Interruptible_Activity_Regions.UML_Interruptible_Activity_Region_Access
64482             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Activity
64483               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
64484
64485         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
64486            --  NamedElement::name : String
64487
64488            AMF.UML.Interruptible_Activity_Regions.UML_Interruptible_Activity_Region_Access
64489             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
64490               (AMF.Holders.Element (Value));
64491
64492         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
64493            --  NamedElement::nameExpression : StringExpression
64494
64495            AMF.UML.Interruptible_Activity_Regions.UML_Interruptible_Activity_Region_Access
64496             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
64497               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
64498
64499         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
64500            --  NamedElement::visibility : VisibilityKind
64501
64502            AMF.UML.Interruptible_Activity_Regions.UML_Interruptible_Activity_Region_Access
64503             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
64504               (AMF.UML.Holders.Element (Value));
64505
64506         else
64507            raise Program_Error;
64508         end if;
64509      end UML_Interruptible_Activity_Region_Set;
64510
64511      ----------------------
64512      -- UML_Interval_Set --
64513      ----------------------
64514
64515      procedure UML_Interval_Set is
64516      begin
64517         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interval_Max_A_Interval then
64518            --  Interval::max : ValueSpecification
64519
64520            AMF.UML.Intervals.UML_Interval_Access
64521             (AMF.Internals.Helpers.To_Element (Self)).Set_Max
64522               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
64523
64524         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interval_Min_A_Interval then
64525            --  Interval::min : ValueSpecification
64526
64527            AMF.UML.Intervals.UML_Interval_Access
64528             (AMF.Internals.Helpers.To_Element (Self)).Set_Min
64529               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
64530
64531         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
64532            --  NamedElement::name : String
64533
64534            AMF.UML.Intervals.UML_Interval_Access
64535             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
64536               (AMF.Holders.Element (Value));
64537
64538         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
64539            --  NamedElement::nameExpression : StringExpression
64540
64541            AMF.UML.Intervals.UML_Interval_Access
64542             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
64543               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
64544
64545         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
64546            --  ParameterableElement::owningTemplateParameter : TemplateParameter
64547
64548            AMF.UML.Intervals.UML_Interval_Access
64549             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
64550               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
64551
64552         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
64553            --  ParameterableElement::templateParameter : TemplateParameter
64554
64555            AMF.UML.Intervals.UML_Interval_Access
64556             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
64557               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
64558
64559         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
64560            --  TypedElement::type : Type
64561
64562            AMF.UML.Intervals.UML_Interval_Access
64563             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
64564               (AMF.UML.Types.UML_Type_Access (AMF.Holders.Elements.Element (Value)));
64565
64566         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
64567            --  NamedElement::visibility : VisibilityKind
64568
64569            AMF.UML.Intervals.UML_Interval_Access
64570             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
64571               (AMF.UML.Holders.Element (Value));
64572
64573         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
64574            --  PackageableElement::visibility : VisibilityKind
64575
64576            AMF.UML.Intervals.UML_Interval_Access
64577             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
64578               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
64579
64580         else
64581            raise Program_Error;
64582         end if;
64583      end UML_Interval_Set;
64584
64585      ---------------------------------
64586      -- UML_Interval_Constraint_Set --
64587      ---------------------------------
64588
64589      procedure UML_Interval_Constraint_Set is
64590      begin
64591         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Constraint_Context_Namespace_Owned_Rule then
64592            --  Constraint::context : Namespace
64593
64594            AMF.UML.Interval_Constraints.UML_Interval_Constraint_Access
64595             (AMF.Internals.Helpers.To_Element (Self)).Set_Context
64596               (AMF.UML.Namespaces.UML_Namespace_Access (AMF.Holders.Elements.Element (Value)));
64597
64598         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
64599            --  NamedElement::name : String
64600
64601            AMF.UML.Interval_Constraints.UML_Interval_Constraint_Access
64602             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
64603               (AMF.Holders.Element (Value));
64604
64605         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
64606            --  NamedElement::nameExpression : StringExpression
64607
64608            AMF.UML.Interval_Constraints.UML_Interval_Constraint_Access
64609             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
64610               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
64611
64612         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
64613            --  ParameterableElement::owningTemplateParameter : TemplateParameter
64614
64615            AMF.UML.Interval_Constraints.UML_Interval_Constraint_Access
64616             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
64617               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
64618
64619         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Constraint_Specification_A_Owning_Constraint then
64620            --  Constraint::specification : ValueSpecification
64621
64622            AMF.UML.Interval_Constraints.UML_Interval_Constraint_Access
64623             (AMF.Internals.Helpers.To_Element (Self)).Set_Specification
64624               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
64625
64626         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interval_Constraint_Specification_A_Interval_Constraint then
64627            --  IntervalConstraint::specification : Interval
64628
64629            AMF.UML.Interval_Constraints.UML_Interval_Constraint_Access
64630             (AMF.Internals.Helpers.To_Element (Self)).Set_Specification
64631               (AMF.UML.Intervals.UML_Interval_Access (AMF.Holders.Elements.Element (Value)));
64632
64633         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
64634            --  ParameterableElement::templateParameter : TemplateParameter
64635
64636            AMF.UML.Interval_Constraints.UML_Interval_Constraint_Access
64637             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
64638               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
64639
64640         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
64641            --  NamedElement::visibility : VisibilityKind
64642
64643            AMF.UML.Interval_Constraints.UML_Interval_Constraint_Access
64644             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
64645               (AMF.UML.Holders.Element (Value));
64646
64647         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
64648            --  PackageableElement::visibility : VisibilityKind
64649
64650            AMF.UML.Interval_Constraints.UML_Interval_Constraint_Access
64651             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
64652               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
64653
64654         else
64655            raise Program_Error;
64656         end if;
64657      end UML_Interval_Constraint_Set;
64658
64659      -----------------------
64660      -- UML_Join_Node_Set --
64661      -----------------------
64662
64663      procedure UML_Join_Node_Set is
64664      begin
64665         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
64666            --  ActivityNode::activity : Activity
64667
64668            AMF.UML.Join_Nodes.UML_Join_Node_Access
64669             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
64670               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
64671
64672         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
64673            --  ActivityNode::inStructuredNode : StructuredActivityNode
64674
64675            AMF.UML.Join_Nodes.UML_Join_Node_Access
64676             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
64677               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
64678
64679         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Join_Node_Is_Combine_Duplicate then
64680            --  JoinNode::isCombineDuplicate : Boolean
64681
64682            AMF.UML.Join_Nodes.UML_Join_Node_Access
64683             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Combine_Duplicate
64684               (League.Holders.Booleans.Element (Value));
64685
64686         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
64687            --  RedefinableElement::isLeaf : Boolean
64688
64689            AMF.UML.Join_Nodes.UML_Join_Node_Access
64690             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
64691               (League.Holders.Booleans.Element (Value));
64692
64693         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Join_Node_Join_Spec_A_Join_Node then
64694            --  JoinNode::joinSpec : ValueSpecification
64695
64696            AMF.UML.Join_Nodes.UML_Join_Node_Access
64697             (AMF.Internals.Helpers.To_Element (Self)).Set_Join_Spec
64698               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
64699
64700         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
64701            --  NamedElement::name : String
64702
64703            AMF.UML.Join_Nodes.UML_Join_Node_Access
64704             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
64705               (AMF.Holders.Element (Value));
64706
64707         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
64708            --  NamedElement::nameExpression : StringExpression
64709
64710            AMF.UML.Join_Nodes.UML_Join_Node_Access
64711             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
64712               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
64713
64714         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
64715            --  NamedElement::visibility : VisibilityKind
64716
64717            AMF.UML.Join_Nodes.UML_Join_Node_Access
64718             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
64719               (AMF.UML.Holders.Element (Value));
64720
64721         else
64722            raise Program_Error;
64723         end if;
64724      end UML_Join_Node_Set;
64725
64726      ----------------------
64727      -- UML_Lifeline_Set --
64728      ----------------------
64729
64730      procedure UML_Lifeline_Set is
64731      begin
64732         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Lifeline_Decomposed_As_A_Lifeline then
64733            --  Lifeline::decomposedAs : PartDecomposition
64734
64735            AMF.UML.Lifelines.UML_Lifeline_Access
64736             (AMF.Internals.Helpers.To_Element (Self)).Set_Decomposed_As
64737               (AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access (AMF.Holders.Elements.Element (Value)));
64738
64739         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Lifeline_Interaction_Interaction_Lifeline then
64740            --  Lifeline::interaction : Interaction
64741
64742            AMF.UML.Lifelines.UML_Lifeline_Access
64743             (AMF.Internals.Helpers.To_Element (Self)).Set_Interaction
64744               (AMF.UML.Interactions.UML_Interaction_Access (AMF.Holders.Elements.Element (Value)));
64745
64746         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
64747            --  NamedElement::name : String
64748
64749            AMF.UML.Lifelines.UML_Lifeline_Access
64750             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
64751               (AMF.Holders.Element (Value));
64752
64753         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
64754            --  NamedElement::nameExpression : StringExpression
64755
64756            AMF.UML.Lifelines.UML_Lifeline_Access
64757             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
64758               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
64759
64760         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Lifeline_Represents_A_Lifeline then
64761            --  Lifeline::represents : ConnectableElement
64762
64763            AMF.UML.Lifelines.UML_Lifeline_Access
64764             (AMF.Internals.Helpers.To_Element (Self)).Set_Represents
64765               (AMF.UML.Connectable_Elements.UML_Connectable_Element_Access (AMF.Holders.Elements.Element (Value)));
64766
64767         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Lifeline_Selector_A_Lifeline then
64768            --  Lifeline::selector : ValueSpecification
64769
64770            AMF.UML.Lifelines.UML_Lifeline_Access
64771             (AMF.Internals.Helpers.To_Element (Self)).Set_Selector
64772               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
64773
64774         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
64775            --  NamedElement::visibility : VisibilityKind
64776
64777            AMF.UML.Lifelines.UML_Lifeline_Access
64778             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
64779               (AMF.UML.Holders.Element (Value));
64780
64781         else
64782            raise Program_Error;
64783         end if;
64784      end UML_Lifeline_Set;
64785
64786      ------------------------------------
64787      -- UML_Link_End_Creation_Data_Set --
64788      ------------------------------------
64789
64790      procedure UML_Link_End_Creation_Data_Set is
64791      begin
64792         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_End_Data_End_A_Link_End_Data then
64793            --  LinkEndData::end : Property
64794
64795            AMF.UML.Link_End_Creation_Datas.UML_Link_End_Creation_Data_Access
64796             (AMF.Internals.Helpers.To_Element (Self)).Set_End
64797               (AMF.UML.Properties.UML_Property_Access (AMF.Holders.Elements.Element (Value)));
64798
64799         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_End_Creation_Data_Insert_At_A_Link_End_Creation_Data then
64800            --  LinkEndCreationData::insertAt : InputPin
64801
64802            AMF.UML.Link_End_Creation_Datas.UML_Link_End_Creation_Data_Access
64803             (AMF.Internals.Helpers.To_Element (Self)).Set_Insert_At
64804               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
64805
64806         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_End_Creation_Data_Is_Replace_All then
64807            --  LinkEndCreationData::isReplaceAll : Boolean
64808
64809            AMF.UML.Link_End_Creation_Datas.UML_Link_End_Creation_Data_Access
64810             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Replace_All
64811               (League.Holders.Booleans.Element (Value));
64812
64813         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_End_Data_Value_A_Link_End_Data then
64814            --  LinkEndData::value : InputPin
64815
64816            AMF.UML.Link_End_Creation_Datas.UML_Link_End_Creation_Data_Access
64817             (AMF.Internals.Helpers.To_Element (Self)).Set_Value
64818               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
64819
64820         else
64821            raise Program_Error;
64822         end if;
64823      end UML_Link_End_Creation_Data_Set;
64824
64825      ---------------------------
64826      -- UML_Link_End_Data_Set --
64827      ---------------------------
64828
64829      procedure UML_Link_End_Data_Set is
64830      begin
64831         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_End_Data_End_A_Link_End_Data then
64832            --  LinkEndData::end : Property
64833
64834            AMF.UML.Link_End_Datas.UML_Link_End_Data_Access
64835             (AMF.Internals.Helpers.To_Element (Self)).Set_End
64836               (AMF.UML.Properties.UML_Property_Access (AMF.Holders.Elements.Element (Value)));
64837
64838         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_End_Data_Value_A_Link_End_Data then
64839            --  LinkEndData::value : InputPin
64840
64841            AMF.UML.Link_End_Datas.UML_Link_End_Data_Access
64842             (AMF.Internals.Helpers.To_Element (Self)).Set_Value
64843               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
64844
64845         else
64846            raise Program_Error;
64847         end if;
64848      end UML_Link_End_Data_Set;
64849
64850      ---------------------------------------
64851      -- UML_Link_End_Destruction_Data_Set --
64852      ---------------------------------------
64853
64854      procedure UML_Link_End_Destruction_Data_Set is
64855      begin
64856         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_End_Destruction_Data_Destroy_At_A_Link_End_Destruction_Data then
64857            --  LinkEndDestructionData::destroyAt : InputPin
64858
64859            AMF.UML.Link_End_Destruction_Datas.UML_Link_End_Destruction_Data_Access
64860             (AMF.Internals.Helpers.To_Element (Self)).Set_Destroy_At
64861               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
64862
64863         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_End_Data_End_A_Link_End_Data then
64864            --  LinkEndData::end : Property
64865
64866            AMF.UML.Link_End_Destruction_Datas.UML_Link_End_Destruction_Data_Access
64867             (AMF.Internals.Helpers.To_Element (Self)).Set_End
64868               (AMF.UML.Properties.UML_Property_Access (AMF.Holders.Elements.Element (Value)));
64869
64870         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_End_Destruction_Data_Is_Destroy_Duplicates then
64871            --  LinkEndDestructionData::isDestroyDuplicates : Boolean
64872
64873            AMF.UML.Link_End_Destruction_Datas.UML_Link_End_Destruction_Data_Access
64874             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Destroy_Duplicates
64875               (League.Holders.Booleans.Element (Value));
64876
64877         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_End_Data_Value_A_Link_End_Data then
64878            --  LinkEndData::value : InputPin
64879
64880            AMF.UML.Link_End_Destruction_Datas.UML_Link_End_Destruction_Data_Access
64881             (AMF.Internals.Helpers.To_Element (Self)).Set_Value
64882               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
64883
64884         else
64885            raise Program_Error;
64886         end if;
64887      end UML_Link_End_Destruction_Data_Set;
64888
64889      -----------------------------
64890      -- UML_Literal_Boolean_Set --
64891      -----------------------------
64892
64893      procedure UML_Literal_Boolean_Set is
64894      begin
64895         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
64896            --  NamedElement::name : String
64897
64898            AMF.UML.Literal_Booleans.UML_Literal_Boolean_Access
64899             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
64900               (AMF.Holders.Element (Value));
64901
64902         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
64903            --  NamedElement::nameExpression : StringExpression
64904
64905            AMF.UML.Literal_Booleans.UML_Literal_Boolean_Access
64906             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
64907               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
64908
64909         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
64910            --  ParameterableElement::owningTemplateParameter : TemplateParameter
64911
64912            AMF.UML.Literal_Booleans.UML_Literal_Boolean_Access
64913             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
64914               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
64915
64916         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
64917            --  ParameterableElement::templateParameter : TemplateParameter
64918
64919            AMF.UML.Literal_Booleans.UML_Literal_Boolean_Access
64920             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
64921               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
64922
64923         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
64924            --  TypedElement::type : Type
64925
64926            AMF.UML.Literal_Booleans.UML_Literal_Boolean_Access
64927             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
64928               (AMF.UML.Types.UML_Type_Access (AMF.Holders.Elements.Element (Value)));
64929
64930         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Literal_Boolean_Value then
64931            --  LiteralBoolean::value : Boolean
64932
64933            AMF.UML.Literal_Booleans.UML_Literal_Boolean_Access
64934             (AMF.Internals.Helpers.To_Element (Self)).Set_Value
64935               (League.Holders.Booleans.Element (Value));
64936
64937         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
64938            --  NamedElement::visibility : VisibilityKind
64939
64940            AMF.UML.Literal_Booleans.UML_Literal_Boolean_Access
64941             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
64942               (AMF.UML.Holders.Element (Value));
64943
64944         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
64945            --  PackageableElement::visibility : VisibilityKind
64946
64947            AMF.UML.Literal_Booleans.UML_Literal_Boolean_Access
64948             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
64949               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
64950
64951         else
64952            raise Program_Error;
64953         end if;
64954      end UML_Literal_Boolean_Set;
64955
64956      -----------------------------
64957      -- UML_Literal_Integer_Set --
64958      -----------------------------
64959
64960      procedure UML_Literal_Integer_Set is
64961      begin
64962         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
64963            --  NamedElement::name : String
64964
64965            AMF.UML.Literal_Integers.UML_Literal_Integer_Access
64966             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
64967               (AMF.Holders.Element (Value));
64968
64969         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
64970            --  NamedElement::nameExpression : StringExpression
64971
64972            AMF.UML.Literal_Integers.UML_Literal_Integer_Access
64973             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
64974               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
64975
64976         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
64977            --  ParameterableElement::owningTemplateParameter : TemplateParameter
64978
64979            AMF.UML.Literal_Integers.UML_Literal_Integer_Access
64980             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
64981               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
64982
64983         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
64984            --  ParameterableElement::templateParameter : TemplateParameter
64985
64986            AMF.UML.Literal_Integers.UML_Literal_Integer_Access
64987             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
64988               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
64989
64990         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
64991            --  TypedElement::type : Type
64992
64993            AMF.UML.Literal_Integers.UML_Literal_Integer_Access
64994             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
64995               (AMF.UML.Types.UML_Type_Access (AMF.Holders.Elements.Element (Value)));
64996
64997         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Literal_Integer_Value then
64998            --  LiteralInteger::value : Integer
64999
65000            AMF.UML.Literal_Integers.UML_Literal_Integer_Access
65001             (AMF.Internals.Helpers.To_Element (Self)).Set_Value
65002               (League.Holders.Integers.Element (Value));
65003
65004         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
65005            --  NamedElement::visibility : VisibilityKind
65006
65007            AMF.UML.Literal_Integers.UML_Literal_Integer_Access
65008             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
65009               (AMF.UML.Holders.Element (Value));
65010
65011         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
65012            --  PackageableElement::visibility : VisibilityKind
65013
65014            AMF.UML.Literal_Integers.UML_Literal_Integer_Access
65015             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
65016               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
65017
65018         else
65019            raise Program_Error;
65020         end if;
65021      end UML_Literal_Integer_Set;
65022
65023      --------------------------
65024      -- UML_Literal_Null_Set --
65025      --------------------------
65026
65027      procedure UML_Literal_Null_Set is
65028      begin
65029         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
65030            --  NamedElement::name : String
65031
65032            AMF.UML.Literal_Nulls.UML_Literal_Null_Access
65033             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
65034               (AMF.Holders.Element (Value));
65035
65036         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
65037            --  NamedElement::nameExpression : StringExpression
65038
65039            AMF.UML.Literal_Nulls.UML_Literal_Null_Access
65040             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
65041               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
65042
65043         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
65044            --  ParameterableElement::owningTemplateParameter : TemplateParameter
65045
65046            AMF.UML.Literal_Nulls.UML_Literal_Null_Access
65047             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
65048               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
65049
65050         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
65051            --  ParameterableElement::templateParameter : TemplateParameter
65052
65053            AMF.UML.Literal_Nulls.UML_Literal_Null_Access
65054             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
65055               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
65056
65057         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
65058            --  TypedElement::type : Type
65059
65060            AMF.UML.Literal_Nulls.UML_Literal_Null_Access
65061             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
65062               (AMF.UML.Types.UML_Type_Access (AMF.Holders.Elements.Element (Value)));
65063
65064         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
65065            --  NamedElement::visibility : VisibilityKind
65066
65067            AMF.UML.Literal_Nulls.UML_Literal_Null_Access
65068             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
65069               (AMF.UML.Holders.Element (Value));
65070
65071         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
65072            --  PackageableElement::visibility : VisibilityKind
65073
65074            AMF.UML.Literal_Nulls.UML_Literal_Null_Access
65075             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
65076               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
65077
65078         else
65079            raise Program_Error;
65080         end if;
65081      end UML_Literal_Null_Set;
65082
65083      --------------------------
65084      -- UML_Literal_Real_Set --
65085      --------------------------
65086
65087      procedure UML_Literal_Real_Set is
65088      begin
65089         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
65090            --  NamedElement::name : String
65091
65092            AMF.UML.Literal_Reals.UML_Literal_Real_Access
65093             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
65094               (AMF.Holders.Element (Value));
65095
65096         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
65097            --  NamedElement::nameExpression : StringExpression
65098
65099            AMF.UML.Literal_Reals.UML_Literal_Real_Access
65100             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
65101               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
65102
65103         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
65104            --  ParameterableElement::owningTemplateParameter : TemplateParameter
65105
65106            AMF.UML.Literal_Reals.UML_Literal_Real_Access
65107             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
65108               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
65109
65110         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
65111            --  ParameterableElement::templateParameter : TemplateParameter
65112
65113            AMF.UML.Literal_Reals.UML_Literal_Real_Access
65114             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
65115               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
65116
65117         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
65118            --  TypedElement::type : Type
65119
65120            AMF.UML.Literal_Reals.UML_Literal_Real_Access
65121             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
65122               (AMF.UML.Types.UML_Type_Access (AMF.Holders.Elements.Element (Value)));
65123
65124         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Literal_Real_Value then
65125            --  LiteralReal::value : Real
65126
65127            AMF.UML.Literal_Reals.UML_Literal_Real_Access
65128             (AMF.Internals.Helpers.To_Element (Self)).Set_Value
65129               (AMF.Holders.Reals.Element (Value));
65130
65131         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
65132            --  NamedElement::visibility : VisibilityKind
65133
65134            AMF.UML.Literal_Reals.UML_Literal_Real_Access
65135             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
65136               (AMF.UML.Holders.Element (Value));
65137
65138         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
65139            --  PackageableElement::visibility : VisibilityKind
65140
65141            AMF.UML.Literal_Reals.UML_Literal_Real_Access
65142             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
65143               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
65144
65145         else
65146            raise Program_Error;
65147         end if;
65148      end UML_Literal_Real_Set;
65149
65150      ----------------------------
65151      -- UML_Literal_String_Set --
65152      ----------------------------
65153
65154      procedure UML_Literal_String_Set is
65155      begin
65156         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
65157            --  NamedElement::name : String
65158
65159            AMF.UML.Literal_Strings.UML_Literal_String_Access
65160             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
65161               (AMF.Holders.Element (Value));
65162
65163         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
65164            --  NamedElement::nameExpression : StringExpression
65165
65166            AMF.UML.Literal_Strings.UML_Literal_String_Access
65167             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
65168               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
65169
65170         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
65171            --  ParameterableElement::owningTemplateParameter : TemplateParameter
65172
65173            AMF.UML.Literal_Strings.UML_Literal_String_Access
65174             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
65175               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
65176
65177         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
65178            --  ParameterableElement::templateParameter : TemplateParameter
65179
65180            AMF.UML.Literal_Strings.UML_Literal_String_Access
65181             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
65182               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
65183
65184         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
65185            --  TypedElement::type : Type
65186
65187            AMF.UML.Literal_Strings.UML_Literal_String_Access
65188             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
65189               (AMF.UML.Types.UML_Type_Access (AMF.Holders.Elements.Element (Value)));
65190
65191         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Literal_String_Value then
65192            --  LiteralString::value : String
65193
65194            AMF.UML.Literal_Strings.UML_Literal_String_Access
65195             (AMF.Internals.Helpers.To_Element (Self)).Set_Value
65196               (AMF.Holders.Element (Value));
65197
65198         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
65199            --  NamedElement::visibility : VisibilityKind
65200
65201            AMF.UML.Literal_Strings.UML_Literal_String_Access
65202             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
65203               (AMF.UML.Holders.Element (Value));
65204
65205         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
65206            --  PackageableElement::visibility : VisibilityKind
65207
65208            AMF.UML.Literal_Strings.UML_Literal_String_Access
65209             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
65210               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
65211
65212         else
65213            raise Program_Error;
65214         end if;
65215      end UML_Literal_String_Set;
65216
65217      ---------------------------------------
65218      -- UML_Literal_Unlimited_Natural_Set --
65219      ---------------------------------------
65220
65221      procedure UML_Literal_Unlimited_Natural_Set is
65222      begin
65223         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
65224            --  NamedElement::name : String
65225
65226            AMF.UML.Literal_Unlimited_Naturals.UML_Literal_Unlimited_Natural_Access
65227             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
65228               (AMF.Holders.Element (Value));
65229
65230         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
65231            --  NamedElement::nameExpression : StringExpression
65232
65233            AMF.UML.Literal_Unlimited_Naturals.UML_Literal_Unlimited_Natural_Access
65234             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
65235               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
65236
65237         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
65238            --  ParameterableElement::owningTemplateParameter : TemplateParameter
65239
65240            AMF.UML.Literal_Unlimited_Naturals.UML_Literal_Unlimited_Natural_Access
65241             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
65242               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
65243
65244         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
65245            --  ParameterableElement::templateParameter : TemplateParameter
65246
65247            AMF.UML.Literal_Unlimited_Naturals.UML_Literal_Unlimited_Natural_Access
65248             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
65249               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
65250
65251         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
65252            --  TypedElement::type : Type
65253
65254            AMF.UML.Literal_Unlimited_Naturals.UML_Literal_Unlimited_Natural_Access
65255             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
65256               (AMF.UML.Types.UML_Type_Access (AMF.Holders.Elements.Element (Value)));
65257
65258         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Literal_Unlimited_Natural_Value then
65259            --  LiteralUnlimitedNatural::value : UnlimitedNatural
65260
65261            AMF.UML.Literal_Unlimited_Naturals.UML_Literal_Unlimited_Natural_Access
65262             (AMF.Internals.Helpers.To_Element (Self)).Set_Value
65263               (AMF.Holders.Unlimited_Naturals.Element (Value));
65264
65265         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
65266            --  NamedElement::visibility : VisibilityKind
65267
65268            AMF.UML.Literal_Unlimited_Naturals.UML_Literal_Unlimited_Natural_Access
65269             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
65270               (AMF.UML.Holders.Element (Value));
65271
65272         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
65273            --  PackageableElement::visibility : VisibilityKind
65274
65275            AMF.UML.Literal_Unlimited_Naturals.UML_Literal_Unlimited_Natural_Access
65276             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
65277               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
65278
65279         else
65280            raise Program_Error;
65281         end if;
65282      end UML_Literal_Unlimited_Natural_Set;
65283
65284      -----------------------
65285      -- UML_Loop_Node_Set --
65286      -----------------------
65287
65288      procedure UML_Loop_Node_Set is
65289      begin
65290         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
65291            --  ActivityNode::activity : Activity
65292
65293            AMF.UML.Loop_Nodes.UML_Loop_Node_Access
65294             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
65295               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
65296
65297         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Activity_Activity_Structured_Node then
65298            --  StructuredActivityNode::activity : Activity
65299
65300            AMF.UML.Loop_Nodes.UML_Loop_Node_Access
65301             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
65302               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
65303
65304         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Loop_Node_Decider_A_Loop_Node then
65305            --  LoopNode::decider : OutputPin
65306
65307            AMF.UML.Loop_Nodes.UML_Loop_Node_Access
65308             (AMF.Internals.Helpers.To_Element (Self)).Set_Decider
65309               (AMF.UML.Output_Pins.UML_Output_Pin_Access (AMF.Holders.Elements.Element (Value)));
65310
65311         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_In_Activity_Activity_Group then
65312            --  ActivityGroup::inActivity : Activity
65313
65314            AMF.UML.Loop_Nodes.UML_Loop_Node_Access
65315             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Activity
65316               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
65317
65318         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
65319            --  ActivityNode::inStructuredNode : StructuredActivityNode
65320
65321            AMF.UML.Loop_Nodes.UML_Loop_Node_Access
65322             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
65323               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
65324
65325         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
65326            --  RedefinableElement::isLeaf : Boolean
65327
65328            AMF.UML.Loop_Nodes.UML_Loop_Node_Access
65329             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
65330               (League.Holders.Booleans.Element (Value));
65331
65332         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
65333            --  Action::isLocallyReentrant : Boolean
65334
65335            AMF.UML.Loop_Nodes.UML_Loop_Node_Access
65336             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
65337               (League.Holders.Booleans.Element (Value));
65338
65339         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Loop_Node_Is_Tested_First then
65340            --  LoopNode::isTestedFirst : Boolean
65341
65342            AMF.UML.Loop_Nodes.UML_Loop_Node_Access
65343             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Tested_First
65344               (League.Holders.Booleans.Element (Value));
65345
65346         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Must_Isolate then
65347            --  StructuredActivityNode::mustIsolate : Boolean
65348
65349            AMF.UML.Loop_Nodes.UML_Loop_Node_Access
65350             (AMF.Internals.Helpers.To_Element (Self)).Set_Must_Isolate
65351               (League.Holders.Booleans.Element (Value));
65352
65353         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
65354            --  NamedElement::name : String
65355
65356            AMF.UML.Loop_Nodes.UML_Loop_Node_Access
65357             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
65358               (AMF.Holders.Element (Value));
65359
65360         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
65361            --  NamedElement::nameExpression : StringExpression
65362
65363            AMF.UML.Loop_Nodes.UML_Loop_Node_Access
65364             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
65365               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
65366
65367         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
65368            --  NamedElement::visibility : VisibilityKind
65369
65370            AMF.UML.Loop_Nodes.UML_Loop_Node_Access
65371             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
65372               (AMF.UML.Holders.Element (Value));
65373
65374         else
65375            raise Program_Error;
65376         end if;
65377      end UML_Loop_Node_Set;
65378
65379      ---------------------------
65380      -- UML_Manifestation_Set --
65381      ---------------------------
65382
65383      procedure UML_Manifestation_Set is
65384      begin
65385         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Abstraction_Mapping_A_Abstraction then
65386            --  Abstraction::mapping : OpaqueExpression
65387
65388            AMF.UML.Manifestations.UML_Manifestation_Access
65389             (AMF.Internals.Helpers.To_Element (Self)).Set_Mapping
65390               (AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access (AMF.Holders.Elements.Element (Value)));
65391
65392         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
65393            --  NamedElement::name : String
65394
65395            AMF.UML.Manifestations.UML_Manifestation_Access
65396             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
65397               (AMF.Holders.Element (Value));
65398
65399         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
65400            --  NamedElement::nameExpression : StringExpression
65401
65402            AMF.UML.Manifestations.UML_Manifestation_Access
65403             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
65404               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
65405
65406         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
65407            --  ParameterableElement::owningTemplateParameter : TemplateParameter
65408
65409            AMF.UML.Manifestations.UML_Manifestation_Access
65410             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
65411               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
65412
65413         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
65414            --  ParameterableElement::templateParameter : TemplateParameter
65415
65416            AMF.UML.Manifestations.UML_Manifestation_Access
65417             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
65418               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
65419
65420         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Manifestation_Utilized_Element_A_Manifestation then
65421            --  Manifestation::utilizedElement : PackageableElement
65422
65423            AMF.UML.Manifestations.UML_Manifestation_Access
65424             (AMF.Internals.Helpers.To_Element (Self)).Set_Utilized_Element
65425               (AMF.UML.Packageable_Elements.UML_Packageable_Element_Access (AMF.Holders.Elements.Element (Value)));
65426
65427         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
65428            --  NamedElement::visibility : VisibilityKind
65429
65430            AMF.UML.Manifestations.UML_Manifestation_Access
65431             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
65432               (AMF.UML.Holders.Element (Value));
65433
65434         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
65435            --  PackageableElement::visibility : VisibilityKind
65436
65437            AMF.UML.Manifestations.UML_Manifestation_Access
65438             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
65439               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
65440
65441         else
65442            raise Program_Error;
65443         end if;
65444      end UML_Manifestation_Set;
65445
65446      ------------------------
65447      -- UML_Merge_Node_Set --
65448      ------------------------
65449
65450      procedure UML_Merge_Node_Set is
65451      begin
65452         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
65453            --  ActivityNode::activity : Activity
65454
65455            AMF.UML.Merge_Nodes.UML_Merge_Node_Access
65456             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
65457               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
65458
65459         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
65460            --  ActivityNode::inStructuredNode : StructuredActivityNode
65461
65462            AMF.UML.Merge_Nodes.UML_Merge_Node_Access
65463             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
65464               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
65465
65466         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
65467            --  RedefinableElement::isLeaf : Boolean
65468
65469            AMF.UML.Merge_Nodes.UML_Merge_Node_Access
65470             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
65471               (League.Holders.Booleans.Element (Value));
65472
65473         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
65474            --  NamedElement::name : String
65475
65476            AMF.UML.Merge_Nodes.UML_Merge_Node_Access
65477             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
65478               (AMF.Holders.Element (Value));
65479
65480         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
65481            --  NamedElement::nameExpression : StringExpression
65482
65483            AMF.UML.Merge_Nodes.UML_Merge_Node_Access
65484             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
65485               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
65486
65487         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
65488            --  NamedElement::visibility : VisibilityKind
65489
65490            AMF.UML.Merge_Nodes.UML_Merge_Node_Access
65491             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
65492               (AMF.UML.Holders.Element (Value));
65493
65494         else
65495            raise Program_Error;
65496         end if;
65497      end UML_Merge_Node_Set;
65498
65499      ---------------------
65500      -- UML_Message_Set --
65501      ---------------------
65502
65503      procedure UML_Message_Set is
65504      begin
65505         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Message_Connector_A_Message then
65506            --  Message::connector : Connector
65507
65508            AMF.UML.Messages.UML_Message_Access
65509             (AMF.Internals.Helpers.To_Element (Self)).Set_Connector
65510               (AMF.UML.Connectors.UML_Connector_Access (AMF.Holders.Elements.Element (Value)));
65511
65512         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Message_Interaction_Interaction_Message then
65513            --  Message::interaction : Interaction
65514
65515            AMF.UML.Messages.UML_Message_Access
65516             (AMF.Internals.Helpers.To_Element (Self)).Set_Interaction
65517               (AMF.UML.Interactions.UML_Interaction_Access (AMF.Holders.Elements.Element (Value)));
65518
65519         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Message_Message_Sort then
65520            --  Message::messageSort : MessageSort
65521
65522            AMF.UML.Messages.UML_Message_Access
65523             (AMF.Internals.Helpers.To_Element (Self)).Set_Message_Sort
65524               (AMF.UML.Holders.Message_Sorts.Element (Value));
65525
65526         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
65527            --  NamedElement::name : String
65528
65529            AMF.UML.Messages.UML_Message_Access
65530             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
65531               (AMF.Holders.Element (Value));
65532
65533         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
65534            --  NamedElement::nameExpression : StringExpression
65535
65536            AMF.UML.Messages.UML_Message_Access
65537             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
65538               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
65539
65540         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Message_Receive_Event_A_End_Message then
65541            --  Message::receiveEvent : MessageEnd
65542
65543            AMF.UML.Messages.UML_Message_Access
65544             (AMF.Internals.Helpers.To_Element (Self)).Set_Receive_Event
65545               (AMF.UML.Message_Ends.UML_Message_End_Access (AMF.Holders.Elements.Element (Value)));
65546
65547         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Message_Send_Event_A_End_Message then
65548            --  Message::sendEvent : MessageEnd
65549
65550            AMF.UML.Messages.UML_Message_Access
65551             (AMF.Internals.Helpers.To_Element (Self)).Set_Send_Event
65552               (AMF.UML.Message_Ends.UML_Message_End_Access (AMF.Holders.Elements.Element (Value)));
65553
65554         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Message_Signature_A_Message then
65555            --  Message::signature : NamedElement
65556
65557            AMF.UML.Messages.UML_Message_Access
65558             (AMF.Internals.Helpers.To_Element (Self)).Set_Signature
65559               (AMF.UML.Named_Elements.UML_Named_Element_Access (AMF.Holders.Elements.Element (Value)));
65560
65561         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
65562            --  NamedElement::visibility : VisibilityKind
65563
65564            AMF.UML.Messages.UML_Message_Access
65565             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
65566               (AMF.UML.Holders.Element (Value));
65567
65568         else
65569            raise Program_Error;
65570         end if;
65571      end UML_Message_Set;
65572
65573      ----------------------------------------------
65574      -- UML_Message_Occurrence_Specification_Set --
65575      ----------------------------------------------
65576
65577      procedure UML_Message_Occurrence_Specification_Set is
65578      begin
65579         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Occurrence_Specification_Covered_A_Events then
65580            --  OccurrenceSpecification::covered : Lifeline
65581
65582            AMF.UML.Message_Occurrence_Specifications.UML_Message_Occurrence_Specification_Access
65583             (AMF.Internals.Helpers.To_Element (Self)).Set_Covered
65584               (AMF.UML.Lifelines.UML_Lifeline_Access (AMF.Holders.Elements.Element (Value)));
65585
65586         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Interaction_Interaction_Fragment then
65587            --  InteractionFragment::enclosingInteraction : Interaction
65588
65589            AMF.UML.Message_Occurrence_Specifications.UML_Message_Occurrence_Specification_Access
65590             (AMF.Internals.Helpers.To_Element (Self)).Set_Enclosing_Interaction
65591               (AMF.UML.Interactions.UML_Interaction_Access (AMF.Holders.Elements.Element (Value)));
65592
65593         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Operand_Interaction_Operand_Fragment then
65594            --  InteractionFragment::enclosingOperand : InteractionOperand
65595
65596            AMF.UML.Message_Occurrence_Specifications.UML_Message_Occurrence_Specification_Access
65597             (AMF.Internals.Helpers.To_Element (Self)).Set_Enclosing_Operand
65598               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access (AMF.Holders.Elements.Element (Value)));
65599
65600         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Message_End_Message_A_Message_End then
65601            --  MessageEnd::message : Message
65602
65603            AMF.UML.Message_Occurrence_Specifications.UML_Message_Occurrence_Specification_Access
65604             (AMF.Internals.Helpers.To_Element (Self)).Set_Message
65605               (AMF.UML.Messages.UML_Message_Access (AMF.Holders.Elements.Element (Value)));
65606
65607         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
65608            --  NamedElement::name : String
65609
65610            AMF.UML.Message_Occurrence_Specifications.UML_Message_Occurrence_Specification_Access
65611             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
65612               (AMF.Holders.Element (Value));
65613
65614         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
65615            --  NamedElement::nameExpression : StringExpression
65616
65617            AMF.UML.Message_Occurrence_Specifications.UML_Message_Occurrence_Specification_Access
65618             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
65619               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
65620
65621         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
65622            --  NamedElement::visibility : VisibilityKind
65623
65624            AMF.UML.Message_Occurrence_Specifications.UML_Message_Occurrence_Specification_Access
65625             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
65626               (AMF.UML.Holders.Element (Value));
65627
65628         else
65629            raise Program_Error;
65630         end if;
65631      end UML_Message_Occurrence_Specification_Set;
65632
65633      -------------------
65634      -- UML_Model_Set --
65635      -------------------
65636
65637      procedure UML_Model_Set is
65638      begin
65639         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_URI then
65640            --  Package::URI : String
65641
65642            AMF.UML.Models.UML_Model_Access
65643             (AMF.Internals.Helpers.To_Element (Self)).Set_URI
65644               (AMF.Holders.Element (Value));
65645
65646         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
65647            --  NamedElement::name : String
65648
65649            AMF.UML.Models.UML_Model_Access
65650             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
65651               (AMF.Holders.Element (Value));
65652
65653         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
65654            --  NamedElement::nameExpression : StringExpression
65655
65656            AMF.UML.Models.UML_Model_Access
65657             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
65658               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
65659
65660         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Nesting_Package_Package_Nested_Package then
65661            --  Package::nestingPackage : Package
65662
65663            AMF.UML.Models.UML_Model_Access
65664             (AMF.Internals.Helpers.To_Element (Self)).Set_Nesting_Package
65665               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
65666
65667         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
65668            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
65669
65670            AMF.UML.Models.UML_Model_Access
65671             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
65672               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
65673
65674         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
65675            --  ParameterableElement::owningTemplateParameter : TemplateParameter
65676
65677            AMF.UML.Models.UML_Model_Access
65678             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
65679               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
65680
65681         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
65682            --  ParameterableElement::templateParameter : TemplateParameter
65683
65684            AMF.UML.Models.UML_Model_Access
65685             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
65686               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
65687
65688         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Model_Viewpoint then
65689            --  Model::viewpoint : String
65690
65691            AMF.UML.Models.UML_Model_Access
65692             (AMF.Internals.Helpers.To_Element (Self)).Set_Viewpoint
65693               (AMF.Holders.Element (Value));
65694
65695         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
65696            --  NamedElement::visibility : VisibilityKind
65697
65698            AMF.UML.Models.UML_Model_Access
65699             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
65700               (AMF.UML.Holders.Element (Value));
65701
65702         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
65703            --  PackageableElement::visibility : VisibilityKind
65704
65705            AMF.UML.Models.UML_Model_Access
65706             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
65707               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
65708
65709         else
65710            raise Program_Error;
65711         end if;
65712      end UML_Model_Set;
65713
65714      ------------------
65715      -- UML_Node_Set --
65716      ------------------
65717
65718      procedure UML_Node_Set is
65719      begin
65720         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
65721            --  BehavioredClassifier::classifierBehavior : Behavior
65722
65723            AMF.UML.Nodes.UML_Node_Access
65724             (AMF.Internals.Helpers.To_Element (Self)).Set_Classifier_Behavior
65725               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
65726
65727         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Abstract then
65728            --  Class::isAbstract : Boolean
65729
65730            AMF.UML.Nodes.UML_Node_Access
65731             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
65732               (League.Holders.Booleans.Element (Value));
65733
65734         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
65735            --  Classifier::isAbstract : Boolean
65736
65737            AMF.UML.Nodes.UML_Node_Access
65738             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
65739               (League.Holders.Booleans.Element (Value));
65740
65741         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Active then
65742            --  Class::isActive : Boolean
65743
65744            AMF.UML.Nodes.UML_Node_Access
65745             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Active
65746               (League.Holders.Booleans.Element (Value));
65747
65748         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
65749            --  Classifier::isFinalSpecialization : Boolean
65750
65751            AMF.UML.Nodes.UML_Node_Access
65752             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization
65753               (League.Holders.Booleans.Element (Value));
65754
65755         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
65756            --  RedefinableElement::isLeaf : Boolean
65757
65758            AMF.UML.Nodes.UML_Node_Access
65759             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
65760               (League.Holders.Booleans.Element (Value));
65761
65762         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
65763            --  NamedElement::name : String
65764
65765            AMF.UML.Nodes.UML_Node_Access
65766             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
65767               (AMF.Holders.Element (Value));
65768
65769         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
65770            --  NamedElement::nameExpression : StringExpression
65771
65772            AMF.UML.Nodes.UML_Node_Access
65773             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
65774               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
65775
65776         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
65777            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
65778
65779            AMF.UML.Nodes.UML_Node_Access
65780             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
65781               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
65782
65783         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
65784            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
65785
65786            AMF.UML.Nodes.UML_Node_Access
65787             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
65788               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
65789
65790         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
65791            --  ParameterableElement::owningTemplateParameter : TemplateParameter
65792
65793            AMF.UML.Nodes.UML_Node_Access
65794             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
65795               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
65796
65797         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
65798            --  Type::package : Package
65799
65800            AMF.UML.Nodes.UML_Node_Access
65801             (AMF.Internals.Helpers.To_Element (Self)).Set_Package
65802               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
65803
65804         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
65805            --  Classifier::representation : CollaborationUse
65806
65807            AMF.UML.Nodes.UML_Node_Access
65808             (AMF.Internals.Helpers.To_Element (Self)).Set_Representation
65809               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access (AMF.Holders.Elements.Element (Value)));
65810
65811         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
65812            --  Classifier::templateParameter : ClassifierTemplateParameter
65813
65814            AMF.UML.Nodes.UML_Node_Access
65815             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
65816               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
65817
65818         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
65819            --  ParameterableElement::templateParameter : TemplateParameter
65820
65821            AMF.UML.Nodes.UML_Node_Access
65822             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
65823               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
65824
65825         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
65826            --  NamedElement::visibility : VisibilityKind
65827
65828            AMF.UML.Nodes.UML_Node_Access
65829             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
65830               (AMF.UML.Holders.Element (Value));
65831
65832         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
65833            --  PackageableElement::visibility : VisibilityKind
65834
65835            AMF.UML.Nodes.UML_Node_Access
65836             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
65837               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
65838
65839         else
65840            raise Program_Error;
65841         end if;
65842      end UML_Node_Set;
65843
65844      -------------------------
65845      -- UML_Object_Flow_Set --
65846      -------------------------
65847
65848      procedure UML_Object_Flow_Set is
65849      begin
65850         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_Activity_Activity_Edge then
65851            --  ActivityEdge::activity : Activity
65852
65853            AMF.UML.Object_Flows.UML_Object_Flow_Access
65854             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
65855               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
65856
65857         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_Guard_A_Activity_Edge then
65858            --  ActivityEdge::guard : ValueSpecification
65859
65860            AMF.UML.Object_Flows.UML_Object_Flow_Access
65861             (AMF.Internals.Helpers.To_Element (Self)).Set_Guard
65862               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
65863
65864         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_In_Structured_Node_Structured_Activity_Node_Edge then
65865            --  ActivityEdge::inStructuredNode : StructuredActivityNode
65866
65867            AMF.UML.Object_Flows.UML_Object_Flow_Access
65868             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
65869               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
65870
65871         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_Interrupts_Interruptible_Activity_Region_Interrupting_Edge then
65872            --  ActivityEdge::interrupts : InterruptibleActivityRegion
65873
65874            AMF.UML.Object_Flows.UML_Object_Flow_Access
65875             (AMF.Internals.Helpers.To_Element (Self)).Set_Interrupts
65876               (AMF.UML.Interruptible_Activity_Regions.UML_Interruptible_Activity_Region_Access (AMF.Holders.Elements.Element (Value)));
65877
65878         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
65879            --  RedefinableElement::isLeaf : Boolean
65880
65881            AMF.UML.Object_Flows.UML_Object_Flow_Access
65882             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
65883               (League.Holders.Booleans.Element (Value));
65884
65885         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Flow_Is_Multicast then
65886            --  ObjectFlow::isMulticast : Boolean
65887
65888            AMF.UML.Object_Flows.UML_Object_Flow_Access
65889             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Multicast
65890               (League.Holders.Booleans.Element (Value));
65891
65892         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Flow_Is_Multireceive then
65893            --  ObjectFlow::isMultireceive : Boolean
65894
65895            AMF.UML.Object_Flows.UML_Object_Flow_Access
65896             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Multireceive
65897               (League.Holders.Booleans.Element (Value));
65898
65899         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
65900            --  NamedElement::name : String
65901
65902            AMF.UML.Object_Flows.UML_Object_Flow_Access
65903             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
65904               (AMF.Holders.Element (Value));
65905
65906         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
65907            --  NamedElement::nameExpression : StringExpression
65908
65909            AMF.UML.Object_Flows.UML_Object_Flow_Access
65910             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
65911               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
65912
65913         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Flow_Selection_A_Object_Flow then
65914            --  ObjectFlow::selection : Behavior
65915
65916            AMF.UML.Object_Flows.UML_Object_Flow_Access
65917             (AMF.Internals.Helpers.To_Element (Self)).Set_Selection
65918               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
65919
65920         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_Source_Activity_Node_Outgoing then
65921            --  ActivityEdge::source : ActivityNode
65922
65923            AMF.UML.Object_Flows.UML_Object_Flow_Access
65924             (AMF.Internals.Helpers.To_Element (Self)).Set_Source
65925               (AMF.UML.Activity_Nodes.UML_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
65926
65927         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_Target_Activity_Node_Incoming then
65928            --  ActivityEdge::target : ActivityNode
65929
65930            AMF.UML.Object_Flows.UML_Object_Flow_Access
65931             (AMF.Internals.Helpers.To_Element (Self)).Set_Target
65932               (AMF.UML.Activity_Nodes.UML_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
65933
65934         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Flow_Transformation_A_Object_Flow then
65935            --  ObjectFlow::transformation : Behavior
65936
65937            AMF.UML.Object_Flows.UML_Object_Flow_Access
65938             (AMF.Internals.Helpers.To_Element (Self)).Set_Transformation
65939               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
65940
65941         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
65942            --  NamedElement::visibility : VisibilityKind
65943
65944            AMF.UML.Object_Flows.UML_Object_Flow_Access
65945             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
65946               (AMF.UML.Holders.Element (Value));
65947
65948         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Edge_Weight_A_Activity_Edge then
65949            --  ActivityEdge::weight : ValueSpecification
65950
65951            AMF.UML.Object_Flows.UML_Object_Flow_Access
65952             (AMF.Internals.Helpers.To_Element (Self)).Set_Weight
65953               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
65954
65955         else
65956            raise Program_Error;
65957         end if;
65958      end UML_Object_Flow_Set;
65959
65960      --------------------------------------
65961      -- UML_Occurrence_Specification_Set --
65962      --------------------------------------
65963
65964      procedure UML_Occurrence_Specification_Set is
65965      begin
65966         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Occurrence_Specification_Covered_A_Events then
65967            --  OccurrenceSpecification::covered : Lifeline
65968
65969            AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access
65970             (AMF.Internals.Helpers.To_Element (Self)).Set_Covered
65971               (AMF.UML.Lifelines.UML_Lifeline_Access (AMF.Holders.Elements.Element (Value)));
65972
65973         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Interaction_Interaction_Fragment then
65974            --  InteractionFragment::enclosingInteraction : Interaction
65975
65976            AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access
65977             (AMF.Internals.Helpers.To_Element (Self)).Set_Enclosing_Interaction
65978               (AMF.UML.Interactions.UML_Interaction_Access (AMF.Holders.Elements.Element (Value)));
65979
65980         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Operand_Interaction_Operand_Fragment then
65981            --  InteractionFragment::enclosingOperand : InteractionOperand
65982
65983            AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access
65984             (AMF.Internals.Helpers.To_Element (Self)).Set_Enclosing_Operand
65985               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access (AMF.Holders.Elements.Element (Value)));
65986
65987         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
65988            --  NamedElement::name : String
65989
65990            AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access
65991             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
65992               (AMF.Holders.Element (Value));
65993
65994         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
65995            --  NamedElement::nameExpression : StringExpression
65996
65997            AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access
65998             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
65999               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
66000
66001         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
66002            --  NamedElement::visibility : VisibilityKind
66003
66004            AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access
66005             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
66006               (AMF.UML.Holders.Element (Value));
66007
66008         else
66009            raise Program_Error;
66010         end if;
66011      end UML_Occurrence_Specification_Set;
66012
66013      ---------------------------
66014      -- UML_Opaque_Action_Set --
66015      ---------------------------
66016
66017      procedure UML_Opaque_Action_Set is
66018      begin
66019         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
66020            --  ActivityNode::activity : Activity
66021
66022            AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
66023             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
66024               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
66025
66026         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
66027            --  ActivityNode::inStructuredNode : StructuredActivityNode
66028
66029            AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
66030             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
66031               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
66032
66033         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
66034            --  RedefinableElement::isLeaf : Boolean
66035
66036            AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
66037             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
66038               (League.Holders.Booleans.Element (Value));
66039
66040         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
66041            --  Action::isLocallyReentrant : Boolean
66042
66043            AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
66044             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
66045               (League.Holders.Booleans.Element (Value));
66046
66047         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
66048            --  NamedElement::name : String
66049
66050            AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
66051             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
66052               (AMF.Holders.Element (Value));
66053
66054         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
66055            --  NamedElement::nameExpression : StringExpression
66056
66057            AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
66058             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
66059               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
66060
66061         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
66062            --  NamedElement::visibility : VisibilityKind
66063
66064            AMF.UML.Opaque_Actions.UML_Opaque_Action_Access
66065             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
66066               (AMF.UML.Holders.Element (Value));
66067
66068         else
66069            raise Program_Error;
66070         end if;
66071      end UML_Opaque_Action_Set;
66072
66073      -----------------------------
66074      -- UML_Opaque_Behavior_Set --
66075      -----------------------------
66076
66077      procedure UML_Opaque_Behavior_Set is
66078      begin
66079         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
66080            --  BehavioredClassifier::classifierBehavior : Behavior
66081
66082            AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
66083             (AMF.Internals.Helpers.To_Element (Self)).Set_Classifier_Behavior
66084               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
66085
66086         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Abstract then
66087            --  Class::isAbstract : Boolean
66088
66089            AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
66090             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
66091               (League.Holders.Booleans.Element (Value));
66092
66093         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
66094            --  Classifier::isAbstract : Boolean
66095
66096            AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
66097             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
66098               (League.Holders.Booleans.Element (Value));
66099
66100         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Active then
66101            --  Class::isActive : Boolean
66102
66103            AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
66104             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Active
66105               (League.Holders.Booleans.Element (Value));
66106
66107         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
66108            --  Classifier::isFinalSpecialization : Boolean
66109
66110            AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
66111             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization
66112               (League.Holders.Booleans.Element (Value));
66113
66114         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
66115            --  RedefinableElement::isLeaf : Boolean
66116
66117            AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
66118             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
66119               (League.Holders.Booleans.Element (Value));
66120
66121         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Is_Reentrant then
66122            --  Behavior::isReentrant : Boolean
66123
66124            AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
66125             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Reentrant
66126               (League.Holders.Booleans.Element (Value));
66127
66128         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
66129            --  NamedElement::name : String
66130
66131            AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
66132             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
66133               (AMF.Holders.Element (Value));
66134
66135         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
66136            --  NamedElement::nameExpression : StringExpression
66137
66138            AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
66139             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
66140               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
66141
66142         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
66143            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
66144
66145            AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
66146             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
66147               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
66148
66149         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
66150            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
66151
66152            AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
66153             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
66154               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
66155
66156         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
66157            --  ParameterableElement::owningTemplateParameter : TemplateParameter
66158
66159            AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
66160             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
66161               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
66162
66163         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
66164            --  Type::package : Package
66165
66166            AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
66167             (AMF.Internals.Helpers.To_Element (Self)).Set_Package
66168               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
66169
66170         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
66171            --  Classifier::representation : CollaborationUse
66172
66173            AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
66174             (AMF.Internals.Helpers.To_Element (Self)).Set_Representation
66175               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access (AMF.Holders.Elements.Element (Value)));
66176
66177         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Specification_Behavioral_Feature_Method then
66178            --  Behavior::specification : BehavioralFeature
66179
66180            AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
66181             (AMF.Internals.Helpers.To_Element (Self)).Set_Specification
66182               (AMF.UML.Behavioral_Features.UML_Behavioral_Feature_Access (AMF.Holders.Elements.Element (Value)));
66183
66184         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
66185            --  Classifier::templateParameter : ClassifierTemplateParameter
66186
66187            AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
66188             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
66189               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
66190
66191         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
66192            --  ParameterableElement::templateParameter : TemplateParameter
66193
66194            AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
66195             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
66196               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
66197
66198         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
66199            --  NamedElement::visibility : VisibilityKind
66200
66201            AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
66202             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
66203               (AMF.UML.Holders.Element (Value));
66204
66205         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
66206            --  PackageableElement::visibility : VisibilityKind
66207
66208            AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access
66209             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
66210               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
66211
66212         else
66213            raise Program_Error;
66214         end if;
66215      end UML_Opaque_Behavior_Set;
66216
66217      -------------------------------
66218      -- UML_Opaque_Expression_Set --
66219      -------------------------------
66220
66221      procedure UML_Opaque_Expression_Set is
66222      begin
66223         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Opaque_Expression_Behavior_A_Opaque_Expression then
66224            --  OpaqueExpression::behavior : Behavior
66225
66226            AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access
66227             (AMF.Internals.Helpers.To_Element (Self)).Set_Behavior
66228               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
66229
66230         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
66231            --  NamedElement::name : String
66232
66233            AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access
66234             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
66235               (AMF.Holders.Element (Value));
66236
66237         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
66238            --  NamedElement::nameExpression : StringExpression
66239
66240            AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access
66241             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
66242               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
66243
66244         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
66245            --  ParameterableElement::owningTemplateParameter : TemplateParameter
66246
66247            AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access
66248             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
66249               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
66250
66251         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
66252            --  ParameterableElement::templateParameter : TemplateParameter
66253
66254            AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access
66255             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
66256               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
66257
66258         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
66259            --  TypedElement::type : Type
66260
66261            AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access
66262             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
66263               (AMF.UML.Types.UML_Type_Access (AMF.Holders.Elements.Element (Value)));
66264
66265         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
66266            --  NamedElement::visibility : VisibilityKind
66267
66268            AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access
66269             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
66270               (AMF.UML.Holders.Element (Value));
66271
66272         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
66273            --  PackageableElement::visibility : VisibilityKind
66274
66275            AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access
66276             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
66277               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
66278
66279         else
66280            raise Program_Error;
66281         end if;
66282      end UML_Opaque_Expression_Set;
66283
66284      -----------------------
66285      -- UML_Operation_Set --
66286      -----------------------
66287
66288      procedure UML_Operation_Set is
66289      begin
66290         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Operation_Body_Condition_A_Body_Context then
66291            --  Operation::bodyCondition : Constraint
66292
66293            AMF.UML.Operations.UML_Operation_Access
66294             (AMF.Internals.Helpers.To_Element (Self)).Set_Body_Condition
66295               (AMF.UML.Constraints.UML_Constraint_Access (AMF.Holders.Elements.Element (Value)));
66296
66297         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Operation_Class_Class_Owned_Operation then
66298            --  Operation::class : Class
66299
66300            AMF.UML.Operations.UML_Operation_Access
66301             (AMF.Internals.Helpers.To_Element (Self)).Set_Class
66302               (AMF.UML.Classes.UML_Class_Access (AMF.Holders.Elements.Element (Value)));
66303
66304         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavioral_Feature_Concurrency then
66305            --  BehavioralFeature::concurrency : CallConcurrencyKind
66306
66307            AMF.UML.Operations.UML_Operation_Access
66308             (AMF.Internals.Helpers.To_Element (Self)).Set_Concurrency
66309               (AMF.UML.Holders.Call_Concurrency_Kinds.Element (Value));
66310
66311         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Operation_Datatype_Data_Type_Owned_Operation then
66312            --  Operation::datatype : DataType
66313
66314            AMF.UML.Operations.UML_Operation_Access
66315             (AMF.Internals.Helpers.To_Element (Self)).Set_Datatype
66316               (AMF.UML.Data_Types.UML_Data_Type_Access (AMF.Holders.Elements.Element (Value)));
66317
66318         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Operation_Interface_Interface_Owned_Operation then
66319            --  Operation::interface : Interface
66320
66321            AMF.UML.Operations.UML_Operation_Access
66322             (AMF.Internals.Helpers.To_Element (Self)).Set_Interface
66323               (AMF.UML.Interfaces.UML_Interface_Access (AMF.Holders.Elements.Element (Value)));
66324
66325         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavioral_Feature_Is_Abstract then
66326            --  BehavioralFeature::isAbstract : Boolean
66327
66328            AMF.UML.Operations.UML_Operation_Access
66329             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
66330               (League.Holders.Booleans.Element (Value));
66331
66332         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
66333            --  RedefinableElement::isLeaf : Boolean
66334
66335            AMF.UML.Operations.UML_Operation_Access
66336             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
66337               (League.Holders.Booleans.Element (Value));
66338
66339         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Operation_Is_Query then
66340            --  Operation::isQuery : Boolean
66341
66342            AMF.UML.Operations.UML_Operation_Access
66343             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Query
66344               (League.Holders.Booleans.Element (Value));
66345
66346         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Feature_Is_Static then
66347            --  Feature::isStatic : Boolean
66348
66349            AMF.UML.Operations.UML_Operation_Access
66350             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Static
66351               (League.Holders.Booleans.Element (Value));
66352
66353         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
66354            --  NamedElement::name : String
66355
66356            AMF.UML.Operations.UML_Operation_Access
66357             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
66358               (AMF.Holders.Element (Value));
66359
66360         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
66361            --  NamedElement::nameExpression : StringExpression
66362
66363            AMF.UML.Operations.UML_Operation_Access
66364             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
66365               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
66366
66367         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
66368            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
66369
66370            AMF.UML.Operations.UML_Operation_Access
66371             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
66372               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
66373
66374         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
66375            --  ParameterableElement::owningTemplateParameter : TemplateParameter
66376
66377            AMF.UML.Operations.UML_Operation_Access
66378             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
66379               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
66380
66381         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Operation_Template_Parameter_Operation_Template_Parameter_Parametered_Element then
66382            --  Operation::templateParameter : OperationTemplateParameter
66383
66384            AMF.UML.Operations.UML_Operation_Access
66385             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
66386               (AMF.UML.Operation_Template_Parameters.UML_Operation_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
66387
66388         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
66389            --  ParameterableElement::templateParameter : TemplateParameter
66390
66391            AMF.UML.Operations.UML_Operation_Access
66392             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
66393               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
66394
66395         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
66396            --  NamedElement::visibility : VisibilityKind
66397
66398            AMF.UML.Operations.UML_Operation_Access
66399             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
66400               (AMF.UML.Holders.Element (Value));
66401
66402         else
66403            raise Program_Error;
66404         end if;
66405      end UML_Operation_Set;
66406
66407      ------------------------------------------
66408      -- UML_Operation_Template_Parameter_Set --
66409      ------------------------------------------
66410
66411      procedure UML_Operation_Template_Parameter_Set is
66412      begin
66413         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Default_A_Template_Parameter then
66414            --  TemplateParameter::default : ParameterableElement
66415
66416            AMF.UML.Operation_Template_Parameters.UML_Operation_Template_Parameter_Access
66417             (AMF.Internals.Helpers.To_Element (Self)).Set_Default
66418               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access (AMF.Holders.Elements.Element (Value)));
66419
66420         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Owned_Default_A_Template_Parameter then
66421            --  TemplateParameter::ownedDefault : ParameterableElement
66422
66423            AMF.UML.Operation_Template_Parameters.UML_Operation_Template_Parameter_Access
66424             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Default
66425               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access (AMF.Holders.Elements.Element (Value)));
66426
66427         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Owned_Parametered_Element_Parameterable_Element_Owning_Template_Parameter then
66428            --  TemplateParameter::ownedParameteredElement : ParameterableElement
66429
66430            AMF.UML.Operation_Template_Parameters.UML_Operation_Template_Parameter_Access
66431             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Parametered_Element
66432               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access (AMF.Holders.Elements.Element (Value)));
66433
66434         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Operation_Template_Parameter_Parametered_Element_Operation_Template_Parameter then
66435            --  OperationTemplateParameter::parameteredElement : Operation
66436
66437            AMF.UML.Operation_Template_Parameters.UML_Operation_Template_Parameter_Access
66438             (AMF.Internals.Helpers.To_Element (Self)).Set_Parametered_Element
66439               (AMF.UML.Operations.UML_Operation_Access (AMF.Holders.Elements.Element (Value)));
66440
66441         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Parametered_Element_Parameterable_Element_Template_Parameter then
66442            --  TemplateParameter::parameteredElement : ParameterableElement
66443
66444            AMF.UML.Operation_Template_Parameters.UML_Operation_Template_Parameter_Access
66445             (AMF.Internals.Helpers.To_Element (Self)).Set_Parametered_Element
66446               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access (AMF.Holders.Elements.Element (Value)));
66447
66448         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Signature_Template_Signature_Owned_Parameter then
66449            --  TemplateParameter::signature : TemplateSignature
66450
66451            AMF.UML.Operation_Template_Parameters.UML_Operation_Template_Parameter_Access
66452             (AMF.Internals.Helpers.To_Element (Self)).Set_Signature
66453               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
66454
66455         else
66456            raise Program_Error;
66457         end if;
66458      end UML_Operation_Template_Parameter_Set;
66459
66460      ------------------------
66461      -- UML_Output_Pin_Set --
66462      ------------------------
66463
66464      procedure UML_Output_Pin_Set is
66465      begin
66466         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
66467            --  ActivityNode::activity : Activity
66468
66469            AMF.UML.Output_Pins.UML_Output_Pin_Access
66470             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
66471               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
66472
66473         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
66474            --  ActivityNode::inStructuredNode : StructuredActivityNode
66475
66476            AMF.UML.Output_Pins.UML_Output_Pin_Access
66477             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
66478               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
66479
66480         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Pin_Is_Control then
66481            --  Pin::isControl : Boolean
66482
66483            AMF.UML.Output_Pins.UML_Output_Pin_Access
66484             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Control
66485               (League.Holders.Booleans.Element (Value));
66486
66487         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Is_Control_Type then
66488            --  ObjectNode::isControlType : Boolean
66489
66490            AMF.UML.Output_Pins.UML_Output_Pin_Access
66491             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Control_Type
66492               (League.Holders.Booleans.Element (Value));
66493
66494         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
66495            --  RedefinableElement::isLeaf : Boolean
66496
66497            AMF.UML.Output_Pins.UML_Output_Pin_Access
66498             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
66499               (League.Holders.Booleans.Element (Value));
66500
66501         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Ordered then
66502            --  MultiplicityElement::isOrdered : Boolean
66503
66504            AMF.UML.Output_Pins.UML_Output_Pin_Access
66505             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Ordered
66506               (League.Holders.Booleans.Element (Value));
66507
66508         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Unique then
66509            --  MultiplicityElement::isUnique : Boolean
66510
66511            AMF.UML.Output_Pins.UML_Output_Pin_Access
66512             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Unique
66513               (League.Holders.Booleans.Element (Value));
66514
66515         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower_Value_A_Owning_Lower then
66516            --  MultiplicityElement::lowerValue : ValueSpecification
66517
66518            AMF.UML.Output_Pins.UML_Output_Pin_Access
66519             (AMF.Internals.Helpers.To_Element (Self)).Set_Lower_Value
66520               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
66521
66522         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
66523            --  NamedElement::name : String
66524
66525            AMF.UML.Output_Pins.UML_Output_Pin_Access
66526             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
66527               (AMF.Holders.Element (Value));
66528
66529         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
66530            --  NamedElement::nameExpression : StringExpression
66531
66532            AMF.UML.Output_Pins.UML_Output_Pin_Access
66533             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
66534               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
66535
66536         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Ordering then
66537            --  ObjectNode::ordering : ObjectNodeOrderingKind
66538
66539            AMF.UML.Output_Pins.UML_Output_Pin_Access
66540             (AMF.Internals.Helpers.To_Element (Self)).Set_Ordering
66541               (AMF.UML.Holders.Object_Node_Ordering_Kinds.Element (Value));
66542
66543         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Selection_A_Object_Node then
66544            --  ObjectNode::selection : Behavior
66545
66546            AMF.UML.Output_Pins.UML_Output_Pin_Access
66547             (AMF.Internals.Helpers.To_Element (Self)).Set_Selection
66548               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
66549
66550         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
66551            --  TypedElement::type : Type
66552
66553            AMF.UML.Output_Pins.UML_Output_Pin_Access
66554             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
66555               (AMF.UML.Types.UML_Type_Access (AMF.Holders.Elements.Element (Value)));
66556
66557         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Upper_Bound_A_Object_Node then
66558            --  ObjectNode::upperBound : ValueSpecification
66559
66560            AMF.UML.Output_Pins.UML_Output_Pin_Access
66561             (AMF.Internals.Helpers.To_Element (Self)).Set_Upper_Bound
66562               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
66563
66564         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper_Value_A_Owning_Upper then
66565            --  MultiplicityElement::upperValue : ValueSpecification
66566
66567            AMF.UML.Output_Pins.UML_Output_Pin_Access
66568             (AMF.Internals.Helpers.To_Element (Self)).Set_Upper_Value
66569               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
66570
66571         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
66572            --  NamedElement::visibility : VisibilityKind
66573
66574            AMF.UML.Output_Pins.UML_Output_Pin_Access
66575             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
66576               (AMF.UML.Holders.Element (Value));
66577
66578         else
66579            raise Program_Error;
66580         end if;
66581      end UML_Output_Pin_Set;
66582
66583      ---------------------
66584      -- UML_Package_Set --
66585      ---------------------
66586
66587      procedure UML_Package_Set is
66588      begin
66589         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_URI then
66590            --  Package::URI : String
66591
66592            AMF.UML.Packages.UML_Package_Access
66593             (AMF.Internals.Helpers.To_Element (Self)).Set_URI
66594               (AMF.Holders.Element (Value));
66595
66596         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
66597            --  NamedElement::name : String
66598
66599            AMF.UML.Packages.UML_Package_Access
66600             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
66601               (AMF.Holders.Element (Value));
66602
66603         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
66604            --  NamedElement::nameExpression : StringExpression
66605
66606            AMF.UML.Packages.UML_Package_Access
66607             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
66608               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
66609
66610         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Nesting_Package_Package_Nested_Package then
66611            --  Package::nestingPackage : Package
66612
66613            AMF.UML.Packages.UML_Package_Access
66614             (AMF.Internals.Helpers.To_Element (Self)).Set_Nesting_Package
66615               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
66616
66617         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
66618            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
66619
66620            AMF.UML.Packages.UML_Package_Access
66621             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
66622               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
66623
66624         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
66625            --  ParameterableElement::owningTemplateParameter : TemplateParameter
66626
66627            AMF.UML.Packages.UML_Package_Access
66628             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
66629               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
66630
66631         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
66632            --  ParameterableElement::templateParameter : TemplateParameter
66633
66634            AMF.UML.Packages.UML_Package_Access
66635             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
66636               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
66637
66638         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
66639            --  NamedElement::visibility : VisibilityKind
66640
66641            AMF.UML.Packages.UML_Package_Access
66642             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
66643               (AMF.UML.Holders.Element (Value));
66644
66645         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
66646            --  PackageableElement::visibility : VisibilityKind
66647
66648            AMF.UML.Packages.UML_Package_Access
66649             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
66650               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
66651
66652         else
66653            raise Program_Error;
66654         end if;
66655      end UML_Package_Set;
66656
66657      ----------------------------
66658      -- UML_Package_Import_Set --
66659      ----------------------------
66660
66661      procedure UML_Package_Import_Set is
66662      begin
66663         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Import_Imported_Package_A_Package_Import then
66664            --  PackageImport::importedPackage : Package
66665
66666            AMF.UML.Package_Imports.UML_Package_Import_Access
66667             (AMF.Internals.Helpers.To_Element (Self)).Set_Imported_Package
66668               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
66669
66670         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Import_Importing_Namespace_Namespace_Package_Import then
66671            --  PackageImport::importingNamespace : Namespace
66672
66673            AMF.UML.Package_Imports.UML_Package_Import_Access
66674             (AMF.Internals.Helpers.To_Element (Self)).Set_Importing_Namespace
66675               (AMF.UML.Namespaces.UML_Namespace_Access (AMF.Holders.Elements.Element (Value)));
66676
66677         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Import_Visibility then
66678            --  PackageImport::visibility : VisibilityKind
66679
66680            AMF.UML.Package_Imports.UML_Package_Import_Access
66681             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
66682               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
66683
66684         else
66685            raise Program_Error;
66686         end if;
66687      end UML_Package_Import_Set;
66688
66689      ---------------------------
66690      -- UML_Package_Merge_Set --
66691      ---------------------------
66692
66693      procedure UML_Package_Merge_Set is
66694      begin
66695         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Merge_Merged_Package_A_Package_Merge then
66696            --  PackageMerge::mergedPackage : Package
66697
66698            AMF.UML.Package_Merges.UML_Package_Merge_Access
66699             (AMF.Internals.Helpers.To_Element (Self)).Set_Merged_Package
66700               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
66701
66702         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Merge_Receiving_Package_Package_Package_Merge then
66703            --  PackageMerge::receivingPackage : Package
66704
66705            AMF.UML.Package_Merges.UML_Package_Merge_Access
66706             (AMF.Internals.Helpers.To_Element (Self)).Set_Receiving_Package
66707               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
66708
66709         else
66710            raise Program_Error;
66711         end if;
66712      end UML_Package_Merge_Set;
66713
66714      -----------------------
66715      -- UML_Parameter_Set --
66716      -----------------------
66717
66718      procedure UML_Parameter_Set is
66719      begin
66720         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameter_Default_Value_A_Owning_Parameter then
66721            --  Parameter::defaultValue : ValueSpecification
66722
66723            AMF.UML.Parameters.UML_Parameter_Access
66724             (AMF.Internals.Helpers.To_Element (Self)).Set_Default_Value
66725               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
66726
66727         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameter_Direction then
66728            --  Parameter::direction : ParameterDirectionKind
66729
66730            AMF.UML.Parameters.UML_Parameter_Access
66731             (AMF.Internals.Helpers.To_Element (Self)).Set_Direction
66732               (AMF.UML.Holders.Parameter_Direction_Kinds.Element (Value));
66733
66734         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameter_Effect then
66735            --  Parameter::effect : ParameterEffectKind
66736
66737            AMF.UML.Parameters.UML_Parameter_Access
66738             (AMF.Internals.Helpers.To_Element (Self)).Set_Effect
66739               (AMF.UML.Holders.Element (Value));
66740
66741         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameter_Is_Exception then
66742            --  Parameter::isException : Boolean
66743
66744            AMF.UML.Parameters.UML_Parameter_Access
66745             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Exception
66746               (League.Holders.Booleans.Element (Value));
66747
66748         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Ordered then
66749            --  MultiplicityElement::isOrdered : Boolean
66750
66751            AMF.UML.Parameters.UML_Parameter_Access
66752             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Ordered
66753               (League.Holders.Booleans.Element (Value));
66754
66755         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameter_Is_Stream then
66756            --  Parameter::isStream : Boolean
66757
66758            AMF.UML.Parameters.UML_Parameter_Access
66759             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Stream
66760               (League.Holders.Booleans.Element (Value));
66761
66762         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Unique then
66763            --  MultiplicityElement::isUnique : Boolean
66764
66765            AMF.UML.Parameters.UML_Parameter_Access
66766             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Unique
66767               (League.Holders.Booleans.Element (Value));
66768
66769         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower_Value_A_Owning_Lower then
66770            --  MultiplicityElement::lowerValue : ValueSpecification
66771
66772            AMF.UML.Parameters.UML_Parameter_Access
66773             (AMF.Internals.Helpers.To_Element (Self)).Set_Lower_Value
66774               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
66775
66776         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
66777            --  NamedElement::name : String
66778
66779            AMF.UML.Parameters.UML_Parameter_Access
66780             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
66781               (AMF.Holders.Element (Value));
66782
66783         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
66784            --  NamedElement::nameExpression : StringExpression
66785
66786            AMF.UML.Parameters.UML_Parameter_Access
66787             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
66788               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
66789
66790         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameter_Operation_Operation_Owned_Parameter then
66791            --  Parameter::operation : Operation
66792
66793            AMF.UML.Parameters.UML_Parameter_Access
66794             (AMF.Internals.Helpers.To_Element (Self)).Set_Operation
66795               (AMF.UML.Operations.UML_Operation_Access (AMF.Holders.Elements.Element (Value)));
66796
66797         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
66798            --  ParameterableElement::owningTemplateParameter : TemplateParameter
66799
66800            AMF.UML.Parameters.UML_Parameter_Access
66801             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
66802               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
66803
66804         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connectable_Element_Template_Parameter_Connectable_Element_Template_Parameter_Parametered_Element then
66805            --  ConnectableElement::templateParameter : ConnectableElementTemplateParameter
66806
66807            AMF.UML.Parameters.UML_Parameter_Access
66808             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
66809               (AMF.UML.Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
66810
66811         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
66812            --  ParameterableElement::templateParameter : TemplateParameter
66813
66814            AMF.UML.Parameters.UML_Parameter_Access
66815             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
66816               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
66817
66818         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
66819            --  TypedElement::type : Type
66820
66821            AMF.UML.Parameters.UML_Parameter_Access
66822             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
66823               (AMF.UML.Types.UML_Type_Access (AMF.Holders.Elements.Element (Value)));
66824
66825         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper_Value_A_Owning_Upper then
66826            --  MultiplicityElement::upperValue : ValueSpecification
66827
66828            AMF.UML.Parameters.UML_Parameter_Access
66829             (AMF.Internals.Helpers.To_Element (Self)).Set_Upper_Value
66830               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
66831
66832         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
66833            --  NamedElement::visibility : VisibilityKind
66834
66835            AMF.UML.Parameters.UML_Parameter_Access
66836             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
66837               (AMF.UML.Holders.Element (Value));
66838
66839         else
66840            raise Program_Error;
66841         end if;
66842      end UML_Parameter_Set;
66843
66844      ---------------------------
66845      -- UML_Parameter_Set_Set --
66846      ---------------------------
66847
66848      procedure UML_Parameter_Set_Set is
66849      begin
66850         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
66851            --  NamedElement::name : String
66852
66853            AMF.UML.Parameter_Sets.UML_Parameter_Set_Access
66854             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
66855               (AMF.Holders.Element (Value));
66856
66857         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
66858            --  NamedElement::nameExpression : StringExpression
66859
66860            AMF.UML.Parameter_Sets.UML_Parameter_Set_Access
66861             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
66862               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
66863
66864         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
66865            --  NamedElement::visibility : VisibilityKind
66866
66867            AMF.UML.Parameter_Sets.UML_Parameter_Set_Access
66868             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
66869               (AMF.UML.Holders.Element (Value));
66870
66871         else
66872            raise Program_Error;
66873         end if;
66874      end UML_Parameter_Set_Set;
66875
66876      --------------------------------
66877      -- UML_Part_Decomposition_Set --
66878      --------------------------------
66879
66880      procedure UML_Part_Decomposition_Set is
66881      begin
66882         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Interaction_Interaction_Fragment then
66883            --  InteractionFragment::enclosingInteraction : Interaction
66884
66885            AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access
66886             (AMF.Internals.Helpers.To_Element (Self)).Set_Enclosing_Interaction
66887               (AMF.UML.Interactions.UML_Interaction_Access (AMF.Holders.Elements.Element (Value)));
66888
66889         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Operand_Interaction_Operand_Fragment then
66890            --  InteractionFragment::enclosingOperand : InteractionOperand
66891
66892            AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access
66893             (AMF.Internals.Helpers.To_Element (Self)).Set_Enclosing_Operand
66894               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access (AMF.Holders.Elements.Element (Value)));
66895
66896         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
66897            --  NamedElement::name : String
66898
66899            AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access
66900             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
66901               (AMF.Holders.Element (Value));
66902
66903         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
66904            --  NamedElement::nameExpression : StringExpression
66905
66906            AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access
66907             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
66908               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
66909
66910         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Use_Refers_To_A_Interaction_Use then
66911            --  InteractionUse::refersTo : Interaction
66912
66913            AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access
66914             (AMF.Internals.Helpers.To_Element (Self)).Set_Refers_To
66915               (AMF.UML.Interactions.UML_Interaction_Access (AMF.Holders.Elements.Element (Value)));
66916
66917         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Use_Return_Value_A_Interaction_Use then
66918            --  InteractionUse::returnValue : ValueSpecification
66919
66920            AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access
66921             (AMF.Internals.Helpers.To_Element (Self)).Set_Return_Value
66922               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
66923
66924         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Use_Return_Value_Recipient_A_Interaction_Use then
66925            --  InteractionUse::returnValueRecipient : Property
66926
66927            AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access
66928             (AMF.Internals.Helpers.To_Element (Self)).Set_Return_Value_Recipient
66929               (AMF.UML.Properties.UML_Property_Access (AMF.Holders.Elements.Element (Value)));
66930
66931         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
66932            --  NamedElement::visibility : VisibilityKind
66933
66934            AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access
66935             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
66936               (AMF.UML.Holders.Element (Value));
66937
66938         else
66939            raise Program_Error;
66940         end if;
66941      end UML_Part_Decomposition_Set;
66942
66943      ------------------
66944      -- UML_Port_Set --
66945      ------------------
66946
66947      procedure UML_Port_Set is
66948      begin
66949         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Aggregation then
66950            --  Property::aggregation : AggregationKind
66951
66952            AMF.UML.Ports.UML_Port_Access
66953             (AMF.Internals.Helpers.To_Element (Self)).Set_Aggregation
66954               (AMF.UML.Holders.Aggregation_Kinds.Element (Value));
66955
66956         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Association_Association_Member_End then
66957            --  Property::association : Association
66958
66959            AMF.UML.Ports.UML_Port_Access
66960             (AMF.Internals.Helpers.To_Element (Self)).Set_Association
66961               (AMF.UML.Associations.UML_Association_Access (AMF.Holders.Elements.Element (Value)));
66962
66963         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Association_End_Property_Qualifier then
66964            --  Property::associationEnd : Property
66965
66966            AMF.UML.Ports.UML_Port_Access
66967             (AMF.Internals.Helpers.To_Element (Self)).Set_Association_End
66968               (AMF.UML.Properties.UML_Property_Access (AMF.Holders.Elements.Element (Value)));
66969
66970         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Class_Class_Owned_Attribute then
66971            --  Property::class : Class
66972
66973            AMF.UML.Ports.UML_Port_Access
66974             (AMF.Internals.Helpers.To_Element (Self)).Set_Class
66975               (AMF.UML.Classes.UML_Class_Access (AMF.Holders.Elements.Element (Value)));
66976
66977         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Datatype_Data_Type_Owned_Attribute then
66978            --  Property::datatype : DataType
66979
66980            AMF.UML.Ports.UML_Port_Access
66981             (AMF.Internals.Helpers.To_Element (Self)).Set_Datatype
66982               (AMF.UML.Data_Types.UML_Data_Type_Access (AMF.Holders.Elements.Element (Value)));
66983
66984         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Default_Value_A_Owning_Property then
66985            --  Property::defaultValue : ValueSpecification
66986
66987            AMF.UML.Ports.UML_Port_Access
66988             (AMF.Internals.Helpers.To_Element (Self)).Set_Default_Value
66989               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
66990
66991         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Interface_Interface_Owned_Attribute then
66992            --  Property::interface : Interface
66993
66994            AMF.UML.Ports.UML_Port_Access
66995             (AMF.Internals.Helpers.To_Element (Self)).Set_Interface
66996               (AMF.UML.Interfaces.UML_Interface_Access (AMF.Holders.Elements.Element (Value)));
66997
66998         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Port_Is_Behavior then
66999            --  Port::isBehavior : Boolean
67000
67001            AMF.UML.Ports.UML_Port_Access
67002             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Behavior
67003               (League.Holders.Booleans.Element (Value));
67004
67005         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Port_Is_Conjugated then
67006            --  Port::isConjugated : Boolean
67007
67008            AMF.UML.Ports.UML_Port_Access
67009             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Conjugated
67010               (League.Holders.Booleans.Element (Value));
67011
67012         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Is_Derived then
67013            --  Property::isDerived : Boolean
67014
67015            AMF.UML.Ports.UML_Port_Access
67016             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Derived
67017               (League.Holders.Booleans.Element (Value));
67018
67019         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Is_Derived_Union then
67020            --  Property::isDerivedUnion : Boolean
67021
67022            AMF.UML.Ports.UML_Port_Access
67023             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Derived_Union
67024               (League.Holders.Booleans.Element (Value));
67025
67026         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Is_ID then
67027            --  Property::isID : Boolean
67028
67029            AMF.UML.Ports.UML_Port_Access
67030             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_ID
67031               (League.Holders.Booleans.Element (Value));
67032
67033         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
67034            --  RedefinableElement::isLeaf : Boolean
67035
67036            AMF.UML.Ports.UML_Port_Access
67037             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
67038               (League.Holders.Booleans.Element (Value));
67039
67040         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Ordered then
67041            --  MultiplicityElement::isOrdered : Boolean
67042
67043            AMF.UML.Ports.UML_Port_Access
67044             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Ordered
67045               (League.Holders.Booleans.Element (Value));
67046
67047         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Is_Read_Only then
67048            --  Property::isReadOnly : Boolean
67049
67050            AMF.UML.Ports.UML_Port_Access
67051             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Read_Only
67052               (League.Holders.Booleans.Element (Value));
67053
67054         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structural_Feature_Is_Read_Only then
67055            --  StructuralFeature::isReadOnly : Boolean
67056
67057            AMF.UML.Ports.UML_Port_Access
67058             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Read_Only
67059               (League.Holders.Booleans.Element (Value));
67060
67061         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Port_Is_Service then
67062            --  Port::isService : Boolean
67063
67064            AMF.UML.Ports.UML_Port_Access
67065             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Service
67066               (League.Holders.Booleans.Element (Value));
67067
67068         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Feature_Is_Static then
67069            --  Feature::isStatic : Boolean
67070
67071            AMF.UML.Ports.UML_Port_Access
67072             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Static
67073               (League.Holders.Booleans.Element (Value));
67074
67075         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Unique then
67076            --  MultiplicityElement::isUnique : Boolean
67077
67078            AMF.UML.Ports.UML_Port_Access
67079             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Unique
67080               (League.Holders.Booleans.Element (Value));
67081
67082         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower_Value_A_Owning_Lower then
67083            --  MultiplicityElement::lowerValue : ValueSpecification
67084
67085            AMF.UML.Ports.UML_Port_Access
67086             (AMF.Internals.Helpers.To_Element (Self)).Set_Lower_Value
67087               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
67088
67089         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
67090            --  NamedElement::name : String
67091
67092            AMF.UML.Ports.UML_Port_Access
67093             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
67094               (AMF.Holders.Element (Value));
67095
67096         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
67097            --  NamedElement::nameExpression : StringExpression
67098
67099            AMF.UML.Ports.UML_Port_Access
67100             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
67101               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
67102
67103         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Owning_Association_Association_Owned_End then
67104            --  Property::owningAssociation : Association
67105
67106            AMF.UML.Ports.UML_Port_Access
67107             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Association
67108               (AMF.UML.Associations.UML_Association_Access (AMF.Holders.Elements.Element (Value)));
67109
67110         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
67111            --  ParameterableElement::owningTemplateParameter : TemplateParameter
67112
67113            AMF.UML.Ports.UML_Port_Access
67114             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
67115               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
67116
67117         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Port_Protocol_A_Port then
67118            --  Port::protocol : ProtocolStateMachine
67119
67120            AMF.UML.Ports.UML_Port_Access
67121             (AMF.Internals.Helpers.To_Element (Self)).Set_Protocol
67122               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access (AMF.Holders.Elements.Element (Value)));
67123
67124         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connectable_Element_Template_Parameter_Connectable_Element_Template_Parameter_Parametered_Element then
67125            --  ConnectableElement::templateParameter : ConnectableElementTemplateParameter
67126
67127            AMF.UML.Ports.UML_Port_Access
67128             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
67129               (AMF.UML.Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
67130
67131         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
67132            --  ParameterableElement::templateParameter : TemplateParameter
67133
67134            AMF.UML.Ports.UML_Port_Access
67135             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
67136               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
67137
67138         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
67139            --  TypedElement::type : Type
67140
67141            AMF.UML.Ports.UML_Port_Access
67142             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
67143               (AMF.UML.Types.UML_Type_Access (AMF.Holders.Elements.Element (Value)));
67144
67145         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper_Value_A_Owning_Upper then
67146            --  MultiplicityElement::upperValue : ValueSpecification
67147
67148            AMF.UML.Ports.UML_Port_Access
67149             (AMF.Internals.Helpers.To_Element (Self)).Set_Upper_Value
67150               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
67151
67152         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
67153            --  NamedElement::visibility : VisibilityKind
67154
67155            AMF.UML.Ports.UML_Port_Access
67156             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
67157               (AMF.UML.Holders.Element (Value));
67158
67159         else
67160            raise Program_Error;
67161         end if;
67162      end UML_Port_Set;
67163
67164      ----------------------------
67165      -- UML_Primitive_Type_Set --
67166      ----------------------------
67167
67168      procedure UML_Primitive_Type_Set is
67169      begin
67170         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
67171            --  Classifier::isAbstract : Boolean
67172
67173            AMF.UML.Primitive_Types.UML_Primitive_Type_Access
67174             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
67175               (League.Holders.Booleans.Element (Value));
67176
67177         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
67178            --  Classifier::isFinalSpecialization : Boolean
67179
67180            AMF.UML.Primitive_Types.UML_Primitive_Type_Access
67181             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization
67182               (League.Holders.Booleans.Element (Value));
67183
67184         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
67185            --  RedefinableElement::isLeaf : Boolean
67186
67187            AMF.UML.Primitive_Types.UML_Primitive_Type_Access
67188             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
67189               (League.Holders.Booleans.Element (Value));
67190
67191         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
67192            --  NamedElement::name : String
67193
67194            AMF.UML.Primitive_Types.UML_Primitive_Type_Access
67195             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
67196               (AMF.Holders.Element (Value));
67197
67198         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
67199            --  NamedElement::nameExpression : StringExpression
67200
67201            AMF.UML.Primitive_Types.UML_Primitive_Type_Access
67202             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
67203               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
67204
67205         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
67206            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
67207
67208            AMF.UML.Primitive_Types.UML_Primitive_Type_Access
67209             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
67210               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
67211
67212         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
67213            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
67214
67215            AMF.UML.Primitive_Types.UML_Primitive_Type_Access
67216             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
67217               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
67218
67219         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
67220            --  ParameterableElement::owningTemplateParameter : TemplateParameter
67221
67222            AMF.UML.Primitive_Types.UML_Primitive_Type_Access
67223             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
67224               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
67225
67226         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
67227            --  Type::package : Package
67228
67229            AMF.UML.Primitive_Types.UML_Primitive_Type_Access
67230             (AMF.Internals.Helpers.To_Element (Self)).Set_Package
67231               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
67232
67233         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
67234            --  Classifier::representation : CollaborationUse
67235
67236            AMF.UML.Primitive_Types.UML_Primitive_Type_Access
67237             (AMF.Internals.Helpers.To_Element (Self)).Set_Representation
67238               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access (AMF.Holders.Elements.Element (Value)));
67239
67240         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
67241            --  Classifier::templateParameter : ClassifierTemplateParameter
67242
67243            AMF.UML.Primitive_Types.UML_Primitive_Type_Access
67244             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
67245               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
67246
67247         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
67248            --  ParameterableElement::templateParameter : TemplateParameter
67249
67250            AMF.UML.Primitive_Types.UML_Primitive_Type_Access
67251             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
67252               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
67253
67254         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
67255            --  NamedElement::visibility : VisibilityKind
67256
67257            AMF.UML.Primitive_Types.UML_Primitive_Type_Access
67258             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
67259               (AMF.UML.Holders.Element (Value));
67260
67261         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
67262            --  PackageableElement::visibility : VisibilityKind
67263
67264            AMF.UML.Primitive_Types.UML_Primitive_Type_Access
67265             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
67266               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
67267
67268         else
67269            raise Program_Error;
67270         end if;
67271      end UML_Primitive_Type_Set;
67272
67273      ---------------------
67274      -- UML_Profile_Set --
67275      ---------------------
67276
67277      procedure UML_Profile_Set is
67278      begin
67279         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_URI then
67280            --  Package::URI : String
67281
67282            AMF.UML.Profiles.UML_Profile_Access
67283             (AMF.Internals.Helpers.To_Element (Self)).Set_URI
67284               (AMF.Holders.Element (Value));
67285
67286         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
67287            --  NamedElement::name : String
67288
67289            AMF.UML.Profiles.UML_Profile_Access
67290             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
67291               (AMF.Holders.Element (Value));
67292
67293         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
67294            --  NamedElement::nameExpression : StringExpression
67295
67296            AMF.UML.Profiles.UML_Profile_Access
67297             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
67298               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
67299
67300         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_Nesting_Package_Package_Nested_Package then
67301            --  Package::nestingPackage : Package
67302
67303            AMF.UML.Profiles.UML_Profile_Access
67304             (AMF.Internals.Helpers.To_Element (Self)).Set_Nesting_Package
67305               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
67306
67307         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
67308            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
67309
67310            AMF.UML.Profiles.UML_Profile_Access
67311             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
67312               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
67313
67314         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
67315            --  ParameterableElement::owningTemplateParameter : TemplateParameter
67316
67317            AMF.UML.Profiles.UML_Profile_Access
67318             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
67319               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
67320
67321         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
67322            --  ParameterableElement::templateParameter : TemplateParameter
67323
67324            AMF.UML.Profiles.UML_Profile_Access
67325             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
67326               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
67327
67328         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
67329            --  NamedElement::visibility : VisibilityKind
67330
67331            AMF.UML.Profiles.UML_Profile_Access
67332             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
67333               (AMF.UML.Holders.Element (Value));
67334
67335         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
67336            --  PackageableElement::visibility : VisibilityKind
67337
67338            AMF.UML.Profiles.UML_Profile_Access
67339             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
67340               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
67341
67342         else
67343            raise Program_Error;
67344         end if;
67345      end UML_Profile_Set;
67346
67347      ---------------------------------
67348      -- UML_Profile_Application_Set --
67349      ---------------------------------
67350
67351      procedure UML_Profile_Application_Set is
67352      begin
67353         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Profile_Application_Applied_Profile_A_Profile_Application then
67354            --  ProfileApplication::appliedProfile : Profile
67355
67356            AMF.UML.Profile_Applications.UML_Profile_Application_Access
67357             (AMF.Internals.Helpers.To_Element (Self)).Set_Applied_Profile
67358               (AMF.UML.Profiles.UML_Profile_Access (AMF.Holders.Elements.Element (Value)));
67359
67360         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Profile_Application_Applying_Package_Package_Profile_Application then
67361            --  ProfileApplication::applyingPackage : Package
67362
67363            AMF.UML.Profile_Applications.UML_Profile_Application_Access
67364             (AMF.Internals.Helpers.To_Element (Self)).Set_Applying_Package
67365               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
67366
67367         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Profile_Application_Is_Strict then
67368            --  ProfileApplication::isStrict : Boolean
67369
67370            AMF.UML.Profile_Applications.UML_Profile_Application_Access
67371             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Strict
67372               (League.Holders.Booleans.Element (Value));
67373
67374         else
67375            raise Program_Error;
67376         end if;
67377      end UML_Profile_Application_Set;
67378
67379      ----------------------
67380      -- UML_Property_Set --
67381      ----------------------
67382
67383      procedure UML_Property_Set is
67384      begin
67385         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Aggregation then
67386            --  Property::aggregation : AggregationKind
67387
67388            AMF.UML.Properties.UML_Property_Access
67389             (AMF.Internals.Helpers.To_Element (Self)).Set_Aggregation
67390               (AMF.UML.Holders.Aggregation_Kinds.Element (Value));
67391
67392         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Association_Association_Member_End then
67393            --  Property::association : Association
67394
67395            AMF.UML.Properties.UML_Property_Access
67396             (AMF.Internals.Helpers.To_Element (Self)).Set_Association
67397               (AMF.UML.Associations.UML_Association_Access (AMF.Holders.Elements.Element (Value)));
67398
67399         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Association_End_Property_Qualifier then
67400            --  Property::associationEnd : Property
67401
67402            AMF.UML.Properties.UML_Property_Access
67403             (AMF.Internals.Helpers.To_Element (Self)).Set_Association_End
67404               (AMF.UML.Properties.UML_Property_Access (AMF.Holders.Elements.Element (Value)));
67405
67406         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Class_Class_Owned_Attribute then
67407            --  Property::class : Class
67408
67409            AMF.UML.Properties.UML_Property_Access
67410             (AMF.Internals.Helpers.To_Element (Self)).Set_Class
67411               (AMF.UML.Classes.UML_Class_Access (AMF.Holders.Elements.Element (Value)));
67412
67413         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Datatype_Data_Type_Owned_Attribute then
67414            --  Property::datatype : DataType
67415
67416            AMF.UML.Properties.UML_Property_Access
67417             (AMF.Internals.Helpers.To_Element (Self)).Set_Datatype
67418               (AMF.UML.Data_Types.UML_Data_Type_Access (AMF.Holders.Elements.Element (Value)));
67419
67420         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Default_Value_A_Owning_Property then
67421            --  Property::defaultValue : ValueSpecification
67422
67423            AMF.UML.Properties.UML_Property_Access
67424             (AMF.Internals.Helpers.To_Element (Self)).Set_Default_Value
67425               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
67426
67427         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Interface_Interface_Owned_Attribute then
67428            --  Property::interface : Interface
67429
67430            AMF.UML.Properties.UML_Property_Access
67431             (AMF.Internals.Helpers.To_Element (Self)).Set_Interface
67432               (AMF.UML.Interfaces.UML_Interface_Access (AMF.Holders.Elements.Element (Value)));
67433
67434         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Is_Derived then
67435            --  Property::isDerived : Boolean
67436
67437            AMF.UML.Properties.UML_Property_Access
67438             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Derived
67439               (League.Holders.Booleans.Element (Value));
67440
67441         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Is_Derived_Union then
67442            --  Property::isDerivedUnion : Boolean
67443
67444            AMF.UML.Properties.UML_Property_Access
67445             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Derived_Union
67446               (League.Holders.Booleans.Element (Value));
67447
67448         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Is_ID then
67449            --  Property::isID : Boolean
67450
67451            AMF.UML.Properties.UML_Property_Access
67452             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_ID
67453               (League.Holders.Booleans.Element (Value));
67454
67455         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
67456            --  RedefinableElement::isLeaf : Boolean
67457
67458            AMF.UML.Properties.UML_Property_Access
67459             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
67460               (League.Holders.Booleans.Element (Value));
67461
67462         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Ordered then
67463            --  MultiplicityElement::isOrdered : Boolean
67464
67465            AMF.UML.Properties.UML_Property_Access
67466             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Ordered
67467               (League.Holders.Booleans.Element (Value));
67468
67469         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Is_Read_Only then
67470            --  Property::isReadOnly : Boolean
67471
67472            AMF.UML.Properties.UML_Property_Access
67473             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Read_Only
67474               (League.Holders.Booleans.Element (Value));
67475
67476         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structural_Feature_Is_Read_Only then
67477            --  StructuralFeature::isReadOnly : Boolean
67478
67479            AMF.UML.Properties.UML_Property_Access
67480             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Read_Only
67481               (League.Holders.Booleans.Element (Value));
67482
67483         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Feature_Is_Static then
67484            --  Feature::isStatic : Boolean
67485
67486            AMF.UML.Properties.UML_Property_Access
67487             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Static
67488               (League.Holders.Booleans.Element (Value));
67489
67490         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Unique then
67491            --  MultiplicityElement::isUnique : Boolean
67492
67493            AMF.UML.Properties.UML_Property_Access
67494             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Unique
67495               (League.Holders.Booleans.Element (Value));
67496
67497         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower_Value_A_Owning_Lower then
67498            --  MultiplicityElement::lowerValue : ValueSpecification
67499
67500            AMF.UML.Properties.UML_Property_Access
67501             (AMF.Internals.Helpers.To_Element (Self)).Set_Lower_Value
67502               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
67503
67504         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
67505            --  NamedElement::name : String
67506
67507            AMF.UML.Properties.UML_Property_Access
67508             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
67509               (AMF.Holders.Element (Value));
67510
67511         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
67512            --  NamedElement::nameExpression : StringExpression
67513
67514            AMF.UML.Properties.UML_Property_Access
67515             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
67516               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
67517
67518         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Owning_Association_Association_Owned_End then
67519            --  Property::owningAssociation : Association
67520
67521            AMF.UML.Properties.UML_Property_Access
67522             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Association
67523               (AMF.UML.Associations.UML_Association_Access (AMF.Holders.Elements.Element (Value)));
67524
67525         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
67526            --  ParameterableElement::owningTemplateParameter : TemplateParameter
67527
67528            AMF.UML.Properties.UML_Property_Access
67529             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
67530               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
67531
67532         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connectable_Element_Template_Parameter_Connectable_Element_Template_Parameter_Parametered_Element then
67533            --  ConnectableElement::templateParameter : ConnectableElementTemplateParameter
67534
67535            AMF.UML.Properties.UML_Property_Access
67536             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
67537               (AMF.UML.Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
67538
67539         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
67540            --  ParameterableElement::templateParameter : TemplateParameter
67541
67542            AMF.UML.Properties.UML_Property_Access
67543             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
67544               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
67545
67546         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
67547            --  TypedElement::type : Type
67548
67549            AMF.UML.Properties.UML_Property_Access
67550             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
67551               (AMF.UML.Types.UML_Type_Access (AMF.Holders.Elements.Element (Value)));
67552
67553         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper_Value_A_Owning_Upper then
67554            --  MultiplicityElement::upperValue : ValueSpecification
67555
67556            AMF.UML.Properties.UML_Property_Access
67557             (AMF.Internals.Helpers.To_Element (Self)).Set_Upper_Value
67558               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
67559
67560         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
67561            --  NamedElement::visibility : VisibilityKind
67562
67563            AMF.UML.Properties.UML_Property_Access
67564             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
67565               (AMF.UML.Holders.Element (Value));
67566
67567         else
67568            raise Program_Error;
67569         end if;
67570      end UML_Property_Set;
67571
67572      ----------------------------------
67573      -- UML_Protocol_Conformance_Set --
67574      ----------------------------------
67575
67576      procedure UML_Protocol_Conformance_Set is
67577      begin
67578         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Protocol_Conformance_General_Machine_A_Protocol_Conformance then
67579            --  ProtocolConformance::generalMachine : ProtocolStateMachine
67580
67581            AMF.UML.Protocol_Conformances.UML_Protocol_Conformance_Access
67582             (AMF.Internals.Helpers.To_Element (Self)).Set_General_Machine
67583               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access (AMF.Holders.Elements.Element (Value)));
67584
67585         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Protocol_Conformance_Specific_Machine_Protocol_State_Machine_Conformance then
67586            --  ProtocolConformance::specificMachine : ProtocolStateMachine
67587
67588            AMF.UML.Protocol_Conformances.UML_Protocol_Conformance_Access
67589             (AMF.Internals.Helpers.To_Element (Self)).Set_Specific_Machine
67590               (AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access (AMF.Holders.Elements.Element (Value)));
67591
67592         else
67593            raise Program_Error;
67594         end if;
67595      end UML_Protocol_Conformance_Set;
67596
67597      ------------------------------------
67598      -- UML_Protocol_State_Machine_Set --
67599      ------------------------------------
67600
67601      procedure UML_Protocol_State_Machine_Set is
67602      begin
67603         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
67604            --  BehavioredClassifier::classifierBehavior : Behavior
67605
67606            AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
67607             (AMF.Internals.Helpers.To_Element (Self)).Set_Classifier_Behavior
67608               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
67609
67610         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Abstract then
67611            --  Class::isAbstract : Boolean
67612
67613            AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
67614             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
67615               (League.Holders.Booleans.Element (Value));
67616
67617         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
67618            --  Classifier::isAbstract : Boolean
67619
67620            AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
67621             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
67622               (League.Holders.Booleans.Element (Value));
67623
67624         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Active then
67625            --  Class::isActive : Boolean
67626
67627            AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
67628             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Active
67629               (League.Holders.Booleans.Element (Value));
67630
67631         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
67632            --  Classifier::isFinalSpecialization : Boolean
67633
67634            AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
67635             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization
67636               (League.Holders.Booleans.Element (Value));
67637
67638         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
67639            --  RedefinableElement::isLeaf : Boolean
67640
67641            AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
67642             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
67643               (League.Holders.Booleans.Element (Value));
67644
67645         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Is_Reentrant then
67646            --  Behavior::isReentrant : Boolean
67647
67648            AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
67649             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Reentrant
67650               (League.Holders.Booleans.Element (Value));
67651
67652         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
67653            --  NamedElement::name : String
67654
67655            AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
67656             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
67657               (AMF.Holders.Element (Value));
67658
67659         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
67660            --  NamedElement::nameExpression : StringExpression
67661
67662            AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
67663             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
67664               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
67665
67666         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
67667            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
67668
67669            AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
67670             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
67671               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
67672
67673         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
67674            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
67675
67676            AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
67677             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
67678               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
67679
67680         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
67681            --  ParameterableElement::owningTemplateParameter : TemplateParameter
67682
67683            AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
67684             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
67685               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
67686
67687         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
67688            --  Type::package : Package
67689
67690            AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
67691             (AMF.Internals.Helpers.To_Element (Self)).Set_Package
67692               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
67693
67694         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
67695            --  Classifier::representation : CollaborationUse
67696
67697            AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
67698             (AMF.Internals.Helpers.To_Element (Self)).Set_Representation
67699               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access (AMF.Holders.Elements.Element (Value)));
67700
67701         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Specification_Behavioral_Feature_Method then
67702            --  Behavior::specification : BehavioralFeature
67703
67704            AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
67705             (AMF.Internals.Helpers.To_Element (Self)).Set_Specification
67706               (AMF.UML.Behavioral_Features.UML_Behavioral_Feature_Access (AMF.Holders.Elements.Element (Value)));
67707
67708         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
67709            --  Classifier::templateParameter : ClassifierTemplateParameter
67710
67711            AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
67712             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
67713               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
67714
67715         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
67716            --  ParameterableElement::templateParameter : TemplateParameter
67717
67718            AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
67719             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
67720               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
67721
67722         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
67723            --  NamedElement::visibility : VisibilityKind
67724
67725            AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
67726             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
67727               (AMF.UML.Holders.Element (Value));
67728
67729         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
67730            --  PackageableElement::visibility : VisibilityKind
67731
67732            AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access
67733             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
67734               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
67735
67736         else
67737            raise Program_Error;
67738         end if;
67739      end UML_Protocol_State_Machine_Set;
67740
67741      ---------------------------------
67742      -- UML_Protocol_Transition_Set --
67743      ---------------------------------
67744
67745      procedure UML_Protocol_Transition_Set is
67746      begin
67747         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Container_Region_Transition then
67748            --  Transition::container : Region
67749
67750            AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
67751             (AMF.Internals.Helpers.To_Element (Self)).Set_Container
67752               (AMF.UML.Regions.UML_Region_Access (AMF.Holders.Elements.Element (Value)));
67753
67754         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Effect_A_Transition then
67755            --  Transition::effect : Behavior
67756
67757            AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
67758             (AMF.Internals.Helpers.To_Element (Self)).Set_Effect
67759               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
67760
67761         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Guard_A_Transition then
67762            --  Transition::guard : Constraint
67763
67764            AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
67765             (AMF.Internals.Helpers.To_Element (Self)).Set_Guard
67766               (AMF.UML.Constraints.UML_Constraint_Access (AMF.Holders.Elements.Element (Value)));
67767
67768         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
67769            --  RedefinableElement::isLeaf : Boolean
67770
67771            AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
67772             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
67773               (League.Holders.Booleans.Element (Value));
67774
67775         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Kind then
67776            --  Transition::kind : TransitionKind
67777
67778            AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
67779             (AMF.Internals.Helpers.To_Element (Self)).Set_Kind
67780               (AMF.UML.Holders.Transition_Kinds.Element (Value));
67781
67782         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
67783            --  NamedElement::name : String
67784
67785            AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
67786             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
67787               (AMF.Holders.Element (Value));
67788
67789         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
67790            --  NamedElement::nameExpression : StringExpression
67791
67792            AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
67793             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
67794               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
67795
67796         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Protocol_Transition_Post_Condition_A_Owning_Transition then
67797            --  ProtocolTransition::postCondition : Constraint
67798
67799            AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
67800             (AMF.Internals.Helpers.To_Element (Self)).Set_Post_Condition
67801               (AMF.UML.Constraints.UML_Constraint_Access (AMF.Holders.Elements.Element (Value)));
67802
67803         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Protocol_Transition_Pre_Condition_A_Protocol_Transition then
67804            --  ProtocolTransition::preCondition : Constraint
67805
67806            AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
67807             (AMF.Internals.Helpers.To_Element (Self)).Set_Pre_Condition
67808               (AMF.UML.Constraints.UML_Constraint_Access (AMF.Holders.Elements.Element (Value)));
67809
67810         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Redefined_Transition_A_Transition then
67811            --  Transition::redefinedTransition : Transition
67812
67813            AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
67814             (AMF.Internals.Helpers.To_Element (Self)).Set_Redefined_Transition
67815               (AMF.UML.Transitions.UML_Transition_Access (AMF.Holders.Elements.Element (Value)));
67816
67817         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Source_Vertex_Outgoing then
67818            --  Transition::source : Vertex
67819
67820            AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
67821             (AMF.Internals.Helpers.To_Element (Self)).Set_Source
67822               (AMF.UML.Vertexs.UML_Vertex_Access (AMF.Holders.Elements.Element (Value)));
67823
67824         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Target_Vertex_Incoming then
67825            --  Transition::target : Vertex
67826
67827            AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
67828             (AMF.Internals.Helpers.To_Element (Self)).Set_Target
67829               (AMF.UML.Vertexs.UML_Vertex_Access (AMF.Holders.Elements.Element (Value)));
67830
67831         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
67832            --  NamedElement::visibility : VisibilityKind
67833
67834            AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access
67835             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
67836               (AMF.UML.Holders.Element (Value));
67837
67838         else
67839            raise Program_Error;
67840         end if;
67841      end UML_Protocol_Transition_Set;
67842
67843      -------------------------
67844      -- UML_Pseudostate_Set --
67845      -------------------------
67846
67847      procedure UML_Pseudostate_Set is
67848      begin
67849         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Vertex_Container_Region_Subvertex then
67850            --  Vertex::container : Region
67851
67852            AMF.UML.Pseudostates.UML_Pseudostate_Access
67853             (AMF.Internals.Helpers.To_Element (Self)).Set_Container
67854               (AMF.UML.Regions.UML_Region_Access (AMF.Holders.Elements.Element (Value)));
67855
67856         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Pseudostate_Kind then
67857            --  Pseudostate::kind : PseudostateKind
67858
67859            AMF.UML.Pseudostates.UML_Pseudostate_Access
67860             (AMF.Internals.Helpers.To_Element (Self)).Set_Kind
67861               (AMF.UML.Holders.Pseudostate_Kinds.Element (Value));
67862
67863         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
67864            --  NamedElement::name : String
67865
67866            AMF.UML.Pseudostates.UML_Pseudostate_Access
67867             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
67868               (AMF.Holders.Element (Value));
67869
67870         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
67871            --  NamedElement::nameExpression : StringExpression
67872
67873            AMF.UML.Pseudostates.UML_Pseudostate_Access
67874             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
67875               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
67876
67877         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Pseudostate_State_State_Connection_Point then
67878            --  Pseudostate::state : State
67879
67880            AMF.UML.Pseudostates.UML_Pseudostate_Access
67881             (AMF.Internals.Helpers.To_Element (Self)).Set_State
67882               (AMF.UML.States.UML_State_Access (AMF.Holders.Elements.Element (Value)));
67883
67884         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Pseudostate_State_Machine_State_Machine_Connection_Point then
67885            --  Pseudostate::stateMachine : StateMachine
67886
67887            AMF.UML.Pseudostates.UML_Pseudostate_Access
67888             (AMF.Internals.Helpers.To_Element (Self)).Set_State_Machine
67889               (AMF.UML.State_Machines.UML_State_Machine_Access (AMF.Holders.Elements.Element (Value)));
67890
67891         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
67892            --  NamedElement::visibility : VisibilityKind
67893
67894            AMF.UML.Pseudostates.UML_Pseudostate_Access
67895             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
67896               (AMF.UML.Holders.Element (Value));
67897
67898         else
67899            raise Program_Error;
67900         end if;
67901      end UML_Pseudostate_Set;
67902
67903      -----------------------------
67904      -- UML_Qualifier_Value_Set --
67905      -----------------------------
67906
67907      procedure UML_Qualifier_Value_Set is
67908      begin
67909         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Qualifier_Value_Qualifier_A_Qualifier_Value then
67910            --  QualifierValue::qualifier : Property
67911
67912            AMF.UML.Qualifier_Values.UML_Qualifier_Value_Access
67913             (AMF.Internals.Helpers.To_Element (Self)).Set_Qualifier
67914               (AMF.UML.Properties.UML_Property_Access (AMF.Holders.Elements.Element (Value)));
67915
67916         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Qualifier_Value_Value_A_Qualifier_Value then
67917            --  QualifierValue::value : InputPin
67918
67919            AMF.UML.Qualifier_Values.UML_Qualifier_Value_Access
67920             (AMF.Internals.Helpers.To_Element (Self)).Set_Value
67921               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
67922
67923         else
67924            raise Program_Error;
67925         end if;
67926      end UML_Qualifier_Value_Set;
67927
67928      ------------------------------------
67929      -- UML_Raise_Exception_Action_Set --
67930      ------------------------------------
67931
67932      procedure UML_Raise_Exception_Action_Set is
67933      begin
67934         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
67935            --  ActivityNode::activity : Activity
67936
67937            AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
67938             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
67939               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
67940
67941         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Raise_Exception_Action_Exception_A_Raise_Exception_Action then
67942            --  RaiseExceptionAction::exception : InputPin
67943
67944            AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
67945             (AMF.Internals.Helpers.To_Element (Self)).Set_Exception
67946               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
67947
67948         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
67949            --  ActivityNode::inStructuredNode : StructuredActivityNode
67950
67951            AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
67952             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
67953               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
67954
67955         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
67956            --  RedefinableElement::isLeaf : Boolean
67957
67958            AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
67959             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
67960               (League.Holders.Booleans.Element (Value));
67961
67962         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
67963            --  Action::isLocallyReentrant : Boolean
67964
67965            AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
67966             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
67967               (League.Holders.Booleans.Element (Value));
67968
67969         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
67970            --  NamedElement::name : String
67971
67972            AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
67973             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
67974               (AMF.Holders.Element (Value));
67975
67976         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
67977            --  NamedElement::nameExpression : StringExpression
67978
67979            AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
67980             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
67981               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
67982
67983         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
67984            --  NamedElement::visibility : VisibilityKind
67985
67986            AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access
67987             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
67988               (AMF.UML.Holders.Element (Value));
67989
67990         else
67991            raise Program_Error;
67992         end if;
67993      end UML_Raise_Exception_Action_Set;
67994
67995      --------------------------------
67996      -- UML_Read_Extent_Action_Set --
67997      --------------------------------
67998
67999      procedure UML_Read_Extent_Action_Set is
68000      begin
68001         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
68002            --  ActivityNode::activity : Activity
68003
68004            AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
68005             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
68006               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
68007
68008         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Extent_Action_Classifier_A_Read_Extent_Action then
68009            --  ReadExtentAction::classifier : Classifier
68010
68011            AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
68012             (AMF.Internals.Helpers.To_Element (Self)).Set_Classifier
68013               (AMF.UML.Classifiers.UML_Classifier_Access (AMF.Holders.Elements.Element (Value)));
68014
68015         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
68016            --  ActivityNode::inStructuredNode : StructuredActivityNode
68017
68018            AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
68019             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
68020               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
68021
68022         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
68023            --  RedefinableElement::isLeaf : Boolean
68024
68025            AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
68026             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
68027               (League.Holders.Booleans.Element (Value));
68028
68029         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
68030            --  Action::isLocallyReentrant : Boolean
68031
68032            AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
68033             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
68034               (League.Holders.Booleans.Element (Value));
68035
68036         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
68037            --  NamedElement::name : String
68038
68039            AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
68040             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
68041               (AMF.Holders.Element (Value));
68042
68043         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
68044            --  NamedElement::nameExpression : StringExpression
68045
68046            AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
68047             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
68048               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
68049
68050         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Extent_Action_Result_A_Read_Extent_Action then
68051            --  ReadExtentAction::result : OutputPin
68052
68053            AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
68054             (AMF.Internals.Helpers.To_Element (Self)).Set_Result
68055               (AMF.UML.Output_Pins.UML_Output_Pin_Access (AMF.Holders.Elements.Element (Value)));
68056
68057         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
68058            --  NamedElement::visibility : VisibilityKind
68059
68060            AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access
68061             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
68062               (AMF.UML.Holders.Element (Value));
68063
68064         else
68065            raise Program_Error;
68066         end if;
68067      end UML_Read_Extent_Action_Set;
68068
68069      ----------------------------------------------
68070      -- UML_Read_Is_Classified_Object_Action_Set --
68071      ----------------------------------------------
68072
68073      procedure UML_Read_Is_Classified_Object_Action_Set is
68074      begin
68075         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
68076            --  ActivityNode::activity : Activity
68077
68078            AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
68079             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
68080               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
68081
68082         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Is_Classified_Object_Action_Classifier_A_Read_Is_Classified_Object_Action then
68083            --  ReadIsClassifiedObjectAction::classifier : Classifier
68084
68085            AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
68086             (AMF.Internals.Helpers.To_Element (Self)).Set_Classifier
68087               (AMF.UML.Classifiers.UML_Classifier_Access (AMF.Holders.Elements.Element (Value)));
68088
68089         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
68090            --  ActivityNode::inStructuredNode : StructuredActivityNode
68091
68092            AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
68093             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
68094               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
68095
68096         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Is_Classified_Object_Action_Is_Direct then
68097            --  ReadIsClassifiedObjectAction::isDirect : Boolean
68098
68099            AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
68100             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Direct
68101               (League.Holders.Booleans.Element (Value));
68102
68103         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
68104            --  RedefinableElement::isLeaf : Boolean
68105
68106            AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
68107             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
68108               (League.Holders.Booleans.Element (Value));
68109
68110         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
68111            --  Action::isLocallyReentrant : Boolean
68112
68113            AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
68114             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
68115               (League.Holders.Booleans.Element (Value));
68116
68117         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
68118            --  NamedElement::name : String
68119
68120            AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
68121             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
68122               (AMF.Holders.Element (Value));
68123
68124         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
68125            --  NamedElement::nameExpression : StringExpression
68126
68127            AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
68128             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
68129               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
68130
68131         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Is_Classified_Object_Action_Object_A_Read_Is_Classified_Object_Action then
68132            --  ReadIsClassifiedObjectAction::object : InputPin
68133
68134            AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
68135             (AMF.Internals.Helpers.To_Element (Self)).Set_Object
68136               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
68137
68138         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Is_Classified_Object_Action_Result_A_Read_Is_Classified_Object_Action then
68139            --  ReadIsClassifiedObjectAction::result : OutputPin
68140
68141            AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
68142             (AMF.Internals.Helpers.To_Element (Self)).Set_Result
68143               (AMF.UML.Output_Pins.UML_Output_Pin_Access (AMF.Holders.Elements.Element (Value)));
68144
68145         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
68146            --  NamedElement::visibility : VisibilityKind
68147
68148            AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access
68149             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
68150               (AMF.UML.Holders.Element (Value));
68151
68152         else
68153            raise Program_Error;
68154         end if;
68155      end UML_Read_Is_Classified_Object_Action_Set;
68156
68157      ------------------------------
68158      -- UML_Read_Link_Action_Set --
68159      ------------------------------
68160
68161      procedure UML_Read_Link_Action_Set is
68162      begin
68163         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
68164            --  ActivityNode::activity : Activity
68165
68166            AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
68167             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
68168               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
68169
68170         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
68171            --  ActivityNode::inStructuredNode : StructuredActivityNode
68172
68173            AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
68174             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
68175               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
68176
68177         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
68178            --  RedefinableElement::isLeaf : Boolean
68179
68180            AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
68181             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
68182               (League.Holders.Booleans.Element (Value));
68183
68184         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
68185            --  Action::isLocallyReentrant : Boolean
68186
68187            AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
68188             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
68189               (League.Holders.Booleans.Element (Value));
68190
68191         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
68192            --  NamedElement::name : String
68193
68194            AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
68195             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
68196               (AMF.Holders.Element (Value));
68197
68198         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
68199            --  NamedElement::nameExpression : StringExpression
68200
68201            AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
68202             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
68203               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
68204
68205         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Link_Action_Result_A_Read_Link_Action then
68206            --  ReadLinkAction::result : OutputPin
68207
68208            AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
68209             (AMF.Internals.Helpers.To_Element (Self)).Set_Result
68210               (AMF.UML.Output_Pins.UML_Output_Pin_Access (AMF.Holders.Elements.Element (Value)));
68211
68212         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
68213            --  NamedElement::visibility : VisibilityKind
68214
68215            AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access
68216             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
68217               (AMF.UML.Holders.Element (Value));
68218
68219         else
68220            raise Program_Error;
68221         end if;
68222      end UML_Read_Link_Action_Set;
68223
68224      -----------------------------------------
68225      -- UML_Read_Link_Object_End_Action_Set --
68226      -----------------------------------------
68227
68228      procedure UML_Read_Link_Object_End_Action_Set is
68229      begin
68230         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
68231            --  ActivityNode::activity : Activity
68232
68233            AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
68234             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
68235               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
68236
68237         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Link_Object_End_Action_End_A_Read_Link_Object_End_Action then
68238            --  ReadLinkObjectEndAction::end : Property
68239
68240            AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
68241             (AMF.Internals.Helpers.To_Element (Self)).Set_End
68242               (AMF.UML.Properties.UML_Property_Access (AMF.Holders.Elements.Element (Value)));
68243
68244         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
68245            --  ActivityNode::inStructuredNode : StructuredActivityNode
68246
68247            AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
68248             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
68249               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
68250
68251         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
68252            --  RedefinableElement::isLeaf : Boolean
68253
68254            AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
68255             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
68256               (League.Holders.Booleans.Element (Value));
68257
68258         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
68259            --  Action::isLocallyReentrant : Boolean
68260
68261            AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
68262             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
68263               (League.Holders.Booleans.Element (Value));
68264
68265         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
68266            --  NamedElement::name : String
68267
68268            AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
68269             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
68270               (AMF.Holders.Element (Value));
68271
68272         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
68273            --  NamedElement::nameExpression : StringExpression
68274
68275            AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
68276             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
68277               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
68278
68279         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Link_Object_End_Action_Object_A_Read_Link_Object_End_Action then
68280            --  ReadLinkObjectEndAction::object : InputPin
68281
68282            AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
68283             (AMF.Internals.Helpers.To_Element (Self)).Set_Object
68284               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
68285
68286         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Link_Object_End_Action_Result_A_Read_Link_Object_End_Action then
68287            --  ReadLinkObjectEndAction::result : OutputPin
68288
68289            AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
68290             (AMF.Internals.Helpers.To_Element (Self)).Set_Result
68291               (AMF.UML.Output_Pins.UML_Output_Pin_Access (AMF.Holders.Elements.Element (Value)));
68292
68293         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
68294            --  NamedElement::visibility : VisibilityKind
68295
68296            AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access
68297             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
68298               (AMF.UML.Holders.Element (Value));
68299
68300         else
68301            raise Program_Error;
68302         end if;
68303      end UML_Read_Link_Object_End_Action_Set;
68304
68305      ---------------------------------------------------
68306      -- UML_Read_Link_Object_End_Qualifier_Action_Set --
68307      ---------------------------------------------------
68308
68309      procedure UML_Read_Link_Object_End_Qualifier_Action_Set is
68310      begin
68311         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
68312            --  ActivityNode::activity : Activity
68313
68314            AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
68315             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
68316               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
68317
68318         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
68319            --  ActivityNode::inStructuredNode : StructuredActivityNode
68320
68321            AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
68322             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
68323               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
68324
68325         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
68326            --  RedefinableElement::isLeaf : Boolean
68327
68328            AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
68329             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
68330               (League.Holders.Booleans.Element (Value));
68331
68332         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
68333            --  Action::isLocallyReentrant : Boolean
68334
68335            AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
68336             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
68337               (League.Holders.Booleans.Element (Value));
68338
68339         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
68340            --  NamedElement::name : String
68341
68342            AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
68343             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
68344               (AMF.Holders.Element (Value));
68345
68346         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
68347            --  NamedElement::nameExpression : StringExpression
68348
68349            AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
68350             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
68351               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
68352
68353         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Link_Object_End_Qualifier_Action_Object_A_Read_Link_Object_End_Qualifier_Action then
68354            --  ReadLinkObjectEndQualifierAction::object : InputPin
68355
68356            AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
68357             (AMF.Internals.Helpers.To_Element (Self)).Set_Object
68358               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
68359
68360         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Link_Object_End_Qualifier_Action_Qualifier_A_Read_Link_Object_End_Qualifier_Action then
68361            --  ReadLinkObjectEndQualifierAction::qualifier : Property
68362
68363            AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
68364             (AMF.Internals.Helpers.To_Element (Self)).Set_Qualifier
68365               (AMF.UML.Properties.UML_Property_Access (AMF.Holders.Elements.Element (Value)));
68366
68367         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Link_Object_End_Qualifier_Action_Result_A_Read_Link_Object_End_Qualifier_Action then
68368            --  ReadLinkObjectEndQualifierAction::result : OutputPin
68369
68370            AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
68371             (AMF.Internals.Helpers.To_Element (Self)).Set_Result
68372               (AMF.UML.Output_Pins.UML_Output_Pin_Access (AMF.Holders.Elements.Element (Value)));
68373
68374         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
68375            --  NamedElement::visibility : VisibilityKind
68376
68377            AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access
68378             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
68379               (AMF.UML.Holders.Element (Value));
68380
68381         else
68382            raise Program_Error;
68383         end if;
68384      end UML_Read_Link_Object_End_Qualifier_Action_Set;
68385
68386      ------------------------------
68387      -- UML_Read_Self_Action_Set --
68388      ------------------------------
68389
68390      procedure UML_Read_Self_Action_Set is
68391      begin
68392         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
68393            --  ActivityNode::activity : Activity
68394
68395            AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
68396             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
68397               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
68398
68399         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
68400            --  ActivityNode::inStructuredNode : StructuredActivityNode
68401
68402            AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
68403             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
68404               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
68405
68406         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
68407            --  RedefinableElement::isLeaf : Boolean
68408
68409            AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
68410             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
68411               (League.Holders.Booleans.Element (Value));
68412
68413         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
68414            --  Action::isLocallyReentrant : Boolean
68415
68416            AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
68417             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
68418               (League.Holders.Booleans.Element (Value));
68419
68420         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
68421            --  NamedElement::name : String
68422
68423            AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
68424             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
68425               (AMF.Holders.Element (Value));
68426
68427         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
68428            --  NamedElement::nameExpression : StringExpression
68429
68430            AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
68431             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
68432               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
68433
68434         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Self_Action_Result_A_Read_Self_Action then
68435            --  ReadSelfAction::result : OutputPin
68436
68437            AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
68438             (AMF.Internals.Helpers.To_Element (Self)).Set_Result
68439               (AMF.UML.Output_Pins.UML_Output_Pin_Access (AMF.Holders.Elements.Element (Value)));
68440
68441         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
68442            --  NamedElement::visibility : VisibilityKind
68443
68444            AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access
68445             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
68446               (AMF.UML.Holders.Element (Value));
68447
68448         else
68449            raise Program_Error;
68450         end if;
68451      end UML_Read_Self_Action_Set;
68452
68453      --------------------------------------------
68454      -- UML_Read_Structural_Feature_Action_Set --
68455      --------------------------------------------
68456
68457      procedure UML_Read_Structural_Feature_Action_Set is
68458      begin
68459         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
68460            --  ActivityNode::activity : Activity
68461
68462            AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
68463             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
68464               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
68465
68466         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
68467            --  ActivityNode::inStructuredNode : StructuredActivityNode
68468
68469            AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
68470             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
68471               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
68472
68473         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
68474            --  RedefinableElement::isLeaf : Boolean
68475
68476            AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
68477             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
68478               (League.Holders.Booleans.Element (Value));
68479
68480         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
68481            --  Action::isLocallyReentrant : Boolean
68482
68483            AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
68484             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
68485               (League.Holders.Booleans.Element (Value));
68486
68487         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
68488            --  NamedElement::name : String
68489
68490            AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
68491             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
68492               (AMF.Holders.Element (Value));
68493
68494         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
68495            --  NamedElement::nameExpression : StringExpression
68496
68497            AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
68498             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
68499               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
68500
68501         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structural_Feature_Action_Object_A_Structural_Feature_Action then
68502            --  StructuralFeatureAction::object : InputPin
68503
68504            AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
68505             (AMF.Internals.Helpers.To_Element (Self)).Set_Object
68506               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
68507
68508         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Structural_Feature_Action_Result_A_Read_Structural_Feature_Action then
68509            --  ReadStructuralFeatureAction::result : OutputPin
68510
68511            AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
68512             (AMF.Internals.Helpers.To_Element (Self)).Set_Result
68513               (AMF.UML.Output_Pins.UML_Output_Pin_Access (AMF.Holders.Elements.Element (Value)));
68514
68515         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structural_Feature_Action_Structural_Feature_A_Structural_Feature_Action then
68516            --  StructuralFeatureAction::structuralFeature : StructuralFeature
68517
68518            AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
68519             (AMF.Internals.Helpers.To_Element (Self)).Set_Structural_Feature
68520               (AMF.UML.Structural_Features.UML_Structural_Feature_Access (AMF.Holders.Elements.Element (Value)));
68521
68522         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
68523            --  NamedElement::visibility : VisibilityKind
68524
68525            AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access
68526             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
68527               (AMF.UML.Holders.Element (Value));
68528
68529         else
68530            raise Program_Error;
68531         end if;
68532      end UML_Read_Structural_Feature_Action_Set;
68533
68534      ----------------------------------
68535      -- UML_Read_Variable_Action_Set --
68536      ----------------------------------
68537
68538      procedure UML_Read_Variable_Action_Set is
68539      begin
68540         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
68541            --  ActivityNode::activity : Activity
68542
68543            AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
68544             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
68545               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
68546
68547         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
68548            --  ActivityNode::inStructuredNode : StructuredActivityNode
68549
68550            AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
68551             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
68552               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
68553
68554         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
68555            --  RedefinableElement::isLeaf : Boolean
68556
68557            AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
68558             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
68559               (League.Holders.Booleans.Element (Value));
68560
68561         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
68562            --  Action::isLocallyReentrant : Boolean
68563
68564            AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
68565             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
68566               (League.Holders.Booleans.Element (Value));
68567
68568         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
68569            --  NamedElement::name : String
68570
68571            AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
68572             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
68573               (AMF.Holders.Element (Value));
68574
68575         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
68576            --  NamedElement::nameExpression : StringExpression
68577
68578            AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
68579             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
68580               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
68581
68582         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Variable_Action_Result_A_Read_Variable_Action then
68583            --  ReadVariableAction::result : OutputPin
68584
68585            AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
68586             (AMF.Internals.Helpers.To_Element (Self)).Set_Result
68587               (AMF.UML.Output_Pins.UML_Output_Pin_Access (AMF.Holders.Elements.Element (Value)));
68588
68589         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Variable_Action_Variable_A_Variable_Action then
68590            --  VariableAction::variable : Variable
68591
68592            AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
68593             (AMF.Internals.Helpers.To_Element (Self)).Set_Variable
68594               (AMF.UML.Variables.UML_Variable_Access (AMF.Holders.Elements.Element (Value)));
68595
68596         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
68597            --  NamedElement::visibility : VisibilityKind
68598
68599            AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access
68600             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
68601               (AMF.UML.Holders.Element (Value));
68602
68603         else
68604            raise Program_Error;
68605         end if;
68606      end UML_Read_Variable_Action_Set;
68607
68608      -------------------------
68609      -- UML_Realization_Set --
68610      -------------------------
68611
68612      procedure UML_Realization_Set is
68613      begin
68614         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Abstraction_Mapping_A_Abstraction then
68615            --  Abstraction::mapping : OpaqueExpression
68616
68617            AMF.UML.Realizations.UML_Realization_Access
68618             (AMF.Internals.Helpers.To_Element (Self)).Set_Mapping
68619               (AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access (AMF.Holders.Elements.Element (Value)));
68620
68621         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
68622            --  NamedElement::name : String
68623
68624            AMF.UML.Realizations.UML_Realization_Access
68625             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
68626               (AMF.Holders.Element (Value));
68627
68628         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
68629            --  NamedElement::nameExpression : StringExpression
68630
68631            AMF.UML.Realizations.UML_Realization_Access
68632             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
68633               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
68634
68635         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
68636            --  ParameterableElement::owningTemplateParameter : TemplateParameter
68637
68638            AMF.UML.Realizations.UML_Realization_Access
68639             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
68640               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
68641
68642         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
68643            --  ParameterableElement::templateParameter : TemplateParameter
68644
68645            AMF.UML.Realizations.UML_Realization_Access
68646             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
68647               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
68648
68649         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
68650            --  NamedElement::visibility : VisibilityKind
68651
68652            AMF.UML.Realizations.UML_Realization_Access
68653             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
68654               (AMF.UML.Holders.Element (Value));
68655
68656         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
68657            --  PackageableElement::visibility : VisibilityKind
68658
68659            AMF.UML.Realizations.UML_Realization_Access
68660             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
68661               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
68662
68663         else
68664            raise Program_Error;
68665         end if;
68666      end UML_Realization_Set;
68667
68668      -----------------------
68669      -- UML_Reception_Set --
68670      -----------------------
68671
68672      procedure UML_Reception_Set is
68673      begin
68674         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavioral_Feature_Concurrency then
68675            --  BehavioralFeature::concurrency : CallConcurrencyKind
68676
68677            AMF.UML.Receptions.UML_Reception_Access
68678             (AMF.Internals.Helpers.To_Element (Self)).Set_Concurrency
68679               (AMF.UML.Holders.Call_Concurrency_Kinds.Element (Value));
68680
68681         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavioral_Feature_Is_Abstract then
68682            --  BehavioralFeature::isAbstract : Boolean
68683
68684            AMF.UML.Receptions.UML_Reception_Access
68685             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
68686               (League.Holders.Booleans.Element (Value));
68687
68688         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
68689            --  RedefinableElement::isLeaf : Boolean
68690
68691            AMF.UML.Receptions.UML_Reception_Access
68692             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
68693               (League.Holders.Booleans.Element (Value));
68694
68695         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Feature_Is_Static then
68696            --  Feature::isStatic : Boolean
68697
68698            AMF.UML.Receptions.UML_Reception_Access
68699             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Static
68700               (League.Holders.Booleans.Element (Value));
68701
68702         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
68703            --  NamedElement::name : String
68704
68705            AMF.UML.Receptions.UML_Reception_Access
68706             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
68707               (AMF.Holders.Element (Value));
68708
68709         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
68710            --  NamedElement::nameExpression : StringExpression
68711
68712            AMF.UML.Receptions.UML_Reception_Access
68713             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
68714               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
68715
68716         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Reception_Signal_A_Reception then
68717            --  Reception::signal : Signal
68718
68719            AMF.UML.Receptions.UML_Reception_Access
68720             (AMF.Internals.Helpers.To_Element (Self)).Set_Signal
68721               (AMF.UML.Signals.UML_Signal_Access (AMF.Holders.Elements.Element (Value)));
68722
68723         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
68724            --  NamedElement::visibility : VisibilityKind
68725
68726            AMF.UML.Receptions.UML_Reception_Access
68727             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
68728               (AMF.UML.Holders.Element (Value));
68729
68730         else
68731            raise Program_Error;
68732         end if;
68733      end UML_Reception_Set;
68734
68735      --------------------------------------
68736      -- UML_Reclassify_Object_Action_Set --
68737      --------------------------------------
68738
68739      procedure UML_Reclassify_Object_Action_Set is
68740      begin
68741         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
68742            --  ActivityNode::activity : Activity
68743
68744            AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
68745             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
68746               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
68747
68748         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
68749            --  ActivityNode::inStructuredNode : StructuredActivityNode
68750
68751            AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
68752             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
68753               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
68754
68755         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
68756            --  RedefinableElement::isLeaf : Boolean
68757
68758            AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
68759             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
68760               (League.Holders.Booleans.Element (Value));
68761
68762         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
68763            --  Action::isLocallyReentrant : Boolean
68764
68765            AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
68766             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
68767               (League.Holders.Booleans.Element (Value));
68768
68769         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Reclassify_Object_Action_Is_Replace_All then
68770            --  ReclassifyObjectAction::isReplaceAll : Boolean
68771
68772            AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
68773             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Replace_All
68774               (League.Holders.Booleans.Element (Value));
68775
68776         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
68777            --  NamedElement::name : String
68778
68779            AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
68780             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
68781               (AMF.Holders.Element (Value));
68782
68783         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
68784            --  NamedElement::nameExpression : StringExpression
68785
68786            AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
68787             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
68788               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
68789
68790         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Reclassify_Object_Action_Object_A_Reclassify_Object_Action then
68791            --  ReclassifyObjectAction::object : InputPin
68792
68793            AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
68794             (AMF.Internals.Helpers.To_Element (Self)).Set_Object
68795               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
68796
68797         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
68798            --  NamedElement::visibility : VisibilityKind
68799
68800            AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access
68801             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
68802               (AMF.UML.Holders.Element (Value));
68803
68804         else
68805            raise Program_Error;
68806         end if;
68807      end UML_Reclassify_Object_Action_Set;
68808
68809      --------------------------------------------
68810      -- UML_Redefinable_Template_Signature_Set --
68811      --------------------------------------------
68812
68813      procedure UML_Redefinable_Template_Signature_Set is
68814      begin
68815         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Template_Signature_Classifier_Classifier_Owned_Template_Signature then
68816            --  RedefinableTemplateSignature::classifier : Classifier
68817
68818            AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access
68819             (AMF.Internals.Helpers.To_Element (Self)).Set_Classifier
68820               (AMF.UML.Classifiers.UML_Classifier_Access (AMF.Holders.Elements.Element (Value)));
68821
68822         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
68823            --  RedefinableElement::isLeaf : Boolean
68824
68825            AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access
68826             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
68827               (League.Holders.Booleans.Element (Value));
68828
68829         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
68830            --  NamedElement::name : String
68831
68832            AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access
68833             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
68834               (AMF.Holders.Element (Value));
68835
68836         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
68837            --  NamedElement::nameExpression : StringExpression
68838
68839            AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access
68840             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
68841               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
68842
68843         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Signature_Template_Templateable_Element_Owned_Template_Signature then
68844            --  TemplateSignature::template : TemplateableElement
68845
68846            AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access
68847             (AMF.Internals.Helpers.To_Element (Self)).Set_Template
68848               (AMF.UML.Templateable_Elements.UML_Templateable_Element_Access (AMF.Holders.Elements.Element (Value)));
68849
68850         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
68851            --  NamedElement::visibility : VisibilityKind
68852
68853            AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access
68854             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
68855               (AMF.UML.Holders.Element (Value));
68856
68857         else
68858            raise Program_Error;
68859         end if;
68860      end UML_Redefinable_Template_Signature_Set;
68861
68862      ---------------------------
68863      -- UML_Reduce_Action_Set --
68864      ---------------------------
68865
68866      procedure UML_Reduce_Action_Set is
68867      begin
68868         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
68869            --  ActivityNode::activity : Activity
68870
68871            AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
68872             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
68873               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
68874
68875         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Reduce_Action_Collection_A_Reduce_Action then
68876            --  ReduceAction::collection : InputPin
68877
68878            AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
68879             (AMF.Internals.Helpers.To_Element (Self)).Set_Collection
68880               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
68881
68882         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
68883            --  ActivityNode::inStructuredNode : StructuredActivityNode
68884
68885            AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
68886             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
68887               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
68888
68889         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
68890            --  RedefinableElement::isLeaf : Boolean
68891
68892            AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
68893             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
68894               (League.Holders.Booleans.Element (Value));
68895
68896         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
68897            --  Action::isLocallyReentrant : Boolean
68898
68899            AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
68900             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
68901               (League.Holders.Booleans.Element (Value));
68902
68903         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Reduce_Action_Is_Ordered then
68904            --  ReduceAction::isOrdered : Boolean
68905
68906            AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
68907             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Ordered
68908               (League.Holders.Booleans.Element (Value));
68909
68910         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
68911            --  NamedElement::name : String
68912
68913            AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
68914             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
68915               (AMF.Holders.Element (Value));
68916
68917         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
68918            --  NamedElement::nameExpression : StringExpression
68919
68920            AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
68921             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
68922               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
68923
68924         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Reduce_Action_Reducer_A_Reduce_Action then
68925            --  ReduceAction::reducer : Behavior
68926
68927            AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
68928             (AMF.Internals.Helpers.To_Element (Self)).Set_Reducer
68929               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
68930
68931         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Reduce_Action_Result_A_Reduce_Action then
68932            --  ReduceAction::result : OutputPin
68933
68934            AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
68935             (AMF.Internals.Helpers.To_Element (Self)).Set_Result
68936               (AMF.UML.Output_Pins.UML_Output_Pin_Access (AMF.Holders.Elements.Element (Value)));
68937
68938         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
68939            --  NamedElement::visibility : VisibilityKind
68940
68941            AMF.UML.Reduce_Actions.UML_Reduce_Action_Access
68942             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
68943               (AMF.UML.Holders.Element (Value));
68944
68945         else
68946            raise Program_Error;
68947         end if;
68948      end UML_Reduce_Action_Set;
68949
68950      --------------------
68951      -- UML_Region_Set --
68952      --------------------
68953
68954      procedure UML_Region_Set is
68955      begin
68956         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Region_Extended_Region_A_Region then
68957            --  Region::extendedRegion : Region
68958
68959            AMF.UML.Regions.UML_Region_Access
68960             (AMF.Internals.Helpers.To_Element (Self)).Set_Extended_Region
68961               (AMF.UML.Regions.UML_Region_Access (AMF.Holders.Elements.Element (Value)));
68962
68963         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
68964            --  RedefinableElement::isLeaf : Boolean
68965
68966            AMF.UML.Regions.UML_Region_Access
68967             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
68968               (League.Holders.Booleans.Element (Value));
68969
68970         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
68971            --  NamedElement::name : String
68972
68973            AMF.UML.Regions.UML_Region_Access
68974             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
68975               (AMF.Holders.Element (Value));
68976
68977         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
68978            --  NamedElement::nameExpression : StringExpression
68979
68980            AMF.UML.Regions.UML_Region_Access
68981             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
68982               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
68983
68984         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Region_State_State_Region then
68985            --  Region::state : State
68986
68987            AMF.UML.Regions.UML_Region_Access
68988             (AMF.Internals.Helpers.To_Element (Self)).Set_State
68989               (AMF.UML.States.UML_State_Access (AMF.Holders.Elements.Element (Value)));
68990
68991         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Region_State_Machine_State_Machine_Region then
68992            --  Region::stateMachine : StateMachine
68993
68994            AMF.UML.Regions.UML_Region_Access
68995             (AMF.Internals.Helpers.To_Element (Self)).Set_State_Machine
68996               (AMF.UML.State_Machines.UML_State_Machine_Access (AMF.Holders.Elements.Element (Value)));
68997
68998         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
68999            --  NamedElement::visibility : VisibilityKind
69000
69001            AMF.UML.Regions.UML_Region_Access
69002             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
69003               (AMF.UML.Holders.Element (Value));
69004
69005         else
69006            raise Program_Error;
69007         end if;
69008      end UML_Region_Set;
69009
69010      ----------------------------------------------------
69011      -- UML_Remove_Structural_Feature_Value_Action_Set --
69012      ----------------------------------------------------
69013
69014      procedure UML_Remove_Structural_Feature_Value_Action_Set is
69015      begin
69016         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
69017            --  ActivityNode::activity : Activity
69018
69019            AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
69020             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
69021               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
69022
69023         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
69024            --  ActivityNode::inStructuredNode : StructuredActivityNode
69025
69026            AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
69027             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
69028               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
69029
69030         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
69031            --  RedefinableElement::isLeaf : Boolean
69032
69033            AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
69034             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
69035               (League.Holders.Booleans.Element (Value));
69036
69037         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
69038            --  Action::isLocallyReentrant : Boolean
69039
69040            AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
69041             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
69042               (League.Holders.Booleans.Element (Value));
69043
69044         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Remove_Structural_Feature_Value_Action_Is_Remove_Duplicates then
69045            --  RemoveStructuralFeatureValueAction::isRemoveDuplicates : Boolean
69046
69047            AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
69048             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Remove_Duplicates
69049               (League.Holders.Booleans.Element (Value));
69050
69051         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
69052            --  NamedElement::name : String
69053
69054            AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
69055             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
69056               (AMF.Holders.Element (Value));
69057
69058         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
69059            --  NamedElement::nameExpression : StringExpression
69060
69061            AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
69062             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
69063               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
69064
69065         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structural_Feature_Action_Object_A_Structural_Feature_Action then
69066            --  StructuralFeatureAction::object : InputPin
69067
69068            AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
69069             (AMF.Internals.Helpers.To_Element (Self)).Set_Object
69070               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
69071
69072         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Remove_Structural_Feature_Value_Action_Remove_At_A_Remove_Structural_Feature_Value_Action then
69073            --  RemoveStructuralFeatureValueAction::removeAt : InputPin
69074
69075            AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
69076             (AMF.Internals.Helpers.To_Element (Self)).Set_Remove_At
69077               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
69078
69079         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Write_Structural_Feature_Action_Result_A_Write_Structural_Feature_Action then
69080            --  WriteStructuralFeatureAction::result : OutputPin
69081
69082            AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
69083             (AMF.Internals.Helpers.To_Element (Self)).Set_Result
69084               (AMF.UML.Output_Pins.UML_Output_Pin_Access (AMF.Holders.Elements.Element (Value)));
69085
69086         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structural_Feature_Action_Structural_Feature_A_Structural_Feature_Action then
69087            --  StructuralFeatureAction::structuralFeature : StructuralFeature
69088
69089            AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
69090             (AMF.Internals.Helpers.To_Element (Self)).Set_Structural_Feature
69091               (AMF.UML.Structural_Features.UML_Structural_Feature_Access (AMF.Holders.Elements.Element (Value)));
69092
69093         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Write_Structural_Feature_Action_Value_A_Write_Structural_Feature_Action then
69094            --  WriteStructuralFeatureAction::value : InputPin
69095
69096            AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
69097             (AMF.Internals.Helpers.To_Element (Self)).Set_Value
69098               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
69099
69100         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
69101            --  NamedElement::visibility : VisibilityKind
69102
69103            AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access
69104             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
69105               (AMF.UML.Holders.Element (Value));
69106
69107         else
69108            raise Program_Error;
69109         end if;
69110      end UML_Remove_Structural_Feature_Value_Action_Set;
69111
69112      ------------------------------------------
69113      -- UML_Remove_Variable_Value_Action_Set --
69114      ------------------------------------------
69115
69116      procedure UML_Remove_Variable_Value_Action_Set is
69117      begin
69118         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
69119            --  ActivityNode::activity : Activity
69120
69121            AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
69122             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
69123               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
69124
69125         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
69126            --  ActivityNode::inStructuredNode : StructuredActivityNode
69127
69128            AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
69129             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
69130               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
69131
69132         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
69133            --  RedefinableElement::isLeaf : Boolean
69134
69135            AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
69136             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
69137               (League.Holders.Booleans.Element (Value));
69138
69139         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
69140            --  Action::isLocallyReentrant : Boolean
69141
69142            AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
69143             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
69144               (League.Holders.Booleans.Element (Value));
69145
69146         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Remove_Variable_Value_Action_Is_Remove_Duplicates then
69147            --  RemoveVariableValueAction::isRemoveDuplicates : Boolean
69148
69149            AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
69150             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Remove_Duplicates
69151               (League.Holders.Booleans.Element (Value));
69152
69153         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
69154            --  NamedElement::name : String
69155
69156            AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
69157             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
69158               (AMF.Holders.Element (Value));
69159
69160         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
69161            --  NamedElement::nameExpression : StringExpression
69162
69163            AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
69164             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
69165               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
69166
69167         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Remove_Variable_Value_Action_Remove_At_A_Remove_Variable_Value_Action then
69168            --  RemoveVariableValueAction::removeAt : InputPin
69169
69170            AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
69171             (AMF.Internals.Helpers.To_Element (Self)).Set_Remove_At
69172               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
69173
69174         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Write_Variable_Action_Value_A_Write_Variable_Action then
69175            --  WriteVariableAction::value : InputPin
69176
69177            AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
69178             (AMF.Internals.Helpers.To_Element (Self)).Set_Value
69179               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
69180
69181         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Variable_Action_Variable_A_Variable_Action then
69182            --  VariableAction::variable : Variable
69183
69184            AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
69185             (AMF.Internals.Helpers.To_Element (Self)).Set_Variable
69186               (AMF.UML.Variables.UML_Variable_Access (AMF.Holders.Elements.Element (Value)));
69187
69188         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
69189            --  NamedElement::visibility : VisibilityKind
69190
69191            AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access
69192             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
69193               (AMF.UML.Holders.Element (Value));
69194
69195         else
69196            raise Program_Error;
69197         end if;
69198      end UML_Remove_Variable_Value_Action_Set;
69199
69200      --------------------------
69201      -- UML_Reply_Action_Set --
69202      --------------------------
69203
69204      procedure UML_Reply_Action_Set is
69205      begin
69206         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
69207            --  ActivityNode::activity : Activity
69208
69209            AMF.UML.Reply_Actions.UML_Reply_Action_Access
69210             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
69211               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
69212
69213         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
69214            --  ActivityNode::inStructuredNode : StructuredActivityNode
69215
69216            AMF.UML.Reply_Actions.UML_Reply_Action_Access
69217             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
69218               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
69219
69220         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
69221            --  RedefinableElement::isLeaf : Boolean
69222
69223            AMF.UML.Reply_Actions.UML_Reply_Action_Access
69224             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
69225               (League.Holders.Booleans.Element (Value));
69226
69227         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
69228            --  Action::isLocallyReentrant : Boolean
69229
69230            AMF.UML.Reply_Actions.UML_Reply_Action_Access
69231             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
69232               (League.Holders.Booleans.Element (Value));
69233
69234         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
69235            --  NamedElement::name : String
69236
69237            AMF.UML.Reply_Actions.UML_Reply_Action_Access
69238             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
69239               (AMF.Holders.Element (Value));
69240
69241         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
69242            --  NamedElement::nameExpression : StringExpression
69243
69244            AMF.UML.Reply_Actions.UML_Reply_Action_Access
69245             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
69246               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
69247
69248         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Reply_Action_Reply_To_Call_A_Reply_Action then
69249            --  ReplyAction::replyToCall : Trigger
69250
69251            AMF.UML.Reply_Actions.UML_Reply_Action_Access
69252             (AMF.Internals.Helpers.To_Element (Self)).Set_Reply_To_Call
69253               (AMF.UML.Triggers.UML_Trigger_Access (AMF.Holders.Elements.Element (Value)));
69254
69255         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Reply_Action_Return_Information_A_Reply_Action then
69256            --  ReplyAction::returnInformation : InputPin
69257
69258            AMF.UML.Reply_Actions.UML_Reply_Action_Access
69259             (AMF.Internals.Helpers.To_Element (Self)).Set_Return_Information
69260               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
69261
69262         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
69263            --  NamedElement::visibility : VisibilityKind
69264
69265            AMF.UML.Reply_Actions.UML_Reply_Action_Access
69266             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
69267               (AMF.UML.Holders.Element (Value));
69268
69269         else
69270            raise Program_Error;
69271         end if;
69272      end UML_Reply_Action_Set;
69273
69274      --------------------------------
69275      -- UML_Send_Object_Action_Set --
69276      --------------------------------
69277
69278      procedure UML_Send_Object_Action_Set is
69279      begin
69280         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
69281            --  ActivityNode::activity : Activity
69282
69283            AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
69284             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
69285               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
69286
69287         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
69288            --  ActivityNode::inStructuredNode : StructuredActivityNode
69289
69290            AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
69291             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
69292               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
69293
69294         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
69295            --  RedefinableElement::isLeaf : Boolean
69296
69297            AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
69298             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
69299               (League.Holders.Booleans.Element (Value));
69300
69301         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
69302            --  Action::isLocallyReentrant : Boolean
69303
69304            AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
69305             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
69306               (League.Holders.Booleans.Element (Value));
69307
69308         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
69309            --  NamedElement::name : String
69310
69311            AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
69312             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
69313               (AMF.Holders.Element (Value));
69314
69315         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
69316            --  NamedElement::nameExpression : StringExpression
69317
69318            AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
69319             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
69320               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
69321
69322         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Invocation_Action_On_Port_A_Invocation_Action then
69323            --  InvocationAction::onPort : Port
69324
69325            AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
69326             (AMF.Internals.Helpers.To_Element (Self)).Set_On_Port
69327               (AMF.UML.Ports.UML_Port_Access (AMF.Holders.Elements.Element (Value)));
69328
69329         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Send_Object_Action_Request_A_Send_Object_Action then
69330            --  SendObjectAction::request : InputPin
69331
69332            AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
69333             (AMF.Internals.Helpers.To_Element (Self)).Set_Request
69334               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
69335
69336         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Send_Object_Action_Target_A_Send_Object_Action then
69337            --  SendObjectAction::target : InputPin
69338
69339            AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
69340             (AMF.Internals.Helpers.To_Element (Self)).Set_Target
69341               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
69342
69343         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
69344            --  NamedElement::visibility : VisibilityKind
69345
69346            AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access
69347             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
69348               (AMF.UML.Holders.Element (Value));
69349
69350         else
69351            raise Program_Error;
69352         end if;
69353      end UML_Send_Object_Action_Set;
69354
69355      --------------------------------
69356      -- UML_Send_Signal_Action_Set --
69357      --------------------------------
69358
69359      procedure UML_Send_Signal_Action_Set is
69360      begin
69361         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
69362            --  ActivityNode::activity : Activity
69363
69364            AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
69365             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
69366               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
69367
69368         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
69369            --  ActivityNode::inStructuredNode : StructuredActivityNode
69370
69371            AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
69372             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
69373               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
69374
69375         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
69376            --  RedefinableElement::isLeaf : Boolean
69377
69378            AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
69379             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
69380               (League.Holders.Booleans.Element (Value));
69381
69382         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
69383            --  Action::isLocallyReentrant : Boolean
69384
69385            AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
69386             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
69387               (League.Holders.Booleans.Element (Value));
69388
69389         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
69390            --  NamedElement::name : String
69391
69392            AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
69393             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
69394               (AMF.Holders.Element (Value));
69395
69396         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
69397            --  NamedElement::nameExpression : StringExpression
69398
69399            AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
69400             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
69401               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
69402
69403         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Invocation_Action_On_Port_A_Invocation_Action then
69404            --  InvocationAction::onPort : Port
69405
69406            AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
69407             (AMF.Internals.Helpers.To_Element (Self)).Set_On_Port
69408               (AMF.UML.Ports.UML_Port_Access (AMF.Holders.Elements.Element (Value)));
69409
69410         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Send_Signal_Action_Signal_A_Send_Signal_Action then
69411            --  SendSignalAction::signal : Signal
69412
69413            AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
69414             (AMF.Internals.Helpers.To_Element (Self)).Set_Signal
69415               (AMF.UML.Signals.UML_Signal_Access (AMF.Holders.Elements.Element (Value)));
69416
69417         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Send_Signal_Action_Target_A_Send_Signal_Action then
69418            --  SendSignalAction::target : InputPin
69419
69420            AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
69421             (AMF.Internals.Helpers.To_Element (Self)).Set_Target
69422               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
69423
69424         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
69425            --  NamedElement::visibility : VisibilityKind
69426
69427            AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access
69428             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
69429               (AMF.UML.Holders.Element (Value));
69430
69431         else
69432            raise Program_Error;
69433         end if;
69434      end UML_Send_Signal_Action_Set;
69435
69436      ---------------------------
69437      -- UML_Sequence_Node_Set --
69438      ---------------------------
69439
69440      procedure UML_Sequence_Node_Set is
69441      begin
69442         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
69443            --  ActivityNode::activity : Activity
69444
69445            AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
69446             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
69447               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
69448
69449         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Activity_Activity_Structured_Node then
69450            --  StructuredActivityNode::activity : Activity
69451
69452            AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
69453             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
69454               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
69455
69456         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_In_Activity_Activity_Group then
69457            --  ActivityGroup::inActivity : Activity
69458
69459            AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
69460             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Activity
69461               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
69462
69463         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
69464            --  ActivityNode::inStructuredNode : StructuredActivityNode
69465
69466            AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
69467             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
69468               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
69469
69470         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
69471            --  RedefinableElement::isLeaf : Boolean
69472
69473            AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
69474             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
69475               (League.Holders.Booleans.Element (Value));
69476
69477         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
69478            --  Action::isLocallyReentrant : Boolean
69479
69480            AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
69481             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
69482               (League.Holders.Booleans.Element (Value));
69483
69484         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Must_Isolate then
69485            --  StructuredActivityNode::mustIsolate : Boolean
69486
69487            AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
69488             (AMF.Internals.Helpers.To_Element (Self)).Set_Must_Isolate
69489               (League.Holders.Booleans.Element (Value));
69490
69491         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
69492            --  NamedElement::name : String
69493
69494            AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
69495             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
69496               (AMF.Holders.Element (Value));
69497
69498         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
69499            --  NamedElement::nameExpression : StringExpression
69500
69501            AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
69502             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
69503               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
69504
69505         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
69506            --  NamedElement::visibility : VisibilityKind
69507
69508            AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access
69509             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
69510               (AMF.UML.Holders.Element (Value));
69511
69512         else
69513            raise Program_Error;
69514         end if;
69515      end UML_Sequence_Node_Set;
69516
69517      --------------------
69518      -- UML_Signal_Set --
69519      --------------------
69520
69521      procedure UML_Signal_Set is
69522      begin
69523         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
69524            --  Classifier::isAbstract : Boolean
69525
69526            AMF.UML.Signals.UML_Signal_Access
69527             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
69528               (League.Holders.Booleans.Element (Value));
69529
69530         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
69531            --  Classifier::isFinalSpecialization : Boolean
69532
69533            AMF.UML.Signals.UML_Signal_Access
69534             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization
69535               (League.Holders.Booleans.Element (Value));
69536
69537         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
69538            --  RedefinableElement::isLeaf : Boolean
69539
69540            AMF.UML.Signals.UML_Signal_Access
69541             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
69542               (League.Holders.Booleans.Element (Value));
69543
69544         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
69545            --  NamedElement::name : String
69546
69547            AMF.UML.Signals.UML_Signal_Access
69548             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
69549               (AMF.Holders.Element (Value));
69550
69551         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
69552            --  NamedElement::nameExpression : StringExpression
69553
69554            AMF.UML.Signals.UML_Signal_Access
69555             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
69556               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
69557
69558         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
69559            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
69560
69561            AMF.UML.Signals.UML_Signal_Access
69562             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
69563               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
69564
69565         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
69566            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
69567
69568            AMF.UML.Signals.UML_Signal_Access
69569             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
69570               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
69571
69572         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
69573            --  ParameterableElement::owningTemplateParameter : TemplateParameter
69574
69575            AMF.UML.Signals.UML_Signal_Access
69576             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
69577               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
69578
69579         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
69580            --  Type::package : Package
69581
69582            AMF.UML.Signals.UML_Signal_Access
69583             (AMF.Internals.Helpers.To_Element (Self)).Set_Package
69584               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
69585
69586         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
69587            --  Classifier::representation : CollaborationUse
69588
69589            AMF.UML.Signals.UML_Signal_Access
69590             (AMF.Internals.Helpers.To_Element (Self)).Set_Representation
69591               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access (AMF.Holders.Elements.Element (Value)));
69592
69593         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
69594            --  Classifier::templateParameter : ClassifierTemplateParameter
69595
69596            AMF.UML.Signals.UML_Signal_Access
69597             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
69598               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
69599
69600         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
69601            --  ParameterableElement::templateParameter : TemplateParameter
69602
69603            AMF.UML.Signals.UML_Signal_Access
69604             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
69605               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
69606
69607         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
69608            --  NamedElement::visibility : VisibilityKind
69609
69610            AMF.UML.Signals.UML_Signal_Access
69611             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
69612               (AMF.UML.Holders.Element (Value));
69613
69614         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
69615            --  PackageableElement::visibility : VisibilityKind
69616
69617            AMF.UML.Signals.UML_Signal_Access
69618             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
69619               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
69620
69621         else
69622            raise Program_Error;
69623         end if;
69624      end UML_Signal_Set;
69625
69626      --------------------------
69627      -- UML_Signal_Event_Set --
69628      --------------------------
69629
69630      procedure UML_Signal_Event_Set is
69631      begin
69632         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
69633            --  NamedElement::name : String
69634
69635            AMF.UML.Signal_Events.UML_Signal_Event_Access
69636             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
69637               (AMF.Holders.Element (Value));
69638
69639         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
69640            --  NamedElement::nameExpression : StringExpression
69641
69642            AMF.UML.Signal_Events.UML_Signal_Event_Access
69643             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
69644               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
69645
69646         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
69647            --  ParameterableElement::owningTemplateParameter : TemplateParameter
69648
69649            AMF.UML.Signal_Events.UML_Signal_Event_Access
69650             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
69651               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
69652
69653         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Signal_Event_Signal_A_Signal_Event then
69654            --  SignalEvent::signal : Signal
69655
69656            AMF.UML.Signal_Events.UML_Signal_Event_Access
69657             (AMF.Internals.Helpers.To_Element (Self)).Set_Signal
69658               (AMF.UML.Signals.UML_Signal_Access (AMF.Holders.Elements.Element (Value)));
69659
69660         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
69661            --  ParameterableElement::templateParameter : TemplateParameter
69662
69663            AMF.UML.Signal_Events.UML_Signal_Event_Access
69664             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
69665               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
69666
69667         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
69668            --  NamedElement::visibility : VisibilityKind
69669
69670            AMF.UML.Signal_Events.UML_Signal_Event_Access
69671             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
69672               (AMF.UML.Holders.Element (Value));
69673
69674         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
69675            --  PackageableElement::visibility : VisibilityKind
69676
69677            AMF.UML.Signal_Events.UML_Signal_Event_Access
69678             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
69679               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
69680
69681         else
69682            raise Program_Error;
69683         end if;
69684      end UML_Signal_Event_Set;
69685
69686      ------------------
69687      -- UML_Slot_Set --
69688      ------------------
69689
69690      procedure UML_Slot_Set is
69691      begin
69692         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Slot_Defining_Feature_A_Slot then
69693            --  Slot::definingFeature : StructuralFeature
69694
69695            AMF.UML.Slots.UML_Slot_Access
69696             (AMF.Internals.Helpers.To_Element (Self)).Set_Defining_Feature
69697               (AMF.UML.Structural_Features.UML_Structural_Feature_Access (AMF.Holders.Elements.Element (Value)));
69698
69699         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Slot_Owning_Instance_Instance_Specification_Slot then
69700            --  Slot::owningInstance : InstanceSpecification
69701
69702            AMF.UML.Slots.UML_Slot_Access
69703             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Instance
69704               (AMF.UML.Instance_Specifications.UML_Instance_Specification_Access (AMF.Holders.Elements.Element (Value)));
69705
69706         else
69707            raise Program_Error;
69708         end if;
69709      end UML_Slot_Set;
69710
69711      ----------------------------------------------
69712      -- UML_Start_Classifier_Behavior_Action_Set --
69713      ----------------------------------------------
69714
69715      procedure UML_Start_Classifier_Behavior_Action_Set is
69716      begin
69717         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
69718            --  ActivityNode::activity : Activity
69719
69720            AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
69721             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
69722               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
69723
69724         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
69725            --  ActivityNode::inStructuredNode : StructuredActivityNode
69726
69727            AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
69728             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
69729               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
69730
69731         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
69732            --  RedefinableElement::isLeaf : Boolean
69733
69734            AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
69735             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
69736               (League.Holders.Booleans.Element (Value));
69737
69738         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
69739            --  Action::isLocallyReentrant : Boolean
69740
69741            AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
69742             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
69743               (League.Holders.Booleans.Element (Value));
69744
69745         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
69746            --  NamedElement::name : String
69747
69748            AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
69749             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
69750               (AMF.Holders.Element (Value));
69751
69752         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
69753            --  NamedElement::nameExpression : StringExpression
69754
69755            AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
69756             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
69757               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
69758
69759         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Start_Classifier_Behavior_Action_Object_A_Start_Classifier_Behavior_Action then
69760            --  StartClassifierBehaviorAction::object : InputPin
69761
69762            AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
69763             (AMF.Internals.Helpers.To_Element (Self)).Set_Object
69764               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
69765
69766         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
69767            --  NamedElement::visibility : VisibilityKind
69768
69769            AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access
69770             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
69771               (AMF.UML.Holders.Element (Value));
69772
69773         else
69774            raise Program_Error;
69775         end if;
69776      end UML_Start_Classifier_Behavior_Action_Set;
69777
69778      ------------------------------------------
69779      -- UML_Start_Object_Behavior_Action_Set --
69780      ------------------------------------------
69781
69782      procedure UML_Start_Object_Behavior_Action_Set is
69783      begin
69784         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
69785            --  ActivityNode::activity : Activity
69786
69787            AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
69788             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
69789               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
69790
69791         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
69792            --  ActivityNode::inStructuredNode : StructuredActivityNode
69793
69794            AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
69795             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
69796               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
69797
69798         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
69799            --  RedefinableElement::isLeaf : Boolean
69800
69801            AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
69802             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
69803               (League.Holders.Booleans.Element (Value));
69804
69805         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
69806            --  Action::isLocallyReentrant : Boolean
69807
69808            AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
69809             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
69810               (League.Holders.Booleans.Element (Value));
69811
69812         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Call_Action_Is_Synchronous then
69813            --  CallAction::isSynchronous : Boolean
69814
69815            AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
69816             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Synchronous
69817               (League.Holders.Booleans.Element (Value));
69818
69819         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
69820            --  NamedElement::name : String
69821
69822            AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
69823             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
69824               (AMF.Holders.Element (Value));
69825
69826         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
69827            --  NamedElement::nameExpression : StringExpression
69828
69829            AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
69830             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
69831               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
69832
69833         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Start_Object_Behavior_Action_Object_A_Start_Object_Behavior_Action then
69834            --  StartObjectBehaviorAction::object : InputPin
69835
69836            AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
69837             (AMF.Internals.Helpers.To_Element (Self)).Set_Object
69838               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
69839
69840         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Invocation_Action_On_Port_A_Invocation_Action then
69841            --  InvocationAction::onPort : Port
69842
69843            AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
69844             (AMF.Internals.Helpers.To_Element (Self)).Set_On_Port
69845               (AMF.UML.Ports.UML_Port_Access (AMF.Holders.Elements.Element (Value)));
69846
69847         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
69848            --  NamedElement::visibility : VisibilityKind
69849
69850            AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access
69851             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
69852               (AMF.UML.Holders.Element (Value));
69853
69854         else
69855            raise Program_Error;
69856         end if;
69857      end UML_Start_Object_Behavior_Action_Set;
69858
69859      -------------------
69860      -- UML_State_Set --
69861      -------------------
69862
69863      procedure UML_State_Set is
69864      begin
69865         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Vertex_Container_Region_Subvertex then
69866            --  Vertex::container : Region
69867
69868            AMF.UML.States.UML_State_Access
69869             (AMF.Internals.Helpers.To_Element (Self)).Set_Container
69870               (AMF.UML.Regions.UML_Region_Access (AMF.Holders.Elements.Element (Value)));
69871
69872         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Do_Activity_A_State then
69873            --  State::doActivity : Behavior
69874
69875            AMF.UML.States.UML_State_Access
69876             (AMF.Internals.Helpers.To_Element (Self)).Set_Do_Activity
69877               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
69878
69879         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Entry_A_State then
69880            --  State::entry : Behavior
69881
69882            AMF.UML.States.UML_State_Access
69883             (AMF.Internals.Helpers.To_Element (Self)).Set_Entry
69884               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
69885
69886         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Exit_A_State then
69887            --  State::exit : Behavior
69888
69889            AMF.UML.States.UML_State_Access
69890             (AMF.Internals.Helpers.To_Element (Self)).Set_Exit
69891               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
69892
69893         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
69894            --  RedefinableElement::isLeaf : Boolean
69895
69896            AMF.UML.States.UML_State_Access
69897             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
69898               (League.Holders.Booleans.Element (Value));
69899
69900         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
69901            --  NamedElement::name : String
69902
69903            AMF.UML.States.UML_State_Access
69904             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
69905               (AMF.Holders.Element (Value));
69906
69907         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
69908            --  NamedElement::nameExpression : StringExpression
69909
69910            AMF.UML.States.UML_State_Access
69911             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
69912               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
69913
69914         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Redefined_State_A_State then
69915            --  State::redefinedState : State
69916
69917            AMF.UML.States.UML_State_Access
69918             (AMF.Internals.Helpers.To_Element (Self)).Set_Redefined_State
69919               (AMF.UML.States.UML_State_Access (AMF.Holders.Elements.Element (Value)));
69920
69921         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_State_Invariant_A_Owning_State then
69922            --  State::stateInvariant : Constraint
69923
69924            AMF.UML.States.UML_State_Access
69925             (AMF.Internals.Helpers.To_Element (Self)).Set_State_Invariant
69926               (AMF.UML.Constraints.UML_Constraint_Access (AMF.Holders.Elements.Element (Value)));
69927
69928         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Submachine_State_Machine_Submachine_State then
69929            --  State::submachine : StateMachine
69930
69931            AMF.UML.States.UML_State_Access
69932             (AMF.Internals.Helpers.To_Element (Self)).Set_Submachine
69933               (AMF.UML.State_Machines.UML_State_Machine_Access (AMF.Holders.Elements.Element (Value)));
69934
69935         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
69936            --  NamedElement::visibility : VisibilityKind
69937
69938            AMF.UML.States.UML_State_Access
69939             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
69940               (AMF.UML.Holders.Element (Value));
69941
69942         else
69943            raise Program_Error;
69944         end if;
69945      end UML_State_Set;
69946
69947      -----------------------------
69948      -- UML_State_Invariant_Set --
69949      -----------------------------
69950
69951      procedure UML_State_Invariant_Set is
69952      begin
69953         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Invariant_Covered_A_State_Invariant then
69954            --  StateInvariant::covered : Lifeline
69955
69956            AMF.UML.State_Invariants.UML_State_Invariant_Access
69957             (AMF.Internals.Helpers.To_Element (Self)).Set_Covered
69958               (AMF.UML.Lifelines.UML_Lifeline_Access (AMF.Holders.Elements.Element (Value)));
69959
69960         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Interaction_Interaction_Fragment then
69961            --  InteractionFragment::enclosingInteraction : Interaction
69962
69963            AMF.UML.State_Invariants.UML_State_Invariant_Access
69964             (AMF.Internals.Helpers.To_Element (Self)).Set_Enclosing_Interaction
69965               (AMF.UML.Interactions.UML_Interaction_Access (AMF.Holders.Elements.Element (Value)));
69966
69967         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interaction_Fragment_Enclosing_Operand_Interaction_Operand_Fragment then
69968            --  InteractionFragment::enclosingOperand : InteractionOperand
69969
69970            AMF.UML.State_Invariants.UML_State_Invariant_Access
69971             (AMF.Internals.Helpers.To_Element (Self)).Set_Enclosing_Operand
69972               (AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access (AMF.Holders.Elements.Element (Value)));
69973
69974         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_State_Invariant_Invariant_A_State_Invariant then
69975            --  StateInvariant::invariant : Constraint
69976
69977            AMF.UML.State_Invariants.UML_State_Invariant_Access
69978             (AMF.Internals.Helpers.To_Element (Self)).Set_Invariant
69979               (AMF.UML.Constraints.UML_Constraint_Access (AMF.Holders.Elements.Element (Value)));
69980
69981         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
69982            --  NamedElement::name : String
69983
69984            AMF.UML.State_Invariants.UML_State_Invariant_Access
69985             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
69986               (AMF.Holders.Element (Value));
69987
69988         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
69989            --  NamedElement::nameExpression : StringExpression
69990
69991            AMF.UML.State_Invariants.UML_State_Invariant_Access
69992             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
69993               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
69994
69995         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
69996            --  NamedElement::visibility : VisibilityKind
69997
69998            AMF.UML.State_Invariants.UML_State_Invariant_Access
69999             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
70000               (AMF.UML.Holders.Element (Value));
70001
70002         else
70003            raise Program_Error;
70004         end if;
70005      end UML_State_Invariant_Set;
70006
70007      ---------------------------
70008      -- UML_State_Machine_Set --
70009      ---------------------------
70010
70011      procedure UML_State_Machine_Set is
70012      begin
70013         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
70014            --  BehavioredClassifier::classifierBehavior : Behavior
70015
70016            AMF.UML.State_Machines.UML_State_Machine_Access
70017             (AMF.Internals.Helpers.To_Element (Self)).Set_Classifier_Behavior
70018               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
70019
70020         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Abstract then
70021            --  Class::isAbstract : Boolean
70022
70023            AMF.UML.State_Machines.UML_State_Machine_Access
70024             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
70025               (League.Holders.Booleans.Element (Value));
70026
70027         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
70028            --  Classifier::isAbstract : Boolean
70029
70030            AMF.UML.State_Machines.UML_State_Machine_Access
70031             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
70032               (League.Holders.Booleans.Element (Value));
70033
70034         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Active then
70035            --  Class::isActive : Boolean
70036
70037            AMF.UML.State_Machines.UML_State_Machine_Access
70038             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Active
70039               (League.Holders.Booleans.Element (Value));
70040
70041         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
70042            --  Classifier::isFinalSpecialization : Boolean
70043
70044            AMF.UML.State_Machines.UML_State_Machine_Access
70045             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization
70046               (League.Holders.Booleans.Element (Value));
70047
70048         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
70049            --  RedefinableElement::isLeaf : Boolean
70050
70051            AMF.UML.State_Machines.UML_State_Machine_Access
70052             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
70053               (League.Holders.Booleans.Element (Value));
70054
70055         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Is_Reentrant then
70056            --  Behavior::isReentrant : Boolean
70057
70058            AMF.UML.State_Machines.UML_State_Machine_Access
70059             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Reentrant
70060               (League.Holders.Booleans.Element (Value));
70061
70062         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
70063            --  NamedElement::name : String
70064
70065            AMF.UML.State_Machines.UML_State_Machine_Access
70066             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
70067               (AMF.Holders.Element (Value));
70068
70069         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
70070            --  NamedElement::nameExpression : StringExpression
70071
70072            AMF.UML.State_Machines.UML_State_Machine_Access
70073             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
70074               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
70075
70076         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
70077            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
70078
70079            AMF.UML.State_Machines.UML_State_Machine_Access
70080             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
70081               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
70082
70083         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
70084            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
70085
70086            AMF.UML.State_Machines.UML_State_Machine_Access
70087             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
70088               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
70089
70090         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
70091            --  ParameterableElement::owningTemplateParameter : TemplateParameter
70092
70093            AMF.UML.State_Machines.UML_State_Machine_Access
70094             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
70095               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
70096
70097         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
70098            --  Type::package : Package
70099
70100            AMF.UML.State_Machines.UML_State_Machine_Access
70101             (AMF.Internals.Helpers.To_Element (Self)).Set_Package
70102               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
70103
70104         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
70105            --  Classifier::representation : CollaborationUse
70106
70107            AMF.UML.State_Machines.UML_State_Machine_Access
70108             (AMF.Internals.Helpers.To_Element (Self)).Set_Representation
70109               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access (AMF.Holders.Elements.Element (Value)));
70110
70111         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Specification_Behavioral_Feature_Method then
70112            --  Behavior::specification : BehavioralFeature
70113
70114            AMF.UML.State_Machines.UML_State_Machine_Access
70115             (AMF.Internals.Helpers.To_Element (Self)).Set_Specification
70116               (AMF.UML.Behavioral_Features.UML_Behavioral_Feature_Access (AMF.Holders.Elements.Element (Value)));
70117
70118         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
70119            --  Classifier::templateParameter : ClassifierTemplateParameter
70120
70121            AMF.UML.State_Machines.UML_State_Machine_Access
70122             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
70123               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
70124
70125         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
70126            --  ParameterableElement::templateParameter : TemplateParameter
70127
70128            AMF.UML.State_Machines.UML_State_Machine_Access
70129             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
70130               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
70131
70132         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
70133            --  NamedElement::visibility : VisibilityKind
70134
70135            AMF.UML.State_Machines.UML_State_Machine_Access
70136             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
70137               (AMF.UML.Holders.Element (Value));
70138
70139         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
70140            --  PackageableElement::visibility : VisibilityKind
70141
70142            AMF.UML.State_Machines.UML_State_Machine_Access
70143             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
70144               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
70145
70146         else
70147            raise Program_Error;
70148         end if;
70149      end UML_State_Machine_Set;
70150
70151      ------------------------
70152      -- UML_Stereotype_Set --
70153      ------------------------
70154
70155      procedure UML_Stereotype_Set is
70156      begin
70157         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
70158            --  BehavioredClassifier::classifierBehavior : Behavior
70159
70160            AMF.UML.Stereotypes.UML_Stereotype_Access
70161             (AMF.Internals.Helpers.To_Element (Self)).Set_Classifier_Behavior
70162               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
70163
70164         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Abstract then
70165            --  Class::isAbstract : Boolean
70166
70167            AMF.UML.Stereotypes.UML_Stereotype_Access
70168             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
70169               (League.Holders.Booleans.Element (Value));
70170
70171         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
70172            --  Classifier::isAbstract : Boolean
70173
70174            AMF.UML.Stereotypes.UML_Stereotype_Access
70175             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
70176               (League.Holders.Booleans.Element (Value));
70177
70178         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Active then
70179            --  Class::isActive : Boolean
70180
70181            AMF.UML.Stereotypes.UML_Stereotype_Access
70182             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Active
70183               (League.Holders.Booleans.Element (Value));
70184
70185         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
70186            --  Classifier::isFinalSpecialization : Boolean
70187
70188            AMF.UML.Stereotypes.UML_Stereotype_Access
70189             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization
70190               (League.Holders.Booleans.Element (Value));
70191
70192         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
70193            --  RedefinableElement::isLeaf : Boolean
70194
70195            AMF.UML.Stereotypes.UML_Stereotype_Access
70196             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
70197               (League.Holders.Booleans.Element (Value));
70198
70199         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
70200            --  NamedElement::name : String
70201
70202            AMF.UML.Stereotypes.UML_Stereotype_Access
70203             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
70204               (AMF.Holders.Element (Value));
70205
70206         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
70207            --  NamedElement::nameExpression : StringExpression
70208
70209            AMF.UML.Stereotypes.UML_Stereotype_Access
70210             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
70211               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
70212
70213         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
70214            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
70215
70216            AMF.UML.Stereotypes.UML_Stereotype_Access
70217             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
70218               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
70219
70220         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
70221            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
70222
70223            AMF.UML.Stereotypes.UML_Stereotype_Access
70224             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
70225               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
70226
70227         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
70228            --  ParameterableElement::owningTemplateParameter : TemplateParameter
70229
70230            AMF.UML.Stereotypes.UML_Stereotype_Access
70231             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
70232               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
70233
70234         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
70235            --  Type::package : Package
70236
70237            AMF.UML.Stereotypes.UML_Stereotype_Access
70238             (AMF.Internals.Helpers.To_Element (Self)).Set_Package
70239               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
70240
70241         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
70242            --  Classifier::representation : CollaborationUse
70243
70244            AMF.UML.Stereotypes.UML_Stereotype_Access
70245             (AMF.Internals.Helpers.To_Element (Self)).Set_Representation
70246               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access (AMF.Holders.Elements.Element (Value)));
70247
70248         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
70249            --  Classifier::templateParameter : ClassifierTemplateParameter
70250
70251            AMF.UML.Stereotypes.UML_Stereotype_Access
70252             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
70253               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
70254
70255         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
70256            --  ParameterableElement::templateParameter : TemplateParameter
70257
70258            AMF.UML.Stereotypes.UML_Stereotype_Access
70259             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
70260               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
70261
70262         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
70263            --  NamedElement::visibility : VisibilityKind
70264
70265            AMF.UML.Stereotypes.UML_Stereotype_Access
70266             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
70267               (AMF.UML.Holders.Element (Value));
70268
70269         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
70270            --  PackageableElement::visibility : VisibilityKind
70271
70272            AMF.UML.Stereotypes.UML_Stereotype_Access
70273             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
70274               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
70275
70276         else
70277            raise Program_Error;
70278         end if;
70279      end UML_Stereotype_Set;
70280
70281      -------------------------------
70282      -- UML_String_Expression_Set --
70283      -------------------------------
70284
70285      procedure UML_String_Expression_Set is
70286      begin
70287         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
70288            --  NamedElement::name : String
70289
70290            AMF.UML.String_Expressions.UML_String_Expression_Access
70291             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
70292               (AMF.Holders.Element (Value));
70293
70294         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
70295            --  NamedElement::nameExpression : StringExpression
70296
70297            AMF.UML.String_Expressions.UML_String_Expression_Access
70298             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
70299               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
70300
70301         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
70302            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
70303
70304            AMF.UML.String_Expressions.UML_String_Expression_Access
70305             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
70306               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
70307
70308         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_String_Expression_Owning_Expression_String_Expression_Sub_Expression then
70309            --  StringExpression::owningExpression : StringExpression
70310
70311            AMF.UML.String_Expressions.UML_String_Expression_Access
70312             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Expression
70313               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
70314
70315         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
70316            --  ParameterableElement::owningTemplateParameter : TemplateParameter
70317
70318            AMF.UML.String_Expressions.UML_String_Expression_Access
70319             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
70320               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
70321
70322         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Expression_Symbol then
70323            --  Expression::symbol : String
70324
70325            AMF.UML.String_Expressions.UML_String_Expression_Access
70326             (AMF.Internals.Helpers.To_Element (Self)).Set_Symbol
70327               (AMF.Holders.Element (Value));
70328
70329         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
70330            --  ParameterableElement::templateParameter : TemplateParameter
70331
70332            AMF.UML.String_Expressions.UML_String_Expression_Access
70333             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
70334               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
70335
70336         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
70337            --  TypedElement::type : Type
70338
70339            AMF.UML.String_Expressions.UML_String_Expression_Access
70340             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
70341               (AMF.UML.Types.UML_Type_Access (AMF.Holders.Elements.Element (Value)));
70342
70343         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
70344            --  NamedElement::visibility : VisibilityKind
70345
70346            AMF.UML.String_Expressions.UML_String_Expression_Access
70347             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
70348               (AMF.UML.Holders.Element (Value));
70349
70350         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
70351            --  PackageableElement::visibility : VisibilityKind
70352
70353            AMF.UML.String_Expressions.UML_String_Expression_Access
70354             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
70355               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
70356
70357         else
70358            raise Program_Error;
70359         end if;
70360      end UML_String_Expression_Set;
70361
70362      --------------------------------------
70363      -- UML_Structured_Activity_Node_Set --
70364      --------------------------------------
70365
70366      procedure UML_Structured_Activity_Node_Set is
70367      begin
70368         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
70369            --  ActivityNode::activity : Activity
70370
70371            AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
70372             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
70373               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
70374
70375         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Activity_Activity_Structured_Node then
70376            --  StructuredActivityNode::activity : Activity
70377
70378            AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
70379             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
70380               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
70381
70382         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Group_In_Activity_Activity_Group then
70383            --  ActivityGroup::inActivity : Activity
70384
70385            AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
70386             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Activity
70387               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
70388
70389         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
70390            --  ActivityNode::inStructuredNode : StructuredActivityNode
70391
70392            AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
70393             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
70394               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
70395
70396         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
70397            --  RedefinableElement::isLeaf : Boolean
70398
70399            AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
70400             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
70401               (League.Holders.Booleans.Element (Value));
70402
70403         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
70404            --  Action::isLocallyReentrant : Boolean
70405
70406            AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
70407             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
70408               (League.Holders.Booleans.Element (Value));
70409
70410         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Must_Isolate then
70411            --  StructuredActivityNode::mustIsolate : Boolean
70412
70413            AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
70414             (AMF.Internals.Helpers.To_Element (Self)).Set_Must_Isolate
70415               (League.Holders.Booleans.Element (Value));
70416
70417         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
70418            --  NamedElement::name : String
70419
70420            AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
70421             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
70422               (AMF.Holders.Element (Value));
70423
70424         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
70425            --  NamedElement::nameExpression : StringExpression
70426
70427            AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
70428             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
70429               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
70430
70431         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
70432            --  NamedElement::visibility : VisibilityKind
70433
70434            AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
70435             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
70436               (AMF.UML.Holders.Element (Value));
70437
70438         else
70439            raise Program_Error;
70440         end if;
70441      end UML_Structured_Activity_Node_Set;
70442
70443      --------------------------
70444      -- UML_Substitution_Set --
70445      --------------------------
70446
70447      procedure UML_Substitution_Set is
70448      begin
70449         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Substitution_Contract_A_Substitution then
70450            --  Substitution::contract : Classifier
70451
70452            AMF.UML.Substitutions.UML_Substitution_Access
70453             (AMF.Internals.Helpers.To_Element (Self)).Set_Contract
70454               (AMF.UML.Classifiers.UML_Classifier_Access (AMF.Holders.Elements.Element (Value)));
70455
70456         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Abstraction_Mapping_A_Abstraction then
70457            --  Abstraction::mapping : OpaqueExpression
70458
70459            AMF.UML.Substitutions.UML_Substitution_Access
70460             (AMF.Internals.Helpers.To_Element (Self)).Set_Mapping
70461               (AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access (AMF.Holders.Elements.Element (Value)));
70462
70463         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
70464            --  NamedElement::name : String
70465
70466            AMF.UML.Substitutions.UML_Substitution_Access
70467             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
70468               (AMF.Holders.Element (Value));
70469
70470         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
70471            --  NamedElement::nameExpression : StringExpression
70472
70473            AMF.UML.Substitutions.UML_Substitution_Access
70474             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
70475               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
70476
70477         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
70478            --  ParameterableElement::owningTemplateParameter : TemplateParameter
70479
70480            AMF.UML.Substitutions.UML_Substitution_Access
70481             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
70482               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
70483
70484         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Substitution_Substituting_Classifier_Classifier_Substitution then
70485            --  Substitution::substitutingClassifier : Classifier
70486
70487            AMF.UML.Substitutions.UML_Substitution_Access
70488             (AMF.Internals.Helpers.To_Element (Self)).Set_Substituting_Classifier
70489               (AMF.UML.Classifiers.UML_Classifier_Access (AMF.Holders.Elements.Element (Value)));
70490
70491         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
70492            --  ParameterableElement::templateParameter : TemplateParameter
70493
70494            AMF.UML.Substitutions.UML_Substitution_Access
70495             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
70496               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
70497
70498         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
70499            --  NamedElement::visibility : VisibilityKind
70500
70501            AMF.UML.Substitutions.UML_Substitution_Access
70502             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
70503               (AMF.UML.Holders.Element (Value));
70504
70505         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
70506            --  PackageableElement::visibility : VisibilityKind
70507
70508            AMF.UML.Substitutions.UML_Substitution_Access
70509             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
70510               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
70511
70512         else
70513            raise Program_Error;
70514         end if;
70515      end UML_Substitution_Set;
70516
70517      ------------------------------
70518      -- UML_Template_Binding_Set --
70519      ------------------------------
70520
70521      procedure UML_Template_Binding_Set is
70522      begin
70523         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Binding_Bound_Element_Templateable_Element_Template_Binding then
70524            --  TemplateBinding::boundElement : TemplateableElement
70525
70526            AMF.UML.Template_Bindings.UML_Template_Binding_Access
70527             (AMF.Internals.Helpers.To_Element (Self)).Set_Bound_Element
70528               (AMF.UML.Templateable_Elements.UML_Templateable_Element_Access (AMF.Holders.Elements.Element (Value)));
70529
70530         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Binding_Signature_A_Template_Binding then
70531            --  TemplateBinding::signature : TemplateSignature
70532
70533            AMF.UML.Template_Bindings.UML_Template_Binding_Access
70534             (AMF.Internals.Helpers.To_Element (Self)).Set_Signature
70535               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
70536
70537         else
70538            raise Program_Error;
70539         end if;
70540      end UML_Template_Binding_Set;
70541
70542      --------------------------------
70543      -- UML_Template_Parameter_Set --
70544      --------------------------------
70545
70546      procedure UML_Template_Parameter_Set is
70547      begin
70548         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Default_A_Template_Parameter then
70549            --  TemplateParameter::default : ParameterableElement
70550
70551            AMF.UML.Template_Parameters.UML_Template_Parameter_Access
70552             (AMF.Internals.Helpers.To_Element (Self)).Set_Default
70553               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access (AMF.Holders.Elements.Element (Value)));
70554
70555         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Owned_Default_A_Template_Parameter then
70556            --  TemplateParameter::ownedDefault : ParameterableElement
70557
70558            AMF.UML.Template_Parameters.UML_Template_Parameter_Access
70559             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Default
70560               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access (AMF.Holders.Elements.Element (Value)));
70561
70562         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Owned_Parametered_Element_Parameterable_Element_Owning_Template_Parameter then
70563            --  TemplateParameter::ownedParameteredElement : ParameterableElement
70564
70565            AMF.UML.Template_Parameters.UML_Template_Parameter_Access
70566             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Parametered_Element
70567               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access (AMF.Holders.Elements.Element (Value)));
70568
70569         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Parametered_Element_Parameterable_Element_Template_Parameter then
70570            --  TemplateParameter::parameteredElement : ParameterableElement
70571
70572            AMF.UML.Template_Parameters.UML_Template_Parameter_Access
70573             (AMF.Internals.Helpers.To_Element (Self)).Set_Parametered_Element
70574               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access (AMF.Holders.Elements.Element (Value)));
70575
70576         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Signature_Template_Signature_Owned_Parameter then
70577            --  TemplateParameter::signature : TemplateSignature
70578
70579            AMF.UML.Template_Parameters.UML_Template_Parameter_Access
70580             (AMF.Internals.Helpers.To_Element (Self)).Set_Signature
70581               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
70582
70583         else
70584            raise Program_Error;
70585         end if;
70586      end UML_Template_Parameter_Set;
70587
70588      ---------------------------------------------
70589      -- UML_Template_Parameter_Substitution_Set --
70590      ---------------------------------------------
70591
70592      procedure UML_Template_Parameter_Substitution_Set is
70593      begin
70594         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Substitution_Actual_A_Template_Parameter_Substitution then
70595            --  TemplateParameterSubstitution::actual : ParameterableElement
70596
70597            AMF.UML.Template_Parameter_Substitutions.UML_Template_Parameter_Substitution_Access
70598             (AMF.Internals.Helpers.To_Element (Self)).Set_Actual
70599               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access (AMF.Holders.Elements.Element (Value)));
70600
70601         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Substitution_Formal_A_Template_Parameter_Substitution then
70602            --  TemplateParameterSubstitution::formal : TemplateParameter
70603
70604            AMF.UML.Template_Parameter_Substitutions.UML_Template_Parameter_Substitution_Access
70605             (AMF.Internals.Helpers.To_Element (Self)).Set_Formal
70606               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
70607
70608         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Substitution_Owned_Actual_A_Template_Parameter_Substitution then
70609            --  TemplateParameterSubstitution::ownedActual : ParameterableElement
70610
70611            AMF.UML.Template_Parameter_Substitutions.UML_Template_Parameter_Substitution_Access
70612             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Actual
70613               (AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access (AMF.Holders.Elements.Element (Value)));
70614
70615         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Parameter_Substitution_Template_Binding_Template_Binding_Parameter_Substitution then
70616            --  TemplateParameterSubstitution::templateBinding : TemplateBinding
70617
70618            AMF.UML.Template_Parameter_Substitutions.UML_Template_Parameter_Substitution_Access
70619             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Binding
70620               (AMF.UML.Template_Bindings.UML_Template_Binding_Access (AMF.Holders.Elements.Element (Value)));
70621
70622         else
70623            raise Program_Error;
70624         end if;
70625      end UML_Template_Parameter_Substitution_Set;
70626
70627      --------------------------------
70628      -- UML_Template_Signature_Set --
70629      --------------------------------
70630
70631      procedure UML_Template_Signature_Set is
70632      begin
70633         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Template_Signature_Template_Templateable_Element_Owned_Template_Signature then
70634            --  TemplateSignature::template : TemplateableElement
70635
70636            AMF.UML.Template_Signatures.UML_Template_Signature_Access
70637             (AMF.Internals.Helpers.To_Element (Self)).Set_Template
70638               (AMF.UML.Templateable_Elements.UML_Templateable_Element_Access (AMF.Holders.Elements.Element (Value)));
70639
70640         else
70641            raise Program_Error;
70642         end if;
70643      end UML_Template_Signature_Set;
70644
70645      ----------------------------------
70646      -- UML_Test_Identity_Action_Set --
70647      ----------------------------------
70648
70649      procedure UML_Test_Identity_Action_Set is
70650      begin
70651         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
70652            --  ActivityNode::activity : Activity
70653
70654            AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
70655             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
70656               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
70657
70658         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Test_Identity_Action_First_A_Test_Identity_Action then
70659            --  TestIdentityAction::first : InputPin
70660
70661            AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
70662             (AMF.Internals.Helpers.To_Element (Self)).Set_First
70663               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
70664
70665         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
70666            --  ActivityNode::inStructuredNode : StructuredActivityNode
70667
70668            AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
70669             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
70670               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
70671
70672         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
70673            --  RedefinableElement::isLeaf : Boolean
70674
70675            AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
70676             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
70677               (League.Holders.Booleans.Element (Value));
70678
70679         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
70680            --  Action::isLocallyReentrant : Boolean
70681
70682            AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
70683             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
70684               (League.Holders.Booleans.Element (Value));
70685
70686         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
70687            --  NamedElement::name : String
70688
70689            AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
70690             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
70691               (AMF.Holders.Element (Value));
70692
70693         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
70694            --  NamedElement::nameExpression : StringExpression
70695
70696            AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
70697             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
70698               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
70699
70700         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Test_Identity_Action_Result_A_Test_Identity_Action then
70701            --  TestIdentityAction::result : OutputPin
70702
70703            AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
70704             (AMF.Internals.Helpers.To_Element (Self)).Set_Result
70705               (AMF.UML.Output_Pins.UML_Output_Pin_Access (AMF.Holders.Elements.Element (Value)));
70706
70707         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Test_Identity_Action_Second_A_Test_Identity_Action then
70708            --  TestIdentityAction::second : InputPin
70709
70710            AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
70711             (AMF.Internals.Helpers.To_Element (Self)).Set_Second
70712               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
70713
70714         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
70715            --  NamedElement::visibility : VisibilityKind
70716
70717            AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access
70718             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
70719               (AMF.UML.Holders.Element (Value));
70720
70721         else
70722            raise Program_Error;
70723         end if;
70724      end UML_Test_Identity_Action_Set;
70725
70726      -----------------------------
70727      -- UML_Time_Constraint_Set --
70728      -----------------------------
70729
70730      procedure UML_Time_Constraint_Set is
70731      begin
70732         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Constraint_Context_Namespace_Owned_Rule then
70733            --  Constraint::context : Namespace
70734
70735            AMF.UML.Time_Constraints.UML_Time_Constraint_Access
70736             (AMF.Internals.Helpers.To_Element (Self)).Set_Context
70737               (AMF.UML.Namespaces.UML_Namespace_Access (AMF.Holders.Elements.Element (Value)));
70738
70739         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Time_Constraint_First_Event then
70740            --  TimeConstraint::firstEvent : Boolean
70741
70742            AMF.UML.Time_Constraints.UML_Time_Constraint_Access
70743             (AMF.Internals.Helpers.To_Element (Self)).Set_First_Event
70744               (AMF.Holders.Element (Value));
70745
70746         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
70747            --  NamedElement::name : String
70748
70749            AMF.UML.Time_Constraints.UML_Time_Constraint_Access
70750             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
70751               (AMF.Holders.Element (Value));
70752
70753         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
70754            --  NamedElement::nameExpression : StringExpression
70755
70756            AMF.UML.Time_Constraints.UML_Time_Constraint_Access
70757             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
70758               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
70759
70760         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
70761            --  ParameterableElement::owningTemplateParameter : TemplateParameter
70762
70763            AMF.UML.Time_Constraints.UML_Time_Constraint_Access
70764             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
70765               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
70766
70767         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Constraint_Specification_A_Owning_Constraint then
70768            --  Constraint::specification : ValueSpecification
70769
70770            AMF.UML.Time_Constraints.UML_Time_Constraint_Access
70771             (AMF.Internals.Helpers.To_Element (Self)).Set_Specification
70772               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
70773
70774         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interval_Constraint_Specification_A_Interval_Constraint then
70775            --  IntervalConstraint::specification : Interval
70776
70777            AMF.UML.Time_Constraints.UML_Time_Constraint_Access
70778             (AMF.Internals.Helpers.To_Element (Self)).Set_Specification
70779               (AMF.UML.Intervals.UML_Interval_Access (AMF.Holders.Elements.Element (Value)));
70780
70781         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Time_Constraint_Specification_A_Time_Constraint then
70782            --  TimeConstraint::specification : TimeInterval
70783
70784            AMF.UML.Time_Constraints.UML_Time_Constraint_Access
70785             (AMF.Internals.Helpers.To_Element (Self)).Set_Specification
70786               (AMF.UML.Time_Intervals.UML_Time_Interval_Access (AMF.Holders.Elements.Element (Value)));
70787
70788         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
70789            --  ParameterableElement::templateParameter : TemplateParameter
70790
70791            AMF.UML.Time_Constraints.UML_Time_Constraint_Access
70792             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
70793               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
70794
70795         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
70796            --  NamedElement::visibility : VisibilityKind
70797
70798            AMF.UML.Time_Constraints.UML_Time_Constraint_Access
70799             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
70800               (AMF.UML.Holders.Element (Value));
70801
70802         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
70803            --  PackageableElement::visibility : VisibilityKind
70804
70805            AMF.UML.Time_Constraints.UML_Time_Constraint_Access
70806             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
70807               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
70808
70809         else
70810            raise Program_Error;
70811         end if;
70812      end UML_Time_Constraint_Set;
70813
70814      ------------------------
70815      -- UML_Time_Event_Set --
70816      ------------------------
70817
70818      procedure UML_Time_Event_Set is
70819      begin
70820         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Time_Event_Is_Relative then
70821            --  TimeEvent::isRelative : Boolean
70822
70823            AMF.UML.Time_Events.UML_Time_Event_Access
70824             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Relative
70825               (League.Holders.Booleans.Element (Value));
70826
70827         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
70828            --  NamedElement::name : String
70829
70830            AMF.UML.Time_Events.UML_Time_Event_Access
70831             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
70832               (AMF.Holders.Element (Value));
70833
70834         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
70835            --  NamedElement::nameExpression : StringExpression
70836
70837            AMF.UML.Time_Events.UML_Time_Event_Access
70838             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
70839               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
70840
70841         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
70842            --  ParameterableElement::owningTemplateParameter : TemplateParameter
70843
70844            AMF.UML.Time_Events.UML_Time_Event_Access
70845             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
70846               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
70847
70848         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
70849            --  ParameterableElement::templateParameter : TemplateParameter
70850
70851            AMF.UML.Time_Events.UML_Time_Event_Access
70852             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
70853               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
70854
70855         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
70856            --  NamedElement::visibility : VisibilityKind
70857
70858            AMF.UML.Time_Events.UML_Time_Event_Access
70859             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
70860               (AMF.UML.Holders.Element (Value));
70861
70862         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
70863            --  PackageableElement::visibility : VisibilityKind
70864
70865            AMF.UML.Time_Events.UML_Time_Event_Access
70866             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
70867               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
70868
70869         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Time_Event_When_A_Time_Event then
70870            --  TimeEvent::when : TimeExpression
70871
70872            AMF.UML.Time_Events.UML_Time_Event_Access
70873             (AMF.Internals.Helpers.To_Element (Self)).Set_When
70874               (AMF.UML.Time_Expressions.UML_Time_Expression_Access (AMF.Holders.Elements.Element (Value)));
70875
70876         else
70877            raise Program_Error;
70878         end if;
70879      end UML_Time_Event_Set;
70880
70881      -----------------------------
70882      -- UML_Time_Expression_Set --
70883      -----------------------------
70884
70885      procedure UML_Time_Expression_Set is
70886      begin
70887         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Time_Expression_Expr_A_Time_Expression then
70888            --  TimeExpression::expr : ValueSpecification
70889
70890            AMF.UML.Time_Expressions.UML_Time_Expression_Access
70891             (AMF.Internals.Helpers.To_Element (Self)).Set_Expr
70892               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
70893
70894         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
70895            --  NamedElement::name : String
70896
70897            AMF.UML.Time_Expressions.UML_Time_Expression_Access
70898             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
70899               (AMF.Holders.Element (Value));
70900
70901         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
70902            --  NamedElement::nameExpression : StringExpression
70903
70904            AMF.UML.Time_Expressions.UML_Time_Expression_Access
70905             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
70906               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
70907
70908         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
70909            --  ParameterableElement::owningTemplateParameter : TemplateParameter
70910
70911            AMF.UML.Time_Expressions.UML_Time_Expression_Access
70912             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
70913               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
70914
70915         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
70916            --  ParameterableElement::templateParameter : TemplateParameter
70917
70918            AMF.UML.Time_Expressions.UML_Time_Expression_Access
70919             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
70920               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
70921
70922         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
70923            --  TypedElement::type : Type
70924
70925            AMF.UML.Time_Expressions.UML_Time_Expression_Access
70926             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
70927               (AMF.UML.Types.UML_Type_Access (AMF.Holders.Elements.Element (Value)));
70928
70929         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
70930            --  NamedElement::visibility : VisibilityKind
70931
70932            AMF.UML.Time_Expressions.UML_Time_Expression_Access
70933             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
70934               (AMF.UML.Holders.Element (Value));
70935
70936         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
70937            --  PackageableElement::visibility : VisibilityKind
70938
70939            AMF.UML.Time_Expressions.UML_Time_Expression_Access
70940             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
70941               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
70942
70943         else
70944            raise Program_Error;
70945         end if;
70946      end UML_Time_Expression_Set;
70947
70948      ---------------------------
70949      -- UML_Time_Interval_Set --
70950      ---------------------------
70951
70952      procedure UML_Time_Interval_Set is
70953      begin
70954         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interval_Max_A_Interval then
70955            --  Interval::max : ValueSpecification
70956
70957            AMF.UML.Time_Intervals.UML_Time_Interval_Access
70958             (AMF.Internals.Helpers.To_Element (Self)).Set_Max
70959               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
70960
70961         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Time_Interval_Max_A_Time_Interval then
70962            --  TimeInterval::max : TimeExpression
70963
70964            AMF.UML.Time_Intervals.UML_Time_Interval_Access
70965             (AMF.Internals.Helpers.To_Element (Self)).Set_Max
70966               (AMF.UML.Time_Expressions.UML_Time_Expression_Access (AMF.Holders.Elements.Element (Value)));
70967
70968         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Interval_Min_A_Interval then
70969            --  Interval::min : ValueSpecification
70970
70971            AMF.UML.Time_Intervals.UML_Time_Interval_Access
70972             (AMF.Internals.Helpers.To_Element (Self)).Set_Min
70973               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
70974
70975         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Time_Interval_Min_A_Time_Interval then
70976            --  TimeInterval::min : TimeExpression
70977
70978            AMF.UML.Time_Intervals.UML_Time_Interval_Access
70979             (AMF.Internals.Helpers.To_Element (Self)).Set_Min
70980               (AMF.UML.Time_Expressions.UML_Time_Expression_Access (AMF.Holders.Elements.Element (Value)));
70981
70982         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
70983            --  NamedElement::name : String
70984
70985            AMF.UML.Time_Intervals.UML_Time_Interval_Access
70986             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
70987               (AMF.Holders.Element (Value));
70988
70989         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
70990            --  NamedElement::nameExpression : StringExpression
70991
70992            AMF.UML.Time_Intervals.UML_Time_Interval_Access
70993             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
70994               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
70995
70996         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
70997            --  ParameterableElement::owningTemplateParameter : TemplateParameter
70998
70999            AMF.UML.Time_Intervals.UML_Time_Interval_Access
71000             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
71001               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
71002
71003         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
71004            --  ParameterableElement::templateParameter : TemplateParameter
71005
71006            AMF.UML.Time_Intervals.UML_Time_Interval_Access
71007             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
71008               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
71009
71010         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
71011            --  TypedElement::type : Type
71012
71013            AMF.UML.Time_Intervals.UML_Time_Interval_Access
71014             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
71015               (AMF.UML.Types.UML_Type_Access (AMF.Holders.Elements.Element (Value)));
71016
71017         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
71018            --  NamedElement::visibility : VisibilityKind
71019
71020            AMF.UML.Time_Intervals.UML_Time_Interval_Access
71021             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
71022               (AMF.UML.Holders.Element (Value));
71023
71024         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
71025            --  PackageableElement::visibility : VisibilityKind
71026
71027            AMF.UML.Time_Intervals.UML_Time_Interval_Access
71028             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
71029               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
71030
71031         else
71032            raise Program_Error;
71033         end if;
71034      end UML_Time_Interval_Set;
71035
71036      ------------------------------
71037      -- UML_Time_Observation_Set --
71038      ------------------------------
71039
71040      procedure UML_Time_Observation_Set is
71041      begin
71042         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Time_Observation_Event_A_Time_Observation then
71043            --  TimeObservation::event : NamedElement
71044
71045            AMF.UML.Time_Observations.UML_Time_Observation_Access
71046             (AMF.Internals.Helpers.To_Element (Self)).Set_Event
71047               (AMF.UML.Named_Elements.UML_Named_Element_Access (AMF.Holders.Elements.Element (Value)));
71048
71049         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Time_Observation_First_Event then
71050            --  TimeObservation::firstEvent : Boolean
71051
71052            AMF.UML.Time_Observations.UML_Time_Observation_Access
71053             (AMF.Internals.Helpers.To_Element (Self)).Set_First_Event
71054               (League.Holders.Booleans.Element (Value));
71055
71056         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
71057            --  NamedElement::name : String
71058
71059            AMF.UML.Time_Observations.UML_Time_Observation_Access
71060             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
71061               (AMF.Holders.Element (Value));
71062
71063         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
71064            --  NamedElement::nameExpression : StringExpression
71065
71066            AMF.UML.Time_Observations.UML_Time_Observation_Access
71067             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
71068               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
71069
71070         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
71071            --  ParameterableElement::owningTemplateParameter : TemplateParameter
71072
71073            AMF.UML.Time_Observations.UML_Time_Observation_Access
71074             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
71075               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
71076
71077         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
71078            --  ParameterableElement::templateParameter : TemplateParameter
71079
71080            AMF.UML.Time_Observations.UML_Time_Observation_Access
71081             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
71082               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
71083
71084         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
71085            --  NamedElement::visibility : VisibilityKind
71086
71087            AMF.UML.Time_Observations.UML_Time_Observation_Access
71088             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
71089               (AMF.UML.Holders.Element (Value));
71090
71091         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
71092            --  PackageableElement::visibility : VisibilityKind
71093
71094            AMF.UML.Time_Observations.UML_Time_Observation_Access
71095             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
71096               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
71097
71098         else
71099            raise Program_Error;
71100         end if;
71101      end UML_Time_Observation_Set;
71102
71103      ------------------------
71104      -- UML_Transition_Set --
71105      ------------------------
71106
71107      procedure UML_Transition_Set is
71108      begin
71109         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Container_Region_Transition then
71110            --  Transition::container : Region
71111
71112            AMF.UML.Transitions.UML_Transition_Access
71113             (AMF.Internals.Helpers.To_Element (Self)).Set_Container
71114               (AMF.UML.Regions.UML_Region_Access (AMF.Holders.Elements.Element (Value)));
71115
71116         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Effect_A_Transition then
71117            --  Transition::effect : Behavior
71118
71119            AMF.UML.Transitions.UML_Transition_Access
71120             (AMF.Internals.Helpers.To_Element (Self)).Set_Effect
71121               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
71122
71123         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Guard_A_Transition then
71124            --  Transition::guard : Constraint
71125
71126            AMF.UML.Transitions.UML_Transition_Access
71127             (AMF.Internals.Helpers.To_Element (Self)).Set_Guard
71128               (AMF.UML.Constraints.UML_Constraint_Access (AMF.Holders.Elements.Element (Value)));
71129
71130         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
71131            --  RedefinableElement::isLeaf : Boolean
71132
71133            AMF.UML.Transitions.UML_Transition_Access
71134             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
71135               (League.Holders.Booleans.Element (Value));
71136
71137         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Kind then
71138            --  Transition::kind : TransitionKind
71139
71140            AMF.UML.Transitions.UML_Transition_Access
71141             (AMF.Internals.Helpers.To_Element (Self)).Set_Kind
71142               (AMF.UML.Holders.Transition_Kinds.Element (Value));
71143
71144         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
71145            --  NamedElement::name : String
71146
71147            AMF.UML.Transitions.UML_Transition_Access
71148             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
71149               (AMF.Holders.Element (Value));
71150
71151         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
71152            --  NamedElement::nameExpression : StringExpression
71153
71154            AMF.UML.Transitions.UML_Transition_Access
71155             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
71156               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
71157
71158         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Redefined_Transition_A_Transition then
71159            --  Transition::redefinedTransition : Transition
71160
71161            AMF.UML.Transitions.UML_Transition_Access
71162             (AMF.Internals.Helpers.To_Element (Self)).Set_Redefined_Transition
71163               (AMF.UML.Transitions.UML_Transition_Access (AMF.Holders.Elements.Element (Value)));
71164
71165         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Source_Vertex_Outgoing then
71166            --  Transition::source : Vertex
71167
71168            AMF.UML.Transitions.UML_Transition_Access
71169             (AMF.Internals.Helpers.To_Element (Self)).Set_Source
71170               (AMF.UML.Vertexs.UML_Vertex_Access (AMF.Holders.Elements.Element (Value)));
71171
71172         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Target_Vertex_Incoming then
71173            --  Transition::target : Vertex
71174
71175            AMF.UML.Transitions.UML_Transition_Access
71176             (AMF.Internals.Helpers.To_Element (Self)).Set_Target
71177               (AMF.UML.Vertexs.UML_Vertex_Access (AMF.Holders.Elements.Element (Value)));
71178
71179         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
71180            --  NamedElement::visibility : VisibilityKind
71181
71182            AMF.UML.Transitions.UML_Transition_Access
71183             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
71184               (AMF.UML.Holders.Element (Value));
71185
71186         else
71187            raise Program_Error;
71188         end if;
71189      end UML_Transition_Set;
71190
71191      ---------------------
71192      -- UML_Trigger_Set --
71193      ---------------------
71194
71195      procedure UML_Trigger_Set is
71196      begin
71197         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Trigger_Event_A_Trigger then
71198            --  Trigger::event : Event
71199
71200            AMF.UML.Triggers.UML_Trigger_Access
71201             (AMF.Internals.Helpers.To_Element (Self)).Set_Event
71202               (AMF.UML.Events.UML_Event_Access (AMF.Holders.Elements.Element (Value)));
71203
71204         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
71205            --  NamedElement::name : String
71206
71207            AMF.UML.Triggers.UML_Trigger_Access
71208             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
71209               (AMF.Holders.Element (Value));
71210
71211         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
71212            --  NamedElement::nameExpression : StringExpression
71213
71214            AMF.UML.Triggers.UML_Trigger_Access
71215             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
71216               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
71217
71218         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
71219            --  NamedElement::visibility : VisibilityKind
71220
71221            AMF.UML.Triggers.UML_Trigger_Access
71222             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
71223               (AMF.UML.Holders.Element (Value));
71224
71225         else
71226            raise Program_Error;
71227         end if;
71228      end UML_Trigger_Set;
71229
71230      -------------------------------
71231      -- UML_Unmarshall_Action_Set --
71232      -------------------------------
71233
71234      procedure UML_Unmarshall_Action_Set is
71235      begin
71236         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
71237            --  ActivityNode::activity : Activity
71238
71239            AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
71240             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
71241               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
71242
71243         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
71244            --  ActivityNode::inStructuredNode : StructuredActivityNode
71245
71246            AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
71247             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
71248               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
71249
71250         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
71251            --  RedefinableElement::isLeaf : Boolean
71252
71253            AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
71254             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
71255               (League.Holders.Booleans.Element (Value));
71256
71257         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
71258            --  Action::isLocallyReentrant : Boolean
71259
71260            AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
71261             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
71262               (League.Holders.Booleans.Element (Value));
71263
71264         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
71265            --  NamedElement::name : String
71266
71267            AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
71268             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
71269               (AMF.Holders.Element (Value));
71270
71271         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
71272            --  NamedElement::nameExpression : StringExpression
71273
71274            AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
71275             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
71276               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
71277
71278         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Unmarshall_Action_Object_A_Unmarshall_Action then
71279            --  UnmarshallAction::object : InputPin
71280
71281            AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
71282             (AMF.Internals.Helpers.To_Element (Self)).Set_Object
71283               (AMF.UML.Input_Pins.UML_Input_Pin_Access (AMF.Holders.Elements.Element (Value)));
71284
71285         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Unmarshall_Action_Unmarshall_Type_A_Unmarshall_Action then
71286            --  UnmarshallAction::unmarshallType : Classifier
71287
71288            AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
71289             (AMF.Internals.Helpers.To_Element (Self)).Set_Unmarshall_Type
71290               (AMF.UML.Classifiers.UML_Classifier_Access (AMF.Holders.Elements.Element (Value)));
71291
71292         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
71293            --  NamedElement::visibility : VisibilityKind
71294
71295            AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access
71296             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
71297               (AMF.UML.Holders.Element (Value));
71298
71299         else
71300            raise Program_Error;
71301         end if;
71302      end UML_Unmarshall_Action_Set;
71303
71304      -------------------
71305      -- UML_Usage_Set --
71306      -------------------
71307
71308      procedure UML_Usage_Set is
71309      begin
71310         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
71311            --  NamedElement::name : String
71312
71313            AMF.UML.Usages.UML_Usage_Access
71314             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
71315               (AMF.Holders.Element (Value));
71316
71317         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
71318            --  NamedElement::nameExpression : StringExpression
71319
71320            AMF.UML.Usages.UML_Usage_Access
71321             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
71322               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
71323
71324         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
71325            --  ParameterableElement::owningTemplateParameter : TemplateParameter
71326
71327            AMF.UML.Usages.UML_Usage_Access
71328             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
71329               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
71330
71331         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
71332            --  ParameterableElement::templateParameter : TemplateParameter
71333
71334            AMF.UML.Usages.UML_Usage_Access
71335             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
71336               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
71337
71338         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
71339            --  NamedElement::visibility : VisibilityKind
71340
71341            AMF.UML.Usages.UML_Usage_Access
71342             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
71343               (AMF.UML.Holders.Element (Value));
71344
71345         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
71346            --  PackageableElement::visibility : VisibilityKind
71347
71348            AMF.UML.Usages.UML_Usage_Access
71349             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
71350               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
71351
71352         else
71353            raise Program_Error;
71354         end if;
71355      end UML_Usage_Set;
71356
71357      ----------------------
71358      -- UML_Use_Case_Set --
71359      ----------------------
71360
71361      procedure UML_Use_Case_Set is
71362      begin
71363         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Behaviored_Classifier_Classifier_Behavior_A_Behaviored_Classifier then
71364            --  BehavioredClassifier::classifierBehavior : Behavior
71365
71366            AMF.UML.Use_Cases.UML_Use_Case_Access
71367             (AMF.Internals.Helpers.To_Element (Self)).Set_Classifier_Behavior
71368               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
71369
71370         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Abstract then
71371            --  Classifier::isAbstract : Boolean
71372
71373            AMF.UML.Use_Cases.UML_Use_Case_Access
71374             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Abstract
71375               (League.Holders.Booleans.Element (Value));
71376
71377         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization then
71378            --  Classifier::isFinalSpecialization : Boolean
71379
71380            AMF.UML.Use_Cases.UML_Use_Case_Access
71381             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Final_Specialization
71382               (League.Holders.Booleans.Element (Value));
71383
71384         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
71385            --  RedefinableElement::isLeaf : Boolean
71386
71387            AMF.UML.Use_Cases.UML_Use_Case_Access
71388             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
71389               (League.Holders.Booleans.Element (Value));
71390
71391         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
71392            --  NamedElement::name : String
71393
71394            AMF.UML.Use_Cases.UML_Use_Case_Access
71395             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
71396               (AMF.Holders.Element (Value));
71397
71398         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
71399            --  NamedElement::nameExpression : StringExpression
71400
71401            AMF.UML.Use_Cases.UML_Use_Case_Access
71402             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
71403               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
71404
71405         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Owned_Template_Signature_Redefinable_Template_Signature_Classifier then
71406            --  Classifier::ownedTemplateSignature : RedefinableTemplateSignature
71407
71408            AMF.UML.Use_Cases.UML_Use_Case_Access
71409             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
71410               (AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
71411
71412         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Templateable_Element_Owned_Template_Signature_Template_Signature_Template then
71413            --  TemplateableElement::ownedTemplateSignature : TemplateSignature
71414
71415            AMF.UML.Use_Cases.UML_Use_Case_Access
71416             (AMF.Internals.Helpers.To_Element (Self)).Set_Owned_Template_Signature
71417               (AMF.UML.Template_Signatures.UML_Template_Signature_Access (AMF.Holders.Elements.Element (Value)));
71418
71419         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
71420            --  ParameterableElement::owningTemplateParameter : TemplateParameter
71421
71422            AMF.UML.Use_Cases.UML_Use_Case_Access
71423             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
71424               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
71425
71426         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Type_Package_Package_Owned_Type then
71427            --  Type::package : Package
71428
71429            AMF.UML.Use_Cases.UML_Use_Case_Access
71430             (AMF.Internals.Helpers.To_Element (Self)).Set_Package
71431               (AMF.UML.Packages.UML_Package_Access (AMF.Holders.Elements.Element (Value)));
71432
71433         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Representation_A_Classifier then
71434            --  Classifier::representation : CollaborationUse
71435
71436            AMF.UML.Use_Cases.UML_Use_Case_Access
71437             (AMF.Internals.Helpers.To_Element (Self)).Set_Representation
71438               (AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access (AMF.Holders.Elements.Element (Value)));
71439
71440         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Classifier_Template_Parameter_Parametered_Element then
71441            --  Classifier::templateParameter : ClassifierTemplateParameter
71442
71443            AMF.UML.Use_Cases.UML_Use_Case_Access
71444             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
71445               (AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
71446
71447         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
71448            --  ParameterableElement::templateParameter : TemplateParameter
71449
71450            AMF.UML.Use_Cases.UML_Use_Case_Access
71451             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
71452               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
71453
71454         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
71455            --  NamedElement::visibility : VisibilityKind
71456
71457            AMF.UML.Use_Cases.UML_Use_Case_Access
71458             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
71459               (AMF.UML.Holders.Element (Value));
71460
71461         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Packageable_Element_Visibility then
71462            --  PackageableElement::visibility : VisibilityKind
71463
71464            AMF.UML.Use_Cases.UML_Use_Case_Access
71465             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
71466               (AMF.UML.Holders.Visibility_Kinds.Element (Value));
71467
71468         else
71469            raise Program_Error;
71470         end if;
71471      end UML_Use_Case_Set;
71472
71473      -----------------------
71474      -- UML_Value_Pin_Set --
71475      -----------------------
71476
71477      procedure UML_Value_Pin_Set is
71478      begin
71479         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
71480            --  ActivityNode::activity : Activity
71481
71482            AMF.UML.Value_Pins.UML_Value_Pin_Access
71483             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
71484               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
71485
71486         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
71487            --  ActivityNode::inStructuredNode : StructuredActivityNode
71488
71489            AMF.UML.Value_Pins.UML_Value_Pin_Access
71490             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
71491               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
71492
71493         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Pin_Is_Control then
71494            --  Pin::isControl : Boolean
71495
71496            AMF.UML.Value_Pins.UML_Value_Pin_Access
71497             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Control
71498               (League.Holders.Booleans.Element (Value));
71499
71500         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Is_Control_Type then
71501            --  ObjectNode::isControlType : Boolean
71502
71503            AMF.UML.Value_Pins.UML_Value_Pin_Access
71504             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Control_Type
71505               (League.Holders.Booleans.Element (Value));
71506
71507         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
71508            --  RedefinableElement::isLeaf : Boolean
71509
71510            AMF.UML.Value_Pins.UML_Value_Pin_Access
71511             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
71512               (League.Holders.Booleans.Element (Value));
71513
71514         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Ordered then
71515            --  MultiplicityElement::isOrdered : Boolean
71516
71517            AMF.UML.Value_Pins.UML_Value_Pin_Access
71518             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Ordered
71519               (League.Holders.Booleans.Element (Value));
71520
71521         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Unique then
71522            --  MultiplicityElement::isUnique : Boolean
71523
71524            AMF.UML.Value_Pins.UML_Value_Pin_Access
71525             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Unique
71526               (League.Holders.Booleans.Element (Value));
71527
71528         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower_Value_A_Owning_Lower then
71529            --  MultiplicityElement::lowerValue : ValueSpecification
71530
71531            AMF.UML.Value_Pins.UML_Value_Pin_Access
71532             (AMF.Internals.Helpers.To_Element (Self)).Set_Lower_Value
71533               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
71534
71535         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
71536            --  NamedElement::name : String
71537
71538            AMF.UML.Value_Pins.UML_Value_Pin_Access
71539             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
71540               (AMF.Holders.Element (Value));
71541
71542         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
71543            --  NamedElement::nameExpression : StringExpression
71544
71545            AMF.UML.Value_Pins.UML_Value_Pin_Access
71546             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
71547               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
71548
71549         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Ordering then
71550            --  ObjectNode::ordering : ObjectNodeOrderingKind
71551
71552            AMF.UML.Value_Pins.UML_Value_Pin_Access
71553             (AMF.Internals.Helpers.To_Element (Self)).Set_Ordering
71554               (AMF.UML.Holders.Object_Node_Ordering_Kinds.Element (Value));
71555
71556         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Selection_A_Object_Node then
71557            --  ObjectNode::selection : Behavior
71558
71559            AMF.UML.Value_Pins.UML_Value_Pin_Access
71560             (AMF.Internals.Helpers.To_Element (Self)).Set_Selection
71561               (AMF.UML.Behaviors.UML_Behavior_Access (AMF.Holders.Elements.Element (Value)));
71562
71563         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
71564            --  TypedElement::type : Type
71565
71566            AMF.UML.Value_Pins.UML_Value_Pin_Access
71567             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
71568               (AMF.UML.Types.UML_Type_Access (AMF.Holders.Elements.Element (Value)));
71569
71570         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Upper_Bound_A_Object_Node then
71571            --  ObjectNode::upperBound : ValueSpecification
71572
71573            AMF.UML.Value_Pins.UML_Value_Pin_Access
71574             (AMF.Internals.Helpers.To_Element (Self)).Set_Upper_Bound
71575               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
71576
71577         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper_Value_A_Owning_Upper then
71578            --  MultiplicityElement::upperValue : ValueSpecification
71579
71580            AMF.UML.Value_Pins.UML_Value_Pin_Access
71581             (AMF.Internals.Helpers.To_Element (Self)).Set_Upper_Value
71582               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
71583
71584         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Value_Pin_Value_A_Value_Pin then
71585            --  ValuePin::value : ValueSpecification
71586
71587            AMF.UML.Value_Pins.UML_Value_Pin_Access
71588             (AMF.Internals.Helpers.To_Element (Self)).Set_Value
71589               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
71590
71591         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
71592            --  NamedElement::visibility : VisibilityKind
71593
71594            AMF.UML.Value_Pins.UML_Value_Pin_Access
71595             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
71596               (AMF.UML.Holders.Element (Value));
71597
71598         else
71599            raise Program_Error;
71600         end if;
71601      end UML_Value_Pin_Set;
71602
71603      ----------------------------------------
71604      -- UML_Value_Specification_Action_Set --
71605      ----------------------------------------
71606
71607      procedure UML_Value_Specification_Action_Set is
71608      begin
71609         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_Activity_Activity_Node then
71610            --  ActivityNode::activity : Activity
71611
71612            AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
71613             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity
71614               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
71615
71616         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Node_In_Structured_Node_Structured_Activity_Node_Node then
71617            --  ActivityNode::inStructuredNode : StructuredActivityNode
71618
71619            AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
71620             (AMF.Internals.Helpers.To_Element (Self)).Set_In_Structured_Node
71621               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
71622
71623         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf then
71624            --  RedefinableElement::isLeaf : Boolean
71625
71626            AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
71627             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Leaf
71628               (League.Holders.Booleans.Element (Value));
71629
71630         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant then
71631            --  Action::isLocallyReentrant : Boolean
71632
71633            AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
71634             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Locally_Reentrant
71635               (League.Holders.Booleans.Element (Value));
71636
71637         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
71638            --  NamedElement::name : String
71639
71640            AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
71641             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
71642               (AMF.Holders.Element (Value));
71643
71644         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
71645            --  NamedElement::nameExpression : StringExpression
71646
71647            AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
71648             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
71649               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
71650
71651         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Value_Specification_Action_Result_A_Value_Specification_Action then
71652            --  ValueSpecificationAction::result : OutputPin
71653
71654            AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
71655             (AMF.Internals.Helpers.To_Element (Self)).Set_Result
71656               (AMF.UML.Output_Pins.UML_Output_Pin_Access (AMF.Holders.Elements.Element (Value)));
71657
71658         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Value_Specification_Action_Value_A_Value_Specification_Action then
71659            --  ValueSpecificationAction::value : ValueSpecification
71660
71661            AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
71662             (AMF.Internals.Helpers.To_Element (Self)).Set_Value
71663               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
71664
71665         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
71666            --  NamedElement::visibility : VisibilityKind
71667
71668            AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access
71669             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
71670               (AMF.UML.Holders.Element (Value));
71671
71672         else
71673            raise Program_Error;
71674         end if;
71675      end UML_Value_Specification_Action_Set;
71676
71677      ----------------------
71678      -- UML_Variable_Set --
71679      ----------------------
71680
71681      procedure UML_Variable_Set is
71682      begin
71683         if Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Variable_Activity_Scope_Activity_Variable then
71684            --  Variable::activityScope : Activity
71685
71686            AMF.UML.Variables.UML_Variable_Access
71687             (AMF.Internals.Helpers.To_Element (Self)).Set_Activity_Scope
71688               (AMF.UML.Activities.UML_Activity_Access (AMF.Holders.Elements.Element (Value)));
71689
71690         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Ordered then
71691            --  MultiplicityElement::isOrdered : Boolean
71692
71693            AMF.UML.Variables.UML_Variable_Access
71694             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Ordered
71695               (League.Holders.Booleans.Element (Value));
71696
71697         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Unique then
71698            --  MultiplicityElement::isUnique : Boolean
71699
71700            AMF.UML.Variables.UML_Variable_Access
71701             (AMF.Internals.Helpers.To_Element (Self)).Set_Is_Unique
71702               (League.Holders.Booleans.Element (Value));
71703
71704         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower_Value_A_Owning_Lower then
71705            --  MultiplicityElement::lowerValue : ValueSpecification
71706
71707            AMF.UML.Variables.UML_Variable_Access
71708             (AMF.Internals.Helpers.To_Element (Self)).Set_Lower_Value
71709               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
71710
71711         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name then
71712            --  NamedElement::name : String
71713
71714            AMF.UML.Variables.UML_Variable_Access
71715             (AMF.Internals.Helpers.To_Element (Self)).Set_Name
71716               (AMF.Holders.Element (Value));
71717
71718         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name_Expression_A_Named_Element then
71719            --  NamedElement::nameExpression : StringExpression
71720
71721            AMF.UML.Variables.UML_Variable_Access
71722             (AMF.Internals.Helpers.To_Element (Self)).Set_Name_Expression
71723               (AMF.UML.String_Expressions.UML_String_Expression_Access (AMF.Holders.Elements.Element (Value)));
71724
71725         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Owning_Template_Parameter_Template_Parameter_Owned_Parametered_Element then
71726            --  ParameterableElement::owningTemplateParameter : TemplateParameter
71727
71728            AMF.UML.Variables.UML_Variable_Access
71729             (AMF.Internals.Helpers.To_Element (Self)).Set_Owning_Template_Parameter
71730               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
71731
71732         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Variable_Scope_Structured_Activity_Node_Variable then
71733            --  Variable::scope : StructuredActivityNode
71734
71735            AMF.UML.Variables.UML_Variable_Access
71736             (AMF.Internals.Helpers.To_Element (Self)).Set_Scope
71737               (AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access (AMF.Holders.Elements.Element (Value)));
71738
71739         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Connectable_Element_Template_Parameter_Connectable_Element_Template_Parameter_Parametered_Element then
71740            --  ConnectableElement::templateParameter : ConnectableElementTemplateParameter
71741
71742            AMF.UML.Variables.UML_Variable_Access
71743             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
71744               (AMF.UML.Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
71745
71746         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameterable_Element_Template_Parameter_Template_Parameter_Parametered_Element then
71747            --  ParameterableElement::templateParameter : TemplateParameter
71748
71749            AMF.UML.Variables.UML_Variable_Access
71750             (AMF.Internals.Helpers.To_Element (Self)).Set_Template_Parameter
71751               (AMF.UML.Template_Parameters.UML_Template_Parameter_Access (AMF.Holders.Elements.Element (Value)));
71752
71753         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Typed_Element_Type_A_Typed_Element then
71754            --  TypedElement::type : Type
71755
71756            AMF.UML.Variables.UML_Variable_Access
71757             (AMF.Internals.Helpers.To_Element (Self)).Set_Type
71758               (AMF.UML.Types.UML_Type_Access (AMF.Holders.Elements.Element (Value)));
71759
71760         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper_Value_A_Owning_Upper then
71761            --  MultiplicityElement::upperValue : ValueSpecification
71762
71763            AMF.UML.Variables.UML_Variable_Access
71764             (AMF.Internals.Helpers.To_Element (Self)).Set_Upper_Value
71765               (AMF.UML.Value_Specifications.UML_Value_Specification_Access (AMF.Holders.Elements.Element (Value)));
71766
71767         elsif Property = AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility then
71768            --  NamedElement::visibility : VisibilityKind
71769
71770            AMF.UML.Variables.UML_Variable_Access
71771             (AMF.Internals.Helpers.To_Element (Self)).Set_Visibility
71772               (AMF.UML.Holders.Element (Value));
71773
71774         else
71775            raise Program_Error;
71776         end if;
71777      end UML_Variable_Set;
71778   begin
71779      case UML_Element_Table.Table (Self).Kind is
71780         when AMF.Internals.Tables.UML_Types.E_None =>
71781            raise Program_Error;
71782
71783         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Auxiliary =>
71784            Standard_Profile_L2_Auxiliary_Set;
71785
71786         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Call =>
71787            Standard_Profile_L2_Call_Set;
71788
71789         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Create =>
71790            Standard_Profile_L2_Create_Set;
71791
71792         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Derive =>
71793            Standard_Profile_L2_Derive_Set;
71794
71795         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Destroy =>
71796            Standard_Profile_L2_Destroy_Set;
71797
71798         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Document =>
71799            Standard_Profile_L2_Document_Set;
71800
71801         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Entity =>
71802            Standard_Profile_L2_Entity_Set;
71803
71804         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Executable =>
71805            Standard_Profile_L2_Executable_Set;
71806
71807         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Focus =>
71808            Standard_Profile_L2_Focus_Set;
71809
71810         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Framework =>
71811            Standard_Profile_L2_Framework_Set;
71812
71813         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Implement =>
71814            Standard_Profile_L2_Implement_Set;
71815
71816         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Implementation_Class =>
71817            Standard_Profile_L2_Implementation_Class_Set;
71818
71819         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Instantiate =>
71820            Standard_Profile_L2_Instantiate_Set;
71821
71822         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Library =>
71823            Standard_Profile_L2_Library_Set;
71824
71825         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Metaclass =>
71826            Standard_Profile_L2_Metaclass_Set;
71827
71828         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Model_Library =>
71829            Standard_Profile_L2_Model_Library_Set;
71830
71831         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Process =>
71832            Standard_Profile_L2_Process_Set;
71833
71834         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Realization =>
71835            Standard_Profile_L2_Realization_Set;
71836
71837         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Refine =>
71838            Standard_Profile_L2_Refine_Set;
71839
71840         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Responsibility =>
71841            Standard_Profile_L2_Responsibility_Set;
71842
71843         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Script =>
71844            Standard_Profile_L2_Script_Set;
71845
71846         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Send =>
71847            Standard_Profile_L2_Send_Set;
71848
71849         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Service =>
71850            Standard_Profile_L2_Service_Set;
71851
71852         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Source =>
71853            Standard_Profile_L2_Source_Set;
71854
71855         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Specification =>
71856            Standard_Profile_L2_Specification_Set;
71857
71858         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Subsystem =>
71859            Standard_Profile_L2_Subsystem_Set;
71860
71861         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Trace =>
71862            Standard_Profile_L2_Trace_Set;
71863
71864         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Type =>
71865            Standard_Profile_L2_Type_Set;
71866
71867         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Utility =>
71868            Standard_Profile_L2_Utility_Set;
71869
71870         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L3_Build_Component =>
71871            Standard_Profile_L3_Build_Component_Set;
71872
71873         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L3_Metamodel =>
71874            Standard_Profile_L3_Metamodel_Set;
71875
71876         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L3_System_Model =>
71877            Standard_Profile_L3_System_Model_Set;
71878
71879         when AMF.Internals.Tables.UML_Types.E_UML_Abstraction =>
71880            UML_Abstraction_Set;
71881
71882         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
71883            UML_Accept_Call_Action_Set;
71884
71885         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action =>
71886            UML_Accept_Event_Action_Set;
71887
71888         when AMF.Internals.Tables.UML_Types.E_UML_Action_Execution_Specification =>
71889            UML_Action_Execution_Specification_Set;
71890
71891         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
71892            UML_Action_Input_Pin_Set;
71893
71894         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
71895            UML_Activity_Set;
71896
71897         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Final_Node =>
71898            UML_Activity_Final_Node_Set;
71899
71900         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
71901            UML_Activity_Parameter_Node_Set;
71902
71903         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Partition =>
71904            UML_Activity_Partition_Set;
71905
71906         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
71907            UML_Actor_Set;
71908
71909         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
71910            UML_Add_Structural_Feature_Value_Action_Set;
71911
71912         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
71913            UML_Add_Variable_Value_Action_Set;
71914
71915         when AMF.Internals.Tables.UML_Types.E_UML_Any_Receive_Event =>
71916            UML_Any_Receive_Event_Set;
71917
71918         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
71919            UML_Artifact_Set;
71920
71921         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
71922            UML_Association_Set;
71923
71924         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
71925            UML_Association_Class_Set;
71926
71927         when AMF.Internals.Tables.UML_Types.E_UML_Behavior_Execution_Specification =>
71928            UML_Behavior_Execution_Specification_Set;
71929
71930         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
71931            UML_Broadcast_Signal_Action_Set;
71932
71933         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
71934            UML_Call_Behavior_Action_Set;
71935
71936         when AMF.Internals.Tables.UML_Types.E_UML_Call_Event =>
71937            UML_Call_Event_Set;
71938
71939         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
71940            UML_Call_Operation_Action_Set;
71941
71942         when AMF.Internals.Tables.UML_Types.E_UML_Central_Buffer_Node =>
71943            UML_Central_Buffer_Node_Set;
71944
71945         when AMF.Internals.Tables.UML_Types.E_UML_Change_Event =>
71946            UML_Change_Event_Set;
71947
71948         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
71949            UML_Class_Set;
71950
71951         when AMF.Internals.Tables.UML_Types.E_UML_Classifier_Template_Parameter =>
71952            UML_Classifier_Template_Parameter_Set;
71953
71954         when AMF.Internals.Tables.UML_Types.E_UML_Clause =>
71955            UML_Clause_Set;
71956
71957         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
71958            UML_Clear_Association_Action_Set;
71959
71960         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
71961            UML_Clear_Structural_Feature_Action_Set;
71962
71963         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action =>
71964            UML_Clear_Variable_Action_Set;
71965
71966         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
71967            UML_Collaboration_Set;
71968
71969         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration_Use =>
71970            UML_Collaboration_Use_Set;
71971
71972         when AMF.Internals.Tables.UML_Types.E_UML_Combined_Fragment =>
71973            UML_Combined_Fragment_Set;
71974
71975         when AMF.Internals.Tables.UML_Types.E_UML_Comment =>
71976            UML_Comment_Set;
71977
71978         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
71979            UML_Communication_Path_Set;
71980
71981         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
71982            UML_Component_Set;
71983
71984         when AMF.Internals.Tables.UML_Types.E_UML_Component_Realization =>
71985            UML_Component_Realization_Set;
71986
71987         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
71988            UML_Conditional_Node_Set;
71989
71990         when AMF.Internals.Tables.UML_Types.E_UML_Connectable_Element_Template_Parameter =>
71991            UML_Connectable_Element_Template_Parameter_Set;
71992
71993         when AMF.Internals.Tables.UML_Types.E_UML_Connection_Point_Reference =>
71994            UML_Connection_Point_Reference_Set;
71995
71996         when AMF.Internals.Tables.UML_Types.E_UML_Connector =>
71997            UML_Connector_Set;
71998
71999         when AMF.Internals.Tables.UML_Types.E_UML_Connector_End =>
72000            UML_Connector_End_Set;
72001
72002         when AMF.Internals.Tables.UML_Types.E_UML_Consider_Ignore_Fragment =>
72003            UML_Consider_Ignore_Fragment_Set;
72004
72005         when AMF.Internals.Tables.UML_Types.E_UML_Constraint =>
72006            UML_Constraint_Set;
72007
72008         when AMF.Internals.Tables.UML_Types.E_UML_Continuation =>
72009            UML_Continuation_Set;
72010
72011         when AMF.Internals.Tables.UML_Types.E_UML_Control_Flow =>
72012            UML_Control_Flow_Set;
72013
72014         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action =>
72015            UML_Create_Link_Action_Set;
72016
72017         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
72018            UML_Create_Link_Object_Action_Set;
72019
72020         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
72021            UML_Create_Object_Action_Set;
72022
72023         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Activity_Diagram =>
72024            UMLDI_UML_Activity_Diagram_Set;
72025
72026         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Association_End_Label =>
72027            UMLDI_UML_Association_End_Label_Set;
72028
72029         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Association_Or_Connector_Or_Link_Shape =>
72030            UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Set;
72031
72032         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Class_Diagram =>
72033            UMLDI_UML_Class_Diagram_Set;
72034
72035         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Classifier_Shape =>
72036            UMLDI_UML_Classifier_Shape_Set;
72037
72038         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Compartment =>
72039            UMLDI_UML_Compartment_Set;
72040
72041         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Compartmentable_Shape =>
72042            UMLDI_UML_Compartmentable_Shape_Set;
72043
72044         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Component_Diagram =>
72045            UMLDI_UML_Component_Diagram_Set;
72046
72047         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Composite_Structure_Diagram =>
72048            UMLDI_UML_Composite_Structure_Diagram_Set;
72049
72050         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Deployment_Diagram =>
72051            UMLDI_UML_Deployment_Diagram_Set;
72052
72053         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Edge =>
72054            UMLDI_UML_Edge_Set;
72055
72056         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Diagram =>
72057            UMLDI_UML_Interaction_Diagram_Set;
72058
72059         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Table_Label =>
72060            UMLDI_UML_Interaction_Table_Label_Set;
72061
72062         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Keyword_Label =>
72063            UMLDI_UML_Keyword_Label_Set;
72064
72065         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Label =>
72066            UMLDI_UML_Label_Set;
72067
72068         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Multiplicity_Label =>
72069            UMLDI_UML_Multiplicity_Label_Set;
72070
72071         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Name_Label =>
72072            UMLDI_UML_Name_Label_Set;
72073
72074         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Object_Diagram =>
72075            UMLDI_UML_Object_Diagram_Set;
72076
72077         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Package_Diagram =>
72078            UMLDI_UML_Package_Diagram_Set;
72079
72080         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Profile_Diagram =>
72081            UMLDI_UML_Profile_Diagram_Set;
72082
72083         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Redefines_Label =>
72084            UMLDI_UML_Redefines_Label_Set;
72085
72086         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Shape =>
72087            UMLDI_UML_Shape_Set;
72088
72089         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Machine_Diagram =>
72090            UMLDI_UML_State_Machine_Diagram_Set;
72091
72092         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Shape =>
72093            UMLDI_UML_State_Shape_Set;
72094
72095         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Stereotype_Property_Value_Label =>
72096            UMLDI_UML_Stereotype_Property_Value_Label_Set;
72097
72098         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Style =>
72099            UMLDI_UML_Style_Set;
72100
72101         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Typed_Element_Label =>
72102            UMLDI_UML_Typed_Element_Label_Set;
72103
72104         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Use_Case_Diagram =>
72105            UMLDI_UML_Use_Case_Diagram_Set;
72106
72107         when AMF.Internals.Tables.UML_Types.E_UML_Data_Store_Node =>
72108            UML_Data_Store_Node_Set;
72109
72110         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
72111            UML_Data_Type_Set;
72112
72113         when AMF.Internals.Tables.UML_Types.E_UML_Decision_Node =>
72114            UML_Decision_Node_Set;
72115
72116         when AMF.Internals.Tables.UML_Types.E_UML_Dependency =>
72117            UML_Dependency_Set;
72118
72119         when AMF.Internals.Tables.UML_Types.E_UML_Deployment =>
72120            UML_Deployment_Set;
72121
72122         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
72123            UML_Deployment_Specification_Set;
72124
72125         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action =>
72126            UML_Destroy_Link_Action_Set;
72127
72128         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action =>
72129            UML_Destroy_Object_Action_Set;
72130
72131         when AMF.Internals.Tables.UML_Types.E_UML_Destruction_Occurrence_Specification =>
72132            UML_Destruction_Occurrence_Specification_Set;
72133
72134         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
72135            UML_Device_Set;
72136
72137         when AMF.Internals.Tables.UML_Types.E_UML_Duration =>
72138            UML_Duration_Set;
72139
72140         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Constraint =>
72141            UML_Duration_Constraint_Set;
72142
72143         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Interval =>
72144            UML_Duration_Interval_Set;
72145
72146         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Observation =>
72147            UML_Duration_Observation_Set;
72148
72149         when AMF.Internals.Tables.UML_Types.E_UML_Element_Import =>
72150            UML_Element_Import_Set;
72151
72152         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
72153            UML_Enumeration_Set;
72154
72155         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration_Literal =>
72156            UML_Enumeration_Literal_Set;
72157
72158         when AMF.Internals.Tables.UML_Types.E_UML_Exception_Handler =>
72159            UML_Exception_Handler_Set;
72160
72161         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
72162            UML_Execution_Environment_Set;
72163
72164         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Occurrence_Specification =>
72165            UML_Execution_Occurrence_Specification_Set;
72166
72167         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
72168            UML_Expansion_Node_Set;
72169
72170         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
72171            UML_Expansion_Region_Set;
72172
72173         when AMF.Internals.Tables.UML_Types.E_UML_Expression =>
72174            UML_Expression_Set;
72175
72176         when AMF.Internals.Tables.UML_Types.E_UML_Extend =>
72177            UML_Extend_Set;
72178
72179         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
72180            UML_Extension_Set;
72181
72182         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
72183            UML_Extension_End_Set;
72184
72185         when AMF.Internals.Tables.UML_Types.E_UML_Extension_Point =>
72186            UML_Extension_Point_Set;
72187
72188         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
72189            UML_Final_State_Set;
72190
72191         when AMF.Internals.Tables.UML_Types.E_UML_Flow_Final_Node =>
72192            UML_Flow_Final_Node_Set;
72193
72194         when AMF.Internals.Tables.UML_Types.E_UML_Fork_Node =>
72195            UML_Fork_Node_Set;
72196
72197         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
72198            UML_Function_Behavior_Set;
72199
72200         when AMF.Internals.Tables.UML_Types.E_UML_Gate =>
72201            UML_Gate_Set;
72202
72203         when AMF.Internals.Tables.UML_Types.E_UML_General_Ordering =>
72204            UML_General_Ordering_Set;
72205
72206         when AMF.Internals.Tables.UML_Types.E_UML_Generalization =>
72207            UML_Generalization_Set;
72208
72209         when AMF.Internals.Tables.UML_Types.E_UML_Generalization_Set =>
72210            UML_Generalization_Set_Set;
72211
72212         when AMF.Internals.Tables.UML_Types.E_UML_Image =>
72213            UML_Image_Set;
72214
72215         when AMF.Internals.Tables.UML_Types.E_UML_Include =>
72216            UML_Include_Set;
72217
72218         when AMF.Internals.Tables.UML_Types.E_UML_Information_Flow =>
72219            UML_Information_Flow_Set;
72220
72221         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
72222            UML_Information_Item_Set;
72223
72224         when AMF.Internals.Tables.UML_Types.E_UML_Initial_Node =>
72225            UML_Initial_Node_Set;
72226
72227         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
72228            UML_Input_Pin_Set;
72229
72230         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Specification =>
72231            UML_Instance_Specification_Set;
72232
72233         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Value =>
72234            UML_Instance_Value_Set;
72235
72236         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
72237            UML_Interaction_Set;
72238
72239         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Constraint =>
72240            UML_Interaction_Constraint_Set;
72241
72242         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Operand =>
72243            UML_Interaction_Operand_Set;
72244
72245         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Use =>
72246            UML_Interaction_Use_Set;
72247
72248         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
72249            UML_Interface_Set;
72250
72251         when AMF.Internals.Tables.UML_Types.E_UML_Interface_Realization =>
72252            UML_Interface_Realization_Set;
72253
72254         when AMF.Internals.Tables.UML_Types.E_UML_Interruptible_Activity_Region =>
72255            UML_Interruptible_Activity_Region_Set;
72256
72257         when AMF.Internals.Tables.UML_Types.E_UML_Interval =>
72258            UML_Interval_Set;
72259
72260         when AMF.Internals.Tables.UML_Types.E_UML_Interval_Constraint =>
72261            UML_Interval_Constraint_Set;
72262
72263         when AMF.Internals.Tables.UML_Types.E_UML_Join_Node =>
72264            UML_Join_Node_Set;
72265
72266         when AMF.Internals.Tables.UML_Types.E_UML_Lifeline =>
72267            UML_Lifeline_Set;
72268
72269         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Creation_Data =>
72270            UML_Link_End_Creation_Data_Set;
72271
72272         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Data =>
72273            UML_Link_End_Data_Set;
72274
72275         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Destruction_Data =>
72276            UML_Link_End_Destruction_Data_Set;
72277
72278         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Boolean =>
72279            UML_Literal_Boolean_Set;
72280
72281         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Integer =>
72282            UML_Literal_Integer_Set;
72283
72284         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Null =>
72285            UML_Literal_Null_Set;
72286
72287         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Real =>
72288            UML_Literal_Real_Set;
72289
72290         when AMF.Internals.Tables.UML_Types.E_UML_Literal_String =>
72291            UML_Literal_String_Set;
72292
72293         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Unlimited_Natural =>
72294            UML_Literal_Unlimited_Natural_Set;
72295
72296         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
72297            UML_Loop_Node_Set;
72298
72299         when AMF.Internals.Tables.UML_Types.E_UML_Manifestation =>
72300            UML_Manifestation_Set;
72301
72302         when AMF.Internals.Tables.UML_Types.E_UML_Merge_Node =>
72303            UML_Merge_Node_Set;
72304
72305         when AMF.Internals.Tables.UML_Types.E_UML_Message =>
72306            UML_Message_Set;
72307
72308         when AMF.Internals.Tables.UML_Types.E_UML_Message_Occurrence_Specification =>
72309            UML_Message_Occurrence_Specification_Set;
72310
72311         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
72312            UML_Model_Set;
72313
72314         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
72315            UML_Node_Set;
72316
72317         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
72318            UML_Object_Flow_Set;
72319
72320         when AMF.Internals.Tables.UML_Types.E_UML_Occurrence_Specification =>
72321            UML_Occurrence_Specification_Set;
72322
72323         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action =>
72324            UML_Opaque_Action_Set;
72325
72326         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
72327            UML_Opaque_Behavior_Set;
72328
72329         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Expression =>
72330            UML_Opaque_Expression_Set;
72331
72332         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
72333            UML_Operation_Set;
72334
72335         when AMF.Internals.Tables.UML_Types.E_UML_Operation_Template_Parameter =>
72336            UML_Operation_Template_Parameter_Set;
72337
72338         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
72339            UML_Output_Pin_Set;
72340
72341         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
72342            UML_Package_Set;
72343
72344         when AMF.Internals.Tables.UML_Types.E_UML_Package_Import =>
72345            UML_Package_Import_Set;
72346
72347         when AMF.Internals.Tables.UML_Types.E_UML_Package_Merge =>
72348            UML_Package_Merge_Set;
72349
72350         when AMF.Internals.Tables.UML_Types.E_UML_Parameter =>
72351            UML_Parameter_Set;
72352
72353         when AMF.Internals.Tables.UML_Types.E_UML_Parameter_Set =>
72354            UML_Parameter_Set_Set;
72355
72356         when AMF.Internals.Tables.UML_Types.E_UML_Part_Decomposition =>
72357            UML_Part_Decomposition_Set;
72358
72359         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
72360            UML_Port_Set;
72361
72362         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
72363            UML_Primitive_Type_Set;
72364
72365         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
72366            UML_Profile_Set;
72367
72368         when AMF.Internals.Tables.UML_Types.E_UML_Profile_Application =>
72369            UML_Profile_Application_Set;
72370
72371         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
72372            UML_Property_Set;
72373
72374         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Conformance =>
72375            UML_Protocol_Conformance_Set;
72376
72377         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
72378            UML_Protocol_State_Machine_Set;
72379
72380         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
72381            UML_Protocol_Transition_Set;
72382
72383         when AMF.Internals.Tables.UML_Types.E_UML_Pseudostate =>
72384            UML_Pseudostate_Set;
72385
72386         when AMF.Internals.Tables.UML_Types.E_UML_Qualifier_Value =>
72387            UML_Qualifier_Value_Set;
72388
72389         when AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action =>
72390            UML_Raise_Exception_Action_Set;
72391
72392         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
72393            UML_Read_Extent_Action_Set;
72394
72395         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
72396            UML_Read_Is_Classified_Object_Action_Set;
72397
72398         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
72399            UML_Read_Link_Action_Set;
72400
72401         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
72402            UML_Read_Link_Object_End_Action_Set;
72403
72404         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
72405            UML_Read_Link_Object_End_Qualifier_Action_Set;
72406
72407         when AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action =>
72408            UML_Read_Self_Action_Set;
72409
72410         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
72411            UML_Read_Structural_Feature_Action_Set;
72412
72413         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
72414            UML_Read_Variable_Action_Set;
72415
72416         when AMF.Internals.Tables.UML_Types.E_UML_Realization =>
72417            UML_Realization_Set;
72418
72419         when AMF.Internals.Tables.UML_Types.E_UML_Reception =>
72420            UML_Reception_Set;
72421
72422         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
72423            UML_Reclassify_Object_Action_Set;
72424
72425         when AMF.Internals.Tables.UML_Types.E_UML_Redefinable_Template_Signature =>
72426            UML_Redefinable_Template_Signature_Set;
72427
72428         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
72429            UML_Reduce_Action_Set;
72430
72431         when AMF.Internals.Tables.UML_Types.E_UML_Region =>
72432            UML_Region_Set;
72433
72434         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
72435            UML_Remove_Structural_Feature_Value_Action_Set;
72436
72437         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
72438            UML_Remove_Variable_Value_Action_Set;
72439
72440         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
72441            UML_Reply_Action_Set;
72442
72443         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
72444            UML_Send_Object_Action_Set;
72445
72446         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
72447            UML_Send_Signal_Action_Set;
72448
72449         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
72450            UML_Sequence_Node_Set;
72451
72452         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
72453            UML_Signal_Set;
72454
72455         when AMF.Internals.Tables.UML_Types.E_UML_Signal_Event =>
72456            UML_Signal_Event_Set;
72457
72458         when AMF.Internals.Tables.UML_Types.E_UML_Slot =>
72459            UML_Slot_Set;
72460
72461         when AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action =>
72462            UML_Start_Classifier_Behavior_Action_Set;
72463
72464         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
72465            UML_Start_Object_Behavior_Action_Set;
72466
72467         when AMF.Internals.Tables.UML_Types.E_UML_State =>
72468            UML_State_Set;
72469
72470         when AMF.Internals.Tables.UML_Types.E_UML_State_Invariant =>
72471            UML_State_Invariant_Set;
72472
72473         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
72474            UML_State_Machine_Set;
72475
72476         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
72477            UML_Stereotype_Set;
72478
72479         when AMF.Internals.Tables.UML_Types.E_UML_String_Expression =>
72480            UML_String_Expression_Set;
72481
72482         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
72483            UML_Structured_Activity_Node_Set;
72484
72485         when AMF.Internals.Tables.UML_Types.E_UML_Substitution =>
72486            UML_Substitution_Set;
72487
72488         when AMF.Internals.Tables.UML_Types.E_UML_Template_Binding =>
72489            UML_Template_Binding_Set;
72490
72491         when AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter =>
72492            UML_Template_Parameter_Set;
72493
72494         when AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter_Substitution =>
72495            UML_Template_Parameter_Substitution_Set;
72496
72497         when AMF.Internals.Tables.UML_Types.E_UML_Template_Signature =>
72498            UML_Template_Signature_Set;
72499
72500         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
72501            UML_Test_Identity_Action_Set;
72502
72503         when AMF.Internals.Tables.UML_Types.E_UML_Time_Constraint =>
72504            UML_Time_Constraint_Set;
72505
72506         when AMF.Internals.Tables.UML_Types.E_UML_Time_Event =>
72507            UML_Time_Event_Set;
72508
72509         when AMF.Internals.Tables.UML_Types.E_UML_Time_Expression =>
72510            UML_Time_Expression_Set;
72511
72512         when AMF.Internals.Tables.UML_Types.E_UML_Time_Interval =>
72513            UML_Time_Interval_Set;
72514
72515         when AMF.Internals.Tables.UML_Types.E_UML_Time_Observation =>
72516            UML_Time_Observation_Set;
72517
72518         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
72519            UML_Transition_Set;
72520
72521         when AMF.Internals.Tables.UML_Types.E_UML_Trigger =>
72522            UML_Trigger_Set;
72523
72524         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
72525            UML_Unmarshall_Action_Set;
72526
72527         when AMF.Internals.Tables.UML_Types.E_UML_Usage =>
72528            UML_Usage_Set;
72529
72530         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
72531            UML_Use_Case_Set;
72532
72533         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
72534            UML_Value_Pin_Set;
72535
72536         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
72537            UML_Value_Specification_Action_Set;
72538
72539         when AMF.Internals.Tables.UML_Types.E_UML_Variable =>
72540            UML_Variable_Set;
72541      end case;
72542   end Set;
72543
72544end AMF.Internals.Tables.UML_Reflection;
72545