; Fri Nov 07 22:08:04 CST 2003
; 
;+ (version "1.9")
;+ (build "Build 1120")


(defclass %3ACLIPS_TOP_LEVEL_SLOT_CLASS
	(is-a USER)
	(role concrete)
	(single-slot normal+termination
;+		(comment "A state that holds when the script is \"successfully completed.\"  This might serve as the basis for reasoning about goals.")
		(type INSTANCE)
;+		(allowed-classes Empty_scoop)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot count
;+		(comment "An enumeration related to the outcome of an event.  Does not directly specify an integer value.")
		(type INSTANCE)
;+		(allowed-classes Egg_count)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot distance_traveled
;+		(comment "Measure of change of position resulting from a locomotion event.")
		(type INSTANCE)
;+		(allowed-classes Distance_measure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot neck_angle
;+		(comment "The angle between an animal's neck and the substrate.")
		(type INSTANCE)
;+		(allowed-classes Angle_measure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot zero_Angle
;+		(comment "Orients a naive-polar coordinate system.")
		(type INSTANCE)
;+		(allowed-classes)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Sand_substrate "A substrate of sand, such as a beach, sand bar or the bottom of a body of water."
	(is-a Substrate)
	(role concrete)
	(single-slot composed_of
;+		(comment "This slot refers to the physical composition of things.  It should probably only point to types of stuff.  Use parts when you can actually specify the pieces.")
		(type INSTANCE)
;+		(allowed-classes Sand)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Dune "Another kind of sandy substrate.\nTodo: describe a set of these, up to 1 meter in height."
	(is-a Sand_substrate)
	(role concrete)
	(single-slot composed_of
;+		(comment "This slot refers to the physical composition of things.  It should probably only point to types of stuff.  Use parts when you can actually specify the pieces.")
		(type INSTANCE)
;+		(allowed-classes Sand)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Tidal_ridge "A sand substrate with ridges formed by tidal action."
	(is-a Sand_substrate)
	(role concrete)
	(single-slot composed_of
;+		(comment "This slot refers to the physical composition of things.  It should probably only point to types of stuff.  Use parts when you can actually specify the pieces.")
		(type INSTANCE)
;+		(allowed-classes Sand)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Body_pit "The turtle digs this out of the substrate with limb sweeps. H&E p. 7."
	(is-a Sand_substrate)
	(role concrete))

(defclass Caretta_caretta "Also known as the loggerhead sea turtle"
	(is-a Organism)
	(role concrete))

(defclass Loggerhead_egg "May try modeling this differently, say using life history stage as a slot; but that would require some inferencing."
	(is-a Caretta_caretta)
	(role concrete))

(defclass Tetrapod "The clade of four-legged vertebrates.  The reason this is included is the Hailman and Elowson paper makes claims about motor patterns common to the clade."
	(is-a Organism)
	(role concrete)
	(multislot parts
;+		(comment "The inverse of part_of.  This should be a list of all of the things that claim to be part_of this object.")
		(type SYMBOL)
;+		(allowed-parents)
		(create-accessor read-write)))

(defclass Body "The trunk or torso of a vertebrate."
	(is-a Part_of_Organism)
	(role concrete)
	(single-slot part_of
;+		(comment "The part of relation.  This has many specializations, which appear here as class specific slot views.")
		(type INSTANCE)
;+		(allowed-classes Organism)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass Chin "The end of the lower mandible in some craniate vertebrates."
	(is-a Part_of_Organism)
	(role concrete)
	(single-slot part_of
;+		(comment "The part of relation.  This has many specializations, which appear here as class specific slot views.")
		(type INSTANCE)
;+		(allowed-classes Head)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass Cloacal_tube "Tube through which eggs and other material leaves the body."
	(is-a Part_of_Organism)
	(role concrete)
	(single-slot part_of
;+		(comment "The part of relation.  This has many specializations, which appear here as class specific slot views.")
		(type INSTANCE)
;+		(allowed-classes Organism)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass Head "The head contains the brain, mouth, eyes etc. in those animals that have them."
	(is-a Part_of_Organism)
	(role concrete)
	(single-slot connected_to
;+		(comment "This is intended to provide a symmetric relation for building bodies.  Use something in addition to this to build directed chains.")
		(type INSTANCE)
;+		(allowed-classes Neck)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "The part of relation.  This has many specializations, which appear here as class specific slot views.")
		(type INSTANCE)
;+		(allowed-classes Organism)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass Limb "Appendages generally used for locomotion, or in this study, digging."
	(is-a Part_of_Organism)
	(role abstract)
	(single-slot part_of
;+		(comment "The part of relation.  This has many specializations, which appear here as class specific slot views.")
		(type INSTANCE)
;+		(allowed-classes Organism)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass Hind_leg "One of the two hind legs."
	(is-a Limb)
	(role concrete))

(defclass Right_hind_leg "A leg behind the Right front leg. (RH)"
	(is-a Hind_leg)
	(role concrete)
	(single-slot part_of
;+		(comment "The part of relation.  This has many specializations, which appear here as class specific slot views.")
		(type INSTANCE)
;+		(allowed-classes Organism)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass Left_hind_leg "A leg behind the left front leg.  (LH)"
	(is-a Hind_leg)
	(role concrete)
	(single-slot part_of
;+		(comment "The part of relation.  This has many specializations, which appear here as class specific slot views.")
		(type INSTANCE)
;+		(allowed-classes Organism)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass Front_leg "One of the two front legs."
	(is-a Limb)
	(role concrete))

(defclass Left_front_leg "Symmetrically opposite the Right front leg. (LF)"
	(is-a Front_leg)
	(role concrete)
	(single-slot part_of
;+		(comment "The part of relation.  This has many specializations, which appear here as class specific slot views.")
		(type INSTANCE)
;+		(allowed-classes Organism)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass Right_front_leg "One of two symmetrically placed limbs on the front end (near the head) of the body. (RF)"
	(is-a Front_leg)
	(role concrete)
	(single-slot part_of
;+		(comment "The part of relation.  This has many specializations, which appear here as class specific slot views.")
		(type INSTANCE)
;+		(allowed-classes Organism)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass Neck "Connects the head and main body of many tetrapods."
	(is-a Part_of_Organism)
	(role concrete)
	(multislot connected_to
;+		(comment "This is intended to provide a symmetric relation for building bodies.  Use something in addition to this to build directed chains.")
		(type INSTANCE)
;+		(allowed-classes Body Head)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "The part of relation.  This has many specializations, which appear here as class specific slot views.")
		(type INSTANCE)
;+		(allowed-classes Organism)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass Nostril "External opening to a vertebrate respiratory/olfactory system."
	(is-a Part_of_Organism)
	(role concrete)
	(single-slot part_of
;+		(comment "The part of relation.  This has many specializations, which appear here as class specific slot views.")
		(type INSTANCE)
;+		(allowed-classes Head)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass Plastron "The shell of a turtle"
	(is-a Part_of_Organism)
	(role concrete)
	(single-slot part_of
;+		(comment "The part of relation.  This has many specializations, which appear here as class specific slot views.")
		(type INSTANCE)
;+		(allowed-classes Organism)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass Skin "The external covering of an animal."
	(is-a Part_of_Organism)
	(role concrete)
	(single-slot part_of
;+		(comment "The part of relation.  This has many specializations, which appear here as class specific slot views.")
		(type INSTANCE)
;+		(allowed-classes Organism)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass Throat "The ventral portion of a neck."
	(is-a Part_of_Organism)
	(role concrete)
	(single-slot part_of
;+		(comment "The part of relation; improvement needed.")
		(type INSTANCE)
;+		(allowed-classes Neck)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass Flipper "The flattened distal portion of the loggerhead limb."
	(is-a Part_of_Organism)
	(role concrete)
	(multislot connected_to
;+		(comment "This is intended to provide a symmetric relation for building bodies.  Use something in addition to this to build directed chains.")
		(type INSTANCE)
;+		(allowed-classes Limb)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "The part of relation.  This has many specializations, which appear here as class specific slot views.")
		(type INSTANCE)
;+		(allowed-classes Limb)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass Hind_flipper "A flipper attached to one of the hind legs."
	(is-a Flipper)
	(role concrete)
	(multislot connected_to
;+		(comment "This is intended to provide a symmetric relation for building bodies.  Use something in addition to this to build directed chains.")
		(type INSTANCE)
;+		(allowed-classes Hind_leg)
		(create-accessor read-write)))

(defclass Left_Hind_Flipper "Inferred from parent."
	(is-a Hind_flipper)
	(role concrete)
	(multislot connected_to
;+		(comment "This is intended to provide a symmetric relation for building bodies.  Use something in addition to this to build directed chains.")
		(type INSTANCE)
;+		(allowed-classes Left_hind_leg)
		(create-accessor read-write)))

(defclass Right_Hind_Flipper "Inferred from parent."
	(is-a Hind_flipper)
	(role concrete)
	(multislot connected_to
;+		(comment "This is intended to provide a symmetric relation for building bodies.  Use something in addition to this to build directed chains.")
		(type INSTANCE)
;+		(allowed-classes Right_hind_leg)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "The part of relation.  This has many specializations, which appear here as class specific slot views.")
		(type INSTANCE)
;+		(allowed-classes Limb)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass Front_flipper "A flipper attached to one of the front legs."
	(is-a Flipper)
	(role concrete)
	(multislot connected_to
;+		(comment "This is intended to provide a symmetric relation for building bodies.  Use something in addition to this to build directed chains.")
		(type INSTANCE)
;+		(allowed-classes Front_leg)
		(create-accessor read-write)))

(defclass Digit
	(is-a Part_of_Organism)
	(role concrete)
	(single-slot part_of
;+		(comment "The part of relation.  This has many specializations, which appear here as class specific slot views.")
		(type INSTANCE)
;+		(allowed-classes Organism Flipper)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass Mucus "Common animal secretion; expelling during egg laying processes along with eggs."
	(is-a Stuff)
	(role concrete))

(defclass Sand "Sand, of which beaches are composed and which sticks to turtle shells."
	(is-a Stuff)
	(role concrete))

(defclass Water "Salt water where sea turtles swim."
	(is-a Stuff Medium)
	(role concrete))

(defclass Air "This is added so that vocalization and breathing can have an object."
	(is-a Stuff)
	(role concrete))

(defclass Cylinder "Generated by a circle moved along a line not in its plane.  Here it is the partial shape of the egg chamber."
	(is-a 3D_shape)
	(role concrete))

(defclass Tube "A type of cylinder, also the \"shape\" of the cloacal tube."
	(is-a Cylinder)
	(role concrete))

(defclass Naive_polar "This doesn't really provide a zero point, just a zero angle."
	(is-a Coordinate_system)
	(role concrete)
	(single-slot zero_Angle
;+		(comment "Orients a naive-polar coordinate system.")
		(type STRING)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Avoid_an_obstacle "Is this really a class of causal explanation?"
	(is-a Functional_explanation)
	(role concrete))

(defclass Phototaxis "H&E p. 21."
	(is-a Causal_explanation)
	(role concrete))

(defclass Moisture_content "A measure of mass ratios in a mixture.  The numerator measures water."
	(is-a Complex_measure)
	(role concrete)
	(multislot units
;+		(comment "These are standard values used for describing measurements with corresponding dimensions.  For complex measures, use multiple units and the denominator units slot.")
		(type SYMBOL)
		(allowed-values grams)
		(create-accessor read-write))
	(multislot denominator_units
;+		(comment "Used for building complex measurement units like acceleration (meters/sec*sec).")
		(type SYMBOL)
		(allowed-values grams)
		(create-accessor read-write)))

(defclass Velocity "Actually speed, no direction vector here."
	(is-a Complex_measure)
	(role concrete)
	(multislot units
;+		(comment "These are standard values used for describing measurements with corresponding dimensions.  For complex measures, use multiple units and the denominator units slot.")
		(type SYMBOL)
		(allowed-values meters)
		(create-accessor read-write))
	(multislot denominator_units
;+		(comment "Used for building complex measurement units like acceleration (meters/sec*sec).")
		(type SYMBOL)
		(allowed-values seconds)
		(create-accessor read-write)))

(defclass Egg_count "Number of eggs dropped in a egg drop event (H&E p. 13)."
	(is-a Count)
	(role concrete)
	(single-slot units
;+		(comment "These are standard values used for describing measurements with corresponding dimensions.  For complex measures, use multiple units and the denominator units slot.")
		(type SYMBOL)
;+		(allowed-parents Loggerhead_egg)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot value
;+		(comment "This is where the range (0-4) observed by H&E (p. 13) is represented.")
		(type INTEGER)
		(range 0 4)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Hindlimb_Sand_Dump "the hindlimb carrying the sand rotates such that the anterior edge moves down, then forward, which...dumps the sand.  H&E p. 11."
	(is-a Action_Pattern)
	(role abstract)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instrument
;+		(comment "Hind_flipper is also defensible here")
		(type INSTANCE)
;+		(allowed-classes Hind_leg)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Sand)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Contralateral_dump "Varient of Posterolateral H&E p. 11,24."
	(is-a Hindlimb_Sand_Dump)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Hind_leg)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Dig_egg_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Ipsilateral_sand_dump "Varient of Posterolateral H&E p. 11,24."
	(is-a Hindlimb_Sand_Dump)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Hind_leg)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Dig_egg_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Posterior_spray_dump "Varient of Posterolateral H&E p. 11,24."
	(is-a Hindlimb_Sand_Dump)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Hind_leg)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Dig_egg_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Posterolateral_dump "The common varient of the Hindlimb_Sand_Dump.  H&E p. 11, 10."
	(is-a Hindlimb_Sand_Dump)
	(role concrete))

(defclass RH_posterolateral_dump "Inferred from parent H&E p. 11,10."
	(is-a Posterolateral_dump)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Right_Shift_Outward_during_Dig)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot precedes
;+		(comment "When a temporal interval ends before another starts.")
		(type INSTANCE)
;+		(allowed-classes LH_flick)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Right_hind_leg)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass LH_posterolateral_dump "Inferred from parent H&E p. 11,10."
	(is-a Posterolateral_dump)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes LH_Extend_out)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot precedes
;+		(comment "When a temporal interval ends before another starts.")
		(type INSTANCE)
;+		(allowed-classes RH_flick)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Left_hind_leg)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Sand-packing "Sequence of motions to pile and compact the sand over the egg chamber. H&E p. 16."
	(is-a Action_Pattern)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Part_of_Organism)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Fill_and_pack_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Sand_pulling "Set of sand movement motions of the hindlimbs rotated such that their anterior edge is against the substrate while the limb moved backward.  H&E p. 15."
	(is-a Action_Pattern)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "The limb that moves the sand.")
		(type INSTANCE)
;+		(allowed-classes Limb)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Fill_and_pack_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot object
;+		(comment "The sand moved by the pulling action.")
		(type INSTANCE)
;+		(allowed-classes Sand)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Alternate_HL_Scoop%2FPull "Both hindlimbs move, out of phase, to pull sand into the partially filled egg chamber. H&E p. 15,16."
	(is-a Sand_pulling)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Hind_leg)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Fill_and_pack_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Single_Hindlimb_Pull "Only one of the hindlimbs pulls sand into the partially filled egg chamber. H&E p. 15,16."
	(is-a Sand_pulling)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Hind_leg)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Fill_and_pack_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Synchronous_HL_Scoop%2FPull "Both hindlimbs move synchronously to pull sand into the partially filled egg chamber. H&E p 15,16."
	(is-a Sand_pulling)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Hind_leg)
		(cardinality 0 2)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Fill_and_pack_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Sand_sweep "Moving sand by dragging the ventral portion of a flipper. H&E p. 7."
	(is-a Action_Pattern)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Limb)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Make_body_pit)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Sand)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Alternate_hindlimb_sweep "Hindlimbs are swept alternately (RH-LH-) H&E p. 7."
	(is-a Sand_sweep)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Hind_leg)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot parts
;+		(comment "The inverse of part_of.  This should be a list of all of the things that claim to be part_of this object.")
		(type INSTANCE)
;+		(allowed-classes Hindlimb_sweep)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Make_body_pit)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Diagonally_Opposite_Sweep "Diagnonally opposite legs are moved (nearly) synchronously. H&E p. 7."
	(is-a Sand_sweep)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Limb)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot parts
;+		(comment "The inverse of part_of.  This should be a list of all of the things that claim to be part_of this object.")
		(type INSTANCE)
;+		(allowed-classes Forelimb_sweep Hindlimb_sweep)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Make_body_pit)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Synchronous_Forelimb_Sweep "Sand sweeps with the forelimbs moved synchronously (LF/RF-) in H&E's notation.  H&E p. 7."
	(is-a Sand_sweep)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Front_leg)
		(cardinality 0 2)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot parts
;+		(comment "The inverse of part_of.  This should be a list of all of the things that claim to be part_of this object.")
		(type INSTANCE)
;+		(allowed-classes LF_sweep RF_sweep)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Make_body_pit)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Swim "Swimming as done by loggerhead sea turtles. H&E p. 3,21."
	(is-a Action_Pattern)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Limb)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Swim_from_beach "Swimming away from the beach. H&E p. 21."
	(is-a Swim)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Limb)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Depart_from_beach)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Swim_towards_beach "Swimming towards the beach. H&E p. 3. \n"
	(is-a Swim)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Limb)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Approach_beach)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Throwing_motions "throwing is done by digging the anterior edge of the flipper into the substrate and moving sand backward.  Far more vigorous than sand pulling.  H&E p. 18."
	(is-a Action_Pattern)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Limb)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Cover_body_pit)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Alternate_Hindlimb_Throw "When one hindlimb throws sand, the other rests with its ventral surface on the substrate and often moves in subtle ways...  H&E p. 19."
	(is-a Throwing_motions)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Hind_leg)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot parts
;+		(comment "The inverse of part_of.  This should be a list of all of the things that claim to be part_of this object.")
		(type INSTANCE)
;+		(allowed-classes Left_hindlimb_throw Right_hindlimb_throw)
		(create-accessor read-write))
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Cover_body_pit)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Cover_body_pit)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Diagonally_Opposite_Throw "Diagonally opposite limbs throw sand nearly imultaneously.  Front limb leads slightly H&E p. 18,19."
	(is-a Throwing_motions)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Limb)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Cover_body_pit)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Sand)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass LF_RH_Throw "Nearly synchronous sand throwing movements of the left front and right hind limbs.  H&E p. 18,19."
	(is-a Diagonally_Opposite_Throw)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Limb)
		(cardinality 0 2)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot parts
;+		(comment "The inverse of part_of.  This should be a list of all of the things that claim to be part_of this object.")
		(type INSTANCE)
;+		(allowed-classes Left_forelimb_throw Right_hindlimb_throw)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Cover_body_pit)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass RF_LH_Throw "Nearly synchronous sand throwing movements of the right front and left hind limbs.  H&E p. 18,19."
	(is-a Diagonally_Opposite_Throw)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Limb)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot parts
;+		(comment "The inverse of part_of.  This should be a list of all of the things that claim to be part_of this object.")
		(type INSTANCE)
;+		(allowed-classes Right_forelimb_throw Left_hindlimb_throw)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Cover_body_pit)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Synchronous_Forelimb_Throw "Sweep sand backward to the sides of the turtle and scatter sand over substrate and ... carapace.  H&E p. 18."
	(is-a Throwing_motions)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot precedes
;+		(comment "Ordinarily, the first movements of this phase [Cover_Body_Pit] are Synchronous_Forelimb_Throws.  H&E p. 18.")
		(type INSTANCE)
;+		(allowed-classes Throwing_motions)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Front_leg)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot parts
;+		(comment "The inverse of part_of.  This should be a list of all of the things that claim to be part_of this object.")
		(type INSTANCE)
;+		(allowed-classes Left_forelimb_throw Right_forelimb_throw)
		(cardinality 2 ?VARIABLE)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Cover_body_pit)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Synchronous_Hindlimb_Throw "Follow Synchronous_forelimb_throw, but not vigorous and resembles scoop/pull motions.  H&E p. 18."
	(is-a Throwing_motions)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Hind_leg)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot parts
;+		(comment "The inverse of part_of.  This should be a list of all of the things that claim to be part_of this object.")
		(type INSTANCE)
;+		(allowed-classes Left_hindlimb_throw Right_hindlimb_throw)
		(cardinality 2 ?VARIABLE)
		(create-accessor read-write))
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Cover_body_pit)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Cover_body_pit)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Sand)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Single_Limb_Throw "Occasionally there independent throws of any limb.  H&E p. 19"
	(is-a Throwing_motions)
	(role concrete)
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Limb)
		(create-accessor read-write))
	(single-slot parts
;+		(comment "The inverse of part_of.  This should be a list of all of the things that claim to be part_of this object.")
		(type INSTANCE)
;+		(allowed-classes Sand_Throwing)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Sand)
		(create-accessor read-write)))

(defclass Sand_smoothing "H&E p. 19.  A subtle motion of a hind leg occuring while the other is sand-throwing.  Also may occur simultaneous with packing actions during Fill_and_pack_chamber  H&E p. 17."
	(is-a Action_Pattern)
	(role concrete)
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Cover_body_pit Fill_and_pack_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Synchronous_Forelimb_Thrust "Thrust by both forelimbs; initial locomotor act in return to surf; H&E p. 20."
	(is-a Action_Pattern)
	(role concrete)
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Front_leg)
		(cardinality 1 2)
		(create-accessor read-write))
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Return_to_surf)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Return_to_surf)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
		(create-accessor read-write)))

(defclass Alternate_hindlimb_flick "Flicking the sand alternately with the hindlimbs. H&E p. 9."
	(is-a Action_Pattern)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Limb)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot parts
;+		(comment "The inverse of part_of.  This should be a list of all of the things that claim to be part_of this object.")
		(type INSTANCE)
;+		(allowed-classes LH_flick RH_flick)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Dig_egg_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Sand)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Scrape%2FDig "There may be as many as 10 such [Scrape/Dig_Unit] movements in [Scrape/Dig] step. H&E p. 10"
	(is-a Action_Pattern)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Posterior_Tilt_Down_during_dig_egg_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot precedes
;+		(comment "When a temporal interval ends before another starts.")
		(type INSTANCE)
;+		(allowed-classes Scoop)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Hind_leg)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot parts
;+		(comment "The elements that make up a script.  Somehow it would be nice to fill these automatically with defaults when a script instance is created.")
		(type INSTANCE)
;+		(allowed-classes Scrape%2FDig_unit)
		(create-accessor read-write))
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Dig_egg_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Excavation_sequence)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Sand)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass LH_Scrape%2FDig "Inferred from parent.  H&E p. 10."
	(is-a Scrape%2FDig)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Posterior_Tilt_Down_with_LH_extended)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot precedes
;+		(comment "When a temporal interval ends before another starts.")
		(type INSTANCE)
;+		(allowed-classes LH_Scoop)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Left_hind_leg)
		(create-accessor read-write))
	(multislot parts
;+		(comment "The elements that make up a script.  Somehow it would be nice to fill these automatically with defaults when a script instance is created.")
		(type INSTANCE)
;+		(allowed-classes LH_Scrape%2FDig_unit)
		(create-accessor read-write)))

(defclass RH_Scrape%2FDig "Inferred from parent.  H&E p. 10."
	(is-a Scrape%2FDig)
	(role concrete)
	(single-slot precedes
;+		(comment "When a temporal interval ends before another starts.")
		(type INSTANCE)
;+		(allowed-classes RH_Scoop)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Right_hind_leg)
		(create-accessor read-write))
	(multislot parts
;+		(comment "The elements that make up a script.  Somehow it would be nice to fill these automatically with defaults when a script instance is created.")
		(type INSTANCE)
;+		(allowed-classes RH_Scrape%2FDig_unit)
		(create-accessor read-write))
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Dig_egg_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Hind_Flipper_Raise "...the hind flippers raise noticably at the distal ends and maintain the extension.\n...appears to be primarily a rotation of the foot around the ankle joint.  H&E p. 12."
	(is-a Action_Pattern)
	(role concrete)
	(single-slot precedes
;+		(comment "When a temporal interval ends before another starts.")
		(type INSTANCE)
;+		(allowed-classes Drop_egg)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Hind_flipper)
		(cardinality 2 2)
		(create-accessor read-write))
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Lay_eggs)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Hind_flipper)
		(cardinality 2 2)
		(create-accessor read-write))
	(multislot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
		(cardinality 1 ?VARIABLE)
		(create-accessor read-write)))

(defclass Minor_hindflipper_raise-lower "Sometimes...the hind flippers are raised and lowered slightly, but not held upward as during an egg-drop H&E p. 13."
	(is-a Hind_Flipper_Raise)
	(role concrete))

(defclass LH%2FRH_Scoop%2FShape "the hindlimb's vertically oriented surface curls around the sand above the hole, shaping it into a pile.  H&E p. 16."
	(is-a Action_Pattern)
	(role concrete)
	(multislot parts
;+		(comment "The inverse of part_of.  This should be a list of all of the things that claim to be part_of this object.")
		(type INSTANCE)
;+		(allowed-classes LH_Scoop%2FShape RH_Scoop%2FShape)
		(create-accessor read-write))
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Sand-packing)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Approach_beach "Swimming towards the beach. H&E p. 3"
	(is-a Script_phase)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Physical_object)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot parts
;+		(comment "The elements that make up a script.  Somehow it would be nice to fill these automatically with defaults when a script instance is created.")
		(type INSTANCE)
;+		(allowed-classes Swim_towards_beach)
		(create-accessor read-write))
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Loggerhead_nesting_sequence)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot contains
;+		(comment "Events contained within, but not essential to, a larger event.")
		(type INSTANCE)
;+		(allowed-classes Swim_towards_beach Process)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "The part of relation; improvement needed.")
		(type INSTANCE)
;+		(allowed-classes Loggerhead_nesting_sequence)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Ascend_beach "Climbing up the beach. H&E p. 4."
	(is-a Script_phase)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Approach_beach)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Physical_object)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot parts
;+		(comment "The elements that make up a script.  Somehow it would be nice to fill these automatically with defaults when a script instance is created.")
		(type INSTANCE)
;+		(allowed-classes)
		(create-accessor read-write))
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Loggerhead_nesting_sequence)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot contains
;+		(comment "Events contained within, but not essential to, a larger event.")
		(type INSTANCE)
;+		(allowed-classes Quadrupedal_Gait Head-Turn Pause_posture Process)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "The part of relation; improvement needed.")
		(type INSTANCE)
;+		(allowed-classes Loggerhead_nesting_sequence)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Wander_over_beach "The turtle is walking on the beach and presumed to be looking for a nesting site. H&E p. 6."
	(is-a Script_phase)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Ascend_beach)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Physical_object)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot parts
;+		(comment "The elements that make up a script.  Somehow it would be nice to fill these automatically with defaults when a script instance is created.")
		(type INSTANCE)
;+		(allowed-classes Process)
		(create-accessor read-write))
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Loggerhead_nesting_sequence)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot contains
;+		(comment "Events contained within, but not essential to, a larger event.")
		(type INSTANCE)
;+		(allowed-classes Quadrupedal_Gait Pause_posture Process)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "The part of relation; improvement needed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Make_body_pit "Digging the depression where the body will rest during laying. H&E p. 7."
	(is-a Script_phase)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Wander_over_beach)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Physical_object)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot parts
;+		(comment "The elements that make up a script.  Somehow it would be nice to fill these automatically with defaults when a script instance is created.")
		(type INSTANCE)
;+		(allowed-classes Extend_CT_while_making_pit Sand_sweep)
		(create-accessor read-write))
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Loggerhead_nesting_sequence)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot contains
;+		(comment "Events contained within, but not essential to, a larger event.")
		(type INSTANCE)
;+		(allowed-classes Body_Tilt Leg_push Chin_Pull Sweep_Displacement Head-Raised_Pause Process)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "The part of relation; improvement needed.")
		(type INSTANCE)
;+		(allowed-classes Loggerhead_nesting_sequence)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Dig_egg_chamber "Digging the cavity for the eggs using the back legs. H&E p. 9."
	(is-a Script_phase)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Make_body_pit)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Physical_object)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot parts
;+		(comment "The elements that make up a script.  Somehow it would be nice to fill these automatically with defaults when a script instance is created.")
		(type INSTANCE)
;+		(allowed-classes Excavation_sequence)
		(create-accessor read-write))
	(multislot contains
;+		(comment "Events contained within, but not essential to, a larger event.")
		(type INSTANCE)
;+		(allowed-classes Excavation_sequence Process)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "The part of relation; improvement needed.")
		(type INSTANCE)
;+		(allowed-classes Loggerhead_nesting_sequence)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Lay_eggs "Expel eggs into the egg chamber. H&E p. 12."
	(is-a Script_phase)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Dig_egg_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Physical_object)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot parts
;+		(comment "The elements that make up a script.  Somehow it would be nice to fill these automatically with defaults when a script instance is created.")
		(type INSTANCE)
;+		(allowed-classes Drop_egg)
		(create-accessor read-write))
	(multislot contains
;+		(comment "Events contained within, but not essential to, a larger event.")
		(type INSTANCE)
;+		(allowed-classes Drop_egg)
		(create-accessor read-write))
	(single-slot count
;+		(comment "An enumeration related to the outcome of an event.  Does not directly specify an integer value.")
		(type INSTANCE)
;+		(allowed-classes Egg_count)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "The part of relation; improvement needed.")
		(type INSTANCE)
;+		(allowed-classes Loggerhead_nesting_sequence)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Fill_and_pack_chamber "Fill the egg cavity with sand and pack it down.  H&E p. 15."
	(is-a Script_phase)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Lay_eggs)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Physical_object)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot parts
;+		(comment "The elements that make up a script.  Somehow it would be nice to fill these automatically with defaults when a script instance is created.")
		(type INSTANCE)
;+		(allowed-classes Process)
		(create-accessor read-write))
	(multislot contains
;+		(comment "Events contained within, but not essential to, a larger event.")
		(type INSTANCE)
;+		(allowed-classes Extend_head Sand_pulling Sand-packing Posterior_Shift_Inward_during_Fill Posterior_Shift_Outward_during_Fill Prostrate_Pause)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "The part of relation; improvement needed.")
		(type INSTANCE)
;+		(allowed-classes Loggerhead_nesting_sequence)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Cover_body_pit "Fill the body pit with sand. H&E p. 18."
	(is-a Script_phase)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Fill_and_pack_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Physical_object)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot parts
;+		(comment "The elements that make up a script.  Somehow it would be nice to fill these automatically with defaults when a script instance is created.")
		(type INSTANCE)
;+		(allowed-classes Process)
		(create-accessor read-write))
	(multislot contains
;+		(comment "Events contained within, but not essential to, a larger event.")
		(type INSTANCE)
;+		(allowed-classes Process Throwing_motions Body_Move_Forward Prostrate_Pause Sand_smoothing Body_rotation)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "The part of relation; improvement needed.")
		(type INSTANCE)
;+		(allowed-classes Loggerhead_nesting_sequence)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Return_to_surf "Walk down the beach to the surfline. H&E p.20."
	(is-a Script_phase)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Cover_body_pit)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Physical_object)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot parts
;+		(comment "The elements that make up a script.  Somehow it would be nice to fill these automatically with defaults when a script instance is created.")
		(type INSTANCE)
;+		(allowed-classes Process)
		(create-accessor read-write))
	(multislot contains
;+		(comment "Events contained within, but not essential to, a larger event.")
		(type INSTANCE)
;+		(allowed-classes Process Synchronous_Forelimb_Thrust Quadrupedal_Gait Head-Raised_Pause Prostrate_Pause)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "The part of relation; improvement needed.")
		(type INSTANCE)
;+		(allowed-classes Loggerhead_nesting_sequence)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Depart_from_beach "Enter water and swim away. H&E p. 21."
	(is-a Script_phase)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Return_to_surf)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Physical_object)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot parts
;+		(comment "The elements that make up a script.  Somehow it would be nice to fill these automatically with defaults when a script instance is created.")
		(type INSTANCE)
;+		(allowed-classes Swim_from_beach)
		(create-accessor read-write))
	(multislot contains
;+		(comment "Events contained within, but not essential to, a larger event.")
		(type INSTANCE)
;+		(allowed-classes Head_Raise Swim_from_beach)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "The part of relation; improvement needed.")
		(type INSTANCE)
;+		(allowed-classes Loggerhead_nesting_sequence)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Return_on_same_track "Return to water, following same course as in ascent. H&E p. 5."
	(is-a Script_phase)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Physical_object)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot parts
;+		(comment "The elements that make up a script.  Somehow it would be nice to fill these automatically with defaults when a script instance is created.")
		(type INSTANCE)
;+		(allowed-classes Process)
		(create-accessor read-write))
	(multislot contains
;+		(comment "Events contained within, but not essential to, a larger event.")
		(type INSTANCE)
;+		(allowed-classes Quadrupedal_Gait Pause_posture)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Initial_sand-flicking "The portion of egg chamber digging that preceeds the 18 state Excavation_sequence. H&E p. 9."
	(is-a Script_phase)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Part_of_Organism)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot parts
;+		(comment "The elements that make up a script.  Somehow it would be nice to fill these automatically with defaults when a script instance is created.")
		(type INSTANCE)
;+		(allowed-classes Process)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "The part of relation; improvement needed.")
		(type INSTANCE)
;+		(allowed-classes Dig_egg_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Vocalization "Sound production associated with the expulsion of air."
	(is-a Expel)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "The vocal apparatus (larynx?) of the loggerhead - maybe just the trachea?")
		(type INSTANCE)
;+		(allowed-classes Part_of_Organism)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Air)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Organism)
		(create-accessor read-write)))

(defclass Laying_Grunt "Brief, soft noise; vaguely grunt-like. H&E p. 13."
	(is-a Vocalization)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Physical_object)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Lay_eggs)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
		(create-accessor read-write)))

(defclass Drop_egg "0-4 eggs are expeled through the cloacal tube, usually into a waiting pit. H&E p. 12,13."
	(is-a Expel)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Cloacal_tube)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Lay_eggs)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot simultaneous
;+		(comment "Two intervals that share start and end points (?).  This should be a symmetric relation.")
		(type INSTANCE)
;+		(allowed-classes Laying_Grunt)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Loggerhead_egg Mucus)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass Single_hind_flipper_raise "The individual rotations of the flippers in Hind_Flipper_Raise (inferred from group).  ...appears to be primarily a rotation of the foot about the ankle joint.  H&E p. 12."
	(is-a Rotation)
	(role concrete)
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Hind_flipper)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Hind_Flipper_Raise)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Hind_flipper)
		(create-accessor read-write))
	(multislot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
		(create-accessor read-write)))

(defclass Lefthind_flipper_raise "Inferred from parent H&E p. 12."
	(is-a Single_hind_flipper_raise)
	(role concrete)
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Left_Hind_Flipper)
		(create-accessor read-write))
	(multislot simultaneous
;+		(comment "Two intervals that share start and end points (?).  This should be a symmetric relation.")
		(type INSTANCE)
;+		(allowed-classes Righthind_flipper_raise)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Left_Hind_Flipper)
		(create-accessor read-write)))

(defclass Righthind_flipper_raise "Inferred from parent H&E p. 12."
	(is-a Single_hind_flipper_raise)
	(role concrete)
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Right_Hind_Flipper)
		(create-accessor read-write))
	(multislot simultaneous
;+		(comment "Two intervals that share start and end points (?).  This should be a symmetric relation.")
		(type INSTANCE)
;+		(allowed-classes Lefthind_flipper_raise)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Right_Hind_Flipper)
		(create-accessor read-write)))

(defclass Sand_Sweeping%2FFlicking "Flipper movements involved sand moving; H&E p. 9."
	(is-a Folding)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Limb)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Sand)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Single_hindlimb_flick "Flicking denotes moving sand with a forward movement of the limb. H&E p. 9."
	(is-a Sand_Sweeping%2FFlicking)
	(role abstract)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Hind_leg)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Dig_egg_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "The part of relation; improvement needed.")
		(type INSTANCE)
;+		(allowed-classes Excavation_sequence)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass LH_flick "Flicking motion with the left hindleg. H&E p. 9-10."
	(is-a Single_hindlimb_flick)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes RH_posterolateral_dump)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot precedes
;+		(comment "When a temporal interval ends before another starts.")
		(type INSTANCE)
;+		(allowed-classes Right_Shift_Inward_during_Dig)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Left_hind_leg)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "The part of relation; improvement needed.")
		(type INSTANCE)
;+		(allowed-classes Excavation_sequence Alternate_hindlimb_flick)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass RH_flick "Flicking motion with the right hindlimb. inferred from H&E p. 9-10."
	(is-a Single_hindlimb_flick)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes LH_posterolateral_dump)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot precedes
;+		(comment "When a temporal interval ends before another starts.")
		(type INSTANCE)
;+		(allowed-classes Left_Shift_Inward_during_Dig)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Right_hind_leg)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "The part of relation; improvement needed.")
		(type INSTANCE)
;+		(allowed-classes Excavation_sequence Alternate_hindlimb_flick)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Forelimb_sweep "...forelimbs... are raised and brought nearly in front of the head before scraping into the sand... moved nearly to the side of the animal, leaving there a pile of swept sand.  H&E p. 7,8."
	(is-a Sand_Sweeping%2FFlicking)
	(role abstract)
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Sand)
		(create-accessor read-write)))

(defclass LF_sweep "Inferred from parent.  H&E p. 7,8"
	(is-a Forelimb_sweep)
	(role concrete)
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Synchronous_Forelimb_Sweep Diagonally_Opposite_Sweep)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass RF_sweep "Inferred from parent. H&E p. 7,8."
	(is-a Forelimb_sweep)
	(role concrete)
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Synchronous_Forelimb_Sweep Diagonally_Opposite_Sweep)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Hindlimb_sweep "...hindlimbs are similarly raised and brought nearly to the side of teh carapace before sweeping the sand rearward... H&E p. 7,8."
	(is-a Sand_Sweeping%2FFlicking)
	(role concrete))

(defclass RH_sweep "Inferred from parent. H&E p. 7,8."
	(is-a Hindlimb_sweep)
	(role concrete)
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Diagonally_Opposite_Sweep Alternate_hindlimb_sweep)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass LH_sweep "Inferred from parent. H&E p. 7,8."
	(is-a Hindlimb_sweep)
	(role concrete)
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Diagonally_Opposite_Sweep Alternate_hindlimb_sweep)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Move_head "Turning, extending, etc. the head of the animal."
	(is-a Folding)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Neck)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Head)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Head_Raise "...raise their heads nearly vertical out the water after swimming out about 5 m from shore.  H&E p. 21."
	(is-a Move_head)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Neck)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Depart_from_beach)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Head-Turn "...the head is (often) turned from side to side.  H&E p. 4."
	(is-a Move_head)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Neck)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Head-Horizontal_Pause)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Chin_push "...it appears that her chin is pressed downward to support some mass, particularlly during alternate sweeps of the hindlimbs...   H&E p. 7"
	(is-a Folding)
	(role concrete)
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Chin)
		(create-accessor read-write))
	(multislot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
		(create-accessor read-write)))

(defclass Chin_Pull "Female presses chin into sand...  H&E p. 8."
	(is-a Folding)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Chin Limb)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Make_body_pit)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Hindlimb_Scoop%2FPull "The action of a single leg during either the synchronous or alternate hindlimb scoop/pull. H&E p. 15."
	(is-a Folding)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Hind_leg)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Synchronous_HL_Scoop%2FPull Alternate_HL_Scoop%2FPull Single_Hindlimb_Pull)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Sand)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass LH_Scoop%2FPull "Left hindlimb version of limb scoop/pull.  H&E p. 15, 16."
	(is-a Hindlimb_Scoop%2FPull)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Left_hind_leg)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "The part of relation; improvement needed.")
		(type INSTANCE)
;+		(allowed-classes Synchronous_HL_Scoop%2FPull Alternate_HL_Scoop%2FPull Single_Hindlimb_Pull)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass RH_Scoop%2FPull "Right hindlimb version of limb scoop/pull. H&E p. 15,16."
	(is-a Hindlimb_Scoop%2FPull)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Right_hind_leg)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "The part of relation; improvement needed.")
		(type INSTANCE)
;+		(allowed-classes Single_Hindlimb_Pull Synchronous_HL_Scoop%2FPull Alternate_HL_Scoop%2FPull)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Pull_shadowing "This is the motion of the contralateral limb during Single_Hindlimb_Pull, H&E p. 15."
	(is-a Folding)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Limb)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Sand_pulling)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass LH_pull_shadowing "Shadow movement of the left hindlimb while the right hindlimb pulls sand.  H&E p. 15."
	(is-a Pull_shadowing)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Left_hind_leg)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass RH_pull_shadowing "Shadow movement of the right hindlimb while the left hindlimb pulls sand. H&E p. 15."
	(is-a Pull_shadowing)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Right_hind_leg)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Sand_Throwing "...far more vigorous than sand-pulling and give the impression of being even more vigorous than the sand-sweeping movements.  ...all throwing is done by digging the anterior edge into the substrate and moving sand backward with the flippers ventral surface H&E p. 18."
	(is-a Folding)
	(role concrete)
	(multislot instrument
;+		(comment "Choice is unclear.")
		(type INSTANCE)
;+		(allowed-classes Flipper Limb)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Sand)
		(create-accessor read-write))
	(multislot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
		(create-accessor read-write)))

(defclass Forelimb_throw "Throwing motion by a forelimb H&E p. 18,19."
	(is-a Sand_Throwing)
	(role concrete)
	(multislot instrument
;+		(comment "Choice is unclear.")
		(type INSTANCE)
;+		(allowed-classes Front_flipper Front_leg)
		(create-accessor read-write)))

(defclass Left_forelimb_throw "Inferred from parent. H&E p. 18,19."
	(is-a Forelimb_throw)
	(role concrete)
	(multislot instrument
;+		(comment "Choice is unclear.")
		(type INSTANCE)
;+		(allowed-classes Front_flipper Left_front_leg)
		(create-accessor read-write)))

(defclass Right_forelimb_throw "Inferred from parent. H&E p. 18,19."
	(is-a Forelimb_throw)
	(role concrete)
	(multislot instrument
;+		(comment "Choice is unclear.")
		(type INSTANCE)
;+		(allowed-classes Right_front_leg Front_flipper)
		(create-accessor read-write)))

(defclass Hindlimb_throw "Throwing motion by hindlimb H&E p. 18,19."
	(is-a Sand_Throwing)
	(role concrete)
	(multislot instrument
;+		(comment "Choice is unclear.")
		(type INSTANCE)
;+		(allowed-classes Hind_flipper Hind_leg)
		(create-accessor read-write)))

(defclass Left_hindlimb_throw "Inferred from parent H&E p. 18,19."
	(is-a Hindlimb_throw)
	(role concrete)
	(multislot instrument
;+		(comment "Choice is unclear.")
		(type INSTANCE)
;+		(allowed-classes Left_Hind_Flipper Left_hind_leg)
		(create-accessor read-write)))

(defclass Right_hindlimb_throw "Inferred from parent.  H&E p. 18,19."
	(is-a Hindlimb_throw)
	(role concrete)
	(multislot instrument
;+		(comment "Choice is unclear.")
		(type INSTANCE)
;+		(allowed-classes Right_Hind_Flipper Right_hind_leg)
		(create-accessor read-write)))

(defclass Move_leg "Move one of the legs."
	(is-a Folding)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Limb)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Limb Stuff)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Leg_push "A pushing motion with a limb. See Limb_Push, which actually refers to body displacements caused by this action. H&E p. 8."
	(is-a Move_leg)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Limb)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Push_backward "Pushing in a backward direction with a limb, e.g., as part of quadrupedal gait."
	(is-a Leg_push)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Limb)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Push_down "Cause of Posterior_Tilt_Down_during_fill_egg_chamber H&E p. 17."
	(is-a Leg_push)
	(role concrete)
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Front_leg)
		(create-accessor read-write)))

(defclass Hind_Limb_Retract_Up "the flipper is retracted up out of the hole.  H&E p. 11."
	(is-a Move_leg)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Scoop)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Hind_leg)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Dig_egg_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot simultaneous
;+		(comment "Two intervals that share start and end points (?).  This should be a symmetric relation.")
		(type INSTANCE)
;+		(allowed-classes Posterior_Tilt_Up)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Excavation_sequence)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Hind_leg)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass RH_retract_up "Inferred from parent. H&E p. 11."
	(is-a Hind_Limb_Retract_Up)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes RH_Scoop)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot precedes
;+		(comment "When a temporal interval ends before another starts.")
		(type INSTANCE)
;+		(allowed-classes RH_Extend_out)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Right_hind_leg)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Right_hind_leg)
		(create-accessor read-write)))

(defclass LH_retract_up "Inferred from parent. H&E p. 11."
	(is-a Hind_Limb_Retract_Up)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes LH_Scoop)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot precedes
;+		(comment "When a temporal interval ends before another starts.")
		(type INSTANCE)
;+		(allowed-classes LH_Extend_out)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Left_hind_leg)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Left_hind_leg)
		(create-accessor read-write)))

(defclass Scoop%2FShape "Similar to scoop/pull, except the hindlimbs vertically oriented ventral surface curls around the sand above the hole, shaping it into a pile. H&E p. 16."
	(is-a Move_leg)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Limb)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass LH_Scoop%2FShape "Inferred from parent H&E p. 16."
	(is-a Scoop%2FShape)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Left_hind_leg)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes LH%2FRH_Scoop%2FShape)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Sand)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass RH_Scoop%2FShape "Inferred from parent.  H&E p. 16."
	(is-a Scoop%2FShape)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Sand)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Right_hind_leg)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes LH%2FRH_Scoop%2FShape)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Sand)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Hindlimb_sand_pull "The motion of the active limb in Single_ Hindlimb_Pull.  H&E p. 15,16."
	(is-a Move_leg)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Limb)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Sand_pulling)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass LH_pull "Inferred from parent H&E p. 15,16."
	(is-a Hindlimb_sand_pull)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Left_hind_leg)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass RH_pull "Inferred from parent H&E p. 15,16."
	(is-a Hindlimb_sand_pull)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Right_hind_leg)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Packing_action "Superclass of the two packing classes observed during the Sand-packing phase H&E p. 16,17."
	(is-a Move_leg)
	(role concrete)
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Hind_leg)
		(create-accessor read-write))
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Sand-packing)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Sand)
		(create-accessor read-write)))

(defclass Foot-packing "Sand packing actions performed with the foot. H&E p. 16."
	(is-a Packing_action)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Hind_leg)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Sand)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Foot_Grind "Foot is rotated to the anterior edge is on the sand, usually accompanied by circular grinding. H&E p. 17."
	(is-a Foot-packing)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Hind_leg)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Heel_Grind "The bend of the heel carries the force to the sand.  H&E p. 17."
	(is-a Foot-packing)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Hind_leg)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Ventral_Pack "flipper pushes downward on the sand with ventral surface. H&E p. 16."
	(is-a Foot-packing)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Hind_leg)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Knee-packing "Sand packing actions performed with the knee. H&E p. 17."
	(is-a Packing_action)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Hind_leg)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Kneading_Pack "Presses alternately with hindlimbs. H&E p. 17."
	(is-a Knee-packing)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Hind_leg)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Kneeling_Pack "brings hindlimbs close together and raises posterior end by pushing downwared.  H&E p. 17."
	(is-a Knee-packing)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Hind_leg)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Kneeling_Side-Step "Side stepping across the top of the egg chamber. H&E p. 17."
	(is-a Knee-packing)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Hind_leg)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Quadrapedal_step "The step patterns in the quadrapedal_gait sequence.  H&E p. 4.  Prehaps, considering the actor constraint, this should be contained in Loggerhead_beach_gait."
	(is-a Move_leg)
	(role concrete)
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Quadrupedal_Gait)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Move_LF_in_quadrapedal_gait "The specific action of moving the left front leg in the quadrapedal gait. H&E p. 4."
	(is-a Quadrapedal_step)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Move_LH_in_quadrapedal_gait)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Left_front_leg)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "The part of relation; improvement needed.")
		(type INSTANCE)
;+		(allowed-classes Quadrupedal_Gait)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Limb)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Move_LH_in_quadrapedal_gait "The specific action of moving the left front leg in the quadrapedal gait. H&E p. 4."
	(is-a Quadrapedal_step)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Move_RF_in_quadrapedal_gait)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Left_hind_leg)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "The part of relation; improvement needed.")
		(type INSTANCE)
;+		(allowed-classes Quadrupedal_Gait)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Limb)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Move_RF_in_quadrapedal_gait "The specific action of moving the right front leg in the quadrapedal gait.  H&E p. 4."
	(is-a Quadrapedal_step)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Move_RH_in_quadrapedal_gait)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Right_front_leg)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "The part of relation; improvement needed.")
		(type INSTANCE)
;+		(allowed-classes Quadrupedal_Gait)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Limb)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Move_RH_in_quadrapedal_gait "The specifice action of moving the right hind leg in quadrapedal gai.H&E p. 4."
	(is-a Quadrapedal_step)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Move_LF_in_quadrapedal_gait)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Right_hind_leg)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "The part of relation; improvement needed.")
		(type INSTANCE)
;+		(allowed-classes Quadrupedal_Gait)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Limb)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Swimming_motion "Swimming stroke by one of the front flippers.  H&E p. 21."
	(is-a Move_leg)
	(role concrete)
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Swim)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Move_LF_in_swimming "A single swimming stroke with the left front leg (flipper)."
	(is-a Swimming_motion)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Left_front_leg)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Move_RF_in_swimming)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "The part of relation; improvement needed.")
		(type INSTANCE)
;+		(allowed-classes Swim)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Limb)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Move_RF_in_swimming "The specific act of moving the right front leg (flipper) in swimming."
	(is-a Swimming_motion)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Right_front_leg)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Move_LF_in_swimming)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "The part of relation; improvement needed.")
		(type INSTANCE)
;+		(allowed-classes Swim)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Limb)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Scrape%2FDig_unit "The hind flipper digs by scraping along the ipsilateral edge of the chamber with a downward movement. H&E p. 10."
	(is-a Folding)
	(role concrete)
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Left_hind_leg)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Scrape%2FDig)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Sand)
		(create-accessor read-write))
	(multislot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
		(create-accessor read-write)))

(defclass LH_Scrape%2FDig_unit "Inferred from parent.  H&E p. 10."
	(is-a Scrape%2FDig_unit)
	(role concrete))

(defclass RH_Scrape%2FDig_unit "Inferred from parent.  H&E p. 10."
	(is-a Scrape%2FDig_unit)
	(role concrete)
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes RH_Scrape%2FDig)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Scoop "...the hindlimb scoops up the loose sand by curling the digits around it... H&E p. 11."
	(is-a Folding)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Scrape%2FDig)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot precedes
;+		(comment "When a temporal interval ends before another starts.")
		(type INSTANCE)
;+		(allowed-classes Hind_Limb_Retract_Up)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Digit)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Dig_egg_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Excavation_sequence)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Sand)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass LH_Scoop "Inferred from parent H&E p. 11."
	(is-a Scoop)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes LH_Scrape%2FDig)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot precedes
;+		(comment "When a temporal interval ends before another starts.")
		(type INSTANCE)
;+		(allowed-classes LH_retract_up)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Digit)
		(create-accessor read-write))
	(multislot simultaneous
;+		(comment "Two intervals that share start and end points (?).  This should be a symmetric relation.")
		(type INSTANCE)
;+		(allowed-classes Process)
		(create-accessor read-write)))

(defclass RH_Scoop "Inferred from parent. H&E p. 11."
	(is-a Scoop)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes RH_Scrape%2FDig)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot precedes
;+		(comment "When a temporal interval ends before another starts.")
		(type INSTANCE)
;+		(allowed-classes RH_retract_up)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Contraction "A decrease in diameter or width."
	(is-a Shape_change)
	(role abstract)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Part_of_Organism)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
		(create-accessor read-write)))

(defclass Throat_Raise "The skin of the throat is raised during a Head-horizontal pause.  H&E p. 4."
	(is-a Contraction)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Throat)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Head-Horizontal_Pause)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Throat)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Extension "An increase in length or distance from the center of the body."
	(is-a Shape_change)
	(role abstract)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Part_of_Organism)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
		(create-accessor read-write)))

(defclass Extend_cloacal_tube "The cloacal tube is extended.  In all cases here, extended downward either to touch the substrate or into the egg chamber. H&E p. 8,12."
	(is-a Extension)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Cloacal_tube)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Cloacal_tube)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
		(create-accessor read-write)))

(defclass Extend_CT_while_making_pit "the cloacal tube was extended to touch the substrate and then raised again.  H&E p. 8."
	(is-a Extend_cloacal_tube)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Cloacal_tube)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Make_body_pit)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Make_body_pit)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Cloacal_tube)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
		(create-accessor read-write)))

(defclass Extend_CT_during_laying "Just before an egg-drop, the cloacal tube Extends downward... H&E p. 12."
	(is-a Extend_cloacal_tube)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Event)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot precedes
;+		(comment "When a temporal interval ends before another starts.")
		(type INSTANCE)
;+		(allowed-classes Drop_egg)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Physical_object)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Lay_eggs)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Lay_eggs)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Organism)
		(create-accessor read-write)))

(defclass Extend_neck "The neck bulges upward at the proximal end, and the wave of upward extension travels distally to the head.  H&E p. 13."
	(is-a Extension)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instrument
;+		(comment "The instrument and object are one and the same neck.")
		(type INSTANCE)
;+		(allowed-classes Neck)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Lay_eggs)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Neck)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Organism)
		(create-accessor read-write)))

(defclass Extend_head "As soon as laying is complete, the female extends her head (start of fill and pack) H&E p. 15."
	(is-a Extension)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Neck)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Fill_and_pack_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Head)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Hindlimb_Extend_Down "Portion of dig the egg chamber.  Hindlimb is extended down into the chamber, ... ventral surface is facing the animal's midline.  H&E p. 10."
	(is-a Extension)
	(role abstract)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Posterior_Shift_Inward)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Hind_leg)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Dig_egg_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Excavation_sequence)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Hind_leg)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass LH_Extend_Down "Inferred from parent. H&E p. 10."
	(is-a Hindlimb_Extend_Down)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Right_Shift_Inward_during_Dig)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot precedes
;+		(comment "When a temporal interval ends before another starts.")
		(type INSTANCE)
;+		(allowed-classes Posterior_Tilt_Down_with_LH_extended)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Left_hind_leg)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Left_hind_leg)
		(create-accessor read-write)))

(defclass RH_Extend_Down "Inferred from parent. H&E p. 10."
	(is-a Hindlimb_Extend_Down)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Left_Shift_Inward_during_Dig)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot precedes
;+		(comment "When a temporal interval ends before another starts.")
		(type INSTANCE)
;+		(allowed-classes Posterior_Tilt_Down_with_RH_extended)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Right_hind_leg)
		(create-accessor read-write))
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Dig_egg_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Excavation_sequence)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Right_hind_leg)
		(create-accessor read-write)))

(defclass Hindlimb_Extend_out "The distal part of the flipper is held upside down as it is extended posterolaterally behind the turtle.  H&E p. 10,11.\n  This extension might more properly be classified as a folding."
	(is-a Extension)
	(role abstract)
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Hind_leg)
		(create-accessor read-write))
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Dig_egg_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot simultaneous
;+		(comment "Two intervals that share start and end points (?).  This should be a symmetric relation.")
		(type INSTANCE)
;+		(allowed-classes Posterior_Shift_Outward)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Excavation_sequence)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Hind_leg)
		(create-accessor read-write)))

(defclass LH_Extend_out "Inferred from parent. H&E p. 11."
	(is-a Hindlimb_Extend_out)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes LH_retract_up)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot precedes
;+		(comment "When a temporal interval ends before another starts.")
		(type INSTANCE)
;+		(allowed-classes LH_posterolateral_dump)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Left_hind_leg)
		(create-accessor read-write))
	(multislot simultaneous
;+		(comment "Two intervals that share start and end points (?).  This should be a symmetric relation.")
		(type INSTANCE)
;+		(allowed-classes Left_Shift_Outward_during_Dig)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Left_hind_leg)
		(create-accessor read-write)))

(defclass RH_Extend_out "Inferred from parent H&E p. 11."
	(is-a Hindlimb_Extend_out)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes RH_retract_up)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot precedes
;+		(comment "When a temporal interval ends before another starts.")
		(type INSTANCE)
;+		(allowed-classes RH_posterolateral_dump)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Right_hind_leg)
		(create-accessor read-write))
	(multislot simultaneous
;+		(comment "Two intervals that share start and end points (?).  This should be a symmetric relation.")
		(type INSTANCE)
;+		(allowed-classes Right_Shift_Outward_during_Dig)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Right_hind_leg)
		(create-accessor read-write)))

(defclass Retraction "Opposite of Extension"
	(is-a Shape_change)
	(role abstract))

(defclass Retract_cloacal_tube "the cloacal tube was...then raised again H&E p. 8 [not named].  H&E Table 6."
	(is-a Retraction)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Cloacal_tube)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Make_body_pit Lay_eggs)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Dig_egg_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Cloacal_tube)
		(create-accessor read-write))
	(multislot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
		(create-accessor read-write)))

(defclass Retract_neck "...the head pulls backward to its original position.  H&E p. 13."
	(is-a Retraction)
	(role concrete)
	(single-slot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Neck)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Lay_eggs)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Neck)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass Expansion "Increase in diameter or width."
	(is-a Shape_change)
	(role abstract))

(defclass Throat_Lower "The skin of the throat is raised during a Head-horizontal pause.  H&E p. 4."
	(is-a Expansion)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Throat)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Throat)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Displacement "The actor is physically displaced as a side effect of some other action."
	(is-a Effect_of_action)
	(role concrete)
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Body_Move_Forward "H&E p. 20 describes subclasses."
	(is-a Displacement)
	(role concrete)
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Fill_and_pack_chamber Make_body_pit Cover_body_pit)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Body)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Inching "Inching seems to be due primarily to forward components of sand-throwing acts... H&E p. 20."
	(is-a Body_Move_Forward)
	(role concrete)
	(single-slot contained_in
;+		(comment "Added Make_body_pit because of cross reference from 8di to 4c in H&E table 6 p. 25.")
		(type INSTANCE)
;+		(allowed-classes Cover_body_pit Make_body_pit)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Lurching "Lurching forward results from pulling with the forelimbs and possibly the chin.  H&E p. 20."
	(is-a Body_Move_Forward)
	(role concrete)
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Cover_body_pit)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Displacement_from_chin_pull "presses her chin into the skin and pushes briefly with the hindlimbs to effect a slight movement forward to obliquely forward H&E p. 8."
	(is-a Body_Move_Forward)
	(role concrete)
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Make_body_pit)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot caused_by
;+		(comment "This slot is a causal link back from an event to another event.  Members of Event_by_action ought to specify the action that got them added to this class.")
		(type INSTANCE)
;+		(allowed-classes Chin_Pull Leg_push)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass Body_Move_Forward_during_fill_and_pack "a subtle movement of the body forward and sometimes obliquely to one side.  It is difficult to tell how this movement takes place.  H&E p. 17"
	(is-a Body_Move_Forward)
	(role concrete)
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Fill_and_pack_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Body_rotation "The posterior end of the body is rotated in a lateral direction."
	(is-a Effect_of_action)
	(role concrete)
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Body)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Posterior_Shift_Inward "Rotation of body around vertical axis, defined in terms of position and orientation of posterior end of body.  Abstracted from children."
	(is-a Body_rotation)
	(role abstract)
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Dig_egg_chamber Fill_and_pack_chamber Cover_body_pit)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot precedes
;+		(comment "When a temporal interval ends before another starts.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Posterior_Shift_Inward_during_Dig "...the body shifts so as to position [the opposite hindlimb] over the egg chamber.  Must be due to actions of the forelimbs.  H&E p. 10.  H&E collapsed this with its sibling."
	(is-a Posterior_Shift_Inward)
	(role abstract)
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Dig_egg_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Single_hindlimb_flick)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot precedes
;+		(comment "When a temporal interval ends before another starts.")
		(type INSTANCE)
;+		(allowed-classes Hindlimb_Extend_Down)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Left_Shift_Inward_during_Dig "Posterior shift outward enabling digging by the right flipper.  Inferred from parent.  H&E p. 10."
	(is-a Posterior_Shift_Inward_during_Dig)
	(role concrete)
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Excavation_sequence)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes RH_flick)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot precedes
;+		(comment "When a temporal interval ends before another starts.")
		(type INSTANCE)
;+		(allowed-classes RH_Extend_Down)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Right_Shift_Inward_during_Dig "Posterior shift outward enabling digging by the left flipper.  Inferred from parent.  H&E p. 10."
	(is-a Posterior_Shift_Inward_during_Dig)
	(role concrete)
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes LH_flick)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot precedes
;+		(comment "When a temporal interval ends before another starts.")
		(type INSTANCE)
;+		(allowed-classes LH_Extend_Down)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Posterior_Shift_Inward_during_Fill "the posterior shifts in the direction of the extended hindlimb. H&E p. 17.  H&E collapsed this with its sibling."
	(is-a Posterior_Shift_Inward)
	(role abstract)
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Fill_and_pack_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Left_Shift_Inward_during_Fill "Inferred from parent.  H&E p. 17."
	(is-a Posterior_Shift_Inward_during_Fill)
	(role concrete))

(defclass Right_Shift_Inward_during_Fill "Inferred from parent.  H&E p. 17."
	(is-a Posterior_Shift_Inward_during_Fill)
	(role concrete))

(defclass Posterior_Shift_Outward "The body rotates around a vertical axis, described in terms of the position and orientation of the posterior end of the body.  H&E p. 10,17."
	(is-a Body_rotation)
	(role concrete)
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Cover_body_pit Dig_egg_chamber Fill_and_pack_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Posterior_Shift_Outward_during_Dig "Refined from parent. H&E p. 10,11.  H&E collapsed this with its sibling."
	(is-a Posterior_Shift_Outward)
	(role concrete)
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Dig_egg_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot simultaneous
;+		(comment "Two intervals that share start and end points (?).  This should be a symmetric relation.")
		(type INSTANCE)
;+		(allowed-classes Hindlimb_Extend_out)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Dig_egg_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Left_Shift_Outward_during_Dig "Inferred from parent.  H&E p. 10,11."
	(is-a Posterior_Shift_Outward_during_Dig)
	(role concrete)
	(multislot simultaneous
;+		(comment "Two intervals that share start and end points (?).  This should be a symmetric relation.")
		(type INSTANCE)
;+		(allowed-classes LH_Extend_out)
		(create-accessor read-write)))

(defclass Right_Shift_Outward_during_Dig "Inferred from parent H&E p. 10,11."
	(is-a Posterior_Shift_Outward_during_Dig)
	(role concrete)
	(multislot simultaneous
;+		(comment "Two intervals that share start and end points (?).  This should be a symmetric relation.")
		(type INSTANCE)
;+		(allowed-classes RH_Extend_out)
		(create-accessor read-write)))

(defclass Posterior_Shift_Outward_during_Fill "H&E p. 17.  H&E collapsed this with its sibling."
	(is-a Posterior_Shift_Outward)
	(role concrete)
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Fill_and_pack_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Left_Shift_Outward_during_Fill "Inferred from parent H&E p. 17."
	(is-a Posterior_Shift_Outward_during_Fill)
	(role concrete))

(defclass Right_Shift_Outward_during_Fill "Inferred from parent H&E p. 17."
	(is-a Posterior_Shift_Outward_during_Fill)
	(role concrete))

(defclass Sweep_Displacement "...forward or rotational movement of the body occurs as an apparent concomitant of the sand-sweeping... H&E p. 8."
	(is-a Displacement Body_rotation)
	(role concrete)
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Body)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot caused_by
;+		(comment "This slot is a causal link back from an event to another event.  Members of Event_by_action ought to specify the action that got them added to this class.")
		(type INSTANCE)
;+		(allowed-classes Sand_sweep)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Limb_Push "...a few movements of the body caused by brief pushing of one or more limbs... being lateral, forward or rotational.  H&E p. 8."
	(is-a Displacement Body_rotation)
	(role concrete)
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Make_body_pit)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Body)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot caused_by
;+		(comment "This slot is a causal link back from an event to another event.  Members of Event_by_action ought to specify the action that got them added to this class.")
		(type INSTANCE)
;+		(allowed-classes Leg_push)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass Body_Tilt "The body tilts out of the horizontal plane; generally the posterior tilts towards or out of the egg chamber."
	(is-a Effect_of_action)
	(role concrete)
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Posterior_Tilt_Down "... the push by the chin helps depress the body posteriorly. H&E p. 7,8."
	(is-a Body_Tilt)
	(role concrete)
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Make_body_pit Dig_egg_chamber Fill_and_pack_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot caused_by
;+		(comment "This slot is a causal link back from an event to another event.  Members of Event_by_action ought to specify the action that got them added to this class.")
		(type INSTANCE)
;+		(allowed-classes Action Chin_push)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Posterior_Tilt_Down_during_make_body_pit "... the push by the chin helps depress the body posteriorly. H&E p. 7,8.  H&E collapsed this with its siblings, though the figures show differences."
	(is-a Posterior_Tilt_Down)
	(role concrete)
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Make_body_pit)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Make_body_pit)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Posterior_Tilt_Down_during_dig_egg_chamber "The whole body ... tilts downward at the rear...; this tilting action is due to the forelimbs (and possibly chin) pushing into the substrate anteriorly.  H&E p. 10.  H&E collapse this with its siblings, though the figures show differences."
	(is-a Posterior_Tilt_Down)
	(role abstract)
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Dig_egg_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Excavation_sequence)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Hindlimb_Extend_Down)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot precedes
;+		(comment "When a temporal interval ends before another starts.")
		(type INSTANCE)
;+		(allowed-classes Scrape%2FDig)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot caused_by
;+		(comment "This slot is a causal link back from an event to another event.  Members of Event_by_action ought to specify the action that got them added to this class.")
		(type INSTANCE)
;+		(allowed-classes Chin_push)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass Posterior_Tilt_Down_with_LH_extended "Inferred from parent (H&E Fig 4d.)"
	(is-a Posterior_Tilt_Down_during_dig_egg_chamber)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes LH_Extend_Down)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot precedes
;+		(comment "When a temporal interval ends before another starts.")
		(type INSTANCE)
;+		(allowed-classes LH_Scrape%2FDig)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Body)
		(create-accessor read-write)))

(defclass Posterior_Tilt_Down_with_RH_extended "Inferred from parent, (reflection of H&E Fig 4d.)"
	(is-a Posterior_Tilt_Down_during_dig_egg_chamber)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes RH_Extend_Down)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot precedes
;+		(comment "When a temporal interval ends before another starts.")
		(type INSTANCE)
;+		(allowed-classes RH_Scrape%2FDig)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Body)
		(create-accessor read-write)))

(defclass Posterior_Tilt_Down_during_fill_and_pack_chamber "occurs during compacting and appears to be the result of the forelimbs and the chin pushing down... H&E p. 19.  H&E collapse this with its siblings though the figures show differences."
	(is-a Posterior_Tilt_Down)
	(role concrete)
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Fill_and_pack_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot caused_by
;+		(comment "This slot is a causal link back from an event to another event.  Members of Event_by_action ought to specify the action that got them added to this class.")
		(type INSTANCE)
;+		(allowed-classes Chin_push Leg_push Push_down)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass Posterior_Tilt_Up "Reverse of Posterior_Tilt_Down; H&E p. 11."
	(is-a Body_Tilt)
	(role concrete)
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Make_body_pit Dig_egg_chamber Fill_and_pack_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Make_body_pit)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Human_disturbance "A haman related event that causes the turtle to abandon the nesting sequence.  Humans are not necessarily the actors here, so leave this as an event."
	(is-a Effect_of_external_agent)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Moved_by_wave_action "An object (e.g., a turtle) is moved by the action of a wave.  H&E p. 4."
	(is-a Effect_of_inanimate_process)
	(role concrete)
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Approach_beach)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Body)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Loss_of_eggs "Eggs are destroyed or depredated."
	(is-a Reproductive_loss)
	(role concrete)
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Loggerhead_egg)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Egg_predation "Eggs are depredated."
	(is-a Loss_of_eggs Effect_of_external_agent)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Loggerhead_egg)
		(create-accessor read-write)))

(defclass Rain_induced_suffication "Eggs fail by sufficating in rain water."
	(is-a Loss_of_eggs)
	(role concrete)
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Loggerhead_egg)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.  Potentially multiple instruments or a kinematic chain may be necessary.  Also see comments for object slot.")
		(type INSTANCE)
;+		(allowed-classes Water)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Loss_of_hatched_young "Hatched young die or are depredated."
	(is-a Reproductive_loss)
	(role concrete)
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Hatchling_predation "Hatched young are depredated."
	(is-a Loss_of_hatched_young Effect_of_external_agent)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Body_part_position "A state defined as a body part being in a certain position"
	(is-a State)
	(role concrete)
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Part_of_Organism)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Foot_plane_horizontal "The feet are parallel with the bottom (or top) of the substrate."
	(is-a Body_part_position)
	(role concrete)
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Flipper)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass HF_trailing_laterally "Trailing the hind feet laterally (while swimming).  H&E p. 3-4 report this in captive (aquarium) loggerheads."
	(is-a Foot_plane_horizontal)
	(role concrete)
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Swim)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Hind_flipper)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Pause_posture "An animal stops moving, holding a characteristic position."
	(is-a Body_part_position)
	(role concrete)
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Head-Horizontal_Pause "A pause where ... the neck raised at a slightly oblique angle such that the head is off the substrate and the chin is held parallel to it. H&E p. 4,5."
	(is-a Pause_posture)
	(role concrete)
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Ascend_beach Wander_over_beach)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot contains
;+		(comment "Events contained within, but not essential to, a larger event.")
		(type INSTANCE)
;+		(allowed-classes Head-Turn Throat_Lower Throat_Raise)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Head)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Head-Raised_Pause "... the neck is at a strongly oblique angle, which may be nearly vertical,and the head is raised noticably such the nostrils are the highest point... H&E p. 4,5."
	(is-a Pause_posture)
	(role concrete)
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Ascend_beach Wander_over_beach Make_body_pit)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Head)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Prostrate_Pause "Pause while the plastron of the turtle is on the substrate, ... the head is lowered so that her chin on or in the sand. H&E p. 4,5."
	(is-a Pause_posture)
	(role concrete)
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Ascend_beach Wander_over_beach Return_to_surf)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Empty_scoop "This is a scoop with the outcome that no sand is brought up.  H&E (p. 11) reports that at least two of these in sucession leads to termination of the Excavation sequence."
	(is-a Body_part_position)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Hind_flipper)
		(create-accessor read-write)))

(defclass Body_support "How (or with what) is the body supported?"
	(is-a State)
	(role concrete)
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot object
;+		(comment "The \"direct\" object slot for an action.  If a turtle uses a flipper to move stand, the flipper is the instrument, which moves the object - sand.  Note: cases of moving a body part may be best treated by assigning the part moved to the object slot, with something more proximal serving as the instrument - move_head ought to be modelled as object:head; instrument:neck.")
		(type INSTANCE)
;+		(allowed-classes Body)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Special case - here instrument specifies the substance (usually) or object supporting the body.")
		(type INSTANCE)
;+		(allowed-classes Tangible)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Support_by_medium "The body weight is entirely supported by the medium (e.g., floating or gliding)."
	(is-a Body_support)
	(role concrete)
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Special case - here instrument specifies the substance (usually) or object supporting the body.")
		(type INSTANCE)
;+		(allowed-classes Stuff)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Bouyed_up_by_water "The body is supported by its bouyancy in water. H&E p.4"
	(is-a Support_by_medium)
	(role concrete)
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Water)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Support_by_substrate "rests on the substrate.  H&E p.4."
	(is-a Body_support)
	(role concrete)
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Vigilence "State of alertness."
	(is-a State)
	(role concrete)
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot object
;+		(comment "The most straightforward, if not always best interpretation - the whole body is in a state of vigilance.")
		(type INSTANCE)
;+		(allowed-classes Body)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Excavation_sequence "The cyclic sequence of 18 actions that constitutes the principle portion of digging the egg chamber. H&E p. 9."
	(is-a Repeating_sequence)
	(role concrete)
	(single-slot normal+termination
;+		(comment "A state that holds when the script is \"successfully completed.\"  This might serve as the basis for reasoning about goals.")
		(type INSTANCE)
;+		(allowed-classes Empty_scoop)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Initial_sand-flicking)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot parts
;+		(comment "The elements that make up a script.  Somehow it would be nice to fill these automatically with defaults when a script instance is created.")
		(type INSTANCE)
;+		(allowed-classes Process)
		(create-accessor read-write))
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot contains
;+		(comment "Events contained within, but not essential to, a larger event.")
		(type INSTANCE)
;+		(allowed-classes Single_hindlimb_flick Posterior_Shift_Inward Hindlimb_Extend_Down Posterior_Tilt_Down Scrape%2FDig Scoop Hind_Limb_Retract_Up Posterior_Tilt_Up Hindlimb_Sand_Dump)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Dig_egg_chamber)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot start
;+		(comment "As described in H&E p. 9.  H&E give no data regarding any lateral preferences.")
		(type INSTANCE)
;+		(allowed-classes Single_hindlimb_flick)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Quadrupedal_Gait "the usual gait of tetrapods, the footfall sequence of which is LH-LF-RH-RF-... H&E p. 4."
	(is-a Action_Pattern Repeating_sequence)
	(role concrete)
	(single-slot distance_traveled
;+		(comment "Measure of change of position resulting from a locomotion event.")
		(type INSTANCE)
;+		(allowed-classes Distance_measure)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Limb)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot parts
;+		(comment "The inverse of part_of.  This should be a list of all of the things that claim to be part_of this object.")
		(type INSTANCE)
;+		(allowed-classes Move_LF_in_quadrapedal_gait Move_RH_in_quadrapedal_gait Move_RF_in_quadrapedal_gait Move_LH_in_quadrapedal_gait)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Tetrapod)
		(create-accessor read-write)))

(defclass Loggerhead_beach_gait "sea turtles are not supported entirely onthe limbs; the loggerhead drags her mass by jerky thrusts.  H&E  p. 4,5."
	(is-a Quadrupedal_Gait)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Limb)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot contained_in
;+		(comment "This slot should definitely behave differently for different classes - for example physical objects and information.")
		(type INSTANCE)
;+		(allowed-classes Ascend_beach Wander_over_beach Return_to_surf Return_on_same_track)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
		(create-accessor read-write)))

(defclass Change_direction "A change of direction with walking on the beach.  H&E p. 5."
	(is-a Loggerhead_beach_gait)
	(role concrete))

(defclass Phototactic_Response "Positive phototactic response reported by H&E p. 21."
	(is-a Change_direction Effect_of_inanimate_process)
	(role concrete)
	(single-slot function_of
;+		(comment "Connects an action to its explantion in terms of a function.")
		(type INSTANCE)
;+		(allowed-classes Phototaxis)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot caused_by
;+		(comment "Caused by light or a change in illumination.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass Turn_to_avoid_obstacle "Veer away from bystanders H&E p. 21.  Although bystanders are agents, in this case generalizing to physical_object is probably the appropriate abstraction."
	(is-a Change_direction Effect_of_inanimate_process)
	(role concrete)
	(single-slot function_of
;+		(comment "Connects an action to its explantion in terms of a function.")
		(type INSTANCE)
;+		(allowed-classes Avoid_an_obstacle)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Turnabout "Change direction.  In H&E, it usually refers to turning around to return to the surf.  H&E first mentions this on page 5."
	(is-a Change_direction)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Physical_object)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot parts
;+		(comment "The elements that make up a script.  Somehow it would be nice to fill these automatically with defaults when a script instance is created.")
		(type INSTANCE)
;+		(allowed-classes Event)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Turn_in_one_spot "Turning around without changing position. H&E p. 5."
	(is-a Turnabout)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Physical_object)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot parts
;+		(comment "The elements that make up a script.  Somehow it would be nice to fill these automatically with defaults when a script instance is created.")
		(type INSTANCE)
;+		(allowed-classes Action)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Wander_over_beach)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Turn_in_small_semi-circle "One manifestation of turning around after ascending the beach. H&E p. 5."
	(is-a Turnabout)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes Event)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Physical_object)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot parts
;+		(comment "The elements that make up a script.  Somehow it would be nice to fill these automatically with defaults when a script instance is created.")
		(type INSTANCE)
;+		(allowed-classes Action)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Loggerhead_nesting_sequence "The top level sequence for female loggerhead nesting. Page 3 is the first mention in H&E of a 10-step sequence within the Ethogram - a modified version of a sequence given in Bustard et al. 1975."
	(is-a Simple_script)
	(role concrete)
	(single-slot follows
;+		(comment "When one interval starts after another ends.")
		(type INSTANCE)
;+		(allowed-classes)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Will usually be a body part, but could be a tool.")
		(type INSTANCE)
;+		(allowed-classes Physical_object)
		(create-accessor read-write))
	(single-slot synchronous
;+		(comment "The idea is two complex or cyclic complex events that maintain phase as they proceed.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot parts
;+		(comment "The elements that make up a script.  Somehow it would be nice to fill these automatically with defaults when a script instance is created.")
		(type INSTANCE)
;+		(allowed-classes)
		(create-accessor read-write))
	(multislot contains
;+		(comment "Events contained within, but not essential to, a larger event.")
		(type INSTANCE)
;+		(allowed-classes Approach_beach Ascend_beach Wander_over_beach Make_body_pit Dig_egg_chamber Lay_eggs Fill_and_pack_chamber Cover_body_pit Return_to_surf Depart_from_beach)
		(create-accessor read-write))
	(single-slot part_of
;+		(comment "This \"part_of\" relation usually implies temporal inclusion.")
		(type INSTANCE)
;+		(allowed-classes Process)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot actor
;+		(comment "An agent (includes living things) causally related to the event termed an action.")
		(type INSTANCE)
;+		(allowed-classes Caretta_caretta)
;+		(cardinality 0 1)
		(create-accessor read-write)))