; Mon Jul 28 02:15:10 EDT 2003
; 
;+ (version "1.8")
;+ (build "Build 1074")


(defclass %3ACLIPS_TOP_LEVEL_SLOT_CLASS
	(is-a USER)
	(role concrete)
	(single-slot SineFn
;+		(comment "(&%SineFn ?DEGREE) is the sine of the &%PlaneAngleMeasure ?DEGREE.  The sine of ?DEGREE is the ratio of the side opposite ?DEGREE to the hypotenuse in a right-angled triangle.")
		(type INSTANCE)
;+		(allowed-classes RealNumber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PositionCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000449):\n<ccts:BBIE dictionaryEntryName=''Physical Attribute. Position. Code'' definition=''identifies by a code the position of the physical attribute that is being described.'' objectClassTerm=''Physical Attribute'' propertyTerm=''Position'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot distance
;+		(comment "(&%distance ?OBJ1 ?OBJ2 ?QUANT) means that the shortest distance between the two objects ?OBJ1 and ?OBJ2 is ?QUANT.  Note that the difference between the predicates &%length and &%distance is that the &%length is used to state the &%LengthMeasure of one of the dimensions of a single object, while &%distance is used to state the &%LengthMeasure that separates two distinct objects.")
		(type INSTANCE)
;+		(allowed-classes Physical)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PastFn
;+		(comment "A &%UnaryFunction that maps a &%TimePosition to the &%TimeInterval that meets it and that begins at &%NegativeInfinity.")
		(type INSTANCE)
;+		(allowed-classes TimeInterval)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot equivalenceRelationOn
;+		(comment "A &%BinaryRelation is an &%equivalenceRelationOn a &%SetOrClass only if the relation is &%reflexiveOn the &%SetOrClass and it is both a &%TransitiveRelation and a &%SymmetricRelation.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot usageType
;+		(comment "usageType describes the context in which a word is used as a label for a particular concept.")
		(type SYMBOL)
		(allowed-values preferred slang technical deprecated)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PredecessorFn
;+		(comment "A &%UnaryFunction that maps an &%Integer to its predecessor, e.g. the predecessor of 5 is 4.")
		(type INSTANCE)
;+		(allowed-classes Integer)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DurationMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000445):\n<ccts:BBIE dictionaryEntryName=''Penalty_ Period. Duration. Measure'' definition=''A duration of time expressed as a formal code. The Measure. Code inside the Measure. Type should be ISO 8601.'' qualifierTermObjectClassTerm=''Penalty'' objectClassTerm=''Period'' propertyTerm=''Duration'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CargoTypeCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000118):\n<ccts:BBIE dictionaryEntryName=''Commodity Classification. Cargo Type. Code'' definition=''Code specifying a type of cargo.'' objectClassTerm=''Commodity Classification'' propertyTerm=''Cargo Type'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ToFollowActionCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000482):\n<ccts:BBIE dictionaryEntryName=''Referenced_ Despatch Line. To Follow_ Action. Code'' definition=''specification by a code informing the seller/supplier what they can do with the 'to follow' quantity, e.g. no longer required.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Despatch Line'' qualifierTerm_PropertyTerm=''To Follow'' propertyTerm=''Action'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot path
;+		(comment "(&%path ?MOTION ?PATH) means that ?PATH is a route along which ?MOTION occurs.  For example, Highway 101 is the path in the following proposition:  the car drove up Highway 101.")
		(type INSTANCE)
;+		(allowed-classes Region)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot exhaustiveDecomposition
;+		(comment "An &%exhaustiveDecomposition of a &%Class C is a set of subclasses of C such that every subclass of C either is an element of the set or is a subclass of an element of the set.  Note: this does not necessarily mean that the elements of the set are disjoint (see &%partition - a &%partition is a disjoint exhaustive decomposition.)")
		(type INSTANCE)
;+		(allowed-classes Class)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot FromEventCode
		(type STRING)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot identityElement
;+		(comment "An object ?ID is the identity element for BinaryFunction ?FUNCTION just in case, for every instance ?INST, applying ?FUNCTION to ?INST and ?ID results in ?INST.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AccountName
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000409):\n<ccts:BBIE dictionaryEntryName=''Payee_ Financial Account. Account. Name'' definition='' the identifying name of the account given by the account holder.'' qualifierTermObjectClassTerm=''Payee'' objectClassTerm=''Financial Account'' propertyTerm=''Account Name'' representationTerm=''Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot properPart
;+		(comment "(&%properPart ?OBJ1 ?OBJ2) means that\n?OBJ1 is a part of ?OBJ2 other than ?OBJ2 itself. This is a\n&%TransitiveRelation and &%AsymmetricRelation (hence an\n&%IrreflexiveRelation).\n")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
;+		(subslot-of part)
		(create-accessor read-write))
	(single-slot StreetAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000151):\n<ccts:BBIE dictionaryEntryName=''Deliver To_ Address. Street. Text'' definition=''the name of the street, as part of an address.'' qualifierTermObjectClassTerm=''Deliver To'' objectClassTerm=''Address'' propertyTerm=''Street'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot length
;+		(comment "&%BinaryPredicate that is used to state the measure of an &%Object from one point to another point along its surface.  Note that the difference between the predicates &%length and &%distance is that the &%length is used to state the &%LengthMeasure of one of the dimensions of a single object, while &%distance is used to state the &%LengthMeasure that separates two distinct objects.")
		(type INSTANCE)
;+		(allowed-classes LengthMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MinimumAmount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000077):\n<ccts:BBIE dictionaryEntryName=''Base Price. Minimum_ Amount'' definition=''specifies the minimum amount in a range for which the price applies.'' objectClassTerm=''Base Price'' qualifierTerm_PropertyTerm=''Minimum'' propertyTerm=''Amount'' representationTerm=''Amount''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ExchangeMarketID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000214):\n<ccts:BBIE dictionaryEntryName=''Exchange Rate. Exchange Market. Identifier'' definition=''identifies the currency exchange market from which the exchange rate is taken.'' objectClassTerm=''Exchange Rate'' propertyTerm=''Exchange Market Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot causes
;+		(comment "The causation relation between instances of &%Process.  (&%causes ?PROCESS1 ?PROCESS2) means that the instance of &%Process ?PROCESS1 brings about the instance of &%Process ?PROCESS2, e.g. (&%causes &%Killing &%Death).")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot distributes
;+		(comment "A &%BinaryFunction ?FUNCTION1 is distributive over another &%BinaryFunction ?FUNCTION2 just in case (?FUNCTION1 ?INST1 (?FUNCTION2 ?INST2 ?INST3)) is equal to (?FUNCTION2 (?FUNCTION1 ?INST1 ?INST2) (?FUNCTION1 ?INST1 ?INST3)), for all ?INST1, ?INST2, and ?INST3.")
		(type INSTANCE)
;+		(allowed-classes BinaryFunction)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SellersItemIdentification
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000292):\n<ccts:ASBIE dictionaryEntryName=''Item. Seller's_ Item. Identification'' definition=''associates the item with its identification according to the seller's system.'' objectClassTerm=''Item'' qualifierTerm_PropertyTerm=''Seller's'' propertyTerm=''Item'' representationTerm=''Identification''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot meetsSpatially
;+		(comment "(&%meetsSpatially ?OBJ1 ?OBJ2) means that ?OBJ1 and ?OBJ2 are &%connected but that neither ?OBJ1 nor ?OBJ2 &%overlapsSpatially the other.\n\n(connected ?OBJ1 ?OBJ2) means that ?OBJ1 &%meetsSpatially ?OBJ2 or that ?OBJ1 &%overlapsSpatially ?OBJ2.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
;+		(subslot-of connected)
		(create-accessor read-write))
	(single-slot wife
;+		(comment "(&%wife ?WOMAN ?MAN) means that ?WOMAN is the wife of ?MAN.\n")
		(type INSTANCE)
;+		(allowed-classes Man)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PathWeightFn
;+		(comment "A &%UnaryFunction that maps a &%GraphPath to the sum of the &%arcWeights on the &%GraphArcs in the &%GraphPath.")
		(type INSTANCE)
;+		(allowed-classes RealNumber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TaxCurrencyCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL700007):\n<ccts:BBIE dictionaryEntryName=''Invoice. Tax_ Currency. Code'' definition=''the currency in which the tax on the Invoice is presented. This may be the same currency as the pricing or as the Invoice itself.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Invoice'' qualifierTerm_PropertyTerm=''Tax'' propertyTerm=''Currency'' representationTerm=''Code'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot WealthFn
;+		(comment "A &%UnaryFunction that maps an &%Agent to a &%CurrencyMeasure specifying the value of the property owned by the &%Agent.  Note that this &%Function is generally used in conjunction with the &%Function &%PropertyFn, e.g. (&%WealthFn (&%PropertyFn BillGates)) would return the monetary value of the sum of Bill Gates' holdings.")
		(type INSTANCE)
;+		(allowed-classes CurrencyMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PicoFn
;+		(comment "A &%UnaryFunction that maps a &%UnitOfMeasure into a &%UnitOfMeasure that is equal to .000000000001 units of the original &%UnitOfMeasure.  For example, (&%PicoFn &%Ampere) is .000000000001 &%Amperes.")
		(type INSTANCE)
;+		(allowed-classes UnitOfMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MinimalCutSetFn
;+		(comment "A &%UnaryFunction that assigns a &%Graph the &%Class of &%GraphPaths which comprise cutsets for the &%Graph and which have the least number of &%GraphArcs.")
		(type INSTANCE)
;+		(allowed-classes GraphPath)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ContainedPackage
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000011):\n<ccts:ASBIE dictionaryEntryName=''Actual_ Package. Contained_ Package'' definition=''associates an outer package with information directly relating to the inner packaging of item(s) when nested in outer packaging.  (Note that this is a re-use of Package within Package ).'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Package'' qualifierTerm_PropertyTerm=''Contained'' propertyTerm=''Package'' representationTerm=''Package''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RealNumberFn
;+		(comment "(RealNumberFn ?NUMBER) returns the part of ?NUMBER that is a &%RealNumber.")
		(type INSTANCE)
;+		(allowed-classes RealNumber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot sibling
;+		(comment "The relationship between two &%Organisms that have the same &%mother and &%father.  Note that this relationship does not hold between half-brothers, half-sisters, etc.")
		(type INSTANCE)
;+		(allowed-classes Organism)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot geometricDistance
;+		(comment "(&%geometricDistance ?POINT1 ?POINT2 ?LENGTH) means that ?LENGTH is the distance between the two &%GeometricPoints ?POINT1 and ?POINT2.\n")
		(type INSTANCE)
;+		(allowed-classes GeometricPoint)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot temporallyBetweenOrEqual
;+		(comment "(&%temporallyBetweenOrEqual ?POINT1 ?POINT2 ?POINT3) means that the &%TimePoint ?POINT1 is before or equal to the &%TimePoint ?POINT2 and ?POINT2 is before or equal to the &%TimePoint ?POINT3.")
		(type INSTANCE)
;+		(allowed-classes TimePoint)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ShippingContact
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000556):\n<ccts:ASBIE dictionaryEntryName=''Seller_ Party. Shipping_ Contact'' definition=''associates (optionally) the party with information on the shipping contact'' qualifierTermObjectClassTerm=''Seller'' objectClassTerm=''Party'' qualifierTerm_PropertyTerm=''Shipping'' propertyTerm=''Contact'' representationTerm=''Contact''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot child-of
		(type STRING)
		(create-accessor read-write))
	(single-slot inverse
;+		(comment "The inverse of a &%BinaryRelation is a relation in which all the tuples of the original relation are reversed.  In other words, one &%BinaryRelation is the inverse of another if they are equivalent when their arguments are swapped.")
		(type INSTANCE)
;+		(allowed-classes BinaryRelation)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot consistent
;+		(comment "(&%consistent ?PROP1 ?PROP2) means that the two &%Propositions ?PROP1 and ?PROP2 are consistent with one another, i.e. it is possible for both of them to be true at the same time.\n")
		(type INSTANCE)
;+		(allowed-classes Proposition)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot transactionAmount
		(type INSTANCE)
;+		(allowed-classes CurrencyMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot HandlingUnitReceiptLine
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000470):\n<ccts:ASBIE dictionaryEntryName=''Received_ Transport Handling Unit. Handling Unit_ Receipt Line'' definition=''associates the Transport Handling Unit with one or more despatch lines on a despatch advice.'' qualifierTermObjectClassTerm=''Received'' objectClassTerm=''Transport Handling Unit'' qualifierTerm_PropertyTerm=''Handling Unit'' propertyTerm=''Receipt Line'' representationTerm=''Receipt Line''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cooccur
;+		(comment "(&%cooccur ?THING1 ?THING2) means that the &%Object or &%Process ?THING1 occurs at the same time as, together with, or jointly with the &%Object or &%Process ?THING2.  This covers the following temporal relations:  is co-incident with, is concurrent with, is contemporaneous with, and is concomitant with.")
		(type INSTANCE)
;+		(allowed-classes Physical)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RiskResponsibilityCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000184):\n<ccts:BBIE dictionaryEntryName=''Delivery Terms. Risk Responsibility. Code'' definition=''identifies the responsibility for loss risk within the delivery terms.'' objectClassTerm=''Delivery Terms'' propertyTerm=''Risk Responsibility'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MinimalWeightedPathFn
;+		(comment "This &%BinaryFunction assigns two &%GraphNodes to the &%GraphPath with the smallest sum of weighted arcs between the two &%GraphNodes.")
		(type INSTANCE)
;+		(allowed-classes GraphPath)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot independentProbability
;+		(comment "One of the basic &%ProbabilityRelations.  (&%independentProbability ?FORMULA1 ?FORMULA2) means that the probabilities of ?FORMULA1 and ?FORMULA2 being true are independent.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ItemDesignator
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000388):\n<ccts:ASBIE dictionaryEntryName=''Order Line. Item'' definition=''information directly relating to an item (article, product, goods item or service).'' objectClassTerm=''Order Line'' propertyTerm=''Item'' representationTerm=''Item''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TemporalCompositionFn
;+		(comment "The basic &%Function for expressing the composition of larger &%TimeIntervals out of smaller &%TimeIntervals.  For example, if &%ThisSeptember is an &%instance of &%September, (&%TemporalCompositionFn &%ThisSeptember &%Day) denotes the &%Class of consecutive days that make up &%ThisSeptember.  Note that one can obtain the number of instances of this &%Class by using the function &%CardinalityFn.")
		(type SYMBOL)
;+		(allowed-parents TimeInterval)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot greaterThan
;+		(comment "(&%greaterThan ?NUMBER1 ?NUMBER2) is true just in case the &%Quantity ?NUMBER1 is greater than the &%Quantity ?NUMBER2.")
		(type INSTANCE)
;+		(allowed-classes Quantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot conditionalProbability
;+		(comment "One of the basic &%ProbabilityRelations.  &%conditionalProbability is used to state the numeric value of a conditional probability.  (&%conditionalProbability ?FORMULA1 ?FORMULA2 ?NUMBER) means that the probability of ?FORMULA2 being true given that ?FORMULA1 is true is ?NUMBER.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot EditionFn
;+		(comment "A &%BinaryFunction that maps a type of text (e.g. Agatha Christie's Murder_on_the_Orient_Express) and a number to the edition of the text type corresponding to the number.")
		(type SYMBOL)
;+		(allowed-parents ContentBearingObject)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ComplementFn
;+		(comment "The complement of a given &%SetOrClass C is the &%SetOrClass of all things that are not instances of C.  In other words, an object is an instance of the complement of a &%SetOrClass C just in case it is not an instance of C.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot HandlingTypeCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000016):\n<ccts:BBIE dictionaryEntryName=''Actual_ Shipment. Handling_ Type. Code'' definition=''a code indicating the type of handling necessary for the shipment.'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Shipment'' qualifierTerm_PropertyTerm=''Handling'' propertyTerm=''Type'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RelativeComplementFn
;+		(comment "A &%BinaryFunction that maps two &%SetOrClasses to the difference between these &%SetOrClasses.  More precisely, the relative complement of one class C1 relative to another C2 consists of the instances of C1 that are instances of the &%ComplementFn of C2.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LineitemCountQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL700009):\n<ccts:BBIE dictionaryEntryName=''Invoice. Lineitem_ Count. Quantity'' definition=''the number of line items in the invoice.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Invoice'' qualifierTerm_PropertyTerm=''LineItem'' propertyTerm=''Count'' representationTerm=''Quantity'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CompanyRegistrationID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000402):\n<ccts:BBIE dictionaryEntryName=''Party Tax Scheme. Company Registration. Identifier'' definition=''identifies a company as registered with the relevant authority for company regulation. (Note: this is required by the regulations of some tax jurisdictions. It is NOT the same as the registration id of a company within a tax scheme.)'' objectClassTerm=''Party Tax Scheme'' propertyTerm=''Company Registration Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot attribute
;+		(comment "(&%attribute ?OBJECT ?PROPERTY) means that ?PROPERTY is a &%Attribute of ?OBJECT.  For example, (&%attribute &%MyLittleRedWagon &%Red).")
		(type INSTANCE)
;+		(allowed-classes Attribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot subsumesContentClass
;+		(comment "NOTE: Domain1 is a class\nA &%BinaryPredicate that relates two subclasses of &%ContentBearingObject.  (&%subsumesContentClass ?CLASS1 ?CLASS2) means that the content expressed by each instance of ?CLASS2 is\nalso expressed by each instance of ?CLASS1.  Examples include the\nrelationship between a poem and one of its stanzas or between a book and\none of its chapters.  Note that this is a relation between subclasses of &%ContentBearingObject, rather than instances.  If one wants to relate instances, the &%Predicate &%subsumesContentInstance can be used.  Note that &%subsumesContentClass is needed in many cases.  Consider, for example, the relation between the King James edition of the Bible and its Book of Genesis.  This relation holds for every copy of this edition and not just for a single instance.\n")
		(type SYMBOL)
;+		(allowed-parents ContentBearingObject)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RejectedQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000246):\n<ccts:BBIE dictionaryEntryName=''Handling Unit_ Receipt Line. Rejected_ Quantity'' definition=''gives the quantity of an item on a despatch line that the recipient rejects for some reason.'' qualifierTermObjectClassTerm=''Handling Unit'' objectClassTerm=''Receipt Line'' qualifierTerm_PropertyTerm=''Rejected'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot meetsTemporally
;+		(comment "(&%meetsTemporally ?INTERVAL1 ?INTERVAL2) means that the terminal point of the &%TimeInterval ?INTERVAL1 is the initial point of the &%TimeInterval ?INTERVAL2.")
		(type INSTANCE)
;+		(allowed-classes TimeInterval)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RegistrationAddress
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000405):\n<ccts:ASBIE dictionaryEntryName=''Party Tax Scheme. Registration_ Address'' definition=''associates the party tax scheme with the registered address of a party within the tax scheme. This must be present if a) the tax regulations require it, and b) it is different from the Address element in the Name and Address information of the party..'' objectClassTerm=''Party Tax Scheme'' qualifierTerm_PropertyTerm=''Registration'' propertyTerm=''Address'' representationTerm=''Address''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ReferencedOrder
		(type INSTANCE)
;+		(allowed-classes Order)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot OrderLineID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000189):\n<ccts:BBIE dictionaryEntryName=''Despatch Line. Order Line. Identifier'' definition=''identification of the Order Line line that this despatch line is related to.'' objectClassTerm=''Despatch Line'' propertyTerm=''Order Line Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TechnicalName
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000264):\n<ccts:BBIE dictionaryEntryName=''Hazardous Item. Technical_ Name'' definition=''Full technical name of the specific hazardous substance.'' objectClassTerm=''Hazardous Item'' qualifierTerm_PropertyTerm=''Technical'' propertyTerm=''Name'' representationTerm=''Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot EndDateTime
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000444):\n<ccts:BBIE dictionaryEntryName=''Penalty_ Period. End_ Date Time'' definition=''specifies the last point in date/time of a period.'' qualifierTermObjectClassTerm=''Penalty'' objectClassTerm=''Period'' qualifierTerm_PropertyTerm=''End'' propertyTerm=''Date Time'' representationTerm=''Date Time''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot true
;+		(comment "The &%BinaryPredicate that relates a &%Sentence to its &%TruthValue.\n\nThis &%Predicate holds between an instance of &%Entity and an instance of &%Attribute.  (property ?ENTITY ?ATTR) means that ?ENTITY has the &%Attribute ?ATTR.")
		(type INSTANCE)
;+		(allowed-classes Attribute)
;+		(cardinality 0 1)
;+		(subslot-of property)
		(create-accessor read-write))
	(single-slot ToFollowQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000238):\n<ccts:BBIE dictionaryEntryName=''Handling Unit_ Despatch Line. To Follow_ Quantity'' definition=''the quantity of the item that was not despatched and which will follow in a subsequent despatch, without any further action by the buyer/recipient.'' qualifierTermObjectClassTerm=''Handling Unit'' objectClassTerm=''Despatch Line'' qualifierTerm_PropertyTerm=''To Follow'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TransportContract
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000025):\n<ccts:ASBIE dictionaryEntryName=''Actual_ Shipment. Transport_ Contract'' definition=''associates the shipment with the contract for transportation. '' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Shipment'' qualifierTerm_PropertyTerm=''Transport'' propertyTerm=''Contract'' representationTerm=''Contract''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot successorAttribute
;+		(comment "(&%successorAttribute ?ATTR1 ?ATTR2) means that ?ATTR2 is the &%Attribute that comes immediately after ?ATTR1 on the scale that they share.")
		(type INSTANCE)
;+		(allowed-classes Attribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot arcWeight
;+		(comment "This predicate indicates the value of a &%GraphArc in a &%Graph.  This could map to the length of a road in a road network or the flow rate of a pipe in a plumbing system.")
		(type INSTANCE)
;+		(allowed-classes RealNumber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ReciprocalFn
;+		(comment "(ReciprocalFn ?NUMBER) is the reciprocal element of ?NUMBER with respect to the multiplication operator (&%MultiplicationFn), i.e. 1/?NUMBER.  Not all numbers have a reciprocal element.  For example the number 0 does not.  If a number ?NUMBER has a reciprocal ?RECIP, then the product of ?NUMBER and ?RECIP will be 1, e.g. 3*1/3 = 1.  The reciprocal of an element is &%equal to applying the &%ExponentiationFn function to the element to the power -1.")
		(type INSTANCE)
;+		(allowed-classes Quantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cat%3AReferencedReceiptAdvice
;+		(comment "UBL-element Jul 26-03 (UBL-ID=):\n<ccts:ASBIE dictionaryEntryName=''Invoice. Referenced_ Receipt Advice'' definition=''associates the invoice with a receipt advice. (This is 'either/or' with despatch advice.)'' qualifierTermObjectClassTerm='''' objectClassTerm=''Invoice'' qualifierTerm_PropertyTerm=''Referenced'' propertyTerm=''Receipt Advice'' representationTerm=''Receipt Advice'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SecondaryHazards
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000266):\n<ccts:ASBIE dictionaryEntryName=''Hazardous Item. Secondary Hazards'' definition=''associates the hazardous item with information about secondary hazards.'' objectClassTerm=''Hazardous Item'' propertyTerm=''Secondary Hazards'' representationTerm=''Secondary Hazards''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot element
;+		(comment "(element ?ENTITY ?SET) is true just in case ?ENTITY is contained in the &%Set ?SET.  An &%Entity can be an &%element of another &%Entity only if the latter is a &%Set.")
		(type INSTANCE)
;+		(allowed-classes Set)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot GrossVolumeMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000022):\n<ccts:BBIE dictionaryEntryName=''Actual_ Shipment. Gross_ Volume. Measure'' definition=''the total gross volume of the shipment.'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Shipment'' qualifierTerm_PropertyTerm=''Gross'' propertyTerm=''Volume'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot cat%3AInvoiceLine
;+		(comment "UBL-element Jul 26-03 (UBL-ID=):\n<ccts:ASBIE dictionaryEntryName=''Invoice. Invoice Line'' definition=''an invoice has one or more invoice lines'' qualifierTermObjectClassTerm='''' objectClassTerm=''Invoice'' qualifierTerm_PropertyTerm='''' propertyTerm=''Invoice Line'' representationTerm=''Invoice Line'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
		(cardinality 1 ?VARIABLE)
		(create-accessor read-write))
	(single-slot InvoiceQuantity
;+		(comment "Quantity of unitCode(s).  See unitCode slot.")
		(type INTEGER)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot NanoFn
;+		(comment "A &%UnaryFunction that maps a &%UnitOfMeasure into a &%UnitOfMeasure that is equal to .000000001 units of the original &%UnitOfMeasure.  For example, (&%MicroFn &%SecondDuration) is .000000001 &%SecondDurations.")
		(type INSTANCE)
;+		(allowed-classes UnitOfMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MinuteFn
;+		(comment "A &%BinaryFunction that assigns a &%PositiveRealNumber and a subclass of &%Hours to the &%Minutes within each &%Hour corresponding to that &%PositiveRealNumber.  For example, (&%MinuteFn 30 (&%HourFn 17 &%Day)) is the &%Class of all 5:30's in the afternoon.  For another example, (&%MinuteFn 15 &%Hour) would return the class of all instances of quarter past the hour.  For still another example, (&%MinuteFn 15 (&%HourFn 14 (&%DayFn 18 (&%MonthFn 8 (YearFn 1912))))) denotes 15 minutes after 2 PM on the 18th day of August 1912.")
		(type SYMBOL)
;+		(allowed-parents Minute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot prefers
;+		(comment "(&%prefers ?AGENT ?FORMULA1 ?FORMULA2) means that &%CognitiveAgent ?AGENT prefers the state of affairs expressed by ?FORMULA1over the state of affairs expressed by ?FORMULA2 all things being equal.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot hasPurposeForAgent
;+		(comment "Expresses a cognitive attitude of an agent with respect to a particular instance of Physical.  More precisely, (&%hasPurposeForAgent ?THING ?FORMULA ?AGENT) means that the purpose of ?THING for ?AGENT is the proposition expressed by ?FORMULA.  Very complex issues are involved here.  In particular, the rules of inference of the first order predicate calculus are not truth-preserving for the second argument position of this &%Predicate.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cat%3AExchangeRate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=):\n<ccts:ASBIE dictionaryEntryName=''Invoice. Exchange Rate'' definition=''associates the invoice with an exchange rate. In any one invoice there is only one exchange rate needed, either between invoicing at tax currency, or between pricing and invoice totalling.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Invoice'' qualifierTerm_PropertyTerm='''' propertyTerm=''Exchange Rate'' representationTerm=''Exchange Rate'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RefrigerationStatusIndicator
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000649):\n<ccts:BBIE dictionaryEntryName=''Transport Equipment. Refrigeration Status_ Indicator'' definition=''indicates whether refrigeration is on or off for the transportation equipment.'' objectClassTerm=''Transport Equipment'' qualifierTerm_PropertyTerm=''Refrigeration Status'' propertyTerm=''Indicator'' representationTerm=''Indicator''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PremisesFn
;+		(comment "(&%PremisesFn ?ARGUMENT) returns the complete set of &%premises of the &%Argument ?ARGUMENT.\n")
		(type INSTANCE)
;+		(allowed-classes Proposition)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot subOrganization
;+		(comment "(&%subOrganization ?ORG1 ?ORG2) means that ?ORG1 is an &%Organization which is a proper part of the &%Organization ?ORG2.\n")
		(type INSTANCE)
;+		(allowed-classes Organization)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RatePercentNumeric
		(type INSTANCE)
;+		(allowed-classes Percent)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot OrderContact
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000557):\n<ccts:ASBIE dictionaryEntryName=''Seller_ Party. Order_ Contact'' definition=''associates (optionally) the party with information on the order contact (of the seller)'' qualifierTermObjectClassTerm=''Seller'' objectClassTerm=''Party'' qualifierTerm_PropertyTerm=''Order'' propertyTerm=''Contact'' representationTerm=''Contact''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ImaginaryPartFn
;+		(comment "(&%ImaginaryPartFn ?NUMBER) returns the part of ?NUMBER that has the square root of -1 as its factor.")
		(type INSTANCE)
;+		(allowed-classes ImaginaryNumber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ForeignExchangeContract
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000218):\n<ccts:ASBIE dictionaryEntryName=''Exchange Rate. Foreign Exchange_ Contract'' definition=''identifies a foreign exchange contract in which a rate of exchange has been agreed.'' objectClassTerm=''Exchange Rate'' qualifierTerm_PropertyTerm=''Foreign Exchange'' propertyTerm=''Contract'' representationTerm=''Contract''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SubtractionFn
;+		(comment "If ?NUMBER1 and ?NUMBER2 are &%Numbers, then (&%SubtractionFn ?NUMBER1 ?NUMBER2) is the arithmetical difference between ?NUMBER1 and ?NUMBER2, i.e. ?NUMBER1 minus ?NUMBER2.  An exception occurs when ?NUMBER1 is equal to 0, in which case (&%SubtractionFn ?NUMBER1 ?NUMBER2) is the negation of ?NUMBER2.")
		(type INSTANCE)
;+		(allowed-classes Quantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot between
;+		(comment "(between ?OBJ1 ?OBJ2 ?OBJ3) means that ?OBJ2 is spatially located between ?OBJ1 and ?OBJ3.  Note that this implies that ?OBJ2 is directly between ?OBJ1 and ?OBJ3, i.e. the projections of ?OBJ1 and ?OBJ3 overlap with ?OBJ2.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PlacardNotation
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000254):\n<ccts:BBIE dictionaryEntryName=''Hazardous Item. Placard_ Notation. Text'' definition=''the placard notation corresponding to the hazard class of the hazardous commodity. Can also be the hazard identification number of the orange placard (upper part) required on the means of transport.'' objectClassTerm=''Hazardous Item'' qualifierTerm_PropertyTerm=''Placard'' propertyTerm=''Notation'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MagnitudeFn
;+		(comment "The magnitude of a &%ConstantQuantity is the numeric value for the quantity.  In other words, &%MagnitudeFn converts a &%ConstantQuantity with an associated &%UnitOfMeasure into an ordinary &%RealNumber.  For example, the magnitude of the &%ConstantQuantity 2 &%Kilometers is the &%RealNumber 2.   Note that the magnitude of a quantity in a given unit times that unit is equal to the original quantity.")
		(type INSTANCE)
;+		(allowed-classes RealNumber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot StatusCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000664):\n<ccts:BBIE dictionaryEntryName=''Transport Equipment Seal. Status. Code'' definition=''code indicating the status of a seal on a piece of equipment.'' objectClassTerm=''Transport Equipment Seal'' propertyTerm=''Status'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PaidAmount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000423):\n<ccts:BBIE dictionaryEntryName=''Payment. Paid_ Amount'' definition=''the amount of the payment '' objectClassTerm=''Payment'' qualifierTerm_PropertyTerm=''Paid'' propertyTerm=''Amount'' representationTerm=''Amount''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SourceCurrencyBaseAmount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000211):\n<ccts:BBIE dictionaryEntryName=''Exchange Rate. Source_ Currency Base. Amount'' definition=''specifies the unit base of the source currency for currencies with small denominations.'' objectClassTerm=''Exchange Rate'' qualifierTerm_PropertyTerm=''Source'' propertyTerm=''Currency Base'' representationTerm=''Amount''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot relatedExternalConcept
;+		(comment "Used to signify a three-place relation between a concept in an external knowledge source, a concept in the SUMO, and the name of the other knowledge source.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot possesses
;+		(comment "&%Relation that holds between an &%Agent and an &%Object when the &%Agent has ownership of the &%Object.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot grounding
		(type INSTANCE)
;+		(allowed-classes Grounding)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LatitudeDirectionCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000340):\n<ccts:BBIE dictionaryEntryName=''Location Coordinates. Latitude_ Direction. Code'' definition=''specifies the direction of latitude measurement offset from the equator.'' objectClassTerm=''Location Coordinates'' qualifierTerm_PropertyTerm=''Latitude'' propertyTerm=''Direction'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ShortQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000244):\n<ccts:BBIE dictionaryEntryName=''Handling Unit_ Receipt Line. Short_ Quantity'' definition=''gives the quantity of an item on a despatch line that the recipient found to be missing as compared with the quantity declared as despatched by the seller.'' qualifierTermObjectClassTerm=''Handling Unit'' objectClassTerm=''Receipt Line'' qualifierTerm_PropertyTerm=''Short'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot equivalentContentInstance
;+		(comment "A &%BinaryPredicate relating two\ninstances of &%ContentBearingObject.  (&%equivalentContentInstance\n?OBJ1 ?OBJ2) means that the content expressed by ?OBJ1 is identical to the content expressed by ?OBJ2.  An example would be the relationship between a handwritten draft of a letter to one's lawyer and a typed copy of the same letter.  Note that (&%equivalentContentInstance ?OBJ1 ?OBJ2) implies (&%subsumesContentInstance ?OBJ1 ?OBJ2) and\n(&%subsumesContentInstance ?OBJ2 ?OBJ2).\n")
		(type INSTANCE)
;+		(allowed-classes ContentBearingObject)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot taxTotal
		(type INSTANCE)
;+		(allowed-classes TaxTotal)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CustomerCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000099):\n<ccts:BBIE dictionaryEntryName=''Card Account. Customer. Code'' definition=''the customer reference number. This is used to enable transmission of customer specific information with the card.'' objectClassTerm=''Card Account'' propertyTerm=''Customer'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot subset
;+		(comment "(subset ?SET1 ?SET2) is true just in case the &%elements of the &%Set ?SET1 are also &%elements of the &%Set ?SET2.\n\n(&%subclass ?CLASS1 ?CLASS2) means that ?CLASS1 is a subclass of ?CLASS2, i.e. every instance of ?CLASS1 is also an instance of ?CLASS2.  A class may have multiple superclasses and subclasses.")
		(type INSTANCE)
;+		(allowed-classes Set)
;+		(cardinality 0 1)
;+		(subslot-of subclass)
		(create-accessor read-write))
	(single-slot FrontFn
;+		(comment "A &%Function that maps an &%Object to the side that generally receives the most attention or that typically faces the direction in which the &%Object moves.  Note that this is a partial function, since some &%Objects do not have sides, e.g. apples and spheres.  Note too that the &%range of this &%Function is indefinite in much the way that &%ImmediateFutureFn and &%ImmediatePastFn are indefinite.\nAlthough this indefiniteness is undesirable from a theoretical standpoint, it does not have significant practical implications, since there is widespread intersubjective agreement about the most common cases.\n")
		(type INSTANCE)
;+		(allowed-classes SelfConnectedObject)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot husband
;+		(comment "(&%husband ?MAN ?WOMAN) means that ?MAN is the husband of ?WOMAN.\n")
		(type INSTANCE)
;+		(allowed-classes Woman)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot son
;+		(comment "The general relationship of being a son.\n(&%son ?CHILD ?PARENT) means that ?CHILD is the biological son of ?PARENT.\n\nThe general relationship of parenthood.  (&%parent ?CHILD ?PARENT) means that ?PARENT is a biological parent of ?CHILD.")
		(type INSTANCE)
;+		(allowed-classes Organism)
;+		(cardinality 0 1)
;+		(subslot-of parent)
		(create-accessor read-write))
	(single-slot increasesLikelihood
;+		(comment "One of the basic &%ProbabilityRelations.  (&%increasesLikelihood ?FORMULA1 ?FORMULA2) means that ?FORMULA2 is more likely to be true if ?FORMULA1 is true.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ExpiryDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000100):\n<ccts:BBIE dictionaryEntryName=''Card Account. Expiry. Date'' definition=''the date up to which the card is valid .'' objectClassTerm=''Card Account'' propertyTerm=''Expiry Date'' representationTerm=''Date''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot conclusion
;+		(comment "(&%conclusion ?ARGUMENT ?PROPOSITION) means that\nthe &%Proposition ?PROPOSITION is the conclusion explicitly drawn from the\n&%Argument ?ARGUMENT.  Note that it may or may not be the case that ?ARGUMENT &%entails ?PROPOSITION.\n")
		(type INSTANCE)
;+		(allowed-classes Proposition)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot range
;+		(comment "Gives the range of a function.  In other words, (&%range ?FUNCTION ?CLASS) means that all of the values assigned by ?FUNCTION are &%instances of ?CLASS.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot IssueNumberCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000102):\n<ccts:BBIE dictionaryEntryName=''Card Account. Issue Number. Code'' definition=''identifies the issue number, relevant only to SWITCH cards'' objectClassTerm=''Card Account'' propertyTerm=''Issue Number'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot inLanguage
;+		(comment "inLanguage relates a word -- a string of characters -- to the language in which it is a word.\nThe language may be natural or artificial -- e.g. the terms in an ontology are considered a language for this purpose.")
		(type INSTANCE)
;+		(allowed-classes HumanLanguage)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot OriginCountry
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000297):\n<ccts:ASBIE dictionaryEntryName=''Item. Origin_ Country'' definition=''associates the item with its country of origin'' objectClassTerm=''Item'' qualifierTerm_PropertyTerm=''Origin'' propertyTerm=''Country'' representationTerm=''Country''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PackQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000288):\n<ccts:BBIE dictionaryEntryName=''Item. Pack_ Quantity'' definition=''the unit packaging quantity.'' objectClassTerm=''Item'' qualifierTerm_PropertyTerm=''Pack'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot JurisdictionAddress
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000622):\n<ccts:ASBIE dictionaryEntryName=''Tax Scheme. Jurisdiction_ Address'' definition=''associates the tax scheme with particulars that identify and locate the geographic area in which a tax scheme applies.'' objectClassTerm=''Tax Scheme'' qualifierTerm_PropertyTerm=''Jurisdiction'' propertyTerm=''Address'' representationTerm=''Address''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SellersID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000379):\n<ccts:BBIE dictionaryEntryName=''Order Line. Seller's_ Identifier'' definition=''the identification given to an Order Line by the seller.'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Seller's'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot grasps
;+		(comment "The state of grasping an &%Object.  (&%grasps ?ANIMAL ?OBJ) means that the &%Animal ?ANIMAL is intentionally holding on to the &%Object ?OBJ.\n\n(&%meetsSpatially ?OBJ1 ?OBJ2) means that ?OBJ1 and ?OBJ2 are &%connected but that neither ?OBJ1 nor ?OBJ2 &%overlapsSpatially the other.\n\n(connected ?OBJ1 ?OBJ2) means that ?OBJ1 &%meetsSpatially ?OBJ2 or that ?OBJ1 &%overlapsSpatially ?OBJ2.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
;+		(subslot-of meetsSpatially)
		(create-accessor read-write))
	(single-slot buyerTransaction
		(type INSTANCE)
;+		(allowed-classes Buying)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot TofollowQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000191):\n<ccts:BBIE dictionaryEntryName=''Despatch Line. Tofollow_ Quantity'' definition=''the quantity of the item that was not despatched and which will follow in a subsequent despatch, without any further action by the buyer/recipient.'' objectClassTerm=''Despatch Line'' qualifierTerm_PropertyTerm=''ToFollow'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TaxScheme
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000406):\n<ccts:ASBIE dictionaryEntryName=''Party Tax Scheme. Tax Scheme'' definition=''associates the party tax scheme with the relevant tax scheme.'' objectClassTerm=''Party Tax Scheme'' propertyTerm=''Tax Scheme'' representationTerm=''Tax Scheme''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot EmergencyProceduresCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000261):\n<ccts:BBIE dictionaryEntryName=''Hazardous Item. Emergency_ Procedures. Code'' definition=''identifier of emergency procedures for hazardous goods.'' objectClassTerm=''Hazardous Item'' qualifierTerm_PropertyTerm=''Emergency'' propertyTerm=''Procedures'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PricingCurrencyCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL700008):\n<ccts:BBIE dictionaryEntryName=''Invoice. Pricing_ Currency. Code'' definition=''the currency in which the prices are specified. This may be the same currency as the Invoice itself or as the tax.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Invoice'' qualifierTerm_PropertyTerm=''Pricing'' propertyTerm=''Currency'' representationTerm=''Code'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot HouseName
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000036):\n<ccts:BBIE dictionaryEntryName=''Address. House_ Name'' definition=''the name that identifies the location of a house or building: usually within a street as part of an address.'' objectClassTerm=''Address'' qualifierTerm_PropertyTerm=''House'' propertyTerm=''Name'' representationTerm=''Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot HandlingCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000017):\n<ccts:BBIE dictionaryEntryName=''Actual_ Shipment. Handling_ Code'' definition=''a code indicating the handling necessary for the shipment.'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Shipment'' qualifierTerm_PropertyTerm=''Handling'' propertyTerm=''Code'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot hasMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000305):\n<ccts:BBIE dictionaryEntryName=''Item Measurement. Measure'' definition=''the value of the measurement'' objectClassTerm=''Item Measurement'' propertyTerm=''Measure'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot lineMeasure
;+		(comment "(&%lineMeasure ?LINE ?MEASURE) means that the straight line ?LINE has the &%LengthMeasure of ?MEASURE.\n")
		(type INSTANCE)
;+		(allowed-classes LengthMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot lineExtensionTotalAmount
		(type FLOAT)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AlternativeOrderLine
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000393):\n<ccts:ASBIE dictionaryEntryName=''Order Line. Alternative_ Order Line'' definition=''associates the Order Line with possible alternatives acceptable to the buyer'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Alternative'' propertyTerm=''Order Line'' representationTerm=''Order Line''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot needs
;+		(comment "(&%needs ?AGENT ?OBJECT) means that ?OBJECT is physically required for the continued existence of ?AGENT.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot patient
;+		(comment "(&%patient ?PROCESS ?ENTITY) means that ?ENTITY is a participant in ?PROCESS that may be moved, said, experienced, etc.  For example, the direct objects in the sentences 'The cat swallowed the canary' and 'Billy likes the beer' would be examples of &%patients.  Note that the &%patient of a &%Process may or may not undergo structural change as a result of the &%Process.  The &%CaseRole of &%patient is used when one wants to specify as broadly as possible the object of a &%Process.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LongitudeMinutesMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000342):\n<ccts:BBIE dictionaryEntryName=''Location Coordinates. Longitude_ Minutes. Measure'' definition=''specifies the minutes measurement of longitude as part of a detailed set of coordinates.'' objectClassTerm=''Location Coordinates'' qualifierTerm_PropertyTerm=''Longitude'' propertyTerm=''Minutes'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CurrencyCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000053):\n<ccts:BBIE dictionaryEntryName=''Allowance Charge. Currency_ Code'' definition=''specifies the currency of the allowance or charge if this is different from the pricing currency'' objectClassTerm=''Allowance Charge'' qualifierTerm_PropertyTerm=''Currency'' propertyTerm=''Code'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot hasSkill
;+		(comment "Similar to the &%capability &%Predicate with the additional restriction that the ability be practised/demonstrated to some measurable degree.")
		(type INSTANCE)
;+		(allowed-classes Agent)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CatalogueItemIdentification
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000295):\n<ccts:ASBIE dictionaryEntryName=''Item. Catalogue_ Item. Identification'' objectClassTerm=''Item'' qualifierTerm_PropertyTerm=''Catalogue'' propertyTerm=''Item'' representationTerm=''Identification''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ServiceLevelCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000362):\n<ccts:BBIE dictionaryEntryName=''Ordered_ Shipment. Service Level. Code'' definition=''identifies the level of service required for a shipment.'' qualifierTermObjectClassTerm=''Ordered'' objectClassTerm=''Shipment'' propertyTerm=''Service Level'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot context
		(type INSTANCE)
;+		(allowed-classes Context)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TaxTypeCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000624):\n<ccts:BBIE dictionaryEntryName=''Tax Total. Tax_ Type. Code'' definition=''identifies the type of tax.'' objectClassTerm=''Tax Total'' qualifierTerm_PropertyTerm=''Tax'' propertyTerm=''Type'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RequestedDeliveryDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000177):\n<ccts:BBIE dictionaryEntryName=''Delivery Schedule. Requested Delivery_ Date'' definition=''the date the buyer requested delivery for a specific delivery schedule event.'' objectClassTerm=''Delivery Schedule'' qualifierTerm_PropertyTerm=''Requested Delivery'' propertyTerm=''Date'' representationTerm=''Date''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ExponentiationFn
;+		(comment "(&%ExponentiationFn ?NUMBER ?INT) returns the &%RealNumber ?NUMBER raised to the power of the &%Integer ?INT.")
		(type INSTANCE)
;+		(allowed-classes Quantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot lineExtensionTotalAmountCurrency
		(type SYMBOL)
;+		(allowed-parents CurrencyMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MaximumTransportTemperatureMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000272):\n<ccts:BBIE dictionaryEntryName=''Hazardous Transit. Maximum_ Transport Temperature. Measure'' definition=''the maximum temperature at which the hazardous item can be safely transported.'' objectClassTerm=''Hazardous Transit'' qualifierTerm_PropertyTerm=''Maximum'' propertyTerm=''Transport Temperature'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TransportModeCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000591):\n<ccts:BBIE dictionaryEntryName=''Shipment Stage. Transport_ Mode. Code'' definition=''the method of transport used for the shipment stage, specified by using a UNECE Recommendation 19 code.'' objectClassTerm=''Shipment Stage'' qualifierTerm_PropertyTerm=''Transport'' propertyTerm=''Mode'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LatitudeDegreesMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000338):\n<ccts:BBIE dictionaryEntryName=''Location Coordinates. Latitude_ Degrees. Measure'' definition=''specifies the degrees measurement of latitude as part of a detailed set of coordinates.'' objectClassTerm=''Location Coordinates'' qualifierTerm_PropertyTerm=''Latitude'' propertyTerm=''Degrees'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ImmediatePastFn
;+		(comment "A &%UnaryFunction that maps a &%TimePosition to a short, indeterminate &%TimeInterval that immediately precedes the &%TimePosition.")
		(type INSTANCE)
;+		(allowed-classes TimeInterval)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PayerFinancialAccount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000431):\n<ccts:ASBIE dictionaryEntryName=''Payment Means. Payer_ Financial Account'' definition=''associates the payment means with information about bank account of the Payer (the party to make the payment), given as the way payment would be made.'' objectClassTerm=''Payment Means'' qualifierTerm_PropertyTerm=''Payer'' propertyTerm=''Financial Account'' representationTerm=''Financial Account''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot copy
;+		(comment "relates an &%Object to an exact copy of the &%Object, where an exact copy is indistinguishable from the original with regard to every property except (possibly) spatial and/or temporal location.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LineID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000188):\n<ccts:BBIE dictionaryEntryName=''Despatch Line. Line. Identifier'' definition=''identification of the despatch line according to the seller's system that generated the Despatch Advice'' objectClassTerm=''Despatch Line'' propertyTerm=''Line Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot knows
;+		(comment "The epistemic predicate of knowing.  (&%knows ?AGENT ?FORMULA) means that ?AGENT knows the proposition expressed by ?FORMULA.  Note that &%knows entails conscious awareness, so this &%Predicate cannot be used to express tacit or subconscious or unconscious knowledge.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot StandardItemIdentification
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000294):\n<ccts:ASBIE dictionaryEntryName=''Item. Standard_ Item. Identification'' definition=''associates the item with its identification according to a standard system.'' objectClassTerm=''Item'' qualifierTerm_PropertyTerm=''Standard'' propertyTerm=''Item'' representationTerm=''Identification''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot lineExtensionAmountCurrency
		(type SYMBOL)
;+		(allowed-parents CurrencyMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DayFn
;+		(comment "A &%BinaryFunction that assigns a &%PositiveRealNumber and a subclass of &%Months to the &%Days within each &%Month corresponding to that &%PositiveRealNumber.  For example, (&%DayFn 16 &%August) is the &%Class of all sixteenth days of August.  For another example, (&%DayFn 9 &%Month) would return the class of all ninth days of any month.  For still another example, (&%DayFn 18 (&%MonthFn 8 (YearFn 1912))) denotes the 18th day of August 1912.")
		(type SYMBOL)
;+		(allowed-parents Day)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot subrelation
;+		(comment "A &%Relation R is a &%subrelation &%Relation R' if R is a &%subclass R'.  This implies that every tuple of R is also a tuple of R'.  Again, if R holds for some arguments arg_1, arg_2, ... arg_n, then R' holds for the same arguments.  Thus, a &%Relation and its subrelation must have the same valence. In CycL, &%subrelation is called #$genlPreds.")
		(type INSTANCE)
;+		(allowed-classes Relation)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot HouseNumber
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000037):\n<ccts:BBIE dictionaryEntryName=''Address. House_ Number. Text'' definition=''the house number or description that identifies a house, building or site: usually within a street as part of an address.'' objectClassTerm=''Address'' qualifierTerm_PropertyTerm=''House'' propertyTerm=''Number'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ToFollowReason
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000239):\n<ccts:BBIE dictionaryEntryName=''Handling Unit_ Despatch Line. To Follow_ Reason. Text'' definition=''the reason why the seller was unable to supply the full scheduled quantity against this despatch line.'' qualifierTermObjectClassTerm=''Handling Unit'' objectClassTerm=''Despatch Line'' qualifierTerm_PropertyTerm=''To Follow'' propertyTerm=''Reason'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot located
;+		(comment "(&%located ?PHYS ?OBJ) means that ?PHYS is &%partlyLocated\nat ?OBJ, and there is no &%part or &%subProcess of ?PHYS that is not &%located at ?OBJ.\n")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TofollowReason
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000192):\n<ccts:BBIE dictionaryEntryName=''Despatch Line. Tofollow_ Reason. Text'' definition=''the reason why the seller was unable to supply the full scheduled quantity against this despatch line.'' objectClassTerm=''Despatch Line'' qualifierTerm_PropertyTerm=''ToFollow'' propertyTerm=''Reason'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instrument
;+		(comment "(instrument ?EVENT ?TOOL) means that ?TOOL is used by an agent in bringing about ?EVENT and that ?TOOL is not changed by ?EVENT.  For example, the key is an &%instrument in the following proposition: The key opened the door.  Note that &%instrument\nand &%resource cannot be satisfied by the same ordered pair.\n\n(&%patient ?PROCESS ?ENTITY) means that ?ENTITY is a participant in ?PROCESS that may be moved, said, experienced, etc.  For example, the direct objects in the sentences 'The cat swallowed the canary' and 'Billy likes the beer' would be examples of &%patients.  Note that the &%patient of a &%Process may or may not undergo structural change as a result of the &%Process.  The &%CaseRole of &%patient is used when one wants to specify as broadly as possible the object of a &%Process.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
;+		(subslot-of patient)
		(create-accessor read-write))
	(single-slot TaxAmount
		(type FLOAT)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot %3ADomain2Class
;+		(comment "The third argument of a higher-arity relation, after usual domain and range.")
		(type SYMBOL)
;+		(allowed-parents Entity)
;+		(cardinality 0 1)
;+		(associated-facet SUMO148_00000)
		(create-accessor read-write))
	(single-slot OrderLine
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000171):\n<ccts:ASBIE dictionaryEntryName=''Delivery Requirement. Order Line'' definition=''associates the delivery requirement to the order item, which identifies the ordered item but only detail about the item that are pertinent to one occurrence on a line item, e.g. quantity etc.'' objectClassTerm=''Delivery Requirement'' propertyTerm=''Order Line'' representationTerm=''Order Line''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot inhabits
;+		(comment "A very basic notion of living within something else.  (&%inhabits ?ORGANISM ?OBJECT) means that ?OBJECT is the residence, nest, home, etc. of ?ORGANISM.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot inScopeOfInterest
;+		(comment "A very general &%Predicate.  (&%inScopeOfInterest ?AGENT ?ENTITY) means that ?ENTITY is within the scope of interest of ?AGENT.  Note that the interest indicated can be either positive or negative, i.e. the ?AGENT can have an interest in avoiding or promoting ?ENTITY.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot home
;+		(comment "The relation between a &%Human and a home of the &%Human.\n\nA very basic notion of living within something else.  (&%inhabits ?ORGANISM ?OBJECT) means that ?OBJECT is the residence, nest, home, etc. of ?ORGANISM.")
		(type INSTANCE)
;+		(allowed-classes StationaryArtifact)
;+		(cardinality 0 1)
;+		(subslot-of inhabits)
		(create-accessor read-write))
	(single-slot valence
;+		(comment "Specifies the number of arguments that a relation can take.  If a relation does not have a fixed number of arguments, it does not have a valence and it is an instance of &%VariableArityRelation.  For example, &%holds is a &%VariableArityRelation.")
		(type INSTANCE)
;+		(allowed-classes PositiveInteger)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot GigaFn
;+		(comment "A &%UnaryFunction that maps a &%UnitOfMeasure into a &%UnitOfMeasure that is equal to 1,000,000,000 units of the original &%UnitOfMeasure.  For example, (&%GigaFn &%Hertz) is 1,000,000,000 &%Hertz.")
		(type INSTANCE)
;+		(allowed-classes UnitOfMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot trichotomizingOn
;+		(comment "A &%BinaryRelation ?REL is trichotomizing on a &%SetOrClass only if, for all instances ?INST1 and ?INST2 of the &%SetOrClass, at least one of the following holds:  (?REL ?INST1 ?INST2),(?REL ?INST2 ?INST1) or (equal ?INST1 ?INST2).")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot cat%3ATaxTotal
;+		(comment "UBL-element Jul 26-03 (UBL-ID=):\n<ccts:ASBIE dictionaryEntryName=''Invoice. Tax Total'' definition=''associates the invoice with summary information for a particular tax.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Invoice'' qualifierTerm_PropertyTerm='''' propertyTerm=''Tax Total'' representationTerm=''Tax Total'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
		(create-accessor read-write))
	(single-slot value
		(type FLOAT)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot manner
;+		(comment "(&%manner ?PROCESS ?MANNER) means that the &%Process ?PROCESS is qualified by the &%Attribute ?MANNER.  The &%Attributes of &%Processes are usually denoted by adverbs and include things like the\nspeed of the wind, the style of a dance, or the intensity of a sports competition.\n")
		(type INSTANCE)
;+		(allowed-classes Attribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot lineItem
		(type INSTANCE)
;+		(allowed-classes LineItem)
		(cardinality 1 ?VARIABLE)
		(create-accessor read-write))
	(single-slot AccountCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000091):\n<ccts:BBIE dictionaryEntryName=''Buyer_ Party. Account. Code'' definition='' an account identification assigned to the party, e.g. for 'sales on account' purposes.'' qualifierTermObjectClassTerm=''Buyer'' objectClassTerm=''Party'' propertyTerm=''Account ID'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PriceAmount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000072):\n<ccts:BBIE dictionaryEntryName=''Base Price. Price_ Amount'' definition=''specifies the base price.'' objectClassTerm=''Base Price'' qualifierTerm_PropertyTerm=''Price'' propertyTerm=''Amount'' representationTerm=''Amount''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot superficialPart
;+		(comment "(&%superficialPart ?OBJ1 ?OBJ2)\nmeans that ?OBJ1 is a part of ?OBJ2 that has no interior parts of its own\n(or, intuitively, that only overlaps those parts of ?OBJ2 that are\nexternally connected with the mereological complement of ?OBJ2). This too\nis a transitive relation closed under &%MereologicalSumFn and\n&%MereologicalProductFn.\n")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
;+		(subslot-of part)
		(create-accessor read-write))
	(single-slot ReferencedOrderLine
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000279):\n<ccts:ASBIE dictionaryEntryName=''Invoice Line . Referenced_ Order Line'' definition=''an invoice line may be associated with an order line if invoicing is done at the ordering stage.'' objectClassTerm=''Invoice Line '' qualifierTerm_PropertyTerm=''Referenced'' propertyTerm=''Order Line'' representationTerm=''Order Line''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Information
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000650):\n<ccts:BBIE dictionaryEntryName=''Transport Equipment. Information. Text'' definition=''additional information in free form text relating to the transport equipment.'' objectClassTerm=''Transport Equipment'' propertyTerm=''Information'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Code
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000142):\n<ccts:BBIE dictionaryEntryName=''Country. Code'' definition=''provides the country part of an address using a code.  ISO3166 alpha codes are recommended.'' objectClassTerm=''Country'' propertyTerm=''Identification'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RejectReasonCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000247):\n<ccts:BBIE dictionaryEntryName=''Handling Unit_ Receipt Line. Reject_ Reason. Code'' definition=''gives the reason, by a code, why recipient has rejected a quantity of an item delivered.'' qualifierTermObjectClassTerm=''Handling Unit'' objectClassTerm=''Receipt Line'' qualifierTerm_PropertyTerm=''Reject'' propertyTerm=''Reason'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot subText
;+		(comment "subText relates a Text  (abstract or physical) to one of its proper parts.  This can be used as a necessary\nrelation when some text always has a specific proper part -- a Title for  a Book, for example.")
		(type INSTANCE)
;+		(allowed-classes TransactionAmount)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SettlementDiscountRateNumeric
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000438):\n<ccts:BBIE dictionaryEntryName=''Payment Terms. Settlement Discount_ Rate. Numeric'' definition=''the settlement discount rate (percentage) offered for payment within the settlement period.'' objectClassTerm=''Payment Terms'' qualifierTerm_PropertyTerm=''Settlement Discount'' propertyTerm=''Rate'' representationTerm=''Numeric''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SettlementPeriod
		(type INSTANCE)
;+		(allowed-classes TimeDuration)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot temporallyBetween
;+		(comment "(&%temporallyBetween ?POINT1 ?POINT2 ?POINT3) means that the &%TimePoint ?POINT2 is between the &%TimePoints ?POINT1 and ?POINT3, i.e. ?POINT1 is before ?POINT2 and ?POINT2 is before ?POINT3.")
		(type INSTANCE)
;+		(allowed-classes TimePoint)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PhysicalAttribute
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000087):\n<ccts:ASBIE dictionaryEntryName=''Buyer's_ Item Identification. Physical Attribute'' definition=''associates the item identifier with a specification of physical attributes by which the item may be distinguished. An example of this would be a colour code for a specific product.'' qualifierTermObjectClassTerm=''Buyer's'' objectClassTerm=''Item Identification'' propertyTerm=''Physical Attribute'' representationTerm=''Physical Attribute''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot disjointDecomposition
;+		(comment "A &%disjointDecomposition of a &%Class C is a set of subclasses of C that are mutually &%disjoint.")
		(type INSTANCE)
;+		(allowed-classes Class)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cat%3APaymentTerms
;+		(comment "UBL-element Jul 26-03 (UBL-ID=):\n<ccts:ASBIE dictionaryEntryName=''Invoice. Payment Terms'' definition=''associates the invoice with the payment terms applicable/offered.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Invoice'' qualifierTerm_PropertyTerm='''' propertyTerm=''Payment Terms'' representationTerm=''Payment Terms'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot names
;+		(comment "(&%names ?STRING ?ENTITY) means that the thing ?ENTITY\nhas the &%SymbolicString ?STRING as its name.  Note that &%names and &%represents are the two immediate &%subrelations of &%refers.  The predicate &%names is used when the referring item is merely a tag without connotative content, while the predicate &%represents is used for referring items that have such content.\n\n(&%refers ?OBJ1 ?OBJ2) means that ?OBJ1 mentions or includes a reference to ?OBJ2. Note that &%refers is more general in meaning than &%represents, because presumably something can represent something else only if it refers to this other thing.  For example, an article whose topic is a recent change in the price of oil may refer to many other things, e.g. the general state of the economy, the weather in California, the prospect of global warming, the options for alternative energy sources, the stock prices of various oil companies, etc.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
;+		(subslot-of refers)
		(create-accessor read-write))
	(single-slot BuyersOrderID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000484):\n<ccts:BBIE dictionaryEntryName=''Referenced_ Order. Buyer's_ Order. Identifier'' definition=''the buyer's identification of the order to which the despatch advice is related.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Order'' qualifierTerm_PropertyTerm=''Buyer's'' propertyTerm=''Order Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot BuyersID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000059):\n<ccts:BBIE dictionaryEntryName=''Alternative_ Order Line. Buyer's_ Identifier'' definition=''the identification given to an Order Line by the buyer.'' qualifierTermObjectClassTerm=''Alternative'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Buyer's'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot engineeringSubcomponent
;+		(comment "(&%engineeringSubcomponent ?SUB ?SUPER) means that the &%EngineeringComponent ?SUB is structurally a &%properPart ?SUPER.  This relation is an &%AsymmetricRelation, since two &%EngineeringComponents cannot be subcomponents of each other.")
		(type INSTANCE)
;+		(allowed-classes EngineeringComponent)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ConditionID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000545):\n<ccts:BBIE dictionaryEntryName=''Sales Conditions. Condition. Identifier'' definition=''identifies a condition within the set of sales conditions that apply.'' objectClassTerm=''Sales Conditions'' propertyTerm=''Condition Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ItemMeasurement
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000088):\n<ccts:ASBIE dictionaryEntryName=''Buyer's_ Item Identification. Item Measurement'' definition=''associates the item with measurements necessary to specifically identify it, e.g. piece length. Note this is NOT the quantity of the item!'' qualifierTermObjectClassTerm=''Buyer's'' objectClassTerm=''Item Identification'' propertyTerm=''Item Measurement'' representationTerm=''Item Measurement''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ImmediateFutureFn
;+		(comment "A &%UnaryFunction that maps a &%TimePosition to a short, indeterminate &%TimeInterval that immediately follows the &%TimePosition.")
		(type INSTANCE)
;+		(allowed-classes TimeInterval)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot top
;+		(comment "(&%top ?TOP ?OBJECT) means that ?TOP is the highest maximal\nsuperficial part of ?OBJECT.\n")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
;+		(subslot-of superficialPart)
		(create-accessor read-write))
	(single-slot SpeedFn
		(type INSTANCE)
;+		(allowed-classes TimeDuration)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cat%3AReferencedDespatchAdvice
;+		(comment "UBL-element Jul 26-03 (UBL-ID=):\n<ccts:ASBIE dictionaryEntryName=''Invoice. Referenced_ Despatch Advice'' definition=''associates the invoice with a despatch advice. (This is 'either/or' with receipt advice.)'' qualifierTermObjectClassTerm='''' objectClassTerm=''Invoice'' qualifierTerm_PropertyTerm=''Referenced'' propertyTerm=''Despatch Advice'' representationTerm=''Despatch Advice'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot %3D%3E
;+		(comment "The truth-functional connective of implication.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot priceAmountCurrency
		(type SYMBOL)
;+		(allowed-parents CurrencyMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot IssuerPartyTypeCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000662):\n<ccts:BBIE dictionaryEntryName=''Transport Equipment Seal. Issuer_ Party Type. Code'' definition=''Code identifying which party issues and is responsible for an equipment seal.'' objectClassTerm=''Transport Equipment Seal'' qualifierTerm_PropertyTerm=''Issuer'' propertyTerm=''Party Type'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot HourFn
;+		(comment "A &%BinaryFunction that assigns a &%PositiveRealNumber and a subclass of &%Days to the &%Hours within each &%Day corresponding to that &%PositiveRealNumber.  For example, (&%HourFn 12 &%Thursday) is the &%Class of all instances of noon Thursday.  For another example, (&%HourFn 24 &%Day) would return the class of all instances of midnight.  For still another example, (&%HourFn 14 (&%DayFn 18 (&%MonthFn 8 (YearFn 1912)))) denotes 2 PM on the 18th day of August 1912.")
		(type SYMBOL)
;+		(allowed-parents Hour)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot time
;+		(comment "This relation holds between an instance of &%Physical and an instance of &%TimePosition just in case the temporal lifespan of the former includes the latter.  The constants &%located and &%time are the basic spatial and temporal predicates, respectively.")
		(type INSTANCE)
;+		(allowed-classes TimePosition)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot IssueDate
		(type INSTANCE)
;+		(allowed-classes TimePosition)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot TimeIntervalFn
;+		(comment "A &%BinaryFunction that takes two &%TimePoints as arguments and returns the &%TimeInterval defined by these two &%TimePoints.  Note that the first &%TimePoint must occur earlier than the second &%TimePoint.")
		(type INSTANCE)
;+		(allowed-classes TimeInterval)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot initialList
;+		(comment "(&%initialList ?LIST1 ?LIST2) means that ?LIST1 is a &%subList of ?LIST2 and (&%ListOrderFn ?LIST1 ?NUMBER) returns the same\nvalue as (&%ListOrderFn ?LIST2 ?NUMBER) for all of the values of ?NUMBER over which (&%ListOrderFn ?LIST1 ?NUMBER) is defined.\n\n(&%subList ?LIST1 ?LIST2) means that ?LIST1 is a sublist of ?LIST2, i.e. every element of ?LIST1 is an element of ?LIST2 and the elements that are common to both &%Lists have the same order in both &%Lists.")
		(type INSTANCE)
;+		(allowed-classes List)
;+		(cardinality 0 1)
;+		(subslot-of subList)
		(create-accessor read-write))
	(single-slot equivalentContentClass
;+		(comment "A &%BinaryPredicate that relates two\nsubclasses of &%ContentBearingObject.  (&%equivalentContentClass ?CLASS1\n?CLASS2) means that the content expressed by each instance of ?CLASS1 is\nalso expressed by each instance of ?CLASS2, and vice versa.  An example would be the relationship between English and Russian editions of Agatha Christie's 'Murder on the Orient Express'.  Note that\n(&%equivalentContentClass ?CLASS1 ?CLASS2) implies (&%subsumesContentClass\n?CLASS1 ?CLASS2) and (&%subsumesContentClass ?CLASS2 ?CLASS1).\n\nNOTE: Domain1 is a class\nA &%BinaryPredicate that relates two subclasses of &%ContentBearingObject.  (&%subsumesContentClass ?CLASS1 ?CLASS2) means that the content expressed by each instance of ?CLASS2 is\nalso expressed by each instance of ?CLASS1.  Examples include the\nrelationship between a poem and one of its stanzas or between a book and\none of its chapters.  Note that this is a relation between subclasses of &%ContentBearingObject, rather than instances.  If one wants to relate instances, the &%Predicate &%subsumesContentInstance can be used.  Note that &%subsumesContentClass is needed in many cases.  Consider, for example, the relation between the King James edition of the Bible and its Book of Genesis.  This relation holds for every copy of this edition and not just for a single instance.\n")
		(type SYMBOL)
;+		(allowed-parents ContentBearingObject)
;+		(cardinality 0 1)
;+		(subslot-of subsumesContentClass)
		(create-accessor read-write))
	(single-slot ReferencedDespatchLine
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000251):\n<ccts:ASBIE dictionaryEntryName=''Handling Unit_ Receipt Line. Referenced_ Despatch Line'' definition=''associates the receipt line with one despatch advice line. Temporary limitation.'' qualifierTermObjectClassTerm=''Handling Unit'' objectClassTerm=''Receipt Line'' qualifierTerm_PropertyTerm=''Referenced'' propertyTerm=''Despatch Line'' representationTerm=''Despatch Line''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PrimaryAccountNumberID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000097):\n<ccts:BBIE dictionaryEntryName=''Card Account. Primary Account Number. Identifier'' definition=''the identifying number of the card, known as the PAN - Primary Account Number.'' objectClassTerm=''Card Account'' propertyTerm=''Primary Account Number'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DeliveryRequirement
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000024):\n<ccts:ASBIE dictionaryEntryName=''Actual_ Shipment. Delivery Requirement'' definition=''associates the shipment with the delivery requirement information .'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Shipment'' propertyTerm=''Delivery Requirement'' representationTerm=''Delivery Requirement''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MinFn
;+		(comment "(&%MinFn ?NUMBER1 ?NUMBER2) is the smallest of ?NUMBER1 and ?NUMBER2.  In cases where ?NUMBER1 is equal to ?NUMBER2, &%MinFn returns one of its arguments.")
		(type INSTANCE)
;+		(allowed-classes Quantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cat%3APaymentMeans
;+		(comment "UBL-element Jul 26-03 (UBL-ID=):\n<ccts:ASBIE dictionaryEntryName=''Invoice. Payment Means'' definition=''associates the invoice with the expected means of payment.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Invoice'' qualifierTerm_PropertyTerm='''' propertyTerm=''Payment Means'' representationTerm=''Payment Means'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot StageID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000590):\n<ccts:BBIE dictionaryEntryName=''Shipment Stage. Stage. Identifier'' definition=''identifier of a shipment stage within an overall shipment movement of items.'' objectClassTerm=''Shipment Stage'' propertyTerm=''Stage ID'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot OrderedPackage
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000376):\n<ccts:ASBIE dictionaryEntryName=''Ordered_ Shipment. Ordered_ Package'' definition=''associates the shipment to packaging information. Note that this association is true at the order stage, but at the later delivery stage the association is via the transport handling unit.'' qualifierTermObjectClassTerm=''Ordered'' objectClassTerm=''Shipment'' qualifierTerm_PropertyTerm=''Ordered'' propertyTerm=''Package'' representationTerm=''Package''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot destination
;+		(comment "(destination ?PROCESS ?GOAL) means that ?GOAL is the target or goal of the Process ?PROCESS.  For example, Danbury would be the destination in the following proposition:  Bob went to Danbury.  Note that this is a very general &%CaseRole and, in particular, that it covers the concepts of 'recipient' and 'beneficiary'.  Thus, John would be the &%destination in the following proposition:  Tom gave a book to John.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot EndDateTimeDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000586):\n<ccts:BBIE dictionaryEntryName=''Settlement_ Period. End_ Date Time. Date'' definition=''specifies the last point in date/time of a period.'' qualifierTermObjectClassTerm=''Settlement'' objectClassTerm=''Period'' qualifierTerm_PropertyTerm=''End'' propertyTerm=''Date Time'' representationTerm=''Date''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot holdsObligation
;+		(comment "Expresses a relationship between a &%Formula and a &%CognitiveAgent whereby the &%CognitiveAgent has the obligation to bring it about that the &%Formula is true.")
		(type INSTANCE)
;+		(allowed-classes CognitiveAgent)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MinimumTransportTemperatureMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000273):\n<ccts:BBIE dictionaryEntryName=''Hazardous Transit. Minimum_ Transport Temperature. Measure'' definition=''the minimum temperature at which the hazardous item can be safely transported.'' objectClassTerm=''Hazardous Transit'' qualifierTerm_PropertyTerm=''Minimum'' propertyTerm=''Transport Temperature'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ProviderTypeCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000644):\n<ccts:BBIE dictionaryEntryName=''Transport Equipment. Provider Type. Code'' definition=''identifies the type of provider for the transport equipment.'' objectClassTerm=''Transport Equipment'' propertyTerm=''Provider Type'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot lineExtensionAmount
		(type FLOAT)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot lessThan
;+		(comment "(&%lessThan ?NUMBER1 ?NUMBER2) is true just in case the &%Quantity ?NUMBER1 is less than the &%Quantity ?NUMBER2.")
		(type INSTANCE)
;+		(allowed-classes Quantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ChipIndicator
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000104):\n<ccts:BBIE dictionaryEntryName=''Card Account. Chip. Indicator'' definition=''distinction between CHIP and MAG STRIPE cards'' objectClassTerm=''Card Account'' propertyTerm=''Chip Indicator'' representationTerm=''Indicator''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot sister
;+		(comment "The general relationship of being a sister. (&%sister ?WOMAN ?PERSON) means that ?WOMAN is the sister of ?PERSON.\n")
		(type INSTANCE)
;+		(allowed-classes Human)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot completelyFills
;+		(comment "(&%completelyFills ?OBJ ?HOLE)\nmeans that some &%part of the &%Object ?OBJ fills the &%Hole ?HOLE.\nNote that if (&%completelyFills ?OBJ1 ?HOLE) and (&%part\n?OBJ1 ?OBJ2), then (&%completelyFills ?OBJ2 ?HOLE).\n")
		(type INSTANCE)
;+		(allowed-classes Hole)
;+		(cardinality 0 1)
;+		(subslot-of partiallyFills)
		(create-accessor read-write))
	(single-slot product
		(type INSTANCE)
;+		(allowed-classes ProductObject)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot monetaryValue
;+		(comment "A &%BinaryPredicate that associates an &%Object with its value expressed as an instance of &%CurrencyMeasure.")
		(type INSTANCE)
;+		(allowed-classes CurrencyMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot UndgCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000257):\n<ccts:BBIE dictionaryEntryName=''Hazardous Item. Undg. Code'' definition=''identifier assigned to transportable hazardous goods within the United Nations.'' objectClassTerm=''Hazardous Item'' propertyTerm=''UNDG'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PaymentDueDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000428):\n<ccts:BBIE dictionaryEntryName=''Payment Means. Payment Due_ Date'' definition=''the point in time at which the payment is to be made.'' objectClassTerm=''Payment Means'' qualifierTerm_PropertyTerm=''Payment Due'' propertyTerm=''Date'' representationTerm=''Date''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot side
;+		(comment "(&%side ?SIDE ?OBJECT) means that ?SIDE is a side of the object,\nas opposed to the &%top or &%bottom.\n")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
;+		(subslot-of superficialPart)
		(create-accessor read-write))
	(single-slot BeginFn
;+		(comment "A &%UnaryFunction that maps a &%TimeInterval to the &%TimePoint at which the interval begins.")
		(type INSTANCE)
;+		(allowed-classes TimePoint)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot morphological_form
		(type STRING)
		(create-accessor read-write))
	(single-slot holds
;+		(comment "(holds P N1 ... NK) is true just in case the tuple of objects denoted by N1,..., NK is an element of the &%Relation P.")
		(type INSTANCE)
;+		(allowed-classes List)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot parent
;+		(comment "The general relationship of parenthood.  (&%parent ?CHILD ?PARENT) means that ?PARENT is a biological parent of ?CHILD.")
		(type INSTANCE)
;+		(allowed-classes Organism)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MereologicalDifferenceFn
;+		(comment "(&%MereologicalDifferenceFn ?OBJ1 ?OBJ2) denotes the &%Object consisting of the parts which belong to ?OBJ1 and not to ?OBJ2.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot geographicSubregion
;+		(comment "(&%geographicSubregion ?PART ?WHOLE) means that the &%GeographicArea ?PART is part of the &%GeographicArea ?WHOLE.\n")
		(type INSTANCE)
;+		(allowed-classes GeographicArea)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TransportEmergencyCardCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000269):\n<ccts:BBIE dictionaryEntryName=''Hazardous Transit. Transport Emergency_ Card. Code'' definition=''the identification of a transport emergency card, describing the emergency actions to be taken in the event of an emergency affecting the transportation of the hazardous item. Can be used for the identity number of a specific hazardous emergency response plan assigned by the appropriate responsible authority, either national or international.'' objectClassTerm=''Hazardous Transit'' qualifierTerm_PropertyTerm=''Transport Emergency'' propertyTerm=''Card'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MaximalWeightedPathFn
;+		(comment "This &%BinaryFunction assigns two &%GraphNodes to the &%GraphPath with the largest sum of weighted arcs between the two &%GraphNodes.")
		(type INSTANCE)
;+		(allowed-classes GraphPath)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot partlyLocated
;+		(comment "The predicate of partial localization.  For example, Istanbul is partly located in Asia.  Note that this is the most basic localization relation:  &%located and &%exactlyLocated are both subrelations of &%partlyLocated.")
		(type INSTANCE)
;+		(allowed-classes Region)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot subProcess
;+		(comment "(&%subProcess ?SUBPROC ?PROC) means that ?SUBPROC is a subprocess of ?PROC.  A subprocess is here understood as a temporally distinguished part (proper or not) of a &%Process.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MereologicalProductFn
;+		(comment "(&%MereologicalProductFn ?OBJ1 ?OBJ2) denotes the &%Object consisting of the parts which belong to both ?OBJ1 and ?OBJ2.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ReceivedDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000424):\n<ccts:BBIE dictionaryEntryName=''Payment. Received_ Date'' definition=''the date on which the payment  was received.'' objectClassTerm=''Payment'' qualifierTerm_PropertyTerm=''Received'' propertyTerm=''Date'' representationTerm=''Date''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MedicalFirstAidGuideCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000262):\n<ccts:BBIE dictionaryEntryName=''Hazardous Item. Medical First Aid_ Guide. Code'' definition=''identifier of a medical first aid guide that is relevant to specific hazardous goods.'' objectClassTerm=''Hazardous Item'' qualifierTerm_PropertyTerm=''Medical First Aid'' propertyTerm=''Guide'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot contactLanguage
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000207):\n<ccts:ASBIE dictionaryEntryName=''Destination_ Party. Language'' definition=''associates (optionally) the party with one or more languages.'' qualifierTermObjectClassTerm=''Destination'' objectClassTerm=''Party'' propertyTerm=''Language'' representationTerm=''Language''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot temporalPart
;+		(comment "The temporal analogue of the spatial &%part predicate.  (&%temporalPart ?POS1 ?POS2) means that &%TimePosition ?POS1 is part of &%TimePosition ?POS2.  Note that since &%temporalPart is a &%ReflexiveRelation every &%TimePostion is a &%temporalPart of itself.")
		(type INSTANCE)
;+		(allowed-classes TimePosition)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot date
;+		(comment "A &%BinaryPredicate that specifies a &%TimePosition in absolute calendar time, at the resolution of one day, for a particular &%Object or &%Process.")
		(type INSTANCE)
;+		(allowed-classes Day)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot pointOfIntersection
;+		(comment "(&%pointOfIntersection ?FIGURE1 ?FIGURE2 ?POINT) means that the two straight lines ?FIGURE1 and ?FIGURE2 meet at the point ?POINT.\n")
		(type INSTANCE)
;+		(allowed-classes OneDimensionalFigure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot containsInformation
;+		(comment "A subrelation of &%represents.  This predicate relates a &%ContentBearingObject to the &%Proposition that is expressed by the &%ContentBearingObject. Examples include the relationships between a physical novel and its story and between a printed score and its musical content.")
		(type INSTANCE)
;+		(allowed-classes Proposition)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot KappaFn
;+		(comment "A class-forming operator that takes two arguments:  a variable and a formula containing at least one unbound occurrence of the variable.  The result of applying &%KappaFn to a variable and a formula is the &%SetOrClass of things that satisfy the formula.  For example, we can denote the &%SetOrClass of prime numbers that are less than 100 with the following expression:  (KappaFn ?NUMBER (and (instance ?NUMBER PrimeNumber) (lessThan ?NUMBER 100))).  Note that the use of this function is discouraged, since there is currently no axiomatic support for it.")
		(type INSTANCE)
;+		(allowed-classes Class)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot entails
;+		(comment "The operator of logical entailment.  (&%entails ?FORMULA1 ?FORMULA2) means that ?FORMULA2 can be derived from ?FORMULA1 by means of the proof theory of SUO-KIF.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MultiplierReasonCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000051):\n<ccts:BBIE dictionaryEntryName=''Allowance Charge. Multiplier_ Reason. Code'' definition=''specifies the reason for the allowance or charge'' objectClassTerm=''Allowance Charge'' qualifierTerm_PropertyTerm=''Multiplier'' propertyTerm=''Reason'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PartyName
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000092):\n<ccts:ASBIE dictionaryEntryName=''Buyer_ Party. Party Name'' definition=''associates (optionally) the party with one or more party names'' qualifierTermObjectClassTerm=''Buyer'' objectClassTerm=''Party'' propertyTerm=''Party Name'' representationTerm=''Party Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot smaller
;+		(comment "(&%smaller ?OBJ1 ?OBJ2) simply means that ?OBJ1 is smaller, with respect to all &%LengthMeasures, than ?OBJ2.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot frequency
;+		(comment "(frequency ?PROC ?TIME) means that the &%Process type of ?PROC recurs after every interval of ?TIME.")
		(type INSTANCE)
;+		(allowed-classes TimeDuration)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CalculationRateNumeric
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000215):\n<ccts:BBIE dictionaryEntryName=''Exchange Rate. Calculation Rate. Numeric'' definition=''The factor used for conversion of an amount from one (source) currency to another (target) currency.'' objectClassTerm=''Exchange Rate'' propertyTerm=''Calculation Rate'' representationTerm=''Numeric''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DescriptionID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000450):\n<ccts:BBIE dictionaryEntryName=''Physical Attribute. Description. Identifier'' definition=''describes an identified physical attribute by a  one of a  set of characteristic descriptions from a formalised list.'' objectClassTerm=''Physical Attribute'' propertyTerm=''Description Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot effectiveDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000216):\n<ccts:BBIE dictionaryEntryName=''Exchange Rate. Date'' definition=''the date of the rate of exchange.'' objectClassTerm=''Exchange Rate'' propertyTerm=''Date'' representationTerm=''Date''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TaxAmountCurrency
		(type SYMBOL)
;+		(allowed-parents CurrencyMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PayeeFinancialAccount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000432):\n<ccts:ASBIE dictionaryEntryName=''Payment Means. Payee_ Financial Account'' definition=''associates the payment means with information about bank account of the Payee (the party to receive the payment).'' objectClassTerm=''Payment Means'' qualifierTerm_PropertyTerm=''Payee'' propertyTerm=''Financial Account'' representationTerm=''Financial Account''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cat%3ASellerParty
;+		(comment "UBL-element Jul 26-03 (UBL-ID=):\n<ccts:ASBIE dictionaryEntryName=''Invoice. Seller_ Party'' definition=''associates the invoice with the seller (invoicer) party.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Invoice'' qualifierTerm_PropertyTerm=''Seller'' propertyTerm=''Party'' representationTerm=''Party'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot exactlyLocated
;+		(comment "The actual, minimal location of an\nObject.  This is a subrelation of the more general &%Predicate\n&%located.\n\n\n(&%located ?PHYS ?OBJ) means that ?PHYS is &%partlyLocated\nat ?OBJ, and there is no &%part or &%subProcess of ?PHYS that is not &%located at ?OBJ.\n")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
;+		(subslot-of located)
		(create-accessor read-write))
	(single-slot TimezoneOffsetMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000046):\n<ccts:BBIE dictionaryEntryName=''Address. Timezone Offset Measure. Text'' definition=''the measure of time offset from UTC (Universal Coordinated Time) for the time zone in which the address is situated. A synonym for UTC is GMT (Greenwich Mean Time).'' objectClassTerm=''Address'' propertyTerm=''Timezone Offset Measure'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CompanyTaxID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000401):\n<ccts:BBIE dictionaryEntryName=''Party Tax Scheme. Company Tax. Identifier'' definition=''the identification of a company as registered  with the appropriate tax authority for a tax scheme.   '' objectClassTerm=''Party Tax Scheme'' propertyTerm=''Company Tax Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ExtensionFn
;+		(comment "A &%UnaryFunction that maps a &%Class into the instance of &%Attribute that specifies the condition(s) for membership in the &%Class.")
		(type INSTANCE)
;+		(allowed-classes Class)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot geopoliticalSubdivision
;+		(comment "(&%geopoliticalSubdivision ?AREA1 ?AREA2) means that ?AREA1 is any geopolitical part of ?AREA2; that is, ?AREA1 is an integral &%geographicSubregion of ?AREA2 (not a &%DependencyOrSpecialSovereigntyArea), having its own associated\n&%GovernmentOrganization which is subordinated to or constrained by the government of ?AREA2.  Cf. &%dependentGeopoliticalArea.\n")
		(type INSTANCE)
;+		(allowed-classes GeopoliticalArea)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot orientation
;+		(comment "A general &%Predicate for indicating how two &%Objects are oriented with respect to one another.  For example,\n(orientation ?OBJ1 ?OBJ2 North) means that ?OBJ1 is north of ?OBJ2, and (orientation ?OBJ1 ?OBJ2 Vertical) means that ?OBJ1 is positioned vertically with respect to ?OBJ2.\n")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SuccessorFn
;+		(comment "A &%UnaryFunction that maps an &%Integer to its successor, e.g. the successor of 5 is 6.")
		(type INSTANCE)
;+		(allowed-classes Integer)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot measure
;+		(comment "A very general &%Predicate for asserting that a particular &%Object is measured by a particular &%ConstantQuantity.  In general, the second argument of this &%Predicate will be an instance of the &%Function &%MeasureFn.")
		(type INSTANCE)
;+		(allowed-classes PhysicalQuantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot OwnerPartyTypeCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000645):\n<ccts:BBIE dictionaryEntryName=''Transport Equipment. Owner_ Party Type. Code'' definition=''identifies the type of owner of a piece of transport equipment. '' objectClassTerm=''Transport Equipment'' qualifierTerm_PropertyTerm=''Owner'' propertyTerm=''Party Type'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ReturnableMaterialIndicator
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000010):\n<ccts:BBIE dictionaryEntryName=''Actual_ Package. Returnable_ Material. Indicator'' definition=''indicates whether the packaging material is returnable or not.'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Package'' qualifierTerm_PropertyTerm=''Returnable'' propertyTerm=''Material'' representationTerm=''Indicator''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ListOrderFn
;+		(comment "(&%ListOrderFn ?LIST ?NUMBER) denotes the item that is in the ?NUMBER position in the &%List ?LIST.  For example, (&%ListOrderFn (&%ListFn &%Monday &%Tuesday &%Wednesday) 2) would return the value &%Tuesday.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PostalZone
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000041):\n<ccts:BBIE dictionaryEntryName=''Address. Postal Zone. Text'' definition=''the identifier for one or more properties according to the postal service of that country; a group of letters and/or numbers added to the postal address to assist in the sorting of mail.  '' objectClassTerm=''Address'' propertyTerm=''Postal Zone'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PrincipalHostFn
;+		(comment "A &%UnaryFunction that maps a &%Hole to the &%Object which is its principal host.  The principle host of a &%Hole is its maximally connected host (a notion taken here to be defined only when the argument is a hole).")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot hasCategoryTotal
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000626):\n<ccts:ASBIE dictionaryEntryName=''Tax Total. Category Total'' definition=''associates the tax summary with totals information about each tax category on the invoice.'' objectClassTerm=''Tax Total'' propertyTerm=''Category Total'' representationTerm=''Category Total''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LossRisk
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000185):\n<ccts:BBIE dictionaryEntryName=''Delivery Terms. Loss Risk. Text'' definition=''text describing the loss risk related to delivery terms.'' objectClassTerm=''Delivery Terms'' propertyTerm=''Loss Risk'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LatitudeMinutesMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000339):\n<ccts:BBIE dictionaryEntryName=''Location Coordinates. Latitude_ Minutes. Measure'' definition=''specifies the minutes measurement of latitude as part of a detailed set of coordinates.'' objectClassTerm=''Location Coordinates'' qualifierTerm_PropertyTerm=''Latitude'' propertyTerm=''Minutes'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot lessThanOrEqualTo
;+		(comment "(&%lessThanOrEqualTo ?NUMBER1 ?NUMBER2) is true just in case the &%Quantity ?NUMBER1 is less than or equal to the &%Quantity ?NUMBER2.")
		(type INSTANCE)
;+		(allowed-classes Quantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CosineFn
;+		(comment "(&%CosineFn ?DEGREE) returns the cosine of the &%PlaneAngleMeasure ?DEGREE.  The cosine of ?DEGREE is the ratio of the side next to ?DEGREE to the hypotenuse in a right-angled triangle.")
		(type INSTANCE)
;+		(allowed-classes RealNumber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TransportMeansTypeCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000592):\n<ccts:BBIE dictionaryEntryName=''Shipment Stage. Transport_ Means Type. Code'' definition=''the type of vehicle, ship etc. used for the shipment stage, specified by using a UNECE Recommendation 28 code. '' objectClassTerm=''Shipment Stage'' qualifierTerm_PropertyTerm=''Transport'' propertyTerm=''Means Type'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot bottom
;+		(comment "(&%bottom ?BOTTOM ?OBJECT) holds if ?BOTTOM is the\nlowest or deepest maximal superficial part of ?OBJECT.\n")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
;+		(subslot-of superficialPart)
		(create-accessor read-write))
	(single-slot CityName
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000040):\n<ccts:BBIE dictionaryEntryName=''Address. City_ Name'' definition=''the name of the city, town, village, or a built up area and used as part of an address.'' objectClassTerm=''Address'' qualifierTerm_PropertyTerm=''City'' propertyTerm=''Name'' representationTerm=''Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot GovernmentFn
;+		(comment "(&%GovernmentFn ?AREA) denotes the\n&%Government of the &%GeopoliticalArea ?AREA.  For example, (&%GovernmentFn &%UnitedStates) denotes the Federal-level government of\nthe United States; (&%GovernmentFn &%PuertoRico) denotes the government of the Commonwealth of Puerto Rico.\n")
		(type INSTANCE)
;+		(allowed-classes Government)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot BeginNodeFn
;+		(comment "A &%UnaryFunction that maps a &%GraphPath to the &%GraphNode that is the beginning of the &%GraphPath.  Note that, unlike &%InitialNodeFn (which relates a &%GraphArc to a &%GraphNode),  &%BeginNodeFn is a total function - every &%GraphPath has a beginning.")
		(type INSTANCE)
;+		(allowed-classes GraphNode)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Condition
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000663):\n<ccts:BBIE dictionaryEntryName=''Transport Equipment Seal. Condition. Text'' definition=''information relating to the condition of a seal on a piece of equipment.'' objectClassTerm=''Transport Equipment Seal'' propertyTerm=''Condition'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PeriodicalIssueFn
;+		(comment "A &%BinaryFunction that maps a subclass of &%Periodical and a number to all of the issues of the &%Periodical corresponding to the number.")
		(type SYMBOL)
;+		(allowed-parents Periodical)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot daughter
;+		(comment "The general relationship of daughterhood. (&%daughter ?CHILD ?PARENT) means that ?CHILD is the biological daughter of ?PARENT.\n\nThe general relationship of parenthood.  (&%parent ?CHILD ?PARENT) means that ?PARENT is a biological parent of ?CHILD.")
		(type INSTANCE)
;+		(allowed-classes Organism)
;+		(cardinality 0 1)
;+		(subslot-of parent)
		(create-accessor read-write))
	(single-slot TransportEquipmentMeasurement
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000651):\n<ccts:ASBIE dictionaryEntryName=''Transport Equipment. Transport Equipment Measurement'' definition=''associates the transport equipment with its measurement(s).'' objectClassTerm=''Transport Equipment'' propertyTerm=''Transport Equipment Measurement'' representationTerm=''Transport Equipment Measurement''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot desires
;+		(comment "(&%desires ?AGENT ?FORMULA) means that ?AGENT wants to bring about the state of affairs expressed by ?FORMULA.  Note that there is no implication that what is desired by the agent is not already true.  Note too that &%desires is distinguished from &%wants only in that the former is a &%PropositionalAttitude, while &%wants is an &%ObjectAttitude.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DeliverToAddress
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000168):\n<ccts:ASBIE dictionaryEntryName=''Delivery Requirement. Deliver To_ Address'' definition=''information directly relating to the address/location to which a delivery is shipped'' objectClassTerm=''Delivery Requirement'' qualifierTerm_PropertyTerm=''Deliver To'' propertyTerm=''Address'' representationTerm=''Address''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot before
;+		(comment "(&%before ?POINT1 ?POINT2) means that ?POINT1 precedes ?POINT2 on the universal timeline.")
		(type INSTANCE)
;+		(allowed-classes TimePoint)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TerminalNodeFn
;+		(comment "A &%UnaryFunction that maps a &%GraphArc to the terminal node of the &%GraphArc.  Note that this is a partial function.  In particular, the function is undefined for &%GraphArcs that are not part of a &%DirectedGraph.")
		(type INSTANCE)
;+		(allowed-classes GraphNode)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot BuyerContact
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000095):\n<ccts:ASBIE dictionaryEntryName=''Buyer_ Party. Buyer_ Contact'' definition=''associates (optionally) the party with information on the buyer contact'' qualifierTermObjectClassTerm=''Buyer'' objectClassTerm=''Party'' qualifierTerm_PropertyTerm=''Buyer'' propertyTerm=''Contact'' representationTerm=''Contact''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot member
;+		(comment "A specialized common sense notion of part for uniform parts of &%Collections.  For example, each sheep in a flock of\nsheep would have the relationship of member to the flock.\n")
		(type INSTANCE)
;+		(allowed-classes Collection)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MeasureFn
;+		(comment "This &%BinaryFunction maps a &%RealNumber and a &%UnitOfMeasure to that &%Number of units.  It is used for expressing &%ConstantQuantities.  For example, the concept of three meters is represented as (&%MeasureFn 3 &%Meter).")
		(type INSTANCE)
;+		(allowed-classes ConstantQuantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DeliverySchedule
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000170):\n<ccts:ASBIE dictionaryEntryName=''Delivery Requirement. Delivery Schedule'' definition=''associates the delivery requirement to delivery schedule information'' objectClassTerm=''Delivery Requirement'' propertyTerm=''Delivery Schedule'' representationTerm=''Delivery Schedule''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MinimumMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000307):\n<ccts:BBIE dictionaryEntryName=''Item Measurement. Minimum_ Measure'' definition=''the minimum value in a range of measurement'' objectClassTerm=''Item Measurement'' qualifierTerm_PropertyTerm=''Minimum'' propertyTerm=''Measure'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot authors
;+		(comment "(&%authors ?AGENT ?TEXT) means that ?AGENT is creatively responsible for ?TEXT.  For example, Agatha Christie is author of Murder_on_the_Orient_Express.")
		(type INSTANCE)
;+		(allowed-classes Text)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot relatedInternalConcept
;+		(comment "Means that the two arguments are related concepts within the SUMO, i.e. there is a significant similarity of meaning between them.  To indicate a meaning relation between a SUMO concept and a concept from another source, use the Predicate &%relatedExternalConcept.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ShipmentStage
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000026):\n<ccts:ASBIE dictionaryEntryName=''Actual_ Shipment. Shipment Stage'' definition=''associates the shipment with shipment stages.'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Shipment'' propertyTerm=''Shipment Stage'' representationTerm=''Shipment Stage''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cat%3ALegalTotals
;+		(comment "UBL-element Jul 26-03 (UBL-ID=):\n<ccts:ASBIE dictionaryEntryName=''Invoice. Legal Totals'' definition=''associates the invoice with a set of totals required for the invoice to be a legal document.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Invoice'' qualifierTerm_PropertyTerm='''' propertyTerm=''Legal Totals'' representationTerm=''Legal Totals'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot interiorPart
;+		(comment "(&%interiorPart ?OBJ1 ?OBJ2) means\nthat ?OBJ1 is part ?OBJ2 and there is no overlap between ?OBJ1 and any &%superficialPart ?OBJ2.\n")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
;+		(subslot-of part)
		(create-accessor read-write))
	(single-slot commonName
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000331):\n<ccts:BBIE dictionaryEntryName=''Language. Name'' definition=''the common name of the language.'' objectClassTerm=''Language'' propertyTerm=''Name'' representationTerm=''Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot uniqueIdentifier
;+		(comment "The class of &%names that uniquely identify an instance of &%Entity.  Some examples of &%uniqueIdentifiers are the keys\nof tables in database applications and the ISBN (International Standard Book Number).\n\n(&%names ?STRING ?ENTITY) means that the thing ?ENTITY\nhas the &%SymbolicString ?STRING as its name.  Note that &%names and &%represents are the two immediate &%subrelations of &%refers.  The predicate &%names is used when the referring item is merely a tag without connotative content, while the predicate &%represents is used for referring items that have such content.\n\n(&%refers ?OBJ1 ?OBJ2) means that ?OBJ1 mentions or includes a reference to ?OBJ2. Note that &%refers is more general in meaning than &%represents, because presumably something can represent something else only if it refers to this other thing.  For example, an article whose topic is a recent change in the price of oil may refer to many other things, e.g. the general state of the economy, the weather in California, the prospect of global warming, the options for alternative energy sources, the stock prices of various oil companies, etc.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
;+		(subslot-of names)
		(create-accessor read-write))
	(single-slot TransportEquipment
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000027):\n<ccts:ASBIE dictionaryEntryName=''Actual_ Shipment. Transport Equipment'' definition=''associates the shipment with transport equipment'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Shipment'' propertyTerm=''Transport Equipment'' representationTerm=''Transport Equipment''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot material
;+		(comment "(&%material ?SUBSTANCE ?OBJECT) means that ?OBJECT is structurally made up in part of ?SUBSTANCE. This relation encompasses the concepts of 'composed of', 'made of', and 'formed of'.  For example, plastic is a &%material of my computer monitor.  Compare &%part and its subrelations, viz &%component and &%piece.")
		(type INSTANCE)
;+		(allowed-classes CorpuscularObject)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MaximumBackorderQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000064):\n<ccts:BBIE dictionaryEntryName=''Alternative_ Order Line. Maximum_ Backorder. Quantity'' definition=''the maximum quantity of an item that a customer will allow to be back ordered.'' qualifierTermObjectClassTerm=''Alternative'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Maximum'' propertyTerm=''Backorder Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TeraFn
;+		(comment "A &%UnaryFunction that maps a &%UnitOfMeasure into a &%UnitOfMeasure that is equal to 1,000,000,000,000 units of the original &%UnitOfMeasure.  For example, (&%TeraFn &%Hertz) is 1,000,000,000,000 &%Hertz.")
		(type INSTANCE)
;+		(allowed-classes UnitOfMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot width
;+		(comment "&%BinaryPredicate that is used to state the measure of an &%Object from side to side at its widest span.\n\n&%BinaryPredicate that is used to state the measure of an &%Object from one point to another point along its surface.  Note that the difference between the predicates &%length and &%distance is that the &%length is used to state the &%LengthMeasure of one of the dimensions of a single object, while &%distance is used to state the &%LengthMeasure that separates two distinct objects.")
		(type INSTANCE)
;+		(allowed-classes LengthMeasure)
;+		(cardinality 0 1)
;+		(subslot-of length)
		(create-accessor read-write))
	(single-slot ListConcatenateFn
;+		(comment "A &%Function that returns the concatenation of the two &%Lists that are given as arguments.  For example, the value of (&%ListConcatenateFn (&%ListFn &%Monday &%Tuesday) (&%ListFn &%Wednesday &%Thursday)) would be (&%ListFn &%Monday &%Tuesday &%Wednesday &%Thursday).")
		(type INSTANCE)
;+		(allowed-classes List)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Street
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000034):\n<ccts:BBIE dictionaryEntryName=''Address. Street. Text'' definition=''the name of the street, as part of an address.'' objectClassTerm=''Address'' propertyTerm=''Street'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot representsForAgent
;+		(comment "A very general predicate.  (&%representsForAgent ?THING ?ENTITY ?AGENT) means that the ?AGENT chooses to use the &%instance of &%Physical ?THING to 'stand for' ?ENTITY.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RateCategoryCodeID
;+		(comment "???")
		(type STRING)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot starts
;+		(comment "(&%starts ?INTERVAL1 ?INTERVAL2) means that ?INTERVAL1 and ?INTERVAL2 are both &%TimeIntervals that have the same initial &%TimePoint and that ?INTERVAL1 ends before ?INTERVAL2.")
		(type INSTANCE)
;+		(allowed-classes TimeInterval)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Phone
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000004):\n<ccts:BBIE dictionaryEntryName=''Accounts_ Contact. Phone. Text'' definition=''the number or virtual 'address' of a telephone in a telecommunication system '' qualifierTermObjectClassTerm=''Accounts'' objectClassTerm=''Contact'' propertyTerm=''Phone'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ProbabilityFn
;+		(comment "One of the basic &%ProbabilityRelations, &%ProbabilityFn is used to state the a priori probability of a state of affairs.  (&%ProbabilityFn ?FORMULA) denotes the a priori probability of ?FORMULA.\n")
		(type INSTANCE)
;+		(allowed-classes RealNumber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot categoryTotal
		(type INSTANCE)
;+		(allowed-classes CategoryTotal)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ServicelevelCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000014):\n<ccts:BBIE dictionaryEntryName=''Actual_ Shipment. Servicelevel. Code'' definition=''identifies the level of service required for a shipment.'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Shipment'' propertyTerm=''ServiceLevel'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot FinancialInstitution
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000222):\n<ccts:ASBIE dictionaryEntryName=''Fi Branch. Financial Institution'' definition=''associates the branch with information that directly relates to a bank or financial institution.'' objectClassTerm=''FI Branch'' propertyTerm=''Financial Institution'' representationTerm=''Financial Institution''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot NatureCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000117):\n<ccts:BBIE dictionaryEntryName=''Commodity Classification. Nature. Code'' definition=''the high level 'nature of item' code issued by a specific maintenance agency. '' objectClassTerm=''Commodity Classification'' propertyTerm=''Nature Code'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot legalTotals
		(type INSTANCE)
;+		(allowed-classes LegalTotals)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SignumFn
;+		(comment "(SignumFn ?NUMBER) denotes the sign of ?NUMBER.  This is one of the following values:  -1, 1, or 0.")
		(type INSTANCE)
;+		(allowed-classes Integer)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot recurrentTimeIntervalFn
;+		(comment "A function that is useful for generating recurring timeintervals.\nFor example,  (&%recurrentTimeIntervalFn (&%hourFn 6 &%Day) (&%hourFn 12 &%Day) ) returns the class of TimeIntervals beginning at 6 in the morning and endingat 12 noon.  For example,  (&%recurrentTimeIntervalFn (&%Saturday) (&%Sunday) ) returns the class of all weekends.")
		(type SYMBOL)
;+		(allowed-parents TimeInterval)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot BasePrice
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000070):\n<ccts:ASBIE dictionaryEntryName=''Alternative_ Order Line. Base Price'' definition=''associates the Order Line with the base price for the item.'' qualifierTermObjectClassTerm=''Alternative'' objectClassTerm=''Order Line'' propertyTerm=''Base Price'' representationTerm=''Base Price''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot InitialNodeFn
;+		(comment "A &%UnaryFunction that maps a &%GraphArc to the initial node of the &%GraphArc.  Notethat this is a partial function.  In particular, the function is undefined for &%GraphArcs that are not part of a &%DirectedGraph.")
		(type INSTANCE)
;+		(allowed-classes GraphNode)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MultiplierFactorQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000052):\n<ccts:BBIE dictionaryEntryName=''Allowance Charge. Multiplier_ Factor. Quantity'' definition=''specifies the factor by which the amount on which the allowance or charge is based should be multiplied to calculate the allowance or charge amount.'' objectClassTerm=''Allowance Charge'' qualifierTerm_PropertyTerm=''Multiplier'' propertyTerm=''Factor'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot connectedEngineeringComponents
;+		(comment "This is the most general connection relation between &%EngineeringComponents.  If (&%connectedEngineeringComponents ?COMP1 ?COMP2), then neither ?COMP1 nor ?COMP2 can be an &%engineeringSubcomponent of the other.  The relation &%connectedEngineeringComponents is a &%SymmetricRelation; there is no information in the direction of connection between two components.  It is also an &%IrreflexiveRelation; no &%EngineeringComponent bears this relation to itself.  Note that this relation does not associate a name or type with the connection.")
		(type INSTANCE)
;+		(allowed-classes EngineeringComponent)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ImmediateFamilyFn
;+		(comment "(&%ImmediateFamilyFn ?PERSON) denotes the immediate family of ?PERSON, i.e. the &%Group consisting of the &%parents of ?PERSON and anyone of whom ?PERSON is a &%parent.\n")
		(type INSTANCE)
;+		(allowed-classes FamilyGroup)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot definition
		(type STRING)
		(create-accessor read-write))
	(single-slot AssignmentFn
;+		(comment "If F is a function with a value for the objects denoted by N1,..., NK, then the term (AssignmentFn F N1 ... NK) denotes the value of applying F to the objects denoted by N1,..., NK.  Otherwise, the value is undefined.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot subPlan
;+		(comment "(&%subPlan ?PLAN1 ?PLAN2) means that ?PLAN1 is a &%Plan which is a proper part of ?PLAN2.  This relation is generally used to relate a supporting &%Plan to the overall &%Plan in a particular context.\n")
		(type INSTANCE)
;+		(allowed-classes Plan)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CountrySub-EntityCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000043):\n<ccts:BBIE dictionaryEntryName=''Address. Country Sub-Entity. Code'' definition=''the code that identifies the territorial division (a  chief unit of local administration) of a country, as part of an address.  '' objectClassTerm=''Address'' propertyTerm=''Country Sub-entity Code'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot occupiesPosition
;+		(comment "(&%occupiesPosition ?PERSON ?POSITION ?ORG) means that ?PERSON holds the &%Position ?POSITION at &%Organization ?ORG. For example, (&%occupiesPosition &%TomSmith &%ResearchDirector &%AcmeLaboratory) means that &%TomSmith is a research director at Acme Labs.")
		(type INSTANCE)
;+		(allowed-classes Position)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SourceCurrencyCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000210):\n<ccts:BBIE dictionaryEntryName=''Exchange Rate. Source_ Currency. Code'' definition=''the reference currency of the rate of exchange.  The currency from which the exchange is being made (CC Definition)'' objectClassTerm=''Exchange Rate'' qualifierTerm_PropertyTerm=''Source'' propertyTerm=''Currency'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Floor
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000032):\n<ccts:BBIE dictionaryEntryName=''Address. Floor. Text'' definition=''identification by name or number of the floor in a building, as part of an address.'' objectClassTerm=''Address'' propertyTerm=''Floor'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "unique identifier")
		(type STRING)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot DenominatorFn
;+		(comment "(&%DenominatorFn ?NUMBER) returns the denominator of the canonical reduced form of the &%RealNumber ?NUMBER.")
		(type INSTANCE)
;+		(allowed-classes Integer)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AdditionFn
;+		(comment "If ?NUMBER1 and ?NUMBER2 are &%Numbers, then (&%AdditionFn ?NUMBER1 ?NUMBER2) is the arithmetical sum of these numbers.")
		(type INSTANCE)
;+		(allowed-classes Quantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot subsumesContentInstance
;+		(comment "A &%BinaryPredicate relating two instances of &%ContentBearingObject.  (&%subsumesContentInstance ?OBJ1 ?OBJ2) means that the content expressed by ?OBJ2 is part of the content expressed by ?OBJ1.  An example is the relationship between a handwritten poem and one of its stanzas.  Note that this is a relation between instances, rather than &%Classes.  If one wants to assert a content relationship between &%Classes, e.g. between the version of an intellectual work and a part of that work, the relation &%subsumesContentClass should be used.")
		(type INSTANCE)
;+		(allowed-classes ContentBearingObject)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot beforeOrEqual
;+		(comment "(&%beforeOrEqual ?POINT1 ?POINT2) means that ?POINT1 is identical with ?POINT2 or occurs before it on the universal timeline.")
		(type INSTANCE)
;+		(allowed-classes TimePoint)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ChipApplicationID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000105):\n<ccts:BBIE dictionaryEntryName=''Card Account. Chip Application. Identifier'' definition=''identifies the application (AID) on a Chip card that provides the information quoted'' objectClassTerm=''Card Account'' propertyTerm=''Chip Application'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot GraphPathFn
;+		(comment "A &%BinaryFunction that maps two &%GraphNodes to the &%Class of &%GraphPaths between those two nodes.  Note that the two &%GraphNodes must belong to the same &%Graph.")
		(type INSTANCE)
;+		(allowed-classes GraphPath)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot taxAmount
		(type INSTANCE)
;+		(allowed-classes TaxAmounts)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot subProposition
;+		(comment "(&%subProposition ?PROP1 ?PROP2) means that ?PROP1 is a &%Proposition which is a proper part of the &%Proposition ?PROP2.  In other words, &%subProposition is the analogue of &%properPart for chunks of abstract content.")
		(type INSTANCE)
;+		(allowed-classes Proposition)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PowerSetFn
;+		(comment "(&%PowerSetFn ?CLASS) maps the &%SetOrClass ?CLASS to the &%SetOrClass of all &%subclasses of ?CLASS.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SalesConditions
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000299):\n<ccts:ASBIE dictionaryEntryName=''Item. Sales Conditions'' definition=''associates the item with sales conditions appertaining to it.'' objectClassTerm=''Item'' propertyTerm=''Sales Conditions'' representationTerm=''Sales Conditions''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CardAccount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000430):\n<ccts:ASBIE dictionaryEntryName=''Payment Means. Card Account'' definition=''associates the payment means with information about the credit/debit card specifed as the way payment would be made.'' objectClassTerm=''Payment Means'' propertyTerm=''Card Account'' representationTerm=''Card Account''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot resource
;+		(comment "(&%patient ?PROCESS ?ENTITY) means that ?ENTITY is a participant in ?PROCESS that may be moved, said, experienced, etc.  For example, the direct objects in the sentences 'The cat swallowed the canary' and 'Billy likes the beer' would be examples of &%patients.  Note that the &%patient of a &%Process may or may not undergo structural change as a result of the &%Process.  The &%CaseRole of &%patient is used when one wants to specify as broadly as possible the object of a &%Process.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
;+		(subslot-of patient)
		(create-accessor read-write))
	(single-slot DepartmentAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000320):\n<ccts:BBIE dictionaryEntryName=''Jurisdiction_ Address. Department. Text'' definition=''the identity of the department of an organisation, used as part of an address.'' qualifierTermObjectClassTerm=''Jurisdiction'' objectClassTerm=''Address'' propertyTerm=''Department'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RelativeTimeFn
;+		(comment "A means of converting &%TimePositions between different &%TimeZones.  (&%RelativeTimeFn ?TIME ?ZONE) denotes the &%TimePosition in &%CoordinatedUniversalTime that is contemporaneous with the &%TimePosition ?TIME in &%TimeZone ?ZONE.  For example, (&%RelativeTimeFn (&%MeasureFn 14 &%Hour) &%EasternTimeZone) would return the value (&%MeasureFn 19 &%Hour).")
		(type INSTANCE)
;+		(allowed-classes TimePosition)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot NetWeightMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000020):\n<ccts:BBIE dictionaryEntryName=''Actual_ Shipment. Net_ Weight. Measure'' definition=''the total net weight of the shipment.'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Shipment'' qualifierTerm_PropertyTerm=''Net'' propertyTerm=''Weight'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MaximumQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000063):\n<ccts:BBIE dictionaryEntryName=''Alternative_ Order Line. Maximum_ Quantity'' definition=''the maximum quantity of the item on this line'' qualifierTermObjectClassTerm=''Alternative'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Maximum'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot mother
;+		(comment "The general relationship of motherhood.  (&%mother ?CHILD ?MOTHER) means that ?MOTHER is the biological mother of ?CHILD.")
		(type INSTANCE)
;+		(allowed-classes Organism)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot IntegerSquareRootFn
;+		(comment "(&%IntegerSquareRootFn ?NUMBER) returns the integer square root of ?NUMBER.")
		(type INSTANCE)
;+		(allowed-classes NonnegativeInteger)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot holdsDuring
;+		(comment "(&%holdsDuring ?TIME ?FORMULA) means that the proposition denoted by ?FORMULA is true in the time frame ?TIME.  Note that this implies that ?FORMULA is true at every &%TimePoint which is a &%temporalPart of ?TIME.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot during
;+		(comment "(&%during ?INTERVAL1 ?INTERVAL2) means that ?INTERVAL1 starts after and ends before ?INTERVAL2.\n")
		(type INSTANCE)
;+		(allowed-classes TimeInterval)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PenaltySurchargeRateNumeric
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000439):\n<ccts:BBIE dictionaryEntryName=''Payment Terms. Penalty Surcharge_ Rate. Numeric'' definition=''the penalty rate (percentage) charged for late payment.'' objectClassTerm=''Payment Terms'' qualifierTerm_PropertyTerm=''Penalty Surcharge'' propertyTerm=''Rate'' representationTerm=''Numeric''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot EndFn
;+		(comment "A &%UnaryFunction that maps a &%TimeInterval to the &%TimePoint at which the interval ends.")
		(type INSTANCE)
;+		(allowed-classes TimePoint)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot uses
;+		(comment "(&%uses ?OBJECT AGENT) means that ?OBJECT is used by ?AGENT as an instrument in an unspecified &%Process.  This &%Predicate, as its corresponding axiom indicates, is a composition of the &%CaseRoles &%agent and &%instrument.")
		(type INSTANCE)
;+		(allowed-classes Agent)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AdditionalInformation
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000256):\n<ccts:BBIE dictionaryEntryName=''Hazardous Item. Additional_ Information. Text'' definition=''additional information regarding the hazardous substance. (Can be used to hold information such as the type of regulatory requirements that apply to a description, e.g. N.O.S. or a Waste Characteristics Code in conjunction with an EPA Waste Stream code).'' objectClassTerm=''Hazardous Item'' qualifierTerm_PropertyTerm=''Additional'' propertyTerm=''Information'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot expressedInLanguage
;+		(comment "(&%expressedInLanguage ?EXPRESS ?LANG) means that ?EXPRESS is expressed in &%Language ?LANG.")
		(type INSTANCE)
;+		(allowed-classes Language)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ReceivedQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000243):\n<ccts:BBIE dictionaryEntryName=''Handling Unit_ Receipt Line. Received_ Quantity'' definition=''gives the quantity of an item on a despatch line actually received by the recipient'' qualifierTermObjectClassTerm=''Handling Unit'' objectClassTerm=''Receipt Line'' qualifierTerm_PropertyTerm=''Received'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part
;+		(comment "The basic mereological relation.  All other mereological relations are defined in terms of this one. (&%part ?PART ?WHOLE) simply means that the &%Object ?PART is part of the &%Object ?WHOLE.  Note that, since &%part is a &%ReflexiveRelation, every &%Object is a part of itself.\n")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot connected
;+		(comment "(connected ?OBJ1 ?OBJ2) means that ?OBJ1 &%meetsSpatially ?OBJ2 or that ?OBJ1 &%overlapsSpatially ?OBJ2.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot notices
;+		(comment "(&%notices ?AGENT ?OBJECT) means that ?AGENT is paying attention to ?OBJECT, that ?OBJECT is currently the object of ?AGENT's conscious awareness.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot modalAttribute
;+		(comment "A &%BinaryRelation that is used to state the normative force of a &%Proposition.  (&%modalAttribute ?FORMULA ?PROP) means that the &%Proposition expressed by ?FORMULA has the &%NormativeAttribute ?PROP.  For example, (&%modalAttribute (&%exists (?ACT ?OBJ) (&%and (&%instance ?ACT &%Giving) (&%agent ?ACT John) (&%patient ?ACT ?OBJ) (&%destination ?ACT Tom))) &%Obligation) means that John is obligated to give Tom something.")
		(type INSTANCE)
;+		(allowed-classes NormativeAttribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RejectActionCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000248):\n<ccts:BBIE dictionaryEntryName=''Handling Unit_ Receipt Line. Reject_ Action. Code'' definition=''describes the action, by a code, that the buyer/recipient wishes the seller to take as a result of finding reject quality-items.'' qualifierTermObjectClassTerm=''Handling Unit'' objectClassTerm=''Receipt Line'' qualifierTerm_PropertyTerm=''Reject'' propertyTerm=''Action'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot reflexiveOn
;+		(comment "A &%BinaryRelation is reflexive on a &%SetOrClass only if every instance of the &%SetOrClass bears the relation to itself.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CatalogueIssueDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000473):\n<ccts:BBIE dictionaryEntryName=''Catalogue. Issue_ Date'' definition=''the date on which the catalogue was issued.'' objectClassTerm=''Catalogue'' qualifierTerm_PropertyTerm=''Issue'' propertyTerm=''Date'' representationTerm=''Date''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot representsInLanguage
;+		(comment "A very general predicate.  (&%representsInLanguage ?THING ?ENTITY ?LANGUAGE) means that the &%instance of &%Physical ?THING stands for ?ENTITY in the language ?LANGUAGE.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CountrySub-Entity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000042):\n<ccts:BBIE dictionaryEntryName=''Address. Country Sub-Entity. Text'' definition=''the name that identifies the territorial division (a  chief unit of local administration) of a country, as part of an address. '' objectClassTerm=''Address'' propertyTerm=''Country Sub-entity'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Tax
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000301):\n<ccts:ASBIE dictionaryEntryName=''Item. Tax'' definition=''associates the item with one or more taxes'' objectClassTerm=''Item'' propertyTerm=''Tax'' representationTerm=''Tax''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Postbox
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000030):\n<ccts:BBIE dictionaryEntryName=''Address. Postbox. Text'' definition=''a post office box number or a numbered post box in a post office assigned to a person or organization where letters for them are kept until called for, used as part of an address.'' objectClassTerm=''Address'' propertyTerm=''Postbox'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TransitPeriod
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000594):\n<ccts:ASBIE dictionaryEntryName=''Shipment Stage. Transit_ Period'' definition=''associates the shipment stage with information about the period of transit.'' objectClassTerm=''Shipment Stage'' qualifierTerm_PropertyTerm=''Transit'' propertyTerm=''Period'' representationTerm=''Period''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RegionAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000044):\n<ccts:BBIE dictionaryEntryName=''Address. Region. Text'' definition=''the name that identifies a non-administrative division of a country, or a commonly used name for a grouping of countries, as part of an address.'' objectClassTerm=''Address'' propertyTerm=''Region'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot father
;+		(comment "The general relationship of fatherhood.  (&%father ?CHILD ?FATHER) means that ?FATHER is the biological fatherof ?CHILD.")
		(type INSTANCE)
;+		(allowed-classes Organism)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot confersObligation
;+		(comment "Expresses the relationship between a a &%Formula, an &%Entity, and a &%CognitiveAgent when the &%Entity obligates the &%CognitiveAgent to bring it about that the &%Formula is true.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CatalogueID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000472):\n<ccts:BBIE dictionaryEntryName=''Catalogue. Identifier'' definition=''identifies the catalogue.  '' objectClassTerm=''Catalogue'' propertyTerm=''Identifier'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot leader
;+		(comment "(&%leader ?ORGANIZATION ?PERSON) means that the leader of ?ORGANIZATION is ?PERSON.\n")
		(type INSTANCE)
;+		(allowed-classes Agent)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot StartDateTime
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000443):\n<ccts:BBIE dictionaryEntryName=''Penalty_ Period. Start_ Date Time'' definition=''specifies the first point in date/time for a period.'' qualifierTermObjectClassTerm=''Penalty'' objectClassTerm=''Period'' qualifierTerm_PropertyTerm=''Start'' propertyTerm=''Date Time'' representationTerm=''Date Time''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DeliveredQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000190):\n<ccts:BBIE dictionaryEntryName=''Despatch Line. Delivered_ Quantity'' definition=''the quantity of the item advised as despatched on this line item.'' objectClassTerm=''Despatch Line'' qualifierTerm_PropertyTerm=''Delivered'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DistrictAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000162):\n<ccts:BBIE dictionaryEntryName=''Deliver To_ Address. District. Text'' definition=''the name that identifies a non-administrative division of a city, country sub-entity, or country, as part of an address.'' qualifierTermObjectClassTerm=''Deliver To'' objectClassTerm=''Address'' propertyTerm=''District'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot UnionFn
;+		(comment "A &%BinaryFunction that maps two &%SetOrClasses to the union of these &%SetOrClasses.  An object is an &%element of the union of two &%SetOrClasses just in case it is an &%instance of either &%SetOrClass.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot partiallyFills
;+		(comment "(&%partiallyFills ?OBJ ?HOLE) means that ?OBJ &%completelyFills some part of ?HOLE. Note that if (&%partiallyFills\n?OBJ1 ?HOLE) and (&%part ?OBJ1 ?OBJ2), then (&%partiallyFills ?OBJ2 ?HOLE). Note too that a partial filler need not be wholly inside a hole (it may\nstick out), which means that every complete filler also qualifies as\n(is a limit case of) a partial one.\n")
		(type INSTANCE)
;+		(allowed-classes Hole)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot NetNetWeightMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000021):\n<ccts:BBIE dictionaryEntryName=''Actual_ Shipment. Net Net_ Weight. Measure'' definition=''the weight (mass) of the goods themselves without any packing. Sometimes known as the &quot;NetNet Weight&quot;'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Shipment'' qualifierTerm_PropertyTerm=''Net Net'' propertyTerm=''Weight'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SubstitutionStatusCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000066):\n<ccts:BBIE dictionaryEntryName=''Alternative_ Order Line. Substitution_ Status. Code'' definition=''indicates the status of this OrderItem in relation to substitution, denoting an acceptable substitute in the Order, an original for which an alternative is offered in the Order Confirmation, or an original for which an actual replacement is advised in the Despatch Advice.'' qualifierTermObjectClassTerm=''Alternative'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Substitution'' propertyTerm=''Status'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Pre-PaidCollectIndicator
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000054):\n<ccts:BBIE dictionaryEntryName=''Allowance Charge. Pre-Paid Collect_ Indicator'' definition=''indicates whether the charge is levied on a prepaid collection basis.'' objectClassTerm=''Allowance Charge'' qualifierTerm_PropertyTerm=''Pre-paid Collect'' propertyTerm=''Indicator'' representationTerm=''Indicator''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot angularMeasure
;+		(comment "(&%angularMeasure ?ANGLE ?MEASURE) means that the two-dimensional geometric angle ?ANGLE has the &%PlaneAngleMeasure of ?MEASURE.\n")
		(type INSTANCE)
;+		(allowed-classes PlaneAngleMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot NetVolumeMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000023):\n<ccts:BBIE dictionaryEntryName=''Actual_ Shipment. Net_ Volume. Measure'' definition=''the total net volume of the shipment.'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Shipment'' qualifierTerm_PropertyTerm=''Net'' propertyTerm=''Volume'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot IssuerID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000101):\n<ccts:BBIE dictionaryEntryName=''Card Account. Issuer. Identifier'' definition=''identifies the organisation issuing the card, known as the BIN - Bank Id.No.'' objectClassTerm=''Card Account'' propertyTerm=''Issuer Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot toBePaidPriceTotalAmountCurrency
		(type SYMBOL)
;+		(allowed-parents CurrencyMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RationalNumberFn
;+		(comment "(&%RationalNumberFn ?NUMBER) returns the rational representation of ?NUMBER.")
		(type INSTANCE)
;+		(allowed-classes RationalNumber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot links
;+		(comment "a &%TernaryPredicate that specifies the &%GraphArc connecting two &%GraphNodes.")
		(type INSTANCE)
;+		(allowed-classes GraphNode)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot connects
;+		(comment "The relationship between three things, when one of the three things connects the other two.  More formally, (&%connects ?OBJ1 ?OBJ2 ?OBJ3) means that (&%connected ?OBJ1 ?OBJ2) and (&%connected ?OBJ1 ?OBJ3) and not (&%connected ?OBJ2 ?OBJ3).")
		(type INSTANCE)
;+		(allowed-classes SelfConnectedObject)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LocaleCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000332):\n<ccts:BBIE dictionaryEntryName=''Language. Locale. Code'' definition=''identifies the locale/location where the language is spoken or used in writing.'' objectClassTerm=''Language'' propertyTerm=''Locale'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot geometricPart
;+		(comment "(&%geometricPart ?PART ?WHOLE) means that the &%GeometricFigure ?PART is part of the &%GeometricFigure ?WHOLE.\n")
		(type INSTANCE)
;+		(allowed-classes GeometricFigure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TaxCurrencyType
		(type SYMBOL)
;+		(allowed-parents CurrencyMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LongitudeDirectionCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000343):\n<ccts:BBIE dictionaryEntryName=''Location Coordinates. Longitude_ Direction. Code'' definition=''specifies the direction of longitude measurement offset from the meridian'' objectClassTerm=''Location Coordinates'' qualifierTerm_PropertyTerm=''Longitude'' propertyTerm=''Direction'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SendFromAddress
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000169):\n<ccts:ASBIE dictionaryEntryName=''Delivery Requirement. Send From_ Address'' definition=''information directly relating to the address/location from which a delivery is shipped'' objectClassTerm=''Delivery Requirement'' qualifierTerm_PropertyTerm=''Send From'' propertyTerm=''Address'' representationTerm=''Address''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PackSizeQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000289):\n<ccts:BBIE dictionaryEntryName=''Item. Pack_ Size. Quantity'' definition=''the number of items in a pack.'' objectClassTerm=''Item'' qualifierTerm_PropertyTerm=''Pack'' propertyTerm=''Size'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SizeTypeCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000646):\n<ccts:BBIE dictionaryEntryName=''Transport Equipment. Size Type. Code'' definition=''code specifying  the size and type of a piece of transport equipment.'' objectClassTerm=''Transport Equipment'' propertyTerm=''Size Type Code'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot HazardousItem
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000300):\n<ccts:ASBIE dictionaryEntryName=''Item. Hazardous Item'' definition=''associates the item with its hazardous item information.'' objectClassTerm=''Item'' propertyTerm=''Hazardous Item'' representationTerm=''Hazardous Item''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot representedBy
;+		(comment "representedBy relates an abstract object created by an intelligent agent (an abstract  text, image, proposition) to some physical object that is intended to represent it.")
		(type INSTANCE)
;+		(allowed-classes ContentBearingObject)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot shipmentInformation
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000366):\n<ccts:BBIE dictionaryEntryName=''Ordered_ Shipment. Information. Text'' definition=''additional information in free form text relating to the shipment.'' qualifierTermObjectClassTerm=''Ordered'' objectClassTerm=''Shipment'' propertyTerm=''Information'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot and
;+		(comment "The truth-functional connective of conjunction.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TransitDirectionCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000593):\n<ccts:BBIE dictionaryEntryName=''Shipment Stage. Transit_ Direction. Code'' definition=''the direction of transit for the shipment stage.'' objectClassTerm=''Shipment Stage'' qualifierTerm_PropertyTerm=''Transit'' propertyTerm=''Direction'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot toBePaidTotalAmount
		(type FLOAT)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot subGraph
;+		(comment "The relation between two &%Graphs when one &%Graph is a part of the other.  (&%subGraph ?GRAPH1 ?GRAPH2) means that ?GRAPH1 is a part of ?GRAPH2.")
		(type INSTANCE)
;+		(allowed-classes Graph)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RoundFn
;+		(comment "(&%RoundFn ?NUMBER) is the &%Integer closest to ?NUMBER on the number line.  If ?NUMBER is halfway between two &%Integers (for example 3.5), it denotes the larger &%Integer.")
		(type INSTANCE)
;+		(allowed-classes Quantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synonymousExternalConcept
;+		(comment "(&%synonymousExternalConcept\n?STRING ?THING ?LANGUAGE) means that the SUMO concept ?THING has the\nsame meaning as ?STRING in ?LANGUAGE.\n\nUsed to signify a three-place relation between a concept in an external knowledge source, a concept in the SUMO, and the name of the other knowledge source.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
;+		(subslot-of relatedExternalConcept)
		(create-accessor read-write))
	(single-slot graphPart
;+		(comment "A basic relation for &%Graphs and their parts.  (&%graphPart ?PART ?GRAPH) means that ?PART is a &%GraphArc or &%GraphNode of the &%Graph ?GRAPH.")
		(type INSTANCE)
;+		(allowed-classes Graph)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot angleOfFigure
;+		(comment "(&%angleOfFigure ?ANGLE ?FIGURE) means that the &%TwoDimensionalAngle ?ANGLE is part of the &%GeometricFigure ?FIGURE.\n")
		(type INSTANCE)
;+		(allowed-classes GeometricFigure)
;+		(cardinality 0 1)
;+		(subslot-of geometricPart)
		(create-accessor read-write))
	(single-slot DescriptionCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000446):\n<ccts:BBIE dictionaryEntryName=''Penalty_ Period. Description. Code'' definition=''A code that describes the significance of the dates or the duration. '' qualifierTermObjectClassTerm=''Penalty'' objectClassTerm=''Period'' propertyTerm=''Description'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot HandlingInstructions
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000015):\n<ccts:BBIE dictionaryEntryName=''Actual_ Shipment. Handling_ Instructions. Text'' definition=''free form text for special handling instructions related to shipment.'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Shipment'' qualifierTerm_PropertyTerm=''Handling'' propertyTerm=''Instructions'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot BaseQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000073):\n<ccts:BBIE dictionaryEntryName=''Base Price. Base_ Quantity'' definition=''specifies the quantity on which the price is based.'' objectClassTerm=''Base Price'' qualifierTerm_PropertyTerm=''Base'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot not
;+		(comment "The truth-functional connective of negation.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SUO-name
		(type STRING)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LineExtensionAmount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000060):\n<ccts:BBIE dictionaryEntryName=''Alternative_ Order Line. Line Extension_ Amount'' definition=''the monetary amount that is the total for the line item, including any pricing variation (allowances, charges or discounts) but not adjusted by any payment settlement discount or taxation.'' qualifierTermObjectClassTerm=''Alternative'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Line Extension'' propertyTerm=''Amount'' representationTerm=''Amount''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot YearFn
;+		(comment "A &%UnaryFunction that maps a number to the corresponding calendar &%Year.  For example, (&%YearFn 1912) returns the &%Class containing just one instance, the year of 1912.  As might be expected, positive integers return years in the Common Era, while negative integers return years in B.C.E.  Note that this function returns a &%Class as a value.  The reason for this is that the related functions, viz. &%MonthFn, &%DayFn, &%HourFn, &%MinuteFn, and &%SecondFn, are used to generate both specific &%TimeIntervals and recurrent intervals, and the only way to do this is to make the domains and ranges of these functions classes rather than individuals.")
		(type INSTANCE)
;+		(allowed-classes Year)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot FutureFn
;+		(comment "A &%UnaryFunction that maps a &%TimePosition to the &%TimeInterval which it meets and which ends at &%PositiveInfinity.")
		(type INSTANCE)
;+		(allowed-classes TimeInterval)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AdditionalStreet
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000035):\n<ccts:BBIE dictionaryEntryName=''Address. Additional_ Street. Text'' definition=''contains additional text information within an address about the street.'' objectClassTerm=''Address'' qualifierTerm_PropertyTerm=''Additional'' propertyTerm=''Street'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Description
		(type INSTANCE)
;+		(allowed-classes BinaryPredicate)
;+		(value [SUMO148_00011])
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MereologicalSumFn
;+		(comment "(&%MereologicalSumFn ?OBJ1 ?OBJ2) denotes the &%Object consisting of the parts which belong to either ?OBJ1 or ?OBJ2.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot earlier
;+		(comment "(earlier INTERVAL1 INTERVAL2) means that INTERVAL1 ends before INTERVAL2 begins.")
		(type INSTANCE)
;+		(allowed-classes TimeInterval)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot height
;+		(comment "The height of an &%Object is the distance between its &%top and its &%bottom.\n\n&%BinaryPredicate that is used to state the measure of an &%Object from one point to another point along its surface.  Note that the difference between the predicates &%length and &%distance is that the &%length is used to state the &%LengthMeasure of one of the dimensions of a single object, while &%distance is used to state the &%LengthMeasure that separates two distinct objects.")
		(type INSTANCE)
;+		(allowed-classes LengthMeasure)
;+		(cardinality 0 1)
;+		(subslot-of length)
		(create-accessor read-write))
	(single-slot exploits
;+		(comment "(&%exploits ?OBJ ?AGENT) means that ?OBJ is used by ?AGENT as a &%resource in an unspecified instance of &%Process.  This &%Predicate, as its corresponding axiom indicates, is a composition of the relations &%agent and &%resource.\n")
		(type INSTANCE)
;+		(allowed-classes Agent)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CeilingFn
;+		(comment "(&%CeilingFn ?NUMBER) returns the smallest &%Integer greater than or equal to the &%RealNumber ?NUMBER.")
		(type INSTANCE)
;+		(allowed-classes Integer)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot represents
;+		(comment "A very general semiotics &%Predicate. (&%represents ?THING ?ENTITY) means that ?THING in some way indicates, expresses, connotes, pictures, describes, etc. ?ENTITY.  The &%Predicates &%containsInformation and &%realization are subrelations of &%represents. Note that &%represents is a subrelation of &%refers, since something can\nrepresent something else only if it refers to this other thing.  See the\ndocumentation string for &%names.\n\n(&%refers ?OBJ1 ?OBJ2) means that ?OBJ1 mentions or includes a reference to ?OBJ2. Note that &%refers is more general in meaning than &%represents, because presumably something can represent something else only if it refers to this other thing.  For example, an article whose topic is a recent change in the price of oil may refer to many other things, e.g. the general state of the economy, the weather in California, the prospect of global warming, the options for alternative energy sources, the stock prices of various oil companies, etc.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
;+		(subslot-of refers)
		(create-accessor read-write))
	(single-slot subsumedExternalConcept
;+		(comment "(&%subsumedExternalConcept\n?STRING ?THING ?LANGUAGE) means that the SUMO concept ?THING is subsumed\nby the meaning of ?STRING in ?LANGUAGE, i.e. the concept ?THING is narrower\nin meaning than ?STRING.\n\n\nUsed to signify a three-place relation between a concept in an external knowledge source, a concept in the SUMO, and the name of the other knowledge source.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
;+		(subslot-of relatedExternalConcept)
		(create-accessor read-write))
	(single-slot subCollection
;+		(comment "(&%subCollection ?COLL1 ?COLL2) means that the &%Collection ?COLL1 is a proper part of the &%Collection ?COLL2.")
		(type INSTANCE)
;+		(allowed-classes Collection)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot parallel
;+		(comment "(&%parallel ?LINE1 ?LINE2) means that the &%OneDimensionalFigures ?LINE1 and ?LINE2 are parallel to one another, i.e. they are equidistant from one another at every point.\n")
		(type INSTANCE)
;+		(allowed-classes OneDimensionalFigure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot properlyFills
;+		(comment "(&%properlyFills ?OBJ ?HOLE) means that ?HOLE is properly (though perhaps incompletely) filled by ?OBJ, i.e. some part of ?HOLE is perfectly filled by ?OBJ.  Note that &%properlyFills is the dual of &%completelyFills, and is so related to &%partiallyFills that ?OBJ &%properlyFills ?HOLE just in case ?OBJ &%partiallyFills every part of ?HOLE.  (Thus, every perfect filler is both complete and proper in this sense).")
		(type INSTANCE)
;+		(allowed-classes Hole)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot component
;+		(comment "A specialized common sense notion of part\nfor heterogeneous parts of complexes. (&%component ?COMPONENT ?WHOLE)\nmeans that ?COMPONENT is a component of ?WHOLE. Examples of component\ninclude the doors and walls of a house, the states or provinces of a\ncountry, or the limbs and organs of an animal.  Compare &%piece, which\nis also a subrelation of &%part.\n")
		(type INSTANCE)
;+		(allowed-classes CorpuscularObject)
;+		(cardinality 0 1)
;+		(subslot-of part)
		(create-accessor read-write))
	(single-slot FiBranch
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000412):\n<ccts:ASBIE dictionaryEntryName=''Payee_ Financial Account. Fi Branch'' definition=''associates the account with a branch of the financial institution and at which the account is serviced/maintained.'' qualifierTermObjectClassTerm=''Payee'' objectClassTerm=''Financial Account'' propertyTerm=''FI Branch'' representationTerm=''FI Branch''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot NumeratorFn
;+		(comment "(&%NumeratorFn ?NUMBER) returns the numerator of the canonical reduced form ?NUMBER.")
		(type INSTANCE)
;+		(allowed-classes Integer)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TangentFn
;+		(comment "(&%TangentFn ?DEGREE) is the tangent of the &%PlaneAngleMeasure ?DEGREE.  The tangent of ?DEGREE is the ratio of the side opposite ?DEGREE to the side next to ?DEGREE in a right-angled triangle.")
		(type INSTANCE)
;+		(allowed-classes RealNumber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot result
;+		(comment "(result ?ACTION ?OUTPUT) means that ?OUTPUT is a product of ?ACTION.  For example, house is a &%result in the following proposition: Eric built a house.\n\n\n(&%patient ?PROCESS ?ENTITY) means that ?ENTITY is a participant in ?PROCESS that may be moved, said, experienced, etc.  For example, the direct objects in the sentences 'The cat swallowed the canary' and 'Billy likes the beer' would be examples of &%patients.  Note that the &%patient of a &%Process may or may not undergo structural change as a result of the &%Process.  The &%CaseRole of &%patient is used when one wants to specify as broadly as possible the object of a &%Process.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
;+		(subslot-of patient)
		(create-accessor read-write))
	(single-slot publishes
;+		(comment "(&%publishes ?ORG ?TEXT) means that ?ORG publishes ?TEXT.  For example, Bantam Books publishes Agatha Christie's Murder_on_the_Orient_Express.")
		(type INSTANCE)
;+		(allowed-classes Text)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot direction
;+		(comment "(&%direction ?PROC ?ATTR) means that the &%Process ?PROC is moving in the direction ?ATTR.  For example, one would use this &%Predicate to represent the fact that Max is moving &%North.")
		(type INSTANCE)
;+		(allowed-classes DirectionalAttribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TargetCurrencyBaseAmount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000213):\n<ccts:BBIE dictionaryEntryName=''Exchange Rate. Target_ Currency Base. Amount'' definition=''specifies the unit base of the target currency for currencies with small denominations'' objectClassTerm=''Exchange Rate'' qualifierTerm_PropertyTerm=''Target'' propertyTerm=''Currency Base'' representationTerm=''Amount''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MinimumBackorderQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000065):\n<ccts:BBIE dictionaryEntryName=''Alternative_ Order Line. Minimum_ Backorder. Quantity'' definition=''the minimum quantity of an item that a customer will allow to be back ordered.'' qualifierTermObjectClassTerm=''Alternative'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Minimum'' propertyTerm=''Backorder Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CreditAccount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000433):\n<ccts:ASBIE dictionaryEntryName=''Payment Means. Credit Account'' definition=''associates the payment means with an 'on account' credit account.'' objectClassTerm=''Payment Means'' propertyTerm=''Credit Account'' representationTerm=''Credit Account''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot VelocityFn
;+		(comment "Specifies the velocity of an object, i.e. the speed and the direction of the speed.  For example (&%VelocityFn (&%MeasureFn 55 &%Mile) (&%MeasureFn 2 &%HourDuration) ?REFERENCE &%North) denotes the velocity of 55 miles per hour North of the given reference point ?REFERENCE.")
		(type INSTANCE)
;+		(allowed-classes TimeDuration)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SpecialTerms
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000183):\n<ccts:BBIE dictionaryEntryName=''Delivery Terms. Special Terms. Text'' definition=''free text description of special conditions relating to delivery terms.'' objectClassTerm=''Delivery Terms'' propertyTerm=''Special Terms'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot contains
;+		(comment "The relation of spatial containment for two separable objects.  When the two objects are not separable (e.g. an\nautomobile and one of its seats), the relation of &%part should be used.\n(&%contains ?OBJ1 ?OBJ2) means that the &%SelfConnectedObject ?OBJ1 has\na space (i.e. a &%Hole) which is at least partially filled by ?OBJ2.\n")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot brother
;+		(comment "The general relationship of being a brother.  (&%brother ?MAN ?PERSON) means that ?MAN is the brother of ?PERSON.\n")
		(type INSTANCE)
;+		(allowed-classes Human)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot sellerTransaction
		(type INSTANCE)
;+		(allowed-classes Selling)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot invoiceItem
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000283):\n<ccts:ASBIE dictionaryEntryName=''Invoice Line . Item'' definition=''associates the invoice line with information directly relating to an item (article, product, goods item or service).'' objectClassTerm=''Invoice Line '' propertyTerm=''Item'' representationTerm=''Item''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot FullnessIndicatorCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000648):\n<ccts:BBIE dictionaryEntryName=''Transport Equipment. Fullness_ Indicator. Code'' definition=''Code indicating whether a piece of transport equipment is full, empty or partially full.'' objectClassTerm=''Transport Equipment'' qualifierTerm_PropertyTerm=''Fullness'' propertyTerm=''Indicator'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CountryAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000164):\n<ccts:ASBIE dictionaryEntryName=''Deliver To_ Address. Country'' definition=''associates the address with the country part of an address.'' qualifierTermObjectClassTerm=''Deliver To'' objectClassTerm=''Address'' propertyTerm=''Country'' representationTerm=''Country''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot E-Mail
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000006):\n<ccts:BBIE dictionaryEntryName=''Accounts_ Contact. E-Mail. Text'' definition=''the number or virtual 'address' of an e-mail mailbox in the internet '' qualifierTermObjectClassTerm=''Accounts'' objectClassTerm=''Contact'' propertyTerm=''E-mail'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot EmsNumberCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000263):\n<ccts:BBIE dictionaryEntryName=''Hazardous Item. Ems Number. Code'' objectClassTerm=''Hazardous Item'' propertyTerm=''EMS Number'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RelevantLocation
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000182):\n<ccts:BBIE dictionaryEntryName=''Delivery Terms. Relevant_ Location. Text'' definition=''information directly relating to the location relevant to the terms of delivery specified.'' objectClassTerm=''Delivery Terms'' qualifierTerm_PropertyTerm=''Relevant'' propertyTerm=''Location'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot or
;+		(comment "The truth-functional connective of disjunction.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ReferencedTransportHandlingUnit
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000194):\n<ccts:ASBIE dictionaryEntryName=''Despatch Line. Referenced_ Transport Handling Unit'' definition=''associates the despatch line with the transport handling unit.'' objectClassTerm=''Despatch Line'' qualifierTerm_PropertyTerm=''Referenced'' propertyTerm=''Transport Handling Unit'' representationTerm=''Transport Handling Unit''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot radius
;+		(comment "(&%radius ?CIRCLE ?LENGTH) means that the radius of the &%Circle ?CIRCLE has a length of ?LENGTH.\n")
		(type INSTANCE)
;+		(allowed-classes LengthMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot IntervalFn
;+		(comment "A &%BinaryFunction that maps two &%ConstantQuantities to the &%Class of &%ConstantQuantities that comprise the interval from the first &%ConstantQuantity to the second &%ConstantQuantity.  For example, (&%IntervalFn (&%MeasureFn 8 &%Meter) (&%MeasureFn 14 &%Meter)) would return the &%Class of &%ConstantQuantities between 8 and 14 meters in length.")
		(type SYMBOL)
;+		(allowed-parents ConstantQuantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot overlapsSpatially
;+		(comment "(&%overlapsSpatially ?OBJ1 ?OBJ2) means that the &%Objects ?OBJ1 and ?OBJ2 have some parts in common.  This is a reflexive and symmetric (but not transitive) relation.\n\n(connected ?OBJ1 ?OBJ2) means that ?OBJ1 &%meetsSpatially ?OBJ2 or that ?OBJ1 &%overlapsSpatially ?OBJ2.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
;+		(subslot-of connected)
		(create-accessor read-write))
	(single-slot instance
;+		(comment "An object is an &%instance of a &%SetOrClass if it is included in that &%SetOrClass.  An individual may be an instance of many classes, some of which may be subclasses of others.  Thus, there is no assumption in the meaning of &%instance about specificity or uniqueness.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot pathLength
;+		(comment "A &%BinaryPredicate that specifies the length (in number of &%GraphNodes) of a &%GraphPath.(&%pathLength ?PATH ?NUMBER) means that there are ?NUMBER nodes in the &%GraphPath ?PATH.")
		(type INSTANCE)
;+		(allowed-classes PositiveInteger)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MaxFn
;+		(comment "(&%MaxFn ?NUMBER1 ?NUMBER2) is the largest of ?NUMBER1 and ?NUMBER2.  In cases where ?NUMBER1 is equal to ?NUMBER2, &%MaxFn returns one of its arguments.")
		(type INSTANCE)
;+		(allowed-classes Quantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot partition
;+		(comment "A &%partition of a class C is a set of \nmutually &%disjoint classes (a subclass partition) which covers C.  \nEvery instance of C is an instance of exactly one of the subclasses \nin the partition.")
		(type INSTANCE)
;+		(allowed-classes Class)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot mechanism
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot altitude
;+		(comment "A &%TernaryPredicate that is used to state the &%distance between the &%top of an &%Object and another point that is below the &%top of the &%Object (often this other point will be sea level).  Note that this &%Predicate can be used to specify, for example, the height of geographic features, e.g. mountains, the altitude of aircraft, and the orbit of satellites around the Earth.\n\n(&%distance ?OBJ1 ?OBJ2 ?QUANT) means that the shortest distance between the two objects ?OBJ1 and ?OBJ2 is ?QUANT.  Note that the difference between the predicates &%length and &%distance is that the &%length is used to state the &%LengthMeasure of one of the dimensions of a single object, while &%distance is used to state the &%LengthMeasure that separates two distinct objects.")
		(type INSTANCE)
;+		(allowed-classes Physical)
;+		(cardinality 0 1)
;+		(subslot-of distance)
		(create-accessor read-write))
	(single-slot LIQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000061):\n<ccts:BBIE dictionaryEntryName=''Alternative_ Order Line. Quantity'' definition=''the quantity of the item on this line item.'' qualifierTermObjectClassTerm=''Alternative'' objectClassTerm=''Order Line'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot domainSubclass
;+		(comment "&%Predicate used to specify argument type restrictions of &%Predicates.  The formula (&%domainSubclass ?REL ?INT ?CLASS) means that the ?INT'th element of each tuple in the relation ?REL must be a subclass of ?CLASS.")
		(type INSTANCE)
;+		(allowed-classes PositiveInteger)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot refers
;+		(comment "(&%refers ?OBJ1 ?OBJ2) means that ?OBJ1 mentions or includes a reference to ?OBJ2. Note that &%refers is more general in meaning than &%represents, because presumably something can represent something else only if it refers to this other thing.  For example, an article whose topic is a recent change in the price of oil may refer to many other things, e.g. the general state of the economy, the weather in California, the prospect of global warming, the options for alternative energy sources, the stock prices of various oil companies, etc.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cat%3AAllowanceCharge
;+		(comment "UBL-element Jul 26-03 (UBL-ID=):\n<ccts:ASBIE dictionaryEntryName=''Invoice. Allowance Charge'' definition=''associates the invoice with an overall charge or allowance.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Invoice'' qualifierTerm_PropertyTerm='''' propertyTerm=''Allowance Charge'' representationTerm=''Allowance Charge'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MinimumQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000062):\n<ccts:BBIE dictionaryEntryName=''Alternative_ Order Line. Minimum_ Quantity'' definition=''the minimum quantity of the item on this line'' qualifierTermObjectClassTerm=''Alternative'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Minimum'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot InhouseMail
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000038):\n<ccts:BBIE dictionaryEntryName=''Address. Inhouse Mail. Text'' definition=''identifies an in-house mail location as part of an address.'' objectClassTerm=''Address'' propertyTerm=''Inhouse Mail'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LogFn
;+		(comment "(LogFn ?NUMBER ?INT) returns the logarithm of the &%RealNumber ?NUMBER in the base denoted by the &%Integer ?INT.")
		(type INSTANCE)
;+		(allowed-classes RealNumber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DestinationParty
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000387):\n<ccts:ASBIE dictionaryEntryName=''Order Line. Destination_ Party'' definition=''associates the Order Line with information about an individual, a group or a body in the role as destination party for the Order Line'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Destination'' propertyTerm=''Party'' representationTerm=''Party''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot realization
;+		(comment "A subrelation of &%represents.\n(&%realization ?PROCESS ?PROP) means that ?PROCESS is a Process which expresses the content of ?PROP. Examples include a particular musical\nperformance, which realizes the content of a musical score, or the reading of a poem.\n")
		(type INSTANCE)
;+		(allowed-classes Proposition)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot partialOrderingOn
;+		(comment "A &%BinaryRelation is a partial ordering on a &%SetOrClass only if the relation is &%reflexiveOn the &%SetOrClass, and it is both an &%AntisymmetricRelation, and a &%TransitiveRelation.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TimingComplaintCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000250):\n<ccts:BBIE dictionaryEntryName=''Handling Unit_ Receipt Line. Timing_ Complaint. Code'' definition=''specifies the complaint, by a code, about the timing of the delivery received.'' qualifierTermObjectClassTerm=''Handling Unit'' objectClassTerm=''Receipt Line'' qualifierTerm_PropertyTerm=''Timing'' propertyTerm=''Complaint'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot %3ADomain3Class
;+		(comment "The fourth argument of a quaternary or higher-arity slot.  Thisis the class of which the value is an instance.")
		(type SYMBOL)
;+		(allowed-parents Entity)
;+		(cardinality 0 1)
;+		(associated-facet SUMO148_00001)
		(create-accessor read-write))
	(single-slot SequenceValueNumeric
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000055):\n<ccts:BBIE dictionaryEntryName=''Allowance Charge. Sequence Value. Numeric'' definition=''identifies the sequence in which all allowances or charges are calculated when multiple components apply in 'piggy-back' fashion (i.e. one on top of another). If they are all applicable to the same base price, then the calculation sequence indicator will always equal one. '' objectClassTerm=''Allowance Charge'' propertyTerm=''Sequence Value'' representationTerm=''Numeric''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CutSetFn
;+		(comment "A &%UnaryFunction that assigns a &%Graph the &%Class of &%GraphPaths that partition the graph into two separate graphs if cut.  There may be more than one cutset for a given graph.")
		(type INSTANCE)
;+		(allowed-classes GraphPath)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ListLengthFn
;+		(comment "A &%Function that takes a &%List as its sole argument and returns the number of items in the &%List.  For example, (&%ListLengthFn (&%ListFn &%Monday &%Tuesday &%Wednesday)) would return the value 3.")
		(type INSTANCE)
;+		(allowed-classes NonnegativeInteger)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot tangent
;+		(comment "(&%tangent ?LINE ?CIRCLE) means that the straight line ?LINE is tangent to the &%Circle ?CIRCLE, i.e. ?LINE touches ?CIRCLE without intersecting it.\n")
		(type INSTANCE)
;+		(allowed-classes Circle)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot %3C%3D%3E
;+		(comment "The truth-functional connective of bi-implication.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Country
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000047):\n<ccts:ASBIE dictionaryEntryName=''Address. Country'' definition=''provides the country part of an address using a code.  ISO3166 alpha codes are recommended.'' objectClassTerm=''Address'' propertyTerm=''Country'' representationTerm=''Country''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ShipmentInformation
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000018):\n<ccts:BBIE dictionaryEntryName=''Actual_ Shipment. Information. Text'' definition=''additional information in free form text relating to the shipment.'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Shipment'' propertyTerm=''Information'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot District
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000045):\n<ccts:BBIE dictionaryEntryName=''Address. District. Text'' definition=''the name that identifies a non-administrative division of a city, country sub-entity, or country, as part of an address.'' objectClassTerm=''Address'' propertyTerm=''District'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MicroFn
;+		(comment "A &%UnaryFunction that maps a &%UnitOfMeasure into a &%UnitOfMeasure that is equal to .000001 units of the original &%UnitOfMeasure.  For example, (&%MicroFn &%Meter) is .000001 &%Meters.")
		(type INSTANCE)
;+		(allowed-classes UnitOfMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot exists
;+		(comment "The existential quantifier of predicate logic.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ContactParty
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000265):\n<ccts:ASBIE dictionaryEntryName=''Hazardous Item. Contact_ Party'' definition=''associates the hazardous item with details of an individual, a group or a body that is the contact in case of hazard incident.'' objectClassTerm=''Hazardous Item'' qualifierTerm_PropertyTerm=''Contact'' propertyTerm=''Party'' representationTerm=''Party''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot citizen
;+		(comment "(&%citizen ?PERSON ?NATION) means that the &%Human ?PERSON is a citizen of &%Nation ?NATION.")
		(type INSTANCE)
;+		(allowed-classes Nation)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DensityFn
;+		(comment "&%DensityFn maps an instance of &%MassMeasure and an instance of &%VolumeMeasure to the density represented by this proportion of mass and volume.  For example, (&%DensityFn (&%MeasureFn 3 &%Gram) (&%MeasureFn 1 &%Liter)) represents the density of 3 grams per liter.\n")
		(type INSTANCE)
;+		(allowed-classes VolumeMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot representation
;+		(comment "The physical representation of this Abstract concept.")
		(type INSTANCE)
;+		(allowed-classes Document)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot StartDateTimeDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000585):\n<ccts:BBIE dictionaryEntryName=''Settlement_ Period. Start_ Date Time. Date'' definition=''specifies the first point in date/time for a period.'' qualifierTermObjectClassTerm=''Settlement'' objectClassTerm=''Period'' qualifierTerm_PropertyTerm=''Start'' propertyTerm=''Date Time'' representationTerm=''Date''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot familyRelation
;+		(comment "A very general &%Predicate for biological relationships. (&%familyRelation ?ORGANISM1 ?ORGANISM2) means that ?ORGANISM1 and ?ORGANISM2 are biologically derived from a common ancestor.")
		(type INSTANCE)
;+		(allowed-classes Organism)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot wears
;+		(comment "(&%wears ?AGENT ?CLOTHING) means that ?AGENT is wearing\nthe item of &%Clothing ?CLOTHING.\n")
		(type INSTANCE)
;+		(allowed-classes Clothing)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RoomAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000033):\n<ccts:BBIE dictionaryEntryName=''Address. Room. Text'' definition=''identifies the room, suite or apartment as part of an address.'' objectClassTerm=''Address'' propertyTerm=''Room'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot %3ADomain3Value
;+		(comment "The instance value for the fourth argument of a higher-arity slot.\nIt is an instance of :Domain3Class")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
;+		(associated-facet SUMO152_00102)
		(create-accessor read-write))
	(single-slot TypeCodeID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000427):\n<ccts:BBIE dictionaryEntryName=''Payment Means. Type Code. Identifier'' definition=''identifies a valid means of paying the debt incurred.'' objectClassTerm=''Payment Means'' propertyTerm=''Type Code'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot overlapsPartially
;+		(comment "(&%overlapsPartially ?OBJ1 ?OBJ2) means that ?OBJ1 and ?OBJ2 have part(s) in common, but neither ?OBJ1 nor ?OBJ2 is a &%part of the other.\n\n(&%overlapsSpatially ?OBJ1 ?OBJ2) means that the &%Objects ?OBJ1 and ?OBJ2 have some parts in common.  This is a reflexive and symmetric (but not transitive) relation.\n\n(connected ?OBJ1 ?OBJ2) means that ?OBJ1 &%meetsSpatially ?OBJ2 or that ?OBJ1 &%overlapsSpatially ?OBJ2.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
;+		(subslot-of overlapsSpatially)
		(create-accessor read-write))
	(single-slot CardinalityFn
;+		(comment "(CardinalityFn ?CLASS) returns the number of instances in the &%SetOrClass or &%Collection ?CLASS.")
		(type INSTANCE)
;+		(allowed-classes Number)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LineidID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000478):\n<ccts:BBIE dictionaryEntryName=''Referenced_ Despatch Line. Lineid. Identifier'' definition=''identification of the despatch line according to the seller's system that generated the Despatch Advice'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Despatch Line'' propertyTerm=''LineId'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot domain
;+		(comment "Provides a computationally and heuristicallyconvenient mechanism for declaring the argument types of a given relation.  The formula (&%domain ?REL ?INT ?CLASS) means that the ?INT'th element of each tuple in the relation ?REL must be an instance of ?CLASS.  Specifying argumenttypes is very helpful in maintaining ontologies.  Representation systems can use these specifications to classify terms and check integrity constraints.  If the restriction on the argument type of a &%Relation is not captured by a &%SetOrClass already defined in the ontology, one can specify a &%SetOrClass compositionally with the functions &%UnionFn, &%IntersectionFn, etc.")
		(type INSTANCE)
;+		(allowed-classes PositiveInteger)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot name_
		(type STRING)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RegulationCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000271):\n<ccts:BBIE dictionaryEntryName=''Hazardous Transit. Regulation_ Code'' definition=''a code identifying a set of legal regulations which govern the transportation of the specific hazardous goods.'' objectClassTerm=''Hazardous Transit'' qualifierTerm_PropertyTerm=''Regulation'' propertyTerm=''Code'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot EndNodeFn
;+		(comment "A &%UnaryFunction that maps a &%GraphPath to the &%GraphNode that is the end of the &%GraphPath.  Note that, unlike &%TerminalNodeFn (which relates a &%GraphArc to a &%GraphNode),  &%EndNodeFn is a total function - every &%GraphPath has a end.")
		(type INSTANCE)
;+		(allowed-classes GraphNode)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot attends
;+		(comment "(&%attends ?DEMO ?PERSON) means that ?PERSON attends, i.e. is a member of the audience, of the performance event ?DEMO.\n\n(&%experiencer ?PROCESS ?AGENT) means that ?AGENT experiences the &%Process ?PROCESS.  For example, Yojo is the &%experiencer of seeing in the following proposition:  Yojo sees the fish.  Note that &%experiencer, unlike &%agent, does not entail a causal relation between its arguments.")
		(type INSTANCE)
;+		(allowed-classes Human)
;+		(cardinality 0 1)
;+		(subslot-of experiencer)
		(create-accessor read-write))
	(single-slot KiloFn
;+		(comment "A &%UnaryFunction that maps a &%UnitOfMeasure into a &%UnitOfMeasure that is equal to 1,000 units of the original &%UnitOfMeasure.  For example, (&%KiloFn &%Gram) is 1,000 &%Grams.")
		(type INSTANCE)
;+		(allowed-classes UnitOfMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot documentation
;+		(comment "A relation between objects in the domain of discourse and strings of natural language text.  The domain of &%documentation is not constants (names), but the objects themselves.  This means that one does not quote the names when associating them with their documentation.")
		(type STRING)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot BuildingAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000031):\n<ccts:BBIE dictionaryEntryName=''Address. Building. Text'' definition=''the identity which uniquely identifies a building within an address.'' objectClassTerm=''Address'' propertyTerm=''Building'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PricingCurrencyType
		(type SYMBOL)
;+		(allowed-parents CurrencyMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot employs
;+		(comment "(&%employs ?ORG ?PERSON) means that ?ORG has hired ?PERSON and currently retains ?PERSON, on a salaried or contractual basis, to provide services in exchange for monetary compensation.")
		(type INSTANCE)
;+		(allowed-classes CognitiveAgent)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Contact
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000129):\n<ccts:ASBIE dictionaryEntryName=''Contact_ Party. Contact'' definition=''associates (optionally) the party with information on one or more contacts'' qualifierTermObjectClassTerm=''Contact'' objectClassTerm=''Party'' propertyTerm=''Contact'' representationTerm=''Contact''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Note
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000436):\n<ccts:BBIE dictionaryEntryName=''Payment Terms. Note. Text'' definition=''information directly relating to a note about the payment terms.'' objectClassTerm=''Payment Terms'' propertyTerm=''Note'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PackageQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000009):\n<ccts:BBIE dictionaryEntryName=''Actual_ Package. Quantity'' definition=''the quantity within a package.'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Package'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MultiplicationFn
;+		(comment "If ?NUMBER1 and ?NUMBER2 are &%Numbers, then (&%MultiplicationFn ?NUMBER1 ?NUMBER2) is the arithmetical product of these numbers.")
		(type INSTANCE)
;+		(allowed-classes Quantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot premise
;+		(comment "(&%premise ?ARGUMENT ?PROPOSITION) means that the\n&%Proposition ?PROPOSITION is an explicit assumption of the &%Argument\n?ARGUMENT.\n")
		(type INSTANCE)
;+		(allowed-classes Proposition)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MilliFn
;+		(comment "A &%UnaryFunction that maps a &%UnitOfMeasure into a &%UnitOfMeasure that is equal to .001 units of the original &%UnitOfMeasure.  For example, (&%MilliFn &%Ampere) is .001 &%Amperes.")
		(type INSTANCE)
;+		(allowed-classes UnitOfMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PaymentChannelCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000429):\n<ccts:BBIE dictionaryEntryName=''Payment Means. Payment_ Channel. Code'' definition=''identifies the system through which the payment is processed, using a standard codelist.'' objectClassTerm=''Payment Means'' qualifierTerm_PropertyTerm=''Payment'' propertyTerm=''Channel'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot legalRelation
;+		(comment "(&%legalRelation ?AGENT1 ?AGENT2) means there is a relationship involving legal obligations between ?AGENT1 and ?AGENT2.  Some examples include marriage, adoption, etc.\n")
		(type INSTANCE)
;+		(allowed-classes CognitiveAgent)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot EmergencyTemperatureMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000259):\n<ccts:BBIE dictionaryEntryName=''Hazardous Item. Emergency_ Temperature. Measure'' definition=''the temperature at which emergency procedures apply during the handling of temperature-controlled hazardous goods.'' objectClassTerm=''Hazardous Item'' qualifierTerm_PropertyTerm=''Emergency'' propertyTerm=''Temperature'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot diameter
;+		(comment "&%BinaryPredicate that is used to state the measure of a circular &%Object from side to side.\n")
		(type INSTANCE)
;+		(allowed-classes LengthMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ReferencedReceiptLine
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000281):\n<ccts:ASBIE dictionaryEntryName=''Invoice Line . Referenced_ Receipt Line'' definition=''an invoice line may be associated with a receipt advice line if invoicing is done after the receipt stage.'' objectClassTerm=''Invoice Line '' qualifierTerm_PropertyTerm=''Referenced'' propertyTerm=''Receipt Line'' representationTerm=''Receipt Line''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot surface
;+		(comment "(&%surface ?OBJ1 ?OBJ2) means that ?OBJ1 is a maximally connected &%superficialPart of ?OBJ2.  Note that some &%SelfConnectedObjects have more than one surface, e.g. a hollow object like a tennis ball has both an inner and an outer surface.")
		(type INSTANCE)
;+		(allowed-classes SelfConnectedObject)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot origin
;+		(comment "(&%origin ?PROCESS ?SOURCE) means that ?SOURCE indicates where the ?Process began.  Note that this relation implies that ?SOURCE is present at the beginning of the process, but need not participate throughout the process.  For example, the submarine is the &%origin in the following proposition: the missile was launched from a submarine.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Extension
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000086):\n<ccts:BBIE dictionaryEntryName=''Buyer's_ Item Identification. Extension. Text'' definition=''What is this?'' qualifierTermObjectClassTerm=''Buyer's'' objectClassTerm=''Item Identification'' propertyTerm=''Extension'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot fills
;+		(comment "Holes can be filled.  (&%fills ?OBJ ?HOLE) means that the &%Object ?OBJ fills the &%Hole ?HOLE.  Note that &%fills here means perfectly filled.")
		(type INSTANCE)
;+		(allowed-classes Hole)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot InvoicedQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000277):\n<ccts:BBIE dictionaryEntryName=''Invoice Line . Invoiced_ Quantity'' definition=''the quantity of the item being invoiced on this invoice line.'' objectClassTerm=''Invoice Line '' qualifierTerm_PropertyTerm=''Invoiced'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ToBePaidTotalAmount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000335):\n<ccts:BBIE dictionaryEntryName=''Legal Totals. To Be Paid_ Total. Amount'' definition=''the total that is to be paid for this invoice, including all taxes, but not adjusted by any payment settlement discount or possible penalty charges..'' objectClassTerm=''Legal Totals'' qualifierTerm_PropertyTerm=''To Be Paid'' propertyTerm=''Total'' representationTerm=''Amount''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot traverses
;+		(comment "(&%traverses ?OBJ1 ?OBJ2) means that ?OBJ1 crosses or extends across ?OBJ2.  Note that &%crosses and &%penetrates are subrelations of &%traverses.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TransportEquipmentSeal
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000652):\n<ccts:ASBIE dictionaryEntryName=''Transport Equipment. Transport Equipment Seal'' definition=''associates the transport equipment with information about equipment seal(s) applied to it.'' objectClassTerm=''Transport Equipment'' propertyTerm=''Transport Equipment Seal'' representationTerm=''Transport Equipment Seal''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TaxPointDate
		(type INSTANCE)
;+		(allowed-classes TimePosition)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot developmentalForm
;+		(comment "(&%developmentalForm ?OBJECT ?FORM) means that ?FORM is an earlier stage in the individual maturation of ?OBJECT.  For example, tadpole and caterpillar are &%developmentalForms of frogs and butterflies, respectively.")
		(type INSTANCE)
;+		(allowed-classes DevelopmentalAttribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot QuantityShipped
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000174):\n<ccts:BBIE dictionaryEntryName=''Delivery Schedule. Quantity'' definition=''the quantity to be shipped at a specific delivery schedule event.'' objectClassTerm=''Delivery Schedule'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PerFn
;+		(comment "&%PerFn maps two instances of &%ConstantQuantity to the &%FunctionQuantity composed of these two instances.  For example, (&%PerFn (&%MeasureFn 2 (&%MicroFn &%Gram)) (&%MeasureFn 1 (&%KiloFn &%Gram))) denotes the &%FunctionQuantity of 2 micrograms per kiogram.  This function is useful, because it allows the knowledge engineer to dynamically generate instances of &%FunctionQuantity.")
		(type INSTANCE)
;+		(allowed-classes FunctionQuantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot greaterThanOrEqualTo
;+		(comment "(&%greaterThanOrEqualTo ?NUMBER1 ?NUMBER2) is true just in case the &%Quantity ?NUMBER1 is greater than the &%Quantity ?NUMBER2.")
		(type INSTANCE)
;+		(allowed-classes Quantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LineExtensionTotalAmount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000334):\n<ccts:BBIE dictionaryEntryName=''Legal Totals. Line Extension_ Total. Amount'' definition=''the total of line item extension amounts for the entire invoice, but not adjusted by any payment settlement discount or taxation.'' objectClassTerm=''Legal Totals'' qualifierTerm_PropertyTerm=''Line Extension'' propertyTerm=''Total'' representationTerm=''Amount''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot considers
;+		(comment "(&%considers ?AGENT ?FORMULA) means that ?AGENT considers or wonders about the truth of the proposition expressed by ?FORMULA.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot WhenFn
;+		(comment "A &%UnaryFunction that maps an &%Object or &%Process to the exact &%TimeInterval during which it exists.  Note that, for every &%TimePoint ?TIME outside of the &%TimeInterval (WhenFn ?THING), (time ?THING ?TIME) does not hold.")
		(type INSTANCE)
;+		(allowed-classes TimeInterval)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot depth
;+		(comment "A &%TernaryPredicate that is used to state the &%distance between the &%top of an &%Object and another point that is above the &%top of the\n&%Object (often this other point will be sea level).  Note that this &%Predicate can be used to specify, for example, the depth of marine life or submarines, for example.\n\n(&%distance ?OBJ1 ?OBJ2 ?QUANT) means that the shortest distance between the two objects ?OBJ1 and ?OBJ2 is ?QUANT.  Note that the difference between the predicates &%length and &%distance is that the &%length is used to state the &%LengthMeasure of one of the dimensions of a single object, while &%distance is used to state the &%LengthMeasure that separates two distinct objects.")
		(type INSTANCE)
;+		(allowed-classes Physical)
;+		(cardinality 0 1)
;+		(subslot-of distance)
		(create-accessor read-write))
	(single-slot PartyTaxScheme
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000094):\n<ccts:ASBIE dictionaryEntryName=''Buyer_ Party. Party Tax Scheme'' definition=''associates (optionally) the party with one or more tax schemes'' qualifierTermObjectClassTerm=''Buyer'' objectClassTerm=''Party'' propertyTerm=''Party Tax Scheme'' representationTerm=''Party Tax Scheme''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot subclass
;+		(comment "(&%subclass ?CLASS1 ?CLASS2) means that ?CLASS1 is a subclass of ?CLASS2, i.e. every instance of ?CLASS1 is also an instance of ?CLASS2.  A class may have multiple superclasses and subclasses.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ReplacedOrderLine
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000503):\n<ccts:ASBIE dictionaryEntryName=''Referenced_ Order Line. Replaced_ Order Line'' definition=''when the seller has made a substitution, this is used to associate the Order Line with the original one that has been replaced by the seller's substitute'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Replaced'' propertyTerm=''Order Line'' representationTerm=''Order Line''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot subAttribute
;+		(comment "Means that the second argument can be ascribed to everything which has the first argument ascribed to it.")
		(type INSTANCE)
;+		(allowed-classes Attribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot ContactLanguage
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000130):\n<ccts:ASBIE dictionaryEntryName=''Contact_ Party. Language'' definition=''associates (optionally) the party with one or more languages.'' qualifierTermObjectClassTerm=''Contact'' objectClassTerm=''Party'' propertyTerm=''Language'' representationTerm=''Language''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
		(cardinality 0 100)
		(create-accessor read-write))
	(single-slot TaxableAmountCurrency
		(type SYMBOL)
;+		(allowed-parents CurrencyMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PenaltyPeriod
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000441):\n<ccts:ASBIE dictionaryEntryName=''Payment Terms. Penalty_ Period'' definition=''associates the payment terms with the period after which a penalty is charged.'' objectClassTerm=''Payment Terms'' qualifierTerm_PropertyTerm=''Penalty'' propertyTerm=''Period'' representationTerm=''Period''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot sideOfFigure
;+		(comment "(&%sideOfFigure ?SIDE ?FIGURE) means that the\n&%OneDimensionalFigure ?SIDE is a side of the &%GeometricFigure ?FIGURE.\n")
		(type INSTANCE)
;+		(allowed-classes GeometricFigure)
;+		(cardinality 0 1)
;+		(subslot-of geometricPart)
		(create-accessor read-write))
	(single-slot LocationCoordinates
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000165):\n<ccts:ASBIE dictionaryEntryName=''Deliver To_ Address. Location Coordinates'' definition=''associates the address with its location coordinates.'' qualifierTermObjectClassTerm=''Deliver To'' objectClassTerm=''Address'' propertyTerm=''Location Coordinates'' representationTerm=''Location Coordinates''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CommodityClassification
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000298):\n<ccts:ASBIE dictionaryEntryName=''Item. Commodity Classification'' definition=''associates the item with its classification(s) according to a commodity classifying system.'' objectClassTerm=''Item'' propertyTerm=''Commodity Classification'' representationTerm=''Commodity Classification''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot believes
;+		(comment "The epistemic predicate of belief.  (&%believes ?AGENT ?FORMULA) means that ?AGENT believes the proposition expressed by ?FORMULA.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MaximumMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000308):\n<ccts:BBIE dictionaryEntryName=''Item Measurement. Maximum_ Measure'' definition=''the maximum value in a range of measurement'' objectClassTerm=''Item Measurement'' qualifierTerm_PropertyTerm=''Maximum'' propertyTerm=''Measure'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SquareRootFn
;+		(comment "(SquareRootFn ?NUMBER) is the principal square root of ?NUMBER.")
		(type INSTANCE)
;+		(allowed-classes Number)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PromisedByDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000178):\n<ccts:BBIE dictionaryEntryName=''Delivery Schedule. Promised By_ Date'' definition=''used mainly for confirming orders when a date was promised for delivery by the supplier over the phone.'' objectClassTerm=''Delivery Schedule'' qualifierTerm_PropertyTerm=''Promised By'' propertyTerm=''Date'' representationTerm=''Date''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot capability
;+		(comment "(&%capability ?PROCESS ?ROLE ?OBJ) means that ?OBJ has the ability to play the role of ?ROLE in &%Processes of type ?PROCESS.")
		(type INSTANCE)
;+		(allowed-classes CaseRole)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot FloorFn
;+		(comment "(&%FloorFn ?NUMBER) returns the largest &%Integer less than or equal to the &%RealNumber ?NUMBER.")
		(type INSTANCE)
;+		(allowed-classes Integer)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TaxableAmount
		(type FLOAT)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot itemDesignator
		(type INSTANCE)
;+		(allowed-classes Item)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot PackingCriteriaCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000270):\n<ccts:BBIE dictionaryEntryName=''Hazardous Transit. Packing_ Criteria. Code'' definition=''a code identifying the packaging requirement for the transportation of the specific hazardous goods as assigned by IATA/IMDB/ADR/RID etc.'' objectClassTerm=''Hazardous Transit'' qualifierTerm_PropertyTerm=''Packing'' propertyTerm=''Criteria'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MegaFn
;+		(comment "A &%UnaryFunction that maps a &%UnitOfMeasure into a &%UnitOfMeasure that is equal to 1,000,000 units of the original &%UnitOfMeasure.  For example, (&%KiloFn &%Hertz) is 1,000,000 &%Hertz.")
		(type INSTANCE)
;+		(allowed-classes UnitOfMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AbsoluteValueFn
;+		(comment "The value of (&%AbsoluteValueFn ?NUMBER) is the absolute value of the &%RealNumber ?NUMBER.")
		(type INSTANCE)
;+		(allowed-classes NonnegativeRealNumber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot holdsRight
;+		(comment "Expresses a relationship between a &%Formula and a &%CognitiveAgent whereby the &%CognitiveAgent has the right to bring it about that the &%Formula is true.")
		(type INSTANCE)
;+		(allowed-classes CognitiveAgent)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot immediateSubclass
;+		(comment "A &%SetOrClass ?CLASS1 is an &%immediateSubclass\nof another &%SetOrClass ?CLASS2 just in case ?CLASS1 is a subclass of ?CLASS2 and\nthere is no other subclass of ?CLASS2 such that ?CLASS1 is also a subclass of it.\n\n\n(&%subclass ?CLASS1 ?CLASS2) means that ?CLASS1 is a subclass of ?CLASS2, i.e. every instance of ?CLASS1 is also an instance of ?CLASS2.  A class may have multiple superclasses and subclasses.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
;+		(subslot-of subclass)
		(create-accessor read-write))
	(single-slot wants
;+		(comment "(&%wants ?AGENT ?OBJECT) means that ?OBJECT is desired by ?AGENT, i.e. ?AGENT believes that ?OBJECT will satisfy one of its goals.  Note that there is no implication that what is wanted by an agent is not already possessed by the agent.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot larger
;+		(comment "(&%larger ?OBJ1 ?OBJ2) simply means that ?OBJ1 is larger, with respect to all &%LengthMeasures, than ?OBJ2.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Fax
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000005):\n<ccts:BBIE dictionaryEntryName=''Accounts_ Contact. Fax. Text'' definition=''the number or virtual 'address' of a facsimile in a telecommunication system '' qualifierTermObjectClassTerm=''Accounts'' objectClassTerm=''Contact'' propertyTerm=''Fax'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SkinFn
;+		(comment "A &%UnaryFunction that maps a &%Hole to the skin of the &%Hole.  The skin of a &%Hole is the fusion of those superficial parts (see &%superficialPart) of the &%Hole's principal host (see &%PrincipalHostFn) with which the &%Hole is externally connected.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SubstituteForOrderLine
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000394):\n<ccts:ASBIE dictionaryEntryName=''Order Line. Substitute For_ Order Line'' definition=''associates the Order Line with the original ordered item that the Seller was unable to supply.'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Substitute For'' propertyTerm=''Order Line'' representationTerm=''Order Line''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ManufacturersItemIdentification
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000293):\n<ccts:ASBIE dictionaryEntryName=''Item. Manufacturer's_ Item. Identification'' definition=''associates the item with its identification according to the manufacturer's system.'' objectClassTerm=''Item'' qualifierTerm_PropertyTerm=''Manufacturer's'' propertyTerm=''Item'' representationTerm=''Identification''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot immediateInstance
;+		(comment "An object is an &%immediateInstance of\na &%SetOrClass if it is an instance of the &%SetOrClass and there does not exist a\nsubclass of &%SetOrClass such that it is an instance of the subclass.\n\nAn object is an &%instance of a &%SetOrClass if it is included in that &%SetOrClass.  An individual may be an instance of many classes, some of which may be subclasses of others.  Thus, there is no assumption in the meaning of &%instance about specificity or uniqueness.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
;+		(subslot-of instance)
		(create-accessor read-write))
	(single-slot FloorAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000149):\n<ccts:BBIE dictionaryEntryName=''Deliver To_ Address. Floor. Text'' definition=''identification by name or number of the floor in a building, as part of an address.'' qualifierTermObjectClassTerm=''Deliver To'' objectClassTerm=''Address'' propertyTerm=''Floor'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RegistrationName
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000400):\n<ccts:BBIE dictionaryEntryName=''Party Tax Scheme. Registration_ Name'' definition=''the name of a party as registered with the tax authority. This must be present if a) the tax regulations require it, and b) it is different from the Name element in the Name and Address information of the party.'' objectClassTerm=''Party Tax Scheme'' qualifierTerm_PropertyTerm=''Registration'' propertyTerm=''Name'' representationTerm=''Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot paymentTerms
;+		(comment "Proposed terms of payment.")
		(type INSTANCE)
;+		(allowed-classes PaymentTerms)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot IntersectionFn
;+		(comment "A &%BinaryFunction that maps two %SetOrClasses to the intersection of these &%SetOrClasses.  An object is an instance of the intersection of two &%SetOrClasses just in case it is an instance of both of those &%SetOrClasses.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TaxLevelCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000403):\n<ccts:BBIE dictionaryEntryName=''Party Tax Scheme. Tax Level. Code'' definition=''?'' objectClassTerm=''Party Tax Scheme'' propertyTerm=''Tax Level'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PropertyFn
;+		(comment "A &%UnaryFunction that maps an &%Agent to the &%Set of &%Property owned by the &%Agent.")
		(type INSTANCE)
;+		(allowed-classes Set)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot hole
;+		(comment "(&%hole ?HOLE ?OBJ) means that ?HOLE is a &%Hole in ?OBJ.  A &%Hole is a fillable body located at the &%surface an &%Object.")
		(type INSTANCE)
;+		(allowed-classes SelfConnectedObject)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TaxCharge
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000056):\n<ccts:ASBIE dictionaryEntryName=''Allowance Charge. Tax'' definition=''associates the allowance or charge with information about the tax(es) that apply.'' objectClassTerm=''Allowance Charge'' propertyTerm=''Tax'' representationTerm=''Tax''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot BackFn
;+		(comment "A &%Function that maps an &%Object to the side that is opposite the &%FrontFn of the &%Object.  Note that this is a partial function, since some &%Objects do not have sides, e.g. apples and spheres.  Note too that the &%range of this &%Function is indefinite in much the way that &%ImmediateFutureFn and &%ImmediatePastFn are indefinite.  Although this indefiniteness is undesirable from a theoretical standpoint, it does not have significant practical implications, since there is widespread intersubjective agreement about the most common cases.")
		(type INSTANCE)
;+		(allowed-classes SelfConnectedObject)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot equal
;+		(comment "(equal ?ENTITY1 ?ENTITY2) is true just in case ?ENTITY1 is identical with ?ENTITY2.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ancestor
;+		(comment "The transitive closure of the &%parent predicate. (&%ancestor ?DESCENDANT ?ANCESTOR) means that ?ANCESTOR is either the\n&%parent of ?DESCENDANT or the &%parent of the &%parent of &%DESCENDANT or etc.\n")
		(type INSTANCE)
;+		(allowed-classes Organism)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CardHolder
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000106):\n<ccts:BBIE dictionaryEntryName=''Card Account. Holder. Text'' definition=''the name of the holder of the card.'' objectClassTerm=''Card Account'' propertyTerm=''Holder'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MonthFn
;+		(comment "A &%BinaryFunction that maps a subclass of &%Month and a subclass of &%Year to the class containing the &%Months corresponding to thos &%Years. For example (&%MonthFn &%January (&%YearFn 1912)) is the class containing the eighth\n&%Month, i.e. August, of the &%Year 1912.  For another example, (&%MonthFn &%August &%Year) is equal to &%August, the class of all months of August.  Note that this function returns a &%Class as a value.  The reason for this is that the related functions, viz. DayFn, HourFn, MinuteFn, and SecondFn, are used to generate both specific &%TimeIntervals and recurrent intervals, and the only way to do this is to make the domains and ranges of these functions classes rather than individuals.\n")
		(type SYMBOL)
;+		(allowed-parents Month)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot decreasesLikelihood
;+		(comment "One of the basic &%ProbabilityRelations.  (&%decreasesLikelihood ?FORMULA1 ?FORMULA2) means that ?FORMULA2 is less likely to be true if ?FORMULA1 is true.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot disjoint
;+		(comment "&%Classes are &%disjoint only if they share no instances, i.e. just in case the result of applying &%IntersectionFn tothem is empty.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ShortageActionCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000245):\n<ccts:BBIE dictionaryEntryName=''Handling Unit_ Receipt Line. Shortage_ Action. Code'' definition=''describes the action, by a code, that the buyer/recipient wishes the seller to take as a result of the supplied quantity being short.'' qualifierTermObjectClassTerm=''Handling Unit'' objectClassTerm=''Receipt Line'' qualifierTerm_PropertyTerm=''Shortage'' propertyTerm=''Action'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ReferencedCatalogue
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000296):\n<ccts:ASBIE dictionaryEntryName=''Item. Referenced_ Catalogue'' definition=''associates the item with the catalogue from which the item was selected.'' objectClassTerm=''Item'' qualifierTerm_PropertyTerm=''Referenced'' propertyTerm=''Catalogue'' representationTerm=''Catalogue''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot %3ASYNONYMS
;+		(comment "A list of synonyms in natural or formal languages for the concept represetned by this class.")
		(type INSTANCE)
;+		(allowed-classes Synonym)
		(create-accessor read-write))
	(single-slot faces
;+		(comment "(&%faces ?OBJ ?DIRECTION) means that the front of ?OBJ (see &%FrontFn) is positioned towards the compass direction ?DIRECTION.  More precisely, it means that if a line were extended from the center of ?DIRECTION, the line would intersect with the front of ?OBJ before it intersected with its back (see &%BackFn).")
		(type INSTANCE)
;+		(allowed-classes DirectionalAttribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DespatchedQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000237):\n<ccts:BBIE dictionaryEntryName=''Handling Unit_ Despatch Line. Despatched_ Quantity'' definition=''the quantity of the item advised as despatched on this line item.'' qualifierTermObjectClassTerm=''Handling Unit'' objectClassTerm=''Despatch Line'' qualifierTerm_PropertyTerm=''Despatched'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot usageFrequency
;+		(comment "usageFrequency relates a word - string of characters -- to the frequency with which that word refers to the particular concept (ontology class).  The sum of all frequencies for a particular word in a particular language should add to 1.0 --\nbut all usages of a particulaar word will not usually be visible in any one screen.   There is no significance to the total number of words that might label a concept-class, nor to the total frequencies in all languages.")
		(type FLOAT)
		(range 0.0 1.0)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot %3ADomain2Value
;+		(comment "The instance value for the third argument of a higher-arity relation.  It is an instance of :Domain2Class.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
;+		(associated-facet SUMO152_00100)
		(create-accessor read-write))
	(single-slot HazardousTransit
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000267):\n<ccts:ASBIE dictionaryEntryName=''Hazardous Item. Hazardous Transit'' definition=''associates the hazardous item with information about the transportation of hazardous goods.'' objectClassTerm=''Hazardous Item'' propertyTerm=''Hazardous Transit'' representationTerm=''Hazardous Transit''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ValidityPeriod
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000140):\n<ccts:ASBIE dictionaryEntryName=''Contract. Validity_ Period'' definition=''specifies the dates or duration for which the Contract is valid.'' objectClassTerm=''Contract'' qualifierTerm_PropertyTerm=''Validity'' propertyTerm=''Period'' representationTerm=''Period''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LongitudeDegreesMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000341):\n<ccts:BBIE dictionaryEntryName=''Location Coordinates. Longitude_ Degrees. Measure'' definition=''specifies the degrees measurement of longitude as part of a detailed set of coordinates.'' objectClassTerm=''Location Coordinates'' qualifierTerm_PropertyTerm=''Longitude'' propertyTerm=''Degrees'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TypeCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000098):\n<ccts:BBIE dictionaryEntryName=''Card Account. Type. Code'' definition=''the type of card used for payment'' objectClassTerm=''Card Account'' propertyTerm=''Type'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot confersRight
;+		(comment "Expresses the relationship between a &%Formula, an &%Entity, and a &%CognitiveAgent when the &%Entity authorizes the &%CognitiveAgent to bring it about that the &%Formula is true.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot handlingTemperature
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000260):\n<ccts:BBIE dictionaryEntryName=''Hazardous Item. Temperature. Measure'' definition=''information providing details of temperatures relevant to the handling of hazardous goods.'' objectClassTerm=''Hazardous Item'' propertyTerm=''Temperature'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot priceAmount
		(type FLOAT)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Department
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000039):\n<ccts:BBIE dictionaryEntryName=''Address. Department. Text'' definition=''the identity of the department of an organisation, used as part of an address.'' objectClassTerm=''Address'' propertyTerm=''Department'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot InvoiceCurrencyCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL700006):\n<ccts:BBIE dictionaryEntryName=''Invoice. Invoice_ Currency. Code'' definition=''the currency in which the Invoice is presented. This may be the same currency as the pricing or as the tax.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Invoice'' qualifierTerm_PropertyTerm=''Invoice'' propertyTerm=''Currency'' representationTerm=''Code'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot agent
;+		(comment "(&%agent ?PROCESS ?AGENT) means that ?AGENT is an active determinant, either animate or inanimate, of the &%Process ?PROCESS, with or without voluntary intention.  For example, water is the &%agent of erosion in the following proposition:  the water eroded the coastline.  For another example, Eve is an &%agent in the following proposition: Eve bit an apple.")
		(type INSTANCE)
;+		(allowed-classes Agent)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot duration
;+		(comment "(&%duration ?POS ?TIME) means that the duration of the &%TimePosition ?POS is ?TIME.  Note that this &%Predicate can be used in conjunction with the &%Function &%WhenFn to specify the duration of any instance of &%Physical.")
		(type INSTANCE)
;+		(allowed-classes TimeDuration)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Name
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000003):\n<ccts:BBIE dictionaryEntryName=''Accounts_ Contact. Name'' definition=''identifies the department or employee name given as a contact.'' qualifierTermObjectClassTerm=''Accounts'' objectClassTerm=''Contact'' propertyTerm=''Name'' representationTerm=''Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CoordinateSystemCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000337):\n<ccts:BBIE dictionaryEntryName=''Location Coordinates. Coordinate System. Code'' definition=''identifies the co-ordinate measuring system (eg. GPS)'' objectClassTerm=''Location Coordinates'' propertyTerm=''Coordinate System'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SellersOrderID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000485):\n<ccts:BBIE dictionaryEntryName=''Referenced_ Order. Seller's_ Order. Identifier'' definition=''the seller's identification of the order to which the despatch advice is related.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Order'' qualifierTerm_PropertyTerm=''Seller's'' propertyTerm=''Order Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot property
;+		(comment "This &%Predicate holds between an instance of &%Entity and an instance of &%Attribute.  (property ?ENTITY ?ATTR) means that ?ENTITY has the &%Attribute ?ATTR.")
		(type INSTANCE)
;+		(allowed-classes Attribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot GrossWeightMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000019):\n<ccts:BBIE dictionaryEntryName=''Actual_ Shipment. Gross_ Weight. Measure'' definition=''the total gross weight of the shipment.'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Shipment'' qualifierTerm_PropertyTerm=''Gross'' propertyTerm=''Weight'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot InvoiceCurrencyType
		(type SYMBOL)
;+		(allowed-parents CurrencyMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot overlapsTemporally
;+		(comment "(&%overlapsTemporally ?INTERVAL1 ?INTERVAL2) means that the &%TimeIntervals ?INTERVAL1 and ?INTERVAL2 have a &%TimeInterval as a common part.")
		(type INSTANCE)
;+		(allowed-classes TimeInterval)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SecondFn
;+		(comment "A &%BinaryFunction that assigns a &%PositiveRealNumber and a subclass of &%Minutes to the &%Seconds within each &%Minute corresponding to that &%PositiveRealNumber.  For example, (&%SecondFn 4 (&%MinuteFn 5 &%Hour)) is the &%Class of all fourth &%Seconds of every fifth &%Minute of every hour.  For another example, (&%SecondFn 8 &%Minute) would return the eighth second of every minute.  For still another example, (&%SecondFn 9 (&%MinuteFn 15 (&%HourFn 14 (&%DayFn 18 (&%MonthFn 8 (YearFn 1912)))))) denotes 9 seconds and 15 minutes after 2 PM on the 18th day of August 1912.")
		(type SYMBOL)
;+		(allowed-parents Second)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot crosses
;+		(comment "(crosses ?OBJ1 ?OBJ2) means that\n&%Object ?OBJ1 &%traverses Object ?OBJ2, without being &%connected\nto it.\n\n(&%traverses ?OBJ1 ?OBJ2) means that ?OBJ1 crosses or extends across ?OBJ2.  Note that &%crosses and &%penetrates are subrelations of &%traverses.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
;+		(subslot-of traverses)
		(create-accessor read-write))
	(single-slot rangeSubclass
;+		(comment "(&%rangeSubclass ?FUNCTION ?CLASS) means that all of the values assigned by ?FUNCTION are &%subclasses of ?CLASS.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot inList
;+		(comment "The analog of &%element and &%instance for &%Lists.  (&%inList ?OBJ ?LIST) means that ?OBJ is in the &%List ?LIST.  For example, (&%inList &%Tuesday (&%ListFn &%Monday &%Tuesday &%Wednesday)) would be true.")
		(type INSTANCE)
;+		(allowed-classes List)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot OrderedShipment
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000390):\n<ccts:ASBIE dictionaryEntryName=''Order Line. Ordered_ Shipment'' definition=''associates the Order Line with information directly relating to its shipment.'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Ordered'' propertyTerm=''Shipment'' representationTerm=''Shipment''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot pointOfFigure
;+		(comment "(&%pointOfFigure ?POINT ?FIGURE) means that the &%GeometricPoint ?POINT is part of the &%GeometricFigure ?FIGURE.\n")
		(type INSTANCE)
;+		(allowed-classes GeometricFigure)
;+		(cardinality 0 1)
;+		(subslot-of geometricPart)
		(create-accessor read-write))
	(single-slot successorAttributeClosure
;+		(comment "The transitive closure of &%successorAttribute.  (&%successorAttributeClosure ?ATTR1 ?ATTR2) means that there is a chain of &%successorAttribute assertions connecting ?ATTR1 and ?ATTR2.")
		(type INSTANCE)
;+		(allowed-classes Attribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CommodityCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000119):\n<ccts:BBIE dictionaryEntryName=''Commodity Classification. Commodity. Code'' definition=''classification of the type of commodity.'' objectClassTerm=''Commodity Classification'' propertyTerm=''Commodity Code'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot irreflexiveOn
;+		(comment "A &%BinaryRelation is irreflexive on a &%SetOrClass only if no instance of the &%SetOrClass bears the relation to itself.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cat%3AReferencedOrder
;+		(comment "UBL-element Jul 26-03 (UBL-ID=):\n<ccts:ASBIE dictionaryEntryName=''Invoice. Referenced_ Order'' definition=''an invoice is associated with one order.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Invoice'' qualifierTerm_PropertyTerm=''Referenced'' propertyTerm=''Order'' representationTerm=''Order'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot DispositionCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000647):\n<ccts:BBIE dictionaryEntryName=''Transport Equipment. Disposition. Code'' definition=''describes the current disposition of the transport equipment.'' objectClassTerm=''Transport Equipment'' propertyTerm=''Disposition'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cat%3AID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL700005):\n<ccts:BBIE dictionaryEntryName=''Invoice. Tax Point_ Date'' definition=''the date of the invoice for tax purposes, in accordance with the applicable tax regulation.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Invoice'' qualifierTerm_PropertyTerm=''Tax Point'' propertyTerm=''Date'' representationTerm=''Date'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Cv2
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000103):\n<ccts:BBIE dictionaryEntryName=''Card Account. Cv2. Text'' definition=''The CV2 identity on the reverse of the card for added security.'' objectClassTerm=''Card Account'' propertyTerm=''CV2'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot experiencer
;+		(comment "(&%experiencer ?PROCESS ?AGENT) means that ?AGENT experiences the &%Process ?PROCESS.  For example, Yojo is the &%experiencer of seeing in the following proposition:  Yojo sees the fish.  Note that &%experiencer, unlike &%agent, does not entail a causal relation between its arguments.")
		(type INSTANCE)
;+		(allowed-classes Agent)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot piece
;+		(comment "A specialized common sense notion of part for arbitrary parts of &%Substances.  Quasi-synonyms are: chunk, hunk, bit, etc.  Compare &%component, the other subrelation of &%part.\n")
		(type INSTANCE)
;+		(allowed-classes Substance)
;+		(cardinality 0 1)
;+		(subslot-of part)
		(create-accessor read-write))
	(single-slot MaximumAmount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000076):\n<ccts:BBIE dictionaryEntryName=''Base Price. Maximum_ Amount'' definition=''specifies the maximum amount in a range for which the price applies.'' objectClassTerm=''Base Price'' qualifierTerm_PropertyTerm=''Maximum'' propertyTerm=''Amount'' representationTerm=''Amount''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ChargeIndicator
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000050):\n<ccts:BBIE dictionaryEntryName=''Allowance Charge. Charge. Indicator'' definition=''indicates whether the allowance/charge is a charge (on) or an allowance (off).'' objectClassTerm=''Allowance Charge'' propertyTerm=''Charge Indicator'' representationTerm=''Indicator''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ExemptionReasonCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000404):\n<ccts:BBIE dictionaryEntryName=''Party Tax Scheme. Exemption_ Reason. Code'' definition=''a code that explains the reason for a party's exemption from a tax.'' objectClassTerm=''Party Tax Scheme'' qualifierTerm_PropertyTerm=''Exemption'' propertyTerm=''Reason'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot penetrates
;+		(comment "(penetrates ?OBJ1 ?OBJ2) means that\n?OBJ1 is &%connected to ?OBJ2 along at least one whole dimension (length,\nwidth or depth).\n\n(&%traverses ?OBJ1 ?OBJ2) means that ?OBJ1 crosses or extends across ?OBJ2.  Note that &%crosses and &%penetrates are subrelations of &%traverses.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
;+		(subslot-of traverses)
		(create-accessor read-write))
	(single-slot totalOrderingOn
;+		(comment "A &%BinaryRelation ?REL is a total ordering on a &%SetOrClass only if it is a partial ordering for which either (?REL ?INST1 ?INST2) or (?REL ?INST2 ?INST1) for every ?INST1 and ?INST2 in the &%SetOrClass.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RemainderFn
;+		(comment "(RemainderFn ?NUMBER ?DIVISOR) is the remainder of the number ?NUMBER divided by the number ?DIVISOR.  The result has the same sign as ?DIVISOR.")
		(type INSTANCE)
;+		(allowed-classes Quantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot FlashpointMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000258):\n<ccts:BBIE dictionaryEntryName=''Hazardous Item. Flashpoint. Measure'' definition=''the lowest temperature at which the vapor of a combustible liquid can be made to ignite momentarily in air, known in hazardous goods procedures as the flashpoint.'' objectClassTerm=''Hazardous Item'' propertyTerm=''Flashpoint'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ActionCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000546):\n<ccts:BBIE dictionaryEntryName=''Sales Conditions. Action. Code'' definition=''identifies the action that should be undertaken in specific conditions related to the sale of goods or services applied in the process.'' objectClassTerm=''Sales Conditions'' propertyTerm=''Action'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AbstractionFn
;+		(comment "A &%UnaryFunction that maps a &%Class into the instance of &%Attribute that specifies the condition(s) for membership in the &%Class.")
		(type INSTANCE)
;+		(allowed-classes Attribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SeriesVolumeFn
;+		(comment "A &%BinaryFunction that maps a type of &%Series (e.g. the Encyclopedia_Britannica or the Popular_Mechanics periodical) and a number to the volumes of the text type designated by the number.")
		(type SYMBOL)
;+		(allowed-parents Text)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot age
;+		(comment "Simply relates an &%Object to a &%ConstantQuantity specifying the age of the &%Object.\n")
		(type INSTANCE)
;+		(allowed-classes TimeDuration)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PaymentMeans
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000057):\n<ccts:ASBIE dictionaryEntryName=''Allowance Charge. Payment Means'' definition=''associates the allowance or charge with information about a means of payment. If the allowance or charge has to be prepaid, then this association is made via the payment.'' objectClassTerm=''Allowance Charge'' propertyTerm=''Payment Means'' representationTerm=''Payment Means''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot hasAddress
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000093):\n<ccts:ASBIE dictionaryEntryName=''Buyer_ Party. Address'' definition=''associates (optionally) the party with one or more addresses'' qualifierTermObjectClassTerm=''Buyer'' objectClassTerm=''Party'' propertyTerm=''Address'' representationTerm=''Address''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PlacardEndorsement
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000255):\n<ccts:BBIE dictionaryEntryName=''Hazardous Item. Placard_ Endorsement. Text'' definition=''the placard endorsement that is to be shown on the shipping papers for the hazardous commodity. Can also be used for the number of the orange placard (lower part) required on the means of transport.'' objectClassTerm=''Hazardous Item'' qualifierTerm_PropertyTerm=''Placard'' propertyTerm=''Endorsement'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot WhereFn
;+		(comment "Maps an &%Object and a &%TimePoint at which the &%Object exists to the &%Region where the &%Object existed at that &%TimePoint.")
		(type INSTANCE)
;+		(allowed-classes Region)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cat%3ABuyerParty
;+		(comment "UBL-element Jul 26-03 (UBL-ID=):\n<ccts:ASBIE dictionaryEntryName=''Invoice. Buyer_ Party'' definition=''associates the invoice with the buyer (invoicee) party.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Invoice'' qualifierTerm_PropertyTerm=''Buyer'' propertyTerm=''Party'' representationTerm=''Party'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot LineItemCountQuantity
		(type INTEGER)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot AttributeID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000304):\n<ccts:BBIE dictionaryEntryName=''Item Measurement. Attribute_ Identifier'' definition=''identifies a physical attribute within a set of characteristics that describe something in a formalised way.'' objectClassTerm=''Item Measurement'' qualifierTerm_PropertyTerm=''Attribute'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AllowanceCharge
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000069):\n<ccts:ASBIE dictionaryEntryName=''Alternative_ Order Line. Allowance Charge'' definition=''associates the Order Line with one or more charges, allowances etc that apply to the Order Line.'' qualifierTermObjectClassTerm=''Alternative'' objectClassTerm=''Order Line'' propertyTerm=''Allowance Charge'' representationTerm=''Allowance Charge''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot connectsEngineeringComponents
;+		(comment "&%connectsEngineeringComponents is a &%TernaryPredicate that maps from an &%EngineeringConnection to the\n&%EngineeringComponents it connects.  Since &%EngineeringComponents cannot\nbe connected to themselves and there cannot be an &%EngineeringConnection\nwithout a &%connectedEngineeringComponents &%Predicate, the second and third arguments of any &%connectsEngineeringComponents relationship will always be\ndistinct for any given first argument.\n\nThe relationship between three things, when one of the three things connects the other two.  More formally, (&%connects ?OBJ1 ?OBJ2 ?OBJ3) means that (&%connected ?OBJ1 ?OBJ2) and (&%connected ?OBJ1 ?OBJ3) and not (&%connected ?OBJ2 ?OBJ3).")
		(type INSTANCE)
;+		(allowed-classes EngineeringComponent)
;+		(cardinality 0 1)
;+		(subslot-of connects)
		(create-accessor read-write))
	(single-slot TargetCurrencyCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000212):\n<ccts:BBIE dictionaryEntryName=''Exchange Rate. Target_ Currency. Code'' definition=''the target currency of the rate of exchange. This is the currency to which the exchange is being made. (CC Definition)'' objectClassTerm=''Exchange Rate'' qualifierTerm_PropertyTerm=''Target'' propertyTerm=''Currency'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DivisionFn
;+		(comment "If ?NUMBER1 and ?NUMBER2 are &%Numbers, then (&%DivisionFn ?NUMBER1 ?NUMBER2) is the result of dividing ?NUMBER1 by ?NUMBER2.  An exception occurs when ?NUMBER1 = 1, in which case (&%DivisionFn ?NUMBER1 ?NUMBER2) is the reciprocal of ?NUMBER2.")
		(type INSTANCE)
;+		(allowed-classes Quantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot closedOn
;+		(comment "A &%BinaryFunction is closed on a &%SetOrClass if it is defined for all instances of the &%SetOrClass and its value is always an instance of the &%SetOrClass.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot hasPurpose
;+		(comment "This &%Predicate expresses the concept of a conventional goal, i.e. a goal with a neutralized agent's intention.  Accordingly, (&%hasPurpose ?THING ?FORMULA) means that the instance of &%Physical ?THING has, as its purpose, the &%Proposition expressed by ?FORMULA.  Note that there is an important difference in meaning between the &%Predicates &%hasPurpose and &%result.  Although the second argument of the latter can satisfy the second argument of the former, a conventional goal is an expected and desired outcome, while a result may be neither expected nor desired.  For example, a machine process may have outcomes but no goals, aimless wandering may have an outcome but no goal; a learning process may have goals with no outcomes, and so on.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot BuyersItemIdentification
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000291):\n<ccts:ASBIE dictionaryEntryName=''Item. Buyer's_ Item. Identification'' definition=''associates the item with its identification according to the buyer's system.'' objectClassTerm=''Item'' qualifierTerm_PropertyTerm=''Buyer's'' propertyTerm=''Item'' representationTerm=''Identification''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot synonym
		(type STRING)
		(create-accessor read-write))
	(single-slot FromCatalogIndicator
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000290):\n<ccts:BBIE dictionaryEntryName=''Item. From Catalog_ Indicator'' definition=''an indicator that denotes whether or not the item was ordered from a catalog.'' objectClassTerm=''Item'' qualifierTerm_PropertyTerm=''From Catalog'' propertyTerm=''Indicator'' representationTerm=''Indicator''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot subList
;+		(comment "(&%subList ?LIST1 ?LIST2) means that ?LIST1 is a sublist of ?LIST2, i.e. every element of ?LIST1 is an element of ?LIST2 and the elements that are common to both &%Lists have the same order in both &%Lists.")
		(type INSTANCE)
;+		(allowed-classes List)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot InhalationToxicityZoneCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000274):\n<ccts:BBIE dictionaryEntryName=''Hazardous Transit. Inhalation Toxicity_ Zone. Code'' definition=''a code identifying the Inhalation Toxicity Hazard Zone for the hazardous goods, as defined by the US Department of Transportation.'' objectClassTerm=''Hazardous Transit'' qualifierTerm_PropertyTerm=''Inhalation Toxicity'' propertyTerm=''Zone'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot editor
;+		(comment "(&%editor ?AGENT ?TEXT) means that ?AGENT is an editor of ?TEXT.")
		(type INSTANCE)
;+		(allowed-classes Text)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot forall
;+		(comment "The universal quantifier of predicate logic.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ReceivedDateDateTime
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000249):\n<ccts:BBIE dictionaryEntryName=''Handling Unit_ Receipt Line. Received_ Date. Date Time'' definition=''gives the date when the delivery was received.'' qualifierTermObjectClassTerm=''Handling Unit'' objectClassTerm=''Receipt Line'' qualifierTerm_PropertyTerm=''Received'' propertyTerm=''Date'' representationTerm=''Date Time''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot finishes
;+		(comment "(&%finishes ?INTERVAL1 ?INTERVAL2) means that ?INTERVAL1 and ?INTERVAL2 are both &%TimeIntervals that have the same ending &%TimePoint and that ?INTERVAL2 begins before ?INTERVAL1.")
		(type INSTANCE)
;+		(allowed-classes TimeInterval)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass %3ASYN-CLASS ":SYN-CLASS is a :STANDARD-CLASS which has a synonym slot."
	(is-a %3ASTANDARD-CLASS)
	(role concrete)
	(multislot %3ASYNONYMS
;+		(comment "A list of synonyms in natural or formal languages for the concept represetned by this class.")
		(type INSTANCE)
;+		(allowed-classes Synonym)
		(create-accessor read-write)))

(defclass %3ATernarySlot "A slot that has three arguments.  It is implemented here by adding a slot to this class, Arg3.  This slot can only take a fixed class value, and only serves to record the clas restriciton, it canot be used to instantiate the relation.  Other workarounds can be used to better represent higher-arity relatrions, but at the expense of greater complexity in viewing the relations."
	(is-a %3ASTANDARD-SLOT)
	(role concrete)
	(single-slot %3ADomain2Value
;+		(comment "The instance value for the third argument of a higher-arity relation.  It is an instance of :Arg3Value.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot %3ADomain2Class
;+		(comment "THe third argument of a higher-arity relation")
		(type SYMBOL)
;+		(allowed-parents Entity)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass %3AQuaternarySlot "A slot that has four arguments.  It is implemented here by adding a slot,, Arg4, to the ternarySlot class.  This slot can only take a fixed class value, and only serves to record the clas restriciton, it canot be used to instantiate the relation.  Other workarounds can be used to better represent higher-arity relatrions, but at the expense of greater complexity in viewing the relations."
	(is-a %3ATernarySlot)
	(role concrete)
	(single-slot %3ADomain3Class
;+		(comment "The fourth argument of a quaternary or higher-arity slot.")
		(type SYMBOL)
;+		(allowed-parents)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot %3ADomain3Value
;+		(comment "The instance value for the fourth argument of a higher-arity slot.\nIt is an instance of :Arg4Class")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Entity "UBL-Invoice V0.11 from\nSUMO 1.55: July 14, 2003\n\nTop node is \"Entity\"  -- all instances of any class are an instance of this class.    This file is the beginning of the UBL-Invoiceontology, derived from SUMO 1.55 with Mike Daconta's classes and relations added, plus a few classes from Pat Cassidy.\n\nCOnversion note: Converted SUMO 1.55 from the Merge-Txt file on Teknowledge's site.\nTernary predicates have the third argument as :Domain2Class.\nBinary Functions have the second argument as :Domain2Class and the range as \"Allowed-Classes\".\n\nFor most **instances** of the relations defined in the SUMO file, only one class is listed as the parent class.  Additional parent classes were not transcribed."
	(is-a USER)
	(role concrete)
	(single-slot element
;+		(comment "(element ?ENTITY ?SET) is true just in case ?ENTITY is contained in the &%Set ?SET.  An &%Entity can be an &%element of another &%Entity only if the latter is a &%Set.")
		(type INSTANCE)
;+		(allowed-classes Set)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instance
;+		(comment "An object is an &%instance of a &%SetOrClass if it is included in that &%SetOrClass.  An individual may be an instance of many classes, some of which may be subclasses of others.  Thus, there is no assumption in the meaning of &%instance about specificity or uniqueness.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SUO-name
		(type STRING)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot equal
;+		(comment "(equal ?ENTITY1 ?ENTITY2) is true just in case ?ENTITY1 is identical with ?ENTITY2.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot inList
;+		(comment "The analog of &%element and &%instance for &%Lists.  (&%inList ?OBJ ?LIST) means that ?OBJ is in the &%List ?LIST.  For example, (&%inList &%Tuesday (&%ListFn &%Monday &%Tuesday &%Wednesday)) would be true.")
		(type INSTANCE)
;+		(allowed-classes List)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot documentation
;+		(comment "A relation between objects in the domain of discourse and strings of natural language text.  The domain of &%documentation is not constants (names), but the objects themselves.  This means that one does not quote the names when associating them with their documentation.")
		(type STRING)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot relatedInternalConcept
;+		(comment "Means that the two arguments are related concepts within the SUMO, i.e. there is a significant similarity of meaning between them.  To indicate a meaning relation between a SUMO concept and a concept from another source, use the Predicate &%relatedExternalConcept.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot property
;+		(comment "This &%Predicate holds between an instance of &%Entity and an instance of &%Attribute.  (property ?ENTITY ?ATTR) means that ?ENTITY has the &%Attribute ?ATTR.")
		(type INSTANCE)
;+		(allowed-classes Attribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Physical "SUMO 1.55: July 14, 2003\nAn entity that has a location in space-time.  \nNote that locations are themselves understood to have a location in \nspace-time."
	(is-a Entity)
	(role concrete)
	(single-slot distance
;+		(comment "(&%distance ?OBJ1 ?OBJ2 ?QUANT) means that the shortest distance between the two objects ?OBJ1 and ?OBJ2 is ?QUANT.  Note that the difference between the predicates &%length and &%distance is that the &%length is used to state the &%LengthMeasure of one of the dimensions of a single object, while &%distance is used to state the &%LengthMeasure that separates two distinct objects.")
		(type INSTANCE)
;+		(allowed-classes Physical)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot refers
;+		(comment "(&%refers ?OBJ1 ?OBJ2) means that ?OBJ1 mentions or includes a reference to ?OBJ2. Note that &%refers is more general in meaning than &%represents, because presumably something can represent something else only if it refers to this other thing.  For example, an article whose topic is a recent change in the price of oil may refer to many other things, e.g. the general state of the economy, the weather in California, the prospect of global warming, the options for alternative energy sources, the stock prices of various oil companies, etc.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot representsForAgent
;+		(comment "A very general predicate.  (&%representsForAgent ?THING ?ENTITY ?AGENT) means that the ?AGENT chooses to use the &%instance of &%Physical ?THING to 'stand for' ?ENTITY.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cooccur
;+		(comment "(&%cooccur ?THING1 ?THING2) means that the &%Object or &%Process ?THING1 occurs at the same time as, together with, or jointly with the &%Object or &%Process ?THING2.  This covers the following temporal relations:  is co-incident with, is concurrent with, is contemporaneous with, and is concomitant with.")
		(type INSTANCE)
;+		(allowed-classes Physical)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot hasPurposeForAgent
;+		(comment "Expresses a cognitive attitude of an agent with respect to a particular instance of Physical.  More precisely, (&%hasPurposeForAgent ?THING ?FORMULA ?AGENT) means that the purpose of ?THING for ?AGENT is the proposition expressed by ?FORMULA.  Very complex issues are involved here.  In particular, the rules of inference of the first order predicate calculus are not truth-preserving for the second argument position of this &%Predicate.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot partlyLocated
;+		(comment "The predicate of partial localization.  For example, Istanbul is partly located in Asia.  Note that this is the most basic localization relation:  &%located and &%exactlyLocated are both subrelations of &%partlyLocated.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot WhenFn
;+		(comment "A &%UnaryFunction that maps an &%Object or &%Process to the exact &%TimeInterval during which it exists.  Note that, for every &%TimePoint ?TIME outside of the &%TimeInterval (WhenFn ?THING), (time ?THING ?TIME) does not hold.")
		(type INSTANCE)
;+		(allowed-classes TimeInterval)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot hasPurpose
;+		(comment "This &%Predicate expresses the concept of a conventional goal, i.e. a goal with a neutralized agent's intention.  Accordingly, (&%hasPurpose ?THING ?FORMULA) means that the instance of &%Physical ?THING has, as its purpose, the &%Proposition expressed by ?FORMULA.  Note that there is an important difference in meaning between the &%Predicates &%hasPurpose and &%result.  Although the second argument of the latter can satisfy the second argument of the former, a conventional goal is an expected and desired outcome, while a result may be neither expected nor desired.  For example, a machine process may have outcomes but no goals, aimless wandering may have an outcome but no goal; a learning process may have goals with no outcomes, and so on.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot date
;+		(comment "A &%BinaryPredicate that specifies a &%TimePosition in absolute calendar time, at the resolution of one day, for a particular &%Object or &%Process.")
		(type INSTANCE)
;+		(allowed-classes Day)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot time
;+		(comment "This relation holds between an instance of &%Physical and an instance of &%TimePosition just in case the temporal lifespan of the former includes the latter.  The constants &%located and &%time are the basic spatial and temporal predicates, respectively.")
		(type INSTANCE)
;+		(allowed-classes TimePosition)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot WhereFn
;+		(comment "Maps an &%Object and a &%TimePoint at which the &%Object exists to the &%Region where the &%Object existed at that &%TimePoint.")
		(type INSTANCE)
;+		(allowed-classes TimePoint)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Object "SUO 1.55: July 14, 2003\nCorresponds roughly to the class of ordinary \nobjects.  Examples include normal physical objects, geographical regions, \nand locations of &%Processes, the complement of &%Objects in the &%Physical \nclass.  In a 4D ontology, an &%Object is something whose spatiotemporal \nextent is thought of as dividing into spatial parts roughly parallel to the \ntime-axis."
	(is-a Physical)
	(role concrete)
	(single-slot bottom
;+		(comment "(&%bottom ?BOTTOM ?OBJECT) holds if ?BOTTOM is the\nlowest or deepest maximal superficial part of ?OBJECT.\n")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MereologicalDifferenceFn
;+		(comment "(&%MereologicalDifferenceFn ?OBJ1 ?OBJ2) denotes the &%Object consisting of the parts which belong to ?OBJ1 and not to ?OBJ2.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot top
;+		(comment "(&%top ?TOP ?OBJECT) means that ?TOP is the highest maximal\nsuperficial part of ?OBJECT.\n")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MereologicalProductFn
;+		(comment "(&%MereologicalProductFn ?OBJ1 ?OBJ2) denotes the &%Object consisting of the parts which belong to both ?OBJ1 and ?OBJ2.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot fills
;+		(comment "Holes can be filled.  (&%fills ?OBJ ?HOLE) means that the &%Object ?OBJ fills the &%Hole ?HOLE.  Note that &%fills here means perfectly filled.")
		(type INSTANCE)
;+		(allowed-classes Hole)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot partiallyFills
;+		(comment "(&%partiallyFills ?OBJ ?HOLE) means that ?OBJ &%completelyFills some part of ?HOLE. Note that if (&%partiallyFills\n?OBJ1 ?HOLE) and (&%part ?OBJ1 ?OBJ2), then (&%partiallyFills ?OBJ2 ?HOLE). Note too that a partial filler need not be wholly inside a hole (it may\nstick out), which means that every complete filler also qualifies as\n(is a limit case of) a partial one.\n")
		(type INSTANCE)
;+		(allowed-classes Hole)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MereologicalSumFn
;+		(comment "(&%MereologicalSumFn ?OBJ1 ?OBJ2) denotes the &%Object consisting of the parts which belong to either ?OBJ1 or ?OBJ2.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot exploits
;+		(comment "(&%exploits ?OBJ ?AGENT) means that ?OBJ is used by ?AGENT as a &%resource in an unspecified instance of &%Process.  This &%Predicate, as its corresponding axiom indicates, is a composition of the relations &%agent and &%resource.\n")
		(type INSTANCE)
;+		(allowed-classes Agent)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot larger
;+		(comment "(&%larger ?OBJ1 ?OBJ2) simply means that ?OBJ1 is larger, with respect to all &%LengthMeasures, than ?OBJ2.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot between
;+		(comment "(between ?OBJ1 ?OBJ2 ?OBJ3) means that ?OBJ2 is spatially located between ?OBJ1 and ?OBJ3.  Note that this implies that ?OBJ2 is directly between ?OBJ1 and ?OBJ3, i.e. the projections of ?OBJ1 and ?OBJ3 overlap with ?OBJ2.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot properlyFills
;+		(comment "(&%properlyFills ?OBJ ?HOLE) means that ?HOLE is properly (though perhaps incompletely) filled by ?OBJ, i.e. some part of ?HOLE is perfectly filled by ?OBJ.  Note that &%properlyFills is the dual of &%completelyFills, and is so related to &%partiallyFills that ?OBJ &%properlyFills ?HOLE just in case ?OBJ &%partiallyFills every part of ?HOLE.  (Thus, every perfect filler is both complete and proper in this sense).")
		(type INSTANCE)
;+		(allowed-classes Hole)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot attribute
;+		(comment "(&%attribute ?OBJECT ?PROPERTY) means that ?PROPERTY is a &%Attribute of ?OBJECT.  For example, (&%attribute &%MyLittleRedWagon &%Red).")
		(type INSTANCE)
;+		(allowed-classes Attribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot smaller
;+		(comment "(&%smaller ?OBJ1 ?OBJ2) simply means that ?OBJ1 is smaller, with respect to all &%LengthMeasures, than ?OBJ2.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot interiorPart
;+		(comment "(&%interiorPart ?OBJ1 ?OBJ2) means\nthat ?OBJ1 is part ?OBJ2 and there is no overlap between ?OBJ1 and any &%superficialPart ?OBJ2.\n")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot superficialPart
;+		(comment "(&%superficialPart ?OBJ1 ?OBJ2)\nmeans that ?OBJ1 is a part of ?OBJ2 that has no interior parts of its own\n(or, intuitively, that only overlaps those parts of ?OBJ2 that are\nexternally connected with the mereological complement of ?OBJ2). This too\nis a transitive relation closed under &%MereologicalSumFn and\n&%MereologicalProductFn.\n")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot traverses
;+		(comment "(&%traverses ?OBJ1 ?OBJ2) means that ?OBJ1 crosses or extends across ?OBJ2.  Note that &%crosses and &%penetrates are subrelations of &%traverses.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot meetsSpatially
;+		(comment "(&%meetsSpatially ?OBJ1 ?OBJ2) means that ?OBJ1 and ?OBJ2 are &%connected but that neither ?OBJ1 nor ?OBJ2 &%overlapsSpatially the other.\n\n(connected ?OBJ1 ?OBJ2) means that ?OBJ1 &%meetsSpatially ?OBJ2 or that ?OBJ1 &%overlapsSpatially ?OBJ2.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot orientation
;+		(comment "A general &%Predicate for indicating how two &%Objects are oriented with respect to one another.  For example,\n(orientation ?OBJ1 ?OBJ2 North) means that ?OBJ1 is north of ?OBJ2, and (orientation ?OBJ1 ?OBJ2 Vertical) means that ?OBJ1 is positioned vertically with respect to ?OBJ2.\n")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot measure
;+		(comment "A very general &%Predicate for asserting that a particular &%Object is measured by a particular &%ConstantQuantity.  In general, the second argument of this &%Predicate will be an instance of the &%Function &%MeasureFn.")
		(type INSTANCE)
;+		(allowed-classes PhysicalQuantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot copy
;+		(comment "relates an &%Object to an exact copy of the &%Object, where an exact copy is indistinguishable from the original with regard to every property except (possibly) spatial and/or temporal location.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot uses
;+		(comment "(&%uses ?OBJECT AGENT) means that ?OBJECT is used by ?AGENT as an instrument in an unspecified &%Process.  This &%Predicate, as its corresponding axiom indicates, is a composition of the &%CaseRoles &%agent and &%instrument.")
		(type INSTANCE)
;+		(allowed-classes Agent)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part
;+		(comment "The basic mereological relation.  All other mereological relations are defined in terms of this one. (&%part ?PART ?WHOLE) simply means that the &%Object ?PART is part of the &%Object ?WHOLE.  Note that, since &%part is a &%ReflexiveRelation, every &%Object is a part of itself.\n")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot connected
;+		(comment "(connected ?OBJ1 ?OBJ2) means that ?OBJ1 &%meetsSpatially ?OBJ2 or that ?OBJ1 &%overlapsSpatially ?OBJ2.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot monetaryValue
;+		(comment "A &%BinaryPredicate that associates an &%Object with its value expressed as an instance of &%CurrencyMeasure.")
		(type INSTANCE)
;+		(allowed-classes CurrencyMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot faces
;+		(comment "(&%faces ?OBJ ?DIRECTION) means that the front of ?OBJ (see &%FrontFn) is positioned towards the compass direction ?DIRECTION.  More precisely, it means that if a line were extended from the center of ?DIRECTION, the line would intersect with the front of ?OBJ before it intersected with its back (see &%BackFn).")
		(type INSTANCE)
;+		(allowed-classes DirectionalAttribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot overlapsSpatially
;+		(comment "(&%overlapsSpatially ?OBJ1 ?OBJ2) means that the &%Objects ?OBJ1 and ?OBJ2 have some parts in common.  This is a reflexive and symmetric (but not transitive) relation.\n\n(connected ?OBJ1 ?OBJ2) means that ?OBJ1 &%meetsSpatially ?OBJ2 or that ?OBJ1 &%overlapsSpatially ?OBJ2.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass SelfConnectedObject "SUO 1.55: July 14, 2003\nA &%SelfConnectedObject is any \n&%Object that does not consist of two or more disconnected parts."
	(is-a Object)
	(role concrete)
	(single-slot surface
;+		(comment "(&%surface ?OBJ1 ?OBJ2) means that ?OBJ1 is a maximally connected &%superficialPart of ?OBJ2.  Note that some &%SelfConnectedObjects have more than one surface, e.g. a hollow object like a tennis ball has both an inner and an outer surface.")
		(type INSTANCE)
;+		(allowed-classes SelfConnectedObject)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot contains
;+		(comment "The relation of spatial containment for two separable objects.  When the two objects are not separable (e.g. an\nautomobile and one of its seats), the relation of &%part should be used.\n(&%contains ?OBJ1 ?OBJ2) means that the &%SelfConnectedObject ?OBJ1 has\na space (i.e. a &%Hole) which is at least partially filled by ?OBJ2.\n")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot FrontFn
;+		(comment "A &%Function that maps an &%Object to the side that generally receives the most attention or that typically faces the direction in which the &%Object moves.  Note that this is a partial function, since some &%Objects do not have sides, e.g. apples and spheres.  Note too that the &%range of this &%Function is indefinite in much the way that &%ImmediateFutureFn and &%ImmediatePastFn are indefinite.\nAlthough this indefiniteness is undesirable from a theoretical standpoint, it does not have significant practical implications, since there is widespread intersubjective agreement about the most common cases.\n")
		(type INSTANCE)
;+		(allowed-classes SelfConnectedObject)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot member
;+		(comment "A specialized common sense notion of part for uniform parts of &%Collections.  For example, each sheep in a flock of\nsheep would have the relationship of member to the flock.\n")
		(type INSTANCE)
;+		(allowed-classes Collection)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot connects
;+		(comment "The relationship between three things, when one of the three things connects the other two.  More formally, (&%connects ?OBJ1 ?OBJ2 ?OBJ3) means that (&%connected ?OBJ1 ?OBJ2) and (&%connected ?OBJ1 ?OBJ3) and not (&%connected ?OBJ2 ?OBJ3).")
		(type INSTANCE)
;+		(allowed-classes SelfConnectedObject)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot BackFn
;+		(comment "A &%Function that maps an &%Object to the side that is opposite the &%FrontFn of the &%Object.  Note that this is a partial function, since some &%Objects do not have sides, e.g. apples and spheres.  Note too that the &%range of this &%Function is indefinite in much the way that &%ImmediateFutureFn and &%ImmediatePastFn are indefinite.  Although this indefiniteness is undesirable from a theoretical standpoint, it does not have significant practical implications, since there is widespread intersubjective agreement about the most common cases.")
		(type INSTANCE)
;+		(allowed-classes SelfConnectedObject)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Substance "SUO 1.55: July 14, 2003\nNOTE: domainSubclass materaial 1 Substance -- class as domain.\nAn &%Object in which every part is similar to \nevery other in every relevant respect.  More precisely, something is a \n&%Substance when it has only arbitrary pieces as parts - any parts have \nproperties which are similar to those of the whole.  Note that a &%Substance may nonetheless have physical properties that vary.  For example, the temperature, chemical constitution, density, etc. may change from one part to another.  An example would be a body of water."
	(is-a SelfConnectedObject)
	(role concrete)
	(single-slot piece
;+		(comment "A specialized common sense notion of part for arbitrary parts of &%Substances.  Quasi-synonyms are: chunk, hunk, bit, etc.  Compare &%component, the other subrelation of &%part.\n")
		(type INSTANCE)
;+		(allowed-classes Substance)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot material
;+		(comment "(&%material ?SUBSTANCE ?OBJECT) means that ?OBJECT is structurally made up in part of ?SUBSTANCE. This relation encompasses the concepts of 'composed of', 'made of', and 'formed of'.  For example, plastic is a &%material of my computer monitor.  Compare &%part and its subrelations, viz &%component and &%piece.")
		(type INSTANCE)
;+		(allowed-classes CorpuscularObject)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass PureSubstance "SUO 1.55: July 14, 2003\nThe &%Class of &%Substances with constant \ncomposition.  A &%PureSubstance can be either an element (&%ElementalSubstance) \nor a compound of elements (&%CompoundSubstance).  Examples: Table salt \n(sodium chloride, NaCl), sugar (sucrose, C_{12}H_{22}O_{11}), water (H_2O), \niron (Fe), copper (Cu), and oxygen (O_2)."
	(is-a Substance)
	(role concrete))

(defclass ElementalSubstance "SUO 1.55: July 14, 2003\nThe &%Class of &%PureSubstances that \ncannot be separated into two or more &%Substances by ordinary chemical \n(or physical) means. This excludes nuclear reactions. &%ElementalSubstances \nare composed of only one kind of atom. Examples: Iron (Fe), copper (Cu), \nand oxygen (O_2).  &%ElementalSubstances are the simplest \n&%PureSubstances."
	(is-a PureSubstance)
	(role concrete))

(defclass Metal "SUO 1.55: July 14, 2003\nA &%Metal is an &%ElementalSubstance that conducts heat \nand electricity, is shiny and reflects many colors of light, and can be hammered \ninto sheets or drawn into wire.  About 80% of the known chemical elements \n(&%ElementalSubstances) are metals."
	(is-a ElementalSubstance)
	(role concrete))

(defclass Atom "SUO 1.55: July 14, 2003\nAn extremely small unit of matter that retains its \nidentity in Chemical reactions.  It consists of an &%AtomicNucleus and \n&%Electrons surrounding the &%AtomicNucleus."
	(is-a ElementalSubstance)
	(role concrete))

(defclass SubatomicParticle "SUO 1.55: July 14, 2003\nThe class of &%ElementalSubstances that \nare smaller than &%Atoms and compose &%Atoms."
	(is-a ElementalSubstance)
	(role concrete))

(defclass AtomicNucleus "SUO 1.55: July 14, 2003\nThe core of the &%Atom.  It is composed of \n&%Protons and &%Neutrons."
	(is-a SubatomicParticle)
	(role concrete))

(defclass Electron "SUO 1.55: July 14, 2003\n&%SubatomicParticles that surround the \n&%AtomicNucleus.  They have a negative charge."
	(is-a SubatomicParticle)
	(role concrete))

(defclass Proton "SUO 1.55: July 14, 2003\nComponents of the &%AtomicNucleus.  They have a \npositive charge."
	(is-a SubatomicParticle)
	(role concrete))

(defclass Neutron "SUO 1.55: July 14, 2003\nComponents of the &%AtomicNucleus.  They have no \ncharge."
	(is-a SubatomicParticle)
	(role concrete))

(defclass CompoundSubstance "SUO 1.55: July 14, 2003\nThe &%Class of &%Substances that contain \ntwo or more elements (&%ElementalSubstances), in definite proportion by weight. \nThe composition of a pure compound will be invariant, regardless of the method \nof preparation. Compounds are composed of more than one kind of atom (element). \nThe term molecule is often used for the smallest unit of a compound that still \nretains all of the properties of the compound.  Examples: Table salt (sodium \nchloride, NaCl), sugar (sucrose, C_{12}H_{22}O_{11}), and water (H_2O). "
	(is-a PureSubstance)
	(role concrete))

(defclass Water "SUO 1.55: July 14, 2003\nThe &%Class of samples of the compound H20.  Note\nthat this &%Class covers both pure and impure &%Water."
	(is-a CompoundSubstance)
	(role concrete))

(defclass Molecule "SUO 1.55: July 14, 2003\nA molecule is the smallest unit of matter of a\n&%CompoundSubstance that retains all the physical and chemical properties\nof that substance, e.g., Ne, H2, H2O.  A molecule is two or more &%Atoms\nlinked by a chemical bond."
	(is-a CompoundSubstance)
	(role concrete))

(defclass Mixture "SUO 1.55: July 14, 2003\nA &%Mixture is two or more &%PureSubstances, \ncombined in varying proportions - each retaining its own specific properties. \nThe components of a &%Mixture can be separated by physical means, i.e. without \nthe making and breaking of chemical bonds. Examples: Air, table salt thoroughly \ndissolved in water, milk, wood, and concrete. "
	(is-a Substance)
	(role concrete))

(defclass Solution "SUO 1.55: July 14, 2003\nA liquid mixture. The most abundant component in \na solution is called the solvent. Other components are called solutes. \nA solution, though homogeneous, may nonetheless have variable composition. \nAny amount of salt, up to a maximum limit, can be dissolved in a given \namount of water."
	(is-a Mixture)
	(role concrete))

(defclass Mineral "SUO 1.55: July 14, 2003\n Any of various naturally occurring homogeneous substances (such as stone, coal, salt, sulfur, sand, petroleum), or synthetic substances having the chemical composition and crystalline form and properties of a naturally occurring mineral."
	(is-a Mixture)
	(role concrete))

(defclass GasMixture "SUO 1.55: July 14, 2003\nAny &%Mixture that satisfies two conditions,\nviz. it is made up predominantly of things which are a &%Gas and any\ncomponent other than &%Gas in the &%Mixture is in the form of fine particles\nwhich are suspended in the &%Gas."
	(is-a Mixture)
	(role concrete))

(defclass Smoke "SUO 1.55: July 14, 2003\nA mixture of fine particles suspended in a gas that is\nproduced by &%Combustion."
	(is-a GasMixture)
	(role concrete))

(defclass Cloud "SUO 1.55: July 14, 2003\nAny &%GasMixture that is visible, e.g. clouds of &%Smoke\nproduced by a fire or clouds of water vapor in the sky."
	(is-a GasMixture)
	(role concrete))

(defclass WaterCloud "SUO 1.55: July 14, 2003\nAny &%Cloud that is composed primarily of water vapor."
	(is-a Cloud)
	(role concrete))

(defclass Air "SUO 1.55: July 14, 2003\n&%Air is the gaseous stuff that makes up the\natmosphere surrounding Earth."
	(is-a GasMixture)
	(role concrete))

(defclass BodySubstance "SUO 1.55: July 14, 2003\nExtracellular material and mixtures of\ncells and extracellular material that are produced, excreted or accreted\nby an &%Organism.  Included here are &%Substances such as saliva, dental\nenamel, sweat, and gastric acid."
	(is-a Mixture)
	(role concrete))

(defclass AnimalSubstance "SUO 1.55: July 14, 2003\n&%BodySubstances that are produced\nexclusively by &%Animals."
	(is-a BodySubstance)
	(role concrete))

(defclass PlantSubstance "SUO 1.55: July 14, 2003\n&%BodySubstances that are produced\nexclusively by &%Plants."
	(is-a BodySubstance)
	(role concrete))

(defclass Blood "SUO 1.55: July 14, 2003\nA fluid present in &%Animals that transports\n&%Nutrients to and waste products away from various &%BodyParts."
	(is-a BodySubstance)
	(role concrete))

(defclass Tissue "SUO 1.55: July 14, 2003\nAn aggregation of similarly specialized &%Cells\nand the associated intercellular substance. &%Tissues are relatively\nnon-localized in comparison to &%BodyParts, &%Organs or &%Organ components.\nThe main features of &%Tissues are self-connectivity (see\n&%SelfConnectedObject) and being a homogeneous mass (all parts in the\nsame granularity are instances of &%Tissue as well)."
	(is-a BodySubstance)
	(role concrete))

(defclass Bone "SUO 1.55: July 14, 2003\nRigid &%Tissue composed largely of calcium that makes up\nthe skeleton of &%Vertebrates.  Note that this &%Class also includes teeth."
	(is-a Tissue)
	(role concrete))

(defclass Muscle "SUO 1.55: July 14, 2003\nNonrigid &%Tissue appearing only in &%Animals and\ncomposed largely of contractile cells."
	(is-a Tissue)
	(role concrete))

(defclass FatTissue "SUO 1.55: July 14, 2003\nNonrigid &%Tissue that is composed largely of\nfat cells."
	(is-a Tissue)
	(role concrete))

(defclass BiologicallyActiveSubstance "SUO 1.55: July 14, 2003\nA &%Substance that is\ncapable of inducing a change in the structure or functioning of an\n&%Organism.  This &%Class includes &%Substances used in the treatment,\ndiagnosis, prevention or analysis of normal and abnormal body function.\nThis &%Class also includes &%Substances that occur naturally in the body\nand are administered therapeutically.  Finally, &%BiologicallyActiveSubstance\nincludes &%Nutrients, most drugs of abuse, and agents that require special\nhandling because of their toxicity."
	(is-a Substance)
	(role concrete))

(defclass Nutrient "SUO 1.55: July 14, 2003\nA &%BiologicallyActiveSubstance required by an &%Organism.\nIt is generally ingested as &%Food, and it is of primary interest because of its role\nin the biologic functioning of the &%Organism."
	(is-a BiologicallyActiveSubstance)
	(role concrete))

(defclass Protein "SUO 1.55: July 14, 2003\nA &%Nutrient made up of amino acids joined by\npeptide bonds."
	(is-a Nutrient)
	(role concrete))

(defclass Enzyme "SUO 1.55: July 14, 2003\nA complex &%Protein that is produced by living\ncells and which catalyzes specific biochemical reactions. There are six\nmain types of enzymes:  oxidoreductases, transferases, hydrolases,\nlyases, isomerases, and ligases."
	(is-a Protein)
	(role concrete))

(defclass Carbohydrate "SUO 1.55: July 14, 2003\nAn element of living cells and a source of\nenergy for &%Animals.  This class includes both simple &%Carbohydrates,\ni.e. sugars, and complex &%Carbohydrates, i.e. starches."
	(is-a Nutrient)
	(role concrete))

(defclass Vitamin "SUO 1.55: July 14, 2003\nA &%Nutrient present in natural products or made\nsynthetically, which is essential in the diet of &%Humans and other higher\n&%Animals.  Included here are &%Vitamin precursors and provitamins."
	(is-a Nutrient)
	(role concrete))

(defclass Hormone "SUO 1.55: July 14, 2003\nIn &%Animals, a chemical secreted by an\nendocrine gland whose products are released into the circulating fluid.\n&%Plant hormones or synthetic hormones which are used only to alter or\ncontrol various physiologic processes, e.g., reproductive control agents,\nare assigned to the &%Class &%BiologicallyActiveSubstance. &%Hormones act as\nchemical messengers and regulate various physiologic processes such as\ngrowth, reproduction, metabolism, etc.  They usually fall into two broad\ncategories, viz. steroid hormones and peptide hormones."
	(is-a BodySubstance BiologicallyActiveSubstance)
	(role concrete))

(defclass CorpuscularObject "SUO 1.55: July 14, 2003\nA &%SelfConnectedObject whose parts have\nproperties that are not shared by the whole."
	(is-a SelfConnectedObject)
	(role concrete)
	(single-slot component
;+		(comment "A specialized common sense notion of part\nfor heterogeneous parts of complexes. (&%component ?COMPONENT ?WHOLE)\nmeans that ?COMPONENT is a component of ?WHOLE. Examples of component\ninclude the doors and walls of a house, the states or provinces of a\ncountry, or the limbs and organs of an animal.  Compare &%piece, which\nis also a subrelation of &%part.\n")
		(type INSTANCE)
;+		(allowed-classes CorpuscularObject)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass ContentBearingObject "SUO 1.55: July 14, 2003\nAny &%SelfConnectedObject that expresses \ninformation."
	(is-a CorpuscularObject)
	(role concrete)
	(single-slot subsumesContentInstance
;+		(comment "A &%BinaryPredicate relating two instances of &%ContentBearingObject.  (&%subsumesContentInstance ?OBJ1 ?OBJ2) means that the content expressed by ?OBJ2 is part of the content expressed by ?OBJ1.  An example is the relationship between a handwritten poem and one of its stanzas.  Note that this is a relation between instances, rather than &%Classes.  If one wants to assert a content relationship between &%Classes, e.g. between the version of an intellectual work and a part of that work, the relation &%subsumesContentClass should be used.")
		(type INSTANCE)
;+		(allowed-classes ContentBearingObject)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot containsInformation
;+		(comment "A subrelation of &%represents.  This predicate relates a &%ContentBearingObject to the &%Proposition that is expressed by the &%ContentBearingObject. Examples include the relationships between a physical novel and its story and between a printed score and its musical content.")
		(type INSTANCE)
;+		(allowed-classes Proposition)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot equivalentContentInstance
;+		(comment "A &%BinaryPredicate relating two\ninstances of &%ContentBearingObject.  (&%equivalentContentInstance\n?OBJ1 ?OBJ2) means that the content expressed by ?OBJ1 is identical to the content expressed by ?OBJ2.  An example would be the relationship between a handwritten draft of a letter to one's lawyer and a typed copy of the same letter.  Note that (&%equivalentContentInstance ?OBJ1 ?OBJ2) implies (&%subsumesContentInstance ?OBJ1 ?OBJ2) and\n(&%subsumesContentInstance ?OBJ2 ?OBJ2).\n")
		(type INSTANCE)
;+		(allowed-classes ContentBearingObject)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot EditionFn
;+		(comment "A &%BinaryFunction that maps a type of text (e.g. Agatha Christie's Murder_on_the_Orient_Express) and a number to the edition of the text type corresponding to the number.")
		(type INSTANCE)
;+		(allowed-classes PositiveInteger)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot subsumesContentClass
;+		(comment "NOTE: Domain1 is a class\nA &%BinaryPredicate that relates two subclasses of &%ContentBearingObject.  (&%subsumesContentClass ?CLASS1 ?CLASS2) means that the content expressed by each instance of ?CLASS2 is\nalso expressed by each instance of ?CLASS1.  Examples include the\nrelationship between a poem and one of its stanzas or between a book and\none of its chapters.  Note that this is a relation between subclasses of &%ContentBearingObject, rather than instances.  If one wants to relate instances, the &%Predicate &%subsumesContentInstance can be used.  Note that &%subsumesContentClass is needed in many cases.  Consider, for example, the relation between the King James edition of the Bible and its Book of Genesis.  This relation holds for every copy of this edition and not just for a single instance.\n")
		(type SYMBOL)
;+		(allowed-parents ContentBearingObject)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass SymbolicString "SUO 1.55: July 14, 2003\nThe &%Class of alphanumeric sequences."
	(is-a ContentBearingObject)
	(role concrete)
	(single-slot KappaFn
;+		(comment "A class-forming operator that takes two arguments:  a variable and a formula containing at least one unbound occurrence of the variable.  The result of applying &%KappaFn to a variable and a formula is the &%SetOrClass of things that satisfy the formula.  For example, we can denote the &%SetOrClass of prime numbers that are less than 100 with the following expression:  (KappaFn ?NUMBER (and (instance ?NUMBER PrimeNumber) (lessThan ?NUMBER 100))).  Note that the use of this function is discouraged, since there is currently no axiomatic support for it.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot relatedExternalConcept
;+		(comment "Used to signify a three-place relation between a concept in an external knowledge source, a concept in the SUMO, and the name of the other knowledge source.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot names
;+		(comment "(&%names ?STRING ?ENTITY) means that the thing ?ENTITY\nhas the &%SymbolicString ?STRING as its name.  Note that &%names and &%represents are the two immediate &%subrelations of &%refers.  The predicate &%names is used when the referring item is merely a tag without connotative content, while the predicate &%represents is used for referring items that have such content.\n\n(&%refers ?OBJ1 ?OBJ2) means that ?OBJ1 mentions or includes a reference to ?OBJ2. Note that &%refers is more general in meaning than &%represents, because presumably something can represent something else only if it refers to this other thing.  For example, an article whose topic is a recent change in the price of oil may refer to many other things, e.g. the general state of the economy, the weather in California, the prospect of global warming, the options for alternative energy sources, the stock prices of various oil companies, etc.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Character "SUO 1.55: July 14, 2003\nAn element of an alphabet, a set of numerals, etc.\nNote that a &%Character may or may not be part of a &%Language.  &%Character\nis a subclass of &%SymbolicString, because every instance of &%Character is\nan alphanumeric sequence consisting of a single element."
	(is-a SymbolicString)
	(role concrete))

(defclass Icon "SUO 1.55: July 14, 2003\nThis is the subclass of &%ContentBearingObjects\nwhich are not part of a &%Language and which have some sort of similarity\nwith the &%Objects that they represent.  This &%Class would include symbolic\nroadway signs, representational art works, photographs, etc."
	(is-a ContentBearingObject)
	(role concrete))

(defclass LinguisticExpression "SUO 1.55: July 14, 2003\nThis is the subclass of \n&%ContentBearingObjects which are language-related.  Note that this &%Class \nencompasses both &%Language and the the elements of &%Languages, \ne.g. &%Words."
	(is-a ContentBearingObject)
	(role concrete)
	(single-slot expressedInLanguage
;+		(comment "(&%expressedInLanguage ?EXPRESS ?LANG) means that ?EXPRESS is expressed in &%Language ?LANG.")
		(type INSTANCE)
;+		(allowed-classes Language)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot representsInLanguage
;+		(comment "A very general predicate.  (&%representsInLanguage ?THING ?ENTITY ?LANGUAGE) means that the &%instance of &%Physical ?THING stands for ?ENTITY in the language ?LANGUAGE.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Language "SUO 1.55: July 14, 2003\nA system of signs for expressing thought.  The\nsystem can be either natural or artificial, i.e. something that emerges\ngradually as a cultural artifact or something that is intentionally created\nby a person or group of people."
	(is-a LinguisticExpression)
	(role concrete))

(defclass AnimalLanguage "SUO 1.55: July 14, 2003\nThe &%subclass of &%Languages used by\n&%Animals other than &%Humans."
	(is-a Language)
	(role concrete))

(defclass ArtificialLanguage "SUO 1.55: July 14, 2003\nThe &%subclass of &%Languages that are\ndesigned by &%Humans."
	(is-a Language)
	(role concrete))

(defclass ComputerLanguage "SUO 1.55: July 14, 2003\nThe class of &%Languages designed for\nand interpreted by a computer."
	(is-a ArtificialLanguage)
	(role concrete))

(defclass HumanLanguage "SUO 1.55: July 14, 2003\nThe &%subclass of &%Languages used by\n&%Humans."
	(is-a Language)
	(role concrete))

(defclass ConstructedLanguage "SUO 1.55: July 14, 2003\nAn &%ConstructedLanguage is a\n&%HumanLanguage that did not evolve spontaneously within a language\ncommunity, but rather had its core grammar and vocabulary invented by\none or more language experts, often with an aim to produce a more\ngrammatically regular language than any language that has evolved\nnaturally.  This &%Class includes languages like Esperanto that were\ncreated to facilitate international communication"
	(is-a HumanLanguage ArtificialLanguage)
	(role concrete))

(defclass NaturalLanguage "SUO 1.55: July 14, 2003\nThe &%subclass of &%HumanLanguages which\nare not designed and which evolve from generation to generation.  This\n&%Class includes all of the national languages, e.g. English, Spanish,\nJapanese, etc.  Note that this class includes dialects of natural\nlanguages."
	(is-a HumanLanguage)
	(role concrete))

(defclass ManualHumanLanguage "SUO 1.55: July 14, 2003\nA &%ManualHumanLanguage is a\n&%HumanLanguage which has as its medium gestures and movement, such\nas the shape, position, and movement of the hands."
	(is-a HumanLanguage)
	(role concrete))

(defclass SpokenHumanLanguage "SUO 1.55: July 14, 2003\nA &%SpokenHumanLanguage is a\n&%HumanLanguage which has as its medium the human voice. It can also\nberepresented visually through writing, although not all\n&%SpokenHumanLanguages have a codified written form."
	(is-a HumanLanguage)
	(role concrete))

(defclass Word "SUO 1.55: July 14, 2003\nA term of a &%Language that represents a concept."
	(is-a LinguisticExpression)
	(role concrete))

(defclass Noun "SUO 1.55: July 14, 2003\nOne of the parts of speech.  The &%Class of &%Words\nthat conventionally denote &%Objects."
	(is-a Word)
	(role concrete))

(defclass Verb "SUO 1.55: July 14, 2003\nOne of the parts of speech.  The &%Class of &%Words\nthat conventionally denote &%Processes."
	(is-a Word)
	(role concrete))

(defclass Adjective "SUO 1.55: July 14, 2003\nOne of the parts of speech.  The &%Class of\n&%Words that conventionally denote &%Attributes of &%Objects."
	(is-a Word)
	(role concrete))

(defclass Adverb "SUO 1.55: July 14, 2003\nOne of the parts of speech.  The &%Class of &%Words\nthat conventionally denote &%Attributes of &%Processes."
	(is-a Word)
	(role concrete))

(defclass Particle "SUO 1.55: July 14, 2003\nAn umbrella &%Class for any &%Word that does not\nfit into the other subclasses of &%Word.  A &%Particle is generally a small\nterm that serves a grammatical or logical function, e.g. 'and', 'of',\n'since', etc.  At some point, this class might be broken up into the\nsubclasses 'Connective', 'Preposition', etc.  Note that the class &%Particle\nincludes both personal and possessive pronouns, e.g. 'she', 'hers', 'it', 'its',\netc."
	(is-a Word)
	(role concrete))

(defclass Morpheme "SUO 1.55: July 14, 2003\nPart of a &%Word which cannot be subdivided\nand which expresses a meaning."
	(is-a LinguisticExpression)
	(role concrete))

(defclass Phrase "SUO 1.55: July 14, 2003\nA set of &%Words in a &%Language which form a unit,\ni.e. express a meaning in the &%Language."
	(is-a LinguisticExpression)
	(role concrete))

(defclass VerbPhrase "SUO 1.55: July 14, 2003\nA &%Phrase that has the same function as a\n&%Verb."
	(is-a Phrase)
	(role concrete))

(defclass NounPhrase "SUO 1.55: July 14, 2003\nA &%Phrase that has the same function as a\n&%Noun."
	(is-a Phrase)
	(role concrete))

(defclass PrepositionalPhrase "SUO 1.55: July 14, 2003\nA &%Phrase that begins with a\npreposition and that functions as an &%Adjective or an &%Adverb."
	(is-a Phrase)
	(role concrete))

(defclass Sentence "SUO 1.55: July 14, 2003\nA syntactically well-formed formula of a\n&%Language.  It includes, at minimum, a predicate and a subject (which\nmay be explicit or implicit), and it expresses a &%Proposition."
	(is-a LinguisticExpression)
	(role concrete))

(defclass Formula "SUO 1.55: July 14, 2003\nA syntactically well-formed formula in the \nSUO-KIF knowledge representation language."
	(is-a Sentence)
	(role concrete)
	(single-slot not
;+		(comment "The truth-functional connective of negation.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot confersRight
;+		(comment "Expresses the relationship between a &%Formula, an &%Entity, and a &%CognitiveAgent when the &%Entity authorizes the &%CognitiveAgent to bring it about that the &%Formula is true.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot entails
;+		(comment "The operator of logical entailment.  (&%entails ?FORMULA1 ?FORMULA2) means that ?FORMULA2 can be derived from ?FORMULA1 by means of the proof theory of SUO-KIF.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot or
;+		(comment "The truth-functional connective of disjunction.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot increasesLikelihood
;+		(comment "One of the basic &%ProbabilityRelations.  (&%increasesLikelihood ?FORMULA1 ?FORMULA2) means that ?FORMULA2 is more likely to be true if ?FORMULA1 is true.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot modalAttribute
;+		(comment "A &%BinaryRelation that is used to state the normative force of a &%Proposition.  (&%modalAttribute ?FORMULA ?PROP) means that the &%Proposition expressed by ?FORMULA has the &%NormativeAttribute ?PROP.  For example, (&%modalAttribute (&%exists (?ACT ?OBJ) (&%and (&%instance ?ACT &%Giving) (&%agent ?ACT John) (&%patient ?ACT ?OBJ) (&%destination ?ACT Tom))) &%Obligation) means that John is obligated to give Tom something.")
		(type INSTANCE)
;+		(allowed-classes NormativeAttribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot confersObligation
;+		(comment "Expresses the relationship between a a &%Formula, an &%Entity, and a &%CognitiveAgent when the &%Entity obligates the &%CognitiveAgent to bring it about that the &%Formula is true.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot %3D%3E
;+		(comment "The truth-functional connective of implication.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot independentProbability
;+		(comment "One of the basic &%ProbabilityRelations.  (&%independentProbability ?FORMULA1 ?FORMULA2) means that the probabilities of ?FORMULA1 and ?FORMULA2 being true are independent.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot conditionalProbability
;+		(comment "One of the basic &%ProbabilityRelations.  &%conditionalProbability is used to state the numeric value of a conditional probability.  (&%conditionalProbability ?FORMULA1 ?FORMULA2 ?NUMBER) means that the probability of ?FORMULA2 being true given that ?FORMULA1 is true is ?NUMBER.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot holdsRight
;+		(comment "Expresses a relationship between a &%Formula and a &%CognitiveAgent whereby the &%CognitiveAgent has the right to bring it about that the &%Formula is true.")
		(type INSTANCE)
;+		(allowed-classes CognitiveAgent)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot holdsObligation
;+		(comment "Expresses a relationship between a &%Formula and a &%CognitiveAgent whereby the &%CognitiveAgent has the obligation to bring it about that the &%Formula is true.")
		(type INSTANCE)
;+		(allowed-classes CognitiveAgent)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot %3C%3D%3E
;+		(comment "The truth-functional connective of bi-implication.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ProbabilityFn
;+		(comment "One of the basic &%ProbabilityRelations, &%ProbabilityFn is used to state the a priori probability of a state of affairs.  (&%ProbabilityFn ?FORMULA) denotes the a priori probability of ?FORMULA.\n")
		(type INSTANCE)
;+		(allowed-classes RealNumber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot and
;+		(comment "The truth-functional connective of conjunction.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot decreasesLikelihood
;+		(comment "One of the basic &%ProbabilityRelations.  (&%decreasesLikelihood ?FORMULA1 ?FORMULA2) means that ?FORMULA2 is less likely to be true if ?FORMULA1 is true.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass PictorialObject "A PictorialObject is a physical object that contains pictorial or graphical information.  It is the physical representation of an AbstractGraphicalObject, and may take any number of forms, as in an electronic or magnetic file, a hologram, a flat image, a flickering image on a televeision screen."
	(is-a ContentBearingObject)
	(role concrete)
	(single-slot containsInformation
;+		(comment "A subrelation of &%represents.  This predicate relates a &%ContentBearingObject to the &%Proposition that is expressed by the &%ContentBearingObject. Examples include the relationships between a physical novel and its story and between a printed score and its musical content.")
		(type INSTANCE)
;+		(allowed-classes AbstractGraphicalObject)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass OrganicObject "SUO 1.55: July 14, 2003\nThis class encompasses &%Organisms,\n&%CorpuscularObjects that are parts of &%Organisms, i.e. &%BodyParts,\nand &%CorpuscularObjects that are nonintentionally produced by\n&%Organisms, e.g. &%ReproductiveBodies."
	(is-a CorpuscularObject)
	(role concrete))

(defclass AnatomicalStructure "SUO 1.55: July 14, 2003\nA normal or pathological part\nof the anatomy or structural organization of an &%Organism.  This\nclass covers &%BodyParts, as well as structures that are given off\nby &%Organisms, e.g. &%ReproductiveBodies."
	(is-a OrganicObject)
	(role concrete))

(defclass AbnormalAnatomicalStructure "SUO 1.55: July 14, 2003\nAny &%AnatomicalStructure which\nis not normally found in the &%Organism of which it is a part, i.e. it is\nthe result of a &%PathologicProcess.  This class covers tumors, birth marks,\ngoiters, etc."
	(is-a AnatomicalStructure)
	(role concrete))

(defclass BodyPart "SUO 1.55: July 14, 2003\nA collection of &%Cells and &%Tissues which\nare localized to a specific area of an &%Organism and which are not\npathological. The instances of this &%Class range from gross structures\nto small components of complex &%Organs."
	(is-a AnatomicalStructure)
	(role concrete))

(defclass ReproductiveBody "SUO 1.55: July 14, 2003\nReproductive structure of &%Organisms.\nConsists of an &%Embryonic &%Object and a nutritive/protective envelope.\nNote that this class includes seeds, spores, and &%FruitOrVegetables, as\nwell as the eggs produced by &%Animals."
	(is-a BodyPart)
	(role concrete))

(defclass BodyCovering "SUO 1.55: July 14, 2003\nAny &%BodyPart which is a covering of another\n&%BodyPart or of an entire &%Organism.  This would include the rinds of\n&%FruitOrVegetables and the skins of &%Animals."
	(is-a BodyPart)
	(role concrete))

(defclass BodyJunction "SUO 1.55: July 14, 2003\nThe place where two &%BodyParts\nmeet or connect."
	(is-a BodyPart)
	(role concrete))

(defclass BodyVessel "SUO 1.55: July 14, 2003\nAny tube-like structure which occurs naturally in\nan &%Organism and through which a &%BodySubstance can circulate."
	(is-a BodyPart)
	(role concrete))

(defclass Cell "SUO 1.55: July 14, 2003\nThe fundamental structural and functional unit of\nliving &%Organisms."
	(is-a BodyPart)
	(role concrete))

(defclass Organ "SUO 1.55: July 14, 2003\nA somewhat independent &%BodyPart that performs a\nspecialized function.  Note that this functional definition covers bodily\nsystems, e.g. the digestive system or the central nervous system."
	(is-a BodyPart)
	(role concrete))

(defclass Gland "SUO 1.55: July 14, 2003\nAn &%Organ that removes &%Substances from the &%Blood,\nalters them in some way, and then releases them."
	(is-a Organ)
	(role concrete))

(defclass AnimalAnatomicalStructure "SUO 1.55: July 14, 2003\n&%AnatomicalStructures that\nare possessed exclusively by &%Animals."
	(is-a AnatomicalStructure)
	(role concrete))

(defclass Egg "SUO 1.55: July 14, 2003\nThe fertilized or unfertilized female &%ReproductiveBody\nof an &%Animal.  This includes &%Bird and &%Reptile eggs, as well as mammalian\nova."
	(is-a ReproductiveBody AnimalAnatomicalStructure)
	(role concrete))

(defclass PlantAnatomicalStructure "SUO 1.55: July 14, 2003\n&%AnatomicalStructures that\nare possessed exclusively by &%Plants."
	(is-a AnatomicalStructure)
	(role concrete))

(defclass Seed "SUO 1.55: July 14, 2003\nThe fertilized or unfertilized female &%ReproductiveBody\nof a &%FloweringPlant."
	(is-a ReproductiveBody PlantAnatomicalStructure)
	(role concrete))

(defclass Pollen "SUO 1.55: July 14, 2003\nA powder produced by &%FloweringPlants that contains male\ngametes and is capable of fertilizing the seeds of &%FloweringPlants of the same\nspecies."
	(is-a ReproductiveBody PlantAnatomicalStructure)
	(role concrete))

(defclass FruitOrVegetable "SUO 1.55: July 14, 2003\nAny fruit or vegetable, i.e. a\nripened &%ReproductiveBody of a &%Plant.  Note that &%FruitOrVegetable\nis not a subclass of &%Food, because some fruits, e.g. poisonous\nberries, are not edible."
	(is-a PlantAnatomicalStructure ReproductiveBody)
	(role concrete))

(defclass Spore "SUO 1.55: July 14, 2003\nAny &%ReproductiveBody of a &%NonFloweringPlant."
	(is-a ReproductiveBody PlantAnatomicalStructure)
	(role concrete))

(defclass Artifact "SUO 1.55: July 14, 2003\nA &%CorpuscularObject that is the product of a\n&%Making."
	(is-a CorpuscularObject)
	(role concrete))

(defclass Text "SUO 1.55: July 14, 2003\nA &%LinguisticExpression or set of\n&%LinguisticExpressions that perform a specific function related\nto &%Communication, e.g. express a discourse about a particular\ntopic, and that are inscribed in a &%CorpuscularObject by &%Humans."
	(is-a LinguisticExpression Artifact)
	(role concrete))

(defclass MotionPicture "SUO 1.55: July 14, 2003\nA &%ContentBearingObject which depicts motion\n(and which may have an audio or text component as well).  This &%Class covers\nfilms, videos, etc."
	(is-a Text)
	(role concrete))

(defclass FactualText "SUO 1.55: July 14, 2003\nThe class of &%Texts that purport to\nreveal facts about the world.  Such texts are often known as information\nor as non-fiction.  Note that something can be an instance of\n&%FactualText, even if it is wholly inaccurate.  Whether something\nis a &%FactualText is determined by the beliefs of the agent creating\nthe text."
	(is-a Text)
	(role concrete))

(defclass FictionalText "SUO 1.55: July 14, 2003\nThe class of &%Texts that purport to\nbe largely a product of the author's imagination, i.e. the author\ndoes not believe that most of the content conveyed by the text is\nan accurate depiction of the real world.  Note that something can\nbe an instance of &%FictionalText, even if it is completely true.\nWhether something is a &%FictionalText is determined by the beliefs\nof the agent creating the text."
	(is-a Text)
	(role concrete))

(defclass Book "SUO 1.55: July 14, 2003\nA &%Text that has pages and is bound."
	(is-a Text)
	(role concrete))

(defclass Summary "SUO 1.55: July 14, 2003\nA short &%Text that is a summary of another,\nlonger &%Text."
	(is-a Text)
	(role concrete))

(defclass Series "SUO 1.55: July 14, 2003\nA &%Text consisting of multiple self-contained units.  \nSome examples are an encyclopedia containing a couple dozen volumes, a television \nseries made up of many episodes, a film serial, etc."
	(is-a Text)
	(role concrete)
	(single-slot SeriesVolumeFn
;+		(comment "A &%BinaryFunction that maps a type of &%Series (e.g. the Encyclopedia_Britannica or the Popular_Mechanics periodical) and a number to the volumes of the text type designated by the number.")
		(type INSTANCE)
;+		(allowed-classes PositiveInteger)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Periodical "SUO 1.55: July 14, 2003\nA &%Series whose elements are published separately \nand on a periodic basis."
	(is-a Series)
	(role concrete)
	(single-slot PeriodicalIssueFn
;+		(comment "A &%BinaryFunction that maps a subclass of &%Periodical and a number to all of the issues of the &%Periodical corresponding to the number.")
		(type INSTANCE)
;+		(allowed-classes PositiveInteger)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Article "SUO 1.55: July 14, 2003\nA relatively short &%Text that either is unbound or is\nbound with other &%Articles in a &%Book."
	(is-a Text)
	(role concrete))

(defclass Certificate "SUO 1.55: July 14, 2003\nA &%Text that confers a right or obligation\non the holder of the &%Certificate.  Note that the right or obligation\nneed not be a legal one, as in the case of an academic diploma that grants\ncertain privileges in the professional world."
	(is-a Text)
	(role concrete))

(defclass FinancialInstrument "SUO 1.55: July 14, 2003\nA document having monetary value\nor recording a monetary transaction"
	(is-a Certificate)
	(role concrete))

(defclass Currency "SUO 1.55: July 14, 2003\nAny element of the official currrency of some\n&%Nation.  This covers both &%CurrencyBills and &%CurrencyCoins."
	(is-a FinancialInstrument)
	(role concrete))

(defclass CurrencyBill "SUO 1.55: July 14, 2003\nAny instance of &%Currency that is made\nof paper."
	(is-a Currency)
	(role concrete))

(defclass CurrencyCoin "SUO 1.55: July 14, 2003\nAny instance of &%Currency that is made\nof &%Metal."
	(is-a Currency)
	(role concrete))

(defclass Patent "SUO 1.55: July 14, 2003\nA &%Certificate that expresses the content of an\ninvention that has been accorded legal protection by a governemental\nentity."
	(is-a Certificate)
	(role concrete))

(defclass Product "SUO 1.55: July 14, 2003\nAn &%Artifact that is produced by &%Manufacture and\nthat is intended to be sold."
	(is-a Artifact)
	(role concrete))

(defclass StationaryArtifact "SUO 1.55: July 14, 2003\nA &%StationaryArtifact is an &%Artifact\nthat has a fixed spatial location.  Most instances of this &%Class are\narchitectural works, e.g. the Eiffel Tower, the Great Pyramids, office towers,\nsingle-family houses, etc."
	(is-a Artifact)
	(role concrete))

(defclass Building "SUO 1.55: July 14, 2003\nThe Class of &%StationaryArtifacts which are\nintended to house &%Humans and their activities."
	(is-a StationaryArtifact)
	(role concrete))

(defclass House
	(is-a Building)
	(role concrete))

(defclass Room "SUO 1.55: July 14, 2003\nA &%properPart of a &%Building which is separated from\nthe exterior of the &%Building and/or other &%Rooms of the &%Building by walls.\nSome &%Rooms may have a specific purpose, e.g. sleeping, bathing, cooking,\nentertainment, etc."
	(is-a StationaryArtifact)
	(role concrete))

(defclass Residence "SUO 1.55: July 14, 2003\nA &%Building or part of a &%Building which provides\nsome accomodation for sleeping."
	(is-a StationaryArtifact)
	(role concrete))

(defclass PermanentResidence "SUO 1.55: July 14, 2003\nA &%Residence where people live, i.e.\nwhere people have a &%home."
	(is-a Residence)
	(role concrete))

(defclass SingleFamilyResidence "SUO 1.55: July 14, 2003\nA &%PermanentResidence which is\nintended to be the &%home of a single &%SocialUnit.  This class covers\n&%Houses, &%ApartmentUnits, and &%CondominiumUnits."
	(is-a PermanentResidence)
	(role concrete))

(defclass TemporaryResidence "SUO 1.55: July 14, 2003\nA &%Residence which is strictly temporary,\ni.e. where no one makes his/her &%home."
	(is-a Residence)
	(role concrete))

(defclass ResidentialBuilding "SUO 1.55: July 14, 2003\nA &%Building which provides some\naccomodation for sleeping.  Note that this class does not cover just\npermanent residences, e.g. &%Houses and condominium and apartment buildings,\nbut also temporary residences, e.g. hotels and dormitories.\n&%ResidentialBuildings are also distinguished from &%CommercialBuildings,\nwhich are intended to serve an organizational rather than a residential\nfunction."
	(is-a Building Residence)
	(role concrete))

(defclass ArtWork "SUO 1.55: July 14, 2003\n&%Artifacts that are created primarily for\naesthetic appreciation.  Note that this &%Class does not include\nmost examples of architecture, which belong under &%StationaryArtifact."
	(is-a Artifact)
	(role concrete))

(defclass RepresentationalArtWork "SUO 1.55: July 14, 2003\nAny &%ArtWork that represents\nsomething &%Physical."
	(is-a ArtWork Icon)
	(role concrete))

(defclass Fabric "SUO 1.55: July 14, 2003\n&%Artifacts that are created by weaving together\nnatural or synthetic fibers or by treating the skins of certain sorts of\n&%Animals.  Note that this &%Class includes articles that are created by\nstitching together various types of fabrics, e.g. bedspreads.  On the other\nhand, &%Clothing is not a &%subclass of &%Fabric, because many clothing items\ncontain elements that are not fabrics."
	(is-a Artifact)
	(role concrete))

(defclass Clothing "SUO 1.55: July 14, 2003\n&%Artifact made out of fabrics and possibly other\nmaterials that are used to cover the bodies of &%Humans."
	(is-a Artifact)
	(role concrete))

(defclass Device "SUO 1.55: July 14, 2003\nA &%Device is an &%Artifact whose purpose is to\nserve as an &%instrument in a specific subclass of &%Process."
	(is-a Artifact)
	(role concrete))

(defclass MusicalInstrument "SUO 1.55: July 14, 2003\nA &%Device which is manipulated by a &%Human\nand whose purpose is to produce &%Music."
	(is-a Device)
	(role concrete))

(defclass TransportationDevice "SUO 1.55: July 14, 2003\nA &%TransportationDevice is a &%Device\nwhich serves as the &%instrument in a &%Transportation &%Process which carries\nthe &%patient of the &%Process from one point to another."
	(is-a Device)
	(role concrete))

(defclass Vehicle "SUO 1.55: July 14, 2003\n&%Vehicle is the subclass of\n&%TransportationDevices that transport passengers or goods\nfrom one place to another by moving from one place to the other\nwith them, e.g., cars, trucks, ferries, and airplanes.  Contrast\nwith devices such as pipelines, escalators, or supermarket\ncheckout belts, which carry items from one place to another by means\nof a moving part, without the device removing from the origin to\nthe destination."
	(is-a TransportationDevice)
	(role concrete))

(defclass MeasuringDevice "SUO 1.55: July 14, 2003\nAny &%Device whose purpose is to measure a\n&%PhysicalQuantity."
	(is-a Device)
	(role concrete))

(defclass AttachingDevice "SUO 1.55: July 14, 2003\nA &%Device whose purpose is to attach one thing\nto something else, e.g. nails, screws, buttons, etc."
	(is-a Device)
	(role concrete))

(defclass Weapon "SUO 1.55: July 14, 2003\nThe &%Class of &%Devices that are designed\nprimarily to damage or destroy &%Humans/&%Animals, &%StationaryArtifacts or\nthe places inhabited by &%Humans/&%Animals."
	(is-a Device)
	(role concrete))

(defclass Machine "SUO 1.55: July 14, 2003\n&%Machines are &%Devices that that have a\nwell-defined &%resource and &%result and that automatically convert\nthe &%resource into the &%result."
	(is-a Device)
	(role concrete))

(defclass EngineeringComponent "SUO 1.55: July 14, 2003\nA fundamental concept that applies \nin many engineering domains.  An &%EngineeringComponent is an element of \na &%Device that is a physically whole object, such as one might \nsee listed as standard parts in a catalog.  The main difference betweeen \n&%EngineeringComponents and arbitrary globs of matter is that \n&%EngineeringComponents are object-like in a modeling sense.  Thus, an \n&%EngineeringComponent is not an arbtrary subregion, but a part of a \nsystem with a stable identity."
	(is-a Device)
	(role concrete)
	(single-slot connectedEngineeringComponents
;+		(comment "This is the most general connection relation between &%EngineeringComponents.  If (&%connectedEngineeringComponents ?COMP1 ?COMP2), then neither ?COMP1 nor ?COMP2 can be an &%engineeringSubcomponent of the other.  The relation &%connectedEngineeringComponents is a &%SymmetricRelation; there is no information in the direction of connection between two components.  It is also an &%IrreflexiveRelation; no &%EngineeringComponent bears this relation to itself.  Note that this relation does not associate a name or type with the connection.")
		(type INSTANCE)
;+		(allowed-classes EngineeringComponent)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass EngineeringConnection "SUO 1.55: July 14, 2003\nAn &%EngineeringConnection is an\n&%EngineeringComponent that represents a connection relationship between\ntwo other &%EngineeringComponents.  It is a reification of the\n&%Predicate &%connectedEngineeringComponents.  That means that whenever\nthis &%Predicate holds between two &%EngineeringComponents, there exists an\n&%EngineeringConnection.  The practical reason for reifying a relationship\nis to be able to attach other information about it. For example, one\nmight want to say that a particular connection is associated with some\nshared parameters, or that it is of a particular type.\n&%EngineeringConnections are &%EngineeringComponents and can therefore be\nan &%engineeringSubcomponent of other &%EngineeringComponents.  However,\nto provide for modular regularity in component systems,\n&%EngineeringConnections cannot be connected.  For each pair of\n&%EngineeringComponents related by &%connectedEngineeringComponents, there\nexists at least one &%EngineeringConnection.  However, that object may not\nbe unique, and the same &%EngineeringConnection may be associated with\nseveral pairs of &%EngineeringComponents."
	(is-a EngineeringComponent)
	(role concrete)
	(single-slot connectsEngineeringComponents
;+		(comment "&%connectsEngineeringComponents is a &%TernaryPredicate that maps from an &%EngineeringConnection to the\n&%EngineeringComponents it connects.  Since &%EngineeringComponents cannot\nbe connected to themselves and there cannot be an &%EngineeringConnection\nwithout a &%connectedEngineeringComponents &%Predicate, the second and third arguments of any &%connectsEngineeringComponents relationship will always be\ndistinct for any given first argument.\n\nThe relationship between three things, when one of the three things connects the other two.  More formally, (&%connects ?OBJ1 ?OBJ2 ?OBJ3) means that (&%connected ?OBJ1 ?OBJ2) and (&%connected ?OBJ1 ?OBJ3) and not (&%connected ?OBJ2 ?OBJ3).")
		(type INSTANCE)
;+		(allowed-classes EngineeringComponent)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Electronic "A persistent artifact represented in an electronic form (for example, on a hard-drive)."
	(is-a Artifact)
	(role concrete))

(defclass File
	(is-a Electronic)
	(role concrete))

(defclass Document
	(is-a Text File)
	(role concrete))

(defclass XMLDocument
	(is-a Document)
	(role concrete))

(defclass ProductObject "SUO 1.15: September 6, 2001\nAn &%Artifact that is produced by &%Manufacture and that is intended to be sold."
	(is-a Artifact)
	(role concrete)
	(single-slot ID
;+		(comment "unique identifier")
		(type STRING)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass Food "SUO 1.55: July 14, 2003\nAny &%SelfConnectedObject containing &%Nutrients,\nsuch as carbohydrates, proteins, and fats, that can be ingested by a\nliving &%Animal and metabolized into energy and body tissue."
	(is-a SelfConnectedObject)
	(role concrete))

(defclass Meat "SUO 1.55: July 14, 2003\nAny &%Food which was originally part of an\n&%Animal and is not ingested by drinking, including eggs and animal\nblood that is eaten as food.  Note that this class covers both raw\nmeat and meat that has been prepared in some way, e.g. by cooking.\nNote too that preparations involving &%Meat and &%FruitOrVegetable\nare classed directly under &%Food."
	(is-a Food)
	(role concrete))

(defclass Beverage "SUO 1.55: July 14, 2003\nAny &%Food that is ingested by &%Drinking.\nNote that this class is disjoint with the other subclasses of &%Food,\ni.e. &%Meat and &%FruitOrVegetable."
	(is-a Food)
	(role concrete))

(defclass Region "SUO 1.55: July 14, 2003\nA topographic location.  &%Regions encompass\nsurfaces of &%Objects, imaginary places, and &%GeographicAreas.  Note\nthat a &%Region is the only kind of &%Object which can be located at\nitself.  Note too that &%Region is not a subclass of &%SelfConnectedObject,\nbecause some &%Regions, e.g. archipelagos, have &%parts which are not\n&%connected with one another."
	(is-a Object)
	(role concrete))

(defclass Hole "SUO 1.55: July 14, 2003\nA hole is an immaterial body located at the surface \nof an &%Object.  Since every &%Hole is ontologically dependent on its host \n(i.e., the object in which it is a hole), being a &%Hole is defined as \nbeing a &%hole in something.  Note that two &%Holes may occupy the same \nregion, or part of the same region, without sharing any parts."
	(is-a Region)
	(role concrete)
	(single-slot SkinFn
;+		(comment "A &%UnaryFunction that maps a &%Hole to the skin of the &%Hole.  The skin of a &%Hole is the fusion of those superficial parts (see &%superficialPart) of the &%Hole's principal host (see &%PrincipalHostFn) with which the &%Hole is externally connected.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot hole
;+		(comment "(&%hole ?HOLE ?OBJ) means that ?HOLE is a &%Hole in ?OBJ.  A &%Hole is a fillable body located at the &%surface an &%Object.")
		(type INSTANCE)
;+		(allowed-classes SelfConnectedObject)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PrincipalHostFn
;+		(comment "A &%UnaryFunction that maps a &%Hole to the &%Object which is its principal host.  The principle host of a &%Hole is its maximally connected host (a notion taken here to be defined only when the argument is a hole).")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass AstronomicalBody "SUO 1.55: July 14, 2003\nThe &%Class of all astronomical\nobjects of significant size.  It includes &%SelfConnectedObjects\nlike planets, stars, and asteroids, as well as &%Collections like\nnebulae, galaxies, and constellations.  Note that the planet Earth\nis an &%AstronomicalBody, but every &%Region of Earth is a\n&%GeographicArea."
	(is-a Region)
	(role concrete))

(defclass GeographicArea "SUO 1.55: July 14, 2003\nA geographic location, generally having \ndefinite boundaries.  Note that this differs from its immediate superclass \n&%Region in that a &%GeographicArea is a three-dimensional &%Region of the \nearth.  Accordingly, all astronomical objects other than earth and all \none-dimensional and two-dimensional &%Regions are not classed under \n&%GeographicArea."
	(is-a Region)
	(role concrete)
	(single-slot geographicSubregion
;+		(comment "(&%geographicSubregion ?PART ?WHOLE) means that the &%GeographicArea ?PART is part of the &%GeographicArea ?WHOLE.\n")
		(type INSTANCE)
;+		(allowed-classes GeographicArea)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass WaterArea "SUO 1.55: July 14, 2003\nA body which is made up predominantly of water,\ne.g. rivers, lakes, oceans, etc."
	(is-a GeographicArea)
	(role concrete))

(defclass SaltWaterArea "SUO 1.55: July 14, 2003\nA &%WaterArea whose &%Water is saline, e.g.\noceans and seas."
	(is-a WaterArea)
	(role concrete))

(defclass FreshWaterArea "SUO 1.55: July 14, 2003\nA &%WaterArea whose &%Water is not saline,\ne.g. most rivers and lakes."
	(is-a WaterArea)
	(role concrete))

(defclass StreamWaterArea "SUO 1.55: July 14, 2003\nA relatively narrow &%WaterArea where the\nwater flows constantly and in the same direction, e.g. a river, a stream,\netc."
	(is-a WaterArea)
	(role concrete))

(defclass StaticWaterArea "SUO 1.55: July 14, 2003\nA &%WaterArea in which water does not flow\nconstantly or in the same direction, e.g. most lakes and ponds."
	(is-a WaterArea)
	(role concrete))

(defclass LandArea "SUO 1.55: July 14, 2003\nAn area which is predominantly solid ground,\ne.g. a &%Nation, a mountain, a desert, etc.  Note that a &%LandArea may\ncontain some relatively small &%WaterAreas.  For example, Australia is\na &%LandArea even though it contains various rivers and lakes."
	(is-a GeographicArea)
	(role concrete))

(defclass ShoreArea "SUO 1.55: July 14, 2003\nA &%ShoreArea is a &%LandArea approximately\n1-3 km wide bordering a body of water, such as an ocean, bay, river,\nor lake.  A &%ShoreArea may comprise a variety of &%LandForms, such as dunes,\nsloughs, and marshes."
	(is-a LandArea)
	(role concrete))

(defclass Continent "SUO 1.55: July 14, 2003\nOne of the seven largest land masses on earth,\nviz. Africa, North America, South America, Antarctica, Europe, Asia, and\nOceania (also known by the &%Nation which is coextensive with the\n&%Continent - Australia)."
	(is-a LandArea)
	(role concrete))

(defclass Island "SUO 1.55: July 14, 2003\nA &%LandArea that is completely surrounded by a &%WaterArea."
	(is-a LandArea)
	(role concrete))

(defclass Address "SUO 1.15: September 6, 2001\nA &%LandArea of relatively small size.  This concept represents the state of 'being at an address'."
	(is-a LandArea)
	(role concrete))

(defclass Transitway "SUO 1.55: July 14, 2003\n&%Transitway is the broadest class\nof regions which may be passed through as a &%path in instances\nof &%Translocation.  &%Transitway includes land, air, and sea\nregions, and it includes both natural and artificial transitways."
	(is-a Region SelfConnectedObject)
	(role concrete))

(defclass LandTransitway "SUO 1.55: July 14, 2003\n&%LandTransitway is the subclass of\n&%Transitway that represents areas intended for motion over the ground."
	(is-a Transitway LandArea)
	(role concrete))

(defclass Roadway "SUO 1.55: July 14, 2003\n&%Roadway is the subclass of &%LandTransitways\nthat are areas intended for surface travel by self-powered, wheeled\nvehicles, excluding those that travel on tracks.  &%Roadways have been\nat least minimally improved to enable the passage of vehicles.\n&%Roadways include dirt and gravelled roads, paved streets, and\nexpressways."
	(is-a LandTransitway LandArea)
	(role concrete))

(defclass Collection "SUO 1.55: July 14, 2003\nCollections have &%members like &%Classes, but, \nunlike &%Classes, they have a position in space-time and &%members can be \nadded and subtracted without thereby changing the identity of the \n&%Collection.  Some examples are toolkits, football teams, and flocks \nof sheep."
	(is-a Object)
	(role concrete)
	(single-slot subCollection
;+		(comment "(&%subCollection ?COLL1 ?COLL2) means that the &%Collection ?COLL1 is a proper part of the &%Collection ?COLL2.")
		(type INSTANCE)
;+		(allowed-classes Collection)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CardinalityFn
;+		(comment "(CardinalityFn ?CLASS) returns the number of instances in the &%SetOrClass or &%Collection ?CLASS.")
		(type INSTANCE)
;+		(allowed-classes Number)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Agent "SUO 1.55: July 14, 2003\nSomething or someone that can act on its own and \nproduce changes in the world."
	(is-a Object)
	(role concrete)
	(single-slot possesses
;+		(comment "&%Relation that holds between an &%Agent and an &%Object when the &%Agent has ownership of the &%Object.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot WealthFn
;+		(comment "A &%UnaryFunction that maps an &%Agent to a &%CurrencyMeasure specifying the value of the property owned by the &%Agent.  Note that this &%Function is generally used in conjunction with the &%Function &%PropertyFn, e.g. (&%WealthFn (&%PropertyFn BillGates)) would return the monetary value of the sum of Bill Gates' holdings.")
		(type INSTANCE)
;+		(allowed-classes CurrencyMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot authors
;+		(comment "(&%authors ?AGENT ?TEXT) means that ?AGENT is creatively responsible for ?TEXT.  For example, Agatha Christie is author of Murder_on_the_Orient_Express.")
		(type SYMBOL)
;+		(allowed-parents Text)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PropertyFn
;+		(comment "A &%UnaryFunction that maps an &%Agent to the &%Set of &%Property owned by the &%Agent.")
		(type INSTANCE)
;+		(allowed-classes Set)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot editor
;+		(comment "(&%editor ?AGENT ?TEXT) means that ?AGENT is an editor of ?TEXT.")
		(type SYMBOL)
;+		(allowed-parents Text)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass GeopoliticalArea "SUO 1.55: July 14, 2003\nAny &%GeographicArea which is associated \nwith some sort of political structure.  This class includes &%Lands, \n&%Cities, districts of cities, counties, etc.  Note that the identity \nof a &%GeopoliticalArea may remain constant after a change in borders."
	(is-a GeographicArea Agent)
	(role concrete)
	(single-slot geopoliticalSubdivision
;+		(comment "(&%geopoliticalSubdivision ?AREA1 ?AREA2) means that ?AREA1 is any geopolitical part of ?AREA2; that is, ?AREA1 is an integral &%geographicSubregion of ?AREA2 (not a &%DependencyOrSpecialSovereigntyArea), having its own associated\n&%GovernmentOrganization which is subordinated to or constrained by the government of ?AREA2.  Cf. &%dependentGeopoliticalArea.\n")
		(type INSTANCE)
;+		(allowed-classes GeopoliticalArea)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot GovernmentFn
;+		(comment "(&%GovernmentFn ?AREA) denotes the\n&%Government of the &%GeopoliticalArea ?AREA.  For example, (&%GovernmentFn &%UnitedStates) denotes the Federal-level government of\nthe United States; (&%GovernmentFn &%PuertoRico) denotes the government of the Commonwealth of Puerto Rico.\n")
		(type INSTANCE)
;+		(allowed-classes Government)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Nation "SUO 1.55: July 14, 2003\nThe broadest &%GeopoliticalArea, i.e. &%Nations are\n&%GeopoliticalAreas that are not part of any other overarching and\ncomprehensive governance structure (excepting commonwealths and other sorts\nof loose international organizations)."
	(is-a GeopoliticalArea LandArea)
	(role concrete))

(defclass StateOrProvince "SUO 1.55: July 14, 2003\nAdministrative subdivisions of a\n&%Nation that are broader than any other political subdivisions that\nmay exist.  This &%Class includes the states of the United States, as\nwell as the provinces of Canada and European countries."
	(is-a GeopoliticalArea LandArea)
	(role concrete))

(defclass City "SUO 1.55: July 14, 2003\nA &%LandArea of relatively small size, inhabited\nby a community of people, and having some sort of political structure.\nNote that this class includes both large cities and small settlements\nlike towns, villages, hamlets, etc."
	(is-a GeopoliticalArea LandArea)
	(role concrete))

(defclass SentientAgent "SUO 1.55: July 14, 2003\nAn &%Agent that has rights but may or may \nnot have responsibilities and the ability to reason.  If the latter are \npresent, then the &%Agent is also an instance of &%CognitiveAgent.  \nDomesticated animals are an example of &%SentientAgents that are not \nalso &%CognitiveAgents."
	(is-a Agent)
	(role concrete))

(defclass CognitiveAgent "SUO 1.55: July 14, 2003\nA &%SentientAgent with responsibilities \nand the ability to reason, deliberate, make plans, etc.  This is \nessentially the legal/ethical notion of a person.  Note that, although \n&%Human is a subclass of &%CognitiveAgent, there may be instances of \n&%CognitiveAgent which are not also instances of &%Human.  For example, \nchimpanzees, gorillas, dolphins, whales, and some extraterrestrials \n(if they exist) may be &%CognitiveAgents."
	(is-a SentientAgent)
	(role concrete)
	(single-slot prefers
;+		(comment "(&%prefers ?AGENT ?FORMULA1 ?FORMULA2) means that &%CognitiveAgent ?AGENT prefers the state of affairs expressed by ?FORMULA1over the state of affairs expressed by ?FORMULA2 all things being equal.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot inScopeOfInterest
;+		(comment "A very general &%Predicate.  (&%inScopeOfInterest ?AGENT ?ENTITY) means that ?ENTITY is within the scope of interest of ?AGENT.  Note that the interest indicated can be either positive or negative, i.e. the ?AGENT can have an interest in avoiding or promoting ?ENTITY.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot legalRelation
;+		(comment "(&%legalRelation ?AGENT1 ?AGENT2) means there is a relationship involving legal obligations between ?AGENT1 and ?AGENT2.  Some examples include marriage, adoption, etc.\n")
		(type INSTANCE)
;+		(allowed-classes CognitiveAgent)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot considers
;+		(comment "(&%considers ?AGENT ?FORMULA) means that ?AGENT considers or wonders about the truth of the proposition expressed by ?FORMULA.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot believes
;+		(comment "The epistemic predicate of belief.  (&%believes ?AGENT ?FORMULA) means that ?AGENT believes the proposition expressed by ?FORMULA.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot desires
;+		(comment "(&%desires ?AGENT ?FORMULA) means that ?AGENT wants to bring about the state of affairs expressed by ?FORMULA.  Note that there is no implication that what is desired by the agent is not already true.  Note too that &%desires is distinguished from &%wants only in that the former is a &%PropositionalAttitude, while &%wants is an &%ObjectAttitude.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot needs
;+		(comment "(&%needs ?AGENT ?OBJECT) means that ?OBJECT is physically required for the continued existence of ?AGENT.")
		(type INSTANCE)
;+		(allowed-classes Physical)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot wants
;+		(comment "(&%wants ?AGENT ?OBJECT) means that ?OBJECT is desired by ?AGENT, i.e. ?AGENT believes that ?OBJECT will satisfy one of its goals.  Note that there is no implication that what is wanted by an agent is not already possessed by the agent.")
		(type INSTANCE)
;+		(allowed-classes Physical)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot knows
;+		(comment "The epistemic predicate of knowing.  (&%knows ?AGENT ?FORMULA) means that ?AGENT knows the proposition expressed by ?FORMULA.  Note that &%knows entails conscious awareness, so this &%Predicate cannot be used to express tacit or subconscious or unconscious knowledge.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass OrganizationUnit "SUO 1.15: September 6, 2001\nAn organization, division or department within an organization. For example, the Shell Corporation, the accounting department at Shell, etc. would all be instances of &%OrganizationUnit. The continued existence of an &%OrganizationUnit is not dependent on any of its members, locations, or facilities. Note that, unlike &%Organization, an &%OrganizationUnit may have no members."
	(is-a CognitiveAgent)
	(role concrete))

(defclass Organism "SUO 1.55: July 14, 2003\nGenerally, a living individual, including all \n&%Plants and &%Animals."
	(is-a OrganicObject Agent)
	(role concrete)
	(single-slot parent
;+		(comment "The general relationship of parenthood.  (&%parent ?CHILD ?PARENT) means that ?PARENT is a biological parent of ?CHILD.")
		(type INSTANCE)
;+		(allowed-classes Organism)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot inhabits
;+		(comment "A very basic notion of living within something else.  (&%inhabits ?ORGANISM ?OBJECT) means that ?OBJECT is the residence, nest, home, etc. of ?ORGANISM.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot mother
;+		(comment "The general relationship of motherhood.  (&%mother ?CHILD ?MOTHER) means that ?MOTHER is the biological mother of ?CHILD.")
		(type INSTANCE)
;+		(allowed-classes Organism)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot sibling
;+		(comment "The relationship between two &%Organisms that have the same &%mother and &%father.  Note that this relationship does not hold between half-brothers, half-sisters, etc.")
		(type INSTANCE)
;+		(allowed-classes Organism)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot father
;+		(comment "The general relationship of fatherhood.  (&%father ?CHILD ?FATHER) means that ?FATHER is the biological fatherof ?CHILD.")
		(type INSTANCE)
;+		(allowed-classes Organism)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot familyRelation
;+		(comment "A very general &%Predicate for biological relationships. (&%familyRelation ?ORGANISM1 ?ORGANISM2) means that ?ORGANISM1 and ?ORGANISM2 are biologically derived from a common ancestor.")
		(type INSTANCE)
;+		(allowed-classes Organism)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ancestor
;+		(comment "The transitive closure of the &%parent predicate. (&%ancestor ?DESCENDANT ?ANCESTOR) means that ?ANCESTOR is either the\n&%parent of ?DESCENDANT or the &%parent of the &%parent of &%DESCENDANT or etc.\n")
		(type INSTANCE)
;+		(allowed-classes Organism)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Plant "SUO 1.55: July 14, 2003\nAn &%Organism having cellulose cell walls, growing\nby synthesis of &%Substances, generally distinguished by the presence of\nchlorophyll, and lacking the power of locomotion."
	(is-a Organism)
	(role concrete))

(defclass FloweringPlant "SUO 1.55: July 14, 2003\nA &%Plant that produces seeds and flowers.\nThis class includes trees, shrubs, herbs, and flowers."
	(is-a Plant)
	(role concrete))

(defclass NonFloweringPlant "SUO 1.55: July 14, 2003\nA &%Plant that reproduces with spores and\ndoes not produce flowers."
	(is-a Plant)
	(role concrete))

(defclass Alga "SUO 1.55: July 14, 2003\nA chiefly aquatic plant that contains chlorophyll,\nbut does not form embryos during development and lacks vascular tissue."
	(is-a NonFloweringPlant)
	(role concrete))

(defclass Fungus "SUO 1.55: July 14, 2003\nA eukaryotic &%Organism characterized by the\nabsence of chlorophyll and the presence of rigid cell walls. Included\nhere are both slime molds and true fungi such as yeasts, molds, mildews,\nand mushrooms."
	(is-a NonFloweringPlant)
	(role concrete))

(defclass Moss "SUO 1.55: July 14, 2003\nA &%NonFloweringPlant without true roots and little\nif any vascular tissue."
	(is-a NonFloweringPlant)
	(role concrete))

(defclass Fern "SUO 1.55: July 14, 2003\nA &%NonFloweringPlant that contains vascular tissue.\nThis class includes true ferns, as well as horsetails, club mosses, and\nwhisk ferns."
	(is-a NonFloweringPlant)
	(role concrete))

(defclass Animal "SUO 1.55: July 14, 2003\nAn &%Organism with eukaryotic &%Cells, and lacking \nstiff cell walls, plastids, and photosynthetic pigments."
	(is-a Organism)
	(role concrete)
	(single-slot grasps
;+		(comment "The state of grasping an &%Object.  (&%grasps ?ANIMAL ?OBJ) means that the &%Animal ?ANIMAL is intentionally holding on to the &%Object ?OBJ.\n\n(&%meetsSpatially ?OBJ1 ?OBJ2) means that ?OBJ1 and ?OBJ2 are &%connected but that neither ?OBJ1 nor ?OBJ2 &%overlapsSpatially the other.\n\n(connected ?OBJ1 ?OBJ2) means that ?OBJ1 &%meetsSpatially ?OBJ2 or that ?OBJ1 &%overlapsSpatially ?OBJ2.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot wears
;+		(comment "(&%wears ?AGENT ?CLOTHING) means that ?AGENT is wearing\nthe item of &%Clothing ?CLOTHING.\n")
		(type INSTANCE)
;+		(allowed-classes Clothing)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Invertebrate "SUO 1.55: July 14, 2003\nAn &%Animal which has no spinal column."
	(is-a Animal)
	(role concrete))

(defclass Worm "SUO 1.55: July 14, 2003\nLong, narrow, soft-bodied &%Invertebrates."
	(is-a Invertebrate)
	(role concrete))

(defclass Mollusk "SUO 1.55: July 14, 2003\nSoft-bodied &%Invertebrate that is usually\ncontained in a shell.  Includes oysters, clams, mussels, snails, slugs,\noctopi, and squid."
	(is-a Invertebrate)
	(role concrete))

(defclass Arthropod "SUO 1.55: July 14, 2003\nA &%Class of &%Invertebrate that includes\n&%Arachnids and &%Insects."
	(is-a Invertebrate)
	(role concrete))

(defclass Arachnid "SUO 1.55: July 14, 2003\nA &%Class of &%Arthropods that includes\nticks and spiders."
	(is-a Arthropod)
	(role concrete))

(defclass Myriapod "SUO 1.55: July 14, 2003\nA &%Class of &%Arthropods that includes\ncentipedes and millipedes."
	(is-a Arthropod)
	(role concrete))

(defclass Insect "SUO 1.55: July 14, 2003\nA &%Class of small &%Arthropods that are\nair-breathing and that are distinguished by appearance."
	(is-a Arthropod)
	(role concrete))

(defclass Crustacean "SUO 1.55: July 14, 2003\nA &%Class of &%Arthropods that mainly dwells\nin water and has a segmented body and a chitinous exoskeleton.  Includes\nlobsters, crabs, shrimp, and barnacles."
	(is-a Arthropod)
	(role concrete))

(defclass Vertebrate "An Animal which has a spinal column."
	(is-a Animal)
	(role concrete))

(defclass ColdBloodedVertebrate "SUO 1.55: July 14, 2003\n&%Vertebrates whose body temperature\nis not internally regulated."
	(is-a Vertebrate)
	(role concrete))

(defclass Amphibian "SUO 1.55: July 14, 2003\nA cold-blooded, smooth-skinned &%Vertebrate\nwhich characteristically hatches as an aquatic larva, breathing by\ngills.  When mature, the &%Amphibian breathes with &%Lungs."
	(is-a ColdBloodedVertebrate)
	(role concrete))

(defclass Fish "SUO 1.55: July 14, 2003\nA cold-blooded aquatic &%Vertebrate characterized by\nfins and breathing by gills. Included here are &%Fish having either a bony\nskeleton, such as a perch, or a cartilaginous skeleton, such as a shark.\nAlso included are those &%Fish lacking a jaw, such as a lamprey or\nhagfish."
	(is-a ColdBloodedVertebrate)
	(role concrete))

(defclass Reptile "SUO 1.55: July 14, 2003\nA &%ColdBloodedVertebrate having an external\ncovering of scales or horny plates.  &%Reptiles breathe by means of\n&%Lungs and generally lay eggs."
	(is-a ColdBloodedVertebrate)
	(role concrete))

(defclass WarmBloodedVertebrate "SUO 1.55: July 14, 2003\n&%Vertebrates whose body temperature\nis internally regulated."
	(is-a Vertebrate)
	(role concrete))

(defclass Bird "SUO 1.55: July 14, 2003\nA &%Vertebrate having a constant body temperature\nand characterized by the presence of feathers."
	(is-a WarmBloodedVertebrate)
	(role concrete))

(defclass Mammal "SUO 1.55: July 14, 2003\nA &%Vertebrate having a constant body temperature\nand characterized by the presence of hair, mammary glands, and sweat\nglands."
	(is-a WarmBloodedVertebrate)
	(role concrete))

(defclass AquaticMammal "SUO 1.55: July 14, 2003\nThe &%Class of &%Mammals that dwell chiefly\nin the water.  Includes whales, dolphins, manatees, seals, and walruses."
	(is-a Mammal)
	(role concrete))

(defclass HoofedMammal "SUO 1.55: July 14, 2003\nThe &%Class of quadruped &%Mammals with hooves.\nIncludes horses, cows, sheep, pigs, antelope, etc."
	(is-a Mammal)
	(role concrete))

(defclass Marsupial "SUO 1.55: July 14, 2003\nThe &%Class of &%Mammals which have a pouch for\ntheir young."
	(is-a Mammal)
	(role concrete))

(defclass Carnivore "SUO 1.55: July 14, 2003\nThe &%Class of flesh-eating &%Mammals.  Members\nof this &%Class typically have four or five claws on each paw.  Includes\ncats, dogs, bears, racoons, and skunks."
	(is-a Mammal)
	(role concrete))

(defclass Canine "SUO 1.55: July 14, 2003\nThe &%Class of &%Carnivores with completely\nseparable toes, nonretractable claws, and long muzzles."
	(is-a Carnivore)
	(role concrete))

(defclass Feline "SUO 1.55: July 14, 2003\nThe &%Class of &%Carnivores with completely\nseparable toes, nonretractable claws, slim bodies, and rounded heads."
	(is-a Carnivore)
	(role concrete))

(defclass Rodent "SUO 1.55: July 14, 2003\nThe &%Class of &%Mammals with one or two pairs\nof incisors for gnawing.  Includes rats, mice, guinea pigs, and\nrabbits."
	(is-a Mammal)
	(role concrete))

(defclass Primate "SUO 1.55: July 14, 2003\nThe &%Class of &%Mammals which are\n&%Primates."
	(is-a Mammal)
	(role concrete))

(defclass Ape "SUO 1.55: July 14, 2003\nVarious &%Primates with no tails or only short\ntails."
	(is-a Primate)
	(role concrete))

(defclass Monkey "SUO 1.55: July 14, 2003\nVarious &%Primates with relatively long\ntails."
	(is-a Primate)
	(role concrete))

(defclass Hominid "SUO 1.55: July 14, 2003\nIncludes &%Humans and relatively recent\nancestors of &%Humans."
	(is-a Primate)
	(role concrete))

(defclass Human "SUO 1.55: July 14, 2003\nModern man, the only remaining species of the Homo \ngenus."
	(is-a Hominid CognitiveAgent)
	(role concrete)
	(single-slot occupiesPosition
;+		(comment "(&%occupiesPosition ?PERSON ?POSITION ?ORG) means that ?PERSON holds the &%Position ?POSITION at &%Organization ?ORG. For example, (&%occupiesPosition &%TomSmith &%ResearchDirector &%AcmeLaboratory) means that &%TomSmith is a research director at Acme Labs.")
		(type INSTANCE)
;+		(allowed-classes Position)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot home
;+		(comment "The relation between a &%Human and a home of the &%Human.\n\nA very basic notion of living within something else.  (&%inhabits ?ORGANISM ?OBJECT) means that ?OBJECT is the residence, nest, home, etc. of ?ORGANISM.")
		(type INSTANCE)
;+		(allowed-classes StationaryArtifact)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot citizen
;+		(comment "(&%citizen ?PERSON ?NATION) means that the &%Human ?PERSON is a citizen of &%Nation ?NATION.")
		(type INSTANCE)
;+		(allowed-classes Nation)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ImmediateFamilyFn
;+		(comment "(&%ImmediateFamilyFn ?PERSON) denotes the immediate family of ?PERSON, i.e. the &%Group consisting of the &%parents of ?PERSON and anyone of whom ?PERSON is a &%parent.\n")
		(type INSTANCE)
;+		(allowed-classes FamilyGroup)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Man "SUO 1.55: July 14, 2003\nThe class of &%Male &%Humans."
	(is-a Human)
	(role concrete)
	(single-slot brother
;+		(comment "The general relationship of being a brother.  (&%brother ?MAN ?PERSON) means that ?MAN is the brother of ?PERSON.\n")
		(type INSTANCE)
;+		(allowed-classes Human)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot husband
;+		(comment "(&%husband ?MAN ?WOMAN) means that ?MAN is the husband of ?WOMAN.\n")
		(type INSTANCE)
;+		(allowed-classes Woman)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Woman "SUO 1.55: July 14, 2003\nThe class of &%Female &%Humans."
	(is-a Human)
	(role concrete)
	(single-slot wife
;+		(comment "(&%wife ?WOMAN ?MAN) means that ?WOMAN is the wife of ?MAN.\n")
		(type INSTANCE)
;+		(allowed-classes Man)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot sister
;+		(comment "The general relationship of being a sister. (&%sister ?WOMAN ?PERSON) means that ?WOMAN is the sister of ?PERSON.\n")
		(type INSTANCE)
;+		(allowed-classes Human)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Microorganism "SUO 1.55: July 14, 2003\nAn &%Organism that can be seen only with\nthe aid of a microscope."
	(is-a Organism)
	(role concrete))

(defclass Bacterium "SUO 1.55: July 14, 2003\nA small, typically one-celled, prokaryotic\n&%Microorganism."
	(is-a Microorganism)
	(role concrete))

(defclass Virus "SUO 1.55: July 14, 2003\nAn &%Organism consisting of a core of a single\nnucleic acid enclosed in a protective coat of protein. A virus may replicate\nonly inside a host living cell. A virus exhibits some but not all of the\nusual characteristics of living things."
	(is-a Microorganism)
	(role concrete))

(defclass CommercialAgent "SUO 1.55: July 14, 2003\nAn &%Agent that provides products and/or\nservices for a fee with the aim of making a profit."
	(is-a Agent)
	(role concrete))

(defclass Hotel "SUO 1.55: July 14, 2003\nA &%ResidentialBuilding which provides temporary\naccommodations to guests in exchange for money."
	(is-a ResidentialBuilding TemporaryResidence CommercialAgent)
	(role concrete))

(defclass Group "SUO 1.55: July 14, 2003\nA &%Collection of &%Agents, e.g. a flock\nof sheep, a herd of goats, or the local Boy Scout troop."
	(is-a Collection Agent)
	(role concrete))

(defclass GroupOfPeople "SUO 1.55: July 14, 2003\nAny &%Group whose &%members are\nexclusively &%Humans."
	(is-a Group)
	(role concrete))

(defclass AgeGroup "SUO 1.55: July 14, 2003\nA &%Group whose &%members all have the same &%age."
	(is-a Group)
	(role concrete))

(defclass FamilyGroup "SUO 1.55: July 14, 2003\nA &%Group whose &%members bear\n&%familyRelations to one another."
	(is-a Group)
	(role concrete))

(defclass SocialUnit "SUO 1.55: July 14, 2003\nA group of people who all have the same &%home."
	(is-a Group)
	(role concrete))

(defclass EthnicGroup "SUO 1.55: July 14, 2003\nA &%Group whose &%members originate from\nthe same &%GeographicArea or share the same &%Language and/or cultural\npractices."
	(is-a Group)
	(role concrete))

(defclass BeliefGroup "SUO 1.55: July 14, 2003\nA &%Group whose &%members share a belief or\nset of beliefs."
	(is-a Group)
	(role concrete))

(defclass Organization "SUO 1.55: July 14, 2003\nAn &%Organization is a corporate or similar institution. The &%members of an &%Organization typically have a common purpose or function. Note that this class also covers divisions, departments, etc. of organizations.  For example, both the Shell Corporation and the accounting department at Shell would both be instances of &%Organization.  Note too that the existence of an &%Organization is dependent on the existence of at least one &%member (since &%Organization is a subclass of &%Collection).  Accordingly, in cases of purely legal organizations, a fictitious &%member \nshould be assumed."
	(is-a Group CognitiveAgent)
	(role concrete)
	(single-slot employs
;+		(comment "(&%employs ?ORG ?PERSON) means that ?ORG has hired ?PERSON and currently retains ?PERSON, on a salaried or contractual basis, to provide services in exchange for monetary compensation.")
		(type INSTANCE)
;+		(allowed-classes CognitiveAgent)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot subOrganization
;+		(comment "(&%subOrganization ?ORG1 ?ORG2) means that ?ORG1 is an &%Organization which is a proper part of the &%Organization ?ORG2.\n")
		(type INSTANCE)
;+		(allowed-classes Organization)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot publishes
;+		(comment "(&%publishes ?ORG ?TEXT) means that ?ORG publishes ?TEXT.  For example, Bantam Books publishes Agatha Christie's Murder_on_the_Orient_Express.")
		(type SYMBOL)
;+		(allowed-parents Text)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot leader
;+		(comment "(&%leader ?ORGANIZATION ?PERSON) means that the leader of ?ORGANIZATION is ?PERSON.\n")
		(type INSTANCE)
;+		(allowed-classes Agent)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Corporation "SUO 1.55: July 14, 2003\nAn &%Organization that has a special legal status\nthat allows a group of persons to act as a &%CommercialAgent and that insulates\nthe owners (shareholders) from many liabilities that might result from the\ncorporation's operation."
	(is-a CommercialAgent Organization)
	(role concrete))

(defclass Manufacturer "SUO 1.55: July 14, 2003\nAny &%Corporation which manufactures &%Products."
	(is-a Corporation)
	(role concrete))

(defclass MercantileOrganization "SUO 1.55: July 14, 2003\nAny &%Corporation which sells\nphysical goods to customers for a profit."
	(is-a Corporation)
	(role concrete))

(defclass PoliticalOrganization "SUO 1.55: July 14, 2003\nAn &%Organization that is a &%Government,\na &%subOrganization of a &%Government, or an &%Organization that is attempting\nto bring about some sort of political change."
	(is-a Organization)
	(role concrete))

(defclass GovernmentOrganization "SUO 1.55: July 14, 2003\n&%GovernmentOrganization is the\nclass of official &%Organizations that are concerned with the government\nof a &%GeopoliticalArea at some level.  They may be a &%Government or the\n&%subOrganization of a government."
	(is-a Organization)
	(role concrete))

(defclass Government "SUO 1.55: July 14, 2003\nThe ruling body of a &%GeopoliticalArea."
	(is-a GovernmentOrganization)
	(role concrete))

(defclass MilitaryOrganization "SUO 1.55: July 14, 2003\nAny heavily armed &%Organization\nthat is part of a &%Government and that is charged with representing the\n&%Government in international conflicts."
	(is-a GovernmentOrganization)
	(role concrete))

(defclass PoliceOrganization "SUO 1.55: July 14, 2003\nAny &%GovernmentOrganization\nthat is charged with domestic enforcement of the laws of the &%Government."
	(is-a GovernmentOrganization)
	(role concrete))

(defclass JudicialOrganization "SUO 1.55: July 14, 2003\n&%JudicialOrganization is the class\nof &%Organizations whose primary purpose is to render judgments according\nto the statutes or regulations of a government or other organization.\nJudicial bodies are not necessarily government organizations, for example,\nthose associated with sporting associations."
	(is-a Organization)
	(role concrete))

(defclass EducationalOrganization "SUO 1.55: July 14, 2003\nA &%EducationalOrganization is\nan institution of learning. Some examples are public and private K-12\nschools, and colleges and universities."
	(is-a Organization)
	(role concrete))

(defclass ReligiousOrganization "SUO 1.55: July 14, 2003\nAn &%Organization whose members\nshare a set of religious beliefs."
	(is-a Organization BeliefGroup)
	(role concrete))

(defclass Process "SUO 1.55: July 14, 2003\nIntuitively, the class of things that happen \nand have temporal parts or stages.  Examples include extended events \nlike a football match or a race, actions like &%Pursuing and &%Reading, \nand biological processes. The formal definition is: anything that lasts \nfor a time but is not an &%Object.  Note that a &%Process may have \nparticipants 'inside' it which are &%Objects, such as the players \nin a football match.  In a 4D ontology, a &%Process is something whose \nspatiotemporal extent is thought of as dividing into temporal stages \nroughly perpendicular to the time-axis."
	(is-a Physical)
	(role concrete)
	(single-slot instrument
;+		(comment "(instrument ?EVENT ?TOOL) means that ?TOOL is used by an agent in bringing about ?EVENT and that ?TOOL is not changed by ?EVENT.  For example, the key is an &%instrument in the following proposition: The key opened the door.  Note that &%instrument\nand &%resource cannot be satisfied by the same ordered pair.\n\n(&%patient ?PROCESS ?ENTITY) means that ?ENTITY is a participant in ?PROCESS that may be moved, said, experienced, etc.  For example, the direct objects in the sentences 'The cat swallowed the canary' and 'Billy likes the beer' would be examples of &%patients.  Note that the &%patient of a &%Process may or may not undergo structural change as a result of the &%Process.  The &%CaseRole of &%patient is used when one wants to specify as broadly as possible the object of a &%Process.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot capability
;+		(comment "(&%capability ?PROCESS ?ROLE ?OBJ) means that ?OBJ has the ability to play the role of ?ROLE in &%Processes of type ?PROCESS.")
		(type INSTANCE)
;+		(allowed-classes CaseRole)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot subProcess
;+		(comment "(&%subProcess ?SUBPROC ?PROC) means that ?SUBPROC is a subprocess of ?PROC.  A subprocess is here understood as a temporally distinguished part (proper or not) of a &%Process.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot patient
;+		(comment "(&%patient ?PROCESS ?ENTITY) means that ?ENTITY is a participant in ?PROCESS that may be moved, said, experienced, etc.  For example, the direct objects in the sentences 'The cat swallowed the canary' and 'Billy likes the beer' would be examples of &%patients.  Note that the &%patient of a &%Process may or may not undergo structural change as a result of the &%Process.  The &%CaseRole of &%patient is used when one wants to specify as broadly as possible the object of a &%Process.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot realization
;+		(comment "A subrelation of &%represents.\n(&%realization ?PROCESS ?PROP) means that ?PROCESS is a Process which expresses the content of ?PROP. Examples include a particular musical\nperformance, which realizes the content of a musical score, or the reading of a poem.\n")
		(type INSTANCE)
;+		(allowed-classes Proposition)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot agent
;+		(comment "(&%agent ?PROCESS ?AGENT) means that ?AGENT is an active determinant, either animate or inanimate, of the &%Process ?PROCESS, with or without voluntary intention.  For example, water is the &%agent of erosion in the following proposition:  the water eroded the coastline.  For another example, Eve is an &%agent in the following proposition: Eve bit an apple.")
		(type INSTANCE)
;+		(allowed-classes Agent)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot origin
;+		(comment "(&%origin ?PROCESS ?SOURCE) means that ?SOURCE indicates where the ?Process began.  Note that this relation implies that ?SOURCE is present at the beginning of the process, but need not participate throughout the process.  For example, the submarine is the &%origin in the following proposition: the missile was launched from a submarine.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot resource
;+		(comment "(&%patient ?PROCESS ?ENTITY) means that ?ENTITY is a participant in ?PROCESS that may be moved, said, experienced, etc.  For example, the direct objects in the sentences 'The cat swallowed the canary' and 'Billy likes the beer' would be examples of &%patients.  Note that the &%patient of a &%Process may or may not undergo structural change as a result of the &%Process.  The &%CaseRole of &%patient is used when one wants to specify as broadly as possible the object of a &%Process.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot manner
;+		(comment "(&%manner ?PROCESS ?MANNER) means that the &%Process ?PROCESS is qualified by the &%Attribute ?MANNER.  The &%Attributes of &%Processes are usually denoted by adverbs and include things like the\nspeed of the wind, the style of a dance, or the intensity of a sports competition.\n")
		(type INSTANCE)
;+		(allowed-classes Attribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot hasSkill
;+		(comment "Similar to the &%capability &%Predicate with the additional restriction that the ability be practised/demonstrated to some measurable degree.")
		(type INSTANCE)
;+		(allowed-classes Agent)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot result
;+		(comment "(result ?ACTION ?OUTPUT) means that ?OUTPUT is a product of ?ACTION.  For example, house is a &%result in the following proposition: Eric built a house.\n\n\n(&%patient ?PROCESS ?ENTITY) means that ?ENTITY is a participant in ?PROCESS that may be moved, said, experienced, etc.  For example, the direct objects in the sentences 'The cat swallowed the canary' and 'Billy likes the beer' would be examples of &%patients.  Note that the &%patient of a &%Process may or may not undergo structural change as a result of the &%Process.  The &%CaseRole of &%patient is used when one wants to specify as broadly as possible the object of a &%Process.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot causes
;+		(comment "The causation relation between instances of &%Process.  (&%causes ?PROCESS1 ?PROCESS2) means that the instance of &%Process ?PROCESS1 brings about the instance of &%Process ?PROCESS2, e.g. (&%causes &%Killing &%Death).")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot direction
;+		(comment "(&%direction ?PROC ?ATTR) means that the &%Process ?PROC is moving in the direction ?ATTR.  For example, one would use this &%Predicate to represent the fact that Max is moving &%North.")
		(type INSTANCE)
;+		(allowed-classes DirectionalAttribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot destination
;+		(comment "(destination ?PROCESS ?GOAL) means that ?GOAL is the target or goal of the Process ?PROCESS.  For example, Danbury would be the destination in the following proposition:  Bob went to Danbury.  Note that this is a very general &%CaseRole and, in particular, that it covers the concepts of 'recipient' and 'beneficiary'.  Thus, John would be the &%destination in the following proposition:  Tom gave a book to John.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot experiencer
;+		(comment "(&%experiencer ?PROCESS ?AGENT) means that ?AGENT experiences the &%Process ?PROCESS.  For example, Yojo is the &%experiencer of seeing in the following proposition:  Yojo sees the fish.  Note that &%experiencer, unlike &%agent, does not entail a causal relation between its arguments.")
		(type INSTANCE)
;+		(allowed-classes Agent)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass DualObjectProcess "SUO 1.55: July 14, 2003\nAny &%Process that requires two,\nnonidentical &%patients."
	(is-a Process)
	(role concrete))

(defclass Attaching "SUO 1.55: July 14, 2003\nA &%Process where one &%Object becomes attached\nto another &%Object.  Note that this differs from &%Putting in that two\nthings which are attached may already be in the same location."
	(is-a DualObjectProcess)
	(role concrete))

(defclass Detaching "SUO 1.55: July 14, 2003\nA &%Process where the &%agent detaches one thing\nfrom something else.  Note that this is different from &%Removing in that\nneither of the two things which are detached may be removed from the location\nwhere it was attached."
	(is-a DualObjectProcess)
	(role concrete))

(defclass Combining "SUO 1.55: July 14, 2003\nA &%Process where two or more &%Substances are\ncombined into a single &%Substance."
	(is-a DualObjectProcess)
	(role concrete))

(defclass Separating "SUO 1.55: July 14, 2003\nA &%Process where a &%Substance is separated\ninto (some of) its &%pieces."
	(is-a DualObjectProcess)
	(role concrete))

(defclass IntentionalProcess "SUO 1.55: July 14, 2003\nA &%Process that has a specific\npurpose for the &%CognitiveAgent who performs it."
	(is-a Process)
	(role concrete))

(defclass RecreationOrExercise "SUO 1.55: July 14, 2003\nA &%Process that is carried out for\nthe purpose of recreation or exercise.  Since &%RecreationOrExercise is a\nsubclass of &%IntentionalProcess, the intent of a process determines whether\nor not it is an instance of the class.  Hence, if John and Bill watch the same\nprogram on television, and John watches it to relax while Bill watches it solely\nto satisfy an educational requirement, then John's watching the movie is an\ninstance of &%RecreationOrExercise, while Bill's is not (both cases of\nwatching the television program would however be in the class of &%Seeing, since\nbeing an instance of this latter class is not determined by intention)."
	(is-a IntentionalProcess)
	(role concrete))

(defclass OrganizationalProcess "SUO 1.55: July 14, 2003\nAn &%IntentionalProcess that\ninvolves an &%Organization."
	(is-a IntentionalProcess)
	(role concrete))

(defclass Election "SUO 1.55: July 14, 2003\n&%Election is the class of events conducted by an\norganization, in which qualified participants vote for officers, adopt\nresolutions, or settle other issues in that &%Organization."
	(is-a OrganizationalProcess)
	(role concrete))

(defclass ReligiousProcess "SUO 1.55: July 14, 2003\nAn &%OrganizationalProcess that is\ncarried out within or by a &%ReligiousOrganization."
	(is-a OrganizationalProcess)
	(role concrete))

(defclass JoiningAnOrganization "SUO 1.55: July 14, 2003\nThe &%OrganizationalProcess of\nbecoming a &%member of an &%Organization."
	(is-a OrganizationalProcess)
	(role concrete))

(defclass Matriculation "SUO 1.55: July 14, 2003\nThe &%OrganizationalProcess of joining an\n&%EducationalOrganization as a student."
	(is-a JoiningAnOrganization)
	(role concrete))

(defclass Hiring "SUO 1.55: July 14, 2003\n&%OrganizationalProcesses where someone is made an\nemployee of an &%Organization."
	(is-a JoiningAnOrganization)
	(role concrete))

(defclass LeavingAnOrganization "SUO 1.55: July 14, 2003\nThe &%OrganizationalProcess of\nleaving an &%Organization, whether voluntarily or involuntarily."
	(is-a OrganizationalProcess)
	(role concrete))

(defclass Graduation "SUO 1.55: July 14, 2003\nThe &%OrganizationalProcess of graduating\nfrom an &%EducationalOrganization."
	(is-a LeavingAnOrganization)
	(role concrete))

(defclass TerminatingEmployment "SUO 1.55: July 14, 2003\n&%OrganizationalProcesses where someone\nceases to be an employee of an &%Organization.  Note that this covers being\nlaid off, being fired, and voluntarily leaving a job."
	(is-a LeavingAnOrganization)
	(role concrete))

(defclass PoliticalProcess "SUO 1.55: July 14, 2003\nAn &%OrganizationalProcess carried\nout by, for or against officially constituted governments.  Some examples\nwould be voting on proposed legislation, electing a government representative,\nor even overthrowing a government in a revolution."
	(is-a OrganizationalProcess)
	(role concrete))

(defclass JudicialProcess "SUO 1.55: July 14, 2003\nAny legal proceeding which is conducted\nby a &%JudicialOrganization.  Note that there is an important difference\nbetween the concepts &%LegalAction and &%JudicialProcess.  The former\nrefers to legal claims that are brought by a plaintiff, e.g. law suits,\nwhile the second refers to trials and other sorts of judicial hearings\nwhere the merits of a &%LegalAction are decided."
	(is-a PoliticalProcess)
	(role concrete))

(defclass MilitaryProcess "SUO 1.55: July 14, 2003\nAny &%Process that is carried out by a\nmilitary organization.  Note that this class covers &%Processes, e.g.\nmilitary operations, that are the result of careful planning, as well as\nthose which are unscripted."
	(is-a PoliticalProcess)
	(role concrete))

(defclass Guiding "SUO 1.55: July 14, 2003\nAny &%IntentionalProcess where the &%agent tries to\ndirect the movements of another &%Object, whether an &%Agent or not."
	(is-a IntentionalProcess)
	(role concrete))

(defclass RegulatoryProcess "SUO 1.55: July 14, 2003\nan &%Guiding whose aim is the enforcement\nof rules or regulations.  Note the key differences between &%RegulatoryProcess\nand the related concept &%Managing.  The latter implies a long-term relationship\nbetween a single manager and limited number of agents who are managed, while the\nformer implies a normative standard to which the activities of the regulated are\nreferred."
	(is-a Guiding)
	(role concrete))

(defclass Managing "SUO 1.55: July 14, 2003\n&%OrganizationalProcesses that involve overseeing\nthe activities of others.  Note the key differences between &%RegulatoryProcess\nand its sibling &%Managing.  The latter implies a long-term relationship between\nthe manager and the managed, while the former implies a normative standard to which\nthe activities of the regulated are referred."
	(is-a OrganizationalProcess Guiding)
	(role concrete))

(defclass Steering "SUO 1.55: July 14, 2003\nControlling the direction and/or speed of a\n&%TransportationDevice.  This includes navigating a ship, driving a car\nor truck, operating a train, etc."
	(is-a Guiding)
	(role concrete))

(defclass EducationalProcess "SUO 1.55: July 14, 2003\nAny &%Process which is intended to result\nin &%Learning."
	(is-a Guiding)
	(role concrete))

(defclass Keeping "SUO 1.55: July 14, 2003\nThe &%Class of &%Processes where the &%agent\nkeeps something in a particular location for an extended period of time."
	(is-a IntentionalProcess)
	(role concrete))

(defclass Confining "SUO 1.55: July 14, 2003\nThe &%Class of &%Keeping &%Processes where the\n&%patient is a &%Human or an &%Animal and is kept involuntarily.  This covers\ncaging, imprisonment, jailing, etc."
	(is-a Keeping)
	(role concrete))

(defclass Maintaining "SUO 1.55: July 14, 2003\nThe &%Class of &%Processes where the &%agent\ncares for or maintains the &%Object."
	(is-a IntentionalProcess)
	(role concrete))

(defclass Repairing "SUO 1.55: July 14, 2003\nThe &%Class of &%Processes where the &%agent\nmakes a modification or series of modifications to an &%Object that is not\nfunctioning as intended so that it works properly."
	(is-a IntentionalProcess)
	(role concrete))

(defclass TherapeuticProcess "SUO 1.55: July 14, 2003\nA &%Process that is carried out\nfor the purpose of curing, improving or reducing the pain associated\nwith a &%DiseaseOrSyndrome."
	(is-a Repairing)
	(role concrete))

(defclass Surgery "SUO 1.55: July 14, 2003\nAny &%TherapeuticProcess that involves making an\nincision in the &%Animal that is the &%patient of the &%TherapeuticProcess."
	(is-a TherapeuticProcess)
	(role concrete))

(defclass Poking "SUO 1.55: July 14, 2003\nThe &%Class of &%Processes where the &%agent\npierces the surface of the &%Object with an &%instrument."
	(is-a IntentionalProcess)
	(role concrete))

(defclass Cutting "SUO 1.55: July 14, 2003\nThe &%subclass of &%Poking &%Processes which\ninvolve a sharp &%instrument."
	(is-a Poking)
	(role concrete))

(defclass ContentDevelopment "SUO 1.55: July 14, 2003\nA &%subclass of &%IntentionalProcess in\nwhich content is modified, its form is altered or it is created anew."
	(is-a IntentionalProcess)
	(role concrete))

(defclass Reading "SUO 1.55: July 14, 2003\nA &%subclass of &%ContentDevelopment in which\ncontent is converted from a written form into a spoken representation.\nNote that the class &%Interpreting should be used in cases where a\n&%Text is read silently."
	(is-a ContentDevelopment)
	(role concrete))

(defclass Writing "SUO 1.55: July 14, 2003\nA &%subclass of &%ContentDevelopment in which\ncontent is converted from one form (e.g. uttered, written or represented\nmentally) into a written form.  Note that this class covers both\ntranscription and original creation of written &%Texts."
	(is-a ContentDevelopment)
	(role concrete))

(defclass Encoding "SUO 1.55: July 14, 2003\nConverting a document or message into a formal\nlanguage or into a code that can be understood only by a relatively small\nbody of &%Agents.  Generally speaking, this hinders wide dissemination of\nthe content in the original document or message."
	(is-a Writing)
	(role concrete))

(defclass Decoding "SUO 1.55: July 14, 2003\nConverting a document or message that has previously\nbeen encoded (see &%Encoding) into a &%Language that can be understood by a\nrelatively large number of speakers."
	(is-a Writing)
	(role concrete))

(defclass Translating "SUO 1.55: July 14, 2003\nConverting content from one &%Language into another."
	(is-a ContentDevelopment DualObjectProcess)
	(role concrete))

(defclass Pursuing "SUO 1.55: July 14, 2003\nThe class of &%IntentionalProcesses where something is\nsought.  Some examples would be hunting, shopping, trawling, and stalking."
	(is-a IntentionalProcess)
	(role concrete))

(defclass SocialInteraction "SUO 1.55: July 14, 2003\nThe &%subclass of\n&%IntentionalProcess that involves interactions between\n&%CognitiveAgents."
	(is-a IntentionalProcess)
	(role concrete))

(defclass ChangeOfPossession "SUO 1.55: July 14, 2003\nThe &%Class of &%Processes where\nownership of something is transferred from one &%Agent to another."
	(is-a SocialInteraction)
	(role concrete))

(defclass Giving "SUO 1.55: July 14, 2003\nThe &%subclass of &%ChangeOfPossession where the\n&%agent gives the &%destination something."
	(is-a ChangeOfPossession)
	(role concrete))

(defclass Funding "SUO 1.55: July 14, 2003\nAny instance of &%Giving where the &%patient is an\ninstance of &%Currency.  Note that this class covers both\n&%FinancialTransactions, e.g. where a firm funds a software company with\nventure capital with the agreement that a certain percentage of the profits\non the investment will be returned to the firm, and instances of\n&%UnilateralGiving, e.g. a stipend provided to a student as part of\nscholarship or fellowship."
	(is-a Giving)
	(role concrete))

(defclass UnilateralGiving "SUO 1.55: July 14, 2003\nAny instance of &%Giving that is not part\nof a &%Transaction.  In other words, any instance of &%Giving where nothing\nis received in return.  Some examples of &%UnilateralGiving are:  honorary\nawards, gifts, and financial grants."
	(is-a Giving)
	(role concrete))

(defclass Lending "SUO 1.55: July 14, 2003\nThe &%subclass of &%Giving &%Processes where\nthe &%agent gives the &%destination something for a limited period of\ntime with the expectation that it will be returned later (perhaps with\ninterest)."
	(is-a Giving)
	(role concrete))

(defclass GivingBack "SUO 1.55: July 14, 2003\nAny instance of &%Giving where the &%agent gives\nsomething to the &%destination which was previously given to the &%agent by\nthe &%destination, e.g. returing a book that was borrowed from someone."
	(is-a Giving)
	(role concrete))

(defclass Getting "SUO 1.55: July 14, 2003\nThe &%subclass of &%ChangeOfPossession where the\n&%agent gets something.  Note that the source from which something is\nobtained is specified with the &%origin &%CaseRole."
	(is-a ChangeOfPossession)
	(role concrete))

(defclass UnilateralGetting "SUO 1.55: July 14, 2003\nAny instance of &%Getting that is not part\nof a &%Transaction.  In other words, any instance of &%Getting where nothing\nis given in return.  Some examples of &%UnilateralGetting are:  appropriating,\ncommandeering, stealing, etc."
	(is-a Getting)
	(role concrete))

(defclass Borrowing "SUO 1.55: July 14, 2003\nThe &%subclass of &%Getting &%Processes where\nthe &%agent gets something for a limited period of time with the expectation\nthat it will be returned later (perhaps with interest)."
	(is-a Getting)
	(role concrete))

(defclass Transaction "SUO 1.55: July 14, 2003\nThe &%subclass of &%ChangeOfPossession where\nsomething is exchanged for something else."
	(is-a ChangeOfPossession DualObjectProcess)
	(role concrete))

(defclass FinancialTransaction "SUO 1.55: July 14, 2003\nA &%Transaction where an instance \nof &%CurrencyMeasure is exchanged for something else."
	(is-a Transaction)
	(role concrete)
	(single-slot transactionAmount
		(type INSTANCE)
;+		(allowed-classes CurrencyMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass CommercialService "SUO 1.55: July 14, 2003\nAny &%FinancialTransaction by a\n&%CommercialAgent where the aim is to produce a profit."
	(is-a FinancialTransaction)
	(role concrete))

(defclass Betting "SUO 1.55: July 14, 2003\nA &%FinancialTransaction where an instance of\n&%CurrencyMeasure is exchanged for the possibility of winning a larger\ninstance of &%CurrencyMeasure within the context of some sort of\n&%Game."
	(is-a FinancialTransaction)
	(role concrete))

(defclass Buying "SUO 1.55: July 14, 2003\nA &%FinancialTransaction in which an instance of\n&%CurrencyMeasure is exchanged for an instance of &%Physical."
	(is-a FinancialTransaction)
	(role concrete))

(defclass Selling "SUO 1.55: July 14, 2003\nA &%FinancialTransaction in which an instance of\n&%Physical is exchanged for an instance of &%CurrencyMeasure."
	(is-a FinancialTransaction)
	(role concrete))

(defclass Pretending "SUO 1.55: July 14, 2003\nAny &%SocialInteraction where a\n&%CognitiveAgent or &%Group of &%CognitiveAgents attempts to make\nanother &%CognitiveAgent or &%Group of &%CognitiveAgents believe\nsomething that is false.  This covers deceit, affectation,\nimpersonation, and entertainment productions, to give just a few\nexamples."
	(is-a SocialInteraction)
	(role concrete))

(defclass Communication "SUO 1.55: July 14, 2003\nA &%SocialInteraction that involves\nthe transfer of information between two or more &%CognitiveAgents.\nNote that &%Communication is closely related to, but essentially\ndifferent from, &%ContentDevelopment.  The latter involves the creation\nor modification of a &%ContentBearingObject, while &%Communication is\nthe transfer of information for the purpose of conveying a message."
	(is-a SocialInteraction)
	(role concrete))

(defclass Disseminating "SUO 1.55: July 14, 2003\nAny &%Communication that involves a\nsingle &%agent and many &%destinations.  This covers the release\nof a published book, broadcasting, a theatrical performance, giving\norders to assembled troops, delivering a public lecture, etc."
	(is-a Communication)
	(role concrete))

(defclass Demonstrating "SUO 1.55: July 14, 2003\nExhibiting something or a range of things\nbefore the public in a particular location.  This would cover software\ndemos, theatrical plays, lectures, dance and music recitals, museum\nexhibitions, etc."
	(is-a Disseminating)
	(role concrete)
	(single-slot attends
;+		(comment "(&%attends ?DEMO ?PERSON) means that ?PERSON attends, i.e. is a member of the audience, of the performance event ?DEMO.\n\n(&%experiencer ?PROCESS ?AGENT) means that ?AGENT experiences the &%Process ?PROCESS.  For example, Yojo is the &%experiencer of seeing in the following proposition:  Yojo sees the fish.  Note that &%experiencer, unlike &%agent, does not entail a causal relation between its arguments.")
		(type INSTANCE)
;+		(allowed-classes Human)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Advertising "SUO 1.55: July 14, 2003\nA &%Disseminating whose purpose is to\npromote the sale of an &%Object represented in a &%Text or &%Icon\n(the advertisement)."
	(is-a Disseminating)
	(role concrete))

(defclass Expressing "SUO 1.55: July 14, 2003\nInstances of this &%Class express a state of the &%agent.\nFor example, Jane thanked Barbara for the present she had given her.  The thanking\nin this case expresses the gratitude of Jane towards Barbara.  Note that &%Expressing,\nunlike the other speech act types, is not a subclass of &%LinguisticCommunication.\nThis is because emotions, for example, can be expressed without language, e.g. by\nsmiling."
	(is-a Communication)
	(role concrete))

(defclass LinguisticCommunication "SUO 1.55: July 14, 2003\nA &%Communication that involves\nthe transfer of information via a &%LinguisticExpression."
	(is-a Communication)
	(role concrete))

(defclass ExpressingInLanguage "SUO 1.55: July 14, 2003\nAny instance of &%Expressing that is also an\ninstance of &%LinguisticCommunication, e.g. thanking someone, expressing condolence,\nexpressing disapproval with an utterance rather than a &%Gesture, etc."
	(is-a Expressing LinguisticCommunication)
	(role concrete))

(defclass Stating "SUO 1.55: July 14, 2003\nInstances of this &%Class commit the &%agent to some truth.\nFor example, John claimed that the moon is made of green cheese."
	(is-a LinguisticCommunication)
	(role concrete))

(defclass Supposing "SUO 1.55: July 14, 2003\nInstances of this &%Class suppose, for the sake of\nargument, that a proposition is true.  For example, John considered what he\nwould do if he won the lottery."
	(is-a LinguisticCommunication)
	(role concrete))

(defclass Directing "SUO 1.55: July 14, 2003\nInstances of this &%Class urge some further action\namong the receivers.  A &%Directing can be an &%Ordering, a &%Requesting or\na &%Questioning."
	(is-a LinguisticCommunication)
	(role concrete))

(defclass Ordering "SUO 1.55: July 14, 2003\nA &%Directing in which the receiver is\ncommanded to realize the content of a &%ContentBearingObject.  Orders\nare injunctions, the disobedience of which involves sanctions, or\nwhich express an obligation upon the part of the orderee."
	(is-a Directing)
	(role concrete))

(defclass Requesting "SUO 1.55: July 14, 2003\nA request expresses a desire that some future\naction be performed.  For example, the 5th Battalion requested air support\nfrom the 3rd Bomber Group.  Note that this class covers proposals,\nrecommendations, suggestions, etc."
	(is-a Directing)
	(role concrete))

(defclass Questioning "SUO 1.55: July 14, 2003\nA request for information.  For example, John asked\nBill if the President had said anything about taxes in his State of the Union\naddress."
	(is-a Directing)
	(role concrete))

(defclass Committing "SUO 1.55: July 14, 2003\nInstances of this &%Class commit the &%agent to some\nfuture course.  For example, Bob promised Susan that he would be home by 11pm."
	(is-a LinguisticCommunication)
	(role concrete))

(defclass Offering "SUO 1.55: July 14, 2003\nThe subclass of &%Committing in which a &%CognitiveAgent offers something &%Physical to another agent. Offerings may be unconditional (in which case they are a promise to effect a &%UnilateralGiving) or conditional (in which case they are a promise to effect a &%Transaction of some sort)."
	(is-a Committing)
	(role concrete))

(defclass Declaring "SUO 1.55: July 14, 2003\nThe &%Class of &%LinguisticCommunications that\neffect an institutional alteration when performed by competent authority.\nSome examples are nominating, marrying, and excommunicating."
	(is-a LinguisticCommunication)
	(role concrete))

(defclass Wedding "SUO 1.55: July 14, 2003\nAny &%Declaring that leads to one person being\nthe &%spouse of another."
	(is-a Declaring)
	(role concrete))

(defclass Naming "SUO 1.55: July 14, 2003\nThe &%Process of assigning a name to someone or something."
	(is-a Declaring)
	(role concrete))

(defclass Cooperation "SUO 1.55: July 14, 2003\nThe &%subclass of &%SocialInteraction where\nthe participants involved work together for the achievement of a common\ngoal."
	(is-a SocialInteraction)
	(role concrete))

(defclass Meeting "SUO 1.55: July 14, 2003\nThe coming together of two or more\n&%CognitiveAgents for the purpose of &%Communication.  This covers informal\nmeetings, e.g. visits with family members, and formal meetings, e.g. a board\nof directors meeting."
	(is-a SocialInteraction)
	(role concrete))

(defclass Contest "SUO 1.55: July 14, 2003\nA &%SocialInteraction where the &%agent and\n&%patient are &%CognitiveAgents who are trying to defeat one another.\nNote that this concept is often applied in a metaphorical sense in natural\nlanguage, when we speak, e.g., of the struggle of plants for space or\nsunlight, or of bacteria for food resources in some environment."
	(is-a SocialInteraction)
	(role concrete))

(defclass ViolentContest "SUO 1.55: July 14, 2003\nA &%Contest where one participant attempts to\nphysically injure another participant."
	(is-a Contest)
	(role concrete))

(defclass War "SUO 1.55: July 14, 2003\nA military confrontation between two or more\n&%GeopoliticalAreas or &%Organizations whose members are &%GeopoliticalAreas.\nAs the corresponding axiom specifies, a &%War is made up of &%Battles."
	(is-a ViolentContest)
	(role concrete))

(defclass Battle "SUO 1.55: July 14, 2003\nA &%ViolentContest between two or more military\nunits within the context of a war.  Note that this does not cover the\nmetaphorical sense of 'battle', which simply means a struggle of some\nsort.  This sense should be represented with the more general concept of\n&%Contest."
	(is-a ViolentContest)
	(role concrete))

(defclass Game "SUO 1.55: July 14, 2003\nA &%Contest whose purpose is the\nenjoyment/stimulation of the participants or spectators of the &%Game."
	(is-a Contest RecreationOrExercise)
	(role concrete))

(defclass Sport "SUO 1.55: July 14, 2003\nA &%Game which requires some degree of physical\nexercion from the participants of the game."
	(is-a Game)
	(role concrete))

(defclass LegalAction "SUO 1.55: July 14, 2003\nAny &%Process where a &%CognitiveAgent seeks\nto obtain something through a court of law."
	(is-a Contest)
	(role concrete))

(defclass Maneuver "SUO 1.55: July 14, 2003\nAn intentional move or play within a &%Contest.\nIn many cases, a &%Maneuver is a realization of part of a strategy for\nwinning the &%Contest, but it also may be just an arbitrary or semi-arbitrary\ndivision of the overarching &%Contest, e.g. innings in a baseball game."
	(is-a IntentionalProcess)
	(role concrete))

(defclass Attack "SUO 1.55: July 14, 2003\nA &%Maneuver in a &%ViolentContest where the\n&%agent attempts to inflict damage on the &%patient."
	(is-a Maneuver)
	(role concrete))

(defclass DefensiveManeuver "SUO 1.55: July 14, 2003\nA &%Maneuver in a &%ViolentContest\nwhere the &%agent attempts to avoid being damaged."
	(is-a Maneuver)
	(role concrete))

(defclass Searching "SUO 1.15: September 6, 2001\nAny &%Process where the aim is to find something, whether it be information (i.e. a &%Proposition) or an &%Object."
	(is-a IntentionalProcess)
	(role concrete))

(defclass Motion "SUO 1.55: July 14, 2003\nAny &%Process of movement."
	(is-a Process)
	(role concrete)
	(single-slot path
;+		(comment "(&%path ?MOTION ?PATH) means that ?PATH is a route along which ?MOTION occurs.  For example, Highway 101 is the path in the following proposition:  the car drove up Highway 101.")
		(type INSTANCE)
;+		(allowed-classes Object)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass BodyMotion "SUO 1.55: July 14, 2003\nAny &%Motion where the &%agent is an &%Organism\nand the &%patient is a &%BodyPart."
	(is-a Motion)
	(role concrete))

(defclass Swimming "SUO 1.55: July 14, 2003\nAny deliberate and controlled &%BodyMotion\nthrough water that is accomplished by an &%Organism."
	(is-a BodyMotion)
	(role concrete))

(defclass Dancing "SUO 1.55: July 14, 2003\nAny &%BodyMotion of &%Humans which is\ndeliberately coordinated with music."
	(is-a BodyMotion)
	(role concrete))

(defclass Gesture "SUO 1.55: July 14, 2003\nAny &%BodyMotion, e.g. a hand wave, a nod of the\nhead, a smile, which expresses a &%StateOfMind."
	(is-a Expressing BodyMotion)
	(role concrete))

(defclass GeologicalProcess "SUO 1.55: July 14, 2003\nThe class of activities that\nare caused by geological forces and affect geological features,\nand which may affect the biosphere as well."
	(is-a Motion)
	(role concrete))

(defclass LiquidMotion "SUO 1.55: July 14, 2003\nAny &%Motion where the &%patient is a\n&%Liquid.  This class would cover, in particular, the flow of\n&%Water."
	(is-a Motion)
	(role concrete))

(defclass WaterMotion
	(is-a LiquidMotion)
	(role concrete))

(defclass GasMotion "SUO 1.55: July 14, 2003\nAny &%Motion where the &%patient is a\n&%Gas.  This class would cover, in particular, the motion of\n&%Air, e.g. a breeze or wind."
	(is-a Motion)
	(role concrete))

(defclass Wind "SUO 1.55: July 14, 2003\nAny &%Motion of &%Air."
	(is-a GasMotion)
	(role concrete))

(defclass DirectionChange "SUO 1.55: July 14, 2003\nThe act of changing the direction in\nwhich the &%patient of the act is oriented."
	(is-a Motion)
	(role concrete))

(defclass Translocation "SUO 1.55: July 14, 2003\n&%Translocation is that class of &%Motions\nin which an object moves from one place to another.  In the case of round\ntrips, the &%origin and &%destination are the same, but the intervening\nmotion passes through other locations.  &%Translocation represents linear\nmotion, in contrast to rotation or other movement in place.  A vehicle is\nnot necessary; &%Ambulating is a kind of &%Translocation."
	(is-a Motion)
	(role concrete))

(defclass Ambulating "SUO 1.55: July 14, 2003\nAny &%BodyMotion which is accomplished by\nmeans of the legs of an &%Animal for the purpose of moving from one\npoint to another."
	(is-a BodyMotion Translocation)
	(role concrete))

(defclass Walking "SUO 1.55: July 14, 2003\n&%Ambulating relatively slowly, i.e. moving in such a\nway that at least one foot is always in contact with the ground."
	(is-a Ambulating)
	(role concrete))

(defclass Running "SUO 1.55: July 14, 2003\n&%Ambulating relatively quickly, i.e. moving in such a\nway that, with each step, neither foot is in contact with the ground for a\nperiod of time."
	(is-a Ambulating)
	(role concrete))

(defclass Transfer "SUO 1.55: July 14, 2003\nAny &%instance of &%Translocation where the &%agent\nand the &%patient are not the same thing."
	(is-a Translocation)
	(role concrete))

(defclass Carrying "SUO 1.55: July 14, 2003\n&%Transfer from one point to another by means of\nan &%Animal or &%Human."
	(is-a Transfer)
	(role concrete))

(defclass Removing "SUO 1.55: July 14, 2003\nThe &%Class of &%Processes where something is\ntaken away from a location.  Note that the thing removed and the location\nare specified with the &%CaseRoles &%patient and &%origin, respectively."
	(is-a Transfer)
	(role concrete))

(defclass Uncovering "SUO 1.55: July 14, 2003\nThe &%Class of &%Removing processes where the &%agent\nuncovers the &%patient, either completely or only partially."
	(is-a Removing)
	(role concrete))

(defclass Drying "SUO 1.55: July 14, 2003\nThe &%Class of &%Processes where a &%Liquid is removed\nfrom an &%Object."
	(is-a Removing)
	(role concrete))

(defclass Putting "SUO 1.55: July 14, 2003\nThe &%Class of &%Processes where something is put\nin a location.  Note that the location is specified with the &%CaseRole\n&%destination."
	(is-a Transfer)
	(role concrete))

(defclass Covering "SUO 1.55: July 14, 2003\nThe &%Class of &%Putting processes where the &%agent\ncovers the &%patient, either completely or only partially, with something\nelse."
	(is-a Putting)
	(role concrete))

(defclass Dressing "SUO 1.55: July 14, 2003\nThe &%Process of putting on &%Clothing."
	(is-a Covering)
	(role concrete))

(defclass Inserting "SUO 1.55: July 14, 2003\n&%Putting one thing inside of another thing."
	(is-a Putting)
	(role concrete))

(defclass Injecting "SUO 1.55: July 14, 2003\n&%Inserting a &%BiologicallyActiveSubstance into an\n&%Animal or a &%Human with a syringe."
	(is-a Inserting)
	(role concrete))

(defclass Wetting "SUO 1.55: July 14, 2003\nThe &%Class of &%Processes where a &%Liquid is\nadded to an &%Object."
	(is-a Putting)
	(role concrete))

(defclass Substituting "SUO 1.55: July 14, 2003\nThe &%Class of &%Transfers where one thing is\nreplaced with something else."
	(is-a Transfer DualObjectProcess)
	(role concrete))

(defclass Impelling "SUO 1.55: July 14, 2003\nThe &%subclass of &%Transfer where the &%patient\ntravels through space by means of a sudden, forceful event.  Some examples\nwould be shooting, throwing, tossing, etc."
	(is-a Transfer)
	(role concrete))

(defclass Shooting "SUO 1.55: July 14, 2003\nThe &%subclass of &%Impelling where the &%patient\nis a projectile that is fired through the air by means of some sort of\n&%Device."
	(is-a Impelling)
	(role concrete))

(defclass Touching "SUO 1.55: July 14, 2003\nAny &%Transfer where two &%Objects are\nbrought into immediate physical contact with one another."
	(is-a Transfer)
	(role concrete))

(defclass Grabbing "SUO 1.55: July 14, 2003\nAny instance of &%Touching which results in\na situation where the &%agent &%grasps the &%patient of the &%Touching."
	(is-a Touching)
	(role concrete))

(defclass Impacting "SUO 1.55: July 14, 2003\nAny &%Touching where something comes into\nsudden, forceful, physical contact with something else.  Some examples\nwould be striking, knocking, whipping etc."
	(is-a Touching)
	(role concrete))

(defclass Releasing "SUO 1.55: July 14, 2003\nAny instance of &%Transfer which results in\na situation where it is not the case that the &%agent &%grasps something\nwhich he/she &%grasps previously."
	(is-a Transfer)
	(role concrete))

(defclass Sending
	(is-a Transfer)
	(role concrete))

(defclass Shipping
	(is-a Sending)
	(role concrete))

(defclass Mailing
	(is-a Sending)
	(role concrete))

(defclass Receiving
	(is-a Transfer)
	(role concrete))

(defclass Transportation "SUO 1.55: July 14, 2003\n&%Motion from one point to another by means\nof a &%TransportationDevice."
	(is-a Translocation)
	(role concrete))

(defclass Radiating "SUO 1.55: July 14, 2003\nProcesses in which some form of electromagnetic\nradiation, e.g. radio waves, light waves, electrical energy, etc., is given\noff or absorbed by something else."
	(is-a Motion)
	(role concrete))

(defclass RadiatingLight "SUO 1.55: July 14, 2003\nThe &%subclass of &%Radiating in which\nlight is given off or absorbed.  Some examples include blinking, flashing,\nand glittering."
	(is-a Radiating)
	(role concrete))

(defclass RadiatingSound "SUO 1.55: July 14, 2003\nThe &%subclass of &%Radiating in which\nsound waves are given off or absorbed.  Some examples include creaking,\nroaring, and whistling."
	(is-a Radiating)
	(role concrete))

(defclass Vocalizing "SUO 1.55: July 14, 2003\nAny instance of &%RadiatingSound where the\n&%instrument is the &%Human vocal cords.  This covers grunts, screams,\nroars, as well as &%Speaking."
	(is-a RadiatingSound BodyMotion)
	(role concrete))

(defclass Speaking "SUO 1.55: July 14, 2003\nAny &%LinguisticGeneration which is also a\n&%Vocalizing, i.e. any &%LinguisticCommunication by a &%Human which\ninvolves his/her vocal cords."
	(is-a LinguisticCommunication Vocalizing)
	(role concrete))

(defclass Music "SUO 1.55: July 14, 2003\nThe &%subclass of &%RadiatingSound where the\nsound is intended to be melodic and is produced deliberately."
	(is-a RadiatingSound)
	(role concrete))

(defclass Singing "SUO 1.55: July 14, 2003\n&%Speaking that is also &%Music."
	(is-a Speaking Music)
	(role concrete))

(defclass RadiatingElectromagnetic "SUO 1.55: July 14, 2003\n&%RadiatingElectromagnetic\nis the subclass of &%Radiating processes in which electromagnetic\nradiation is transmitted or absorbed."
	(is-a Radiating)
	(role concrete))

(defclass RadiatingNuclear "SUO 1.55: July 14, 2003\nReleasing atomic energy, i.e. energy from\na nuclear reaction."
	(is-a Radiating)
	(role concrete))

(defclass InternalChange "SUO 1.55: July 14, 2003\n&%Processes which involve altering an internal\nproperty of an &%Object, e.g. the shape of the &%Object, its coloring, its\nstructure, etc.  &%Processes that are not instances of this class include\nchanges that only affect the relationship to other objects, e.g. changes in\nspatial or temporal location."
	(is-a Process)
	(role concrete))

(defclass BiologicalProcess "SUO 1.55: July 14, 2003\nA &%Process embodied in an &%Organism."
	(is-a InternalChange)
	(role concrete))

(defclass PhysiologicProcess "SUO 1.55: July 14, 2003\nA normal process of an &%Organism\nor part of an &%Organism."
	(is-a BiologicalProcess)
	(role concrete))

(defclass AutonomicProcess "SUO 1.55: July 14, 2003\nThe class of &%PhysiologicProcesses of\nwhich there is not conscious awareness and control."
	(is-a PhysiologicProcess)
	(role concrete))

(defclass OrganismProcess "SUO 1.55: July 14, 2003\nA physiologic function of the\n&%Organism as a whole, of multiple organ systems or of multiple\n&%Organs or &%Tissues."
	(is-a PhysiologicProcess)
	(role concrete))

(defclass Birth "SUO 1.55: July 14, 2003\nThe &%Process of being born."
	(is-a OrganismProcess)
	(role concrete))

(defclass Death "SUO 1.55: July 14, 2003\nThe &%Process of dying."
	(is-a OrganismProcess)
	(role concrete))

(defclass Breathing "SUO 1.55: July 14, 2003\nThe &%Process of respiration, by which oxygen\nis made available to an &%Animal.  This covers processes of inhalation,\nexhalation, and alternations between the two."
	(is-a OrganismProcess)
	(role concrete))

(defclass Ingesting "SUO 1.55: July 14, 2003\nThe &%Process by which &%Food is\ntaken into an &%Animal."
	(is-a OrganismProcess)
	(role concrete))

(defclass Eating "SUO 1.55: July 14, 2003\nThe &%Process by which solid &%Food is\nincorporated into an &%Animal."
	(is-a Ingesting)
	(role concrete))

(defclass Drinking "SUO 1.55: July 14, 2003\nThe &%Process by which liquid &%Food, i.e.\n&%Beverages, are incorporated into an &%Animal."
	(is-a Ingesting)
	(role concrete))

(defclass Digesting "SUO 1.55: July 14, 2003\nThe &%Process by which &%Food that has been\ningested is broken down into simpler chemical compounds and absorbed by\nthe &%Organism."
	(is-a OrganismProcess)
	(role concrete))

(defclass Growth "SUO 1.55: July 14, 2003\nThe &%Process of biological development in which\nan &%Organism or part of an &%Organism changes its form or its size."
	(is-a OrganismProcess)
	(role concrete))

(defclass Replication "SUO 1.55: July 14, 2003\nThe &%Process of biological reproduction.\nThis can be either a sexual or an asexual process."
	(is-a OrganismProcess)
	(role concrete))

(defclass SexualReproduction "SUO 1.55: July 14, 2003\nSexual &%Processes of biological\nreproduction."
	(is-a Replication)
	(role concrete))

(defclass AsexualReproduction "SUO 1.55: July 14, 2003\nAsexual &%Processes of biological\nreproduction."
	(is-a Replication)
	(role concrete))

(defclass OrganOrTissueProcess "SUO 1.55: July 14, 2003\nA &%PhysiologicProcess of a\nparticular &%Organ or &%Tissue."
	(is-a PhysiologicProcess)
	(role concrete))

(defclass PsychologicalProcess "SUO 1.55: July 14, 2003\nA &%BiologicalProcess which takes place in\nthe mind or brain of an &%Organism and which may be manifested in the behavior\nof the &%Organism."
	(is-a BiologicalProcess)
	(role concrete))

(defclass IntentionalPsychologicalProcess "SUO 1.55: July 14, 2003\nAn &%IntentionalProcess that\ncan be realized entirely within the mind or brain of an &%Organism.  Thus,\nfor example, &%Reasoning is a subclass of &%IntentionalPsychologicalProcess,\nbecause one can reason simply by exercising one's mind/brain.  On the other\nhand, &%RecreationOrExercise is not a subclass of &%IntentionalPsychologicalProcess,\nbecause many instances of &%RecreationOrExercise necessarily have &%subProcesses\nof &%BodyMotion."
	(is-a IntentionalProcess PsychologicalProcess)
	(role concrete))

(defclass Planning "SUO 1.55: July 14, 2003\nSpecifying a set of actions in order to meet a\nset of goals or objectives."
	(is-a IntentionalPsychologicalProcess)
	(role concrete))

(defclass Designing "SUO 1.55: July 14, 2003\nThe spatial analogue of &%Planning.  &%Designing a\n&%Collection of &%Objects involves determining a placement of the &%Objects\nwith respect to one another and perhaps other &%Objects as well, in order to\nsatisfy a particular purpose."
	(is-a IntentionalPsychologicalProcess)
	(role concrete))

(defclass Interpreting "SUO 1.55: July 14, 2003\nAny &%Process of assigning a &%Proposition to\na &%Text, i.e. understanding the &%Text."
	(is-a IntentionalPsychologicalProcess)
	(role concrete))

(defclass Learning "SUO 1.55: July 14, 2003\nThe &%Class of &%Processes which relate to the\nacquisition of information."
	(is-a IntentionalPsychologicalProcess)
	(role concrete))

(defclass Discovering "SUO 1.55: July 14, 2003\nFinding something that was sought.  Note that\nthis class is restricted to cases of discovering something &%Physical.\nFor cases involving the acquisition of knowledge, the class &%Learning\nshould be used."
	(is-a IntentionalPsychologicalProcess)
	(role concrete))

(defclass Classifying "SUO 1.55: July 14, 2003\nThe &%Class of &%IntentionalPsychologicalProcesses\nwhich involve attaching a name or category to a thing or set of things.\nNote that &%Classifying is distinguished from &%Learning by the fact\nthat the latter covers the acquisition by a &%CognitiveAgent of any\n&%Proposition, while the former involves the assignment of a label\nor category."
	(is-a IntentionalPsychologicalProcess)
	(role concrete))

(defclass Reasoning "SUO 1.55: July 14, 2003\nThe &%Class of &%IntentionalPsychologicalProcesses\nwhich involve concluding, on the basis of either deductive or inductive\nevidence, that a particular &%Proposition or &%Sentence is true."
	(is-a IntentionalPsychologicalProcess)
	(role concrete))

(defclass Selecting "SUO 1.55: July 14, 2003\nThe &%Class of &%IntentionalPsychologicalProcesses\nwhich involve opting for one or more &%Entity out of a larger set of &%Entities."
	(is-a IntentionalPsychologicalProcess)
	(role concrete))

(defclass Deciding "SUO 1.55: July 14, 2003\nThe subclass of &%Selecting where the &%agent\nopts for one course of action out of a set of multiple possibilities."
	(is-a Selecting)
	(role concrete))

(defclass LegalDecision "SUO 1.55: July 14, 2003\nA decision issued by a court with respect to\na &%LegalAction."
	(is-a Deciding Declaring)
	(role concrete))

(defclass Voting "SUO 1.55: July 14, 2003\n&%Voting is the activity of voting in an\n&%Election.  Voting is typically done by individuals, while &%Elections\nare conducted by &%Organizations.  The voting process by an individual\nvoter is part of an &%Election process."
	(is-a Selecting)
	(role concrete))

(defclass Comparing "SUO 1.55: July 14, 2003\nThe &%Class of &%IntentionalPsychologicalProcesses\nwhich involve comparing, relating, contrasting, etc. the properties of\ntwo or more &%Entities."
	(is-a IntentionalPsychologicalProcess DualObjectProcess)
	(role concrete))

(defclass Calculating "SUO 1.55: July 14, 2003\n&%IntentionalPsychologicalProcesses which involve\nthe consideration and/or manipulation of instances of &%Quantity."
	(is-a IntentionalPsychologicalProcess)
	(role concrete))

(defclass Measuring "SUO 1.55: July 14, 2003\nThe &%Class of &%Calculating &%Processes where\nthe aim is to determine the &%PhysicalQuantity of some aspect of the &%patient."
	(is-a Calculating)
	(role concrete))

(defclass Counting "SUO 1.55: July 14, 2003\nEnumerating something.  The &%Class of &%Calculating\n&%Processes where the aim is to determine the &%Number corresponding to the\n&%patient."
	(is-a Calculating)
	(role concrete))

(defclass Predicting "SUO 1.55: July 14, 2003\nThe &%Class of &%IntentionalPsychologicalProcesses\nwhich involve the formulation of a &%Proposition about a state of affairs\nwhich might be realized in the future."
	(is-a IntentionalPsychologicalProcess)
	(role concrete))

(defclass Investigating "SUO 1.55: July 14, 2003\nThe class of &%IntentionalPsychologicalProcesses\nwhere the &%agent attempts to obtaina information (i.e. a &%Proposition denoted\nby a &%Formula)."
	(is-a IntentionalPsychologicalProcess)
	(role concrete))

(defclass DiagnosticProcess "SUO 1.55: July 14, 2003\nA &%Process that is carried out for\nthe purpose of determining the nature of a &%DiseaseOrSyndrome."
	(is-a Investigating)
	(role concrete))

(defclass Remembering "SUO 1.55: July 14, 2003\nThe &%Class of &%PsychologicalProcesses which\ninvolve the recollection of prior experiences and/or of knowledge\nwhich was previously acquired."
	(is-a PsychologicalProcess)
	(role concrete))

(defclass Perception "SUO 1.55: July 14, 2003\nSensing some aspect of the material world.\nNote that the &%agent of this sensing is assumed to be an &%Animal."
	(is-a PsychologicalProcess)
	(role concrete))

(defclass Seeing "SUO 1.55: July 14, 2003\nThe &%subclass of &%Perception in which the\nsensing is done by an ocular &%Organ."
	(is-a Perception)
	(role concrete))

(defclass Looking "SUO 1.55: July 14, 2003\nAny instance of &%Seeing which is intentional."
	(is-a Seeing IntentionalProcess)
	(role concrete))

(defclass Smelling "SUO 1.55: July 14, 2003\nThe &%subclass of &%Perception in which the\nsensing is done by an olefactory &%Organ."
	(is-a Perception)
	(role concrete))

(defclass Tasting "SUO 1.55: July 14, 2003\nThe &%subclass of &%Perception in which the\nsensing is done by of an &%Organ which can discriminate various tastes."
	(is-a Perception)
	(role concrete))

(defclass Hearing "SUO 1.55: July 14, 2003\nThe &%subclass of &%Perception in which the\nsensing is done by an auditory &%Organ."
	(is-a Perception)
	(role concrete))

(defclass Listening "SUO 1.55: July 14, 2003\nAny instance of &%Hearing which is intentional."
	(is-a Hearing IntentionalProcess)
	(role concrete))

(defclass TactilePerception "SUO 1.55: July 14, 2003\nThe &%subclass of &%Perception in which\nthe sensing is done by &%Touching.  Note that &%Touching need not involve\n&%TactilePerception.  For example, a person who has lost all sensation in\nboth of his legs would have no &%TactilePerception of anything his legs\nwere &%Touching."
	(is-a Perception)
	(role concrete))

(defclass PathologicProcess "SUO 1.55: July 14, 2003\nA disordered process, activity, or\nstate of the &%Organism as a whole, of a body system or systems, or of\nmultiple &%Organs or &%Tissues. Included here are normal responses to a\nnegative stimulus as well as patholologic conditions or states that are\nless specific than a disease. Pathologic functions frequently have\nsystemic effects."
	(is-a BiologicalProcess)
	(role concrete))

(defclass Damaging "SUO 1.55: July 14, 2003\nThe &%Class of &%Processes where the &%agent\nbrings about a situation where the &%patient no longer functions normally\nor as intended."
	(is-a InternalChange)
	(role concrete))

(defclass Injuring "SUO 1.55: July 14, 2003\nThe process of creating a traumatic wound or\ninjury.  Since &%Injuring is not possible without some biologic function\nof the organism being injured, it is a subclass of &%BiologicalProcess."
	(is-a PathologicProcess Damaging)
	(role concrete))

(defclass Poisoning "SUO 1.55: July 14, 2003\nA &%Poisoning is caused by an external\nsubstance.  Since &%Poisoning is not possible without some biologic\nfunction which affects the &%Organism being injured, it is a subclass\nof &%BiologicalProcess."
	(is-a Injuring)
	(role concrete))

(defclass Destruction "SUO 1.55: July 14, 2003\nThe &%subclass of &%Damagings in which\nthe &%patient (or an essential element of the &%patient) is destroyed.\nNote that the difference between this concept and its superclass is solely\none of extent."
	(is-a Damaging)
	(role concrete))

(defclass Killing "SUO 1.55: July 14, 2003\nThe &%subclass of &%Destruction in which the\ndeath of an &%Organism is caused by an &%Organism.  Note that in cases\nof suicide the &%Organism would be the same in both cases."
	(is-a Destruction)
	(role concrete))

(defclass ChemicalProcess "SUO 1.55: July 14, 2003\nA &%ChemicalProcess occurs whenever\nchemical compounds (&%CompoundSubstances) are formed or decomposed.\nFor example, reactants disappear as chemical change occurs, and products\nappear as chemical change occurs.  In a chemical change a chemical\nreaction takes place.  Catalysts in a &%ChemicalProcess may speed up the\nreaction, but aren't themselves produced or consumed.  Examples: rusting of\niron and the decomposition of water, induced by an electric current, to\ngaseous hydrogen and gaseous oxygen."
	(is-a InternalChange)
	(role concrete))

(defclass ChemicalSynthesis "SUO 1.55: July 14, 2003\nThe &%Class of &%ChemicalProcesses in\nwhich a &%CompoundSubstance is formed from simpler reactants."
	(is-a ChemicalProcess Combining)
	(role concrete))

(defclass ChemicalDecomposition "SUO 1.55: July 14, 2003\nThe &%Class of &%ChemicalProcesses\nin which a &%CompoundSubstance breaks down into simpler products."
	(is-a ChemicalProcess Separating)
	(role concrete))

(defclass Combustion "SUO 1.55: July 14, 2003\nThe &%Class of &%ChemicalProcesses in which an &%Object\nreacts with oxygen and gives off heat.  This includes all &%Processes in which\nsomething is burning."
	(is-a ChemicalDecomposition)
	(role concrete))

(defclass WeatherProcess "SUO 1.55: July 14, 2003\n&%WeatherProcess is the broadest class of\nprocesses that involve weather, including weather seasons (not to be confused\nwith instances of &%SeasonOfYear), weather systems, and short-term weather\nevents."
	(is-a InternalChange)
	(role concrete))

(defclass Precipitation "SUO 1.55: July 14, 2003\n&%Precipitation is the process of\nwater molecules falling from the air to the ground, in either a\nliquid or frozen state."
	(is-a WeatherProcess WaterMotion)
	(role concrete))

(defclass SurfaceChange "SUO 1.55: July 14, 2003\n&%Processes which involve altering\nthe properties that apply to the surface of an &%Object."
	(is-a InternalChange)
	(role concrete))

(defclass Coloring "SUO 1.55: July 14, 2003\nThe &%subclass of &%SurfaceChange where a\n&%ColorAttribute of the &%patient is altered."
	(is-a SurfaceChange)
	(role concrete))

(defclass ShapeChange "SUO 1.55: July 14, 2003\nThe &%Process of changing the shape of an &%Object."
	(is-a InternalChange)
	(role concrete))

(defclass Creation "SUO 1.55: July 14, 2003\nThe &%subclass of &%Process in which\nsomething is created.  Note that the thing created is specified\nwith the &%result &%CaseRole."
	(is-a InternalChange)
	(role concrete))

(defclass Making "SUO 1.55: July 14, 2003\nThe &%subclass of &%Creation in which an individual\n&%Artifact or a type of &%Artifact is made."
	(is-a Creation IntentionalProcess)
	(role concrete))

(defclass Constructing "SUO 1.55: July 14, 2003\nThe &%subclass of &%Making in which a\n&%StationaryArtifact is built."
	(is-a Making)
	(role concrete))

(defclass Manufacture "SUO 1.55: July 14, 2003\nThe &%Making of &%Artifacts on a mass\nscale."
	(is-a Making)
	(role concrete))

(defclass Publication "SUO 1.55: July 14, 2003\nThe &%Manufacture of &%Texts.  Note that\nthere is no implication that the &%Texts are distributed.  Such\ndistribution, when it occurs, is an instance of &%Dissemination."
	(is-a Manufacture ContentDevelopment)
	(role concrete))

(defclass Cooking "SUO 1.55: July 14, 2003\nThe &%Making of an &%instance of &%Food."
	(is-a Making)
	(role concrete))

(defclass StateChange "SUO 1.55: July 14, 2003\nAny &%Process where the &%PhysicalState\nof &%part of the &%patient of the &%Process changes."
	(is-a InternalChange)
	(role concrete))

(defclass Melting "SUO 1.55: July 14, 2003\nThe &%Class of &%Processes where an &%Object is\nheated and converted from a &%Solid to a &%Liquid."
	(is-a StateChange)
	(role concrete))

(defclass Boiling "SUO 1.55: July 14, 2003\nThe &%Class of &%Processes where an &%Object is\nheated and converted from a &%Liquid to a &%Gas."
	(is-a StateChange)
	(role concrete))

(defclass Condensing "SUO 1.55: July 14, 2003\nThe &%Class of &%Processes where an &%Object is\ncooled and converted from a &%Gas to a &%Liquid."
	(is-a StateChange)
	(role concrete))

(defclass Freezing "SUO 1.55: July 14, 2003\nThe &%Class of &%Processes where an &%Object is\ncooled and converted from a &%Liquid to a &%Solid."
	(is-a StateChange)
	(role concrete))

(defclass QuantityChange
	(is-a InternalChange)
	(role concrete))

(defclass Increasing "SUO 1.55: July 14, 2003\nAny &%QuantityChange where the &%PhysicalQuantity\nis increased."
	(is-a QuantityChange)
	(role concrete))

(defclass Heating "SUO 1.55: July 14, 2003\nAny &%Increasing &%Process where the &%PhysicalQuantity\nincreased is a &%TemperatureMeasure."
	(is-a Increasing)
	(role concrete))

(defclass Decreasing "SUO 1.55: July 14, 2003\nAny &%QuantityChange where the &%PhysicalQuantity\nis decreased."
	(is-a QuantityChange)
	(role concrete))

(defclass Cooling "SUO 1.55: July 14, 2003\nAny &%Decreasing &%Process where the &%PhysicalQuantity\ndecreased is a &%TemperatureMeasure."
	(is-a Decreasing)
	(role concrete))

(defclass Abstract "SUO 1.55: July 14, 2003\nProperties or qualities as distinguished from any\nparticular embodiment of the properties/qualities in a physical medium.\nInstances of Abstract can be said to exist in the same sense as mathematical\nobjects such as sets and relations, but they cannot exist at a particular\nplace and time without some physical encoding or embodiment."
	(is-a Entity)
	(role concrete))

(defclass Quantity "SUO 1.55: July 14, 2003\nAny specification of how many or how much of \nsomething there is.  Accordingly, there are two subclasses of &%Quantity:  \n&%Number (how many) and &%PhysicalQuantity (how much)."
	(is-a Abstract)
	(role concrete)
	(single-slot MinFn
;+		(comment "(&%MinFn ?NUMBER1 ?NUMBER2) is the smallest of ?NUMBER1 and ?NUMBER2.  In cases where ?NUMBER1 is equal to ?NUMBER2, &%MinFn returns one of its arguments.")
		(type INSTANCE)
;+		(allowed-classes Quantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MaxFn
;+		(comment "(&%MaxFn ?NUMBER1 ?NUMBER2) is the largest of ?NUMBER1 and ?NUMBER2.  In cases where ?NUMBER1 is equal to ?NUMBER2, &%MaxFn returns one of its arguments.")
		(type INSTANCE)
;+		(allowed-classes Quantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RemainderFn
;+		(comment "(RemainderFn ?NUMBER ?DIVISOR) is the remainder of the number ?NUMBER divided by the number ?DIVISOR.  The result has the same sign as ?DIVISOR.")
		(type INSTANCE)
;+		(allowed-classes Quantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ExponentiationFn
;+		(comment "(&%ExponentiationFn ?NUMBER ?INT) returns the &%RealNumber ?NUMBER raised to the power of the &%Integer ?INT.")
		(type INSTANCE)
;+		(allowed-classes Integer)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot greaterThanOrEqualTo
;+		(comment "(&%greaterThanOrEqualTo ?NUMBER1 ?NUMBER2) is true just in case the &%Quantity ?NUMBER1 is greater than the &%Quantity ?NUMBER2.")
		(type INSTANCE)
;+		(allowed-classes Quantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MultiplicationFn
;+		(comment "If ?NUMBER1 and ?NUMBER2 are &%Numbers, then (&%MultiplicationFn ?NUMBER1 ?NUMBER2) is the arithmetical product of these numbers.")
		(type INSTANCE)
;+		(allowed-classes Quantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DivisionFn
;+		(comment "If ?NUMBER1 and ?NUMBER2 are &%Numbers, then (&%DivisionFn ?NUMBER1 ?NUMBER2) is the result of dividing ?NUMBER1 by ?NUMBER2.  An exception occurs when ?NUMBER1 = 1, in which case (&%DivisionFn ?NUMBER1 ?NUMBER2) is the reciprocal of ?NUMBER2.")
		(type INSTANCE)
;+		(allowed-classes Quantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AdditionFn
;+		(comment "If ?NUMBER1 and ?NUMBER2 are &%Numbers, then (&%AdditionFn ?NUMBER1 ?NUMBER2) is the arithmetical sum of these numbers.")
		(type INSTANCE)
;+		(allowed-classes Quantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot greaterThan
;+		(comment "(&%greaterThan ?NUMBER1 ?NUMBER2) is true just in case the &%Quantity ?NUMBER1 is greater than the &%Quantity ?NUMBER2.")
		(type INSTANCE)
;+		(allowed-classes Quantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot lessThan
;+		(comment "(&%lessThan ?NUMBER1 ?NUMBER2) is true just in case the &%Quantity ?NUMBER1 is less than the &%Quantity ?NUMBER2.")
		(type INSTANCE)
;+		(allowed-classes Quantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RoundFn
;+		(comment "(&%RoundFn ?NUMBER) is the &%Integer closest to ?NUMBER on the number line.  If ?NUMBER is halfway between two &%Integers (for example 3.5), it denotes the larger &%Integer.")
		(type INSTANCE)
;+		(allowed-classes Quantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot lessThanOrEqualTo
;+		(comment "(&%lessThanOrEqualTo ?NUMBER1 ?NUMBER2) is true just in case the &%Quantity ?NUMBER1 is less than or equal to the &%Quantity ?NUMBER2.")
		(type INSTANCE)
;+		(allowed-classes Quantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ReciprocalFn
;+		(comment "(ReciprocalFn ?NUMBER) is the reciprocal element of ?NUMBER with respect to the multiplication operator (&%MultiplicationFn), i.e. 1/?NUMBER.  Not all numbers have a reciprocal element.  For example the number 0 does not.  If a number ?NUMBER has a reciprocal ?RECIP, then the product of ?NUMBER and ?RECIP will be 1, e.g. 3*1/3 = 1.  The reciprocal of an element is &%equal to applying the &%ExponentiationFn function to the element to the power -1.")
		(type INSTANCE)
;+		(allowed-classes Quantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SubtractionFn
;+		(comment "If ?NUMBER1 and ?NUMBER2 are &%Numbers, then (&%SubtractionFn ?NUMBER1 ?NUMBER2) is the arithmetical difference between ?NUMBER1 and ?NUMBER2, i.e. ?NUMBER1 minus ?NUMBER2.  An exception occurs when ?NUMBER1 is equal to 0, in which case (&%SubtractionFn ?NUMBER1 ?NUMBER2) is the negation of ?NUMBER2.")
		(type INSTANCE)
;+		(allowed-classes Quantity)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Number "SUO 1.55: July 14, 2003\nA measure of how many things there are, or how\nmuch there is, of a certain kind.  &%Numbers are subclassed into \n&%RealNumber, &%ComplexNumber, and &%ImaginaryNumber."
	(is-a Quantity)
	(role concrete)
	(single-slot RationalNumberFn
;+		(comment "(&%RationalNumberFn ?NUMBER) returns the rational representation of ?NUMBER.")
		(type INSTANCE)
;+		(allowed-classes RationalNumber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RealNumberFn
;+		(comment "(RealNumberFn ?NUMBER) returns the part of ?NUMBER that is a &%RealNumber.")
		(type INSTANCE)
;+		(allowed-classes RealNumber)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass RealNumber "SUO 1.55: July 14, 2003\nAny &%Number that can be expressed as a \n(possibly infinite) decimal, i.e. any &%Number that has a position \non the number line."
	(is-a Number)
	(role concrete)
	(single-slot SquareRootFn
;+		(comment "(SquareRootFn ?NUMBER) is the principal square root of ?NUMBER.")
		(type INSTANCE)
;+		(allowed-classes Number)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot FloorFn
;+		(comment "(&%FloorFn ?NUMBER) returns the largest &%Integer less than or equal to the &%RealNumber ?NUMBER.")
		(type INSTANCE)
;+		(allowed-classes Integer)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DenominatorFn
;+		(comment "(&%DenominatorFn ?NUMBER) returns the denominator of the canonical reduced form of the &%RealNumber ?NUMBER.")
		(type INSTANCE)
;+		(allowed-classes Integer)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LogFn
;+		(comment "(LogFn ?NUMBER ?INT) returns the logarithm of the &%RealNumber ?NUMBER in the base denoted by the &%Integer ?INT.")
		(type INSTANCE)
;+		(allowed-classes PositiveInteger)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MeasureFn
;+		(comment "This &%BinaryFunction maps a &%RealNumber and a &%UnitOfMeasure to that &%Number of units.  It is used for expressing &%ConstantQuantities.  For example, the concept of three meters is represented as (&%MeasureFn 3 &%Meter).")
		(type INSTANCE)
;+		(allowed-classes UnitOfMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AbsoluteValueFn
;+		(comment "The value of (&%AbsoluteValueFn ?NUMBER) is the absolute value of the &%RealNumber ?NUMBER.")
		(type INSTANCE)
;+		(allowed-classes NonnegativeRealNumber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CeilingFn
;+		(comment "(&%CeilingFn ?NUMBER) returns the smallest &%Integer greater than or equal to the &%RealNumber ?NUMBER.")
		(type INSTANCE)
;+		(allowed-classes Integer)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot NumeratorFn
;+		(comment "(&%NumeratorFn ?NUMBER) returns the numerator of the canonical reduced form ?NUMBER.")
		(type INSTANCE)
;+		(allowed-classes Integer)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot IntegerSquareRootFn
;+		(comment "(&%IntegerSquareRootFn ?NUMBER) returns the integer square root of ?NUMBER.")
		(type INSTANCE)
;+		(allowed-classes NonnegativeInteger)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass RationalNumber "SUO 1.55: July 14, 2003\nAny &%RealNumber that is the product of\ndividing two &%Integers."
	(is-a RealNumber)
	(role concrete))

(defclass Integer "SUO 1.55: July 14, 2003\nA negative or nonnegative whole number."
	(is-a RationalNumber)
	(role concrete)
	(single-slot PredecessorFn
;+		(comment "A &%UnaryFunction that maps an &%Integer to its predecessor, e.g. the predecessor of 5 is 4.")
		(type INSTANCE)
;+		(allowed-classes Integer)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot YearFn
;+		(comment "A &%UnaryFunction that maps a number to the corresponding calendar &%Year.  For example, (&%YearFn 1912) returns the &%Class containing just one instance, the year of 1912.  As might be expected, positive integers return years in the Common Era, while negative integers return years in B.C.E.  Note that this function returns a &%Class as a value.  The reason for this is that the related functions, viz. &%MonthFn, &%DayFn, &%HourFn, &%MinuteFn, and &%SecondFn, are used to generate both specific &%TimeIntervals and recurrent intervals, and the only way to do this is to make the domains and ranges of these functions classes rather than individuals.")
		(type SYMBOL)
;+		(allowed-parents Year)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SuccessorFn
;+		(comment "A &%UnaryFunction that maps an &%Integer to its successor, e.g. the successor of 5 is 6.")
		(type INSTANCE)
;+		(allowed-classes Integer)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass EvenInteger "SUO 1.55: July 14, 2003\nAn &%Integer that is evenly divisible\nby 2."
	(is-a Integer)
	(role concrete))

(defclass OddInteger "SUO 1.55: July 14, 2003\nAn &%Integer that is not evenly divisible\nby 2."
	(is-a Integer)
	(role concrete))

(defclass PrimeNumber "SUO 1.55: July 14, 2003\nAn &%Integer that is evenly divisible only\nby itself and 1."
	(is-a Integer)
	(role concrete))

(defclass IrrationalNumber "SUO 1.55: July 14, 2003\nAny &%RealNumber that is not also a\n&%RationalNumber."
	(is-a RealNumber)
	(role concrete))

(defclass NonnegativeRealNumber "SUO 1.55: July 14, 2003\nA &%RealNumber that is greater than\nor equal to zero."
	(is-a RealNumber)
	(role concrete))

(defclass NonnegativeInteger "SUO 1.55: July 14, 2003\nAn &%Integer that is greater than \nor equal to zero."
	(is-a Integer NonnegativeRealNumber)
	(role concrete))

(defclass PositiveRealNumber "SUO 1.55: July 14, 2003\nA &%RealNumber that is greater than \nzero."
	(is-a NonnegativeRealNumber)
	(role concrete)
	(single-slot MinuteFn
;+		(comment "A &%BinaryFunction that assigns a &%PositiveRealNumber and a subclass of &%Hours to the &%Minutes within each &%Hour corresponding to that &%PositiveRealNumber.  For example, (&%MinuteFn 30 (&%HourFn 17 &%Day)) is the &%Class of all 5:30's in the afternoon.  For another example, (&%MinuteFn 15 &%Hour) would return the class of all instances of quarter past the hour.  For still another example, (&%MinuteFn 15 (&%HourFn 14 (&%DayFn 18 (&%MonthFn 8 (YearFn 1912))))) denotes 15 minutes after 2 PM on the 18th day of August 1912.")
		(type SYMBOL)
;+		(allowed-parents Minute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot HourFn
;+		(comment "A &%BinaryFunction that assigns a &%PositiveRealNumber and a subclass of &%Days to the &%Hours within each &%Day corresponding to that &%PositiveRealNumber.  For example, (&%HourFn 12 &%Thursday) is the &%Class of all instances of noon Thursday.  For another example, (&%HourFn 24 &%Day) would return the class of all instances of midnight.  For still another example, (&%HourFn 14 (&%DayFn 18 (&%MonthFn 8 (YearFn 1912)))) denotes 2 PM on the 18th day of August 1912.")
		(type SYMBOL)
;+		(allowed-parents Hour)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SecondFn
;+		(comment "A &%BinaryFunction that assigns a &%PositiveRealNumber and a subclass of &%Minutes to the &%Seconds within each &%Minute corresponding to that &%PositiveRealNumber.  For example, (&%SecondFn 4 (&%MinuteFn 5 &%Hour)) is the &%Class of all fourth &%Seconds of every fifth &%Minute of every hour.  For another example, (&%SecondFn 8 &%Minute) would return the eighth second of every minute.  For still another example, (&%SecondFn 9 (&%MinuteFn 15 (&%HourFn 14 (&%DayFn 18 (&%MonthFn 8 (YearFn 1912)))))) denotes 9 seconds and 15 minutes after 2 PM on the 18th day of August 1912.")
		(type SYMBOL)
;+		(allowed-parents Second)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DayFn
;+		(comment "A &%BinaryFunction that assigns a &%PositiveRealNumber and a subclass of &%Months to the &%Days within each &%Month corresponding to that &%PositiveRealNumber.  For example, (&%DayFn 16 &%August) is the &%Class of all sixteenth days of August.  For another example, (&%DayFn 9 &%Month) would return the class of all ninth days of any month.  For still another example, (&%DayFn 18 (&%MonthFn 8 (YearFn 1912))) denotes the 18th day of August 1912.")
		(type SYMBOL)
;+		(allowed-parents Day)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass PositiveInteger "SUO 1.55: July 14, 2003\nAn &%Integer that is greater than zero."
	(is-a NonnegativeInteger PositiveRealNumber)
	(role concrete))

(defclass NegativeRealNumber "SUO 1.55: July 14, 2003\nA &%RealNumber that is less than \nzero."
	(is-a RealNumber)
	(role concrete))

(defclass NegativeInteger "SUO 1.55: July 14, 2003\nAn &%Integer that is less than zero."
	(is-a Integer NegativeRealNumber)
	(role concrete))

(defclass BinaryNumber "SUO 1.55: July 14, 2003\nElements from the number system with base 2.\nEvery &%BinaryNumber is expressed as a sequence of the digits 1 and 0."
	(is-a RealNumber)
	(role concrete))

(defclass Percent "Percentage measure between 0.0 and 100.0"
	(is-a RealNumber)
	(role concrete)
	(single-slot value
		(type FLOAT)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass ImaginaryNumber "SUO 1.55: July 14, 2003\nAny &%Number that is the result of\nmultiplying a &%RealNumber by the square root of -1."
	(is-a Number)
	(role concrete))

(defclass ComplexNumber "SUO 1.55: July 14, 2003\nA &%Number that has the form: x + yi, where x\nand y are &%RealNumbers and i is the square root of -1."
	(is-a Number)
	(role concrete))

(defclass PhysicalQuantity "SUO 1.55: July 14, 2003\n&%A PhysicalQuantity is a measure of\nsome quantifiable aspect of the modeled world, such as 'the earth's\ndiameter' (a constant length) and 'the stress in a loaded deformable\nsolid' (a measure of stress, which is a function of three spatial\ncoordinates).  All &%PhysicalQuantities are either &%ConstantQuantities\nor &%FunctionQuantities.  Instances of &%ConstantQuantity are dependent\non a &%UnitOfMeasure, while instances of &%FunctionQuantity are\n&%Functions that map instances of &%ConstantQuantity to other instances\nof &%ConstantQuantity (e.g., &%TimeDependentQuantities are\n&%FunctionQuantities).  Although the name and definition of\n&%PhysicalQuantity is borrowed from physics, &%PhysicalQuantities need\nnot be material.  Aside from the dimensions of length, time, velocity,\netc., nonphysical dimensions such as currency are also possible.\nAccordingly, amounts of money would be instances of &%PhysicalQuantity.\n&%PhysicalQuantities are distinguished from &%Numbers by the fact that\nthe former are associated with a dimension of measurement."
	(is-a Quantity)
	(role concrete))

(defclass ConstantQuantity "SUO 1.55: July 14, 2003\nA &%ConstantQuantity is a \n&%PhysicalQuantity which has a constant value, e.g. 3 meters and 5 hours.  \nThe magnitude (see &%MagnitudeFn) of every &%ConstantQuantity is a \n&%RealNumber.  &%ConstantQuantities are distinguished from \n&%FunctionQuantities, which map &%ConstantQuantities to other \n&%ConstantQuantities.  All &%ConstantQuantites are expressed with the \n&%BinaryFunction &%MeasureFn, which takes a &%Number and a &%UnitOfMeasure \nas arguments.  For example, 3 &%Meters can be expressed as (&%MeasureFn 3 \n&%Meter).  &%ConstantQuantities form a partial order (see \n&%PartialOrderingRelation) with the &%lessThan relation, since &%lessThan \nis a &%RelationExtendedToQuantities and &%lessThan is defined over the \n&%RealNumbers.  The &%lessThan relation is not a total order (see \n&%TotalOrderingRelation) over the class &%ConstantQuantity since elements \nof some subclasses of &%ConstantQuantity (such as length quantities) \nare incomparable to elements of other subclasses of &%ConstantQuantity \n(such as mass quantities)."
	(is-a PhysicalQuantity)
	(role concrete)
	(single-slot MagnitudeFn
;+		(comment "The magnitude of a &%ConstantQuantity is the numeric value for the quantity.  In other words, &%MagnitudeFn converts a &%ConstantQuantity with an associated &%UnitOfMeasure into an ordinary &%RealNumber.  For example, the magnitude of the &%ConstantQuantity 2 &%Kilometers is the &%RealNumber 2.   Note that the magnitude of a quantity in a given unit times that unit is equal to the original quantity.")
		(type INSTANCE)
;+		(allowed-classes RealNumber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PerFn
;+		(comment "&%PerFn maps two instances of &%ConstantQuantity to the &%FunctionQuantity composed of these two instances.  For example, (&%PerFn (&%MeasureFn 2 (&%MicroFn &%Gram)) (&%MeasureFn 1 (&%KiloFn &%Gram))) denotes the &%FunctionQuantity of 2 micrograms per kiogram.  This function is useful, because it allows the knowledge engineer to dynamically generate instances of &%FunctionQuantity.")
		(type INSTANCE)
;+		(allowed-classes ConstantQuantity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot IntervalFn
;+		(comment "A &%BinaryFunction that maps two &%ConstantQuantities to the &%Class of &%ConstantQuantities that comprise the interval from the first &%ConstantQuantity to the second &%ConstantQuantity.  For example, (&%IntervalFn (&%MeasureFn 8 &%Meter) (&%MeasureFn 14 &%Meter)) would return the &%Class of &%ConstantQuantities between 8 and 14 meters in length.")
		(type INSTANCE)
;+		(allowed-classes ConstantQuantity)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass TimeMeasure "SUO 1.55: July 14, 2003\nThe class of temporal durations (instances\nof &%TimeDuration) and positions of &%TimePoints and &%TimeIntervals along\nthe universal timeline (instances of &%TimePosition)."
	(is-a ConstantQuantity)
	(role concrete))

(defclass TimeDuration "SUO 1.55: July 14, 2003\nAny measure of length of time,\nwith or without respect to the universal timeline."
	(is-a TimeMeasure)
	(role concrete))

(defclass SecondDuration "SUO 1.55: July 14, 2003\nSI &%TimeDuration.  Symbol: s.\nIt is one of the base units in SI, and it is currently defined as\nfollows: the &%SecondDuration is the duration of 9192631770 periods of\nthe radiation corresponding to the transition between the two hyperfine\nlevels of the ground state of the cesium 133 atom."
	(is-a TimeDuration)
	(role concrete))

(defclass DayDuration "SUO 1.55: July 14, 2003\nTime unit. 1 day = 24 hours."
	(is-a TimeDuration)
	(role concrete))

(defclass HourDuration "SUO 1.55: July 14, 2003\nTime unit. 1 hour = 60 minutes."
	(is-a TimeDuration)
	(role concrete))

(defclass MinuteDuration "SUO 1.55: July 14, 2003\nTime unit. 1 minute = 60 seconds. "
	(is-a TimeDuration)
	(role concrete))

(defclass WeekDuration "SUO 1.55: July 14, 2003\nTime unit.  A week's duration is seven days."
	(is-a TimeDuration)
	(role concrete))

(defclass YearDuration "SUO 1.55: July 14, 2003\nTime unit. one calendar year. 1 year =\n365 days = 31536000 seconds."
	(is-a TimeDuration)
	(role concrete))

(defclass TimePosition "SUO 1.55: July 14, 2003\nAny &%TimePoint or &%TimeInterval \nalong the universal timeline from &%NegativeInfinity to \n&%PositiveInfinity."
	(is-a TimeMeasure)
	(role concrete)
	(single-slot PastFn
;+		(comment "A &%UnaryFunction that maps a &%TimePosition to the &%TimeInterval that meets it and that begins at &%NegativeInfinity.")
		(type INSTANCE)
;+		(allowed-classes TimeInterval)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ImmediateFutureFn
;+		(comment "A &%UnaryFunction that maps a &%TimePosition to a short, indeterminate &%TimeInterval that immediately follows the &%TimePosition.")
		(type INSTANCE)
;+		(allowed-classes TimeInterval)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot temporalPart
;+		(comment "The temporal analogue of the spatial &%part predicate.  (&%temporalPart ?POS1 ?POS2) means that &%TimePosition ?POS1 is part of &%TimePosition ?POS2.  Note that since &%temporalPart is a &%ReflexiveRelation every &%TimePostion is a &%temporalPart of itself.")
		(type INSTANCE)
;+		(allowed-classes TimePosition)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot FutureFn
;+		(comment "A &%UnaryFunction that maps a &%TimePosition to the &%TimeInterval which it meets and which ends at &%PositiveInfinity.")
		(type INSTANCE)
;+		(allowed-classes TimeInterval)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RelativeTimeFn
;+		(comment "A means of converting &%TimePositions between different &%TimeZones.  (&%RelativeTimeFn ?TIME ?ZONE) denotes the &%TimePosition in &%CoordinatedUniversalTime that is contemporaneous with the &%TimePosition ?TIME in &%TimeZone ?ZONE.  For example, (&%RelativeTimeFn (&%MeasureFn 14 &%Hour) &%EasternTimeZone) would return the value (&%MeasureFn 19 &%Hour).")
		(type INSTANCE)
;+		(allowed-classes TimeZone)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot holdsDuring
;+		(comment "(&%holdsDuring ?TIME ?FORMULA) means that the proposition denoted by ?FORMULA is true in the time frame ?TIME.  Note that this implies that ?FORMULA is true at every &%TimePoint which is a &%temporalPart of ?TIME.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ImmediatePastFn
;+		(comment "A &%UnaryFunction that maps a &%TimePosition to a short, indeterminate &%TimeInterval that immediately precedes the &%TimePosition.")
		(type INSTANCE)
;+		(allowed-classes TimeInterval)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass TimeInterval "SUO 1.55: July 14, 2003\nAn interval of time.  Note that a \n&%TimeInterval has both an extent and a location on the universal \ntimeline.  Note too that a &%TimeInterval has no gaps, i.e. this \nclass contains only convex time intervals."
	(is-a TimePosition)
	(role concrete)
	(single-slot BeginFn
;+		(comment "A &%UnaryFunction that maps a &%TimeInterval to the &%TimePoint at which the interval begins.")
		(type INSTANCE)
;+		(allowed-classes TimePoint)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TemporalCompositionFn
;+		(comment "The basic &%Function for expressing the composition of larger &%TimeIntervals out of smaller &%TimeIntervals.  For example, if &%ThisSeptember is an &%instance of &%September, (&%TemporalCompositionFn &%ThisSeptember &%Day) denotes the &%Class of consecutive days that make up &%ThisSeptember.  Note that one can obtain the number of instances of this &%Class by using the function &%CardinalityFn.")
		(type SYMBOL)
;+		(allowed-parents TimeInterval)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot duration
;+		(comment "(&%duration ?POS ?TIME) means that the duration of the &%TimePosition ?POS is ?TIME.  Note that this &%Predicate can be used in conjunction with the &%Function &%WhenFn to specify the duration of any instance of &%Physical.")
		(type INSTANCE)
;+		(allowed-classes TimeDuration)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot earlier
;+		(comment "(earlier INTERVAL1 INTERVAL2) means that INTERVAL1 ends before INTERVAL2 begins.")
		(type INSTANCE)
;+		(allowed-classes TimeInterval)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot overlapsTemporally
;+		(comment "(&%overlapsTemporally ?INTERVAL1 ?INTERVAL2) means that the &%TimeIntervals ?INTERVAL1 and ?INTERVAL2 have a &%TimeInterval as a common part.")
		(type INSTANCE)
;+		(allowed-classes TimeInterval)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot meetsTemporally
;+		(comment "(&%meetsTemporally ?INTERVAL1 ?INTERVAL2) means that the terminal point of the &%TimeInterval ?INTERVAL1 is the initial point of the &%TimeInterval ?INTERVAL2.")
		(type INSTANCE)
;+		(allowed-classes TimeInterval)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot starts
;+		(comment "(&%starts ?INTERVAL1 ?INTERVAL2) means that ?INTERVAL1 and ?INTERVAL2 are both &%TimeIntervals that have the same initial &%TimePoint and that ?INTERVAL1 ends before ?INTERVAL2.")
		(type INSTANCE)
;+		(allowed-classes TimeInterval)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot during
;+		(comment "(&%during ?INTERVAL1 ?INTERVAL2) means that ?INTERVAL1 starts after and ends before ?INTERVAL2.\n")
		(type INSTANCE)
;+		(allowed-classes TimeInterval)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot EndFn
;+		(comment "A &%UnaryFunction that maps a &%TimeInterval to the &%TimePoint at which the interval ends.")
		(type INSTANCE)
;+		(allowed-classes TimePoint)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot recurrentTimeIntervalFn
;+		(comment "A function that is useful for generating recurring timeintervals.\nFor example,  (&%recurrentTimeIntervalFn (&%hourFn 6 &%Day) (&%hourFn 12 &%Day) ) returns the class of TimeIntervals beginning at 6 in the morning and endingat 12 noon.  For example,  (&%recurrentTimeIntervalFn (&%Saturday) (&%Sunday) ) returns the class of all weekends.")
		(type SYMBOL)
;+		(allowed-parents TimeInterval)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot finishes
;+		(comment "(&%finishes ?INTERVAL1 ?INTERVAL2) means that ?INTERVAL1 and ?INTERVAL2 are both &%TimeIntervals that have the same ending &%TimePoint and that ?INTERVAL2 begins before ?INTERVAL1.")
		(type INSTANCE)
;+		(allowed-classes TimeInterval)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Year "SUO 1.55: July 14, 2003\nThe &%Class of all calendar &%Years."
	(is-a TimeInterval)
	(role concrete))

(defclass LeapYear "SUO 1.55: July 14, 2003\nThe &%Class of all leap years.  These are years\nwhich are either (i.) evenly divisible by 4 and not by 100 or (ii.) evenly\ndivisible by 400 (this latter case is known as a leap century)."
	(is-a Year)
	(role concrete))

(defclass Month "SUO 1.55: July 14, 2003\nThe &%Class of all calendar &%Months."
	(is-a TimeInterval)
	(role concrete)
	(single-slot MonthFn
;+		(comment "A &%BinaryFunction that maps a subclass of &%Month and a subclass of &%Year to the class containing the &%Months corresponding to thos &%Years. For example (&%MonthFn &%January (&%YearFn 1912)) is the class containing the eighth\n&%Month, i.e. August, of the &%Year 1912.  For another example, (&%MonthFn &%August &%Year) is equal to &%August, the class of all months of August.  Note that this function returns a &%Class as a value.  The reason for this is that the related functions, viz. DayFn, HourFn, MinuteFn, and SecondFn, are used to generate both specific &%TimeIntervals and recurrent intervals, and the only way to do this is to make the domains and ranges of these functions classes rather than individuals.\n")
		(type SYMBOL)
;+		(allowed-parents Month)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass January "SUO 1.55: July 14, 2003\nThe &%Class of all &%Months which are January."
	(is-a Month)
	(role concrete))

(defclass February "SUO 1.55: July 14, 2003\nThe &%Class of all &%Months which are February."
	(is-a Month)
	(role concrete))

(defclass March "SUO 1.55: July 14, 2003\nThe &%Class of all &%Months which are March."
	(is-a Month)
	(role concrete))

(defclass April "SUO 1.55: July 14, 2003\nThe &%Class of all &%Months which are April."
	(is-a Month)
	(role concrete))

(defclass May "SUO 1.55: July 14, 2003\nThe &%Class of all &%Months which are May."
	(is-a Month)
	(role concrete))

(defclass June "SUO 1.55: July 14, 2003\nThe &%Class of all &%Months which are June."
	(is-a Month)
	(role concrete))

(defclass July "SUO 1.55: July 14, 2003\nThe &%Class of all &%Months which are July."
	(is-a Month)
	(role concrete))

(defclass August "SUO 1.55: July 14, 2003\nThe &%Class of all &%Months which are August."
	(is-a Month)
	(role concrete))

(defclass September "SUO 1.55: July 14, 2003\nThe &%Class of all &%Months which are September."
	(is-a Month)
	(role concrete))

(defclass October "SUO 1.55: July 14, 2003\nThe &%Class of all &%Months which are October."
	(is-a Month)
	(role concrete))

(defclass November "SUO 1.55: July 14, 2003\nThe &%Class of all &%Months which are November."
	(is-a Month)
	(role concrete))

(defclass December "SUO 1.55: July 14, 2003\nThe &%Class of all &%Months which are December."
	(is-a Month)
	(role concrete))

(defclass Day "SUO 1.55: July 14, 2003\nThe &%Class of all calendar &%Days."
	(is-a TimeInterval)
	(role concrete))

(defclass Monday "SUO 1.55: July 14, 2003\nThe &%Class of all calendar Mondays."
	(is-a Day)
	(role concrete))

(defclass Tuesday "SUO 1.55: July 14, 2003\nThe &%Class of all calendar Tuesdays."
	(is-a Day)
	(role concrete))

(defclass Wednesday "SUO 1.55: July 14, 2003\nThe &%Class of all calendar Wednesdays."
	(is-a Day)
	(role concrete))

(defclass Thursday "SUO 1.55: July 14, 2003\nThe &%Class of all calendar Thursdays."
	(is-a Day)
	(role concrete))

(defclass Friday "SUO 1.55: July 14, 2003\nThe &%Class of all calendar Fridays."
	(is-a Day)
	(role concrete))

(defclass Saturday "SUO 1.55: July 14, 2003\nThe &%Class of all calendar Saturdays."
	(is-a Day)
	(role concrete))

(defclass Sunday "SUO 1.55: July 14, 2003\nThe &%Class of all calendar Sundays."
	(is-a Day)
	(role concrete))

(defclass Week "SUO 1.55: July 14, 2003\nThe &%Class of all calendar weeks."
	(is-a TimeInterval)
	(role concrete))

(defclass Hour "SUO 1.55: July 14, 2003\nThe &%Class of all clock &%Hours."
	(is-a TimeInterval)
	(role concrete))

(defclass Minute "SUO 1.55: July 14, 2003\nThe &%Class of all clock &%Minutes."
	(is-a TimeInterval)
	(role concrete))

(defclass Second "SUO 1.55: July 14, 2003\nThe &%Class of all clock &%Seconds."
	(is-a TimeInterval)
	(role concrete))

(defclass TimePoint "SUO 1.55: July 14, 2003\nAn extensionless point on the universal timeline. \nThe &%TimePoints at which &%Processes occur can be known with various \ndegrees of precision and approximation, but conceptually &%TimePoints are \npoint-like and not interval-like.  That is, it doesn't make sense to talk \nabout how long a &%TimePoint lasts."
	(is-a TimePosition)
	(role concrete)
	(single-slot beforeOrEqual
;+		(comment "(&%beforeOrEqual ?POINT1 ?POINT2) means that ?POINT1 is identical with ?POINT2 or occurs before it on the universal timeline.")
		(type INSTANCE)
;+		(allowed-classes TimePoint)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot before
;+		(comment "(&%before ?POINT1 ?POINT2) means that ?POINT1 precedes ?POINT2 on the universal timeline.")
		(type INSTANCE)
;+		(allowed-classes TimePoint)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TimeIntervalFn
;+		(comment "A &%BinaryFunction that takes two &%TimePoints as arguments and returns the &%TimeInterval defined by these two &%TimePoints.  Note that the first &%TimePoint must occur earlier than the second &%TimePoint.")
		(type INSTANCE)
;+		(allowed-classes TimePoint)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot temporallyBetween
;+		(comment "(&%temporallyBetween ?POINT1 ?POINT2 ?POINT3) means that the &%TimePoint ?POINT2 is between the &%TimePoints ?POINT1 and ?POINT3, i.e. ?POINT1 is before ?POINT2 and ?POINT2 is before ?POINT3.")
		(type INSTANCE)
;+		(allowed-classes TimePoint)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot temporallyBetweenOrEqual
;+		(comment "(&%temporallyBetweenOrEqual ?POINT1 ?POINT2 ?POINT3) means that the &%TimePoint ?POINT1 is before or equal to the &%TimePoint ?POINT2 and ?POINT2 is before or equal to the &%TimePoint ?POINT3.")
		(type INSTANCE)
;+		(allowed-classes TimePoint)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass LengthMeasure "SUO 1.55: July 14, 2003\nThe &%Class of &%ConstantQuantities relating \nto length."
	(is-a ConstantQuantity)
	(role concrete)
	(single-slot SpeedFn
		(type INSTANCE)
;+		(allowed-classes TimeDuration)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot VelocityFn
;+		(comment "Specifies the velocity of an object, i.e. the speed and the direction of the speed.  For example (&%VelocityFn (&%MeasureFn 55 &%Mile) (&%MeasureFn 2 &%HourDuration) ?REFERENCE &%North) denotes the velocity of 55 miles per hour North of the given reference point ?REFERENCE.")
		(type INSTANCE)
;+		(allowed-classes TimeDuration)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Meter "SUO 1.55: July 14, 2003\nSI &%LengthMeasure.  Symbol:  m. It is one of the\nbase units in SI, and it is currently defined as follows: the &%Meter\nis the length of the path traveled by light in a vacuum during a time\ninterval of 1/299792458 of a &%SecondDuration."
	(is-a LengthMeasure)
	(role concrete))

(defclass Centimeter "SUO 1.55: July 14, 2003\nSubmultiple of &%Meter.  Symbol: cm. It is\nthe 100th part of a &%Meter"
	(is-a LengthMeasure)
	(role concrete))

(defclass Angstrom "SUO 1.55: July 14, 2003\nThe &%Angstrom is a &%LengthMeasure.\n1 &%Angstrom = 10^(-10) m"
	(is-a LengthMeasure)
	(role concrete))

(defclass FootLength "SUO 1.55: July 14, 2003\nEnglish length unit of feet."
	(is-a LengthMeasure)
	(role concrete))

(defclass Inch "SUO 1.55: July 14, 2003\nEnglish length unit of inches."
	(is-a LengthMeasure)
	(role concrete))

(defclass Mile "SUO 1.55: July 14, 2003\nEnglish length unit of miles."
	(is-a LengthMeasure)
	(role concrete))

(defclass Foot "SUO 1.15: September 6, 2001\nEnglish length unit of feet."
	(is-a LengthMeasure)
	(role concrete))

(defclass MassMeasure "SUO 1.55: July 14, 2003\nThe &%Class of &%ConstantQuantities relating \nto the amount of matter in an &%Object."
	(is-a ConstantQuantity)
	(role concrete)
	(single-slot DensityFn
;+		(comment "&%DensityFn maps an instance of &%MassMeasure and an instance of &%VolumeMeasure to the density represented by this proportion of mass and volume.  For example, (&%DensityFn (&%MeasureFn 3 &%Gram) (&%MeasureFn 1 &%Liter)) represents the density of 3 grams per liter.\n")
		(type INSTANCE)
;+		(allowed-classes VolumeMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Gram "SUO 1.55: July 14, 2003\nSubmultiple of kilogram.  Symbol: g.\n1 kilogram = 1000 &%Grams."
	(is-a MassMeasure)
	(role concrete))

(defclass Mole "SUO 1.55: July 14, 2003\nSI amount of substance unit. symbol: mol. It is one\nof the base units in SI. It is defined as follows:  the &%Mole is the\namount of substance of a system which contains as many elementary entities\nas there are atoms in 0.012 &%Kilograms of carbon 12.  Note that, when this\n&%UnitOfMeasure is used, the elementary entities must be specified - they\nmay be atoms, molecules, ions, electrons, etc. or groups of such\nparticles."
	(is-a MassMeasure)
	(role concrete))

(defclass Amu "SUO 1.55: July 14, 2003\nAtomic mass unit.  Symbol: u. It is the mass of\nthe twelfth part of an atom of the Carbon 12 isotope."
	(is-a MassMeasure)
	(role concrete))

(defclass AtomGram "SUO 1.55: July 14, 2003\n&%MassMeasure that is also known as the gram-atom.\nDefined as the mass in grams of 1 &%Mole of pure substance.  For example,\n1 &%AtomGram of Carbon 12 will be 12 &%Grams of pure Carbon 12.  2 &%AtomGrams\nof the same substance will be 24 &%Grams of it.  This is an unusual unit in\nthat it is essentially 1 &%Mole of 'stuff' measured in grams, so that the\nactual value (i.e. mass) depends on the type of substance."
	(is-a MassMeasure)
	(role concrete))

(defclass PoundMass "SUO 1.55: July 14, 2003\nEnglish mass unit of pounds."
	(is-a MassMeasure)
	(role concrete))

(defclass Slug "SUO 1.55: July 14, 2003\nEnglish mass unit of slugs."
	(is-a MassMeasure)
	(role concrete))

(defclass AreaMeasure "SUO 1.55: July 14, 2003\nMeasures of the amount of space in two\ndimensions."
	(is-a ConstantQuantity)
	(role concrete))

(defclass VolumeMeasure "SUO 1.55: July 14, 2003\nMeasures of the amount of space in three\ndimensions."
	(is-a ConstantQuantity)
	(role concrete))

(defclass Liter "SUO 1.55: July 14, 2003\nUnit of volume in the metric system.  It is currently\ndefined to be equal to one cubic decimeter (0.001 cubic meter).  Symbol: l."
	(is-a VolumeMeasure)
	(role concrete))

(defclass UnitedStatesGallon "SUO 1.55: July 14, 2003\nUnit of volume commonly used in the\nUnited States."
	(is-a VolumeMeasure)
	(role concrete))

(defclass Quart "SUO 1.55: July 14, 2003\nEnglish unit of volume equal to 1/4 of a\n&%UnitedStatesGallon."
	(is-a VolumeMeasure)
	(role concrete))

(defclass Pint "SUO 1.55: July 14, 2003\nEnglish unit of volume equal to 1/2 of a\n&%Quart."
	(is-a VolumeMeasure)
	(role concrete))

(defclass Cup "SUO 1.55: July 14, 2003\nEnglish unit of volume equal to 1/2 of a\n&%Pint."
	(is-a VolumeMeasure)
	(role concrete))

(defclass Ounce "SUO 1.55: July 14, 2003\nEnglish unit of volume equal to 1/8 of a\n&%Cup."
	(is-a VolumeMeasure)
	(role concrete))

(defclass UnitedKingdomGallon "SUO 1.55: July 14, 2003\nUnit of volume commonly used in the\nUnited Kingdom."
	(is-a VolumeMeasure)
	(role concrete))

(defclass TemperatureMeasure "SUO 1.55: July 14, 2003\nMeasures of temperature.\nIn scientific circles, the temperature of something is understood as the\naverage velocity of the atoms or molecules that make up the thing."
	(is-a ConstantQuantity)
	(role concrete))

(defclass KelvinDegree "SUO 1.55: July 14, 2003\nSI &%TemperatureMeasure.  Symbol: K.\nIt is one of the base units in SI (it is also a unit in the ITS system).\nKelvin differs from the Celsius scale in that the triple point of water\nis defined to be 273.16 &%KelvinDegrees while it is 0 &%CelsiusDegrees.\nThe magnitudes of intervals in the two scales are the same.  By definition\nthe conversion constant is 273.15."
	(is-a TemperatureMeasure)
	(role concrete))

(defclass CelsiusDegree "SUO 1.55: July 14, 2003\nA &%TemperatureMeasure.  The freezing point\nand the boiling point of water are, respectively, 0 &%CelsiusDegrees and 100\n&%CelsiusDegrees."
	(is-a TemperatureMeasure)
	(role concrete))

(defclass RankineDegree "SUO 1.55: July 14, 2003\nA &%TemperatureMeasure.  Note\nthat 0 &%RankineDegrees is the same as the absolute zero (i.e. 0\n&%KelvinDegrees)."
	(is-a TemperatureMeasure)
	(role concrete))

(defclass FahrenheitDegree "SUO 1.55: July 14, 2003\nA &%TemperatureMeasure that is commonly\nused in the United States.  On the Fahrenheit scale, the freezing point\nof water is 32 &%FahrenheitDegrees, and the boiling point of water is\n212 &%FahrenheitDegrees."
	(is-a TemperatureMeasure)
	(role concrete))

(defclass CurrencyMeasure "SUO 1.55: July 14, 2003\nIncludes all standard measures of monetary\nvalue, including &%UnitedStatesDollar, &%UnitedStatesCent, Lire, Yen, etc."
	(is-a ConstantQuantity)
	(role concrete))

(defclass UnitedStatesDollar "SUO 1.55: July 14, 2003\nA currency measure."
	(is-a CurrencyMeasure)
	(role concrete))

(defclass UnitedStatesCent "SUO 1.55: July 14, 2003\nA currency measure.  1 &%UnitedStatesCent is\nequal to .01 &%UnitedStatesDollars."
	(is-a CurrencyMeasure)
	(role concrete))

(defclass EuroDollar "SUO 1.55: July 14, 2003\nA currency measure of most European Union countries.\nIt is based on the &%UnitedStatesDollar."
	(is-a CurrencyMeasure)
	(role concrete))

(defclass EuroCent "SUO 1.55: July 14, 2003\nA currency measure.  1 &%EuroCent is equal to .01\n&%EuroDollars."
	(is-a CurrencyMeasure)
	(role concrete))

(defclass AngleMeasure "SUO 1.55: July 14, 2003\nThe value of an angle in a plane or in a\nsolid."
	(is-a ConstantQuantity)
	(role concrete))

(defclass PlaneAngleMeasure "SUO 1.55: July 14, 2003\nThe value of an angle in a plane."
	(is-a AngleMeasure)
	(role concrete)
	(single-slot SineFn
;+		(comment "(&%SineFn ?DEGREE) is the sine of the &%PlaneAngleMeasure ?DEGREE.  The sine of ?DEGREE is the ratio of the side opposite ?DEGREE to the hypotenuse in a right-angled triangle.")
		(type INSTANCE)
;+		(allowed-classes RealNumber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TangentFn
;+		(comment "(&%TangentFn ?DEGREE) is the tangent of the &%PlaneAngleMeasure ?DEGREE.  The tangent of ?DEGREE is the ratio of the side opposite ?DEGREE to the side next to ?DEGREE in a right-angled triangle.")
		(type INSTANCE)
;+		(allowed-classes RealNumber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CosineFn
;+		(comment "(&%CosineFn ?DEGREE) returns the cosine of the &%PlaneAngleMeasure ?DEGREE.  The cosine of ?DEGREE is the ratio of the side next to ?DEGREE to the hypotenuse in a right-angled triangle.")
		(type INSTANCE)
;+		(allowed-classes RealNumber)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Radian "SUO 1.55: July 14, 2003\nSI plane angle measure.  Symbol: rad.  It is the\nangle of a circle subtended by an arc equal in length to the circle's\nradius. Another definition is:  the plane angle between two radii of a\ncircle which cut off on the circumference an arc equal in length to the\nradius.  &%Radian = m/m = 1."
	(is-a PlaneAngleMeasure)
	(role concrete))

(defclass AngularDegree "SUO 1.55: July 14, 2003\nA plane angle measure."
	(is-a PlaneAngleMeasure)
	(role concrete))

(defclass SolidAngleMeasure "SUO 1.55: July 14, 2003\nThe value of an angle in a solid."
	(is-a AngleMeasure)
	(role concrete))

(defclass Steradian "SUO 1.55: July 14, 2003\nSI solid angle measure.  Symbol: sr.  It is\nthe solid angle of a sphere subtended by a portion of the surface whose\narea is equal to the square of the sphere's radius.  Another definition\nis: the solid angle which, having its vertex in the center of the sphere,\ncuts off an area of the surface of the sphere equal to that of a square\nwith sides of length equal to the radius of the sphere.  &%Steradian =\nm^2/m^2 = 1."
	(is-a SolidAngleMeasure)
	(role concrete))

(defclass InformationMeasure "SUO 1.55: July 14, 2003\nMeasures of the amount of information.\nIncludes &%Bit, &%Byte, and multiples of these, e.g. &%KiloByte and\n&%MegaByte."
	(is-a ConstantQuantity)
	(role concrete))

(defclass Bit "SUO 1.55: July 14, 2003\nOne &%Bit of information.  A one or a zero."
	(is-a InformationMeasure)
	(role concrete))

(defclass Byte "SUO 1.55: July 14, 2003\nOne &%Byte of information.  A &%Byte is eight\n&%Bits."
	(is-a InformationMeasure)
	(role concrete))

(defclass KiloByte "SUO 1.55: July 14, 2003\nOne &%KiloByte (KB) of information.  One\n&%KiloByte is 1024 &%Bytes.  Note that this sense of 'kilo' is\ndifferent from the one accepted in the SI system."
	(is-a InformationMeasure)
	(role concrete))

(defclass MegaByte "SUO 1.55: July 14, 2003\nOne &%MegaByte (MB) of information.  One\n&%MegaByte is 1024 &%KiloBytes.  Note that this sense of 'mega' is\ndifferent from the one accepted in the SI system."
	(is-a InformationMeasure)
	(role concrete))

(defclass UnitOfMeasure "SUO 1.55: July 14, 2003\nA standard of measurement for some dimension. \nFor example, the &%Meter is a &%UnitOfMeasure for the dimension of length, \nas is the &%Inch.  There is no intrinsic property of a &%UnitOfMeasure that \nmakes it primitive or fundamental; rather, a system of units (e.g. \n&%SystemeInternationalUnit) defines a set of orthogonal dimensions and \nassigns units for each."
	(is-a PhysicalQuantity)
	(role concrete)
	(single-slot KiloFn
;+		(comment "A &%UnaryFunction that maps a &%UnitOfMeasure into a &%UnitOfMeasure that is equal to 1,000 units of the original &%UnitOfMeasure.  For example, (&%KiloFn &%Gram) is 1,000 &%Grams.")
		(type INSTANCE)
;+		(allowed-classes UnitOfMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot NanoFn
;+		(comment "A &%UnaryFunction that maps a &%UnitOfMeasure into a &%UnitOfMeasure that is equal to .000000001 units of the original &%UnitOfMeasure.  For example, (&%MicroFn &%SecondDuration) is .000000001 &%SecondDurations.")
		(type INSTANCE)
;+		(allowed-classes UnitOfMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MilliFn
;+		(comment "A &%UnaryFunction that maps a &%UnitOfMeasure into a &%UnitOfMeasure that is equal to .001 units of the original &%UnitOfMeasure.  For example, (&%MilliFn &%Ampere) is .001 &%Amperes.")
		(type INSTANCE)
;+		(allowed-classes UnitOfMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MegaFn
;+		(comment "A &%UnaryFunction that maps a &%UnitOfMeasure into a &%UnitOfMeasure that is equal to 1,000,000 units of the original &%UnitOfMeasure.  For example, (&%KiloFn &%Hertz) is 1,000,000 &%Hertz.")
		(type INSTANCE)
;+		(allowed-classes UnitOfMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot GigaFn
;+		(comment "A &%UnaryFunction that maps a &%UnitOfMeasure into a &%UnitOfMeasure that is equal to 1,000,000,000 units of the original &%UnitOfMeasure.  For example, (&%GigaFn &%Hertz) is 1,000,000,000 &%Hertz.")
		(type INSTANCE)
;+		(allowed-classes UnitOfMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TeraFn
;+		(comment "A &%UnaryFunction that maps a &%UnitOfMeasure into a &%UnitOfMeasure that is equal to 1,000,000,000,000 units of the original &%UnitOfMeasure.  For example, (&%TeraFn &%Hertz) is 1,000,000,000,000 &%Hertz.")
		(type INSTANCE)
;+		(allowed-classes UnitOfMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MicroFn
;+		(comment "A &%UnaryFunction that maps a &%UnitOfMeasure into a &%UnitOfMeasure that is equal to .000001 units of the original &%UnitOfMeasure.  For example, (&%MicroFn &%Meter) is .000001 &%Meters.")
		(type INSTANCE)
;+		(allowed-classes UnitOfMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PicoFn
;+		(comment "A &%UnaryFunction that maps a &%UnitOfMeasure into a &%UnitOfMeasure that is equal to .000000000001 units of the original &%UnitOfMeasure.  For example, (&%PicoFn &%Ampere) is .000000000001 &%Amperes.")
		(type INSTANCE)
;+		(allowed-classes UnitOfMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass SystemeInternationalUnit "SUO 1.55: July 14, 2003\nThe &%Class of Systeme\nInternational (SI) units."
	(is-a UnitOfMeasure)
	(role concrete))

(defclass Attribute "SUO 1.55: July 14, 2003\nQualities which we cannot or choose not to \nreify into subclasses of &%Object."
	(is-a Abstract)
	(role concrete)
	(single-slot subAttribute
;+		(comment "Means that the second argument can be ascribed to everything which has the first argument ascribed to it.")
		(type INSTANCE)
;+		(allowed-classes Attribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot successorAttributeClosure
;+		(comment "The transitive closure of &%successorAttribute.  (&%successorAttributeClosure ?ATTR1 ?ATTR2) means that there is a chain of &%successorAttribute assertions connecting ?ATTR1 and ?ATTR2.")
		(type INSTANCE)
;+		(allowed-classes Attribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot successorAttribute
;+		(comment "(&%successorAttribute ?ATTR1 ?ATTR2) means that ?ATTR2 is the &%Attribute that comes immediately after ?ATTR1 on the scale that they share.")
		(type INSTANCE)
;+		(allowed-classes Attribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ExtensionFn
;+		(comment "A &%UnaryFunction that maps a &%Class into the instance of &%Attribute that specifies the condition(s) for membership in the &%Class.")
		(type INSTANCE)
;+		(allowed-classes Class)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass InternalAttribute "SUO 1.55: July 14, 2003\nAny &%Attribute of an &%Entity that is an\ninternal property of the &%Entity, e.g. its shape, its color, its fragility,\netc."
	(is-a Attribute)
	(role concrete))

(defclass PhysicalState "SUO 1.55: July 14, 2003\nThe physical state of an &%Object.  There\nare three reified instances of this &%Class:  &%Solid, &%Liquid, and &%Gas.\nPhysical changes are not characterized by the transformation of one\nsubstance into another, but rather by the change of the form (physical\nstates) of a given substance.  For example, melting an iron nail yields a\nsubstance still called iron."
	(is-a InternalAttribute)
	(role concrete))

(defclass PerceptualAttribute "SUO 1.55: July 14, 2003\nAny &%Attribute whose presence is detected\nby an act of &%Perception."
	(is-a InternalAttribute)
	(role concrete))

(defclass TasteAttribute "SUO 1.55: July 14, 2003\nThe &%Class of &%Attributes relating to\nthe taste of &%Objects."
	(is-a PerceptualAttribute)
	(role concrete))

(defclass OlfactoryAttribute "SUO 1.55: July 14, 2003\nThe &%Class of properties that are\ndetectable by smell."
	(is-a PerceptualAttribute)
	(role concrete))

(defclass VisualAttribute "SUO 1.55: July 14, 2003\nThe &%Class of visually discernible\nproperties."
	(is-a PerceptualAttribute)
	(role concrete))

(defclass ColorAttribute "SUO 1.55: July 14, 2003\nThe &%Class of &%VisualAttributes\nrelating to the color of &%Objects."
	(is-a VisualAttribute)
	(role concrete))

(defclass PrimaryColor "SUO 1.55: July 14, 2003\nColors which can be blended to form any\ncolor and which cannot be derived from any other colors."
	(is-a ColorAttribute)
	(role concrete))

(defclass SoundAttribute "SUO 1.55: July 14, 2003\nAny &%Attribute that characterizes the\nsound made by an &%Object."
	(is-a PerceptualAttribute)
	(role concrete))

(defclass ShapeAttribute "SUO 1.55: July 14, 2003\nAny &%Attribute that relates to the\nshape of an &%Object."
	(is-a InternalAttribute)
	(role concrete))

(defclass GeometricFigure "SUO 1.55: July 14, 2003\nThe class of all geometric figures, i.e. the \nclass of all abstract, spatial representations.  The instances of this class \nare &%GeometricPoints, &%TwoDimensionalFigures or &%ThreeDimensionalFigures."
	(is-a ShapeAttribute)
	(role concrete)
	(single-slot geometricPart
;+		(comment "(&%geometricPart ?PART ?WHOLE) means that the &%GeometricFigure ?PART is part of the &%GeometricFigure ?WHOLE.\n")
		(type INSTANCE)
;+		(allowed-classes GeometricFigure)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass GeometricPoint "SUO 1.55: July 14, 2003\nThe class of zero-dimensional \n&%GeometricFigures, i.e. the class of &%GeometricFigures that have position \nbut lack extension in any dimension."
	(is-a GeometricFigure)
	(role concrete)
	(single-slot pointOfFigure
;+		(comment "(&%pointOfFigure ?POINT ?FIGURE) means that the &%GeometricPoint ?POINT is part of the &%GeometricFigure ?FIGURE.\n")
		(type INSTANCE)
;+		(allowed-classes GeometricFigure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot geometricDistance
;+		(comment "(&%geometricDistance ?POINT1 ?POINT2 ?LENGTH) means that ?LENGTH is the distance between the two &%GeometricPoints ?POINT1 and ?POINT2.\n")
		(type INSTANCE)
;+		(allowed-classes GeometricPoint)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass OneDimensionalFigure "SUO 1.55: July 14, 2003\nThe class of &%GeometricFigures that \nhave position and an extension along a single dimension, viz. straight lines."
	(is-a GeometricFigure)
	(role concrete)
	(single-slot tangent
;+		(comment "(&%tangent ?LINE ?CIRCLE) means that the straight line ?LINE is tangent to the &%Circle ?CIRCLE, i.e. ?LINE touches ?CIRCLE without intersecting it.\n")
		(type INSTANCE)
;+		(allowed-classes Circle)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot lineMeasure
;+		(comment "(&%lineMeasure ?LINE ?MEASURE) means that the straight line ?LINE has the &%LengthMeasure of ?MEASURE.\n")
		(type INSTANCE)
;+		(allowed-classes LengthMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot pointOfIntersection
;+		(comment "(&%pointOfIntersection ?FIGURE1 ?FIGURE2 ?POINT) means that the two straight lines ?FIGURE1 and ?FIGURE2 meet at the point ?POINT.\n")
		(type INSTANCE)
;+		(allowed-classes OneDimensionalFigure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot sideOfFigure
;+		(comment "(&%sideOfFigure ?SIDE ?FIGURE) means that the\n&%OneDimensionalFigure ?SIDE is a side of the &%GeometricFigure ?FIGURE.\n")
		(type INSTANCE)
;+		(allowed-classes GeometricFigure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot parallel
;+		(comment "(&%parallel ?LINE1 ?LINE2) means that the &%OneDimensionalFigures ?LINE1 and ?LINE2 are parallel to one another, i.e. they are equidistant from one another at every point.\n")
		(type INSTANCE)
;+		(allowed-classes OneDimensionalFigure)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass TwoDimensionalFigure "SUO 1.55: July 14, 2003\nThe class of &%GeometricFigures that\nhave position and an extension along two dimensions, viz. plane figures\nlike circles and polygons."
	(is-a GeometricFigure)
	(role concrete))

(defclass OpenTwoDimensionalFigure "SUO 1.55: July 14, 2003\nThe class of &%TwoDimensionalFigures that\nare not &%ClosedTwoDimensionalFigures."
	(is-a TwoDimensionalFigure)
	(role concrete))

(defclass TwoDimensionalAngle "SUO 1.55: July 14, 2003\nAny two &%OneDimensionalFigures (i.e. \nstraight lines) meeting at a single &%GeometricPoint."
	(is-a OpenTwoDimensionalFigure)
	(role concrete)
	(single-slot angularMeasure
;+		(comment "(&%angularMeasure ?ANGLE ?MEASURE) means that the two-dimensional geometric angle ?ANGLE has the &%PlaneAngleMeasure of ?MEASURE.\n")
		(type INSTANCE)
;+		(allowed-classes PlaneAngleMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot angleOfFigure
;+		(comment "(&%angleOfFigure ?ANGLE ?FIGURE) means that the &%TwoDimensionalAngle ?ANGLE is part of the &%GeometricFigure ?FIGURE.\n")
		(type INSTANCE)
;+		(allowed-classes GeometricFigure)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass RightAngle "SUO 1.55: July 14, 2003\nAny &%TwoDimensionalAngle that has the\n&%angularMeasure of 90 &%AngularDegrees."
	(is-a TwoDimensionalAngle)
	(role concrete))

(defclass ClosedTwoDimensionalFigure "SUO 1.55: July 14, 2003\nAny &%TwoDimensionalFigure which\nhas a well defined interior and exterior."
	(is-a TwoDimensionalFigure)
	(role concrete))

(defclass Polygon "SUO 1.55: July 14, 2003\nA &%ClosedTwoDimensionalFigure that is composed\nexclusively of straight lines, i.e. &%OneDimensionalFigures."
	(is-a ClosedTwoDimensionalFigure)
	(role concrete))

(defclass Triangle "SUO 1.55: July 14, 2003\nAny three-sided &%Polygon."
	(is-a Polygon)
	(role concrete))

(defclass Quadrilateral "SUO 1.55: July 14, 2003\nAny four-sided &%Polygon."
	(is-a Polygon)
	(role concrete))

(defclass Rectangle "SUO 1.55: July 14, 2003\nAny &%Quadrilateral whose angles are all\n&%RightAngles."
	(is-a Quadrilateral)
	(role concrete))

(defclass Square "SUO 1.55: July 14, 2003\nAny &%Rectangle whose sides are all equal."
	(is-a Rectangle)
	(role concrete))

(defclass Circle "SUO 1.55: July 14, 2003\nThe class of &%ClosedTwoDimensionalFigures such that \nall &%GeometricPoints that make up the &%Circle are equidistant from a \nsingle &%GeometricPoint, known as the center of the &%Circle."
	(is-a ClosedTwoDimensionalFigure)
	(role concrete)
	(single-slot diameter
;+		(comment "&%BinaryPredicate that is used to state the measure of a circular &%Object from side to side.\n")
		(type INSTANCE)
;+		(allowed-classes LengthMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot radius
;+		(comment "(&%radius ?CIRCLE ?LENGTH) means that the radius of the &%Circle ?CIRCLE has a length of ?LENGTH.\n")
		(type INSTANCE)
;+		(allowed-classes LengthMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass ThreeDimensionalFigure "SUO 1.55: July 14, 2003\nThe class of &%GeometricFigures that\nhave position and an extension along three dimensions, viz. geometric solids\nlike polyhedrons and cylinders."
	(is-a GeometricFigure)
	(role concrete))

(defclass TextureAttribute "SUO 1.55: July 14, 2003\nAny &%Attribute that characterizes the\ntexture of an &%Object.  Note that a &%TextureAttribute always applies\nto the surface of an object whenever it applies to the object itself."
	(is-a PerceptualAttribute ShapeAttribute)
	(role concrete))

(defclass SaturationAttribute "SUO 1.55: July 14, 2003\nA &%Class of &%Attributes that specify, in\na qualitative manner, the extent of the presence of one kind of &%Object in\nanother kind of &%Object."
	(is-a InternalAttribute)
	(role concrete))

(defclass BreakabilityAttribute "SUO 1.55: July 14, 2003\nA &%subclass of &%Attributes for\ncharacterizing the breakability of &%CorpuscularObjects."
	(is-a InternalAttribute)
	(role concrete))

(defclass BiologicalAttribute "SUO 1.55: July 14, 2003\n&%Attributes that apply specifically\nto instances of &%Organism."
	(is-a InternalAttribute)
	(role concrete))

(defclass BodyPosition "SUO 1.55: July 14, 2003\nThe class of &%Attributes expressing\nconfigurations of bodies or parts of bodies of animals or humans,\ne.g. standing, sitting, kneeling, lying down, etc."
	(is-a BiologicalAttribute)
	(role concrete))

(defclass AnimacyAttribute "SUO 1.55: July 14, 2003\n&%Attributes that indicate whether an\n&%Organism is alive or not."
	(is-a BiologicalAttribute)
	(role concrete))

(defclass SexAttribute "SUO 1.55: July 14, 2003\n&%Attributes that indicate the sex of an\n&%Organism."
	(is-a BiologicalAttribute)
	(role concrete))

(defclass DevelopmentalAttribute "SUO 1.55: July 14, 2003\n&%Attributes that indicate the\nstage of development of an &%Organism."
	(is-a BiologicalAttribute)
	(role concrete))

(defclass DiseaseOrSyndrome "SUO 1.55: July 14, 2003\nA &%BiologicalAttribute which qualifies\nsomething that alters or interferes with a normal process, state or activity\nof an &%Organism.  It is usually characterized by the abnormal functioning of\none or more of the host's systems, parts, or &%Organs."
	(is-a BiologicalAttribute)
	(role concrete))

(defclass PsychologicalAttribute "SUO 1.55: July 14, 2003\n&%Attributes that characterize the mental\nor behavioral life of an &%Organism."
	(is-a BiologicalAttribute)
	(role concrete))

(defclass StateOfMind "SUO 1.55: July 14, 2003\nThe class &%StateOfMind is distinguished from\nits complement &%TraitAttribute by the fact that instances of the former are\ntransient while instances of the latter are persistent features of a creature's behavioral/psychological make-up."
	(is-a PsychologicalAttribute)
	(role concrete))

(defclass EmotionalState "SUO 1.55: July 14, 2003\nThe &%Class of &%Attributes that denote emotional\nstates of &%Organisms."
	(is-a StateOfMind)
	(role concrete))

(defclass ConsciousnessAttribute "SUO 1.55: July 14, 2003\n&%Attributes that indicate whether\nan &%Organism is conscious or the qualitative degree of consciousness of\nan &%Organism."
	(is-a StateOfMind)
	(role concrete))

(defclass Asleep "SUO 1.15: September 6, 2001\nThis &%Attribute applies to &%Organisms that are sleeping."
	(is-a ConsciousnessAttribute)
	(role concrete))

(defclass Awake "SUO 1.15: September 6, 2001\nThis &%Attribute applies to &%Organisms that are neither &%Unconscious nor &%Asleep."
	(is-a ConsciousnessAttribute)
	(role concrete))

(defclass Unconscious "SUO 1.15: September 6, 2001\nThis &%Attribute applies to &%Organisms that are unconscious because of a non-natural process, e.g. a blow to the head, a drug, etc.  Note that the &%Attribute &%Asleep is used to describe the &%ConsciousnessAttribute of an &%Organism that is asleep."
	(is-a ConsciousnessAttribute)
	(role concrete))

(defclass TraitAttribute "SUO 1.55: July 14, 2003\n&%Attributes that indicate the the\nbehavior/personality traits of an &%Organism."
	(is-a PsychologicalAttribute)
	(role concrete))

(defclass PsychologicalDysfunction "SUO 1.55: July 14, 2003\nA clinically significant\ndysfunction whose major manifestation is behavioral or psychological.\nThese dysfunctions may have identified or presumed biological etiologies\nor manifestations."
	(is-a PsychologicalAttribute DiseaseOrSyndrome)
	(role concrete))

(defclass RelationalAttribute "SUO 1.55: July 14, 2003\nAny &%Attribute that an &%Entity has by\nvirtue of a relationship that it bears to another &%Entity or set of &%Entities,\ne.g. &%SocialRoles and &%PositionalAttributes."
	(is-a Attribute)
	(role concrete))

(defclass TruthValue "SUO 1.55: July 14, 2003\nThe &%Class of truth values, e.g. &%True and\n&%False.  These are &%Attributes of &%Sentences and &%Propositions."
	(is-a RelationalAttribute)
	(role concrete))

(defclass PositionalAttribute "SUO 1.55: July 14, 2003\n&%Attributes characterizing the\norientation of an &%Object, e.g. &%Vertical versus &%Horizontal, &%Left\nversus &%Right etc."
	(is-a RelationalAttribute)
	(role concrete))

(defclass DirectionalAttribute "SUO 1.55: July 14, 2003\nThe subclass of &%PositionalAttributes\nthat concern compass directions."
	(is-a PositionalAttribute)
	(role concrete))

(defclass TimeZone "SUO 1.55: July 14, 2003\nAn &%Attribute which is used to specify coordinates\nin which time measures are uniform, i.e. all time devices are synchronized to\nthe same &%TimePositions."
	(is-a RelationalAttribute)
	(role concrete))

(defclass SocialRole "SUO 1.55: July 14, 2003\nThe &%Class of all &%Attributes that\nspecify the position or status of a &%CognitiveAgent within an\n&%Organization or other &%Group."
	(is-a RelationalAttribute)
	(role concrete))

(defclass Position "SUO 1.55: July 14, 2003\nA formal position of reponsibility within an\n&%Organization. Examples of &%Positions include president, laboratory\ndirector, senior researcher, sales representative, etc."
	(is-a SocialRole)
	(role concrete))

(defclass OccupationalRole "SUO 1.15: September 6, 2001\nThe &%Class of all &%Attributes that specify an occupational role of a &%CognitiveAgent."
	(is-a SocialRole)
	(role concrete))

(defclass NormativeAttribute "SUO 1.55: July 14, 2003\nA &%Class containing all of the\n&%Attributes that are specific to morality, legality, aesthetics,\netiquette, etc.  Many of these attributes express a judgement that\nsomething ought or ought not to be the case."
	(is-a RelationalAttribute)
	(role concrete))

(defclass SubjectiveAssessmentAttribute "SUO 1.55: July 14, 2003\nThe &%Class of &%NormativeAttributes\nwhich lack an objective criterion for their attribution, i.e. the attribution of\nthese &%Attributes varies from subject to subject and even with respect to the\nsame subject over time.  This &%Class is, generally speaking, only used when\nmapping external knowledge sources to the SUMO.  If a term from such a knowledge\nsource seems to lack objective criteria for its attribution, it is assigned to\nthis &%Class."
	(is-a NormativeAttribute)
	(role concrete))

(defclass ObjectiveNorm "SUO 1.55: July 14, 2003\nThe &%Class of &%NormativeAttributes that are\nassociated with an objective criterion for their attribution, i.e. there is\nbroad consensus about the cases where these attributes are applicable."
	(is-a NormativeAttribute)
	(role concrete))

(defclass ContestAttribute "SUO 1.55: July 14, 2003\nA &%Class containing all of the\n&%Attributes that are specific to participants in a &%Contest.  Some\nof these &%Attributes are winning, losing, won, lost, etc."
	(is-a ObjectiveNorm)
	(role concrete))

(defclass AlethicAttribute "SUO 1.55: July 14, 2003\nA &%Class containing all of the &%Attributes\nrelating to the notions of possibility and necessity."
	(is-a ObjectiveNorm)
	(role concrete))

(defclass DeonticAttribute "SUO 1.55: July 14, 2003\nA &%Class containing all of the &%Attributes\nrelating to the notions of permission, obligation, and prohibition."
	(is-a ObjectiveNorm)
	(role concrete))

(defclass UBLattribute "UBLattribute is one of the attributes assigned in the UBL Op70 specification.  It relates to BusinessEntities."
	(is-a Attribute)
	(role concrete))

(defclass DateType
	(is-a UBLattribute)
	(role concrete))

(defclass QuantityType
	(is-a UBLattribute)
	(role concrete))

(defclass CodeType
	(is-a UBLattribute)
	(role concrete))

(defclass SetOrClass "SUO 1.55: July 14, 2003\nThe &%SetOrClass of &%Sets and &%Classes, i.e. any instance \nof &%Abstract that has &%elements or &%instances."
	(is-a Abstract)
	(role concrete)
	(single-slot IntersectionFn
;+		(comment "A &%BinaryFunction that maps two %SetOrClasses to the intersection of these &%SetOrClasses.  An object is an instance of the intersection of two &%SetOrClasses just in case it is an instance of both of those &%SetOrClasses.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot subclass
;+		(comment "(&%subclass ?CLASS1 ?CLASS2) means that ?CLASS1 is a subclass of ?CLASS2, i.e. every instance of ?CLASS1 is also an instance of ?CLASS2.  A class may have multiple superclasses and subclasses.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PowerSetFn
;+		(comment "(&%PowerSetFn ?CLASS) maps the &%SetOrClass ?CLASS to the &%SetOrClass of all &%subclasses of ?CLASS.")
		(type SYMBOL)
;+		(allowed-parents SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot UnionFn
;+		(comment "A &%BinaryFunction that maps two &%SetOrClasses to the union of these &%SetOrClasses.  An object is an &%element of the union of two &%SetOrClasses just in case it is an &%instance of either &%SetOrClass.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ComplementFn
;+		(comment "The complement of a given &%SetOrClass C is the &%SetOrClass of all things that are not instances of C.  In other words, an object is an instance of the complement of a &%SetOrClass C just in case it is not an instance of C.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot disjoint
;+		(comment "&%Classes are &%disjoint only if they share no instances, i.e. just in case the result of applying &%IntersectionFn tothem is empty.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CardinalityFn
;+		(comment "(CardinalityFn ?CLASS) returns the number of instances in the &%SetOrClass or &%Collection ?CLASS.")
		(type INSTANCE)
;+		(allowed-classes Number)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RelativeComplementFn
;+		(comment "A &%BinaryFunction that maps two &%SetOrClasses to the difference between these &%SetOrClasses.  More precisely, the relative complement of one class C1 relative to another C2 consists of the instances of C1 that are instances of the &%ComplementFn of C2.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Class "SUO 1.55: July 14, 2003\n&%Classes differ from &%Sets in three important respects.  \nFirst, &%Classes are not assumed to be extensional.  That is, distinct \n&%Classes might well have exactly the same instances.  Second, &%Classes typically \nhave an associated `condition' that determines the instances of the &%Class.  So, \nfor example, the condition `human' determines the &%Class of &%Humans.  Note that \nsome &%Classes might satisfy their own condition (e.g., the &%Class of &%Abstract \nthings is &%Abstract) and hence be instances of themselves.  Third, the instances \nof a class may occur only once within the class, i.e. a class cannot contain \nduplicate instances."
	(is-a SetOrClass)
	(role concrete)
	(single-slot partition
;+		(comment "A &%partition of a class C is a set of \nmutually &%disjoint classes (a subclass partition) which covers C.  \nEvery instance of C is an instance of exactly one of the subclasses \nin the partition.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AbstractionFn
;+		(comment "A &%UnaryFunction that maps a &%Class into the instance of &%Attribute that specifies the condition(s) for membership in the &%Class.")
		(type INSTANCE)
;+		(allowed-classes Attribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot exhaustiveDecomposition
;+		(comment "An &%exhaustiveDecomposition of a &%Class C is a set of subclasses of C such that every subclass of C either is an element of the set or is a subclass of an element of the set.  Note: this does not necessarily mean that the elements of the set are disjoint (see &%partition - a &%partition is a disjoint exhaustive decomposition.)")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot disjointDecomposition
;+		(comment "A &%disjointDecomposition of a &%Class C is a set of subclasses of C that are mutually &%disjoint.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Set "SUO 1.55: July 14, 2003\nA &%SetOrClass that satisfies extensionality as well as\nother constraints specified by some choice of set theory.  &%Sets differ\nfrom &%Classes in two important respects.  First, &%Sets are extensional -\ntwo &%Sets with the same &%elements are identical.  Second, a &%Set can be\nan arbitrary stock of objects.  That is, there is no requirement that &%Sets\nhave an associated condition that determines their membership.  Note that &%Sets\nare not assumed to be unique sets, i.e. &%elements of a &%Set may occur more\nthan once in the &%Set."
	(is-a SetOrClass)
	(role concrete)
	(single-slot subset
;+		(comment "(subset ?SET1 ?SET2) is true just in case the &%elements of the &%Set ?SET1 are also &%elements of the &%Set ?SET2.\n\n(&%subclass ?CLASS1 ?CLASS2) means that ?CLASS1 is a subclass of ?CLASS2, i.e. every instance of ?CLASS1 is also an instance of ?CLASS2.  A class may have multiple superclasses and subclasses.")
		(type INSTANCE)
;+		(allowed-classes Set)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass FiniteSet "SUO 1.55: July 14, 2003\nA &%Set containing a finite number of elements."
	(is-a Set)
	(role concrete))

(defclass NullSet "SUO 1.55: July 14, 2003\nAny &%SetOrClass that contains no instances."
	(is-a SetOrClass)
	(role concrete))

(defclass NonNullSet "SUO 1.55: July 14, 2003\nAny &%SetOrClass that contains at least one\ninstance."
	(is-a SetOrClass)
	(role concrete))

(defclass PairwiseDisjointClass "SUO 1.55: July 14, 2003\nA &%SetOrClass is a &%PairwiseDisjointClass\njust in case every instance of the &%SetOrClass is either &%equal to or &%disjoint\nfrom every other instance of the &%SetOrClass."
	(is-a SetOrClass)
	(role concrete))

(defclass MutuallyDisjointClass "SUO 1.55: July 14, 2003\nA &%SetOrClass is a &%MutuallyDisjointClass\njust in case there exists nothing which is an instance of all of the instances of\nthe original &%SetOrClass."
	(is-a SetOrClass)
	(role concrete))

(defclass Relation "SUO 1.55: July 14, 2003\nThe &%Class of relations.  There are three kinds \nof &%Relation:  &%Predicate, &%Function, and &%List.  &%Predicates and \n&%Functions both denote sets of ordered n-tuples.  The difference between \nthese two &%Classes is that &%Predicates cover formula-forming operators, while \n&%Functions cover term-forming operators.  A &%List, on the other hand, is a \nparticular ordered n-tuple."
	(is-a Abstract)
	(role concrete)
	(single-slot domain
;+		(comment "Provides a computationally and heuristicallyconvenient mechanism for declaring the argument types of a given relation.  The formula (&%domain ?REL ?INT ?CLASS) means that the ?INT'th element of each tuple in the relation ?REL must be an instance of ?CLASS.  Specifying argumenttypes is very helpful in maintaining ontologies.  Representation systems can use these specifications to classify terms and check integrity constraints.  If the restriction on the argument type of a &%Relation is not captured by a &%SetOrClass already defined in the ontology, one can specify a &%SetOrClass compositionally with the functions &%UnionFn, &%IntersectionFn, etc.")
		(type INSTANCE)
;+		(allowed-classes PositiveInteger)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot holds
;+		(comment "(holds P N1 ... NK) is true just in case the tuple of objects denoted by N1,..., NK is an element of the &%Relation P.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot domainSubclass
;+		(comment "&%Predicate used to specify argument type restrictions of &%Predicates.  The formula (&%domainSubclass ?REL ?INT ?CLASS) means that the ?INT'th element of each tuple in the relation ?REL must be a subclass of ?CLASS.")
		(type INSTANCE)
;+		(allowed-classes PositiveInteger)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot valence
;+		(comment "Specifies the number of arguments that a relation can take.  If a relation does not have a fixed number of arguments, it does not have a valence and it is an instance of &%VariableArityRelation.  For example, &%holds is a &%VariableArityRelation.")
		(type INSTANCE)
;+		(allowed-classes PositiveInteger)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot subrelation
;+		(comment "A &%Relation R is a &%subrelation &%Relation R' if R is a &%subclass R'.  This implies that every tuple of R is also a tuple of R'.  Again, if R holds for some arguments arg_1, arg_2, ... arg_n, then R' holds for the same arguments.  Thus, a &%Relation and its subrelation must have the same valence. In CycL, &%subrelation is called #$genlPreds.")
		(type INSTANCE)
;+		(allowed-classes Relation)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass SingleValuedRelation "SUO 1.55: July 14, 2003\nA &%Relation is a &%SingleValuedRelation\njust in case an assignment of values to every argument position except the last\none determines at most one assignment for the last argument position.  Note\nthat not all &%SingleValuedRelations are &%TotalValuedRelations."
	(is-a Relation)
	(role concrete))

(defclass Function "SUO 1.55: July 14, 2003\nA &%Function is a term-forming &%Relation that \nmaps from a n-tuple of arguments to a range and that associates this \nn-tuple with at most one range element.  Note that the range is a &%SetOrClass, \nand each element of the range is an instance of the &%SetOrClass."
	(is-a SingleValuedRelation)
	(role concrete)
	(single-slot rangeSubclass
;+		(comment "(&%rangeSubclass ?FUNCTION ?CLASS) means that all of the values assigned by ?FUNCTION are &%subclasses of ?CLASS.")
		(type SYMBOL)
;+		(allowed-parents SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot closedOn
;+		(comment "A &%BinaryFunction is closed on a &%SetOrClass if it is defined for all instances of the &%SetOrClass and its value is always an instance of the &%SetOrClass.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AssignmentFn
;+		(comment "If F is a function with a value for the objects denoted by N1,..., NK, then the term (AssignmentFn F N1 ... NK) denotes the value of applying F to the objects denoted by N1,..., NK.  Otherwise, the value is undefined.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass FunctionQuantity "SUO 1.55: July 14, 2003\nA &%FunctionQuantity is a &%Function that\nmaps from one or more instances of &%ConstantQuantity to another instance\nof &%ConstantQuantity.  For example, the velocity of a particle would be\nrepresented by a &%FunctionQuantity mapping values of time (which are\n&%ConstantQuantities) to values of distance (also &%ConstantQuantities).\nNote that all instances of &%FunctionQuantity are &%Functions with a fixed\narity.  Note too that all elements of the range of a &%FunctionQuantity\nhave the same physical dimension as the &%FunctionQuantity itself."
	(is-a PhysicalQuantity Function)
	(role concrete))

(defclass Ampere "SUO 1.55: July 14, 2003\nSI electric current measure.  Symbol: A. It is\none of the base units in SI. It is defined as follows: the &%Ampere is\nthat constant current which, if maintained in two straight parallel\nconductors of infinite length, of negligible circular cross-section, and\nplaced 1 &%Meter apart in a vacuum, would produce between these conductors\na force equal to 2*10^(-7) &%Newton per &%Meter of length."
	(is-a FunctionQuantity)
	(role concrete))

(defclass Candela "SUO 1.55: July 14, 2003\nSI luminosity intensity measure.  Symbol: cd.\nIt is one of the base units in SI, and it is currently defined as\nfollows:  the &%Candela is the luminous intensity, in a given direction,\nof a source that emits monochromatic radiation of frequency 540*10^12\n&%Hertz and that has a radiant intensity in that direction of 1/683\n&%Watt per &%Steradian."
	(is-a FunctionQuantity)
	(role concrete))

(defclass Newton "SUO 1.55: July 14, 2003\nSI force measure.  Symbol: N. It is that force\nwhich gives to a mass of 1 kilogram an acceleration of 1 &%Meter per\n&%SecondDuration.  &%Newton = m*kg*s^(-2)."
	(is-a FunctionQuantity)
	(role concrete))

(defclass Pascal "SUO 1.55: July 14, 2003\nSI pressure measure.  Symbol:Pa. It is the\npressure of one &%Newton per square &%Meter.  &%Pascal = N/m^2\n= m^(-1)*kg*s^(-2)."
	(is-a FunctionQuantity)
	(role concrete))

(defclass Joule "SUO 1.55: July 14, 2003\nSI energy measure.  Symbol: J.  It is the work\ndone when the point of application of 1 &%Newton is displaced a distance\nof 1 &%Meter in the direction of the force.  &%Joule = N*m =\nm^2*kg*s^(-2)."
	(is-a FunctionQuantity)
	(role concrete))

(defclass Watt "SUO 1.55: July 14, 2003\nSI power measure.  Symbol: W.  A &%UnitOfMeasure\nthat measures power, i.e. energy produced or expended divided by\n&%TimeDuration. It is the power which gives rise to the production\nof energy (or work) at the rate of one &%Joule per &%SecondDuration.\n&%Watt = J/s = m^2*kg*s^(-3)."
	(is-a FunctionQuantity)
	(role concrete))

(defclass Volt "SUO 1.55: July 14, 2003\nSI electric potential measure.  Symbol: V.  It is\nthe difference of electric potential between two points of a conducting\nwire carrying a constant current of 1 &%Ampere, when the power dissipated\nbetween these points is equal to 1 &%Watt.  &%Volt = W/A =\nm^2*kg*s^(-3)*A^(-1)."
	(is-a FunctionQuantity)
	(role concrete))

(defclass Farad "SUO 1.55: July 14, 2003\nSI capacitance measure.  Symbol: F.  It is the\ncapacitance of a capacitator between the plates of which there appears\na difference of potential of 1 &%Volt when it is charged by a quantity\nof electricity equal to 1 Coulomb.  &%Farad = C/V =\nm^(-2)*kg(-1)*s^4*A^2."
	(is-a FunctionQuantity)
	(role concrete))

(defclass Ohm "SUO 1.55: July 14, 2003\nSI electric resistance measure. It is the electric\nresistance between two points of a conductor when a constant difference\nof potential of 1 &%Volt, applied between these two points,\nproduces in this conductor a current of 1 &%Ampere, this conductor not\nbeing the force of any electromotive force.  &%Ohm = V/A =\nm^2*kg*s^(-3)*A^(-2)."
	(is-a FunctionQuantity)
	(role concrete))

(defclass Siemens "SUO 1.55: July 14, 2003\nSI electric conductance measure.  Symbol:  S.\nIn the case of direct current, the conductance in &%Siemens is the\nreciprocal of the resistance in &%Ohms; in the case of alternating current,\nit is the reciprocal of the impedance in ohms.  siemens = A/V =\nm^(-2)*kg(-1)*s^(3)*A^2."
	(is-a FunctionQuantity)
	(role concrete))

(defclass Weber "SUO 1.55: July 14, 2003\nSI magnetic flux measure.  Symbol: Wb. It is the\nmagnetic flux which, linking a circuit of one turn, produces in it an\nelectromotive force of 1 &%Volt as it is reduced to zero at a uniform\nrate in 1 &%SecondDuration.  &%Weber = V*s = m^2*kg*s^(-2)*A^(-1)."
	(is-a FunctionQuantity)
	(role concrete))

(defclass Tesla "SUO 1.55: July 14, 2003\nSI magnetic flux density measure.  Symbol:  T.\nOne &%Tesla equals one &%Weber per square &%Meter.  &%Tesla = Wb/m^2 =\nkg*s^(-2)*A^(-1)."
	(is-a FunctionQuantity)
	(role concrete))

(defclass Henry "SUO 1.55: July 14, 2003\nSI inductance measure.  Symbol: H.  One &%Henry\nis equivalent to one &%Volt divided by one &%Ampere per &%SecondDuration.\nIf a current changing at the rate of one &%Ampere per &%SecondDuration\ninduces an electromotive force of one &%Volt, the circuit has an\ninductance of one &%Henry.  &%Henry = Wb/A = m^2*kg*s^(-2)*A^(-2)."
	(is-a FunctionQuantity)
	(role concrete))

(defclass Lumen "SUO 1.55: July 14, 2003\nSI luminous flux measure.  Symbol: lm.  It is the\namount streaming outward through one solid angle of 1 &%Steradian from a\nuniform point source having an intensity of one &%Candela.  &%Lumen =\ncd*sr = cd * 1."
	(is-a FunctionQuantity)
	(role concrete))

(defclass Lux "SUO 1.55: July 14, 2003\nSI illuminance measure.  Symbol: lx.  It is the\namount of illumination provided when one &%Lumen is evenly distributed\nover an area of 1 square &%Meter. This is also equivalent to the\nillumination that would exist on a surface all points of which are one\n&%Meter from a point source of one &%Candela.  &%Lux = lm/m^2 =\nm^(-2)*cd."
	(is-a FunctionQuantity)
	(role concrete))

(defclass Gray "SUO 1.55: July 14, 2003\nSI absorbed dose measure.  Symbol: Gy.  It measures\nthe dose of radiation absorbed in living tissue. It is equal approximately\nto the absorbed dose delivered when the energy per unit mass imparted to\nmatter by ionizing radiation is 1 &%Joule per kilogram.  &%Gray = J/kg\n= m^2*s^(-2)."
	(is-a FunctionQuantity)
	(role concrete))

(defclass Sievert "SUO 1.55: July 14, 2003\nSI dose equivalent measure.  Symbol: Sv.  It is\na unit of biologic dose of ionizing radiation.  The &%Sievert makes it\npossible to normalize doses of different types of radiation. It takes\ninto account the relative biologic effectiveness of ionizing radiation,\nsince each form of such radiation--e.g., X rays, gamma rays, neutrons--\nhas a slightly different effect on living tissue for a given absorbed\ndose. The dose equivalent of a given type of radiation (in &%Sievert) is\nthe dose of the radiation in &%Gray multiplied by a quality factor that\nis based on the relative biologic effectiveness of the radiation.\nAccordingly, one &%Sievert is generally defined as the amount of radiation\nroughly equivalent in biologic effectiveness to one &%Gray of gamma\nradiation.  &%Sievert = J/kg = m^2*s^(-2)"
	(is-a FunctionQuantity)
	(role concrete))

(defclass ElectronVolt "SUO 1.55: July 14, 2003\nThe &%ElectronVolt is an energy measure.\nSymbol: eV.  It is the kinetic energy acquired by an electron in passing\nthrough a potential difference of 1 &%Volt in a vacuum."
	(is-a FunctionQuantity)
	(role concrete))

(defclass PoundForce "SUO 1.55: July 14, 2003\nEnglish pound of force. The conversion\nfactor depends on the local value of the acceleration of free fall. A\nmean value is used in the conversion axiom associated with this\nconstant."
	(is-a FunctionQuantity)
	(role concrete))

(defclass Calorie "SUO 1.55: July 14, 2003\nA &%Calorie is an energy measure."
	(is-a FunctionQuantity)
	(role concrete))

(defclass BritishThermalUnit "SUO 1.55: July 14, 2003\nAn energy measure."
	(is-a FunctionQuantity)
	(role concrete))

(defclass ContinuousFunction "SUO 1.55: July 14, 2003\n&%Functions which are continuous.\nThis concept is taken as primitive until representations for limits\nare devised."
	(is-a Function)
	(role concrete))

(defclass TotalValuedRelation "SUO 1.55: July 14, 2003\nA &%Relation is a &%TotalValuedRelation\njust in case there exists an assignment for the last argument position of the\n&%Relation given any assignment of values to every argument position except\nthe last one.  Note that declaring a &%Relation to be both a &%TotalValuedRelation\nand a &%SingleValuedRelation means that it is a total function."
	(is-a Relation)
	(role concrete))

(defclass PartialValuedRelation "SUO 1.55: July 14, 2003\nA &%Relation is a &%PartialValuedRelation\njust in case it is not a &%TotalValuedRelation, i.e. just in case assigning values\nto every argument position except the last one does not necessarily mean that there\nis a value assignment for the last argument position.  Note that, if a &%Relation\nis both a &%PartialValuedRelation and a &%SingleValuedRelation, then it is a partial\nfunction."
	(is-a Relation)
	(role concrete))

(defclass BinaryRelation "SUO 1.55: July 14, 2003\n&%BinaryRelations are relations that are \ntrue only of pairs of things.  &%BinaryRelations are represented as slots \nin frame systems."
	(is-a Relation)
	(role concrete)
	(single-slot reflexiveOn
;+		(comment "A &%BinaryRelation is reflexive on a &%SetOrClass only if every instance of the &%SetOrClass bears the relation to itself.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot equivalenceRelationOn
;+		(comment "A &%BinaryRelation is an &%equivalenceRelationOn a &%SetOrClass only if the relation is &%reflexiveOn the &%SetOrClass and it is both a &%TransitiveRelation and a &%SymmetricRelation.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot totalOrderingOn
;+		(comment "A &%BinaryRelation ?REL is a total ordering on a &%SetOrClass only if it is a partial ordering for which either (?REL ?INST1 ?INST2) or (?REL ?INST2 ?INST1) for every ?INST1 and ?INST2 in the &%SetOrClass.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot irreflexiveOn
;+		(comment "A &%BinaryRelation is irreflexive on a &%SetOrClass only if no instance of the &%SetOrClass bears the relation to itself.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot partialOrderingOn
;+		(comment "A &%BinaryRelation is a partial ordering on a &%SetOrClass only if the relation is &%reflexiveOn the &%SetOrClass, and it is both an &%AntisymmetricRelation, and a &%TransitiveRelation.")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot trichotomizingOn
;+		(comment "A &%BinaryRelation ?REL is trichotomizing on a &%SetOrClass only if, for all instances ?INST1 and ?INST2 of the &%SetOrClass, at least one of the following holds:  (?REL ?INST1 ?INST2),(?REL ?INST2 ?INST1) or (equal ?INST1 ?INST2).")
		(type INSTANCE)
;+		(allowed-classes SetOrClass)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass ReflexiveRelation "SUO 1.55: July 14, 2003\n&%Relation ?REL is reflexive if\n(?REL ?INST ?INST) for all ?INST."
	(is-a BinaryRelation)
	(role concrete))

(defclass IrreflexiveRelation "SUO 1.55: July 14, 2003\n&%Relation ?REL is irreflexive\nif (?REL ?INST ?INST) holds for no value of ?INST."
	(is-a BinaryRelation)
	(role concrete))

(defclass SymmetricRelation "SUO 1.55: July 14, 2003\nA &%BinaryRelation ?REL is\nsymmetric just in case (?REL ?INST1 ?INST2) imples (?REL\n?INST2 ?INST1), for all ?INST1 and ?INST2."
	(is-a BinaryRelation)
	(role concrete))

(defclass AntisymmetricRelation "SUO 1.55: July 14, 2003\n&%BinaryRelation ?REL is an\n&%AntisymmetricRelation if for distinct ?INST1 and ?INST2, (?REL ?INST1\n?INST2) implies not (?REL ?INST2 ?INST1).  In other words, for all ?INST1\nand ?INST2, (?REL ?INST1 ?INST2) and (?REL ?INST2 ?INST1) imply that ?INST1\nand ?INST2 are identical.  Note that it is possible for an\n&%AntisymmetricRelation to be a &%ReflexiveRelation."
	(is-a BinaryRelation)
	(role concrete))

(defclass AsymmetricRelation "SUO 1.55: July 14, 2003\nA &%BinaryRelation is asymmetric only\nif it is both an &%AntisymmetricRelation and an &%IrreflexiveRelation."
	(is-a IrreflexiveRelation AntisymmetricRelation)
	(role concrete))

(defclass TrichotomizingRelation "SUO 1.55: July 14, 2003\nA &%BinaryRelation ?REL is a\n&%TrichotomizingRelation just in case all ordered pairs consisting of\ndistinct individuals are elements of ?REL."
	(is-a BinaryRelation)
	(role concrete))

(defclass TransitiveRelation "SUO 1.55: July 14, 2003\nA &%BinaryRelation ?REL is transitive\nif (?REL ?INST1 ?INST2) and (?REL ?INST2 ?INST3) imply (?REL ?INST1 ?INST3),\nfor all ?INST1, ?INST2, and ?INST3."
	(is-a BinaryRelation)
	(role concrete))

(defclass PartialOrderingRelation "SUO 1.55: July 14, 2003\nA &%BinaryRelation is a partial\nordering if it is a &%ReflexiveRelation, an &%AntisymmetricRelation, and\na &%TransitiveRelation."
	(is-a TransitiveRelation AntisymmetricRelation ReflexiveRelation)
	(role concrete))

(defclass TotalOrderingRelation "SUO 1.55: July 14, 2003\nA &%BinaryRelation is a\n&%TotalOrderingRelation if it is a &%PartialOrderingRelation\nand a &%TrichotomizingRelation."
	(is-a PartialOrderingRelation TrichotomizingRelation)
	(role concrete))

(defclass EquivalenceRelation "SUO 1.55: July 14, 2003\nA &%BinaryRelation is an equivalence\nrelation if it is a &%ReflexiveRelation, a &%SymmetricRelation, and a\n&%TransitiveRelation."
	(is-a TransitiveRelation SymmetricRelation ReflexiveRelation)
	(role concrete))

(defclass IntransitiveRelation "SUO 1.55: July 14, 2003\nA &%BinaryRelation ?REL is\nintransitive only if (?REL ?INST1 ?INST2) and (?REL ?INST2 ?INST3) imply not\n(?REL ?INST1 ?INST3), for all ?INST1, ?INST2, and ?INST3."
	(is-a BinaryRelation)
	(role concrete))

(defclass UnaryFunction "SUO 1.55: July 14, 2003\nThe &%Class of &%Functions that require a\nsingle argument."
	(is-a Function BinaryRelation)
	(role concrete))

(defclass UnaryConstantFunctionQuantity "SUO 1.55: July 14, 2003\nThe class of &%UnaryFunctions\nthat map from the &%Class &%ConstantQuantity to the &%Class\n&%ConstantQuantity."
	(is-a UnaryFunction FunctionQuantity)
	(role concrete))

(defclass TimeDependentQuantity "SUO 1.55: July 14, 2003\nA &%UnaryConstantFunction of continuous\ntime.  All instances of this &%Class map a time quantity into another\n&%ConstantQuantity such as temperature.  For example, 'the temperature at\nthe top of the Empire State Building' is a &%TimeDependentQuantity since\nits value depends on the time."
	(is-a UnaryConstantFunctionQuantity ContinuousFunction)
	(role concrete))

(defclass Hertz "SUO 1.55: July 14, 2003\nSI frequency measure.  Symbol: Hz. It is the\nnumber of cycles per second.  &%Hertz = s^(-1).  Note that &%Hertz\ndoes not have a conversion function."
	(is-a TimeDependentQuantity)
	(role concrete))

(defclass Coulomb "SUO 1.55: July 14, 2003\nSI electric charge measure.  Symbol: C. It is\nthe quantity of electric charge transported through a cross section of\na conductor in an electric circuit during each &%SecondDuration by a\ncurrent of 1 &%Ampere.  Coulomb = s*A."
	(is-a TimeDependentQuantity)
	(role concrete))

(defclass Becquerel "SUO 1.55: July 14, 2003\nSI activity measure.  Symbol: Bq.  It measures\nthe amount of radioactivity contained in a given sample of matter. It is\nthat quantity of a radioactive element in which there is one atomic\ndisintegration per &%SecondDuration.  &%Becquerel = s^(-1)."
	(is-a TimeDependentQuantity)
	(role concrete))

(defclass OneToOneFunction "SUO 1.55: July 14, 2003\nThe &%Class of &%UnaryFunctions which\nare one to one.  A function F is one to one just in case for all X, Y in the\ndomain of F, if X is not identical to Y, then F(X) is not identical to F(Y)."
	(is-a UnaryFunction)
	(role concrete))

(defclass SequenceFunction "SUO 1.55: July 14, 2003\nThe &%Class of &%OneToOneFunctions whose range\nis a subclass of the &%PositiveIntegers."
	(is-a OneToOneFunction)
	(role concrete))

(defclass ProbabilityRelation "SUO 1.55: July 14, 2003\nThe &%Class of &%Relations that\npermit assessment of the probability of an event or situation."
	(is-a Relation)
	(role concrete))

(defclass SpatialRelation "SUO 1.55: July 14, 2003\nThe &%Class of &%Relations that are\nspatial in a wide sense.  This &%Class includes mereological relations\nand topological relations."
	(is-a Relation)
	(role concrete))

(defclass TemporalRelation "SUO 1.55: July 14, 2003\nThe &%Class of temporal &%Relations.\nThis &%Class includes notions of (temporal) topology of intervals,\n(temporal) schemata, and (temporal) extension."
	(is-a Relation)
	(role concrete))

(defclass TernaryRelation "SUO 1.55: July 14, 2003\n&%TernaryRelations relate three items.\nThe two &%subclasses of &%TernaryRelation are &%TernaryPredicate and\n&%BinaryFunction."
	(is-a Relation)
	(role concrete))

(defclass BinaryFunction "SUO 1.55: July 14, 2003\nThe &%Class of &%Functions that require \ntwo arguments."
	(is-a Function TernaryRelation)
	(role concrete)
	(single-slot distributes
;+		(comment "A &%BinaryFunction ?FUNCTION1 is distributive over another &%BinaryFunction ?FUNCTION2 just in case (?FUNCTION1 ?INST1 (?FUNCTION2 ?INST2 ?INST3)) is equal to (?FUNCTION2 (?FUNCTION1 ?INST1 ?INST2) (?FUNCTION1 ?INST1 ?INST3)), for all ?INST1, ?INST2, and ?INST3.")
		(type INSTANCE)
;+		(allowed-classes BinaryFunction)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot identityElement
;+		(comment "An object ?ID is the identity element for BinaryFunction ?FUNCTION just in case, for every instance ?INST, applying ?FUNCTION to ?INST and ?ID results in ?INST.")
		(type INSTANCE)
;+		(allowed-classes Entity)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass AssociativeFunction "SUO 1.55: July 14, 2003\nA &%BinaryFunction is associative if\nbracketing has no effect on the value returned by the &%Function.  More\nprecisely, a &%Function ?FUNCTION is associative just in case\n(?FUNCTION ?INST1 (?FUNCTION ?INST2 ?INST3)) is equal to\n(?FUNCTION (?FUNCTION ?INST1 ?INST2) ?INST3), for all ?INST1, ?INST2,\nand ?INST3."
	(is-a BinaryFunction)
	(role concrete))

(defclass CommutativeFunction "SUO 1.55: July 14, 2003\nA &%BinaryFunction is commutative if\nthe ordering of the arguments of the function has no effect on the value\nreturned by the function.  More precisely, a function ?FUNCTION is\ncommutative just in case (?FUNCTION ?INST1 ?INST2) is equal to (?FUNCTION\n?INST2 ?INST1), for all ?INST1 and ?INST2."
	(is-a BinaryFunction)
	(role concrete))

(defclass QuaternaryRelation "SUO 1.55: July 14, 2003\n&%QuaternaryRelations relate four\nitems.  The two &%subclasses of &%QuaternaryRelation are\n&%QuaternaryPredicate and &%TernaryFunction."
	(is-a Relation)
	(role concrete))

(defclass TernaryFunction "SUO 1.55: July 14, 2003\nThe &%Class of &%Functions that require\nexactly three arguments."
	(is-a Function QuaternaryRelation)
	(role concrete))

(defclass QuintaryRelation "SUO 1.55: July 14, 2003\n&%QuintaryRelations relate five items.\nThe two &%subclasses of &%QuintaryRelation are &%QuintaryPredicate and\n&%QuaternaryFunction."
	(is-a Relation)
	(role concrete))

(defclass QuaternaryFunction "SUO 1.55: July 14, 2003\nThe &%Class of &%Functions that require\nexactly four arguments."
	(is-a Function QuintaryRelation)
	(role concrete))

(defclass List "SUO 1.55: July 14, 2003\nEvery &%List is a particular ordered n-tuple of \nitems.  Generally speaking, &%Lists are created by means of the &%ListFn \n&%Function, which takes any number of items as arguments and returns a \n&%List with the items in the same order.  Anything, including other \n&%Lists, may be an item in a &%List.  Note too that &%Lists are \nextensional - two lists that have the same items in the same order are \nidentical.  Note too that a &%List may contain no items.  In that case, \nthe &%List is the &%NullList."
	(is-a Relation)
	(role concrete)
	(single-slot ListConcatenateFn
;+		(comment "A &%Function that returns the concatenation of the two &%Lists that are given as arguments.  For example, the value of (&%ListConcatenateFn (&%ListFn &%Monday &%Tuesday) (&%ListFn &%Wednesday &%Thursday)) would be (&%ListFn &%Monday &%Tuesday &%Wednesday &%Thursday).")
		(type INSTANCE)
;+		(allowed-classes List)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ListLengthFn
;+		(comment "A &%Function that takes a &%List as its sole argument and returns the number of items in the &%List.  For example, (&%ListLengthFn (&%ListFn &%Monday &%Tuesday &%Wednesday)) would return the value 3.")
		(type INSTANCE)
;+		(allowed-classes NonnegativeInteger)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot exists
;+		(comment "The existential quantifier of predicate logic.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ListOrderFn
;+		(comment "(&%ListOrderFn ?LIST ?NUMBER) denotes the item that is in the ?NUMBER position in the &%List ?LIST.  For example, (&%ListOrderFn (&%ListFn &%Monday &%Tuesday &%Wednesday) 2) would return the value &%Tuesday.")
		(type INSTANCE)
;+		(allowed-classes PositiveInteger)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot subList
;+		(comment "(&%subList ?LIST1 ?LIST2) means that ?LIST1 is a sublist of ?LIST2, i.e. every element of ?LIST1 is an element of ?LIST2 and the elements that are common to both &%Lists have the same order in both &%Lists.")
		(type INSTANCE)
;+		(allowed-classes List)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot forall
;+		(comment "The universal quantifier of predicate logic.")
		(type INSTANCE)
;+		(allowed-classes Formula)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass UniqueList "SUO 1.55: July 14, 2003\nA &%List in which no item appears more than once,\ni.e. a &%List for which there are no distinct numbers ?NUMBER1 and ?NUMBER2\nsuch that (&%ListOrderFn ?LIST ?NUMBER1) and (&%ListOrderFn ?LIST ?NUMBER2)\nreturn the same value."
	(is-a List)
	(role concrete))

(defclass Predicate "SUO 1.55: July 14, 2003\nA &%Predicate is a sentence-forming &%Relation.\nEach tuple in the &%Relation is a finite, ordered sequence of objects.\nThe fact that a particular tuple is an element of a &%Predicate is denoted\nby '(*predicate* arg_1 arg_2 .. arg_n)', where the arg_i are the\nobjects so related.  In the case of &%BinaryPredicates, the fact can\nbe read as `arg_1 is *predicate* arg_2' or `a *predicate* of\narg_1 is arg_2'."
	(is-a Relation)
	(role concrete))

(defclass LogicalOperator "SUO 1.55: July 14, 2003\nThis &%Class currently comprises all\nof the logical operators (viz. 'and', 'or', 'not', '=>', and '<=>')."
	(is-a Predicate)
	(role concrete))

(defclass BinaryPredicate "SUO 1.55: July 14, 2003\nA &%Predicate relating two items - its\nvalence is two."
	(is-a Predicate BinaryRelation)
	(role concrete))

(defclass CaseRole "SUO 1.55: July 14, 2003\nThe &%Class of &%Predicates relating the\nspatially distinguished parts of a &%Process. &%CaseRoles include, for\nexample, the &%agent, &%patient or &%destination of an action, the flammable\nsubstance in a burning process, or the water that falls in rain."
	(is-a BinaryPredicate AsymmetricRelation)
	(role concrete))

(defclass TernaryPredicate "SUO 1.55: July 14, 2003\nThe &%Class of &%Predicates that require\nexactly three arguments."
	(is-a Predicate TernaryRelation)
	(role concrete))

(defclass QuaternaryPredicate "SUO 1.55: July 14, 2003\nThe &%Class of &%Predicates that\nrequire four arguments."
	(is-a Predicate QuaternaryRelation)
	(role concrete))

(defclass QuintaryPredicate "SUO 1.55: July 14, 2003\nThe &%Class of &%Predicates that\nrequire five arguments."
	(is-a Predicate QuintaryRelation)
	(role concrete))

(defclass VariableArityRelation "SUO 1.55: July 14, 2003\nThe &%Class of &%Relations that\ndo not have a fixed number of arguments."
	(is-a Relation)
	(role concrete))

(defclass RelationExtendedToQuantities "SUO 1.55: July 14, 2003\nA\n&%RelationExtendedToQuantities is a &%Relation that, when it is true on\na sequence of arguments that are &%RealNumbers, it is also true on a\nsequence of &%ConstantQuantites with those magnitudes in some unit of\nmeasure.  For example, the &%lessThan relation is extended to quantities.\nThis means that for all pairs of quantities ?QUANTITY1 and ?QUANTITY2,\n(lessThan ?QUANTITY1 ?QUANTITY2) if and only if, for some ?NUMBER1,\n?NUMBER2, and ?UNIT, ?QUANTITY1 = (MeasureFn ?NUMBER1 ?UNIT),\n?QUANTITY2 = (MeasureFn ?NUMBER2 ?UNIT), and (lessThan ?NUMBER1 ?NUMBER2),\nfor all units ?UNIT on which ?QUANTITY1 and ?QUANTITY2 can be measured.\nNote that, when a &%RelationExtendedToQuantities is extended from\n&%RealNumbers to &%ConstantQuantities, the &%ConstantQuantities must be\nmeasured along the same physical dimension."
	(is-a Relation)
	(role concrete))

(defclass IntentionalRelation
	(is-a Relation)
	(role concrete))

(defclass PropositionalAttitude "SUO 1.55: July 14, 2003\nThe &%Class of\n&%IntentionalRelations where the &%Agent has awareness of a\n&%Proposition."
	(is-a IntentionalRelation AsymmetricRelation)
	(role concrete))

(defclass ObjectAttitude "SUO 1.55: July 14, 2003\nThe &%Class of &%IntentionalRelations\nwhere the &%Agent has awareness of an instance of &%Physical."
	(is-a IntentionalRelation)
	(role concrete))

(defclass Grounding "A serialization or mapping of an abstract concept to a physical representation.	"
	(is-a Relation)
	(role concrete)
	(single-slot mechanism
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot representation
;+		(comment "The physical representation of this Abstract concept.")
		(type INSTANCE)
;+		(allowed-classes Document)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Proposition "SUO 1.55: July 14, 2003\n&%Propositions are &%Abstract entities that express a complete thought or a set of such thoughts.  As an example, the formula '(instance Yojo Cat)' expresses the &%Proposition that the entity named Yojo is an element of the &%Class of Cats.  Note that propositions are not restricted to the content expressed by individual sentences of a &%Language.  They may encompass the content expressed by theories, books, and even whole libraries.  It is important to distinguish &%Propositions from the &%ContentBearingObjects that express them.  A &%Proposition is a piece of information, e.g. that the cat is on the mat, but a &%ContentBearingObject is an &%Object that represents this information.  A &%Proposition is an abstraction that may have multiple representations: strings, sounds, icons, etc.  For example, the &%Proposition that the cat is on the mat is represented here as a tring of graphical characters displayed on a monitor and/or printed on paper, but it can be represented by a sequence of sounds or by some non-latin alphabet or by some cryptographic form"
	(is-a Abstract)
	(role concrete)
	(single-slot subProposition
;+		(comment "(&%subProposition ?PROP1 ?PROP2) means that ?PROP1 is a &%Proposition which is a proper part of the &%Proposition ?PROP2.  In other words, &%subProposition is the analogue of &%properPart for chunks of abstract content.")
		(type INSTANCE)
;+		(allowed-classes Proposition)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot consistent
;+		(comment "(&%consistent ?PROP1 ?PROP2) means that the two &%Propositions ?PROP1 and ?PROP2 are consistent with one another, i.e. it is possible for both of them to be true at the same time.\n")
		(type INSTANCE)
;+		(allowed-classes Proposition)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass FieldOfStudy "SUO 1.55: July 14, 2003\nAn academic or applied discipline with\nrecognized experts and with a core of accepted theory or practice.  Note\nthat &%FieldOfStudy is a &%subclass of &%Proposition, because a\n&%FieldOfStudy is understood to be a body of abstract, informational\ncontent, with varying degrees of certainty attached to each element of\nthis content."
	(is-a Proposition)
	(role concrete))

(defclass Procedure "SUO 1.55: July 14, 2003\nA sequence-dependent specification.  Some\nexamples are &%ComputerPrograms, finite-state machines, cooking recipes,\nmusical scores, conference schedules, driving directions, and the scripts\nof plays and movies."
	(is-a Proposition)
	(role concrete))

(defclass ComputerProgram "SUO 1.55: July 14, 2003\nA set of instructions in a computer\nprogramming language that can be executed by a computer."
	(is-a Procedure)
	(role concrete))

(defclass Plan "SUO 1.55: July 14, 2003\nA specification of a sequence of &%Processes which \nis intended to satisfy a specified purpose at some future time."
	(is-a Procedure)
	(role concrete)
	(single-slot subPlan
;+		(comment "(&%subPlan ?PLAN1 ?PLAN2) means that ?PLAN1 is a &%Plan which is a proper part of ?PLAN2.  This relation is generally used to relate a supporting &%Plan to the overall &%Plan in a particular context.\n")
		(type INSTANCE)
;+		(allowed-classes Plan)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass PaymentTerms
	(is-a Procedure)
	(role concrete)
	(single-slot ID
;+		(comment "unique identifier")
		(type STRING)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot SettlementPeriod
		(type INSTANCE)
;+		(allowed-classes TimeDuration)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot FromEventCode
		(type STRING)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Argument "SUO 1.55: July 14, 2003\nAny proposition which has the form of a deductive \nor inductive argument, i.e. a set of premises which, it is claimed, imply \na conclusion."
	(is-a Proposition)
	(role concrete)
	(single-slot premise
;+		(comment "(&%premise ?ARGUMENT ?PROPOSITION) means that the\n&%Proposition ?PROPOSITION is an explicit assumption of the &%Argument\n?ARGUMENT.\n")
		(type INSTANCE)
;+		(allowed-classes Proposition)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PremisesFn
;+		(comment "(&%PremisesFn ?ARGUMENT) returns the complete set of &%premises of the &%Argument ?ARGUMENT.\n")
		(type INSTANCE)
;+		(allowed-classes Proposition)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot conclusion
;+		(comment "(&%conclusion ?ARGUMENT ?PROPOSITION) means that\nthe &%Proposition ?PROPOSITION is the conclusion explicitly drawn from the\n&%Argument ?ARGUMENT.  Note that it may or may not be the case that ?ARGUMENT &%entails ?PROPOSITION.\n")
		(type INSTANCE)
;+		(allowed-classes Proposition)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass DeductiveArgument "SUO 1.55: July 14, 2003\nAn &%Argument which has the form of a\ndeduction, i.e. it is claimed that the set of &%premises &%entails the\n&%conclusion."
	(is-a Argument)
	(role concrete))

(defclass ValidDeductiveArgument "SUO 1.55: July 14, 2003\nA &%DeductiveArgument which is\nvalid, i.e. the set of &%premises in fact &%entails the &%conclusion."
	(is-a DeductiveArgument)
	(role concrete))

(defclass InvalidDeductiveArgument "SUO 1.55: July 14, 2003\n&%DeductiveArguments that are not\n&%ValidDeductiveArguments, i.e. it is not the case that the set of &%premises\nin fact &%entails the &%conclusion."
	(is-a DeductiveArgument)
	(role concrete))

(defclass Explanation "SUO 1.55: July 14, 2003\nAn &%Argument where the conclusion is an\nobserved fact and the premises are other facts which collectively imply\nthe conclusion.  Note that this is the they hypothetico-deductive model\nof explanation."
	(is-a DeductiveArgument)
	(role concrete))

(defclass Text-Abstract "An abstract text consist of an arrangement of linguistic elements, with at least one proposition, and may contain graphical elements which are not propositions.  A proposition represented by a graphical arrangement of symbols could be classified here.  An abstract linguistic element which is not a proposition (e.g. a word) would be classified under \"AbstractSymbol\".  Conceptual objects with graphical elements only wold be classified under \"AbstractGraphicalObject\" -- such as the abstract content of a set of pictures (of which there may be many physical copies,including elelctronic versions)."
	(is-a Proposition)
	(role concrete)
	(single-slot representedBy
;+		(comment "representedBy relates an abstract object created by an intelligent agent (an abstract  text, image, proposition) to some physical object that is intended to represent it.")
		(type INSTANCE)
;+		(allowed-classes Text)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass TransactionRecordAbstract "A TransactionRecordAbstract is a conceptual object which contains the information regarding the whole or some part of a transaction event (or series of related events).  It will have some form of physical representation, even if only in the mind of one of the participating agents."
	(is-a Text-Abstract)
	(role concrete))

(defclass Item
	(is-a TransactionRecordAbstract)
	(role concrete)
	(single-slot ID
;+		(comment "unique identifier")
		(type STRING)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot priceAmount
		(type FLOAT)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot priceAmountCurrency
		(type SYMBOL)
;+		(allowed-parents CurrencyMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Description
		(type INSTANCE)
;+		(allowed-classes BinaryPredicate)
;+		(value [SUMO148_00011])
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot product
		(type INSTANCE)
;+		(allowed-classes ProductObject)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass DespatchAdvice "A DespatchAdvice is information from a supplier to a customer regarding the goods or services delivered or to be delivered."
	(is-a TransactionRecordAbstract)
	(role concrete)
	(single-slot representedBy
;+		(comment "representedBy relates an abstract object created by an intelligent agent (an abstract  text, image, proposition) to some physical object that is intended to represent it.")
		(type INSTANCE)
;+		(allowed-classes Document)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass ReceiptAdvice "A ReceiptAdvice is information from a customer to a supplier  regarding the goods or services received."
	(is-a TransactionRecordAbstract)
	(role concrete)
	(single-slot representedBy
;+		(comment "representedBy relates an abstract object created by an intelligent agent (an abstract  text, image, proposition) to some physical object that is intended to represent it.")
		(type INSTANCE)
;+		(allowed-classes Document)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Order "A Order is the order from a customer to a supplier of rgoods or services.  It is the referenced order for an Invoice."
	(is-a TransactionRecordAbstract)
	(role concrete)
	(single-slot representedBy
;+		(comment "representedBy relates an abstract object created by an intelligent agent (an abstract  text, image, proposition) to some physical object that is intended to represent it.")
		(type INSTANCE)
;+		(allowed-classes Document)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "unique identifier")
		(type STRING)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass TransactionAmount "A TransactionAmount is s sum of money that is part of a transaction -- as the rpice of an individual item, the extension of a line item, a tax, a shipping charge, or whatever."
	(is-a TransactionRecordAbstract CurrencyMeasure)
	(role concrete))

(defclass CategoryTotal
	(is-a TransactionAmount)
	(role concrete)
	(single-slot taxAmount
		(type INSTANCE)
;+		(allowed-classes TaxAmounts)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RatePercentNumeric
		(type INSTANCE)
;+		(allowed-classes Percent)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RateCategoryCodeID
;+		(comment "???")
		(type STRING)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass TaxAmounts
	(is-a TransactionAmount)
	(role concrete)
	(single-slot TaxableAmount
		(type FLOAT)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot taxAmount
		(type FLOAT)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TaxAmountCurrency
		(type SYMBOL)
;+		(allowed-parents CurrencyMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TaxableAmountCurrency
		(type SYMBOL)
;+		(allowed-parents CurrencyMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass TaxTotal
	(is-a TransactionAmount)
	(role concrete)
	(single-slot taxAmount
		(type INSTANCE)
;+		(allowed-classes TaxAmounts)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot categoryTotal
		(type INSTANCE)
;+		(allowed-classes CategoryTotal)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass LegalTotals
	(is-a TransactionAmount)
	(role concrete)
	(single-slot lineExtensionTotalAmount
		(type FLOAT)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot toBePaidPriceTotalAmountCurrency
		(type SYMBOL)
;+		(allowed-parents CurrencyMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot lineExtensionTotalAmountCurrency
		(type SYMBOL)
;+		(allowed-parents CurrencyMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot toBePaidTotalAmount
		(type FLOAT)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass InvoiceAbstract "A document sent to a buyer from the seller (in a financial transaction) that specifies the items purchased, the cost of said items, any applicable tax and a total."
	(is-a TransactionRecordAbstract)
	(role concrete)
	(single-slot buyerTransaction
		(type INSTANCE)
;+		(allowed-classes Buying)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot PricingCurrencyType
		(type SYMBOL)
;+		(allowed-parents CurrencyMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "unique identifier")
		(type STRING)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot IssueDate
		(type INSTANCE)
;+		(allowed-classes TimePosition)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot InvoiceCurrencyType
		(type SYMBOL)
;+		(allowed-parents CurrencyMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot lineItem
		(type INSTANCE)
;+		(allowed-classes LineItem)
		(cardinality 1 ?VARIABLE)
		(create-accessor read-write))
	(single-slot LineItemCountQuantity
		(type INTEGER)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot context
		(type INSTANCE)
;+		(allowed-classes Context)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TaxPointDate
		(type INSTANCE)
;+		(allowed-classes TimePosition)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot grounding
		(type INSTANCE)
;+		(allowed-classes Grounding)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ReferencedOrder
		(type INSTANCE)
;+		(allowed-classes Order)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot paymentTerms
;+		(comment "Proposed terms of payment.")
		(type INSTANCE)
;+		(allowed-classes PaymentTerms)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TaxCurrencyType
		(type SYMBOL)
;+		(allowed-parents CurrencyMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot subText
;+		(comment "subText relates a Text  (abstract or physical) to one of its proper parts.  This can be used as a necessary\nrelation when some text always has a specific proper part -- a Title for  a Book, for example.")
		(type INSTANCE)
;+		(allowed-classes TransactionAmount)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot taxTotal
		(type INSTANCE)
;+		(allowed-classes TaxTotal)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot sellerTransaction
		(type INSTANCE)
;+		(allowed-classes Selling)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot representedBy
;+		(comment "representedBy relates an abstract object created by an intelligent agent (an abstract  text, image, proposition) to some physical object that is intended to represent it.")
		(type INSTANCE)
;+		(allowed-classes Document)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot legalTotals
		(type INSTANCE)
;+		(allowed-classes LegalTotals)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass InvoiceType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL700001):\n  <ccts:ABIE dictionaryEntryName=\"Invoice. Details\" definition=\"complete information of the invoice.\" qualifierTermObjectClassTerm=\"\" objectClassTerm=\"Invoice\" qualifierTerm_PropertyTerm=\"\" propertyTerm=\"\" representationTerm=\"Details\" xmlns:ccts=\"urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70\" /> \n  "
	(is-a TransactionRecordAbstract)
	(role concrete)
	(single-slot cat%3AReferencedReceiptAdvice
;+		(comment "UBL-element Jul 26-03 (UBL-ID=):\n<ccts:ASBIE dictionaryEntryName=''Invoice. Referenced_ Receipt Advice'' definition=''associates the invoice with a receipt advice. (This is 'either/or' with despatch advice.)'' qualifierTermObjectClassTerm='''' objectClassTerm=''Invoice'' qualifierTerm_PropertyTerm=''Referenced'' propertyTerm=''Receipt Advice'' representationTerm=''Receipt Advice'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot cat%3AInvoiceLine
;+		(comment "UBL-element Jul 26-03 (UBL-ID=):\n<ccts:ASBIE dictionaryEntryName=''Invoice. Invoice Line'' definition=''an invoice has one or more invoice lines'' qualifierTermObjectClassTerm='''' objectClassTerm=''Invoice'' qualifierTerm_PropertyTerm='''' propertyTerm=''Invoice Line'' representationTerm=''Invoice Line'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
		(cardinality 1 ?VARIABLE)
		(create-accessor read-write))
	(single-slot PricingCurrencyCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=):")
		(type INSTANCE)
;+		(allowed-classes CodeType)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cat%3AAllowanceCharge
;+		(comment "UBL-element Jul 26-03 (UBL-ID=):\n<ccts:ASBIE dictionaryEntryName=''Invoice. Allowance Charge'' definition=''associates the invoice with an overall charge or allowance.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Invoice'' qualifierTerm_PropertyTerm='''' propertyTerm=''Allowance Charge'' representationTerm=''Allowance Charge'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cat%3AExchangeRate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=):\n<ccts:ASBIE dictionaryEntryName=''Invoice. Exchange Rate'' definition=''associates the invoice with an exchange rate. In any one invoice there is only one exchange rate needed, either between invoicing at tax currency, or between pricing and invoice totalling.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Invoice'' qualifierTerm_PropertyTerm='''' propertyTerm=''Exchange Rate'' representationTerm=''Exchange Rate'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cat%3AReferencedDespatchAdvice
;+		(comment "UBL-element Jul 26-03 (UBL-ID=):\n<ccts:ASBIE dictionaryEntryName=''Invoice. Referenced_ Despatch Advice'' definition=''associates the invoice with a despatch advice. (This is 'either/or' with receipt advice.)'' qualifierTermObjectClassTerm='''' objectClassTerm=''Invoice'' qualifierTerm_PropertyTerm=''Referenced'' propertyTerm=''Despatch Advice'' representationTerm=''Despatch Advice'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot InvoiceCurrencyCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=):")
		(type INSTANCE)
;+		(allowed-classes CodeType)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot cat%3ATaxTotal
;+		(comment "UBL-element Jul 26-03 (UBL-ID=):\n<ccts:ASBIE dictionaryEntryName=''Invoice. Tax Total'' definition=''associates the invoice with summary information for a particular tax.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Invoice'' qualifierTerm_PropertyTerm='''' propertyTerm=''Tax Total'' representationTerm=''Tax Total'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
		(create-accessor read-write))
	(single-slot LineitemCountQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=):")
		(type INSTANCE)
;+		(allowed-classes QuantityType)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cat%3ABuyerParty
;+		(comment "UBL-element Jul 26-03 (UBL-ID=):\n<ccts:ASBIE dictionaryEntryName=''Invoice. Buyer_ Party'' definition=''associates the invoice with the buyer (invoicee) party.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Invoice'' qualifierTerm_PropertyTerm=''Buyer'' propertyTerm=''Party'' representationTerm=''Party'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot cat%3ALegalTotals
;+		(comment "UBL-element Jul 26-03 (UBL-ID=):\n<ccts:ASBIE dictionaryEntryName=''Invoice. Legal Totals'' definition=''associates the invoice with a set of totals required for the invoice to be a legal document.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Invoice'' qualifierTerm_PropertyTerm='''' propertyTerm=''Legal Totals'' representationTerm=''Legal Totals'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot cat%3APaymentMeans
;+		(comment "UBL-element Jul 26-03 (UBL-ID=):\n<ccts:ASBIE dictionaryEntryName=''Invoice. Payment Means'' definition=''associates the invoice with the expected means of payment.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Invoice'' qualifierTerm_PropertyTerm='''' propertyTerm=''Payment Means'' representationTerm=''Payment Means'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cat%3ASellerParty
;+		(comment "UBL-element Jul 26-03 (UBL-ID=):\n<ccts:ASBIE dictionaryEntryName=''Invoice. Seller_ Party'' definition=''associates the invoice with the seller (invoicer) party.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Invoice'' qualifierTerm_PropertyTerm=''Seller'' propertyTerm=''Party'' representationTerm=''Party'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot TaxPointDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=):")
		(type INSTANCE)
;+		(allowed-classes DateType)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TaxCurrencyCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=):")
		(type INSTANCE)
;+		(allowed-classes CodeType)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cat%3AReferencedOrder
;+		(comment "UBL-element Jul 26-03 (UBL-ID=):\n<ccts:ASBIE dictionaryEntryName=''Invoice. Referenced_ Order'' definition=''an invoice is associated with one order.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Invoice'' qualifierTerm_PropertyTerm=''Referenced'' propertyTerm=''Order'' representationTerm=''Order'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot cat%3AID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL700005):\n<ccts:BBIE dictionaryEntryName=''Invoice. Tax Point_ Date'' definition=''the date of the invoice for tax purposes, in accordance with the applicable tax regulation.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Invoice'' qualifierTerm_PropertyTerm=''Tax Point'' propertyTerm=''Date'' representationTerm=''Date'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cat%3APaymentTerms
;+		(comment "UBL-element Jul 26-03 (UBL-ID=):\n<ccts:ASBIE dictionaryEntryName=''Invoice. Payment Terms'' definition=''associates the invoice with the payment terms applicable/offered.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Invoice'' qualifierTerm_PropertyTerm='''' propertyTerm=''Payment Terms'' representationTerm=''Payment Terms'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass TransactionEntity "A TransactionEntity is one of the types or elements trated in the UBL Op70 specification."
	(is-a Text-Abstract)
	(role concrete))

(defclass ActualShipmentType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000012):\n<ccts:ABIE dictionaryEntryName=''Actual_ Shipment. Details'' definition=''information directly relating to a shipment.'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Shipment'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot GrossVolumeMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000022):\n<ccts:BBIE dictionaryEntryName=''Actual_ Shipment. Gross_ Volume. Measure'' definition=''the total gross volume of the shipment.'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Shipment'' qualifierTerm_PropertyTerm=''Gross'' propertyTerm=''Volume'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000013):\n<ccts:BBIE dictionaryEntryName=''Actual_ Shipment. Identifier'' definition=''Identifier of a shipment.'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Shipment'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot HandlingCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000017):\n<ccts:BBIE dictionaryEntryName=''Actual_ Shipment. Handling_ Code'' definition=''a code indicating the handling necessary for the shipment.'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Shipment'' qualifierTerm_PropertyTerm=''Handling'' propertyTerm=''Code'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot NetNetWeightMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000021):\n<ccts:BBIE dictionaryEntryName=''Actual_ Shipment. Net Net_ Weight. Measure'' definition=''the weight (mass) of the goods themselves without any packing. Sometimes known as the &quot;NetNet Weight&quot;'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Shipment'' qualifierTerm_PropertyTerm=''Net Net'' propertyTerm=''Weight'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot HandlingTypeCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000016):\n<ccts:BBIE dictionaryEntryName=''Actual_ Shipment. Handling_ Type. Code'' definition=''a code indicating the type of handling necessary for the shipment.'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Shipment'' qualifierTerm_PropertyTerm=''Handling'' propertyTerm=''Type'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ShipmentStage
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000026):\n<ccts:ASBIE dictionaryEntryName=''Actual_ Shipment. Shipment Stage'' definition=''associates the shipment with shipment stages.'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Shipment'' propertyTerm=''Shipment Stage'' representationTerm=''Shipment Stage''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot GrossWeightMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000019):\n<ccts:BBIE dictionaryEntryName=''Actual_ Shipment. Gross_ Weight. Measure'' definition=''the total gross weight of the shipment.'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Shipment'' qualifierTerm_PropertyTerm=''Gross'' propertyTerm=''Weight'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot NetWeightMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000020):\n<ccts:BBIE dictionaryEntryName=''Actual_ Shipment. Net_ Weight. Measure'' definition=''the total net weight of the shipment.'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Shipment'' qualifierTerm_PropertyTerm=''Net'' propertyTerm=''Weight'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DeliveryRequirement
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000024):\n<ccts:ASBIE dictionaryEntryName=''Actual_ Shipment. Delivery Requirement'' definition=''associates the shipment with the delivery requirement information .'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Shipment'' propertyTerm=''Delivery Requirement'' representationTerm=''Delivery Requirement''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TransportEquipment
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000027):\n<ccts:ASBIE dictionaryEntryName=''Actual_ Shipment. Transport Equipment'' definition=''associates the shipment with transport equipment'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Shipment'' propertyTerm=''Transport Equipment'' representationTerm=''Transport Equipment''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot NetVolumeMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000023):\n<ccts:BBIE dictionaryEntryName=''Actual_ Shipment. Net_ Volume. Measure'' definition=''the total net volume of the shipment.'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Shipment'' qualifierTerm_PropertyTerm=''Net'' propertyTerm=''Volume'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ShipmentInformation
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000018):\n<ccts:BBIE dictionaryEntryName=''Actual_ Shipment. Information. Text'' definition=''additional information in free form text relating to the shipment.'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Shipment'' propertyTerm=''Information'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ServicelevelCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000014):\n<ccts:BBIE dictionaryEntryName=''Actual_ Shipment. Servicelevel. Code'' definition=''identifies the level of service required for a shipment.'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Shipment'' propertyTerm=''ServiceLevel'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TransportContract
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000025):\n<ccts:ASBIE dictionaryEntryName=''Actual_ Shipment. Transport_ Contract'' definition=''associates the shipment with the contract for transportation. '' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Shipment'' qualifierTerm_PropertyTerm=''Transport'' propertyTerm=''Contract'' representationTerm=''Contract''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot HandlingInstructions
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000015):\n<ccts:BBIE dictionaryEntryName=''Actual_ Shipment. Handling_ Instructions. Text'' definition=''free form text for special handling instructions related to shipment.'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Shipment'' qualifierTerm_PropertyTerm=''Handling'' propertyTerm=''Instructions'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass BuyersItemIdentificationType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000084):\n<ccts:ABIE dictionaryEntryName=''Buyer's_ Item Identification. Details'' definition=''information directly relating to the identification an item by the buyer's identification system.'' qualifierTermObjectClassTerm=''Buyer's'' objectClassTerm=''Item Identification'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot ItemMeasurement
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000088):\n<ccts:ASBIE dictionaryEntryName=''Buyer's_ Item Identification. Item Measurement'' definition=''associates the item with measurements necessary to specifically identify it, e.g. piece length. Note this is NOT the quantity of the item!'' qualifierTermObjectClassTerm=''Buyer's'' objectClassTerm=''Item Identification'' propertyTerm=''Item Measurement'' representationTerm=''Item Measurement''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000085):\n<ccts:BBIE dictionaryEntryName=''Buyer's_ Item Identification. Identifier'' definition=''the principal identification of an item (article or product) according to one source.'' qualifierTermObjectClassTerm=''Buyer's'' objectClassTerm=''Item Identification'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot PhysicalAttribute
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000087):\n<ccts:ASBIE dictionaryEntryName=''Buyer's_ Item Identification. Physical Attribute'' definition=''associates the item identifier with a specification of physical attributes by which the item may be distinguished. An example of this would be a colour code for a specific product.'' qualifierTermObjectClassTerm=''Buyer's'' objectClassTerm=''Item Identification'' propertyTerm=''Physical Attribute'' representationTerm=''Physical Attribute''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Extension
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000086):\n<ccts:BBIE dictionaryEntryName=''Buyer's_ Item Identification. Extension. Text'' definition=''What is this?'' qualifierTermObjectClassTerm=''Buyer's'' objectClassTerm=''Item Identification'' propertyTerm=''Extension'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass CardAccountType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000096):\n<ccts:ABIE dictionaryEntryName=''Card Account. Details'' definition=''information that directly relates to a credit or debit card, a small plastic card issued by a financial institution, bank or building society, allowing the holder to make purchases against the card.'' objectClassTerm=''Card Account'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot PrimaryAccountNumberID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000097):\n<ccts:BBIE dictionaryEntryName=''Card Account. Primary Account Number. Identifier'' definition=''the identifying number of the card, known as the PAN - Primary Account Number.'' objectClassTerm=''Card Account'' propertyTerm=''Primary Account Number'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot IssuerID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000101):\n<ccts:BBIE dictionaryEntryName=''Card Account. Issuer. Identifier'' definition=''identifies the organisation issuing the card, known as the BIN - Bank Id.No.'' objectClassTerm=''Card Account'' propertyTerm=''Issuer Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TypeCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000098):\n<ccts:BBIE dictionaryEntryName=''Card Account. Type. Code'' definition=''the type of card used for payment'' objectClassTerm=''Card Account'' propertyTerm=''Type'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ChipApplicationID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000105):\n<ccts:BBIE dictionaryEntryName=''Card Account. Chip Application. Identifier'' definition=''identifies the application (AID) on a Chip card that provides the information quoted'' objectClassTerm=''Card Account'' propertyTerm=''Chip Application'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CustomerCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000099):\n<ccts:BBIE dictionaryEntryName=''Card Account. Customer. Code'' definition=''the customer reference number. This is used to enable transmission of customer specific information with the card.'' objectClassTerm=''Card Account'' propertyTerm=''Customer'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ChipIndicator
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000104):\n<ccts:BBIE dictionaryEntryName=''Card Account. Chip. Indicator'' definition=''distinction between CHIP and MAG STRIPE cards'' objectClassTerm=''Card Account'' propertyTerm=''Chip Indicator'' representationTerm=''Indicator''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CardHolder
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000106):\n<ccts:BBIE dictionaryEntryName=''Card Account. Holder. Text'' definition=''the name of the holder of the card.'' objectClassTerm=''Card Account'' propertyTerm=''Holder'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Cv2
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000103):\n<ccts:BBIE dictionaryEntryName=''Card Account. Cv2. Text'' definition=''The CV2 identity on the reverse of the card for added security.'' objectClassTerm=''Card Account'' propertyTerm=''CV2'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ExpiryDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000100):\n<ccts:BBIE dictionaryEntryName=''Card Account. Expiry. Date'' definition=''the date up to which the card is valid .'' objectClassTerm=''Card Account'' propertyTerm=''Expiry Date'' representationTerm=''Date''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot IssueNumberCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000102):\n<ccts:BBIE dictionaryEntryName=''Card Account. Issue Number. Code'' definition=''identifies the issue number, relevant only to SWITCH cards'' objectClassTerm=''Card Account'' propertyTerm=''Issue Number'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass CatalogueItemIdentificationType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000107):\n<ccts:ABIE dictionaryEntryName=''Catalogue_ Item Identification. Details'' definition=''information directly relating to the identification an item according to a catalogue.'' qualifierTermObjectClassTerm=''Catalogue'' objectClassTerm=''Item Identification'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot ItemMeasurement
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000111):\n<ccts:ASBIE dictionaryEntryName=''Catalogue_ Item Identification. Item Measurement'' definition=''associates the item with measurements necessary to specifically identify it, e.g. piece length. Note this is NOT the quantity of the item!'' qualifierTermObjectClassTerm=''Catalogue'' objectClassTerm=''Item Identification'' propertyTerm=''Item Measurement'' representationTerm=''Item Measurement''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000108):\n<ccts:BBIE dictionaryEntryName=''Catalogue_ Item Identification. Identifier'' definition=''the principal identification of an item (article or product) according to one source.'' qualifierTermObjectClassTerm=''Catalogue'' objectClassTerm=''Item Identification'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot PhysicalAttribute
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000110):\n<ccts:ASBIE dictionaryEntryName=''Catalogue_ Item Identification. Physical Attribute'' definition=''associates the item identifier with a specification of physical attributes by which the item may be distinguished. An example of this would be a colour code for a specific product.'' qualifierTermObjectClassTerm=''Catalogue'' objectClassTerm=''Item Identification'' propertyTerm=''Physical Attribute'' representationTerm=''Physical Attribute''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Extension
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000109):\n<ccts:BBIE dictionaryEntryName=''Catalogue_ Item Identification. Extension. Text'' definition=''What is this?'' qualifierTermObjectClassTerm=''Catalogue'' objectClassTerm=''Item Identification'' propertyTerm=''Extension'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass CommodityClassificationType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000116):\n<ccts:ABIE dictionaryEntryName=''Commodity Classification. Details'' definition=''information that directly relates to the classification of items according to a (formalised) convention for the classification and description of the items as commodities.'' objectClassTerm=''Commodity Classification'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot CommodityCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000119):\n<ccts:BBIE dictionaryEntryName=''Commodity Classification. Commodity. Code'' definition=''classification of the type of commodity.'' objectClassTerm=''Commodity Classification'' propertyTerm=''Commodity Code'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CargoTypeCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000118):\n<ccts:BBIE dictionaryEntryName=''Commodity Classification. Cargo Type. Code'' definition=''Code specifying a type of cargo.'' objectClassTerm=''Commodity Classification'' propertyTerm=''Cargo Type'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot NatureCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000117):\n<ccts:BBIE dictionaryEntryName=''Commodity Classification. Nature. Code'' definition=''the high level 'nature of item' code issued by a specific maintenance agency. '' objectClassTerm=''Commodity Classification'' propertyTerm=''Nature Code'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass ContractType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000136):\n<ccts:ABIE dictionaryEntryName=''Contract. Details'' definition=''associates the order with a pre-order contract'' objectClassTerm=''Contract'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot ValidityPeriod
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000140):\n<ccts:ASBIE dictionaryEntryName=''Contract. Validity_ Period'' definition=''specifies the dates or duration for which the Contract is valid.'' objectClassTerm=''Contract'' qualifierTerm_PropertyTerm=''Validity'' propertyTerm=''Period'' representationTerm=''Period''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000137):\n<ccts:BBIE dictionaryEntryName=''Contract. Identifier'' definition=''identifies a contract.  '' objectClassTerm=''Contract'' propertyTerm=''Identifier'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot TypeCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000139):\n<ccts:BBIE dictionaryEntryName=''Contract. Type. Code'' objectClassTerm=''Contract'' propertyTerm=''Type'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot IssueDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000138):\n<ccts:BBIE dictionaryEntryName=''Contract. Issue_ Date'' definition=''the date on which the contract was issued.'' objectClassTerm=''Contract'' qualifierTerm_PropertyTerm=''Issue'' propertyTerm=''Date'' representationTerm=''Date''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass ForeignExchangeContractType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000632):\n<ccts:ABIE dictionaryEntryName=''Foreign Exchange_ Contract. Details'' definition=''associates the order with a pre-order contract'' qualifierTermObjectClassTerm=''Foreign Exchange'' objectClassTerm=''Contract'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a ContractType)
	(role concrete)
	(single-slot ValidityPeriod
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000636):\n<ccts:ASBIE dictionaryEntryName=''Foreign Exchange_ Contract. Validity_ Period'' definition=''specifies the dates or duration for which the Contract is valid.'' qualifierTermObjectClassTerm=''Foreign Exchange'' objectClassTerm=''Contract'' qualifierTerm_PropertyTerm=''Validity'' propertyTerm=''Period'' representationTerm=''Period''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000633):\n<ccts:BBIE dictionaryEntryName=''Foreign Exchange_ Contract. Identifier'' definition=''identifies a contract.  '' qualifierTermObjectClassTerm=''Foreign Exchange'' objectClassTerm=''Contract'' propertyTerm=''Identifier'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot TypeCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000635):\n<ccts:BBIE dictionaryEntryName=''Foreign Exchange_ Contract. Type. Code'' qualifierTermObjectClassTerm=''Foreign Exchange'' objectClassTerm=''Contract'' propertyTerm=''Type'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot IssueDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000634):\n<ccts:BBIE dictionaryEntryName=''Foreign Exchange_ Contract. Issue_ Date'' definition=''the date on which the contract was issued.'' qualifierTermObjectClassTerm=''Foreign Exchange'' objectClassTerm=''Contract'' qualifierTerm_PropertyTerm=''Issue'' propertyTerm=''Date'' representationTerm=''Date''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass CountryType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000141):\n<ccts:ABIE dictionaryEntryName=''Country. Details'' objectClassTerm=''Country'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot Code
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000142):\n<ccts:BBIE dictionaryEntryName=''Country. Code'' definition=''provides the country part of an address using a code.  ISO3166 alpha codes are recommended.'' objectClassTerm=''Country'' propertyTerm=''Identification'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass CreditAccountType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000143):\n<ccts:ABIE dictionaryEntryName=''Credit Account. Details'' definition=''an account assigned for the purposes of allowing 'sales on account'.'' objectClassTerm=''Credit Account'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot AccountCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000144):\n<ccts:BBIE dictionaryEntryName=''Credit Account. Account. Code'' definition='' an account identification assigned for 'sales on account' purposes.'' objectClassTerm=''Credit Account'' propertyTerm=''Account Identification'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass DeliveryRequirementType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000166):\n<ccts:ABIE dictionaryEntryName=''Delivery Requirement. Details'' definition=''delivery information for an order/Order Line about its end-to-end delivery, linked to its delivery schedule and about its packaging.'' objectClassTerm=''Delivery Requirement'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot OrderLine
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000171):\n<ccts:ASBIE dictionaryEntryName=''Delivery Requirement. Order Line'' definition=''associates the delivery requirement to the order item, which identifies the ordered item but only detail about the item that are pertinent to one occurrence on a line item, e.g. quantity etc.'' objectClassTerm=''Delivery Requirement'' propertyTerm=''Order Line'' representationTerm=''Order Line''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000167):\n<ccts:BBIE dictionaryEntryName=''Delivery Requirement. Identifier'' definition=''identifies the delivery request.'' objectClassTerm=''Delivery Requirement'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot SendFromAddress
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000169):\n<ccts:ASBIE dictionaryEntryName=''Delivery Requirement. Send From_ Address'' definition=''information directly relating to the address/location from which a delivery is shipped'' objectClassTerm=''Delivery Requirement'' qualifierTerm_PropertyTerm=''Send From'' propertyTerm=''Address'' representationTerm=''Address''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DeliverToAddress
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000168):\n<ccts:ASBIE dictionaryEntryName=''Delivery Requirement. Deliver To_ Address'' definition=''information directly relating to the address/location to which a delivery is shipped'' objectClassTerm=''Delivery Requirement'' qualifierTerm_PropertyTerm=''Deliver To'' propertyTerm=''Address'' representationTerm=''Address''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DeliverySchedule
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000170):\n<ccts:ASBIE dictionaryEntryName=''Delivery Requirement. Delivery Schedule'' definition=''associates the delivery requirement to delivery schedule information'' objectClassTerm=''Delivery Requirement'' propertyTerm=''Delivery Schedule'' representationTerm=''Delivery Schedule''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass DeliveryScheduleType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000172):\n<ccts:ABIE dictionaryEntryName=''Delivery Schedule. Details'' definition=''delivery scheduling information about a quantity and an event.'' objectClassTerm=''Delivery Schedule'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot DeliveryRequirement
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000179):\n<ccts:ASBIE dictionaryEntryName=''Delivery Schedule. Delivery Requirement'' definition=''associates a delivery schedule with a delivery requirement.'' objectClassTerm=''Delivery Schedule'' propertyTerm=''Delivery Requirement'' representationTerm=''Delivery Requirement''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MaximumQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000176):\n<ccts:BBIE dictionaryEntryName=''Delivery Schedule. Maximum_ Quantity'' definition=''the maximum quantity to be shipped at a specific delivery schedule event.'' objectClassTerm=''Delivery Schedule'' qualifierTerm_PropertyTerm=''Maximum'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PromisedByDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000178):\n<ccts:BBIE dictionaryEntryName=''Delivery Schedule. Promised By_ Date'' definition=''used mainly for confirming orders when a date was promised for delivery by the supplier over the phone.'' objectClassTerm=''Delivery Schedule'' qualifierTerm_PropertyTerm=''Promised By'' propertyTerm=''Date'' representationTerm=''Date''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RequestedDeliveryDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000177):\n<ccts:BBIE dictionaryEntryName=''Delivery Schedule. Requested Delivery_ Date'' definition=''the date the buyer requested delivery for a specific delivery schedule event.'' objectClassTerm=''Delivery Schedule'' qualifierTerm_PropertyTerm=''Requested Delivery'' propertyTerm=''Date'' representationTerm=''Date''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot QuantityShipped
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000174):\n<ccts:BBIE dictionaryEntryName=''Delivery Schedule. Quantity'' definition=''the quantity to be shipped at a specific delivery schedule event.'' objectClassTerm=''Delivery Schedule'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000173):\n<ccts:BBIE dictionaryEntryName=''Delivery Schedule. Identifier'' definition=''identifies the schedule line (giving the identity of one event/quantity within a delivery).'' objectClassTerm=''Delivery Schedule'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot MinimumQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000175):\n<ccts:BBIE dictionaryEntryName=''Delivery Schedule. Minimum_ Quantity'' definition=''the minimum quantity to be shipped at a specific delivery schedule event.'' objectClassTerm=''Delivery Schedule'' qualifierTerm_PropertyTerm=''Minimum'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass DeliveryTermsType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000180):\n<ccts:ABIE dictionaryEntryName=''Delivery Terms. Details'' definition=''contains information about the terms of delivery for the set of items to which the transaction relates'' objectClassTerm=''Delivery Terms'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot AllowanceCharge
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000186):\n<ccts:ASBIE dictionaryEntryName=''Delivery Terms. Allowance Charge'' definition=''associates delivery terms with an allowance or charge information.'' objectClassTerm=''Delivery Terms'' propertyTerm=''Allowance Charge'' representationTerm=''Allowance Charge''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000181):\n<ccts:BBIE dictionaryEntryName=''Delivery Terms. Identifier'' definition=''identifier of the conditions agreed upon between a  seller and a buyer with regard to the delivery of goods and/or services, e.g. CIF, FOB, or EXW from the INCOTERMS Terms of Delivery. (2000 version preferred.)'' objectClassTerm=''Delivery Terms'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot RiskResponsibilityCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000184):\n<ccts:BBIE dictionaryEntryName=''Delivery Terms. Risk Responsibility. Code'' definition=''identifies the responsibility for loss risk within the delivery terms.'' objectClassTerm=''Delivery Terms'' propertyTerm=''Risk Responsibility'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SpecialTerms
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000183):\n<ccts:BBIE dictionaryEntryName=''Delivery Terms. Special Terms. Text'' definition=''free text description of special conditions relating to delivery terms.'' objectClassTerm=''Delivery Terms'' propertyTerm=''Special Terms'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LossRisk
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000185):\n<ccts:BBIE dictionaryEntryName=''Delivery Terms. Loss Risk. Text'' definition=''text describing the loss risk related to delivery terms.'' objectClassTerm=''Delivery Terms'' propertyTerm=''Loss Risk'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RelevantLocation
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000182):\n<ccts:BBIE dictionaryEntryName=''Delivery Terms. Relevant_ Location. Text'' definition=''information directly relating to the location relevant to the terms of delivery specified.'' objectClassTerm=''Delivery Terms'' qualifierTerm_PropertyTerm=''Relevant'' propertyTerm=''Location'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass DespatchedTransportHandlingUnitType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000195):\n<ccts:ABIE dictionaryEntryName=''Despatched_ Transport Handling Unit. Details'' definition=''information about a set of items which can be considered to be an undividable set of items for the purposes of delivery, also know as a 'logistics unit'.'' qualifierTermObjectClassTerm=''Despatched'' objectClassTerm=''Transport Handling Unit'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000196):\n<ccts:BBIE dictionaryEntryName=''Despatched_ Transport Handling Unit. Identifier'' definition=''identification of the transport handling unit as a whole.'' qualifierTermObjectClassTerm=''Despatched'' objectClassTerm=''Transport Handling Unit'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot TypeCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000197):\n<ccts:BBIE dictionaryEntryName=''Despatched_ Transport Handling Unit. Type. Code'' definition=''identifies by a code the type of transport handling unit used.'' qualifierTermObjectClassTerm=''Despatched'' objectClassTerm=''Transport Handling Unit'' propertyTerm=''Type'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass DestinationCountryType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000200):\n<ccts:ABIE dictionaryEntryName=''Destination_ Country. Details'' qualifierTermObjectClassTerm=''Destination'' objectClassTerm=''Country'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot Code
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000201):\n<ccts:BBIE dictionaryEntryName=''Destination_ Country. Code'' definition=''provides the country part of an address using a code.  ISO3166 alpha codes are recommended.'' qualifierTermObjectClassTerm=''Destination'' objectClassTerm=''Country'' propertyTerm=''Identification'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass ExchangeRateType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000209):\n<ccts:ABIE dictionaryEntryName=''Exchange Rate. Details'' definition=''information that directly relates to the rate of exchange (conversion) between two currencies.'' objectClassTerm=''Exchange Rate'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot ExchangeMarketID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000214):\n<ccts:BBIE dictionaryEntryName=''Exchange Rate. Exchange Market. Identifier'' definition=''identifies the currency exchange market from which the exchange rate is taken.'' objectClassTerm=''Exchange Rate'' propertyTerm=''Exchange Market Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CalculationRateNumeric
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000215):\n<ccts:BBIE dictionaryEntryName=''Exchange Rate. Calculation Rate. Numeric'' definition=''The factor used for conversion of an amount from one (source) currency to another (target) currency.'' objectClassTerm=''Exchange Rate'' propertyTerm=''Calculation Rate'' representationTerm=''Numeric''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot effectiveDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000216):\n<ccts:BBIE dictionaryEntryName=''Exchange Rate. Date'' definition=''the date of the rate of exchange.'' objectClassTerm=''Exchange Rate'' propertyTerm=''Date'' representationTerm=''Date''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SourceCurrencyBaseAmount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000211):\n<ccts:BBIE dictionaryEntryName=''Exchange Rate. Source_ Currency Base. Amount'' definition=''specifies the unit base of the source currency for currencies with small denominations.'' objectClassTerm=''Exchange Rate'' qualifierTerm_PropertyTerm=''Source'' propertyTerm=''Currency Base'' representationTerm=''Amount''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AllowanceCharge
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000217):\n<ccts:ASBIE dictionaryEntryName=''Exchange Rate. Allowance Charge'' definition=''associates the exchange rate to the allowance or charge to which it applies. '' objectClassTerm=''Exchange Rate'' propertyTerm=''Allowance Charge'' representationTerm=''Allowance Charge''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SourceCurrencyCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000210):\n<ccts:BBIE dictionaryEntryName=''Exchange Rate. Source_ Currency. Code'' definition=''the reference currency of the rate of exchange.  The currency from which the exchange is being made (CC Definition)'' objectClassTerm=''Exchange Rate'' qualifierTerm_PropertyTerm=''Source'' propertyTerm=''Currency'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TargetCurrencyBaseAmount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000213):\n<ccts:BBIE dictionaryEntryName=''Exchange Rate. Target_ Currency Base. Amount'' definition=''specifies the unit base of the target currency for currencies with small denominations'' objectClassTerm=''Exchange Rate'' qualifierTerm_PropertyTerm=''Target'' propertyTerm=''Currency Base'' representationTerm=''Amount''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TargetCurrencyCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000212):\n<ccts:BBIE dictionaryEntryName=''Exchange Rate. Target_ Currency. Code'' definition=''the target currency of the rate of exchange. This is the currency to which the exchange is being made. (CC Definition)'' objectClassTerm=''Exchange Rate'' qualifierTerm_PropertyTerm=''Target'' propertyTerm=''Currency'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ForeignExchangeContract
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000218):\n<ccts:ASBIE dictionaryEntryName=''Exchange Rate. Foreign Exchange_ Contract'' definition=''identifies a foreign exchange contract in which a rate of exchange has been agreed.'' objectClassTerm=''Exchange Rate'' qualifierTerm_PropertyTerm=''Foreign Exchange'' propertyTerm=''Contract'' representationTerm=''Contract''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass FinancialInstitutionType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000224):\n<ccts:ABIE dictionaryEntryName=''Financial Institution. Details'' definition=''information that directly relates to a bank or financial institution.'' objectClassTerm=''Financial Institution'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000225):\n<ccts:BBIE dictionaryEntryName=''Financial Institution. Identifier'' definition=''identifies the financial institution by code. ISO xxxx BIC (Bank Identification Code) is recommended'' objectClassTerm=''Financial Institution'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot hasAddress
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000227):\n<ccts:ASBIE dictionaryEntryName=''Financial Institution. Address'' definition=''associates the financial institution with information that specifies the address and locates the place where it is situated.'' objectClassTerm=''Financial Institution'' propertyTerm=''Address'' representationTerm=''Address''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Name
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000226):\n<ccts:BBIE dictionaryEntryName=''Financial Institution. Name'' definition=''the name of the financial institution.'' objectClassTerm=''Financial Institution'' propertyTerm=''Name'' representationTerm=''Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass FiBranchType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000219):\n<ccts:ABIE dictionaryEntryName=''Fi Branch. Details'' definition=''information directly relating to a branch which is a division of, and normally situated differently to, a large main organisation.'' objectClassTerm=''FI Branch'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a FinancialInstitutionType)
	(role concrete)
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000220):\n<ccts:BBIE dictionaryEntryName=''Fi Branch. Identifier'' definition=''the identification of a branch of an organisation'' objectClassTerm=''FI Branch'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot FinancialInstitution
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000222):\n<ccts:ASBIE dictionaryEntryName=''Fi Branch. Financial Institution'' definition=''associates the branch with information that directly relates to a bank or financial institution.'' objectClassTerm=''FI Branch'' propertyTerm=''Financial Institution'' representationTerm=''Financial Institution''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot hasAddress
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000223):\n<ccts:ASBIE dictionaryEntryName=''Fi Branch. Address'' definition=''associates the branch with information that specifies the address and locates the place where the branch is situated.'' objectClassTerm=''FI Branch'' propertyTerm=''Address'' representationTerm=''Address''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Name
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000221):\n<ccts:BBIE dictionaryEntryName=''Fi Branch. Name'' definition=''the name of a branch of an organisation'' objectClassTerm=''FI Branch'' propertyTerm=''Name'' representationTerm=''Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass HazardousItemType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000252):\n<ccts:ABIE dictionaryEntryName=''Hazardous Item. Details'' definition=''information about a hazardous item.'' objectClassTerm=''Hazardous Item'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot SecondaryHazards
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000266):\n<ccts:ASBIE dictionaryEntryName=''Hazardous Item. Secondary Hazards'' definition=''associates the hazardous item with information about secondary hazards.'' objectClassTerm=''Hazardous Item'' propertyTerm=''Secondary Hazards'' representationTerm=''Secondary Hazards''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot HazardousTransit
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000267):\n<ccts:ASBIE dictionaryEntryName=''Hazardous Item. Hazardous Transit'' definition=''associates the hazardous item with information about the transportation of hazardous goods.'' objectClassTerm=''Hazardous Item'' propertyTerm=''Hazardous Transit'' representationTerm=''Hazardous Transit''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot EmergencyProceduresCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000261):\n<ccts:BBIE dictionaryEntryName=''Hazardous Item. Emergency_ Procedures. Code'' definition=''identifier of emergency procedures for hazardous goods.'' objectClassTerm=''Hazardous Item'' qualifierTerm_PropertyTerm=''Emergency'' propertyTerm=''Procedures'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000253):\n<ccts:BBIE dictionaryEntryName=''Hazardous Item. Identifier'' definition=''identifier of a hazardous item or substance.'' objectClassTerm=''Hazardous Item'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot FlashpointMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000258):\n<ccts:BBIE dictionaryEntryName=''Hazardous Item. Flashpoint. Measure'' definition=''the lowest temperature at which the vapor of a combustible liquid can be made to ignite momentarily in air, known in hazardous goods procedures as the flashpoint.'' objectClassTerm=''Hazardous Item'' propertyTerm=''Flashpoint'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot handlingTemperature
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000260):\n<ccts:BBIE dictionaryEntryName=''Hazardous Item. Temperature. Measure'' definition=''information providing details of temperatures relevant to the handling of hazardous goods.'' objectClassTerm=''Hazardous Item'' propertyTerm=''Temperature'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MedicalFirstAidGuideCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000262):\n<ccts:BBIE dictionaryEntryName=''Hazardous Item. Medical First Aid_ Guide. Code'' definition=''identifier of a medical first aid guide that is relevant to specific hazardous goods.'' objectClassTerm=''Hazardous Item'' qualifierTerm_PropertyTerm=''Medical First Aid'' propertyTerm=''Guide'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot EmergencyTemperatureMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000259):\n<ccts:BBIE dictionaryEntryName=''Hazardous Item. Emergency_ Temperature. Measure'' definition=''the temperature at which emergency procedures apply during the handling of temperature-controlled hazardous goods.'' objectClassTerm=''Hazardous Item'' qualifierTerm_PropertyTerm=''Emergency'' propertyTerm=''Temperature'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PlacardEndorsement
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000255):\n<ccts:BBIE dictionaryEntryName=''Hazardous Item. Placard_ Endorsement. Text'' definition=''the placard endorsement that is to be shown on the shipping papers for the hazardous commodity. Can also be used for the number of the orange placard (lower part) required on the means of transport.'' objectClassTerm=''Hazardous Item'' qualifierTerm_PropertyTerm=''Placard'' propertyTerm=''Endorsement'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PlacardNotation
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000254):\n<ccts:BBIE dictionaryEntryName=''Hazardous Item. Placard_ Notation. Text'' definition=''the placard notation corresponding to the hazard class of the hazardous commodity. Can also be the hazard identification number of the orange placard (upper part) required on the means of transport.'' objectClassTerm=''Hazardous Item'' qualifierTerm_PropertyTerm=''Placard'' propertyTerm=''Notation'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ContactParty
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000265):\n<ccts:ASBIE dictionaryEntryName=''Hazardous Item. Contact_ Party'' definition=''associates the hazardous item with details of an individual, a group or a body that is the contact in case of hazard incident.'' objectClassTerm=''Hazardous Item'' qualifierTerm_PropertyTerm=''Contact'' propertyTerm=''Party'' representationTerm=''Party''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TechnicalName
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000264):\n<ccts:BBIE dictionaryEntryName=''Hazardous Item. Technical_ Name'' definition=''Full technical name of the specific hazardous substance.'' objectClassTerm=''Hazardous Item'' qualifierTerm_PropertyTerm=''Technical'' propertyTerm=''Name'' representationTerm=''Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AdditionalInformation
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000256):\n<ccts:BBIE dictionaryEntryName=''Hazardous Item. Additional_ Information. Text'' definition=''additional information regarding the hazardous substance. (Can be used to hold information such as the type of regulatory requirements that apply to a description, e.g. N.O.S. or a Waste Characteristics Code in conjunction with an EPA Waste Stream code).'' objectClassTerm=''Hazardous Item'' qualifierTerm_PropertyTerm=''Additional'' propertyTerm=''Information'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot EmsNumberCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000263):\n<ccts:BBIE dictionaryEntryName=''Hazardous Item. Ems Number. Code'' objectClassTerm=''Hazardous Item'' propertyTerm=''EMS Number'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot UndgCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000257):\n<ccts:BBIE dictionaryEntryName=''Hazardous Item. Undg. Code'' definition=''identifier assigned to transportable hazardous goods within the United Nations.'' objectClassTerm=''Hazardous Item'' propertyTerm=''UNDG'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass HazardousTransitType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000268):\n<ccts:ABIE dictionaryEntryName=''Hazardous Transit. Details'' definition=''information related to the shipping and packaging of hazardous goods.'' objectClassTerm=''Hazardous Transit'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot RegulationCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000271):\n<ccts:BBIE dictionaryEntryName=''Hazardous Transit. Regulation_ Code'' definition=''a code identifying a set of legal regulations which govern the transportation of the specific hazardous goods.'' objectClassTerm=''Hazardous Transit'' qualifierTerm_PropertyTerm=''Regulation'' propertyTerm=''Code'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TransportEmergencyCardCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000269):\n<ccts:BBIE dictionaryEntryName=''Hazardous Transit. Transport Emergency_ Card. Code'' definition=''the identification of a transport emergency card, describing the emergency actions to be taken in the event of an emergency affecting the transportation of the hazardous item. Can be used for the identity number of a specific hazardous emergency response plan assigned by the appropriate responsible authority, either national or international.'' objectClassTerm=''Hazardous Transit'' qualifierTerm_PropertyTerm=''Transport Emergency'' propertyTerm=''Card'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MinimumTransportTemperatureMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000273):\n<ccts:BBIE dictionaryEntryName=''Hazardous Transit. Minimum_ Transport Temperature. Measure'' definition=''the minimum temperature at which the hazardous item can be safely transported.'' objectClassTerm=''Hazardous Transit'' qualifierTerm_PropertyTerm=''Minimum'' propertyTerm=''Transport Temperature'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MaximumTransportTemperatureMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000272):\n<ccts:BBIE dictionaryEntryName=''Hazardous Transit. Maximum_ Transport Temperature. Measure'' definition=''the maximum temperature at which the hazardous item can be safely transported.'' objectClassTerm=''Hazardous Transit'' qualifierTerm_PropertyTerm=''Maximum'' propertyTerm=''Transport Temperature'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PackingCriteriaCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000270):\n<ccts:BBIE dictionaryEntryName=''Hazardous Transit. Packing_ Criteria. Code'' definition=''a code identifying the packaging requirement for the transportation of the specific hazardous goods as assigned by IATA/IMDB/ADR/RID etc.'' objectClassTerm=''Hazardous Transit'' qualifierTerm_PropertyTerm=''Packing'' propertyTerm=''Criteria'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot InhalationToxicityZoneCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000274):\n<ccts:BBIE dictionaryEntryName=''Hazardous Transit. Inhalation Toxicity_ Zone. Code'' definition=''a code identifying the Inhalation Toxicity Hazard Zone for the hazardous goods, as defined by the US Department of Transportation.'' objectClassTerm=''Hazardous Transit'' qualifierTerm_PropertyTerm=''Inhalation Toxicity'' propertyTerm=''Zone'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass ItemMeasurementType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000303):\n<ccts:ABIE dictionaryEntryName=''Item Measurement. Details'' definition=''information directly relating to a measurement of an attribute of an item.'' objectClassTerm=''Item Measurement'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot MaximumMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000308):\n<ccts:BBIE dictionaryEntryName=''Item Measurement. Maximum_ Measure'' definition=''the maximum value in a range of measurement'' objectClassTerm=''Item Measurement'' qualifierTerm_PropertyTerm=''Maximum'' propertyTerm=''Measure'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AttributeID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000304):\n<ccts:BBIE dictionaryEntryName=''Item Measurement. Attribute_ Identifier'' definition=''identifies a physical attribute within a set of characteristics that describe something in a formalised way.'' objectClassTerm=''Item Measurement'' qualifierTerm_PropertyTerm=''Attribute'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot hasMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000305):\n<ccts:BBIE dictionaryEntryName=''Item Measurement. Measure'' definition=''the value of the measurement'' objectClassTerm=''Item Measurement'' propertyTerm=''Measure'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MinimumMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000307):\n<ccts:BBIE dictionaryEntryName=''Item Measurement. Minimum_ Measure'' definition=''the minimum value in a range of measurement'' objectClassTerm=''Item Measurement'' qualifierTerm_PropertyTerm=''Minimum'' propertyTerm=''Measure'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Description
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000306):\n<ccts:BBIE dictionaryEntryName=''Item Measurement. Description. Text'' definition=''free text describing the measured attribute or feature.'' objectClassTerm=''Item Measurement'' propertyTerm=''Description'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(value [SUMO148_00011])
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass ItemType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000285):\n<ccts:ABIE dictionaryEntryName=''Item. Details'' definition=''information directly relating to an item (article, product, goods item or service).'' objectClassTerm=''Item'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot OriginCountry
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000297):\n<ccts:ASBIE dictionaryEntryName=''Item. Origin_ Country'' definition=''associates the item with its country of origin'' objectClassTerm=''Item'' qualifierTerm_PropertyTerm=''Origin'' propertyTerm=''Country'' representationTerm=''Country''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CommodityClassification
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000298):\n<ccts:ASBIE dictionaryEntryName=''Item. Commodity Classification'' definition=''associates the item with its classification(s) according to a commodity classifying system.'' objectClassTerm=''Item'' propertyTerm=''Commodity Classification'' representationTerm=''Commodity Classification''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PackQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000288):\n<ccts:BBIE dictionaryEntryName=''Item. Pack_ Quantity'' definition=''the unit packaging quantity.'' objectClassTerm=''Item'' qualifierTerm_PropertyTerm=''Pack'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Tax
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000301):\n<ccts:ASBIE dictionaryEntryName=''Item. Tax'' definition=''associates the item with one or more taxes'' objectClassTerm=''Item'' propertyTerm=''Tax'' representationTerm=''Tax''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000286):\n<ccts:BBIE dictionaryEntryName=''Item. Identifier'' definition=''identifies an item, article, product or service.'' objectClassTerm=''Item'' propertyTerm=''Identifier'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot SalesConditions
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000299):\n<ccts:ASBIE dictionaryEntryName=''Item. Sales Conditions'' definition=''associates the item with sales conditions appertaining to it.'' objectClassTerm=''Item'' propertyTerm=''Sales Conditions'' representationTerm=''Sales Conditions''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Description
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000287):\n<ccts:BBIE dictionaryEntryName=''Item. Description. Text'' definition=''a free form field that can be used to give a text description of the item.'' objectClassTerm=''Item'' propertyTerm=''Description'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(value [SUMO148_00011])
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CatalogueItemIdentification
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000295):\n<ccts:ASBIE dictionaryEntryName=''Item. Catalogue_ Item. Identification'' objectClassTerm=''Item'' qualifierTerm_PropertyTerm=''Catalogue'' propertyTerm=''Item'' representationTerm=''Identification''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SellersItemIdentification
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000292):\n<ccts:ASBIE dictionaryEntryName=''Item. Seller's_ Item. Identification'' definition=''associates the item with its identification according to the seller's system.'' objectClassTerm=''Item'' qualifierTerm_PropertyTerm=''Seller's'' propertyTerm=''Item'' representationTerm=''Identification''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ManufacturersItemIdentification
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000293):\n<ccts:ASBIE dictionaryEntryName=''Item. Manufacturer's_ Item. Identification'' definition=''associates the item with its identification according to the manufacturer's system.'' objectClassTerm=''Item'' qualifierTerm_PropertyTerm=''Manufacturer's'' propertyTerm=''Item'' representationTerm=''Identification''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PackSizeQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000289):\n<ccts:BBIE dictionaryEntryName=''Item. Pack_ Size. Quantity'' definition=''the number of items in a pack.'' objectClassTerm=''Item'' qualifierTerm_PropertyTerm=''Pack'' propertyTerm=''Size'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot HazardousItem
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000300):\n<ccts:ASBIE dictionaryEntryName=''Item. Hazardous Item'' definition=''associates the item with its hazardous item information.'' objectClassTerm=''Item'' propertyTerm=''Hazardous Item'' representationTerm=''Hazardous Item''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot BuyersItemIdentification
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000291):\n<ccts:ASBIE dictionaryEntryName=''Item. Buyer's_ Item. Identification'' definition=''associates the item with its identification according to the buyer's system.'' objectClassTerm=''Item'' qualifierTerm_PropertyTerm=''Buyer's'' propertyTerm=''Item'' representationTerm=''Identification''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot BasePrice
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000302):\n<ccts:ASBIE dictionaryEntryName=''Item. Base Price'' definition=''associates the item with one or more base prices.'' objectClassTerm=''Item'' propertyTerm=''Base Price'' representationTerm=''Base Price''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot FromCatalogIndicator
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000290):\n<ccts:BBIE dictionaryEntryName=''Item. From Catalog_ Indicator'' definition=''an indicator that denotes whether or not the item was ordered from a catalog.'' objectClassTerm=''Item'' qualifierTerm_PropertyTerm=''From Catalog'' propertyTerm=''Indicator'' representationTerm=''Indicator''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot StandardItemIdentification
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000294):\n<ccts:ASBIE dictionaryEntryName=''Item. Standard_ Item. Identification'' definition=''associates the item with its identification according to a standard system.'' objectClassTerm=''Item'' qualifierTerm_PropertyTerm=''Standard'' propertyTerm=''Item'' representationTerm=''Identification''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ReferencedCatalogue
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000296):\n<ccts:ASBIE dictionaryEntryName=''Item. Referenced_ Catalogue'' definition=''associates the item with the catalogue from which the item was selected.'' objectClassTerm=''Item'' qualifierTerm_PropertyTerm=''Referenced'' propertyTerm=''Catalogue'' representationTerm=''Catalogue''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass LanguageType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000329):\n<ccts:ABIE dictionaryEntryName=''Language. Details'' definition=''information directly relating to a language.'' objectClassTerm=''Language'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot commonName
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000331):\n<ccts:BBIE dictionaryEntryName=''Language. Name'' definition=''the common name of the language.'' objectClassTerm=''Language'' propertyTerm=''Name'' representationTerm=''Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000330):\n<ccts:BBIE dictionaryEntryName=''Language. Identifier'' definition=''identifies the language by a code.  '' objectClassTerm=''Language'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot LocaleCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000332):\n<ccts:BBIE dictionaryEntryName=''Language. Locale. Code'' definition=''identifies the locale/location where the language is spoken or used in writing.'' objectClassTerm=''Language'' propertyTerm=''Locale'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass LocationCoordinatesType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000336):\n<ccts:ABIE dictionaryEntryName=''Location Coordinates. Details'' definition=''contains information that enables location (of something) by a system of coordinates.'' objectClassTerm=''Location Coordinates'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot LongitudeDegreesMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000341):\n<ccts:BBIE dictionaryEntryName=''Location Coordinates. Longitude_ Degrees. Measure'' definition=''specifies the degrees measurement of longitude as part of a detailed set of coordinates.'' objectClassTerm=''Location Coordinates'' qualifierTerm_PropertyTerm=''Longitude'' propertyTerm=''Degrees'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LatitudeDirectionCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000340):\n<ccts:BBIE dictionaryEntryName=''Location Coordinates. Latitude_ Direction. Code'' definition=''specifies the direction of latitude measurement offset from the equator.'' objectClassTerm=''Location Coordinates'' qualifierTerm_PropertyTerm=''Latitude'' propertyTerm=''Direction'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LongitudeDirectionCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000343):\n<ccts:BBIE dictionaryEntryName=''Location Coordinates. Longitude_ Direction. Code'' definition=''specifies the direction of longitude measurement offset from the meridian'' objectClassTerm=''Location Coordinates'' qualifierTerm_PropertyTerm=''Longitude'' propertyTerm=''Direction'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LatitudeDegreesMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000338):\n<ccts:BBIE dictionaryEntryName=''Location Coordinates. Latitude_ Degrees. Measure'' definition=''specifies the degrees measurement of latitude as part of a detailed set of coordinates.'' objectClassTerm=''Location Coordinates'' qualifierTerm_PropertyTerm=''Latitude'' propertyTerm=''Degrees'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LongitudeMinutesMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000342):\n<ccts:BBIE dictionaryEntryName=''Location Coordinates. Longitude_ Minutes. Measure'' definition=''specifies the minutes measurement of longitude as part of a detailed set of coordinates.'' objectClassTerm=''Location Coordinates'' qualifierTerm_PropertyTerm=''Longitude'' propertyTerm=''Minutes'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CoordinateSystemCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000337):\n<ccts:BBIE dictionaryEntryName=''Location Coordinates. Coordinate System. Code'' definition=''identifies the co-ordinate measuring system (eg. GPS)'' objectClassTerm=''Location Coordinates'' propertyTerm=''Coordinate System'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LatitudeMinutesMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000339):\n<ccts:BBIE dictionaryEntryName=''Location Coordinates. Latitude_ Minutes. Measure'' definition=''specifies the minutes measurement of latitude as part of a detailed set of coordinates.'' objectClassTerm=''Location Coordinates'' qualifierTerm_PropertyTerm=''Latitude'' propertyTerm=''Minutes'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass ManufacturersItemIdentificationType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000344):\n<ccts:ABIE dictionaryEntryName=''Manufacturer's_ Item Identification. Details'' definition=''information directly relating to the identification an item by the manufacturer's identification system.'' qualifierTermObjectClassTerm=''Manufacturer's'' objectClassTerm=''Item Identification'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot ItemMeasurement
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000348):\n<ccts:ASBIE dictionaryEntryName=''Manufacturer's_ Item Identification. Item Measurement'' definition=''associates the item with measurements necessary to specifically identify it, e.g. piece length. Note this is NOT the quantity of the item!'' qualifierTermObjectClassTerm=''Manufacturer's'' objectClassTerm=''Item Identification'' propertyTerm=''Item Measurement'' representationTerm=''Item Measurement''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000345):\n<ccts:BBIE dictionaryEntryName=''Manufacturer's_ Item Identification. Identifier'' definition=''the principal identification of an item (article or product) according to one source.'' qualifierTermObjectClassTerm=''Manufacturer's'' objectClassTerm=''Item Identification'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot PhysicalAttribute
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000347):\n<ccts:ASBIE dictionaryEntryName=''Manufacturer's_ Item Identification. Physical Attribute'' definition=''associates the item identifier with a specification of physical attributes by which the item may be distinguished. An example of this would be a colour code for a specific product.'' qualifierTermObjectClassTerm=''Manufacturer's'' objectClassTerm=''Item Identification'' propertyTerm=''Physical Attribute'' representationTerm=''Physical Attribute''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Extension
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000346):\n<ccts:BBIE dictionaryEntryName=''Manufacturer's_ Item Identification. Extension. Text'' definition=''What is this?'' qualifierTermObjectClassTerm=''Manufacturer's'' objectClassTerm=''Item Identification'' propertyTerm=''Extension'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass OrderedShipmentType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000360):\n<ccts:ABIE dictionaryEntryName=''Ordered_ Shipment. Details'' definition=''information directly relating to a shipment.'' qualifierTermObjectClassTerm=''Ordered'' objectClassTerm=''Shipment'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot GrossVolumeMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000370):\n<ccts:BBIE dictionaryEntryName=''Ordered_ Shipment. Gross_ Volume. Measure'' definition=''the total gross volume of the shipment.'' qualifierTermObjectClassTerm=''Ordered'' objectClassTerm=''Shipment'' qualifierTerm_PropertyTerm=''Gross'' propertyTerm=''Volume'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000361):\n<ccts:BBIE dictionaryEntryName=''Ordered_ Shipment. Identifier'' definition=''Identifier of a shipment.'' qualifierTermObjectClassTerm=''Ordered'' objectClassTerm=''Shipment'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot HandlingCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000365):\n<ccts:BBIE dictionaryEntryName=''Ordered_ Shipment. Handling_ Code'' definition=''a code indicating the handling necessary for the shipment.'' qualifierTermObjectClassTerm=''Ordered'' objectClassTerm=''Shipment'' qualifierTerm_PropertyTerm=''Handling'' propertyTerm=''Code'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot NetNetWeightMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000369):\n<ccts:BBIE dictionaryEntryName=''Ordered_ Shipment. Net Net_ Weight. Measure'' definition=''the weight (mass) of the goods themselves without any packing. Sometimes known as the &quot;NetNet Weight&quot;'' qualifierTermObjectClassTerm=''Ordered'' objectClassTerm=''Shipment'' qualifierTerm_PropertyTerm=''Net Net'' propertyTerm=''Weight'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot HandlingTypeCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000364):\n<ccts:BBIE dictionaryEntryName=''Ordered_ Shipment. Handling_ Type. Code'' definition=''a code indicating the type of handling necessary for the shipment.'' qualifierTermObjectClassTerm=''Ordered'' objectClassTerm=''Shipment'' qualifierTerm_PropertyTerm=''Handling'' propertyTerm=''Type'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ShipmentStage
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000374):\n<ccts:ASBIE dictionaryEntryName=''Ordered_ Shipment. Shipment Stage'' definition=''associates the shipment with shipment stages.'' qualifierTermObjectClassTerm=''Ordered'' objectClassTerm=''Shipment'' propertyTerm=''Shipment Stage'' representationTerm=''Shipment Stage''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot GrossWeightMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000367):\n<ccts:BBIE dictionaryEntryName=''Ordered_ Shipment. Gross_ Weight. Measure'' definition=''the total gross weight of the shipment.'' qualifierTermObjectClassTerm=''Ordered'' objectClassTerm=''Shipment'' qualifierTerm_PropertyTerm=''Gross'' propertyTerm=''Weight'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot NetWeightMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000368):\n<ccts:BBIE dictionaryEntryName=''Ordered_ Shipment. Net_ Weight. Measure'' definition=''the total net weight of the shipment.'' qualifierTermObjectClassTerm=''Ordered'' objectClassTerm=''Shipment'' qualifierTerm_PropertyTerm=''Net'' propertyTerm=''Weight'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ServiceLevelCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000362):\n<ccts:BBIE dictionaryEntryName=''Ordered_ Shipment. Service Level. Code'' definition=''identifies the level of service required for a shipment.'' qualifierTermObjectClassTerm=''Ordered'' objectClassTerm=''Shipment'' propertyTerm=''Service Level'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TransportEquipment
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000375):\n<ccts:ASBIE dictionaryEntryName=''Ordered_ Shipment. Transport Equipment'' definition=''associates the shipment with transport equipment'' qualifierTermObjectClassTerm=''Ordered'' objectClassTerm=''Shipment'' propertyTerm=''Transport Equipment'' representationTerm=''Transport Equipment''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot NetVolumeMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000371):\n<ccts:BBIE dictionaryEntryName=''Ordered_ Shipment. Net_ Volume. Measure'' definition=''the total net volume of the shipment.'' qualifierTermObjectClassTerm=''Ordered'' objectClassTerm=''Shipment'' qualifierTerm_PropertyTerm=''Net'' propertyTerm=''Volume'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot OrderedPackage
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000376):\n<ccts:ASBIE dictionaryEntryName=''Ordered_ Shipment. Ordered_ Package'' definition=''associates the shipment to packaging information. Note that this association is true at the order stage, but at the later delivery stage the association is via the transport handling unit.'' qualifierTermObjectClassTerm=''Ordered'' objectClassTerm=''Shipment'' qualifierTerm_PropertyTerm=''Ordered'' propertyTerm=''Package'' representationTerm=''Package''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AllowanceCharge
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000373):\n<ccts:ASBIE dictionaryEntryName=''Ordered_ Shipment. Allowance Charge'' definition=''associates the shipment with allowance or charge(s), such as e.g. shipping, transportation etc.'' qualifierTermObjectClassTerm=''Ordered'' objectClassTerm=''Shipment'' propertyTerm=''Allowance Charge'' representationTerm=''Allowance Charge''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot shipmentInformation
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000366):\n<ccts:BBIE dictionaryEntryName=''Ordered_ Shipment. Information. Text'' definition=''additional information in free form text relating to the shipment.'' qualifierTermObjectClassTerm=''Ordered'' objectClassTerm=''Shipment'' propertyTerm=''Information'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TransportContract
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000372):\n<ccts:ASBIE dictionaryEntryName=''Ordered_ Shipment. Transport_ Contract'' definition=''associates the shipment with the contract for transportation. '' qualifierTermObjectClassTerm=''Ordered'' objectClassTerm=''Shipment'' qualifierTerm_PropertyTerm=''Transport'' propertyTerm=''Contract'' representationTerm=''Contract''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot HandlingInstructions
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000363):\n<ccts:BBIE dictionaryEntryName=''Ordered_ Shipment. Handling_ Instructions. Text'' definition=''free form text for special handling instructions related to shipment.'' qualifierTermObjectClassTerm=''Ordered'' objectClassTerm=''Shipment'' qualifierTerm_PropertyTerm=''Handling'' propertyTerm=''Instructions'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass OriginCountryType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000395):\n<ccts:ABIE dictionaryEntryName=''Origin_ Country. Details'' qualifierTermObjectClassTerm=''Origin'' objectClassTerm=''Country'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot Code
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000396):\n<ccts:BBIE dictionaryEntryName=''Origin_ Country. Code'' definition=''provides the country part of an address using a code.  ISO3166 alpha codes are recommended.'' qualifierTermObjectClassTerm=''Origin'' objectClassTerm=''Country'' propertyTerm=''Identification'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass PartyNameType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000397):\n<ccts:ABIE dictionaryEntryName=''Party Name. Details'' definition=''Alternative names for a party'' objectClassTerm=''Party Name'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot Name
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000398):\n<ccts:BBIE dictionaryEntryName=''Party Name. Name'' definition=''the name of a party.'' objectClassTerm=''Party Name'' propertyTerm=''Name'' representationTerm=''Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass PartyTaxSchemeType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000399):\n<ccts:ABIE dictionaryEntryName=''Party Tax Scheme. Details'' definition=''information directly relating to the tax scheme that is applicable to a party.'' objectClassTerm=''Party Tax Scheme'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot ExemptionReasonCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000404):\n<ccts:BBIE dictionaryEntryName=''Party Tax Scheme. Exemption_ Reason. Code'' definition=''a code that explains the reason for a party's exemption from a tax.'' objectClassTerm=''Party Tax Scheme'' qualifierTerm_PropertyTerm=''Exemption'' propertyTerm=''Reason'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RegistrationAddress
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000405):\n<ccts:ASBIE dictionaryEntryName=''Party Tax Scheme. Registration_ Address'' definition=''associates the party tax scheme with the registered address of a party within the tax scheme. This must be present if a) the tax regulations require it, and b) it is different from the Address element in the Name and Address information of the party..'' objectClassTerm=''Party Tax Scheme'' qualifierTerm_PropertyTerm=''Registration'' propertyTerm=''Address'' representationTerm=''Address''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TaxScheme
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000406):\n<ccts:ASBIE dictionaryEntryName=''Party Tax Scheme. Tax Scheme'' definition=''associates the party tax scheme with the relevant tax scheme.'' objectClassTerm=''Party Tax Scheme'' propertyTerm=''Tax Scheme'' representationTerm=''Tax Scheme''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RegistrationName
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000400):\n<ccts:BBIE dictionaryEntryName=''Party Tax Scheme. Registration_ Name'' definition=''the name of a party as registered with the tax authority. This must be present if a) the tax regulations require it, and b) it is different from the Name element in the Name and Address information of the party.'' objectClassTerm=''Party Tax Scheme'' qualifierTerm_PropertyTerm=''Registration'' propertyTerm=''Name'' representationTerm=''Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CompanyTaxID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000401):\n<ccts:BBIE dictionaryEntryName=''Party Tax Scheme. Company Tax. Identifier'' definition=''the identification of a company as registered  with the appropriate tax authority for a tax scheme.   '' objectClassTerm=''Party Tax Scheme'' propertyTerm=''Company Tax Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TaxLevelCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000403):\n<ccts:BBIE dictionaryEntryName=''Party Tax Scheme. Tax Level. Code'' definition=''?'' objectClassTerm=''Party Tax Scheme'' propertyTerm=''Tax Level'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CompanyRegistrationID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000402):\n<ccts:BBIE dictionaryEntryName=''Party Tax Scheme. Company Registration. Identifier'' definition=''identifies a company as registered with the relevant authority for company regulation. (Note: this is required by the regulations of some tax jurisdictions. It is NOT the same as the registration id of a company within a tax scheme.)'' objectClassTerm=''Party Tax Scheme'' propertyTerm=''Company Registration Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass PayeeFinancialAccountType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000407):\n<ccts:ABIE dictionaryEntryName=''Payee_ Financial Account. Details'' definition=''Information directly relating to the Payee's account, which is a service through a bank or a similar organisation  by which funds are held on behalf of a client'' qualifierTermObjectClassTerm=''Payee'' objectClassTerm=''Financial Account'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot FiBranch
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000412):\n<ccts:ASBIE dictionaryEntryName=''Payee_ Financial Account. Fi Branch'' definition=''associates the account with a branch of the financial institution and at which the account is serviced/maintained.'' qualifierTermObjectClassTerm=''Payee'' objectClassTerm=''Financial Account'' propertyTerm=''FI Branch'' representationTerm=''FI Branch''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000408):\n<ccts:BBIE dictionaryEntryName=''Payee_ Financial Account. Identifier'' definition=''the account number or identifier for the account.'' qualifierTermObjectClassTerm=''Payee'' objectClassTerm=''Financial Account'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot TypeCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000410):\n<ccts:BBIE dictionaryEntryName=''Payee_ Financial Account. Type. Code'' definition=''a code specifying the type of account.'' qualifierTermObjectClassTerm=''Payee'' objectClassTerm=''Financial Account'' propertyTerm=''Type'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CountryAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000413):\n<ccts:ASBIE dictionaryEntryName=''Payee_ Financial Account. Country'' definition=''associates the account with a country. (required by some countries)'' qualifierTermObjectClassTerm=''Payee'' objectClassTerm=''Financial Account'' propertyTerm=''Country'' representationTerm=''Country''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CurrencyCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000411):\n<ccts:BBIE dictionaryEntryName=''Payee_ Financial Account. Currency. Code'' definition=''identifies the currency in which the account is held, using a code. ISO 4217 3-character code is recommended.'' qualifierTermObjectClassTerm=''Payee'' objectClassTerm=''Financial Account'' propertyTerm=''Currency'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AccountName
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000409):\n<ccts:BBIE dictionaryEntryName=''Payee_ Financial Account. Account. Name'' definition='' the identifying name of the account given by the account holder.'' qualifierTermObjectClassTerm=''Payee'' objectClassTerm=''Financial Account'' propertyTerm=''Account Name'' representationTerm=''Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass PayerFinancialAccountType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000414):\n<ccts:ABIE dictionaryEntryName=''Payer_ Financial Account. Details'' definition=''Information directly relating to the Payer's account, which is a service through a bank or a similar organisation  by which funds are held on behalf of a client'' qualifierTermObjectClassTerm=''Payer'' objectClassTerm=''Financial Account'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot FiBranch
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000419):\n<ccts:ASBIE dictionaryEntryName=''Payer_ Financial Account. Fi Branch'' definition=''associates the account with a branch of the financial institution and at which the account is serviced/maintained.'' qualifierTermObjectClassTerm=''Payer'' objectClassTerm=''Financial Account'' propertyTerm=''FI Branch'' representationTerm=''FI Branch''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000415):\n<ccts:BBIE dictionaryEntryName=''Payer_ Financial Account. Identifier'' definition=''the account number or identifier for the account.'' qualifierTermObjectClassTerm=''Payer'' objectClassTerm=''Financial Account'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot TypeCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000417):\n<ccts:BBIE dictionaryEntryName=''Payer_ Financial Account. Type. Code'' definition=''a code specifying the type of account.'' qualifierTermObjectClassTerm=''Payer'' objectClassTerm=''Financial Account'' propertyTerm=''Type'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CountryAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000420):\n<ccts:ASBIE dictionaryEntryName=''Payer_ Financial Account. Country'' definition=''associates the account with a country. (required by some countries)'' qualifierTermObjectClassTerm=''Payer'' objectClassTerm=''Financial Account'' propertyTerm=''Country'' representationTerm=''Country''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CurrencyCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000418):\n<ccts:BBIE dictionaryEntryName=''Payer_ Financial Account. Currency. Code'' definition=''identifies the currency in which the account is held, using a code. ISO 4217 3-character code is recommended.'' qualifierTermObjectClassTerm=''Payer'' objectClassTerm=''Financial Account'' propertyTerm=''Currency'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AccountName
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000416):\n<ccts:BBIE dictionaryEntryName=''Payer_ Financial Account. Account. Name'' definition='' the identifying name of the account given by the account holder.'' qualifierTermObjectClassTerm=''Payer'' objectClassTerm=''Financial Account'' propertyTerm=''Account Name'' representationTerm=''Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass PaymentMeansType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000426):\n<ccts:ABIE dictionaryEntryName=''Payment Means. Details'' definition=''information directly relating to the means of payment.'' objectClassTerm=''Payment Means'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot PayeeFinancialAccount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000432):\n<ccts:ASBIE dictionaryEntryName=''Payment Means. Payee_ Financial Account'' definition=''associates the payment means with information about bank account of the Payee (the party to receive the payment).'' objectClassTerm=''Payment Means'' qualifierTerm_PropertyTerm=''Payee'' propertyTerm=''Financial Account'' representationTerm=''Financial Account''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CreditAccount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000433):\n<ccts:ASBIE dictionaryEntryName=''Payment Means. Credit Account'' definition=''associates the payment means with an 'on account' credit account.'' objectClassTerm=''Payment Means'' propertyTerm=''Credit Account'' representationTerm=''Credit Account''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PaymentChannelCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000429):\n<ccts:BBIE dictionaryEntryName=''Payment Means. Payment_ Channel. Code'' definition=''identifies the system through which the payment is processed, using a standard codelist.'' objectClassTerm=''Payment Means'' qualifierTerm_PropertyTerm=''Payment'' propertyTerm=''Channel'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PayerFinancialAccount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000431):\n<ccts:ASBIE dictionaryEntryName=''Payment Means. Payer_ Financial Account'' definition=''associates the payment means with information about bank account of the Payer (the party to make the payment), given as the way payment would be made.'' objectClassTerm=''Payment Means'' qualifierTerm_PropertyTerm=''Payer'' propertyTerm=''Financial Account'' representationTerm=''Financial Account''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CardAccount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000430):\n<ccts:ASBIE dictionaryEntryName=''Payment Means. Card Account'' definition=''associates the payment means with information about the credit/debit card specifed as the way payment would be made.'' objectClassTerm=''Payment Means'' propertyTerm=''Card Account'' representationTerm=''Card Account''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PaymentDueDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000428):\n<ccts:BBIE dictionaryEntryName=''Payment Means. Payment Due_ Date'' definition=''the point in time at which the payment is to be made.'' objectClassTerm=''Payment Means'' qualifierTerm_PropertyTerm=''Payment Due'' propertyTerm=''Date'' representationTerm=''Date''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TypeCodeID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000427):\n<ccts:BBIE dictionaryEntryName=''Payment Means. Type Code. Identifier'' definition=''identifies a valid means of paying the debt incurred.'' objectClassTerm=''Payment Means'' propertyTerm=''Type Code'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass PaymentTermsType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000434):\n<ccts:ABIE dictionaryEntryName=''Payment Terms. Details'' definition=''information directly relating to the terms and conditions by which payment should be made.'' objectClassTerm=''Payment Terms'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000435):\n<ccts:BBIE dictionaryEntryName=''Payment Terms. Identifier'' definition=''identifies the set of conditions attached to an agreement or contract relating to payment.'' objectClassTerm=''Payment Terms'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot Note
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000436):\n<ccts:BBIE dictionaryEntryName=''Payment Terms. Note. Text'' definition=''information directly relating to a note about the payment terms.'' objectClassTerm=''Payment Terms'' propertyTerm=''Note'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PenaltySurchargeRateNumeric
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000439):\n<ccts:BBIE dictionaryEntryName=''Payment Terms. Penalty Surcharge_ Rate. Numeric'' definition=''the penalty rate (percentage) charged for late payment.'' objectClassTerm=''Payment Terms'' qualifierTerm_PropertyTerm=''Penalty Surcharge'' propertyTerm=''Rate'' representationTerm=''Numeric''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SettlementDiscountRateNumeric
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000438):\n<ccts:BBIE dictionaryEntryName=''Payment Terms. Settlement Discount_ Rate. Numeric'' definition=''the settlement discount rate (percentage) offered for payment within the settlement period.'' objectClassTerm=''Payment Terms'' qualifierTerm_PropertyTerm=''Settlement Discount'' propertyTerm=''Rate'' representationTerm=''Numeric''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SettlementPeriod
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000440):\n<ccts:ASBIE dictionaryEntryName=''Payment Terms. Settlement_ Period'' definition=''associates the payment terms with the period over which the terms are offered.'' objectClassTerm=''Payment Terms'' qualifierTerm_PropertyTerm=''Settlement'' propertyTerm=''Period'' representationTerm=''Period''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot FromEventCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000437):\n<ccts:BBIE dictionaryEntryName=''Payment Terms. From_ Event. Code'' definition=''the event from which terms are offered for a length of time, identified by a standard code.'' objectClassTerm=''Payment Terms'' qualifierTerm_PropertyTerm=''From'' propertyTerm=''Event'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PenaltyPeriod
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000441):\n<ccts:ASBIE dictionaryEntryName=''Payment Terms. Penalty_ Period'' definition=''associates the payment terms with the period after which a penalty is charged.'' objectClassTerm=''Payment Terms'' qualifierTerm_PropertyTerm=''Penalty'' propertyTerm=''Period'' representationTerm=''Period''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass PaymentType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000421):\n<ccts:ABIE dictionaryEntryName=''Payment. Details'' definition=''information directly relating to a specific payment.'' objectClassTerm=''Payment'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot PaidAmount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000423):\n<ccts:BBIE dictionaryEntryName=''Payment. Paid_ Amount'' definition=''the amount of the payment '' objectClassTerm=''Payment'' qualifierTerm_PropertyTerm=''Paid'' propertyTerm=''Amount'' representationTerm=''Amount''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000422):\n<ccts:BBIE dictionaryEntryName=''Payment. Identifier'' definition=''identifies the payment transaction that settles a debt.  For example, if the payment was by means of a cheque, then this Id would be the cheque number.'' objectClassTerm=''Payment'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot ReceivedDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000424):\n<ccts:BBIE dictionaryEntryName=''Payment. Received_ Date'' definition=''the date on which the payment  was received.'' objectClassTerm=''Payment'' qualifierTerm_PropertyTerm=''Received'' propertyTerm=''Date'' representationTerm=''Date''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PaymentMeans
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000425):\n<ccts:ASBIE dictionaryEntryName=''Payment. Payment Means'' definition=''associates the payment with information about the means by which the payment was made.'' objectClassTerm=''Payment'' propertyTerm=''Payment Means'' representationTerm=''Payment Means''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass PenaltyPeriodType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000442):\n<ccts:ABIE dictionaryEntryName=''Penalty_ Period. Details'' definition=''information directly relating to a period, a length of time between two known date/time points.'' qualifierTermObjectClassTerm=''Penalty'' objectClassTerm=''Period'' qualifierTerm_PropertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot DurationMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000445):\n<ccts:BBIE dictionaryEntryName=''Penalty_ Period. Duration. Measure'' definition=''A duration of time expressed as a formal code. The Measure. Code inside the Measure. Type should be ISO 8601.'' qualifierTermObjectClassTerm=''Penalty'' objectClassTerm=''Period'' propertyTerm=''Duration'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot StartDateTime
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000443):\n<ccts:BBIE dictionaryEntryName=''Penalty_ Period. Start_ Date Time'' definition=''specifies the first point in date/time for a period.'' qualifierTermObjectClassTerm=''Penalty'' objectClassTerm=''Period'' qualifierTerm_PropertyTerm=''Start'' propertyTerm=''Date Time'' representationTerm=''Date Time''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot EndDateTime
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000444):\n<ccts:BBIE dictionaryEntryName=''Penalty_ Period. End_ Date Time'' definition=''specifies the last point in date/time of a period.'' qualifierTermObjectClassTerm=''Penalty'' objectClassTerm=''Period'' qualifierTerm_PropertyTerm=''End'' propertyTerm=''Date Time'' representationTerm=''Date Time''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DescriptionCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000446):\n<ccts:BBIE dictionaryEntryName=''Penalty_ Period. Description. Code'' definition=''A code that describes the significance of the dates or the duration. '' qualifierTermObjectClassTerm=''Penalty'' objectClassTerm=''Period'' propertyTerm=''Description'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass PhysicalAttributeType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000447):\n<ccts:ABIE dictionaryEntryName=''Physical Attribute. Details'' definition=''information about an identified physical attribute, feature, or characteristic of something.'' objectClassTerm=''Physical Attribute'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot PositionCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000449):\n<ccts:BBIE dictionaryEntryName=''Physical Attribute. Position. Code'' definition=''identifies by a code the position of the physical attribute that is being described.'' objectClassTerm=''Physical Attribute'' propertyTerm=''Position'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DescriptionID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000450):\n<ccts:BBIE dictionaryEntryName=''Physical Attribute. Description. Identifier'' definition=''describes an identified physical attribute by a  one of a  set of characteristic descriptions from a formalised list.'' objectClassTerm=''Physical Attribute'' propertyTerm=''Description Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AttributeID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000448):\n<ccts:BBIE dictionaryEntryName=''Physical Attribute. Attribute_ Identifier'' definition=''identifies a physical attribute within a set of characteristics that describe something in a formalised way.'' objectClassTerm=''Physical Attribute'' qualifierTerm_PropertyTerm=''Attribute'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Description
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000451):\n<ccts:BBIE dictionaryEntryName=''Physical Attribute. Description. Text'' definition=''describes an identified physical attribute by a  narrative description.'' objectClassTerm=''Physical Attribute'' propertyTerm=''Description'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(value [SUMO148_00011])
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass QuoteType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000452):\n<ccts:ABIE dictionaryEntryName=''Quote. Details'' definition=''associates the order with a prior quotation.'' objectClassTerm=''Quote'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000453):\n<ccts:BBIE dictionaryEntryName=''Quote. Identifier'' definition=''identifies a quote.  '' objectClassTerm=''Quote'' propertyTerm=''Identifier'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot IssueDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000454):\n<ccts:BBIE dictionaryEntryName=''Quote. Issue_ Date'' definition=''the date on which the quote was issued.'' objectClassTerm=''Quote'' qualifierTerm_PropertyTerm=''Issue'' propertyTerm=''Date'' representationTerm=''Date''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass ReceivedTransportHandlingUnitType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000467):\n<ccts:ABIE dictionaryEntryName=''Received_ Transport Handling Unit. Details'' definition=''information about a set of items which can be considered to be an undividable set of items for the purposes of delivery, also know as a 'logistics unit'.'' qualifierTermObjectClassTerm=''Received'' objectClassTerm=''Transport Handling Unit'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot HandlingUnitReceiptLine
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000470):\n<ccts:ASBIE dictionaryEntryName=''Received_ Transport Handling Unit. Handling Unit_ Receipt Line'' definition=''associates the Transport Handling Unit with one or more despatch lines on a despatch advice.'' qualifierTermObjectClassTerm=''Received'' objectClassTerm=''Transport Handling Unit'' qualifierTerm_PropertyTerm=''Handling Unit'' propertyTerm=''Receipt Line'' representationTerm=''Receipt Line''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000468):\n<ccts:BBIE dictionaryEntryName=''Received_ Transport Handling Unit. Identifier'' definition=''identification of the transport handling unit as a whole.'' qualifierTermObjectClassTerm=''Received'' objectClassTerm=''Transport Handling Unit'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot TypeCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000469):\n<ccts:BBIE dictionaryEntryName=''Received_ Transport Handling Unit. Type. Code'' definition=''identifies by a code the type of transport handling unit used.'' qualifierTermObjectClassTerm=''Received'' objectClassTerm=''Transport Handling Unit'' propertyTerm=''Type'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass ReferencedCatalogueType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000471):\n<ccts:ABIE dictionaryEntryName=''Referenced_ Catalogue. Details'' definition=''reference to the catalogue from which the item was selected.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Catalogue'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot CatalogueIssueDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000473):\n<ccts:BBIE dictionaryEntryName=''Catalogue. Issue_ Date'' definition=''the date on which the catalogue was issued.'' objectClassTerm=''Catalogue'' qualifierTerm_PropertyTerm=''Issue'' propertyTerm=''Date'' representationTerm=''Date''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CatalogueID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000472):\n<ccts:BBIE dictionaryEntryName=''Catalogue. Identifier'' definition=''identifies the catalogue.  '' objectClassTerm=''Catalogue'' propertyTerm=''Identifier'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass ReferencedDespatchAdviceType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000474):\n<ccts:ABIE dictionaryEntryName=''Referenced_ Despatch Advice. Details'' definition=''sufficient information about the despatch advice for referencing it.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Despatch Advice'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000475):\n<ccts:BBIE dictionaryEntryName=''Referenced_ Despatch Advice. Identifier'' definition=''a unique number assigned to the despatch advice by the seller.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Despatch Advice'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot IssueDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000476):\n<ccts:BBIE dictionaryEntryName=''Referenced_ Despatch Advice. Issue_ Date'' definition=''the date when the despatch advice was issued.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Despatch Advice'' qualifierTerm_PropertyTerm=''Issue'' propertyTerm=''Date'' representationTerm=''Date''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass ReferencedOrderType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000483):\n<ccts:ABIE dictionaryEntryName=''Referenced_ Order. Details'' definition=''sufficient information  about the order for referencing it.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Order'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot IssueDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000486):\n<ccts:BBIE dictionaryEntryName=''Referenced_ Order. Issue_ Date'' definition=''a date (and potentially time) stamp denoting when the Order was issued.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Order'' qualifierTerm_PropertyTerm=''Issue'' propertyTerm=''Date'' representationTerm=''Date''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot SellersOrderID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000485):\n<ccts:BBIE dictionaryEntryName=''Referenced_ Order. Seller's_ Order. Identifier'' definition=''the seller's identification of the order to which the despatch advice is related.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Order'' qualifierTerm_PropertyTerm=''Seller's'' propertyTerm=''Order Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot BuyersOrderID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000484):\n<ccts:BBIE dictionaryEntryName=''Referenced_ Order. Buyer's_ Order. Identifier'' definition=''the buyer's identification of the order to which the despatch advice is related.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Order'' qualifierTerm_PropertyTerm=''Buyer's'' propertyTerm=''Order Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass ReferencedReceiptAdviceType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000504):\n<ccts:ABIE dictionaryEntryName=''Referenced_ Receipt Advice. Details'' definition=''sufficient information about the receipt advice for referencing it.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Receipt Advice'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000505):\n<ccts:BBIE dictionaryEntryName=''Referenced_ Receipt Advice. Identifier'' definition=''holds the unique number that identifies the receipt advice, typically according to the buyer's system that generated the receipt advice'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Receipt Advice'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot IssueDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000506):\n<ccts:BBIE dictionaryEntryName=''Referenced_ Receipt Advice. Issue_ Date'' definition=''the date when the receipt advice was issued.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Receipt Advice'' qualifierTerm_PropertyTerm=''Issue'' propertyTerm=''Date'' representationTerm=''Date''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass ReferencedTransportHandlingUnitType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000509):\n<ccts:ABIE dictionaryEntryName=''Referenced_ Transport Handling Unit. Details'' definition=''information about a set of items which can be considered to be an undividable set of items for the purposes of delivery, also know as a 'logistics unit'.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Transport Handling Unit'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000510):\n<ccts:BBIE dictionaryEntryName=''Referenced_ Transport Handling Unit. Identifier'' definition=''identification of the transport handling unit as a whole.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Transport Handling Unit'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass SalesConditionsType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000544):\n<ccts:ABIE dictionaryEntryName=''Sales Conditions. Details'' definition=''information about the sales conditions that are applicable.'' objectClassTerm=''Sales Conditions'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot ConditionID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000545):\n<ccts:BBIE dictionaryEntryName=''Sales Conditions. Condition. Identifier'' definition=''identifies a condition within the set of sales conditions that apply.'' objectClassTerm=''Sales Conditions'' propertyTerm=''Condition Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ActionCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000546):\n<ccts:BBIE dictionaryEntryName=''Sales Conditions. Action. Code'' definition=''identifies the action that should be undertaken in specific conditions related to the sale of goods or services applied in the process.'' objectClassTerm=''Sales Conditions'' propertyTerm=''Action'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Description
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000547):\n<ccts:BBIE dictionaryEntryName=''Sales Conditions. Description. Text'' definition=''describes in free text what action should be undertaken in specific circumstances in relation to sales conditions.'' objectClassTerm=''Sales Conditions'' propertyTerm=''Description'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(value [SUMO148_00011])
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass SecondaryHazardsType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000548):\n<ccts:ABIE dictionaryEntryName=''Secondary Hazards. Details'' definition=''identification of any secondary  hazards with the related hazardous item.'' objectClassTerm=''Secondary Hazards'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot Code
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000549):\n<ccts:BBIE dictionaryEntryName=''Secondary Hazards. Code'' definition=''the identifier of the secondary hazard.'' objectClassTerm=''Secondary Hazards'' propertyTerm=''Identification'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Extension
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000550):\n<ccts:BBIE dictionaryEntryName=''Secondary Hazards. Extension. Text'' definition=''identifier of additional information regarding the hazardous substance. (Can be used to identify information such as the type of regulatory requirements that apply to a description, e.g. N.O.S. or a Waste Characteristics Code in conjunction with an EPA Waste Stream code).'' objectClassTerm=''Secondary Hazards'' propertyTerm=''Extension'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass SellersItemIdentificationType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000558):\n<ccts:ABIE dictionaryEntryName=''Seller's_ Item Identification. Details'' definition=''information directly relating to the identification an item by the seller's identification system.'' qualifierTermObjectClassTerm=''Seller's'' objectClassTerm=''Item Identification'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot ItemMeasurement
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000562):\n<ccts:ASBIE dictionaryEntryName=''Seller's_ Item Identification. Item Measurement'' definition=''associates the item with measurements necessary to specifically identify it, e.g. piece length. Note this is NOT the quantity of the item!'' qualifierTermObjectClassTerm=''Seller's'' objectClassTerm=''Item Identification'' propertyTerm=''Item Measurement'' representationTerm=''Item Measurement''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000559):\n<ccts:BBIE dictionaryEntryName=''Seller's_ Item Identification. Identifier'' definition=''the principal identification of an item (article or product) according to one source.'' qualifierTermObjectClassTerm=''Seller's'' objectClassTerm=''Item Identification'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot PhysicalAttribute
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000561):\n<ccts:ASBIE dictionaryEntryName=''Seller's_ Item Identification. Physical Attribute'' definition=''associates the item identifier with a specification of physical attributes by which the item may be distinguished. An example of this would be a colour code for a specific product.'' qualifierTermObjectClassTerm=''Seller's'' objectClassTerm=''Item Identification'' propertyTerm=''Physical Attribute'' representationTerm=''Physical Attribute''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Extension
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000560):\n<ccts:BBIE dictionaryEntryName=''Seller's_ Item Identification. Extension. Text'' definition=''What is this?'' qualifierTermObjectClassTerm=''Seller's'' objectClassTerm=''Item Identification'' propertyTerm=''Extension'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass SettlementPeriodType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000584):\n<ccts:ABIE dictionaryEntryName=''Settlement_ Period. Details'' definition=''information directly relating to a period, a length of time between two known date/time points.'' qualifierTermObjectClassTerm=''Settlement'' objectClassTerm=''Period'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot EndDateTimeDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000586):\n<ccts:BBIE dictionaryEntryName=''Settlement_ Period. End_ Date Time. Date'' definition=''specifies the last point in date/time of a period.'' qualifierTermObjectClassTerm=''Settlement'' objectClassTerm=''Period'' qualifierTerm_PropertyTerm=''End'' propertyTerm=''Date Time'' representationTerm=''Date''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DurationMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000587):\n<ccts:BBIE dictionaryEntryName=''Settlement_ Period. Duration. Measure'' definition=''A duration of time expressed as a formal code. The Measure. Code inside the Measure. Type should be ISO 8601.'' qualifierTermObjectClassTerm=''Settlement'' objectClassTerm=''Period'' propertyTerm=''Duration'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot StartDateTimeDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000585):\n<ccts:BBIE dictionaryEntryName=''Settlement_ Period. Start_ Date Time. Date'' definition=''specifies the first point in date/time for a period.'' qualifierTermObjectClassTerm=''Settlement'' objectClassTerm=''Period'' qualifierTerm_PropertyTerm=''Start'' propertyTerm=''Date Time'' representationTerm=''Date''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DescriptionCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000588):\n<ccts:BBIE dictionaryEntryName=''Settlement_ Period. Description. Code'' definition=''A code that describes the significance of the dates or the duration. '' qualifierTermObjectClassTerm=''Settlement'' objectClassTerm=''Period'' propertyTerm=''Description'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass ShipmentStageType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000589):\n<ccts:ABIE dictionaryEntryName=''Shipment Stage. Details'' definition=''information directly relating to a shipment.'' objectClassTerm=''Shipment Stage'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot TransportMeansTypeCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000592):\n<ccts:BBIE dictionaryEntryName=''Shipment Stage. Transport_ Means Type. Code'' definition=''the type of vehicle, ship etc. used for the shipment stage, specified by using a UNECE Recommendation 28 code. '' objectClassTerm=''Shipment Stage'' qualifierTerm_PropertyTerm=''Transport'' propertyTerm=''Means Type'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot StageID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000590):\n<ccts:BBIE dictionaryEntryName=''Shipment Stage. Stage. Identifier'' definition=''identifier of a shipment stage within an overall shipment movement of items.'' objectClassTerm=''Shipment Stage'' propertyTerm=''Stage ID'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TransitPeriod
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000594):\n<ccts:ASBIE dictionaryEntryName=''Shipment Stage. Transit_ Period'' definition=''associates the shipment stage with information about the period of transit.'' objectClassTerm=''Shipment Stage'' qualifierTerm_PropertyTerm=''Transit'' propertyTerm=''Period'' representationTerm=''Period''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TransportModeCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000591):\n<ccts:BBIE dictionaryEntryName=''Shipment Stage. Transport_ Mode. Code'' definition=''the method of transport used for the shipment stage, specified by using a UNECE Recommendation 19 code.'' objectClassTerm=''Shipment Stage'' qualifierTerm_PropertyTerm=''Transport'' propertyTerm=''Mode'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TransitDirectionCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000593):\n<ccts:BBIE dictionaryEntryName=''Shipment Stage. Transit_ Direction. Code'' definition=''the direction of transit for the shipment stage.'' objectClassTerm=''Shipment Stage'' qualifierTerm_PropertyTerm=''Transit'' propertyTerm=''Direction'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass StandardItemIdentificationType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000601):\n<ccts:ABIE dictionaryEntryName=''Standard_ Item Identification. Details'' definition=''information directly relating to the identification an item by a standard system of identification.'' qualifierTermObjectClassTerm=''Standard'' objectClassTerm=''Item Identification'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot ItemMeasurement
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000605):\n<ccts:ASBIE dictionaryEntryName=''Standard_ Item Identification. Item Measurement'' definition=''associates the item with measurements necessary to specifically identify it, e.g. piece length. Note this is NOT the quantity of the item!'' qualifierTermObjectClassTerm=''Standard'' objectClassTerm=''Item Identification'' propertyTerm=''Item Measurement'' representationTerm=''Item Measurement''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000602):\n<ccts:BBIE dictionaryEntryName=''Standard_ Item Identification. Identifier'' definition=''other identification of the product or service that are not explicitly stated as the content of the other elements contained elsewhere'' qualifierTermObjectClassTerm=''Standard'' objectClassTerm=''Item Identification'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot PhysicalAttribute
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000604):\n<ccts:ASBIE dictionaryEntryName=''Standard_ Item Identification. Physical Attribute'' definition=''associates the item identifier with a specification of physical attributes by which the item may be distinguished. An example of this would be a colour code for a specific product.'' qualifierTermObjectClassTerm=''Standard'' objectClassTerm=''Item Identification'' propertyTerm=''Physical Attribute'' representationTerm=''Physical Attribute''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Extension
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000603):\n<ccts:BBIE dictionaryEntryName=''Standard_ Item Identification. Extension. Text'' definition=''What is this?'' qualifierTermObjectClassTerm=''Standard'' objectClassTerm=''Item Identification'' propertyTerm=''Extension'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass TaxSchemeType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000619):\n<ccts:ABIE dictionaryEntryName=''Tax Scheme. Details'' definition=''information directly relating to a tax scheme.'' objectClassTerm=''Tax Scheme'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot JurisdictionAddress
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000622):\n<ccts:ASBIE dictionaryEntryName=''Tax Scheme. Jurisdiction_ Address'' definition=''associates the tax scheme with particulars that identify and locate the geographic area in which a tax scheme applies.'' objectClassTerm=''Tax Scheme'' qualifierTerm_PropertyTerm=''Jurisdiction'' propertyTerm=''Address'' representationTerm=''Address''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000620):\n<ccts:BBIE dictionaryEntryName=''Tax Scheme. Identifier'' definition=''identifies the tax scheme'' objectClassTerm=''Tax Scheme'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot CurrencyCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000621):\n<ccts:BBIE dictionaryEntryName=''Tax Scheme. Currency. Code'' definition=''specifies the currency in which the tax is collected and reported, if different from the invoicing currency. '' objectClassTerm=''Tax Scheme'' propertyTerm=''Currency'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass TaxType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000611):\n<ccts:ABIE dictionaryEntryName=''Tax. Details'' definition=''information directly relating to a tax.'' objectClassTerm=''Tax'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot TaxScheme
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000615):\n<ccts:ASBIE dictionaryEntryName=''Tax. Tax Scheme'' definition=''associates the tax with information directly relating to a tax scheme.'' objectClassTerm=''Tax'' propertyTerm=''Tax Scheme'' representationTerm=''Tax Scheme''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RateCategoryCodeID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000612):\n<ccts:BBIE dictionaryEntryName=''Tax. Rate_ Category Code. Identifier'' definition=''the category of the tax and, by implication, the tax rate that applies. The actual percentage attributed to a category is dependent on the tax jurisdiction.'' objectClassTerm=''Tax'' qualifierTerm_PropertyTerm=''Rate'' propertyTerm=''Category Code'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TypeCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000613):\n<ccts:BBIE dictionaryEntryName=''Tax. Type. Code'' definition=''identifies the type of tax.'' objectClassTerm=''Tax'' propertyTerm=''Type'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RatePercentNumeric
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000614):\n<ccts:BBIE dictionaryEntryName=''Tax. Rate_ Percent. Numeric'' definition=''the tax rate as a percentage.'' objectClassTerm=''Tax'' qualifierTerm_PropertyTerm=''Rate'' propertyTerm=''Percent'' representationTerm=''Numeric''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass TransitPeriodType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000627):\n<ccts:ABIE dictionaryEntryName=''Transit_ Period. Details'' definition=''information directly relating to a period, a length of time between two known date/time points.'' qualifierTermObjectClassTerm=''Transit'' objectClassTerm=''Period'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot EndDateTimeDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000629):\n<ccts:BBIE dictionaryEntryName=''Transit_ Period. End_ Date Time. Date'' definition=''specifies the last point in date/time of a period.'' qualifierTermObjectClassTerm=''Transit'' objectClassTerm=''Period'' qualifierTerm_PropertyTerm=''End'' propertyTerm=''Date Time'' representationTerm=''Date''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DurationMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000630):\n<ccts:BBIE dictionaryEntryName=''Transit_ Period. Duration. Measure'' definition=''A duration of time expressed as a formal code. The Measure. Code inside the Measure. Type should be ISO 8601.'' qualifierTermObjectClassTerm=''Transit'' objectClassTerm=''Period'' propertyTerm=''Duration'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot StartDateTimeDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000628):\n<ccts:BBIE dictionaryEntryName=''Transit_ Period. Start_ Date Time. Date'' definition=''specifies the first point in date/time for a period.'' qualifierTermObjectClassTerm=''Transit'' objectClassTerm=''Period'' qualifierTerm_PropertyTerm=''Start'' propertyTerm=''Date Time'' representationTerm=''Date''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DescriptionCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000631):\n<ccts:BBIE dictionaryEntryName=''Transit_ Period. Description. Code'' definition=''A code that describes the significance of the dates or the duration. '' qualifierTermObjectClassTerm=''Transit'' objectClassTerm=''Period'' propertyTerm=''Description'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass TransportContractType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000637):\n<ccts:ABIE dictionaryEntryName=''Transport_ Contract. Details'' definition=''associates the order with a pre-order contract'' qualifierTermObjectClassTerm=''Transport'' objectClassTerm=''Contract'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot ValidityPeriod
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000641):\n<ccts:ASBIE dictionaryEntryName=''Transport_ Contract. Validity_ Period'' definition=''specifies the dates or duration for which the Contract is valid.'' qualifierTermObjectClassTerm=''Transport'' objectClassTerm=''Contract'' qualifierTerm_PropertyTerm=''Validity'' propertyTerm=''Period'' representationTerm=''Period''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000638):\n<ccts:BBIE dictionaryEntryName=''Transport_ Contract. Identifier'' definition=''identifies a contract.  '' qualifierTermObjectClassTerm=''Transport'' objectClassTerm=''Contract'' propertyTerm=''Identifier'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot TypeCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000640):\n<ccts:BBIE dictionaryEntryName=''Transport_ Contract. Type. Code'' qualifierTermObjectClassTerm=''Transport'' objectClassTerm=''Contract'' propertyTerm=''Type'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot IssueDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000639):\n<ccts:BBIE dictionaryEntryName=''Transport_ Contract. Issue_ Date'' definition=''the date on which the contract was issued.'' qualifierTermObjectClassTerm=''Transport'' objectClassTerm=''Contract'' qualifierTerm_PropertyTerm=''Issue'' propertyTerm=''Date'' representationTerm=''Date''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass TransportEquipmentMeasurementType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000653):\n<ccts:ABIE dictionaryEntryName=''Transport Equipment Measurement. Details'' definition=''information directly relating to a measurement of an attribute of the transport equipment.'' objectClassTerm=''Transport Equipment Measurement'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot MaximumMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000658):\n<ccts:BBIE dictionaryEntryName=''Transport Equipment Measurement. Maximum_ Measure'' definition=''the maximum value in a range of measurement.'' objectClassTerm=''Transport Equipment Measurement'' qualifierTerm_PropertyTerm=''Maximum'' propertyTerm=''Measure'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TransportEquipment
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000659):\n<ccts:ASBIE dictionaryEntryName=''Transport Equipment Measurement. Transport Equipment'' definition=''associates the transport equipment measurement to the related piece of transport equipment (e.g. sea container)'' objectClassTerm=''Transport Equipment Measurement'' propertyTerm=''Transport Equipment'' representationTerm=''Transport Equipment''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AttributeID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000654):\n<ccts:BBIE dictionaryEntryName=''Transport Equipment Measurement. Attribute. Identifier'' definition=''identifies in a formalised way the measureable attribute, or feature, for which a measurement is specified.'' objectClassTerm=''Transport Equipment Measurement'' propertyTerm=''Attribute ID'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot measure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000655):\n<ccts:BBIE dictionaryEntryName=''Transport Equipment Measurement. Measure'' definition=''the value of the measurement'' objectClassTerm=''Transport Equipment Measurement'' propertyTerm=''Measure'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MinimumMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000657):\n<ccts:BBIE dictionaryEntryName=''Transport Equipment Measurement. Minimum_ Measure'' definition=''the minimum value in a range of measurement.'' objectClassTerm=''Transport Equipment Measurement'' qualifierTerm_PropertyTerm=''Minimum'' propertyTerm=''Measure'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Description
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000656):\n<ccts:BBIE dictionaryEntryName=''Transport Equipment Measurement. Description. Text'' definition=''free text describing the attribute or feature for which the measure is specified.'' objectClassTerm=''Transport Equipment Measurement'' propertyTerm=''Description'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(value [SUMO148_00011])
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass TransportEquipmentSealType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000660):\n<ccts:ABIE dictionaryEntryName=''Transport Equipment Seal. Details'' definition=''information about a seal used in connection with equipment'' objectClassTerm=''Transport Equipment Seal'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot StatusCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000664):\n<ccts:BBIE dictionaryEntryName=''Transport Equipment Seal. Status. Code'' definition=''code indicating the status of a seal on a piece of equipment.'' objectClassTerm=''Transport Equipment Seal'' propertyTerm=''Status'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Condition
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000663):\n<ccts:BBIE dictionaryEntryName=''Transport Equipment Seal. Condition. Text'' definition=''information relating to the condition of a seal on a piece of equipment.'' objectClassTerm=''Transport Equipment Seal'' propertyTerm=''Condition'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000661):\n<ccts:BBIE dictionaryEntryName=''Transport Equipment Seal. Identifier'' definition=''identification on a seal on a piece of transport equipment. '' objectClassTerm=''Transport Equipment Seal'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot IssuerPartyTypeCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000662):\n<ccts:BBIE dictionaryEntryName=''Transport Equipment Seal. Issuer_ Party Type. Code'' definition=''Code identifying which party issues and is responsible for an equipment seal.'' objectClassTerm=''Transport Equipment Seal'' qualifierTerm_PropertyTerm=''Issuer'' propertyTerm=''Party Type'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass TransportEquipmentType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000642):\n<ccts:ABIE dictionaryEntryName=''Transport Equipment. Details'' definition=''information relating to a piece of transport equipment (e.g. sea container)'' objectClassTerm=''Transport Equipment'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot TransportEquipmentSeal
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000652):\n<ccts:ASBIE dictionaryEntryName=''Transport Equipment. Transport Equipment Seal'' definition=''associates the transport equipment with information about equipment seal(s) applied to it.'' objectClassTerm=''Transport Equipment'' propertyTerm=''Transport Equipment Seal'' representationTerm=''Transport Equipment Seal''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Information
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000650):\n<ccts:BBIE dictionaryEntryName=''Transport Equipment. Information. Text'' definition=''additional information in free form text relating to the transport equipment.'' objectClassTerm=''Transport Equipment'' propertyTerm=''Information'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000643):\n<ccts:BBIE dictionaryEntryName=''Transport Equipment. Identifier'' definition=''identifier of a piece of transport equipment.'' objectClassTerm=''Transport Equipment'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot TransportEquipmentMeasurement
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000651):\n<ccts:ASBIE dictionaryEntryName=''Transport Equipment. Transport Equipment Measurement'' definition=''associates the transport equipment with its measurement(s).'' objectClassTerm=''Transport Equipment'' propertyTerm=''Transport Equipment Measurement'' representationTerm=''Transport Equipment Measurement''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RefrigerationStatusIndicator
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000649):\n<ccts:BBIE dictionaryEntryName=''Transport Equipment. Refrigeration Status_ Indicator'' definition=''indicates whether refrigeration is on or off for the transportation equipment.'' objectClassTerm=''Transport Equipment'' qualifierTerm_PropertyTerm=''Refrigeration Status'' propertyTerm=''Indicator'' representationTerm=''Indicator''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ProviderTypeCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000644):\n<ccts:BBIE dictionaryEntryName=''Transport Equipment. Provider Type. Code'' definition=''identifies the type of provider for the transport equipment.'' objectClassTerm=''Transport Equipment'' propertyTerm=''Provider Type'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SizeTypeCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000646):\n<ccts:BBIE dictionaryEntryName=''Transport Equipment. Size Type. Code'' definition=''code specifying  the size and type of a piece of transport equipment.'' objectClassTerm=''Transport Equipment'' propertyTerm=''Size Type Code'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot OwnerPartyTypeCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000645):\n<ccts:BBIE dictionaryEntryName=''Transport Equipment. Owner_ Party Type. Code'' definition=''identifies the type of owner of a piece of transport equipment. '' objectClassTerm=''Transport Equipment'' qualifierTerm_PropertyTerm=''Owner'' propertyTerm=''Party Type'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot FullnessIndicatorCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000648):\n<ccts:BBIE dictionaryEntryName=''Transport Equipment. Fullness_ Indicator. Code'' definition=''Code indicating whether a piece of transport equipment is full, empty or partially full.'' objectClassTerm=''Transport Equipment'' qualifierTerm_PropertyTerm=''Fullness'' propertyTerm=''Indicator'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DispositionCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000647):\n<ccts:BBIE dictionaryEntryName=''Transport Equipment. Disposition. Code'' definition=''describes the current disposition of the transport equipment.'' objectClassTerm=''Transport Equipment'' propertyTerm=''Disposition'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass ValidityPeriodType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000665):\n<ccts:ABIE dictionaryEntryName=''Validity_ Period. Details'' definition=''information directly relating to a period, a length of time between two known date/time points.'' qualifierTermObjectClassTerm=''Validity'' objectClassTerm=''Period'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionEntity)
	(role concrete)
	(single-slot EndDateTimeDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000667):\n<ccts:BBIE dictionaryEntryName=''Validity_ Period. End_ Date Time. Date'' definition=''specifies the last point in date/time of a period.'' qualifierTermObjectClassTerm=''Validity'' objectClassTerm=''Period'' qualifierTerm_PropertyTerm=''End'' propertyTerm=''Date Time'' representationTerm=''Date''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DurationMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000668):\n<ccts:BBIE dictionaryEntryName=''Validity_ Period. Duration. Measure'' definition=''A duration of time expressed as a formal code. The Measure. Code inside the Measure. Type should be ISO 8601.'' qualifierTermObjectClassTerm=''Validity'' objectClassTerm=''Period'' propertyTerm=''Duration'' representationTerm=''Measure''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot StartDateTimeDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000666):\n<ccts:BBIE dictionaryEntryName=''Validity_ Period. Start_ Date Time. Date'' definition=''specifies the first point in date/time for a period.'' qualifierTermObjectClassTerm=''Validity'' objectClassTerm=''Period'' qualifierTerm_PropertyTerm=''Start'' propertyTerm=''Date Time'' representationTerm=''Date''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DescriptionCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000669):\n<ccts:BBIE dictionaryEntryName=''Validity_ Period. Description. Code'' definition=''A code that describes the significance of the dates or the duration. '' qualifierTermObjectClassTerm=''Validity'' objectClassTerm=''Period'' propertyTerm=''Description'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Addressing "Addressing is a general class of addresses for participants in a business transaction."
	(is-a TransactionEntity)
	(role concrete))

(defclass RegistrationAddressType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000511):\n<ccts:ABIE dictionaryEntryName=''Registration_ Address. Details'' definition=''the particulars that identify and locate the place where someone lives or is situated, or where an organisation is situated.'' qualifierTermObjectClassTerm=''Registration'' objectClassTerm=''Address'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a Addressing)
	(role concrete)
	(single-slot CityName
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000523):\n<ccts:BBIE dictionaryEntryName=''Registration_ Address. City_ Name'' definition=''the name of the city, town, village, or a built up area and used as part of an address.'' qualifierTermObjectClassTerm=''Registration'' objectClassTerm=''Address'' qualifierTerm_PropertyTerm=''City'' propertyTerm=''Name'' representationTerm=''Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CountrySub-EntityCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000526):\n<ccts:BBIE dictionaryEntryName=''Registration_ Address. Country Sub-Entity. Code'' definition=''the code that identifies the territorial division (a  chief unit of local administration) of a country, as part of an address.  '' qualifierTermObjectClassTerm=''Registration'' objectClassTerm=''Address'' propertyTerm=''Country Sub-entity Code'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CountrySub-Entity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000525):\n<ccts:BBIE dictionaryEntryName=''Registration_ Address. Country Sub-Entity. Text'' definition=''the name that identifies the territorial division (a  chief unit of local administration) of a country, as part of an address. '' qualifierTermObjectClassTerm=''Registration'' objectClassTerm=''Address'' propertyTerm=''Country Sub-entity'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot BuildingAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000514):\n<ccts:BBIE dictionaryEntryName=''Registration_ Address. Building. Text'' definition=''the identity which uniquely identifies a building within an address.'' qualifierTermObjectClassTerm=''Registration'' objectClassTerm=''Address'' propertyTerm=''Building'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RegionAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000527):\n<ccts:BBIE dictionaryEntryName=''Registration_ Address. Region. Text'' definition=''the name that identifies a non-administrative division of a country, or a commonly used name for a grouping of countries, as part of an address.'' qualifierTermObjectClassTerm=''Registration'' objectClassTerm=''Address'' propertyTerm=''Region'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Postbox
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000513):\n<ccts:BBIE dictionaryEntryName=''Registration_ Address. Postbox. Text'' definition=''a post office box number or a numbered post box in a post office assigned to a person or organization where letters for them are kept until called for, used as part of an address.'' qualifierTermObjectClassTerm=''Registration'' objectClassTerm=''Address'' propertyTerm=''Postbox'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000512):\n<ccts:BBIE dictionaryEntryName=''Registration_ Address. Identifier'' definition=''a unique identifier given to a specific address within a scheme of registered addresses.'' qualifierTermObjectClassTerm=''Registration'' objectClassTerm=''Address'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot HouseName
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000519):\n<ccts:BBIE dictionaryEntryName=''Registration_ Address. House_ Name'' definition=''the name that identifies the location of a house or building: usually within a street as part of an address.'' qualifierTermObjectClassTerm=''Registration'' objectClassTerm=''Address'' qualifierTerm_PropertyTerm=''House'' propertyTerm=''Name'' representationTerm=''Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot InhouseMail
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000521):\n<ccts:BBIE dictionaryEntryName=''Registration_ Address. Inhouse Mail. Text'' definition=''identifies an in-house mail location as part of an address.'' qualifierTermObjectClassTerm=''Registration'' objectClassTerm=''Address'' propertyTerm=''Inhouse Mail'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Department
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000522):\n<ccts:BBIE dictionaryEntryName=''Registration_ Address. Department. Text'' definition=''the identity of the department of an organisation, used as part of an address.'' qualifierTermObjectClassTerm=''Registration'' objectClassTerm=''Address'' propertyTerm=''Department'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AdditionalStreet
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000518):\n<ccts:BBIE dictionaryEntryName=''Registration_ Address. Additional_ Street. Text'' definition=''contains additional text information within an address about the street.'' qualifierTermObjectClassTerm=''Registration'' objectClassTerm=''Address'' qualifierTerm_PropertyTerm=''Additional'' propertyTerm=''Street'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DistrictAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000528):\n<ccts:BBIE dictionaryEntryName=''Registration_ Address. District. Text'' definition=''the name that identifies a non-administrative division of a city, country sub-entity, or country, as part of an address.'' qualifierTermObjectClassTerm=''Registration'' objectClassTerm=''Address'' propertyTerm=''District'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot StreetAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000517):\n<ccts:BBIE dictionaryEntryName=''Registration_ Address. Street. Text'' definition=''the name of the street, as part of an address.'' qualifierTermObjectClassTerm=''Registration'' objectClassTerm=''Address'' propertyTerm=''Street'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot FloorAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000515):\n<ccts:BBIE dictionaryEntryName=''Registration_ Address. Floor. Text'' definition=''identification by name or number of the floor in a building, as part of an address.'' qualifierTermObjectClassTerm=''Registration'' objectClassTerm=''Address'' propertyTerm=''Floor'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Country
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000530):\n<ccts:ASBIE dictionaryEntryName=''Registration_ Address. Country'' definition=''provides the country part of an address using a code.  ISO3166 alpha codes are recommended.'' qualifierTermObjectClassTerm=''Registration'' objectClassTerm=''Address'' propertyTerm=''Country'' representationTerm=''Country''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TimezoneOffsetMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000529):\n<ccts:BBIE dictionaryEntryName=''Registration_ Address. Timezone Offset Measure. Text'' definition=''the measure of time offset from UTC (Universal Coordinated Time) for the time zone in which the address is situated. A synonym for UTC is GMT (Greenwich Mean Time).'' qualifierTermObjectClassTerm=''Registration'' objectClassTerm=''Address'' propertyTerm=''Timezone Offset Measure'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PostalZone
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000524):\n<ccts:BBIE dictionaryEntryName=''Registration_ Address. Postal Zone. Text'' definition=''the identifier for one or more properties according to the postal service of that country; a group of letters and/or numbers added to the postal address to assist in the sorting of mail.  '' qualifierTermObjectClassTerm=''Registration'' objectClassTerm=''Address'' propertyTerm=''Postal Zone'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RoomAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000516):\n<ccts:BBIE dictionaryEntryName=''Registration_ Address. Room. Text'' definition=''identifies the room, suite or apartment as part of an address.'' qualifierTermObjectClassTerm=''Registration'' objectClassTerm=''Address'' propertyTerm=''Room'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot HouseNumber
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000520):\n<ccts:BBIE dictionaryEntryName=''Registration_ Address. House_ Number. Text'' definition=''the house number or description that identifies a house, building or site: usually within a street as part of an address.'' qualifierTermObjectClassTerm=''Registration'' objectClassTerm=''Address'' qualifierTerm_PropertyTerm=''House'' propertyTerm=''Number'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass AddressType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000028):\n<ccts:ABIE dictionaryEntryName=''Address. Details'' definition=''the particulars that identify and locate the place where someone lives or is situated, or where an organisation is situated.'' objectClassTerm=''Address'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a Addressing)
	(role concrete)
	(single-slot CityName
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000040):\n<ccts:BBIE dictionaryEntryName=''Address. City_ Name'' definition=''the name of the city, town, village, or a built up area and used as part of an address.'' objectClassTerm=''Address'' qualifierTerm_PropertyTerm=''City'' propertyTerm=''Name'' representationTerm=''Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CountrySub-EntityCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000043):\n<ccts:BBIE dictionaryEntryName=''Address. Country Sub-Entity. Code'' definition=''the code that identifies the territorial division (a  chief unit of local administration) of a country, as part of an address.  '' objectClassTerm=''Address'' propertyTerm=''Country Sub-entity Code'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CountrySub-Entity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000042):\n<ccts:BBIE dictionaryEntryName=''Address. Country Sub-Entity. Text'' definition=''the name that identifies the territorial division (a  chief unit of local administration) of a country, as part of an address. '' objectClassTerm=''Address'' propertyTerm=''Country Sub-entity'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot BuildingAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000031):\n<ccts:BBIE dictionaryEntryName=''Address. Building. Text'' definition=''the identity which uniquely identifies a building within an address.'' objectClassTerm=''Address'' propertyTerm=''Building'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RegionAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000044):\n<ccts:BBIE dictionaryEntryName=''Address. Region. Text'' definition=''the name that identifies a non-administrative division of a country, or a commonly used name for a grouping of countries, as part of an address.'' objectClassTerm=''Address'' propertyTerm=''Region'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Postbox
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000030):\n<ccts:BBIE dictionaryEntryName=''Address. Postbox. Text'' definition=''a post office box number or a numbered post box in a post office assigned to a person or organization where letters for them are kept until called for, used as part of an address.'' objectClassTerm=''Address'' propertyTerm=''Postbox'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000029):\n<ccts:BBIE dictionaryEntryName=''Address. Identifier'' definition=''a unique identifier given to a specific address within a scheme of registered addresses.'' objectClassTerm=''Address'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot Floor
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000032):\n<ccts:BBIE dictionaryEntryName=''Address. Floor. Text'' definition=''identification by name or number of the floor in a building, as part of an address.'' objectClassTerm=''Address'' propertyTerm=''Floor'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot HouseName
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000036):\n<ccts:BBIE dictionaryEntryName=''Address. House_ Name'' definition=''the name that identifies the location of a house or building: usually within a street as part of an address.'' objectClassTerm=''Address'' qualifierTerm_PropertyTerm=''House'' propertyTerm=''Name'' representationTerm=''Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot InhouseMail
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000038):\n<ccts:BBIE dictionaryEntryName=''Address. Inhouse Mail. Text'' definition=''identifies an in-house mail location as part of an address.'' objectClassTerm=''Address'' propertyTerm=''Inhouse Mail'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Department
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000039):\n<ccts:BBIE dictionaryEntryName=''Address. Department. Text'' definition=''the identity of the department of an organisation, used as part of an address.'' objectClassTerm=''Address'' propertyTerm=''Department'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AdditionalStreet
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000035):\n<ccts:BBIE dictionaryEntryName=''Address. Additional_ Street. Text'' definition=''contains additional text information within an address about the street.'' objectClassTerm=''Address'' qualifierTerm_PropertyTerm=''Additional'' propertyTerm=''Street'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Street
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000034):\n<ccts:BBIE dictionaryEntryName=''Address. Street. Text'' definition=''the name of the street, as part of an address.'' objectClassTerm=''Address'' propertyTerm=''Street'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Country
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000047):\n<ccts:ASBIE dictionaryEntryName=''Address. Country'' definition=''provides the country part of an address using a code.  ISO3166 alpha codes are recommended.'' objectClassTerm=''Address'' propertyTerm=''Country'' representationTerm=''Country''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TimezoneOffsetMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000046):\n<ccts:BBIE dictionaryEntryName=''Address. Timezone Offset Measure. Text'' definition=''the measure of time offset from UTC (Universal Coordinated Time) for the time zone in which the address is situated. A synonym for UTC is GMT (Greenwich Mean Time).'' objectClassTerm=''Address'' propertyTerm=''Timezone Offset Measure'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot District
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000045):\n<ccts:BBIE dictionaryEntryName=''Address. District. Text'' definition=''the name that identifies a non-administrative division of a city, country sub-entity, or country, as part of an address.'' objectClassTerm=''Address'' propertyTerm=''District'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PostalZone
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000041):\n<ccts:BBIE dictionaryEntryName=''Address. Postal Zone. Text'' definition=''the identifier for one or more properties according to the postal service of that country; a group of letters and/or numbers added to the postal address to assist in the sorting of mail.  '' objectClassTerm=''Address'' propertyTerm=''Postal Zone'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RoomAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000033):\n<ccts:BBIE dictionaryEntryName=''Address. Room. Text'' definition=''identifies the room, suite or apartment as part of an address.'' objectClassTerm=''Address'' propertyTerm=''Room'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot HouseNumber
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000037):\n<ccts:BBIE dictionaryEntryName=''Address. House_ Number. Text'' definition=''the house number or description that identifies a house, building or site: usually within a street as part of an address.'' objectClassTerm=''Address'' qualifierTerm_PropertyTerm=''House'' propertyTerm=''Number'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass SendFromAddressType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000563):\n<ccts:ABIE dictionaryEntryName=''Send From_ Address. Details'' definition=''the particulars that identify and locate the place from which the delivery is made.'' qualifierTermObjectClassTerm=''Send From'' objectClassTerm=''Address'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a Addressing)
	(role concrete)
	(single-slot CityName
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000575):\n<ccts:BBIE dictionaryEntryName=''Send From_ Address. City_ Name'' definition=''the name of the city, town, village, or a built up area and used as part of an address.'' qualifierTermObjectClassTerm=''Send From'' objectClassTerm=''Address'' qualifierTerm_PropertyTerm=''City'' propertyTerm=''Name'' representationTerm=''Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CountrySub-EntityCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000578):\n<ccts:BBIE dictionaryEntryName=''Send From_ Address. Country Sub-Entity. Code'' definition=''the code that identifies the territorial division (a  chief unit of local administration) of a country, as part of an address.  '' qualifierTermObjectClassTerm=''Send From'' objectClassTerm=''Address'' propertyTerm=''Country Sub-entity Code'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CountrySub-Entity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000577):\n<ccts:BBIE dictionaryEntryName=''Send From_ Address. Country Sub-Entity. Text'' definition=''the name that identifies the territorial division (a  chief unit of local administration) of a country, as part of an address. '' qualifierTermObjectClassTerm=''Send From'' objectClassTerm=''Address'' propertyTerm=''Country Sub-entity'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot BuildingAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000566):\n<ccts:BBIE dictionaryEntryName=''Send From_ Address. Building. Text'' definition=''the identity which uniquely identifies a building within an address.'' qualifierTermObjectClassTerm=''Send From'' objectClassTerm=''Address'' propertyTerm=''Building'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RegionAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000579):\n<ccts:BBIE dictionaryEntryName=''Send From_ Address. Region. Text'' definition=''the name that identifies a non-administrative division of a country, or a commonly used name for a grouping of countries, as part of an address.'' qualifierTermObjectClassTerm=''Send From'' objectClassTerm=''Address'' propertyTerm=''Region'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Postbox
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000565):\n<ccts:BBIE dictionaryEntryName=''Send From_ Address. Postbox. Text'' definition=''a post office box number or a numbered post box in a post office assigned to a person or organization where letters for them are kept until called for, used as part of an address.'' qualifierTermObjectClassTerm=''Send From'' objectClassTerm=''Address'' propertyTerm=''Postbox'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000564):\n<ccts:BBIE dictionaryEntryName=''Send From_ Address. Identifier'' definition=''a unique identifier given to a specific address within a scheme of registered addresses.'' qualifierTermObjectClassTerm=''Send From'' objectClassTerm=''Address'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot HouseName
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000571):\n<ccts:BBIE dictionaryEntryName=''Send From_ Address. House_ Name'' definition=''the name that identifies the house or building: usually within a street as part of an address.'' qualifierTermObjectClassTerm=''Send From'' objectClassTerm=''Address'' qualifierTerm_PropertyTerm=''House'' propertyTerm=''Name'' representationTerm=''Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot InhouseMail
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000573):\n<ccts:BBIE dictionaryEntryName=''Send From_ Address. Inhouse Mail. Text'' definition=''identifies an in-house mail location as part of an address.'' qualifierTermObjectClassTerm=''Send From'' objectClassTerm=''Address'' propertyTerm=''Inhouse Mail'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Department
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000574):\n<ccts:BBIE dictionaryEntryName=''Send From_ Address. Department. Text'' definition=''the identity of the department of an organisation, used as part of an address.'' qualifierTermObjectClassTerm=''Send From'' objectClassTerm=''Address'' propertyTerm=''Department'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AdditionalStreet
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000570):\n<ccts:BBIE dictionaryEntryName=''Send From_ Address. Additional_ Street. Text'' definition=''contains additional text information within an address about the street.'' qualifierTermObjectClassTerm=''Send From'' objectClassTerm=''Address'' qualifierTerm_PropertyTerm=''Additional'' propertyTerm=''Street'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DistrictAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000580):\n<ccts:BBIE dictionaryEntryName=''Send From_ Address. District. Text'' definition=''the name that identifies a non-administrative division of a city, country sub-entity, or country, as part of an address.'' qualifierTermObjectClassTerm=''Send From'' objectClassTerm=''Address'' propertyTerm=''District'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot StreetAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000569):\n<ccts:BBIE dictionaryEntryName=''Send From_ Address. Street. Text'' definition=''the name of the street, as part of an address.'' qualifierTermObjectClassTerm=''Send From'' objectClassTerm=''Address'' propertyTerm=''Street'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot FloorAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000567):\n<ccts:BBIE dictionaryEntryName=''Send From_ Address. Floor. Text'' definition=''identification by name or number of the floor in a building, as part of an address.'' qualifierTermObjectClassTerm=''Send From'' objectClassTerm=''Address'' propertyTerm=''Floor'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TimezoneOffsetMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000581):\n<ccts:BBIE dictionaryEntryName=''Send From_ Address. Timezone Offset Measure. Text'' definition=''the measure of time offset from UTC (Universal Coordinated Time) for the time zone in which the address is situated. A synonym for UTC is GMT (Greenwich Mean Time).'' qualifierTermObjectClassTerm=''Send From'' objectClassTerm=''Address'' propertyTerm=''Timezone Offset Measure'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PostalZone
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000576):\n<ccts:BBIE dictionaryEntryName=''Send From_ Address. Postal Zone. Text'' definition=''the identifier for one or more properties according to the postal service of that country; a group of letters and/or numbers added to the postal address to assist in the sorting of mail.  '' qualifierTermObjectClassTerm=''Send From'' objectClassTerm=''Address'' propertyTerm=''Postal Zone'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CountryAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000582):\n<ccts:ASBIE dictionaryEntryName=''Send From_ Address. Country'' definition=''associates the address with the country part of an address.'' qualifierTermObjectClassTerm=''Send From'' objectClassTerm=''Address'' propertyTerm=''Country'' representationTerm=''Country''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RoomAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000568):\n<ccts:BBIE dictionaryEntryName=''Send From_ Address. Room. Text'' definition=''identifies the room, suite or apartment as part of an address.'' qualifierTermObjectClassTerm=''Send From'' objectClassTerm=''Address'' propertyTerm=''Room'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LocationCoordinates
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000583):\n<ccts:ASBIE dictionaryEntryName=''Send From_ Address. Location Coordinates'' definition=''associates the address with its location coordinates.'' qualifierTermObjectClassTerm=''Send From'' objectClassTerm=''Address'' propertyTerm=''Location Coordinates'' representationTerm=''Location Coordinates''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot HouseNumber
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000572):\n<ccts:BBIE dictionaryEntryName=''Send From_ Address. House_ Number. Text'' definition=''the house number or description that identifies a house, building or site: usually within a street as part of an address.'' qualifierTermObjectClassTerm=''Send From'' objectClassTerm=''Address'' qualifierTerm_PropertyTerm=''House'' propertyTerm=''Number'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass JurisdictionAddressType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000309):\n<ccts:ABIE dictionaryEntryName=''Jurisdiction_ Address. Details'' definition=''the particulars that identify and locate the place where someone lives or is situated, or where an organisation is situated.'' qualifierTermObjectClassTerm=''Jurisdiction'' objectClassTerm=''Address'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a Addressing)
	(role concrete)
	(single-slot CityName
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000321):\n<ccts:BBIE dictionaryEntryName=''Jurisdiction_ Address. City_ Name'' definition=''the name of the city, town, village, or a built up area and used as part of an address.'' qualifierTermObjectClassTerm=''Jurisdiction'' objectClassTerm=''Address'' qualifierTerm_PropertyTerm=''City'' propertyTerm=''Name'' representationTerm=''Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CountrySub-EntityCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000324):\n<ccts:BBIE dictionaryEntryName=''Jurisdiction_ Address. Country Sub-Entity. Code'' definition=''the code that identifies the territorial division (a  chief unit of local administration) of a country, as part of an address.  '' qualifierTermObjectClassTerm=''Jurisdiction'' objectClassTerm=''Address'' propertyTerm=''Country Sub-entity Code'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CountrySub-Entity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000323):\n<ccts:BBIE dictionaryEntryName=''Jurisdiction_ Address. Country Sub-Entity. Text'' definition=''the name that identifies the territorial division (a  chief unit of local administration) of a country, as part of an address. '' qualifierTermObjectClassTerm=''Jurisdiction'' objectClassTerm=''Address'' propertyTerm=''Country Sub-entity'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot BuildingAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000312):\n<ccts:BBIE dictionaryEntryName=''Jurisdiction_ Address. Building. Text'' definition=''the identity which uniquely identifies a building within an address.'' qualifierTermObjectClassTerm=''Jurisdiction'' objectClassTerm=''Address'' propertyTerm=''Building'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RegionAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000325):\n<ccts:BBIE dictionaryEntryName=''Jurisdiction_ Address. Region. Text'' definition=''the name that identifies a non-administrative division of a country, or a commonly used name for a grouping of countries, as part of an address.'' qualifierTermObjectClassTerm=''Jurisdiction'' objectClassTerm=''Address'' propertyTerm=''Region'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Postbox
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000311):\n<ccts:BBIE dictionaryEntryName=''Jurisdiction_ Address. Postbox. Text'' definition=''a post office box number or a numbered post box in a post office assigned to a person or organization where letters for them are kept until called for, used as part of an address.'' qualifierTermObjectClassTerm=''Jurisdiction'' objectClassTerm=''Address'' propertyTerm=''Postbox'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000310):\n<ccts:BBIE dictionaryEntryName=''Jurisdiction_ Address. Identifier'' definition=''a unique identifier given to a specific address within a scheme of registered addresses.'' qualifierTermObjectClassTerm=''Jurisdiction'' objectClassTerm=''Address'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot HouseName
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000317):\n<ccts:BBIE dictionaryEntryName=''Jurisdiction_ Address. House_ Name'' definition=''the name that identifies the location of a house or building: usually within a street as part of an address.'' qualifierTermObjectClassTerm=''Jurisdiction'' objectClassTerm=''Address'' qualifierTerm_PropertyTerm=''House'' propertyTerm=''Name'' representationTerm=''Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot InhouseMail
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000319):\n<ccts:BBIE dictionaryEntryName=''Jurisdiction_ Address. Inhouse Mail. Text'' definition=''identifies an in-house mail location as part of an address.'' qualifierTermObjectClassTerm=''Jurisdiction'' objectClassTerm=''Address'' propertyTerm=''Inhouse Mail'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AdditionalStreet
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000316):\n<ccts:BBIE dictionaryEntryName=''Jurisdiction_ Address. Additional_ Street. Text'' definition=''contains additional text information within an address about the street.'' qualifierTermObjectClassTerm=''Jurisdiction'' objectClassTerm=''Address'' qualifierTerm_PropertyTerm=''Additional'' propertyTerm=''Street'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DistrictAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000326):\n<ccts:BBIE dictionaryEntryName=''Jurisdiction_ Address. District. Text'' definition=''the name that identifies a non-administrative division of a city, country sub-entity, or country, as part of an address.'' qualifierTermObjectClassTerm=''Jurisdiction'' objectClassTerm=''Address'' propertyTerm=''District'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DepartmentAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000320):\n<ccts:BBIE dictionaryEntryName=''Jurisdiction_ Address. Department. Text'' definition=''the identity of the department of an organisation, used as part of an address.'' qualifierTermObjectClassTerm=''Jurisdiction'' objectClassTerm=''Address'' propertyTerm=''Department'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot StreetAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000315):\n<ccts:BBIE dictionaryEntryName=''Jurisdiction_ Address. Street. Text'' definition=''the name of the street, as part of an address.'' qualifierTermObjectClassTerm=''Jurisdiction'' objectClassTerm=''Address'' propertyTerm=''Street'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot FloorAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000313):\n<ccts:BBIE dictionaryEntryName=''Jurisdiction_ Address. Floor. Text'' definition=''identification by name or number of the floor in a building, as part of an address.'' qualifierTermObjectClassTerm=''Jurisdiction'' objectClassTerm=''Address'' propertyTerm=''Floor'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TimezoneOffsetMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000327):\n<ccts:BBIE dictionaryEntryName=''Jurisdiction_ Address. Timezone Offset Measure. Text'' definition=''the measure of time offset from UTC (Universal Coordinated Time) for the time zone in which the address is situated. A synonym for UTC is GMT (Greenwich Mean Time).'' qualifierTermObjectClassTerm=''Jurisdiction'' objectClassTerm=''Address'' propertyTerm=''Timezone Offset Measure'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PostalZone
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000322):\n<ccts:BBIE dictionaryEntryName=''Jurisdiction_ Address. Postal Zone. Text'' definition=''the identifier for one or more properties according to the postal service of that country; a group of letters and/or numbers added to the postal address to assist in the sorting of mail.  '' qualifierTermObjectClassTerm=''Jurisdiction'' objectClassTerm=''Address'' propertyTerm=''Postal Zone'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CountryAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000328):\n<ccts:ASBIE dictionaryEntryName=''Jurisdiction_ Address. Country'' definition=''provides the country part of an address using a code.  ISO3166 alpha codes are recommended.'' qualifierTermObjectClassTerm=''Jurisdiction'' objectClassTerm=''Address'' propertyTerm=''Country'' representationTerm=''Country''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RoomAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000314):\n<ccts:BBIE dictionaryEntryName=''Jurisdiction_ Address. Room. Text'' definition=''identifies the room, suite or apartment as part of an address.'' qualifierTermObjectClassTerm=''Jurisdiction'' objectClassTerm=''Address'' propertyTerm=''Room'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot HouseNumber
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000318):\n<ccts:BBIE dictionaryEntryName=''Jurisdiction_ Address. House_ Number. Text'' definition=''the house number or description that identifies a house, building or site: usually within a street as part of an address.'' qualifierTermObjectClassTerm=''Jurisdiction'' objectClassTerm=''Address'' qualifierTerm_PropertyTerm=''House'' propertyTerm=''Number'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass DeliverToAddressType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000145):\n<ccts:ABIE dictionaryEntryName=''Deliver To_ Address. Details'' definition=''the particulars that identify and locate the place to which delivery is made.'' qualifierTermObjectClassTerm=''Deliver To'' objectClassTerm=''Address'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a Addressing)
	(role concrete)
	(single-slot CityName
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000157):\n<ccts:BBIE dictionaryEntryName=''Deliver To_ Address. City_ Name'' definition=''the name of the city, town, village, or a built up area and used as part of an address.'' qualifierTermObjectClassTerm=''Deliver To'' objectClassTerm=''Address'' qualifierTerm_PropertyTerm=''City'' propertyTerm=''Name'' representationTerm=''Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CountrySub-EntityCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000160):\n<ccts:BBIE dictionaryEntryName=''Deliver To_ Address. Country Sub-Entity. Code'' definition=''the code that identifies the territorial division (a  chief unit of local administration) of a country, as part of an address.  '' qualifierTermObjectClassTerm=''Deliver To'' objectClassTerm=''Address'' propertyTerm=''Country Sub-entity Code'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CountrySub-Entity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000159):\n<ccts:BBIE dictionaryEntryName=''Deliver To_ Address. Country Sub-Entity. Text'' definition=''the name that identifies the territorial division (a  chief unit of local administration) of a country, as part of an address. '' qualifierTermObjectClassTerm=''Deliver To'' objectClassTerm=''Address'' propertyTerm=''Country Sub-entity'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot BuildingAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000148):\n<ccts:BBIE dictionaryEntryName=''Deliver To_ Address. Building. Text'' definition=''the identity which uniquely identifies a building within an address.'' qualifierTermObjectClassTerm=''Deliver To'' objectClassTerm=''Address'' propertyTerm=''Building'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RegionAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000161):\n<ccts:BBIE dictionaryEntryName=''Deliver To_ Address. Region. Text'' definition=''the name that identifies a non-administrative division of a country, or a commonly used name for a grouping of countries, as part of an address.'' qualifierTermObjectClassTerm=''Deliver To'' objectClassTerm=''Address'' propertyTerm=''Region'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Postbox
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000147):\n<ccts:BBIE dictionaryEntryName=''Deliver To_ Address. Postbox. Text'' definition=''a post office box number or a numbered post box in a post office assigned to a person or organization where letters for them are kept until called for, used as part of an address.'' qualifierTermObjectClassTerm=''Deliver To'' objectClassTerm=''Address'' propertyTerm=''Postbox'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000146):\n<ccts:BBIE dictionaryEntryName=''Deliver To_ Address. Identifier'' definition=''a unique identifier given to a specific address within a scheme of registered addresses.'' qualifierTermObjectClassTerm=''Deliver To'' objectClassTerm=''Address'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot HouseName
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000153):\n<ccts:BBIE dictionaryEntryName=''Deliver To_ Address. House_ Name'' definition=''the name that identifies the house or building: usually within a street as part of an address.'' qualifierTermObjectClassTerm=''Deliver To'' objectClassTerm=''Address'' qualifierTerm_PropertyTerm=''House'' propertyTerm=''Name'' representationTerm=''Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot InhouseMail
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000155):\n<ccts:BBIE dictionaryEntryName=''Deliver To_ Address. Inhouse Mail. Text'' definition=''identifies an in-house mail location as part of an address.'' qualifierTermObjectClassTerm=''Deliver To'' objectClassTerm=''Address'' propertyTerm=''Inhouse Mail'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Department
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000156):\n<ccts:BBIE dictionaryEntryName=''Deliver To_ Address. Department. Text'' definition=''the identity of the department of an organisation, used as part of an address.'' qualifierTermObjectClassTerm=''Deliver To'' objectClassTerm=''Address'' propertyTerm=''Department'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AdditionalStreet
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000152):\n<ccts:BBIE dictionaryEntryName=''Deliver To_ Address. Additional_ Street. Text'' definition=''contains additional text information within an address about the street.'' qualifierTermObjectClassTerm=''Deliver To'' objectClassTerm=''Address'' qualifierTerm_PropertyTerm=''Additional'' propertyTerm=''Street'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DistrictAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000162):\n<ccts:BBIE dictionaryEntryName=''Deliver To_ Address. District. Text'' definition=''the name that identifies a non-administrative division of a city, country sub-entity, or country, as part of an address.'' qualifierTermObjectClassTerm=''Deliver To'' objectClassTerm=''Address'' propertyTerm=''District'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot StreetAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000151):\n<ccts:BBIE dictionaryEntryName=''Deliver To_ Address. Street. Text'' definition=''the name of the street, as part of an address.'' qualifierTermObjectClassTerm=''Deliver To'' objectClassTerm=''Address'' propertyTerm=''Street'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot FloorAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000149):\n<ccts:BBIE dictionaryEntryName=''Deliver To_ Address. Floor. Text'' definition=''identification by name or number of the floor in a building, as part of an address.'' qualifierTermObjectClassTerm=''Deliver To'' objectClassTerm=''Address'' propertyTerm=''Floor'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TimezoneOffsetMeasure
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000163):\n<ccts:BBIE dictionaryEntryName=''Deliver To_ Address. Timezone Offset Measure. Text'' definition=''the measure of time offset from UTC (Universal Coordinated Time) for the time zone in which the address is situated. A synonym for UTC is GMT (Greenwich Mean Time).'' qualifierTermObjectClassTerm=''Deliver To'' objectClassTerm=''Address'' propertyTerm=''Timezone Offset Measure'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PostalZone
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000158):\n<ccts:BBIE dictionaryEntryName=''Deliver To_ Address. Postal Zone. Text'' definition=''the identifier for one or more properties according to the postal service of that country; a group of letters and/or numbers added to the postal address to assist in the sorting of mail.  '' qualifierTermObjectClassTerm=''Deliver To'' objectClassTerm=''Address'' propertyTerm=''Postal Zone'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CountryAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000164):\n<ccts:ASBIE dictionaryEntryName=''Deliver To_ Address. Country'' definition=''associates the address with the country part of an address.'' qualifierTermObjectClassTerm=''Deliver To'' objectClassTerm=''Address'' propertyTerm=''Country'' representationTerm=''Country''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RoomAddr
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000150):\n<ccts:BBIE dictionaryEntryName=''Deliver To_ Address. Room. Text'' definition=''identifies the room, suite or apartment as part of an address.'' qualifierTermObjectClassTerm=''Deliver To'' objectClassTerm=''Address'' propertyTerm=''Room'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LocationCoordinates
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000165):\n<ccts:ASBIE dictionaryEntryName=''Deliver To_ Address. Location Coordinates'' definition=''associates the address with its location coordinates.'' qualifierTermObjectClassTerm=''Deliver To'' objectClassTerm=''Address'' propertyTerm=''Location Coordinates'' representationTerm=''Location Coordinates''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot HouseNumber
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000154):\n<ccts:BBIE dictionaryEntryName=''Deliver To_ Address. House_ Number. Text'' definition=''the house number or description that identifies a house, building or site: usually within a street as part of an address.'' qualifierTermObjectClassTerm=''Deliver To'' objectClassTerm=''Address'' qualifierTerm_PropertyTerm=''House'' propertyTerm=''Number'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass OrderCharges "OrderCharges is a general class for all types of charges that may appear on a trnsaction document -- base price, allowance, tax, shipping fee, etc."
	(is-a TransactionEntity)
	(role concrete))

(defclass TaxTotalType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000623):\n<ccts:ABIE dictionaryEntryName=''Tax Total. Details'' definition=''information relating to  the tax totals for one type of tax, e.g. VAT (Value Added Tax).'' objectClassTerm=''Tax Total'' representationTerm=''Details''/>"
	(is-a OrderCharges)
	(role concrete)
	(single-slot TaxTypeCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000624):\n<ccts:BBIE dictionaryEntryName=''Tax Total. Tax_ Type. Code'' definition=''identifies the type of tax.'' objectClassTerm=''Tax Total'' qualifierTerm_PropertyTerm=''Tax'' propertyTerm=''Type'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TaxAmount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000625):\n<ccts:ASBIE dictionaryEntryName=''Tax Total. Tax Amounts'' definition=''associates the tax summary with totals information for the tax type on the invoice.'' objectClassTerm=''Tax Total'' propertyTerm=''Tax Amounts'' representationTerm=''Tax Amounts''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot hasCategoryTotal
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000626):\n<ccts:ASBIE dictionaryEntryName=''Tax Total. Category Total'' definition=''associates the tax summary with totals information about each tax category on the invoice.'' objectClassTerm=''Tax Total'' propertyTerm=''Category Total'' representationTerm=''Category Total''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass CategoryTotalType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000112):\n<ccts:ABIE dictionaryEntryName=''Category Total. Details'' definition=''information relating to  the tax totals for one rate/category for one type of tax, e.g. VAT (Value Added Tax).'' objectClassTerm=''Category Total'' representationTerm=''Details''/>"
	(is-a TaxTotalType)
	(role concrete)
	(single-slot RateCategoryCodeID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000113):\n<ccts:BBIE dictionaryEntryName=''Category Total. Rate_ Category Code. Identifier'' definition=''a code identifying the category of tax'' objectClassTerm=''Category Total'' qualifierTerm_PropertyTerm=''Rate'' propertyTerm=''Category Code'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot taxAmount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000115):\n<ccts:ASBIE dictionaryEntryName=''Category Total. Tax Amounts'' definition=''associates the tax category with totals information for this tax category/rate.'' objectClassTerm=''Category Total'' propertyTerm=''Tax Amounts'' representationTerm=''Tax Amounts''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RatePercentNumeric
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000114):\n<ccts:BBIE dictionaryEntryName=''Category Total. Rate_ Percent. Numeric'' definition=''the tax rate for this category, as a percentage.'' objectClassTerm=''Category Total'' qualifierTerm_PropertyTerm=''Rate'' propertyTerm=''Percent'' representationTerm=''Numeric''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass AllowanceChargeType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000048):\n<ccts:ABIE dictionaryEntryName=''Allowance Charge. Details'' definition=''details about a component of pricing, such as a service, promotion, allowance, or charge, applied to an associated Order Line line or the whole transaction.  '' objectClassTerm=''Allowance Charge'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a OrderCharges)
	(role concrete)
	(single-slot ChargeIndicator
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000050):\n<ccts:BBIE dictionaryEntryName=''Allowance Charge. Charge. Indicator'' definition=''indicates whether the allowance/charge is a charge (on) or an allowance (off).'' objectClassTerm=''Allowance Charge'' propertyTerm=''Charge Indicator'' representationTerm=''Indicator''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Pre-PaidCollectIndicator
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000054):\n<ccts:BBIE dictionaryEntryName=''Allowance Charge. Pre-Paid Collect_ Indicator'' definition=''indicates whether the charge is levied on a prepaid collection basis.'' objectClassTerm=''Allowance Charge'' qualifierTerm_PropertyTerm=''Pre-paid Collect'' propertyTerm=''Indicator'' representationTerm=''Indicator''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000049):\n<ccts:BBIE dictionaryEntryName=''Allowance Charge. Identifier'' definition=''Identifier of the price component, indicating the reason for its existence.'' objectClassTerm=''Allowance Charge'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot PaymentMeans
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000057):\n<ccts:ASBIE dictionaryEntryName=''Allowance Charge. Payment Means'' definition=''associates the allowance or charge with information about a means of payment. If the allowance or charge has to be prepaid, then this association is made via the payment.'' objectClassTerm=''Allowance Charge'' propertyTerm=''Payment Means'' representationTerm=''Payment Means''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TaxCharge
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000056):\n<ccts:ASBIE dictionaryEntryName=''Allowance Charge. Tax'' definition=''associates the allowance or charge with information about the tax(es) that apply.'' objectClassTerm=''Allowance Charge'' propertyTerm=''Tax'' representationTerm=''Tax''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MultiplierReasonCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000051):\n<ccts:BBIE dictionaryEntryName=''Allowance Charge. Multiplier_ Reason. Code'' definition=''specifies the reason for the allowance or charge'' objectClassTerm=''Allowance Charge'' qualifierTerm_PropertyTerm=''Multiplier'' propertyTerm=''Reason'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CurrencyCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000053):\n<ccts:BBIE dictionaryEntryName=''Allowance Charge. Currency_ Code'' definition=''specifies the currency of the allowance or charge if this is different from the pricing currency'' objectClassTerm=''Allowance Charge'' qualifierTerm_PropertyTerm=''Currency'' propertyTerm=''Code'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MultiplierFactorQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000052):\n<ccts:BBIE dictionaryEntryName=''Allowance Charge. Multiplier_ Factor. Quantity'' definition=''specifies the factor by which the amount on which the allowance or charge is based should be multiplied to calculate the allowance or charge amount.'' objectClassTerm=''Allowance Charge'' qualifierTerm_PropertyTerm=''Multiplier'' propertyTerm=''Factor'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SequenceValueNumeric
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000055):\n<ccts:BBIE dictionaryEntryName=''Allowance Charge. Sequence Value. Numeric'' definition=''identifies the sequence in which all allowances or charges are calculated when multiple components apply in 'piggy-back' fashion (i.e. one on top of another). If they are all applicable to the same base price, then the calculation sequence indicator will always equal one. '' objectClassTerm=''Allowance Charge'' propertyTerm=''Sequence Value'' representationTerm=''Numeric''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass TaxAmountsType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000616):\n<ccts:ABIE dictionaryEntryName=''Tax Amounts. Details'' definition=''information relating to the tax amounts, taxable and tax amount'' objectClassTerm=''Tax Amounts'' representationTerm=''Details''/>"
	(is-a OrderCharges)
	(role concrete)
	(single-slot TaxAmount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000618):\n<ccts:BBIE dictionaryEntryName=''Tax Amounts. Tax_ Amount'' definition=''identifies the type of tax.'' objectClassTerm=''Tax Amounts'' qualifierTerm_PropertyTerm=''Tax'' propertyTerm=''Amount'' representationTerm=''Amount''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TaxableAmount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000617):\n<ccts:BBIE dictionaryEntryName=''Tax Amounts. Taxable_ Amount'' definition=''identifies the type of tax.'' objectClassTerm=''Tax Amounts'' qualifierTerm_PropertyTerm=''Taxable'' propertyTerm=''Amount'' representationTerm=''Amount''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass BasePriceType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000071):\n<ccts:ABIE dictionaryEntryName=''Base Price. Details'' definition=''information that directly relates to a base price for an item..'' objectClassTerm=''Base Price'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a OrderCharges)
	(role concrete)
	(single-slot PriceAmount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000072):\n<ccts:BBIE dictionaryEntryName=''Base Price. Price_ Amount'' definition=''specifies the base price.'' objectClassTerm=''Base Price'' qualifierTerm_PropertyTerm=''Price'' propertyTerm=''Amount'' representationTerm=''Amount''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot BaseQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000073):\n<ccts:BBIE dictionaryEntryName=''Base Price. Base_ Quantity'' definition=''specifies the quantity on which the price is based.'' objectClassTerm=''Base Price'' qualifierTerm_PropertyTerm=''Base'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MaximumQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000074):\n<ccts:BBIE dictionaryEntryName=''Base Price. Maximum_ Quantity'' definition=''specifies the maximum quantity in a range for which the price applies.'' objectClassTerm=''Base Price'' qualifierTerm_PropertyTerm=''Maximum'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MinimumQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000075):\n<ccts:BBIE dictionaryEntryName=''Base Price. Minimum_ Quantity'' definition=''specifies the minimum quantity in a range for which the price applies.'' objectClassTerm=''Base Price'' qualifierTerm_PropertyTerm=''Minimum'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MaximumAmount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000076):\n<ccts:BBIE dictionaryEntryName=''Base Price. Maximum_ Amount'' definition=''specifies the maximum amount in a range for which the price applies.'' objectClassTerm=''Base Price'' qualifierTerm_PropertyTerm=''Maximum'' propertyTerm=''Amount'' representationTerm=''Amount''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MinimumAmount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000077):\n<ccts:BBIE dictionaryEntryName=''Base Price. Minimum_ Amount'' definition=''specifies the minimum amount in a range for which the price applies.'' objectClassTerm=''Base Price'' qualifierTerm_PropertyTerm=''Minimum'' propertyTerm=''Amount'' representationTerm=''Amount''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass LegalTotalsType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000333):\n<ccts:ABIE dictionaryEntryName=''Legal Totals. Details'' definition=''calculated amounts that are required on an invoice for legal purposes. (Note: totals required for taxation purposes are under tax totals.)'' objectClassTerm=''Legal Totals'' representationTerm=''Details''/>"
	(is-a OrderCharges)
	(role concrete)
	(single-slot LineExtensionTotalAmount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000334):\n<ccts:BBIE dictionaryEntryName=''Legal Totals. Line Extension_ Total. Amount'' definition=''the total of line item extension amounts for the entire invoice, but not adjusted by any payment settlement discount or taxation.'' objectClassTerm=''Legal Totals'' qualifierTerm_PropertyTerm=''Line Extension'' propertyTerm=''Total'' representationTerm=''Amount''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ToBePaidTotalAmount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000335):\n<ccts:BBIE dictionaryEntryName=''Legal Totals. To Be Paid_ Total. Amount'' definition=''the total that is to be paid for this invoice, including all taxes, but not adjusted by any payment settlement discount or possible penalty charges..'' objectClassTerm=''Legal Totals'' qualifierTerm_PropertyTerm=''To Be Paid'' propertyTerm=''Total'' representationTerm=''Amount''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass TransactionParticipant "A TransactionParticipant is a legal agent that participatesias a buyer, seller, recipient, contact, shipper, or in any other capacity in a business transaction."
	(is-a TransactionEntity)
	(role concrete))

(defclass BuyerPartyType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000089):\n<ccts:ABIE dictionaryEntryName=''Buyer_ Party. Details'' definition=''details of an individual, a group or a body having a role in a business function.'' qualifierTermObjectClassTerm=''Buyer'' objectClassTerm=''Party'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionParticipant)
	(role concrete)
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000090):\n<ccts:BBIE dictionaryEntryName=''Buyer_ Party. Identifier'' definition=''an identification of an entity doing business as assigned by an agency operating a party identification scheme.'' qualifierTermObjectClassTerm=''Buyer'' objectClassTerm=''Party'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot PartyTaxScheme
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000094):\n<ccts:ASBIE dictionaryEntryName=''Buyer_ Party. Party Tax Scheme'' definition=''associates (optionally) the party with one or more tax schemes'' qualifierTermObjectClassTerm=''Buyer'' objectClassTerm=''Party'' propertyTerm=''Party Tax Scheme'' representationTerm=''Party Tax Scheme''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot BuyerContact
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000095):\n<ccts:ASBIE dictionaryEntryName=''Buyer_ Party. Buyer_ Contact'' definition=''associates (optionally) the party with information on the buyer contact'' qualifierTermObjectClassTerm=''Buyer'' objectClassTerm=''Party'' qualifierTerm_PropertyTerm=''Buyer'' propertyTerm=''Contact'' representationTerm=''Contact''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot hasAddress
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000093):\n<ccts:ASBIE dictionaryEntryName=''Buyer_ Party. Address'' definition=''associates (optionally) the party with one or more addresses'' qualifierTermObjectClassTerm=''Buyer'' objectClassTerm=''Party'' propertyTerm=''Address'' representationTerm=''Address''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PartyName
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000092):\n<ccts:ASBIE dictionaryEntryName=''Buyer_ Party. Party Name'' definition=''associates (optionally) the party with one or more party names'' qualifierTermObjectClassTerm=''Buyer'' objectClassTerm=''Party'' propertyTerm=''Party Name'' representationTerm=''Party Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AccountCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000091):\n<ccts:BBIE dictionaryEntryName=''Buyer_ Party. Account. Code'' definition='' an account identification assigned to the party, e.g. for 'sales on account' purposes.'' qualifierTermObjectClassTerm=''Buyer'' objectClassTerm=''Party'' propertyTerm=''Account ID'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass BuyerContactType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000078):\n<ccts:ABIE dictionaryEntryName=''Buyer_ Contact. Details'' definition=''information that identifies the Buyer's contact person or department  together with information about how they can be contacted.'' qualifierTermObjectClassTerm=''Buyer'' objectClassTerm=''Contact'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionParticipant)
	(role concrete)
	(single-slot Fax
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000082):\n<ccts:BBIE dictionaryEntryName=''Buyer_ Contact. Fax. Text'' definition=''the number or virtual 'address' of a facsimile in a telecommunication system '' qualifierTermObjectClassTerm=''Buyer'' objectClassTerm=''Contact'' propertyTerm=''Fax'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Phone
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000081):\n<ccts:BBIE dictionaryEntryName=''Buyer_ Contact. Phone. Text'' definition=''the number or virtual 'address' of a telephone in a telecommunication system '' qualifierTermObjectClassTerm=''Buyer'' objectClassTerm=''Contact'' propertyTerm=''Phone'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000079):\n<ccts:BBIE dictionaryEntryName=''Buyer_ Contact. Identifier'' definition=''identifies the department or employee by a unique identity other than their name when given as a contact.'' qualifierTermObjectClassTerm=''Buyer'' objectClassTerm=''Contact'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot E-Mail
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000083):\n<ccts:BBIE dictionaryEntryName=''Buyer_ Contact. E-Mail. Text'' definition=''the number or virtual 'address' of an e-mail mailbox in the internet '' qualifierTermObjectClassTerm=''Buyer'' objectClassTerm=''Contact'' propertyTerm=''E-mail'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Name
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000080):\n<ccts:BBIE dictionaryEntryName=''Buyer_ Contact. Name'' definition=''identifies the department or employee name given as a contact.'' qualifierTermObjectClassTerm=''Buyer'' objectClassTerm=''Contact'' propertyTerm=''Name'' representationTerm=''Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass ContactPartyType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000126):\n<ccts:ABIE dictionaryEntryName=''Contact_ Party. Details'' definition=''details of an individual, a group or a body having a role as the contact party for hazardous items.'' qualifierTermObjectClassTerm=''Contact'' objectClassTerm=''Party'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionParticipant)
	(role concrete)
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000127):\n<ccts:BBIE dictionaryEntryName=''Contact_ Party. Identifier'' definition=''an identification of an entity doing business as assigned by an agency operating a party identification scheme.'' qualifierTermObjectClassTerm=''Contact'' objectClassTerm=''Party'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot Contact
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000129):\n<ccts:ASBIE dictionaryEntryName=''Contact_ Party. Contact'' definition=''associates (optionally) the party with information on one or more contacts'' qualifierTermObjectClassTerm=''Contact'' objectClassTerm=''Party'' propertyTerm=''Contact'' representationTerm=''Contact''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot ContactLanguage
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000130):\n<ccts:ASBIE dictionaryEntryName=''Contact_ Party. Language'' definition=''associates (optionally) the party with one or more languages.'' qualifierTermObjectClassTerm=''Contact'' objectClassTerm=''Party'' propertyTerm=''Language'' representationTerm=''Language''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
		(cardinality 0 100)
		(create-accessor read-write))
	(single-slot hasAddress
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000131):\n<ccts:ASBIE dictionaryEntryName=''Contact_ Party. Address'' definition=''associates (optionally) the party with one or more addresses'' qualifierTermObjectClassTerm=''Contact'' objectClassTerm=''Party'' propertyTerm=''Address'' representationTerm=''Address''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PartyName
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000128):\n<ccts:ASBIE dictionaryEntryName=''Contact_ Party. Party Name'' definition=''associates (optionally) the party with one or more party names'' qualifierTermObjectClassTerm=''Contact'' objectClassTerm=''Party'' propertyTerm=''Party Name'' representationTerm=''Party Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass ContactType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000120):\n<ccts:ABIE dictionaryEntryName=''Contact. Details'' definition=''information that identifies the Freight Forwarder's contact person or department together with information about how they can be contacted.'' objectClassTerm=''Contact'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionParticipant)
	(role concrete)
	(single-slot Fax
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000124):\n<ccts:BBIE dictionaryEntryName=''Contact. Fax. Text'' definition=''the number or virtual 'address' of a facsimile in a telecommunication system '' objectClassTerm=''Contact'' propertyTerm=''Fax'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Phone
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000123):\n<ccts:BBIE dictionaryEntryName=''Contact. Phone. Text'' definition=''the number or virtual 'address' of a telephone in a telecommunication system '' objectClassTerm=''Contact'' propertyTerm=''Phone'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000121):\n<ccts:BBIE dictionaryEntryName=''Contact. Identifier'' definition=''identifies the department or employee by a unique identity other than their name when given as a contact.'' objectClassTerm=''Contact'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot E-Mail
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000125):\n<ccts:BBIE dictionaryEntryName=''Contact. E-Mail. Text'' definition=''the number or virtual 'address' of an e-mail mailbox in the internet '' objectClassTerm=''Contact'' propertyTerm=''E-mail'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Name
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000122):\n<ccts:BBIE dictionaryEntryName=''Contact. Name'' definition=''identifies the department or employee name given as a contact.'' objectClassTerm=''Contact'' propertyTerm=''Name'' representationTerm=''Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass DestinationPartyType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000202):\n<ccts:ABIE dictionaryEntryName=''Destination_ Party. Details'' definition=''details of an individual, a group or a body in the role as the destination party for the Order Line.'' qualifierTermObjectClassTerm=''Destination'' objectClassTerm=''Party'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionParticipant)
	(role concrete)
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000203):\n<ccts:BBIE dictionaryEntryName=''Destination_ Party. Identifier'' definition=''an identification of an entity doing business as assigned by an agency operating a party identification scheme.'' qualifierTermObjectClassTerm=''Destination'' objectClassTerm=''Party'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot Contact
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000206):\n<ccts:ASBIE dictionaryEntryName=''Destination_ Party. Contact'' definition=''associates (optionally) the party with information on one or more contacts'' qualifierTermObjectClassTerm=''Destination'' objectClassTerm=''Party'' propertyTerm=''Contact'' representationTerm=''Contact''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot contactLanguage
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000207):\n<ccts:ASBIE dictionaryEntryName=''Destination_ Party. Language'' definition=''associates (optionally) the party with one or more languages.'' qualifierTermObjectClassTerm=''Destination'' objectClassTerm=''Party'' propertyTerm=''Language'' representationTerm=''Language''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot hasAddress
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000208):\n<ccts:ASBIE dictionaryEntryName=''Destination_ Party. Address'' definition=''associates (optionally) the party with one or more addresses'' qualifierTermObjectClassTerm=''Destination'' objectClassTerm=''Party'' propertyTerm=''Address'' representationTerm=''Address''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PartyName
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000205):\n<ccts:ASBIE dictionaryEntryName=''Destination_ Party. Party Name'' definition=''associates (optionally) the party with one or more party names'' qualifierTermObjectClassTerm=''Destination'' objectClassTerm=''Party'' propertyTerm=''Party Name'' representationTerm=''Party Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AccountCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000204):\n<ccts:BBIE dictionaryEntryName=''Destination_ Party. Account. Code'' definition='' an account identification assigned to the party, e.g. for 'sales on account' purposes.'' qualifierTermObjectClassTerm=''Destination'' objectClassTerm=''Party'' propertyTerm=''Account Identification'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass FreightForwarderPartyType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000228):\n<ccts:ABIE dictionaryEntryName=''Freight Forwarder_ Party. Details'' definition=''details of an individual, a group or a body having a role in a business function.'' qualifierTermObjectClassTerm=''Freight Forwarder'' objectClassTerm=''Party'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionParticipant)
	(role concrete)
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000229):\n<ccts:BBIE dictionaryEntryName=''Freight Forwarder_ Party. Identifier'' definition=''an identification of an entity doing business as assigned by an agency operating a party identification scheme.'' qualifierTermObjectClassTerm=''Freight Forwarder'' objectClassTerm=''Party'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot Contact
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000233):\n<ccts:ASBIE dictionaryEntryName=''Freight Forwarder_ Party. Contact'' definition=''associates (optionally) the party with information on the receiving contact'' qualifierTermObjectClassTerm=''Freight Forwarder'' objectClassTerm=''Party'' propertyTerm=''Contact'' representationTerm=''Contact''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PartyTaxScheme
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000232):\n<ccts:ASBIE dictionaryEntryName=''Freight Forwarder_ Party. Party Tax Scheme'' definition=''associates (optionally) the party with one or more tax schemes'' qualifierTermObjectClassTerm=''Freight Forwarder'' objectClassTerm=''Party'' propertyTerm=''Party Tax Scheme'' representationTerm=''Party Tax Scheme''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot hasAddress
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000231):\n<ccts:ASBIE dictionaryEntryName=''Freight Forwarder_ Party. Address'' definition=''associates (optionally) the party with one or more addresses'' qualifierTermObjectClassTerm=''Freight Forwarder'' objectClassTerm=''Party'' propertyTerm=''Address'' representationTerm=''Address''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PartyName
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000230):\n<ccts:ASBIE dictionaryEntryName=''Freight Forwarder_ Party. Party Name'' definition=''associates (optionally) the party with one or more party names'' qualifierTermObjectClassTerm=''Freight Forwarder'' objectClassTerm=''Party'' propertyTerm=''Party Name'' representationTerm=''Party Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass OrderContactType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000349):\n<ccts:ABIE dictionaryEntryName=''Order_ Contact. Details'' definition=''information that identifies the Seller's order handling contact person or department together with information about how they can be contacted.'' qualifierTermObjectClassTerm=''Order'' objectClassTerm=''Contact'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionParticipant)
	(role concrete)
	(single-slot Fax
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000353):\n<ccts:BBIE dictionaryEntryName=''Order_ Contact. Fax. Text'' definition=''the number or virtual 'address' of a facsimile in a telecommunication system '' qualifierTermObjectClassTerm=''Order'' objectClassTerm=''Contact'' propertyTerm=''Fax'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Phone
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000352):\n<ccts:BBIE dictionaryEntryName=''Order_ Contact. Phone. Text'' definition=''the number or virtual 'address' of a telephone in a telecommunication system '' qualifierTermObjectClassTerm=''Order'' objectClassTerm=''Contact'' propertyTerm=''Phone'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000350):\n<ccts:BBIE dictionaryEntryName=''Order_ Contact. Identifier'' definition=''identifies the department or employee by a unique identity other than their name when given as a contact.'' qualifierTermObjectClassTerm=''Order'' objectClassTerm=''Contact'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot E-Mail
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000354):\n<ccts:BBIE dictionaryEntryName=''Order_ Contact. E-Mail. Text'' definition=''the number or virtual 'address' of an e-mail mailbox in the internet '' qualifierTermObjectClassTerm=''Order'' objectClassTerm=''Contact'' propertyTerm=''E-mail'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Name
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000351):\n<ccts:BBIE dictionaryEntryName=''Order_ Contact. Name'' definition=''identifies the department or employee name given as a contact.'' qualifierTermObjectClassTerm=''Order'' objectClassTerm=''Contact'' propertyTerm=''Name'' representationTerm=''Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass SellerPartyType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000551):\n<ccts:ABIE dictionaryEntryName=''Seller_ Party. Details'' definition=''details of an individual, a group or a body having a role in a business function.'' qualifierTermObjectClassTerm=''Seller'' objectClassTerm=''Party'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionParticipant)
	(role concrete)
	(single-slot ShippingContact
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000556):\n<ccts:ASBIE dictionaryEntryName=''Seller_ Party. Shipping_ Contact'' definition=''associates (optionally) the party with information on the shipping contact'' qualifierTermObjectClassTerm=''Seller'' objectClassTerm=''Party'' qualifierTerm_PropertyTerm=''Shipping'' propertyTerm=''Contact'' representationTerm=''Contact''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000552):\n<ccts:BBIE dictionaryEntryName=''Seller_ Party. Identifier'' definition=''an identification of an entity doing business as assigned by an agency operating a party identification scheme.'' qualifierTermObjectClassTerm=''Seller'' objectClassTerm=''Party'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot PartyTaxScheme
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000555):\n<ccts:ASBIE dictionaryEntryName=''Seller_ Party. Party Tax Scheme'' definition=''associates (optionally) the party with one or more tax schemes'' qualifierTermObjectClassTerm=''Seller'' objectClassTerm=''Party'' propertyTerm=''Party Tax Scheme'' representationTerm=''Party Tax Scheme''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot OrderContact
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000557):\n<ccts:ASBIE dictionaryEntryName=''Seller_ Party. Order_ Contact'' definition=''associates (optionally) the party with information on the order contact (of the seller)'' qualifierTermObjectClassTerm=''Seller'' objectClassTerm=''Party'' qualifierTerm_PropertyTerm=''Order'' propertyTerm=''Contact'' representationTerm=''Contact''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot hasAddress
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000554):\n<ccts:ASBIE dictionaryEntryName=''Seller_ Party. Address'' definition=''associates (optionally) the party with one or more addresses'' qualifierTermObjectClassTerm=''Seller'' objectClassTerm=''Party'' propertyTerm=''Address'' representationTerm=''Address''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PartyName
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000553):\n<ccts:ASBIE dictionaryEntryName=''Seller_ Party. Party Name'' definition=''associates (optionally) the party with one or more party names'' qualifierTermObjectClassTerm=''Seller'' objectClassTerm=''Party'' propertyTerm=''Party Name'' representationTerm=''Party Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass ShippingContactType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000595):\n<ccts:ABIE dictionaryEntryName=''Shipping_ Contact. Details'' definition=''information that identifies the Seller's shipping contact person or department together with information about how they can be contacted.'' qualifierTermObjectClassTerm=''Shipping'' objectClassTerm=''Contact'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionParticipant)
	(role concrete)
	(single-slot Fax
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000599):\n<ccts:BBIE dictionaryEntryName=''Shipping_ Contact. Fax. Text'' definition=''the number or virtual 'address' of a facsimile in a telecommunication system '' qualifierTermObjectClassTerm=''Shipping'' objectClassTerm=''Contact'' propertyTerm=''Fax'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Phone
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000598):\n<ccts:BBIE dictionaryEntryName=''Shipping_ Contact. Phone. Text'' definition=''the number or virtual 'address' of a telephone in a telecommunication system '' qualifierTermObjectClassTerm=''Shipping'' objectClassTerm=''Contact'' propertyTerm=''Phone'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000596):\n<ccts:BBIE dictionaryEntryName=''Shipping_ Contact. Identifier'' definition=''identifies the department or employee by a unique identity other than their name when given as a contact.'' qualifierTermObjectClassTerm=''Shipping'' objectClassTerm=''Contact'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot E-Mail
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000600):\n<ccts:BBIE dictionaryEntryName=''Shipping_ Contact. E-Mail. Text'' definition=''the number or virtual 'address' of an e-mail mailbox in the internet '' qualifierTermObjectClassTerm=''Shipping'' objectClassTerm=''Contact'' propertyTerm=''E-mail'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Name
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000597):\n<ccts:BBIE dictionaryEntryName=''Shipping_ Contact. Name'' definition=''identifies the department or employee name given as a contact.'' qualifierTermObjectClassTerm=''Shipping'' objectClassTerm=''Contact'' propertyTerm=''Name'' representationTerm=''Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass AccountsContactType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000001):\n<ccts:ABIE dictionaryEntryName=''Accounts_ Contact. Details'' definition=''information that identifies the Seller's contact person or department on Accounts matters, together with information about how they can be contacted.'' qualifierTermObjectClassTerm=''Accounts'' objectClassTerm=''Contact'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a TransactionParticipant)
	(role concrete)
	(single-slot Fax
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000005):\n<ccts:BBIE dictionaryEntryName=''Accounts_ Contact. Fax. Text'' definition=''the number or virtual 'address' of a facsimile in a telecommunication system '' qualifierTermObjectClassTerm=''Accounts'' objectClassTerm=''Contact'' propertyTerm=''Fax'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Phone
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000004):\n<ccts:BBIE dictionaryEntryName=''Accounts_ Contact. Phone. Text'' definition=''the number or virtual 'address' of a telephone in a telecommunication system '' qualifierTermObjectClassTerm=''Accounts'' objectClassTerm=''Contact'' propertyTerm=''Phone'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000002):\n<ccts:BBIE dictionaryEntryName=''Accounts_ Contact. Identifier'' definition=''identifies the department or employee by a unique identity other than their name when given as a contact.'' qualifierTermObjectClassTerm=''Accounts'' objectClassTerm=''Contact'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot E-Mail
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000006):\n<ccts:BBIE dictionaryEntryName=''Accounts_ Contact. E-Mail. Text'' definition=''the number or virtual 'address' of an e-mail mailbox in the internet '' qualifierTermObjectClassTerm=''Accounts'' objectClassTerm=''Contact'' propertyTerm=''E-mail'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot Name
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000003):\n<ccts:BBIE dictionaryEntryName=''Accounts_ Contact. Name'' definition=''identifies the department or employee name given as a contact.'' qualifierTermObjectClassTerm=''Accounts'' objectClassTerm=''Contact'' propertyTerm=''Name'' representationTerm=''Name''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass LineItem "LineItem is a general class for all line items in a transactiondocument, orderm invoice, etc."
	(is-a TransactionEntity)
	(role concrete)
	(single-slot InvoiceQuantity
;+		(comment "Quantity of unitCode(s).  See unitCode slot.")
		(type INTEGER)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "unique identifier")
		(type STRING)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot itemDesignator
		(type INSTANCE)
;+		(allowed-classes Item)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot lineExtensionAmount
		(type FLOAT)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot lineExtensionAmountCurrency
		(type SYMBOL)
;+		(allowed-parents CurrencyMeasure)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass AlternativeOrderLineType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000058):\n<ccts:ABIE dictionaryEntryName=''Alternative_ Order Line. Details'' definition=''information directly relating to a line item of a transaction, identifying an alternative item acceptable to the buyer, and specifying quantity, pricing etc which may be different from the preferred item. However it is assumed that the same hazardous material, shipment etc aspects would not be different.'' qualifierTermObjectClassTerm=''Alternative'' objectClassTerm=''Order Line'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a LineItem)
	(role concrete)
	(single-slot LIQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000061):\n<ccts:BBIE dictionaryEntryName=''Alternative_ Order Line. Quantity'' definition=''the quantity of the item on this line item.'' qualifierTermObjectClassTerm=''Alternative'' objectClassTerm=''Order Line'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot itemDesignator
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000067):\n<ccts:ASBIE dictionaryEntryName=''Alternative_ Order Line. Item'' definition=''information directly relating to an item (article, product, goods item or service).'' qualifierTermObjectClassTerm=''Alternative'' objectClassTerm=''Order Line'' propertyTerm=''Item'' representationTerm=''Item''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot LineExtensionAmount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000060):\n<ccts:BBIE dictionaryEntryName=''Alternative_ Order Line. Line Extension_ Amount'' definition=''the monetary amount that is the total for the line item, including any pricing variation (allowances, charges or discounts) but not adjusted by any payment settlement discount or taxation.'' qualifierTermObjectClassTerm=''Alternative'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Line Extension'' propertyTerm=''Amount'' representationTerm=''Amount''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MinimumQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000062):\n<ccts:BBIE dictionaryEntryName=''Alternative_ Order Line. Minimum_ Quantity'' definition=''the minimum quantity of the item on this line'' qualifierTermObjectClassTerm=''Alternative'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Minimum'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SubstitutionStatusCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000066):\n<ccts:BBIE dictionaryEntryName=''Alternative_ Order Line. Substitution_ Status. Code'' definition=''indicates the status of this OrderItem in relation to substitution, denoting an acceptable substitute in the Order, an original for which an alternative is offered in the Order Confirmation, or an original for which an actual replacement is advised in the Despatch Advice.'' qualifierTermObjectClassTerm=''Alternative'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Substitution'' propertyTerm=''Status'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MaximumQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000063):\n<ccts:BBIE dictionaryEntryName=''Alternative_ Order Line. Maximum_ Quantity'' definition=''the maximum quantity of the item on this line'' qualifierTermObjectClassTerm=''Alternative'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Maximum'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DeliveryRequirement
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000068):\n<ccts:ASBIE dictionaryEntryName=''Alternative_ Order Line. Delivery Requirement'' definition=''associates the Order Line with information directly relating to a delivery request.'' qualifierTermObjectClassTerm=''Alternative'' objectClassTerm=''Order Line'' propertyTerm=''Delivery Requirement'' representationTerm=''Delivery Requirement''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MaximumBackorderQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000064):\n<ccts:BBIE dictionaryEntryName=''Alternative_ Order Line. Maximum_ Backorder. Quantity'' definition=''the maximum quantity of an item that a customer will allow to be back ordered.'' qualifierTermObjectClassTerm=''Alternative'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Maximum'' propertyTerm=''Backorder Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AllowanceCharge
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000069):\n<ccts:ASBIE dictionaryEntryName=''Alternative_ Order Line. Allowance Charge'' definition=''associates the Order Line with one or more charges, allowances etc that apply to the Order Line.'' qualifierTermObjectClassTerm=''Alternative'' objectClassTerm=''Order Line'' propertyTerm=''Allowance Charge'' representationTerm=''Allowance Charge''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MinimumBackorderQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000065):\n<ccts:BBIE dictionaryEntryName=''Alternative_ Order Line. Minimum_ Backorder. Quantity'' definition=''the minimum quantity of an item that a customer will allow to be back ordered.'' qualifierTermObjectClassTerm=''Alternative'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Minimum'' propertyTerm=''Backorder Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot BasePrice
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000070):\n<ccts:ASBIE dictionaryEntryName=''Alternative_ Order Line. Base Price'' definition=''associates the Order Line with the base price for the item.'' qualifierTermObjectClassTerm=''Alternative'' objectClassTerm=''Order Line'' propertyTerm=''Base Price'' representationTerm=''Base Price''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot BuyersID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000059):\n<ccts:BBIE dictionaryEntryName=''Alternative_ Order Line. Buyer's_ Identifier'' definition=''the identification given to an Order Line by the buyer.'' qualifierTermObjectClassTerm=''Alternative'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Buyer's'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass DespatchLineType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000187):\n<ccts:ABIE dictionaryEntryName=''Despatch Line. Details'' definition=''contains the line item and package details for the delivery of an item on the Despatch Advice, when the despatch is not organised by transport handling unit (THU)'' objectClassTerm=''Despatch Line'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a LineItem)
	(role concrete)
	(single-slot TofollowReason
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000192):\n<ccts:BBIE dictionaryEntryName=''Despatch Line. Tofollow_ Reason. Text'' definition=''the reason why the seller was unable to supply the full scheduled quantity against this despatch line.'' objectClassTerm=''Despatch Line'' qualifierTerm_PropertyTerm=''ToFollow'' propertyTerm=''Reason'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TofollowQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000191):\n<ccts:BBIE dictionaryEntryName=''Despatch Line. Tofollow_ Quantity'' definition=''the quantity of the item that was not despatched and which will follow in a subsequent despatch, without any further action by the buyer/recipient.'' objectClassTerm=''Despatch Line'' qualifierTerm_PropertyTerm=''ToFollow'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot OrderLineID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000189):\n<ccts:BBIE dictionaryEntryName=''Despatch Line. Order Line. Identifier'' definition=''identification of the Order Line line that this despatch line is related to.'' objectClassTerm=''Despatch Line'' propertyTerm=''Order Line Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LineID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000188):\n<ccts:BBIE dictionaryEntryName=''Despatch Line. Line. Identifier'' definition=''identification of the despatch line according to the seller's system that generated the Despatch Advice'' objectClassTerm=''Despatch Line'' propertyTerm=''Line Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DeliveredQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000190):\n<ccts:BBIE dictionaryEntryName=''Despatch Line. Delivered_ Quantity'' definition=''the quantity of the item advised as despatched on this line item.'' objectClassTerm=''Despatch Line'' qualifierTerm_PropertyTerm=''Delivered'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DeliverySchedule
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000193):\n<ccts:ASBIE dictionaryEntryName=''Despatch Line. Delivery Schedule'' definition=''associates the despatch line with the delivery schedule.'' objectClassTerm=''Despatch Line'' propertyTerm=''Delivery Schedule'' representationTerm=''Delivery Schedule''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ReferencedTransportHandlingUnit
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000194):\n<ccts:ASBIE dictionaryEntryName=''Despatch Line. Referenced_ Transport Handling Unit'' definition=''associates the despatch line with the transport handling unit.'' objectClassTerm=''Despatch Line'' qualifierTerm_PropertyTerm=''Referenced'' propertyTerm=''Transport Handling Unit'' representationTerm=''Transport Handling Unit''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass HandlingUnitDespatchLineType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000234):\n<ccts:ABIE dictionaryEntryName=''Handling Unit_ Despatch Line. Details'' definition=''contains the line item and package details for the delivery of an item on the Despatch Advice. This may only be a part of the quantity for an Order Line or of a single scheduled quantity of a delivery schedule. '' qualifierTermObjectClassTerm=''Handling Unit'' objectClassTerm=''Despatch Line'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a LineItem)
	(role concrete)
	(single-slot OrderLineID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000236):\n<ccts:BBIE dictionaryEntryName=''Handling Unit_ Despatch Line. Order Line. Identifier'' definition=''identification of the Order Line line that this despatch line is related to.'' qualifierTermObjectClassTerm=''Handling Unit'' objectClassTerm=''Despatch Line'' propertyTerm=''Order Line Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LineID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000235):\n<ccts:BBIE dictionaryEntryName=''Handling Unit_ Despatch Line. Line. Identifier'' definition=''identification of the despatch line according to the seller's system that generated the Despatch Advice'' qualifierTermObjectClassTerm=''Handling Unit'' objectClassTerm=''Despatch Line'' propertyTerm=''Line Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DeliverySchedule
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000240):\n<ccts:ASBIE dictionaryEntryName=''Handling Unit_ Despatch Line. Delivery Schedule'' definition=''associates the despatch line with the delivery schedule.'' qualifierTermObjectClassTerm=''Handling Unit'' objectClassTerm=''Despatch Line'' propertyTerm=''Delivery Schedule'' representationTerm=''Delivery Schedule''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ToFollowQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000238):\n<ccts:BBIE dictionaryEntryName=''Handling Unit_ Despatch Line. To Follow_ Quantity'' definition=''the quantity of the item that was not despatched and which will follow in a subsequent despatch, without any further action by the buyer/recipient.'' qualifierTermObjectClassTerm=''Handling Unit'' objectClassTerm=''Despatch Line'' qualifierTerm_PropertyTerm=''To Follow'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DespatchedQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000237):\n<ccts:BBIE dictionaryEntryName=''Handling Unit_ Despatch Line. Despatched_ Quantity'' definition=''the quantity of the item advised as despatched on this line item.'' qualifierTermObjectClassTerm=''Handling Unit'' objectClassTerm=''Despatch Line'' qualifierTerm_PropertyTerm=''Despatched'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ToFollowReason
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000239):\n<ccts:BBIE dictionaryEntryName=''Handling Unit_ Despatch Line. To Follow_ Reason. Text'' definition=''the reason why the seller was unable to supply the full scheduled quantity against this despatch line.'' qualifierTermObjectClassTerm=''Handling Unit'' objectClassTerm=''Despatch Line'' qualifierTerm_PropertyTerm=''To Follow'' propertyTerm=''Reason'' representationTerm=''Text''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass HandlingUnitReceiptLineType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000241):\n<ccts:ABIE dictionaryEntryName=''Handling Unit_ Receipt Line. Details'' definition=''a 'line' on the receipt advice, by which received quantities, shortages and rejects can be recorded and advised back to the seller.'' qualifierTermObjectClassTerm=''Handling Unit'' objectClassTerm=''Receipt Line'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a LineItem)
	(role concrete)
	(single-slot RejectActionCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000248):\n<ccts:BBIE dictionaryEntryName=''Handling Unit_ Receipt Line. Reject_ Action. Code'' definition=''describes the action, by a code, that the buyer/recipient wishes the seller to take as a result of finding reject quality-items.'' qualifierTermObjectClassTerm=''Handling Unit'' objectClassTerm=''Receipt Line'' qualifierTerm_PropertyTerm=''Reject'' propertyTerm=''Action'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000242):\n<ccts:BBIE dictionaryEntryName=''Handling Unit_ Receipt Line. Identifier'' definition=''identifies a line of the receipt advice'' qualifierTermObjectClassTerm=''Handling Unit'' objectClassTerm=''Receipt Line'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot TimingComplaintCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000250):\n<ccts:BBIE dictionaryEntryName=''Handling Unit_ Receipt Line. Timing_ Complaint. Code'' definition=''specifies the complaint, by a code, about the timing of the delivery received.'' qualifierTermObjectClassTerm=''Handling Unit'' objectClassTerm=''Receipt Line'' qualifierTerm_PropertyTerm=''Timing'' propertyTerm=''Complaint'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ReferencedDespatchLine
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000251):\n<ccts:ASBIE dictionaryEntryName=''Handling Unit_ Receipt Line. Referenced_ Despatch Line'' definition=''associates the receipt line with one despatch advice line. Temporary limitation.'' qualifierTermObjectClassTerm=''Handling Unit'' objectClassTerm=''Receipt Line'' qualifierTerm_PropertyTerm=''Referenced'' propertyTerm=''Despatch Line'' representationTerm=''Despatch Line''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RejectedQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000246):\n<ccts:BBIE dictionaryEntryName=''Handling Unit_ Receipt Line. Rejected_ Quantity'' definition=''gives the quantity of an item on a despatch line that the recipient rejects for some reason.'' qualifierTermObjectClassTerm=''Handling Unit'' objectClassTerm=''Receipt Line'' qualifierTerm_PropertyTerm=''Rejected'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ShortQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000244):\n<ccts:BBIE dictionaryEntryName=''Handling Unit_ Receipt Line. Short_ Quantity'' definition=''gives the quantity of an item on a despatch line that the recipient found to be missing as compared with the quantity declared as despatched by the seller.'' qualifierTermObjectClassTerm=''Handling Unit'' objectClassTerm=''Receipt Line'' qualifierTerm_PropertyTerm=''Short'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RejectReasonCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000247):\n<ccts:BBIE dictionaryEntryName=''Handling Unit_ Receipt Line. Reject_ Reason. Code'' definition=''gives the reason, by a code, why recipient has rejected a quantity of an item delivered.'' qualifierTermObjectClassTerm=''Handling Unit'' objectClassTerm=''Receipt Line'' qualifierTerm_PropertyTerm=''Reject'' propertyTerm=''Reason'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ReceivedQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000243):\n<ccts:BBIE dictionaryEntryName=''Handling Unit_ Receipt Line. Received_ Quantity'' definition=''gives the quantity of an item on a despatch line actually received by the recipient'' qualifierTermObjectClassTerm=''Handling Unit'' objectClassTerm=''Receipt Line'' qualifierTerm_PropertyTerm=''Received'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ShortageActionCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000245):\n<ccts:BBIE dictionaryEntryName=''Handling Unit_ Receipt Line. Shortage_ Action. Code'' definition=''describes the action, by a code, that the buyer/recipient wishes the seller to take as a result of the supplied quantity being short.'' qualifierTermObjectClassTerm=''Handling Unit'' objectClassTerm=''Receipt Line'' qualifierTerm_PropertyTerm=''Shortage'' propertyTerm=''Action'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ReceivedDateDateTime
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000249):\n<ccts:BBIE dictionaryEntryName=''Handling Unit_ Receipt Line. Received_ Date. Date Time'' definition=''gives the date when the delivery was received.'' qualifierTermObjectClassTerm=''Handling Unit'' objectClassTerm=''Receipt Line'' qualifierTerm_PropertyTerm=''Received'' propertyTerm=''Date'' representationTerm=''Date Time''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass InvoiceLineType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000275):\n<ccts:ABIE dictionaryEntryName=''Invoice Line . Details'' definition=''information directly relating to a line item of a transaction. It identifies the item but only includes details about the item that are pertinent  to one occurrence on a line item, e.g. quantity etc.'' objectClassTerm=''Invoice Line '' representationTerm=''Details''/>"
	(is-a LineItem)
	(role concrete)
	(single-slot ReferencedDespatchLine
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000280):\n<ccts:ASBIE dictionaryEntryName=''Invoice Line . Referenced_ Despatch Line'' definition=''an invoice line may be associated with a despatch advice line if invoicing is done at the despatch stage.'' objectClassTerm=''Invoice Line '' qualifierTerm_PropertyTerm=''Referenced'' propertyTerm=''Despatch Line'' representationTerm=''Despatch Line''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ReferencedOrderLine
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000279):\n<ccts:ASBIE dictionaryEntryName=''Invoice Line . Referenced_ Order Line'' definition=''an invoice line may be associated with an order line if invoicing is done at the ordering stage.'' objectClassTerm=''Invoice Line '' qualifierTerm_PropertyTerm=''Referenced'' propertyTerm=''Order Line'' representationTerm=''Order Line''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AllowanceCharge
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000282):\n<ccts:ASBIE dictionaryEntryName=''Invoice Line . Allowance Charge'' definition=''associates the invoice line item with a charge or allowance.'' objectClassTerm=''Invoice Line '' propertyTerm=''Allowance Charge'' representationTerm=''Allowance Charge''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000276):\n<ccts:BBIE dictionaryEntryName=''Invoice Line . Identifier'' definition=''identification of the line within the invoice.'' objectClassTerm=''Invoice Line '' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot LineExtensionAmount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000278):\n<ccts:BBIE dictionaryEntryName=''Invoice Line . Line Extension_ Amount'' definition=''the monetary amount that is the total for the line item, including any pricing variation (allowances, charges or discounts) but not adjusted by any payment settlement discount or taxation.'' objectClassTerm=''Invoice Line '' qualifierTerm_PropertyTerm=''Line Extension'' propertyTerm=''Amount'' representationTerm=''Amount''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot invoiceItem
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000283):\n<ccts:ASBIE dictionaryEntryName=''Invoice Line . Item'' definition=''associates the invoice line with information directly relating to an item (article, product, goods item or service).'' objectClassTerm=''Invoice Line '' propertyTerm=''Item'' representationTerm=''Item''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ReferencedReceiptLine
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000281):\n<ccts:ASBIE dictionaryEntryName=''Invoice Line . Referenced_ Receipt Line'' definition=''an invoice line may be associated with a receipt advice line if invoicing is done after the receipt stage.'' objectClassTerm=''Invoice Line '' qualifierTerm_PropertyTerm=''Referenced'' propertyTerm=''Receipt Line'' representationTerm=''Receipt Line''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot BasePrice
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000284):\n<ccts:ASBIE dictionaryEntryName=''Invoice Line . Base Price'' definition=''associates the invoice line with the base price for the item.'' objectClassTerm=''Invoice Line '' propertyTerm=''Base Price'' representationTerm=''Base Price''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot InvoicedQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000277):\n<ccts:BBIE dictionaryEntryName=''Invoice Line . Invoiced_ Quantity'' definition=''the quantity of the item being invoiced on this invoice line.'' objectClassTerm=''Invoice Line '' qualifierTerm_PropertyTerm=''Invoiced'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass OrderLineType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000377):\n<ccts:ABIE dictionaryEntryName=''Order Line. Details'' definition=''information directly relating to a line item of a transaction. It identifies the item but only includes details about the item that are pertinent  to one occurrence on a line item, e.g. quantity etc.'' objectClassTerm=''Order Line'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a LineItem)
	(role concrete)
	(single-slot SellersID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000379):\n<ccts:BBIE dictionaryEntryName=''Order Line. Seller's_ Identifier'' definition=''the identification given to an Order Line by the seller.'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Seller's'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LIQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000381):\n<ccts:BBIE dictionaryEntryName=''Order Line. Quantity'' definition=''the quantity of the item on this line item.'' objectClassTerm=''Order Line'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LineExtensionAmount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000380):\n<ccts:BBIE dictionaryEntryName=''Order Line. Line Extension_ Amount'' definition=''the monetary amount that is the total for the line item, including any pricing variation (allowances, charges or discounts) but not adjusted by any payment settlement discount or taxation.'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Line Extension'' propertyTerm=''Amount'' representationTerm=''Amount''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MinimumQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000382):\n<ccts:BBIE dictionaryEntryName=''Order Line. Minimum_ Quantity'' definition=''the minimum quantity of the item on this line'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Minimum'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AlternativeOrderLine
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000393):\n<ccts:ASBIE dictionaryEntryName=''Order Line. Alternative_ Order Line'' definition=''associates the Order Line with possible alternatives acceptable to the buyer'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Alternative'' propertyTerm=''Order Line'' representationTerm=''Order Line''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ItemDesignator
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000388):\n<ccts:ASBIE dictionaryEntryName=''Order Line. Item'' definition=''information directly relating to an item (article, product, goods item or service).'' objectClassTerm=''Order Line'' propertyTerm=''Item'' representationTerm=''Item''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DestinationParty
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000387):\n<ccts:ASBIE dictionaryEntryName=''Order Line. Destination_ Party'' definition=''associates the Order Line with information about an individual, a group or a body in the role as destination party for the Order Line'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Destination'' propertyTerm=''Party'' representationTerm=''Party''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SubstitutionStatusCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000386):\n<ccts:BBIE dictionaryEntryName=''Order Line. Substitution_ Status. Code'' definition=''indicates the status of this OrderItem in relation to substitution, denoting an acceptable substitute in the Order, an original for which an alternative is offered in the Order Confirmation, or an original for which an actual replacement is advised in the Despatch Advice.'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Substitution'' propertyTerm=''Status'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DeliveryRequirement
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000389):\n<ccts:ASBIE dictionaryEntryName=''Order Line. Delivery Requirement'' definition=''associates the Order Line with information directly relating to a delivery request.'' objectClassTerm=''Order Line'' propertyTerm=''Delivery Requirement'' representationTerm=''Delivery Requirement''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MaximumQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000383):\n<ccts:BBIE dictionaryEntryName=''Order Line. Maximum_ Quantity'' definition=''the maximum quantity of the item on this line'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Maximum'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MaximumBackorderQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000384):\n<ccts:BBIE dictionaryEntryName=''Order Line. Maximum_ Backorder. Quantity'' definition=''the maximum quantity of an item that a customer will allow to be back ordered.'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Maximum'' propertyTerm=''Backorder Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SubstituteForOrderLine
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000394):\n<ccts:ASBIE dictionaryEntryName=''Order Line. Substitute For_ Order Line'' definition=''associates the Order Line with the original ordered item that the Seller was unable to supply.'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Substitute For'' propertyTerm=''Order Line'' representationTerm=''Order Line''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AllowanceCharge
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000391):\n<ccts:ASBIE dictionaryEntryName=''Order Line. Allowance Charge'' definition=''associates the Order Line with one or more charges, allowances etc that apply to the Order Line.'' objectClassTerm=''Order Line'' propertyTerm=''Allowance Charge'' representationTerm=''Allowance Charge''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot OrderedShipment
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000390):\n<ccts:ASBIE dictionaryEntryName=''Order Line. Ordered_ Shipment'' definition=''associates the Order Line with information directly relating to its shipment.'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Ordered'' propertyTerm=''Shipment'' representationTerm=''Shipment''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MinimumBackorderQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000385):\n<ccts:BBIE dictionaryEntryName=''Order Line. Minimum_ Backorder. Quantity'' definition=''the minimum quantity of an item that a customer will allow to be back ordered.'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Minimum'' propertyTerm=''Backorder Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot BasePrice
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000392):\n<ccts:ASBIE dictionaryEntryName=''Order Line. Base Price'' definition=''associates the Order Line with the base price for the item.'' objectClassTerm=''Order Line'' propertyTerm=''Base Price'' representationTerm=''Base Price''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot BuyersID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000378):\n<ccts:BBIE dictionaryEntryName=''Order Line. Buyer's_ Identifier'' definition=''the identification given to an Order Line by the buyer.'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Buyer's'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass ReceiptLineType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000455):\n<ccts:ABIE dictionaryEntryName=''Receipt Line. Details'' definition=''contains the line item and package details for the delivery of an item on the Despatch Advice, when the despatch is not organised by transport handling unit (THU)'' objectClassTerm=''Receipt Line'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a LineItem)
	(role concrete)
	(single-slot RejectActionCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000462):\n<ccts:BBIE dictionaryEntryName=''Receipt Line. Reject_ Action. Code'' definition=''describes the action, by a code, that the buyer/recipient wishes the seller to take as a result of finding reject quality-items.'' objectClassTerm=''Receipt Line'' qualifierTerm_PropertyTerm=''Reject'' propertyTerm=''Action'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000456):\n<ccts:BBIE dictionaryEntryName=''Receipt Line. Identifier'' definition=''identifies a line of the receipt advice'' objectClassTerm=''Receipt Line'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot ReceivedDate
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000463):\n<ccts:BBIE dictionaryEntryName=''Receipt Line. Received_ Date'' definition=''gives the date when the delivery was received.'' objectClassTerm=''Receipt Line'' qualifierTerm_PropertyTerm=''Received'' propertyTerm=''Date'' representationTerm=''Date''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DeliverySchedule
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000465):\n<ccts:ASBIE dictionaryEntryName=''Receipt Line. Delivery Schedule'' definition=''associates the despatch line with the delivery schedule.'' objectClassTerm=''Receipt Line'' propertyTerm=''Delivery Schedule'' representationTerm=''Delivery Schedule''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TimingComplaintCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000464):\n<ccts:BBIE dictionaryEntryName=''Receipt Line. Timing_ Complaint. Code'' definition=''specifies the complaint, by a code, about the timing of the delivery received.'' objectClassTerm=''Receipt Line'' qualifierTerm_PropertyTerm=''Timing'' propertyTerm=''Complaint'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RejectedQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000460):\n<ccts:BBIE dictionaryEntryName=''Receipt Line. Rejected_ Quantity'' definition=''gives the quantity of an item on a despatch line that the recipient rejects for some reason.'' objectClassTerm=''Receipt Line'' qualifierTerm_PropertyTerm=''Rejected'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ShortQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000458):\n<ccts:BBIE dictionaryEntryName=''Receipt Line. Short_ Quantity'' definition=''gives the quantity of an item on a despatch line that the recipient found to be missing as compared with the quantity declared as despatched by the seller.'' objectClassTerm=''Receipt Line'' qualifierTerm_PropertyTerm=''Short'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot RejectReasonCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000461):\n<ccts:BBIE dictionaryEntryName=''Receipt Line. Reject_ Reason. Code'' definition=''gives the reason, by a code, why recipient has rejected a quantity of an item delivered.'' objectClassTerm=''Receipt Line'' qualifierTerm_PropertyTerm=''Reject'' propertyTerm=''Reason'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ReceivedQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000457):\n<ccts:BBIE dictionaryEntryName=''Receipt Line. Received_ Quantity'' definition=''gives the quantity of an item on a despatch line actually received by the recipient'' objectClassTerm=''Receipt Line'' qualifierTerm_PropertyTerm=''Received'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ReferencedTransportHandlingUnit
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000466):\n<ccts:ASBIE dictionaryEntryName=''Receipt Line. Referenced_ Transport Handling Unit'' definition=''associates the despatch line with the transport handling unit.'' objectClassTerm=''Receipt Line'' qualifierTerm_PropertyTerm=''Referenced'' propertyTerm=''Transport Handling Unit'' representationTerm=''Transport Handling Unit''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ShortageActionCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000459):\n<ccts:BBIE dictionaryEntryName=''Receipt Line. Shortage_ Action. Code'' definition=''describes the action, by a code, that the buyer/recipient wishes the seller to take as a result of the supplied quantity being short.'' objectClassTerm=''Receipt Line'' qualifierTerm_PropertyTerm=''Shortage'' propertyTerm=''Action'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass ReferencedDespatchLineType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000477):\n<ccts:ABIE dictionaryEntryName=''Referenced_ Despatch Line. Details'' definition=''contains the line item and package details for the delivery of an item on the Despatch Advice. This may only be a part of the quantity for an Order Line or of a single scheduled quantity of a delivery schedule. '' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Despatch Line'' representationTerm=''Details''/>"
	(is-a LineItem)
	(role concrete)
	(single-slot LineidID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000478):\n<ccts:BBIE dictionaryEntryName=''Referenced_ Despatch Line. Lineid. Identifier'' definition=''identification of the despatch line according to the seller's system that generated the Despatch Advice'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Despatch Line'' propertyTerm=''LineId'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot OrderLineID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000479):\n<ccts:BBIE dictionaryEntryName=''Referenced_ Despatch Line. Order Line. Identifier'' definition=''identification of the Order Line line that this despatch line is related to.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Despatch Line'' propertyTerm=''Order Line Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ToFollowActionCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000482):\n<ccts:BBIE dictionaryEntryName=''Referenced_ Despatch Line. To Follow_ Action. Code'' definition=''specification by a code informing the seller/supplier what they can do with the 'to follow' quantity, e.g. no longer required.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Despatch Line'' qualifierTerm_PropertyTerm=''To Follow'' propertyTerm=''Action'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ToFollowQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000481):\n<ccts:BBIE dictionaryEntryName=''Referenced_ Despatch Line. To Follow_ Quantity'' definition=''the quantity of the item that was not despatched and which will follow in a subsequent despatch, without any further action by the buyer/recipient.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Despatch Line'' qualifierTerm_PropertyTerm=''To Follow'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DespatchedQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000480):\n<ccts:BBIE dictionaryEntryName=''Referenced_ Despatch Line. Despatched_ Quantity'' definition=''the quantity of the item advised as despatched on this line item.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Despatch Line'' qualifierTerm_PropertyTerm=''Despatched'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass ReferencedOrderLineType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000487):\n<ccts:ABIE dictionaryEntryName=''Referenced_ Order Line. Details'' definition=''information directly relating to a line item of a transaction. It identifies the item but only includes details about the item that are pertinent  to one occurrence on a line item, e.g. quantity etc.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Order Line'' representationTerm=''Details''/>"
	(is-a LineItem)
	(role concrete)
	(single-slot SellersID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000489):\n<ccts:BBIE dictionaryEntryName=''Referenced_ Order Line. Seller's_ Identifier'' definition=''the identification given to an Order Line by the seller.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Seller's'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LIQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000491):\n<ccts:BBIE dictionaryEntryName=''Referenced_ Order Line. Quantity'' definition=''the quantity of the item on this line item.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Order Line'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LineExtensionAmount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000490):\n<ccts:BBIE dictionaryEntryName=''Referenced_ Order Line. Line Extension_ Amount'' definition=''the monetary amount that is the total for the line item, including any pricing variation (allowances, charges or discounts) but not adjusted by any payment settlement discount or taxation.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Line Extension'' propertyTerm=''Amount'' representationTerm=''Amount''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MinimumQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000492):\n<ccts:BBIE dictionaryEntryName=''Referenced_ Order Line. Minimum_ Quantity'' definition=''the minimum quantity of the item on this line'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Minimum'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ItemDesignator
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000498):\n<ccts:ASBIE dictionaryEntryName=''Referenced_ Order Line. Item'' definition=''information directly relating to an item (article, product, goods item or service).'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Order Line'' propertyTerm=''Item'' representationTerm=''Item''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DestinationParty
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000497):\n<ccts:ASBIE dictionaryEntryName=''Referenced_ Order Line. Destination_ Party'' definition=''associates the Order Line with information about an individual, a group or a body in the role as destination party for the Order Line'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Destination'' propertyTerm=''Party'' representationTerm=''Party''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SubstitutionStatusCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000496):\n<ccts:BBIE dictionaryEntryName=''Referenced_ Order Line. Substitution_ Status. Code'' definition=''indicates the status of this OrderItem in relation to substitution, denoting an acceptable substitute in the Order, an original for which an alternative is offered in the Order Confirmation, or an original for which an actual replacement is advised in the Despatch Advice.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Substitution'' propertyTerm=''Status'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DeliveryRequirement
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000499):\n<ccts:ASBIE dictionaryEntryName=''Referenced_ Order Line. Delivery Requirement'' definition=''associates the Order Line with information directly relating to a delivery request.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Order Line'' propertyTerm=''Delivery Requirement'' representationTerm=''Delivery Requirement''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MaximumQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000493):\n<ccts:BBIE dictionaryEntryName=''Referenced_ Order Line. Maximum_ Quantity'' definition=''the maximum quantity of the item on this line'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Maximum'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MaximumBackorderQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000494):\n<ccts:BBIE dictionaryEntryName=''Referenced_ Order Line. Maximum_ Backorder. Quantity'' definition=''the maximum quantity of an item that a customer will allow to be back ordered.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Maximum'' propertyTerm=''Backorder Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AllowanceCharge
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000501):\n<ccts:ASBIE dictionaryEntryName=''Referenced_ Order Line. Allowance Charge'' definition=''associates the Order Line with one or more charges, allowances etc that apply to the Order Line.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Order Line'' propertyTerm=''Allowance Charge'' representationTerm=''Allowance Charge''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot OrderedShipment
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000500):\n<ccts:ASBIE dictionaryEntryName=''Referenced_ Order Line. Ordered_ Shipment'' definition=''associates the Order Line with information directly relating to its shipment.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Ordered'' propertyTerm=''Shipment'' representationTerm=''Shipment''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MinimumBackorderQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000495):\n<ccts:BBIE dictionaryEntryName=''Referenced_ Order Line. Minimum_ Backorder. Quantity'' definition=''the minimum quantity of an item that a customer will allow to be back ordered.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Minimum'' propertyTerm=''Backorder Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ReplacedOrderLine
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000503):\n<ccts:ASBIE dictionaryEntryName=''Referenced_ Order Line. Replaced_ Order Line'' definition=''when the seller has made a substitution, this is used to associate the Order Line with the original one that has been replaced by the seller's substitute'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Replaced'' propertyTerm=''Order Line'' representationTerm=''Order Line''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot BasePrice
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000502):\n<ccts:ASBIE dictionaryEntryName=''Referenced_ Order Line. Base Price'' definition=''associates the Order Line with the base price for the item.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Order Line'' propertyTerm=''Base Price'' representationTerm=''Base Price''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot BuyersID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000488):\n<ccts:BBIE dictionaryEntryName=''Referenced_ Order Line. Buyer's_ Identifier'' definition=''the identification given to an Order Line by the buyer.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Buyer's'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass ReferencedReceiptLineType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000507):\n<ccts:ABIE dictionaryEntryName=''Referenced_ Receipt Line. Details'' definition=''a 'line' on the receipt advice, by which received quantities, shortages and rejects can be recorded and advised back to the seller.'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Receipt Line'' representationTerm=''Details''/>"
	(is-a LineItem)
	(role concrete)
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000508):\n<ccts:BBIE dictionaryEntryName=''Referenced_ Receipt Line. Identifier'' definition=''identifies a line of the receipt advice'' qualifierTermObjectClassTerm=''Referenced'' objectClassTerm=''Receipt Line'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass ReplacedOrderLineType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000531):\n<ccts:ABIE dictionaryEntryName=''Replaced_ Order Line. Details'' definition=''information directly relating to a line item of a transaction, identifying the one that was replaced by the seller making a substitution, and specifying the original ordered quantity, pricing etc which may be different from the substituted item. However it is assumed that the same hazardous material, shipment etc aspects would not be different.'' qualifierTermObjectClassTerm=''Replaced'' objectClassTerm=''Order Line'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a LineItem)
	(role concrete)
	(single-slot LIQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000534):\n<ccts:BBIE dictionaryEntryName=''Replaced_ Order Line. Quantity'' definition=''the quantity of the item on this line item.'' qualifierTermObjectClassTerm=''Replaced'' objectClassTerm=''Order Line'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LineExtensionAmount
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000533):\n<ccts:BBIE dictionaryEntryName=''Replaced_ Order Line. Line Extension_ Amount'' definition=''the monetary amount that is the total for the line item, including any pricing variation (allowances, charges or discounts) but not adjusted by any payment settlement discount or taxation.'' qualifierTermObjectClassTerm=''Replaced'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Line Extension'' propertyTerm=''Amount'' representationTerm=''Amount''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MinimumQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000535):\n<ccts:BBIE dictionaryEntryName=''Replaced_ Order Line. Minimum_ Quantity'' definition=''the minimum quantity of the item on this line'' qualifierTermObjectClassTerm=''Replaced'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Minimum'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ItemDesignator
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000540):\n<ccts:ASBIE dictionaryEntryName=''Replaced_ Order Line. Item'' definition=''information directly relating to an item (article, product, goods item or service).'' qualifierTermObjectClassTerm=''Replaced'' objectClassTerm=''Order Line'' propertyTerm=''Item'' representationTerm=''Item''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SubstitutionStatusCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000539):\n<ccts:BBIE dictionaryEntryName=''Replaced_ Order Line. Substitution_ Status. Code'' definition=''indicates the status of this OrderItem in relation to substitution, denoting an acceptable substitute in the Order, an original for which an alternative is offered in the Order Confirmation, or an original for which an actual replacement is advised in the Despatch Advice.'' qualifierTermObjectClassTerm=''Replaced'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Substitution'' propertyTerm=''Status'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot DeliveryRequirement
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000541):\n<ccts:ASBIE dictionaryEntryName=''Replaced_ Order Line. Delivery Requirement'' definition=''associates the Order Line with information directly relating to a delivery request.'' qualifierTermObjectClassTerm=''Replaced'' objectClassTerm=''Order Line'' propertyTerm=''Delivery Requirement'' representationTerm=''Delivery Requirement''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MaximumQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000536):\n<ccts:BBIE dictionaryEntryName=''Replaced_ Order Line. Maximum_ Quantity'' definition=''the maximum quantity of the item on this line'' qualifierTermObjectClassTerm=''Replaced'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Maximum'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MaximumBackorderQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000537):\n<ccts:BBIE dictionaryEntryName=''Replaced_ Order Line. Maximum_ Backorder. Quantity'' definition=''the maximum quantity of an item that a customer will allow to be back ordered.'' qualifierTermObjectClassTerm=''Replaced'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Maximum'' propertyTerm=''Backorder Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot AllowanceCharge
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000542):\n<ccts:ASBIE dictionaryEntryName=''Replaced_ Order Line. Allowance Charge'' definition=''associates the Order Line with one or more charges, allowances etc that apply to the Order Line.'' qualifierTermObjectClassTerm=''Replaced'' objectClassTerm=''Order Line'' propertyTerm=''Allowance Charge'' representationTerm=''Allowance Charge''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MinimumBackorderQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000538):\n<ccts:BBIE dictionaryEntryName=''Replaced_ Order Line. Minimum_ Backorder. Quantity'' definition=''the minimum quantity of an item that a customer will allow to be back ordered.'' qualifierTermObjectClassTerm=''Replaced'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Minimum'' propertyTerm=''Backorder Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot BasePrice
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000543):\n<ccts:ASBIE dictionaryEntryName=''Replaced_ Order Line. Base Price'' definition=''associates the Order Line with the base price for the item.'' qualifierTermObjectClassTerm=''Replaced'' objectClassTerm=''Order Line'' propertyTerm=''Base Price'' representationTerm=''Base Price''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot BuyersID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000532):\n<ccts:BBIE dictionaryEntryName=''Replaced_ Order Line. Buyer's_ Identifier'' definition=''the identification given to an Order Line by the buyer.'' qualifierTermObjectClassTerm=''Replaced'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Buyer's'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass SubstituteForOrderLineType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000606):\n<ccts:ABIE dictionaryEntryName=''Substitute For_ Order Line. Details'' definition=''information directly relating to a line item of a transaction, identifying an alternative item acceptable to the buyer, and specifying quantity, pricing etc which may be different from the preferred item. However it is assumed that the same hazardous material, shipment etc aspects would not be different.'' qualifierTermObjectClassTerm=''Substitute For'' objectClassTerm=''Order Line'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a LineItem)
	(role concrete)
	(single-slot LIQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000608):\n<ccts:BBIE dictionaryEntryName=''Substitute For_ Order Line. Quantity'' definition=''the quantity of the item on this line item.'' qualifierTermObjectClassTerm=''Substitute For'' objectClassTerm=''Order Line'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ItemDesignator
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000610):\n<ccts:ASBIE dictionaryEntryName=''Substitute For_ Order Line. Item'' definition=''information directly relating to an item (article, product, goods item or service).'' qualifierTermObjectClassTerm=''Substitute For'' objectClassTerm=''Order Line'' propertyTerm=''Item'' representationTerm=''Item''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot SubstitutionStatusCode
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000609):\n<ccts:BBIE dictionaryEntryName=''Substitute For_ Order Line. Substitution_ Status. Code'' definition=''indicates the status of this OrderItem in relation to substitution, denoting an acceptable substitute in the Order, an original for which an alternative is offered in the Order Confirmation, or an original for which an actual replacement is advised in the Despatch Advice.'' qualifierTermObjectClassTerm=''Substitute For'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Substitution'' propertyTerm=''Status'' representationTerm=''Code''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot BuyersID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000607):\n<ccts:BBIE dictionaryEntryName=''Substitute For_ Order Line. Buyer's_ Identifier'' definition=''the identification given to an Order Line by the buyer.'' qualifierTermObjectClassTerm=''Substitute For'' objectClassTerm=''Order Line'' qualifierTerm_PropertyTerm=''Buyer's'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass PackageType "A PackageType is a general category for all package descriptions in a business transaction."
	(is-a TransactionEntity)
	(role concrete))

(defclass ActualPackageType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000007):\n<ccts:ABIE dictionaryEntryName=''Actual_ Package. Details'' definition=''information directly relating to packaging.'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Package'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a PackageType)
	(role concrete)
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000008):\n<ccts:BBIE dictionaryEntryName=''Actual_ Package. Identifier'' definition=''identifies a package that contains a quantity of an item being delivered.'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Package'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot PackageQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000009):\n<ccts:BBIE dictionaryEntryName=''Actual_ Package. Quantity'' definition=''the quantity within a package.'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Package'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ReturnableMaterialIndicator
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000010):\n<ccts:BBIE dictionaryEntryName=''Actual_ Package. Returnable_ Material. Indicator'' definition=''indicates whether the packaging material is returnable or not.'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Package'' qualifierTerm_PropertyTerm=''Returnable'' propertyTerm=''Material'' representationTerm=''Indicator''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ContainedPackage
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000011):\n<ccts:ASBIE dictionaryEntryName=''Actual_ Package. Contained_ Package'' definition=''associates an outer package with information directly relating to the inner packaging of item(s) when nested in outer packaging.  (Note that this is a re-use of Package within Package ).'' qualifierTermObjectClassTerm=''Actual'' objectClassTerm=''Package'' qualifierTerm_PropertyTerm=''Contained'' propertyTerm=''Package'' representationTerm=''Package''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass ContainedPackageType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000132):\n<ccts:ABIE dictionaryEntryName=''Contained_ Package. Details'' definition=''information directly relating to packaging contained within outer packaging.'' qualifierTermObjectClassTerm=''Contained'' objectClassTerm=''Package'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a PackageType)
	(role concrete)
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000133):\n<ccts:BBIE dictionaryEntryName=''Contained_ Package. Identifier'' definition=''identifies a package that contains a quantity of an item being delivered.'' qualifierTermObjectClassTerm=''Contained'' objectClassTerm=''Package'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot PackageQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000134):\n<ccts:BBIE dictionaryEntryName=''Contained_ Package. Quantity'' definition=''the quantity within a package.'' qualifierTermObjectClassTerm=''Contained'' objectClassTerm=''Package'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ReturnableMaterialIndicator
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000135):\n<ccts:BBIE dictionaryEntryName=''Contained_ Package. Returnable_ Material. Indicator'' definition=''indicates whether the packaging material is returnable or not.'' qualifierTermObjectClassTerm=''Contained'' objectClassTerm=''Package'' qualifierTerm_PropertyTerm=''Returnable'' propertyTerm=''Material'' representationTerm=''Indicator''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass OrderedPackageType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL000355):\n<ccts:ABIE dictionaryEntryName=''Ordered_ Package. Details'' definition=''information directly relating to packaging.'' qualifierTermObjectClassTerm=''Ordered'' objectClassTerm=''Package'' propertyTerm=''Details'' representationTerm=''Details''/>"
	(is-a PackageType)
	(role concrete)
	(single-slot ID
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000356):\n<ccts:BBIE dictionaryEntryName=''Ordered_ Package. Identifier'' definition=''identifies a package that contains a quantity of an item being delivered.'' qualifierTermObjectClassTerm=''Ordered'' objectClassTerm=''Package'' propertyTerm=''Identification'' representationTerm=''Identifier''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot PackageQuantity
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000357):\n<ccts:BBIE dictionaryEntryName=''Ordered_ Package. Quantity'' definition=''the quantity within a package.'' qualifierTermObjectClassTerm=''Ordered'' objectClassTerm=''Package'' propertyTerm=''Quantity'' representationTerm=''Quantity''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ReturnableMaterialIndicator
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000358):\n<ccts:BBIE dictionaryEntryName=''Ordered_ Package. Returnable_ Material. Indicator'' definition=''indicates whether the packaging material is returnable or not.'' qualifierTermObjectClassTerm=''Ordered'' objectClassTerm=''Package'' qualifierTerm_PropertyTerm=''Returnable'' propertyTerm=''Material'' representationTerm=''Indicator''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ContainedPackage
;+		(comment "UBL-element Jul 26-03 (UBL-ID=UBL000359):\n<ccts:ASBIE dictionaryEntryName=''Ordered_ Package. Contained_ Package'' definition=''associates an outer package with information directly relating to the inner packaging of item(s) when nested in outer packaging.  (Note that this is a re-use of Package within Package ).'' qualifierTermObjectClassTerm=''Ordered'' objectClassTerm=''Package'' qualifierTerm_PropertyTerm=''Contained'' propertyTerm=''Package'' representationTerm=''Package''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Graph "SUO 1.55: July 14, 2003\nThe &%Class of graphs, where a graph is understood \nto be a set of &%GraphNodes connected by &%GraphArcs.  Note that this \n&%Class includes only connected graphs, i.e. graphs in which there is a \n&%GraphPath between any two &%GraphNodes.  Note too that every &%Graph \nis assumed to contain at least two &%GraphArcs and three &%GraphNodes."
	(is-a Abstract)
	(role concrete)
	(single-slot CutSetFn
;+		(comment "A &%UnaryFunction that assigns a &%Graph the &%Class of &%GraphPaths that partition the graph into two separate graphs if cut.  There may be more than one cutset for a given graph.")
		(type SYMBOL)
;+		(allowed-parents GraphPath)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MinimalCutSetFn
;+		(comment "A &%UnaryFunction that assigns a &%Graph the &%Class of &%GraphPaths which comprise cutsets for the &%Graph and which have the least number of &%GraphArcs.")
		(type SYMBOL)
;+		(allowed-parents GraphPath)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot subGraph
;+		(comment "The relation between two &%Graphs when one &%Graph is a part of the other.  (&%subGraph ?GRAPH1 ?GRAPH2) means that ?GRAPH1 is a part of ?GRAPH2.")
		(type INSTANCE)
;+		(allowed-classes Graph)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass DirectedGraph "SUO 1.55: July 14, 2003\nThe &%Class of directed graphs.  A\ndirected graph is a &%Graph in which all &%GraphArcs\nhave direction, i.e. every &%GraphArc has an initial node (see\n&%InitialNodeFn) and a terminal node (see &%TerminalNodeFn)."
	(is-a Graph)
	(role concrete))

(defclass GraphPath "SUO 1.55: July 14, 2003\nInformally, a single, directed route between \ntwo &%GraphNodes in a &%Graph.  Formally, a &%DirectedGraph that is a \n&%subGraph of the original &%Graph and such that no two &%GraphArcs in \nthe &%DirectedGraph have the same intial node (see &%InitialNodeFn) or \nthe same terminal node (see &%TerminalNodeFn)."
	(is-a DirectedGraph)
	(role concrete)
	(single-slot EndNodeFn
;+		(comment "A &%UnaryFunction that maps a &%GraphPath to the &%GraphNode that is the end of the &%GraphPath.  Note that, unlike &%TerminalNodeFn (which relates a &%GraphArc to a &%GraphNode),  &%EndNodeFn is a total function - every &%GraphPath has a end.")
		(type INSTANCE)
;+		(allowed-classes GraphNode)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot pathLength
;+		(comment "A &%BinaryPredicate that specifies the length (in number of &%GraphNodes) of a &%GraphPath.(&%pathLength ?PATH ?NUMBER) means that there are ?NUMBER nodes in the &%GraphPath ?PATH.")
		(type INSTANCE)
;+		(allowed-classes PositiveInteger)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot BeginNodeFn
;+		(comment "A &%UnaryFunction that maps a &%GraphPath to the &%GraphNode that is the beginning of the &%GraphPath.  Note that, unlike &%InitialNodeFn (which relates a &%GraphArc to a &%GraphNode),  &%BeginNodeFn is a total function - every &%GraphPath has a beginning.")
		(type INSTANCE)
;+		(allowed-classes GraphNode)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PathWeightFn
;+		(comment "A &%UnaryFunction that maps a &%GraphPath to the sum of the &%arcWeights on the &%GraphArcs in the &%GraphPath.")
		(type INSTANCE)
;+		(allowed-classes RealNumber)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass GraphCircuit "SUO 1.55: July 14, 2003\nA &%GraphPath that begins (see\n&%BeginNodeFn) and ends (see &%EndNodeFn) at the same\n&%GraphNode."
	(is-a GraphPath)
	(role concrete))

(defclass Tree "SUO 1.55: July 14, 2003\nA Tree is a &%DirectedGraph that has no\n&%GraphLoops."
	(is-a Graph)
	(role concrete))

(defclass MultiGraph "SUO 1.55: July 14, 2003\nThe &%Class of multigraphs.  A multigraph\nis a &%Graph containing at least one pair of &%GraphNodes that are\nconnected by more than one &%GraphArc."
	(is-a Graph)
	(role concrete))

(defclass PseudoGraph "SUO 1.55: July 14, 2003\nThe &%Class of pseudographs.  A pseudograph\nis a &%Graph containing at least one &%GraphLoop."
	(is-a Graph)
	(role concrete))

(defclass GraphElement "SUO 1.55: July 14, 2003\nNoncompositional parts of &%Graphs.  \nThese parts are restricted to &%GraphNodes and &%GraphArcs."
	(is-a Abstract)
	(role concrete)
	(single-slot graphPart
;+		(comment "A basic relation for &%Graphs and their parts.  (&%graphPart ?PART ?GRAPH) means that ?PART is a &%GraphArc or &%GraphNode of the &%Graph ?GRAPH.")
		(type INSTANCE)
;+		(allowed-classes Graph)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass GraphNode "SUO 1.55: July 14, 2003\n&%Graphs are comprised of &%GraphNodes \nand &%GraphArcs.  Every &%GraphNode is linked by a &%GraphArc."
	(is-a GraphElement)
	(role concrete)
	(single-slot links
;+		(comment "a &%TernaryPredicate that specifies the &%GraphArc connecting two &%GraphNodes.")
		(type INSTANCE)
;+		(allowed-classes GraphNode)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MaximalWeightedPathFn
;+		(comment "This &%BinaryFunction assigns two &%GraphNodes to the &%GraphPath with the largest sum of weighted arcs between the two &%GraphNodes.")
		(type INSTANCE)
;+		(allowed-classes GraphNode)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot MinimalWeightedPathFn
;+		(comment "This &%BinaryFunction assigns two &%GraphNodes to the &%GraphPath with the smallest sum of weighted arcs between the two &%GraphNodes.")
		(type INSTANCE)
;+		(allowed-classes GraphNode)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot GraphPathFn
;+		(comment "A &%BinaryFunction that maps two &%GraphNodes to the &%Class of &%GraphPaths between those two nodes.  Note that the two &%GraphNodes must belong to the same &%Graph.")
		(type INSTANCE)
;+		(allowed-classes GraphNode)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass GraphArc "SUO 1.55: July 14, 2003\n&%Graphs are comprised of &%GraphNodes \nand &%GraphArcs.  Every &%GraphArc links two &%GraphNodes."
	(is-a GraphElement)
	(role concrete)
	(single-slot TerminalNodeFn
;+		(comment "A &%UnaryFunction that maps a &%GraphArc to the terminal node of the &%GraphArc.  Note that this is a partial function.  In particular, the function is undefined for &%GraphArcs that are not part of a &%DirectedGraph.")
		(type INSTANCE)
;+		(allowed-classes GraphNode)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot InitialNodeFn
;+		(comment "A &%UnaryFunction that maps a &%GraphArc to the initial node of the &%GraphArc.  Notethat this is a partial function.  In particular, the function is undefined for &%GraphArcs that are not part of a &%DirectedGraph.")
		(type INSTANCE)
;+		(allowed-classes GraphNode)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot arcWeight
;+		(comment "This predicate indicates the value of a &%GraphArc in a &%Graph.  This could map to the length of a road in a road network or the flow rate of a pipe in a plumbing system.")
		(type INSTANCE)
;+		(allowed-classes RealNumber)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass GraphLoop "SUO 1.55: July 14, 2003\nA &%GraphArc in which a &%GraphNode is\nlinked to itself."
	(is-a GraphArc)
	(role concrete))

(defclass AbstractGraphicalObject "An AbstractGraphicalObject is an abract object which is created by an intelligent agent and is pitorial or graphic rather than linguistic or symbolic in content.  This does not include sound sequences."
	(is-a Abstract)
	(role concrete))

(defclass AbstractSymbol "An AbstractSymbol is a conceptual object created by an intelligent agent which represents some abstract or physical entity."
	(is-a Abstract)
	(role concrete)
	(single-slot representedBy
;+		(comment "representedBy relates an abstract object created by an intelligent agent (an abstract  text, image, proposition) to some physical object that is intended to represent it.")
		(type INSTANCE)
;+		(allowed-classes ContentBearingObject)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass AbstractWord "An AbstractWord is the abstract concept of a string of characters that is a label for some other concept."
	(is-a AbstractSymbol)
	(role concrete)
	(single-slot representedBy
;+		(comment "representedBy relates an abstract object created by an intelligent agent (an abstract  text, image, proposition) to some physical object that is intended to represent it.")
		(type INSTANCE)
;+		(allowed-classes Word)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Synonym "A Synonyms a word which labels the same concept as some other word."
	(is-a AbstractWord)
	(role concrete)
	(single-slot usageFrequency
;+		(comment "usageFrequency relates a word - string of characters -- to the frequency with which that word refers to the particular concept (ontology class).  The sum of all frequencies for a particular word in a particular language should add to 1.0 --\nbut all usages of a particulaar word will not usually be visible in any one screen.   There is no significance to the total number of words that might label a concept-class, nor to the total frequencies in all languages.")
		(type FLOAT)
		(range 0.0 1.0)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot usageType
;+		(comment "usageType describes the context in which a word is used as a label for a particular concept.")
		(type SYMBOL)
		(allowed-values preferred slang technical deprecated)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot inLanguage
;+		(comment "inLanguage relates a word -- a string of characters -- to the language in which it is a word.\nThe language may be natural or artificial -- e.g. the terms in an ontology are considered a language for this purpose.")
		(type INSTANCE)
;+		(allowed-classes HumanLanguage)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Context
	(is-a Abstract)
	(role concrete))

(defclass WordNet_ROOT
	(is-a USER)
	(role concrete)
	(multislot child-of
		(type STRING)
		(create-accessor read-write))
	(single-slot name_
		(type STRING)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot morphological_form
		(type STRING)
		(create-accessor read-write))
	(multislot synonym
		(type STRING)
		(create-accessor read-write))
	(multislot definition
		(type STRING)
		(create-accessor read-write)))

(defclass OrderType "UBL-Ont-V0.012: July 26, 2003 (UBL-ID=UBL100001):\n  <ccts:ABIE dictionaryEntryName=''Order. Details'' definition=''information directly relating to the order.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Order'' qualifierTerm_PropertyTerm='''' propertyTerm=''Details'' representationTerm=''Details'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>"
	(is-a TransactionRecordAbstract)
	(role concrete)
	(single-slot cat:ID
		(comment "UBL-element Jul 26-03 (UBL-ID=):
<ccts:BBIE dictionaryEntryName=''Order. Identifier'' definition=''The OrderId element is a unique number assigned to the Order in respect to the parties assigning the number.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Order'' qualifierTerm_PropertyTerm='''' propertyTerm=''Identification'' representationTerm=''Identifier'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot cat:IssueDate
		(comment "UBL-element Jul 26-03 (UBL-ID=):
<ccts:BBIE dictionaryEntryName=''Order. Issue_ Date'' definition=''a date (and potentially time) stamp denoting when the Order was issued.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Order'' qualifierTerm_PropertyTerm=''Issue'' propertyTerm=''Date'' representationTerm=''Date'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot AcknowledgementResponseCode
		(comment "UBL-element Jul 26-03 (UBL-ID=UBL100004):
<ccts:BBIE dictionaryEntryName=''Order. Acknowledgement Response. Code'' definition=''specifies the type of acknowledgment for the order that the buyer requires from the seller.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Order'' qualifierTerm_PropertyTerm='''' propertyTerm=''Acknowledgement Response'' representationTerm=''Code'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TransactionCurrencyCode
		(comment "UBL-element Jul 26-03 (UBL-ID=UBL100005):
<ccts:BBIE dictionaryEntryName=''Order. Transaction_ Currency. Code'' definition=''the default currency of the Order transaction, which will be used for Invoicing.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Order'' qualifierTerm_PropertyTerm=''Transaction'' propertyTerm=''Currency'' representationTerm=''Code'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot PricingCurrencyCode
		(comment "UBL-element Jul 26-03 (UBL-ID=UBL100006):
<ccts:BBIE dictionaryEntryName=''Order. Pricing_ Currency. Code'' definition=''the currency in which all pricing on the transaction will be specified.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Order'' qualifierTerm_PropertyTerm=''Pricing'' propertyTerm=''Currency'' representationTerm=''Code'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot EarliestDate
		(comment "UBL-element Jul 26-03 (UBL-ID=UBL100007):
<ccts:BBIE dictionaryEntryName=''Order. Earliest_ Date'' definition=''the starting date on or after which Order should be considered valid'' qualifierTermObjectClassTerm='''' objectClassTerm=''Order'' qualifierTerm_PropertyTerm=''Earliest'' propertyTerm=''Date'' representationTerm=''Date'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot CancelledByDate
		(comment "UBL-element Jul 26-03 (UBL-ID=UBL100008):
<ccts:BBIE dictionaryEntryName=''Order. Cancelled By_ Date'' definition=''the date on or after which Order should be cancelled.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Order'' qualifierTerm_PropertyTerm=''Cancelled By'' propertyTerm=''Date'' representationTerm=''Date'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot ValidityDurationMeasure
		(comment "UBL-element Jul 26-03 (UBL-ID=UBL100009):
<ccts:BBIE dictionaryEntryName=''Order. Validity_ Duration. Measure'' definition=''the period for which the order is valid.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Order'' qualifierTerm_PropertyTerm=''Validity'' propertyTerm=''Duration'' representationTerm=''Measure'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot LineitemCountQuantity
		(comment "UBL-element Jul 26-03 (UBL-ID=UBL100010):
<ccts:BBIE dictionaryEntryName=''Order. Lineitem_ Count. Quantity'' definition=''the number of line items in the order.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Order'' qualifierTerm_PropertyTerm=''LineItem'' propertyTerm=''Count'' representationTerm=''Quantity'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TaxTotalAmount
		(comment "UBL-element Jul 26-03 (UBL-ID=UBL100011):
<ccts:BBIE dictionaryEntryName=''Order. Tax_ Total. Amount'' definition=''the total tax amount for the Order.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Order'' qualifierTerm_PropertyTerm=''Tax'' propertyTerm=''Total'' representationTerm=''Amount'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cat:LineExtensionTotalAmount
		(comment "UBL-element Jul 26-03 (UBL-ID=):
<ccts:BBIE dictionaryEntryName=''Order. Line Extension_ Total. Amount'' definition=''the total of line item extension amounts for the entire Order, but not adjusted by any payment settlement discount or taxation.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Order'' qualifierTerm_PropertyTerm=''Line Extension'' propertyTerm=''Total'' representationTerm=''Amount'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot TotalPackagesCountQuantity
		(comment "UBL-element Jul 26-03 (UBL-ID=UBL100013):
<ccts:BBIE dictionaryEntryName=''Order. Total Packages_ Count. Quantity'' definition=''the count of the total number of packages contained in the purchase order.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Order'' qualifierTerm_PropertyTerm=''Total Packages'' propertyTerm=''Count'' representationTerm=''Quantity'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cat:GrossWeightMeasure
		(comment "UBL-element Jul 26-03 (UBL-ID=):
<ccts:BBIE dictionaryEntryName=''Order. Gross_ Weight. Measure'' definition=''the total gross weight of the order.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Order'' qualifierTerm_PropertyTerm=''Gross'' propertyTerm=''Weight'' representationTerm=''Measure'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cat:NetWeightMeasure
		(comment "UBL-element Jul 26-03 (UBL-ID=):
<ccts:BBIE dictionaryEntryName=''Order. Net_ Weight. Measure'' definition=''the total net weight of the order.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Order'' qualifierTerm_PropertyTerm=''Net'' propertyTerm=''Weight'' representationTerm=''Measure'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cat:NetNetWeightMeasure
		(comment "UBL-element Jul 26-03 (UBL-ID=):
<ccts:BBIE dictionaryEntryName=''Order. Net Net_ Weight. Measure'' definition=''the weight (mass) of the goods themselves without any packing. Sometimes known as the &quot;NetNet Weight&quot;'' qualifierTermObjectClassTerm='''' objectClassTerm=''Order'' qualifierTerm_PropertyTerm=''Net Net'' propertyTerm=''Weight'' representationTerm=''Measure'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cat:GrossVolumeMeasure
		(comment "UBL-element Jul 26-03 (UBL-ID=):
<ccts:BBIE dictionaryEntryName=''Order. Gross_ Volume. Measure'' definition=''the total volume of the order.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Order'' qualifierTerm_PropertyTerm=''Gross'' propertyTerm=''Volume'' representationTerm=''Measure'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cat:NetVolumeMeasure
		(comment "UBL-element Jul 26-03 (UBL-ID=):
<ccts:BBIE dictionaryEntryName=''Order. Net_ Volume. Measure'' definition=''the total volume of the order.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Order'' qualifierTerm_PropertyTerm=''Net'' propertyTerm=''Volume'' representationTerm=''Measure'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cat:BuyerParty
		(comment "UBL-element Jul 26-03 (UBL-ID=):
<ccts:ASBIE dictionaryEntryName=''Order. Buyer_ Party'' definition=''associates the order with information about the buyer involved in the transaction.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Order'' qualifierTerm_PropertyTerm=''Buyer'' propertyTerm=''Party'' representationTerm=''Party'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot cat:SellerParty
		(comment "UBL-element Jul 26-03 (UBL-ID=):
<ccts:ASBIE dictionaryEntryName=''Order. Seller_ Party'' definition=''associates the order with information about the seller involved in the transaction.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Order'' qualifierTerm_PropertyTerm=''Seller'' propertyTerm=''Party'' representationTerm=''Party'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot cat:FreightForwarderParty
		(comment "UBL-element Jul 26-03 (UBL-ID=):
<ccts:ASBIE dictionaryEntryName=''Order. Freight Forwarder_ Party'' definition=''associates the order with information about the freight forwarder involved in the transaction.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Order'' qualifierTerm_PropertyTerm=''Freight Forwarder'' propertyTerm=''Party'' representationTerm=''Party'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cat:AllowanceCharge
		(comment "UBL-element Jul 26-03 (UBL-ID=):
<ccts:ASBIE dictionaryEntryName=''Order. Allowance Charge'' definition=''associates the order with one or more pricing components for overall charges allowances etc.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Order'' qualifierTerm_PropertyTerm='''' propertyTerm=''Allowance Charge'' representationTerm=''Allowance Charge'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 ?VARIABLE)
		(create-accessor read-write))
	(single-slot cat:SalesConditions
		(comment "UBL-element Jul 26-03 (UBL-ID=):
<ccts:ASBIE dictionaryEntryName=''Order. Sales Conditions'' definition=''associates the order with one sales conditions applying to the whole order.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Order'' qualifierTerm_PropertyTerm='''' propertyTerm=''Sales Conditions'' representationTerm=''Sales Conditions'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cat:DeliveryTerms
		(comment "UBL-element Jul 26-03 (UBL-ID=):
<ccts:ASBIE dictionaryEntryName=''Order. Delivery Terms'' definition=''associates the order with delivery terms agreed between seller and buyer with regard to the delivery of goods.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Order'' qualifierTerm_PropertyTerm='''' propertyTerm=''Delivery Terms'' representationTerm=''Delivery Terms'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cat:DestinationCountry
		(comment "UBL-element Jul 26-03 (UBL-ID=):
<ccts:ASBIE dictionaryEntryName=''Order. Destination_ Country'' definition=''associates the order with the country to which it is destined, for Customs purposes. '' qualifierTermObjectClassTerm='''' objectClassTerm=''Order'' qualifierTerm_PropertyTerm=''Destination'' propertyTerm=''Country'' representationTerm=''Country'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cat:OrderLine
		(comment "UBL-element Jul 26-03 (UBL-ID=):
<ccts:ASBIE dictionaryEntryName=''Order. Order Line'' definition=''associates the order with one or more order items.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Order'' qualifierTerm_PropertyTerm='''' propertyTerm=''Order Line'' representationTerm=''Order Line'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 ?VARIABLE)
		(create-accessor read-write))
	(single-slot cat:Contract
		(comment "UBL-element Jul 26-03 (UBL-ID=):
<ccts:ASBIE dictionaryEntryName=''Order. Contract'' definition=''associates the order with a previously agreed contract.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Order'' qualifierTerm_PropertyTerm='''' propertyTerm=''Contract'' representationTerm=''Contract'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot cat:Quote
		(comment "UBL-element Jul 26-03 (UBL-ID=):
<ccts:ASBIE dictionaryEntryName=''Order. Quote'' definition=''associates the order with a prior quote.'' qualifierTermObjectClassTerm='''' objectClassTerm=''Order'' qualifierTerm_PropertyTerm='''' propertyTerm=''Quote'' representationTerm=''Quote'' xmlns:ccts=''urn:oasis:names:tc:ubl:CoreComponentParameters:1.0:0.70''/>")
		(type INSTANCE)
;+		(allowed-classes UBLattribute)
;+		(cardinality 0 1)
		(create-accessor read-write)))