(in-package "ONTOLINGUA-USER")

(define-theory VT-DOMAIN (VT-DESIGN)
  "------------------

Note: If you're viewing this from the WWW, see the
Sisyphus/VT documentation and
vt-changes.text for
extensive, cross linked documentation.

------------------
NEW VERSION!

This is a new version of VT-domain, reflecting changes suggested at
the 1994 Banff workshop.  The names have changed, among other things.
In each definition where a constant has been renamed, the old name
is provided as an annotation of the form (:formerly-named oldname).
See the file vt-changes.text for the change history.

EVEN NEWER VERSION!

In September, 1994, we did another update based on feedback from the knowledge
acquisition community.  Changes to particular definitions are marked with
annotations using the :issues keyword.  See vt-changes.text for details.

------------------

The VT-DOMAIN theory describes the declarative knowledge 
used by the elevator designer to configure an elevator.
It consists of descriptions of components, which have
attributes subparts, which are other components.  The
theory also specifies constraints on the possible subparts
and attribute values of these components.


The vocabulary used in this theory is defined in the included
theory VT-DESIGN and its included theories.

The contents of this domain theory were produced by
translating from the DIDS knowledge base for VT,
which was developed by Jay Runkel.  Tom Gruber, Jay Runkel,
Greg Olsen, and others designed the minimal ontology that
could account for that domain theory.  As a result, this
ontology does not make many of the distinctions that one
might make about elevator parts and constraints.

")

(in-theory 'VT-DOMAIN)

(define-frame CAR
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF vt-component))
 :template-slots (
  (CAR_CABLE_HANGER_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (CAR_DUCT_AND_WIRING_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (CAR_GUIDESHOE_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (CAR_LANDING_SWITCH_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (CAR_LIMIT_SWITCH_CAM_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (CAR_MAINTENANCE_STATION_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (CAR_SUPPLEMENT_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (HAS-PARAMETER-SLOT
    car_cable_hanger_weight car_duct_and_wiring_weight car_guideshoe_weight car_landing_switch_weight car_limit_switch_cam_weight car_maintenance_station_weight car_supplement_weight)
  (HAS-CONSTRAINT c-10)
  (MODEL-ID
    (Slot-Cardinality 1))))

(define-frame CAR1
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF car))
 :template-slots (
  (CAR_CABLE_HANGER_WEIGHT 30)
  (CAR_DUCT_AND_WIRING_WEIGHT 45)
  (CAR_GUIDESHOE_WEIGHT 18)
  (CAR_LANDING_SWITCH_WEIGHT 20)
  (CAR_LIMIT_SWITCH_CAM_WEIGHT 35)
  (CAR_MAINTENANCE_STATION_WEIGHT 7)
  (HAS-PARAMETER-SLOT
    car_cable_hanger_weight car_duct_and_wiring_weight car_guideshoe_weight car_landing_switch_weight car_limit_switch_cam_weight)
  (MODEL-ID car1)))

(define-frame CAR_BUFFER_MODEL
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF vt-component))
 :template-slots (
  (CAR_BUFFER_FOOTING_CHANNEL_HEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CAR_BUFFER_HEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CAR_BUFFER_LOAD_MAXIMUM
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (CAR_BUFFER_LOAD_MINIMUM
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (CAR_BUFFER_STROKE
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (HAS-PARAMETER-SLOT
    car_buffer_footing_channel_height car_buffer_height car_buffer_load_maximum car_buffer_load_minimum car_buffer_stroke)
  (MODEL-ID
    (Slot-Cardinality 1)))
 :issues ((:formerly-named carbuffer)
          (:source
           "The Yost document, under \"CAR_BUFFER_MODEL\"")))

(define-frame CAR_BUFFER_MODEL_OH1
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF car_buffer_model))
 :template-slots (
  (CAR_BUFFER_FOOTING_CHANNEL_HEIGHT 3.5)
  (CAR_BUFFER_HEIGHT 28.75)
  (CAR_BUFFER_LOAD_MAXIMUM 11000)
  (CAR_BUFFER_LOAD_MINIMUM 2900)
  (CAR_BUFFER_STROKE 8.25
    (Slot-Value-Type real-number))
  (HAS-PARAMETER-SLOT
    car_buffer_height car_buffer_load_maximum car_buffer_load_minimum car_buffer_stroke)
  (MODEL-ID car_buffer_model_oh1))
 :issues ((:formerly-named carbuffer_oh1)
          (:source
           "The Yost document, under \"CAR_BUFFER_MODEL\"")))

(define-frame CAR_BUFFER_MODEL_OM14
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF car_buffer_model))
 :template-slots (
  (CAR_BUFFER_FOOTING_CHANNEL_HEIGHT 3.5)
  (CAR_BUFFER_HEIGHT 38.5)
  (CAR_BUFFER_LOAD_MAXIMUM 11000)
  (CAR_BUFFER_LOAD_MINIMUM 2900)
  (CAR_BUFFER_STROKE 14)
  (HAS-PARAMETER-SLOT
    car_buffer_height car_buffer_load_maximum car_buffer_load_minimum car_buffer_stroke)
  (MODEL-ID car_buffer_model_om14))
 :issues ((:formerly-named carbuffer_om14)
          (:source
           "The Yost document, under \"CAR_BUFFER_MODEL\"")))

(define-frame CAR_GUIDERAIL_MODEL
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF vt-component))
 :template-slots (
  (HAS-PARAMETER-SLOT car_guiderail_weight)
  (MODEL-ID
    (Slot-Cardinality 1))
  (CAR_GUIDERAIL_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type integer)))
 :issues ((:formerly-named carguiderail)
          (:source
           "The Yost document, under \"CAR_GUIDERAIL_MODEL\"")
	  (:modification-by "Guus Schreiber:
Renamed the WEIGHT parameter to be specific to this component type.")))

(define-frame CAR_GUIDERAIL_MODEL_M01
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF car_guiderail_model))
 :template-slots (
  (HAS-PARAMETER-SLOT car_guiderail_weight)
  (MODEL-ID car_guiderail_model_m01)
  (CAR_GUIDERAIL_WEIGHT 8))
 :issues ((:formerly-named carguiderail_1)
          (:source
           "The Yost document, under \"CAR_GUIDERAIL_MODEL\"")
	  (:modification-by "Guus Schreiber:
Renamed the WEIGHT parameter to be specific to this component type.")))

(define-frame CAR_GUIDERAIL_MODEL_M02
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF car_guiderail_model))
 :template-slots (
  (HAS-PARAMETER-SLOT car_guiderail_weight)
  (MODEL-ID car_guiderail_model_m02)
  (CAR_GUIDERAIL_WEIGHT 11))
 :issues ((:formerly-named carguiderail_2)
          (:source
           "The Yost document, under \"CAR_GUIDERAIL_MODEL\"")
	  (:modification-by "Guus Schreiber:
Renamed the WEIGHT parameter to be specific to this component type.")))

(define-frame CAR_GUIDERAIL_MODEL_M03
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF car_guiderail_model))
 :template-slots (
  (HAS-PARAMETER-SLOT car_guiderail_weight)
  (MODEL-ID car_guiderail_model_m03)
  (CAR_GUIDERAIL_WEIGHT 16))
 :issues ((:formerly-named carguiderail_3)
          (:source
           "The Yost document, under \"CAR_GUIDERAIL_MODEL\"")
	  (:modification-by "Guus Schreiber:
Renamed the WEIGHT parameter to be specific to this component type.")))

(define-frame CAR_GUIDERAIL_MODEL_M04
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF car_guiderail_model))
 :template-slots (
  (HAS-PARAMETER-SLOT car_guiderail_weight)
  (MODEL-ID car_guiderail_model_m04)
  (CAR_GUIDERAIL_WEIGHT 18.5
    (Slot-Value-Type real-number)))
 :issues ((:formerly-named carguiderail_4)
          (:source
           "The Yost document, under \"CAR_GUIDERAIL_MODEL\"")
	  (:modification-by "Guus Schreiber:
Renamed the WEIGHT parameter to be specific to this component type.")))

(define-frame CAR_GUIDERAIL_MODEL_M05
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF car_guiderail_model))
 :template-slots (
  (HAS-PARAMETER-SLOT car_guiderail_weight)
  (MODEL-ID car_guiderail_model_m05)
  (CAR_GUIDERAIL_WEIGHT 32))
 :issues ((:formerly-named carguiderail_5)
          (:source
           "The Yost document, under \"CAR_GUIDERAIL_MODEL\"")
	  (:modification-by "Guus Schreiber:
Renamed the WEIGHT parameter to be specific to this component type.")))

(define-frame COMPENSATION_CABLE_MODEL
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF vt-component))
 :template-slots (
  (COMPENSATION_CABLE_QUANTITY_C02
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (COMPENSATION_CABLE_UNIT_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (HAS-PARAMETER-SLOT
    compensation_cable_quantity_c02 compensation_cable_unit_weight)
  (MODEL-ID
    (Slot-Cardinality 1)))
 :issues ((:formerly-named compensationcable)
          (:source
           "The Yost document, under \"COMPENSATION_CABLE_MODEL\"")))

(define-frame COMPENSATION_CABLE_MODEL_M01
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF compensation_cable_model))
 :template-slots (
  (COMPENSATION_CABLE_QUANTITY_C02 2)
  (COMPENSATION_CABLE_UNIT_WEIGHT 0.2657)
  (HAS-PARAMETER-SLOT compensation_cable_quantity_c02)
  (MODEL-ID compensation_cable_model_m01))
 :issues ((:formerly-named compensationcable1_2chain)
          (:source
           "The Yost document, under \"COMPENSATION_CABLE_MODEL\"")))

(define-frame COMPENSATION_CABLE_MODEL_M02
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF compensation_cable_model))
 :template-slots (
  (COMPENSATION_CABLE_QUANTITY_C02 2)
  (COMPENSATION_CABLE_UNIT_WEIGHT 0.0848)
  (HAS-PARAMETER-SLOT compensation_cable_quantity_c02)
  (MODEL-ID compensation_cable_model_m02))
 :issues ((:formerly-named compensationcable1_4chain)
          (:source
           "The Yost document, under \"COMPENSATION_CABLE_MODEL\"")))

(define-frame COMPENSATION_CABLE_MODEL_M03
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF compensation_cable_model))
 :template-slots (
  (COMPENSATION_CABLE_QUANTITY_C02 2)
  (COMPENSATION_CABLE_UNIT_WEIGHT 0.05)
  (HAS-PARAMETER-SLOT compensation_cable_quantity_c02)
  (MODEL-ID compensation_cable_model_m03))
 :issues ((:formerly-named compensationcable3_16chain)
          (:source
           "The Yost document, under \"COMPENSATION_CABLE_MODEL\"")))

(define-frame COMPENSATION_CABLE_MODEL_M04
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF compensation_cable_model))
 :template-slots (
  (COMPENSATION_CABLE_QUANTITY_C02 2)
  (COMPENSATION_CABLE_UNIT_WEIGHT 0.1617)
  (HAS-PARAMETER-SLOT compensation_cable_quantity_c02)
  (MODEL-ID compensation_cable_model_m04))
 :issues ((:formerly-named compensationcable3_8chain)
          (:source
           "The Yost document, under \"COMPENSATION_CABLE_MODEL\"")))

(define-frame COMPENSATION_CABLE_MODEL_M05
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF compensation_cable_model))
 :template-slots (
  (COMPENSATION_CABLE_QUANTITY_C02 2)
  (COMPENSATION_CABLE_UNIT_WEIGHT 0.1171)
  (HAS-PARAMETER-SLOT compensation_cable_quantity_c02)
  (MODEL-ID compensation_cable_model_m05))
 :issues ((:formerly-named compensationcable5_16chain)
          (:source
           "The Yost document, under \"COMPENSATION_CABLE_MODEL\"")))

(define-frame COMPENSATION_CABLE_MODEL_M06
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF compensation_cable_model))
 :template-slots (
  (COMPENSATION_CABLE_QUANTITY_C02 2)
  (COMPENSATION_CABLE_UNIT_WEIGHT 0.2117)
  (HAS-PARAMETER-SLOT compensation_cable_unit_weight)
  (MODEL-ID compensation_cable_model_m06))
 :issues ((:formerly-named compensationcable7_16chain)
          (:source
           "The Yost document, under \"COMPENSATION_CABLE_MODEL\"")))

(define-frame COMPENSATION_CABLE_MODEL_M07
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF compensation_cable_model))
 :template-slots (
  (COMPENSATION_CABLE_QUANTITY_C02 0)
  (COMPENSATION_CABLE_UNIT_WEIGHT 0
    (Slot-Value-Type integer))
  (HAS-PARAMETER-SLOT compensation_cable_quantity_c02)
  (MODEL-ID compensation_cable_model_m07))
 :issues ((:formerly-named compensationcable_nr)
          (:source
           "The Yost document, under \"COMPENSATION_CABLE_MODEL\"")))

(define-frame CONTROL_CABLE_MODEL
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF vt-component))
 :template-slots (
  (CONTROL_CABLE_UNIT_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (HAS-PARAMETER-SLOT control_cable_unit_weight)
  (MODEL-ID
    (Slot-Cardinality 1)))
 :issues ((:formerly-named controlcable)
          (:source
           "The Yost document, under \"CONTROL_CABLE_MODEL\"")))

(define-frame CONTROL_CABLE_MODEL_M01
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF control_cable_model))
 :template-slots (
  (CONTROL_CABLE_UNIT_WEIGHT 0.167)
  (HAS-PARAMETER-SLOT control_cable_unit_weight)
  (MODEL-ID control_cable_model_m01))
 :issues ((:formerly-named controlcable1)
          (:source
           "The Yost document, under \"CONTROL_CABLE_MODEL\"")))

(define-frame CONTROL_CABLE_MODEL_M02
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF control_cable_model))
 :template-slots (
  (CONTROL_CABLE_UNIT_WEIGHT 0.199)
  (HAS-PARAMETER-SLOT control_cable_unit_weight)
  (MODEL-ID control_cable_model_m02))
 :issues ((:formerly-named controlcable2)
          (:source
           "The Yost document, under \"CONTROL_CABLE_MODEL\"")))

(define-frame CONTROL_CABLE_MODEL_M03
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF control_cable_model))
 :template-slots (
  (CONTROL_CABLE_UNIT_WEIGHT 0.209)
  (HAS-PARAMETER-SLOT control_cable_unit_weight)
  (MODEL-ID control_cable_model_m03))
 :issues ((:formerly-named controlcable3)
          (:source
           "The Yost document, under \"CONTROL_CABLE_MODEL\"")))

(define-frame COUNTERWEIGHT_BETWEEN_GUIDERAILS_M
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF vt-component))
 :template-slots (
  (COUNTERWEIGHT_FRAME_A
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_FRAME_B
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_FRAME_HEIGHT_S
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_FRAME_THICKNESS
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_FRAME_WEIGHT_S
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_PLATE_QUANTITY
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (COUNTERWEIGHT_STACK_HEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (HAS-PARAMETER-SLOT
    counterweight_frame_a counterweight_frame_b counterweight_frame_height_s counterweight_frame_thickness counterweight_frame_weight_s counterweight_plate_quantity counterweight_stack_height counterweight_weight)
  (HAS-CONSTRAINT counterweight_plate_quantity_c01)
  (MODEL-ID
    (Slot-Cardinality 1)))
 :issues ((:formerly-named counterweightbg)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_BETWEEN_GUIDERAILS\"")))

(define-frame COUNTERWEIGHT_BETWEEN_GUIDERAILS_M01
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF counterweight_between_guiderails_m))
 :template-slots (
  (MODEL-ID counterweight_between_guiderails_m01))
 :issues ((:formerly-named counterweightbg_1)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_BETWEEN_GUIDERAILS\"")))

(define-frame COUNTERWEIGHT_BETWEEN_GUIDERAILS_M02
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF counterweight_between_guiderails_m))
 :template-slots (
  (MODEL-ID counterweight_between_guiderails_m02))
 :issues ((:formerly-named counterweightbg_2)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_BETWEEN_GUIDERAILS\"")))

(define-frame COUNTERWEIGHT_BETWEEN_GUIDERAILS_M03
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF counterweight_between_guiderails_m))
 :template-slots (
  (MODEL-ID counterweight_between_guiderails_m03))
 :issues ((:formerly-named counterweightbg_3)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_BETWEEN_GUIDERAILS\"")))

(define-frame COUNTERWEIGHT_BUFFER_MODEL
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF vt-component))
 :template-slots (
  (COUNTERWEIGHT_BUFFER_HEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_BUFFER_LOAD_MAXIMUM
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (COUNTERWEIGHT_BUFFER_LOAD_MINIMUM
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (COUNTERWEIGHT_BUFFER_STROKE
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (HAS-PARAMETER-SLOT
    counterweight_buffer_height counterweight_buffer_load_maximum counterweight_buffer_load_minimum counterweight_buffer_stroke)
  (MODEL-ID
    (Slot-Cardinality 1)))
 :issues ((:formerly-named counterwtbuffer)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_BUFFER_MODEL\"")))

(define-frame COUNTERWEIGHT_BUFFER_MODEL_M01
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF counterweight_buffer_model))
 :template-slots (
  (COUNTERWEIGHT_BUFFER_HEIGHT 28.75)
  (COUNTERWEIGHT_BUFFER_LOAD_MAXIMUM 11000)
  (COUNTERWEIGHT_BUFFER_LOAD_MINIMUM 2900)
  (COUNTERWEIGHT_BUFFER_STROKE 8.25)
  (HAS-PARAMETER-SLOT
    counterweight_buffer_height counterweight_buffer_load_maximum counterweight_buffer_load_minimum)
  (MODEL-ID counterweight_buffer_model_m01))
 :issues ((:formerly-named counterwtbuffer_oh1)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_BUFFER_MODEL\"")))

(define-frame COUNTERWEIGHT_BUFFER_MODEL_M02
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF counterweight_buffer_model))
 :template-slots (
  (COUNTERWEIGHT_BUFFER_HEIGHT 38.5)
  (COUNTERWEIGHT_BUFFER_LOAD_MAXIMUM 11000)
  (COUNTERWEIGHT_BUFFER_LOAD_MINIMUM 2900)
  (COUNTERWEIGHT_BUFFER_STROKE 14
    (Slot-Value-Type integer))
  (HAS-PARAMETER-SLOT
    counterweight_buffer_height counterweight_buffer_load_maximum counterweight_buffer_load_minimum)
  (MODEL-ID counterweight_buffer_model_m02))
 :issues ((:formerly-named counterwtbuffer_om14)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_BUFFER_MODEL\"")))

(define-frame COUNTERWEIGHT_GUARD_REQUIRED
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF vt-component))
 :template-slots (
  (COUNTERWEIGHT_GUARD_THICKNESS
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (HAS-PARAMETER-SLOT counterweight_guard_thickness)
  (MODEL-ID
    (Slot-Cardinality 1)))
 :issues ((:formerly-named counterwtguard)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_GUARD_REQUIRED\"")))

(define-frame COUNTERWEIGHT_GUARD_THICKNESS_M01
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF counterweight_guard_required))
 :template-slots (
  (COUNTERWEIGHT_GUARD_THICKNESS 0)
  (HAS-PARAMETER-SLOT counterweight_guard_thickness)
  (MODEL-ID counterweight_guard_thickness_m01))
 :issues ((:formerly-named counterwtguard_model0)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_GUARD_THICKNESS\"")))

(define-frame COUNTERWEIGHT_GUARD_THICKNESS_M02
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF counterweight_guard_required))
 :template-slots (
  (COUNTERWEIGHT_GUARD_THICKNESS 0.75
    (Slot-Value-Type real-number))
  (HAS-PARAMETER-SLOT counterweight_guard_thickness)
  (MODEL-ID counterweight_guard_thickness_m02))
 :issues ((:formerly-named counterwtguard_model1)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_GUARD_THICKNESS\"")))

(define-frame COUNTERWEIGHT_GUIDERAIL_MODEL
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF vt-component))
 :template-slots (
  (COUNTERWEIGHT_GUIDERAIL_UNIT_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (COUNTERWEIGHT_WEIGHT_LIMIT
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (HAS-PARAMETER-SLOT
    counterweight_guiderail_unit_weight counterweight_weight_limit)
  (MODEL-ID
    (Slot-Cardinality 1)))
 :issues ((:formerly-named counterwtguiderail)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_GUIDERAIL_MODEL\"")))

(define-frame COUNTERWEIGHT_GUIDERAIL_MODEL_M01
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF counterweight_guiderail_model))
 :template-slots (
  (COUNTERWEIGHT_GUIDERAIL_UNIT_WEIGHT 8)
  (COUNTERWEIGHT_WEIGHT_LIMIT 15000)
  (HAS-PARAMETER-SLOT counterweight_weight_limit)
  (MODEL-ID counterweight_guiderail_model_m01))
 :issues ((:formerly-named counterwtguiderail_1)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_GUIDERAIL_MODEL\"")))

(define-frame COUNTERWEIGHT_GUIDERAIL_MODEL_M02
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF counterweight_guiderail_model))
 :template-slots (
  (COUNTERWEIGHT_GUIDERAIL_UNIT_WEIGHT 11)
  (COUNTERWEIGHT_WEIGHT_LIMIT 11)
  (HAS-PARAMETER-SLOT counterweight_weight_limit)
  (MODEL-ID counterweight_guiderail_model_m02))
 :issues ((:formerly-named counterwtguiderail_2)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_GUIDERAIL_MODEL\"")))

(define-frame COUNTERWEIGHT_GUIDERAIL_MODEL_M03
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF counterweight_guiderail_model))
 :template-slots (
  (COUNTERWEIGHT_GUIDERAIL_UNIT_WEIGHT 16)
  (COUNTERWEIGHT_WEIGHT_LIMIT 40000)
  (HAS-PARAMETER-SLOT counterweight_weight_limit)
  (MODEL-ID counterweight_guiderail_model_m03))
 :issues ((:formerly-named counterwtguiderail_3)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_GUIDERAIL_MODEL\"")))

(define-frame COUNTERWEIGHT_GUIDERAIL_MODEL_M04
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF counterweight_guiderail_model))
 :template-slots (
  (COUNTERWEIGHT_GUIDERAIL_UNIT_WEIGHT 18.5
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_WEIGHT_LIMIT 56000)
  (HAS-PARAMETER-SLOT counterweight_weight_limit)
  (MODEL-ID counterweight_guiderail_model_m04))
 :issues ((:formerly-named counterwtguiderail_4)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_GUIDERAIL_MODEL\"")))

(define-frame CROSSHEAD_MODEL
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF vt-component))
 :template-slots (
  (CROSSHEAD_HEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (HAS-PARAMETER-SLOT crosshead_height)
  (MODEL-ID
    (Slot-Cardinality 1)))
 :issues ((:formerly-named crosshead)
          (:source
           "The Yost document, under \"CROSSHEAD_MODEL\"")))

(define-frame CROSSHEAD_MODEL_M01
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF crosshead_model))
 :template-slots (
  (CROSSHEAD_HEIGHT 10.0)
  (HAS-PARAMETER-SLOT crosshead_height)
  (MODEL-ID crosshead_model_m01))
 :issues ((:formerly-named crosshead_c10x153)
          (:source
           "The Yost document, under \"CROSSHEAD_MODEL\"")))

(define-frame CROSSHEAD_MODEL_M02
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF crosshead_model))
 :template-slots (
  (CROSSHEAD_HEIGHT 13.5)
  (HAS-PARAMETER-SLOT crosshead_height)
  (MODEL-ID crosshead_model_m02))
 :issues ((:formerly-named crosshead_c13x1655)
          (:source
           "The Yost document, under \"CROSSHEAD_MODEL\"")))

(define-frame CROSSHEAD_MODEL_M03
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF crosshead_model))
 :template-slots (
  (CROSSHEAD_HEIGHT 8.0)
  (HAS-PARAMETER-SLOT crosshead_height)
  (MODEL-ID crosshead_model_m03))
 :issues ((:formerly-named crosshead_c8x115)
          (:source
           "The Yost document, under \"CROSSHEAD_MODEL\"")))

(define-frame CROSSHEAD_MODEL_M04
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF crosshead_model))
 :template-slots (
  (CROSSHEAD_HEIGHT 8.125)
  (HAS-PARAMETER-SLOT crosshead_height)
  (MODEL-ID crosshead_model_m04))
 :issues ((:formerly-named crosshead_w8x18)
          (:source
           "The Yost document, under \"CROSSHEAD_MODEL\"")))

(define-frame CROSSHEAD_MODEL_M05
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF crosshead_model))
 :template-slots (
  (CROSSHEAD_HEIGHT 8.25)
  (HAS-PARAMETER-SLOT crosshead_height)
  (MODEL-ID crosshead_model_m05))
 :issues ((:formerly-named crosshead_w8x21)
          (:source
           "The Yost document, under \"CROSSHEAD_MODEL\"")))

(define-frame DEFLECTOR_SHEAVE_MODEL
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF vt-component))
 :template-slots (
  (DEFLECTOR_SHEAVE_DIAMETER_S
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (DEFLECTOR_SHEAVE_PROTRUSION
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (DEFLECTOR_SHEAVE_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (HAS-PARAMETER-SLOT
    deflector_sheave_diameter_s deflector_sheave_protrusion deflector_sheave_weight)
  (MODEL-ID
    (Slot-Cardinality 1)))
 :issues ((:formerly-named deflectorsheave)
          (:source
           "The Yost document, under \"DEFLECTOR_SHEAVE_MODEL\"")))

(define-frame DOOR_MODEL
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF vt-component))
 :template-slots (
  (CAR_SAF_T_EDGE_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (DOOR_OPENING_STRIKE_SIDE
    (Slot-Cardinality 1)
    (Slot-Value-Type string))
  (DOOR_OPENING_TYPE_S
    (Slot-Cardinality 1)
    (Slot-Value-Type string))
  (DOOR_OPERATOR_CONSTANT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (DOOR_OPERATOR_ENGINE_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (DOOR_OPERATOR_HEADER_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (DOOR_SPACE
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (DOOR_SPEED_CODE
    (Slot-Cardinality 1)
    (Slot-Value-Type string))
  (HAS-PARAMETER-SLOT
    car_saf_t_edge_weight door_opening_strike_side door_opening_type_s door_operator_constant door_operator_engine_weight door_operator_header_weight door_space door_speed_code)
  (HAS-CONSTRAINT
    door_opening_strike_side_c door_speed_code_c04)
  (MODEL-ID
    (Slot-Cardinality 1)))
 :issues ((:formerly-named door)
          (:source
           "The Yost document, under \"DOOR_MODEL\"")))

(define-frame DOOR_MODEL_CODE_M01
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF door_model))
 :template-slots (
  (CAR_SAF_T_EDGE_WEIGHT 13)
  (DOOR_OPENING_TYPE_S "center")
  (DOOR_OPERATOR_CONSTANT 2.083)
  (DOOR_OPERATOR_ENGINE_WEIGHT 135)
  (DOOR_SPEED_CODE "2s")
  (HAS-PARAMETER-SLOT
    car_saf_t_edge_weight door_opening_type_s door_operator_constant door_operator_engine_weight)
  (MODEL-ID door_model_code_m01))
 :issues ((:formerly-named door_2sco)
          (:source
           "The Yost document, under \"DOOR_MODEL_CODE\"")))

(define-frame DOOR_MODEL_CODE_M02
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF door_model))
 :template-slots (
  (CAR_SAF_T_EDGE_WEIGHT 7)
  (DOOR_OPENING_STRIKE_SIDE "lh")
  (DOOR_OPENING_TYPE_S "so")
  (DOOR_OPERATOR_CONSTANT 1.5)
  (DOOR_OPERATOR_ENGINE_WEIGHT 135)
  (DOOR_SPEED_CODE "2s")
  (HAS-PARAMETER-SLOT
    car_saf_t_edge_weight door_opening_strike_side door_opening_type_s door_operator_constant door_operator_engine_weight)
  (MODEL-ID door_model_code_m02))
 :issues ((:formerly-named door_2sso_lh)
          (:source
           "The Yost document, under \"DOOR_MODEL_CODE\"")))

(define-frame DOOR_MODEL_CODE_M03
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF door_model))
 :template-slots (
  (CAR_SAF_T_EDGE_WEIGHT 7)
  (DOOR_OPENING_STRIKE_SIDE "rh")
  (DOOR_OPENING_TYPE_S "so")
  (DOOR_OPERATOR_CONSTANT 1.5)
  (DOOR_OPERATOR_ENGINE_WEIGHT 135)
  (DOOR_SPEED_CODE "2s")
  (HAS-PARAMETER-SLOT
    car_saf_t_edge_weight door_opening_strike_side door_opening_type_s door_operator_constant door_operator_engine_weight)
  (MODEL-ID door_model_code_m03))
 :issues ((:formerly-named door_2sso_rh)
          (:source
           "The Yost document, under \"DOOR_MODEL_CODE\"")))

(define-frame DOOR_MODEL_CODE_M04
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF door_model))
 :template-slots (
  (CAR_SAF_T_EDGE_WEIGHT 13)
  (DOOR_OPENING_TYPE_S "co")
  (DOOR_OPERATOR_CONSTANT 1.33)
  (DOOR_OPERATOR_ENGINE_WEIGHT 135)
  (DOOR_SPEED_CODE "ss")
  (HAS-PARAMETER-SLOT
    car_saf_t_edge_weight door_opening_type_s door_operator_constant door_operator_engine_weight)
  (MODEL-ID door_model_code_m04))
 :issues ((:formerly-named door_ssco)
          (:source
           "The Yost document, under \"DOOR_MODEL_CODE\"")))

(define-frame DOOR_MODEL_CODE_M05
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF door_model))
 :template-slots (
  (CAR_SAF_T_EDGE_WEIGHT 7)
  (DOOR_OPENING_STRIKE_SIDE "lh")
  (DOOR_OPENING_TYPE_S "so")
  (DOOR_OPERATOR_CONSTANT 1.25)
  (DOOR_OPERATOR_ENGINE_WEIGHT 135)
  (DOOR_SPEED_CODE "ss")
  (HAS-PARAMETER-SLOT
    car_saf_t_edge_weight door_opening_strike_side door_opening_type_s door_operator_constant door_operator_engine_weight)
  (MODEL-ID door_model_code_m05))
 :issues ((:formerly-named door_ssso_lh)
          (:source
           "The Yost document, under \"DOOR_MODEL_CODE\"")))

(define-frame DOOR_MODEL_CODE_M06
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF door_model))
 :template-slots (
  (CAR_SAF_T_EDGE_WEIGHT 7)
  (DOOR_OPENING_STRIKE_SIDE "rh")
  (DOOR_OPENING_TYPE_S "so")
  (DOOR_OPERATOR_CONSTANT 1.25)
  (DOOR_OPERATOR_ENGINE_WEIGHT 135)
  (DOOR_SPEED_CODE "ss")
  (HAS-PARAMETER-SLOT
    car_saf_t_edge_weight door_opening_strike_side door_opening_type_s door_operator_constant door_operator_engine_weight)
  (MODEL-ID door_model_code_m06))
 :issues ((:formerly-named door_ssso_rh)
          (:source
           "The Yost document, under \"DOOR_MODEL_CODE\"")))

(define-frame DEFLECTOR_SHEAVE_MODEL_M01
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF deflector_sheave_model))
 :template-slots (
  (DEFLECTOR_SHEAVE_DIAMETER_S 20)
  (DEFLECTOR_SHEAVE_PROTRUSION 15.125)
  (DEFLECTOR_SHEAVE_WEIGHT 250)
  (HAS-PARAMETER-SLOT
    deflector_sheave_protrusion deflector_sheave_weight)
  (MODEL-ID deflector_sheave_model_m01))
 :issues ((:formerly-named ds_20)
          (:source
           "The Yost document, under \"DEFLECTOR_SHEAVE_MODEL\"")))

(define-frame DEFLECTOR_SHEAVE_MODEL_M02
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF deflector_sheave_model))
 :template-slots (
  (DEFLECTOR_SHEAVE_DIAMETER_S 25)
  (DEFLECTOR_SHEAVE_PROTRUSION 18.125)
  (DEFLECTOR_SHEAVE_WEIGHT 350)
  (HAS-PARAMETER-SLOT
    deflector_sheave_protrusion deflector_sheave_weight)
  (MODEL-ID deflector_sheave_model_m02))
 :issues ((:formerly-named ds_25)
          (:source
           "The Yost document, under \"DEFLECTOR_SHEAVE_MODEL\"")))

(define-frame ELEVATOR
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF vt-component))
 :template-slots (
  (CABLE_LOAD_CAR_SIDE_CAR_BOTTOM
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CABLE_LOAD_CAR_SIDE_CAR_TOP
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CABLE_LOAD_COUNTERWEIGHT_SIDE_CAR_BOTTOM
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CABLE_LOAD_COUNTERWEIGHT_SIDE_CAR_TOP
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CABLE_LOAD_TOTAL_CAR_SIDE_MAXIMUM
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CABLE_LOAD_UNBALANCED
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CARSLINGUB
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CAR_BUFFER_BLOCKING_HEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (CAR_BUFFER_COMPRESSED_CLEARANCE
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CAR_BUFFER_LOAD
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CAR_BUFFER_QUANTITY
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (CAR_BUFFER_STRIKING_SPEED_MAXIMUM
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CAR_BUFFER_STRIKING_SPEED_MINIMUM
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CAR_CABLE_HITCH_TO_COUNTERWEIGHT_CABLE_HITCH
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CAR_CABLE_HITCH_TO_PLATFORM_FRONT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CAR_CABLE_HITCH_TO_PLATFORM_REAR
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CAR_CAB_HEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CAR_CAB_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CAR_CAPACITY
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CAR_CAPACITY_RANGE
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (CAR_FIXTURE_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CAR_GUIDERAIL_VERTICAL_FORCE
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CAR_GUIDERAIL_VERTICAL_FORCE_MAXIMUM
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CAR_INTERCOM_SPEC
    (Slot-Cardinality 1)
    (Slot-Value-Type string))
  (CAR_LANTERN_SPEC
    (Slot-Cardinality 1)
    (Slot-Value-Type string))
  (CAR_MISC_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CAR_OVERTRAVEL
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CAR_PHONE_SPEC
    (Slot-Cardinality 1)
    (Slot-Value-Type string))
  (CAR_POSITION_INDICATOR_SPEC
    (Slot-Cardinality 1)
    (Slot-Value-Type string))
  (CAR_RETURN_LEFT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CAR_RETURN_RIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CAR_RUNBY
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (CAR_SPEED
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (CAR_SUPPLEMENT_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (CAR_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COMPENSATION_CABLE_LENGTH
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COMPENSATION_CABLE_LOAD_CAR_SIDE_CAR_BOTTOM
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COMPENSATION_CABLE_LOAD_CAR_SIDE_CAR_TOP
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COMPENSATION_CABLE_LOAD_COUNTERWEIGHT_SIDE_CAR_BOTTOM
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COMPENSATION_CABLE_LOAD_COUNTERWEIGHT_SIDE_CAR_TOP
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COMPENSATION_CABLE_QUANTITY
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COMPENSATION_CABLE_UNIT_WEIGHT_OPTIMAL
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CONTROL_CABLE_LOAD_AVERAGE
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CONTROL_CABLE_LOAD_CAR_SIDE_CAR_BOTTOM
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CONTROL_CABLE_LOAD_CAR_SIDE_CAR_TOP
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CONTROL_CABLE_LOOP_BELOW_CAR_BOTTOM
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_ABOVE_TOP_CAR_BOTTOM
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_BETWEEN_GUIDERAILS_VALUE
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (COUNTERWEIGHT_BOTTOM_REFERENCE
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_BUFFER_BLOCKING_HEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_BUFFER_FOOTING_CHANNEL_HEIGHT 1
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  ;; removed as suggested by Guus Schreiber
  ;;  (COUNTERWEIGHT_BUFFER_HEIGHT
  ;;    (Slot-Cardinality 1)
  ;;    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_BUFFER_LOAD
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_BUFFER_QUANTITY
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (COUNTERWEIGHT_FRAME_A
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_FRAME_B
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_FRAME_HEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_FRAME_HEIGHT_S
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_FRAME_THICKNESS 31
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_FRAME_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_FRAME_WEIGHT_S
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_OVERTRAVEL
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_PLATE_DEPTH
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_PLATE_QUANTITY
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (COUNTERWEIGHT_PLATE_THICKNESS 1
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (COUNTERWEIGHT_PLATE_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_RUNBY
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_SPACE
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_STACK_HEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_STACK_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_STACK_WEIGHT_DESIRED
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_SYSTEM_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_TO_HOISTWAY_REAR
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_TO_PLATFORM_REAR
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_U_BRACKET_PROTRUSION 0.75 ;; Guus Schreiber
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWEIGHT_WEIGHT_DESIRED
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (COUNTERWTPLATFORMWT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CROSSHEAD_BENDING_MOMENT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (CROSSHEAD_DEFLECTION_INDEX
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (DEFLECTOR_SHEAVE_DIAMETER
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (DEFLECTOR_SHEAVE_PROTRUSION
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (DOOR_OPENING_STRIKE_SIDE
    (Slot-Cardinality 1)
    (Slot-Value-Type string))
  (DOOR_OPENING_STRIKE_SIDE_SPEC
    (Slot-Cardinality 1)
    (Slot-Value-Type string))
  (DOOR_OPENING_TYPE
    (Slot-Cardinality 1)
    (Slot-Value-Type string))
  (DOOR_OPENING_TYPE_S
    (Slot-Cardinality 1)
    (Slot-Value-Type string))
  (DOOR_OPERATOR_HEADER_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (DOOR_OPERATOR_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (DOOR_SPACE
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (DOOR_SPEED
    (Slot-Cardinality 1)
    (Slot-Value-Type string))
  (DOOR_SPEED_CODE
    (Slot-Cardinality 1)
    (Slot-Value-Type string))
  (ELEVATOR.CAR
    (Slot-Cardinality 1)
    (Slot-Value-Type car))
  (ELEVATOR.CARBUFFER
    (Slot-Cardinality 1)
    (Slot-Value-Type car_buffer_model))
  (ELEVATOR.CARGUIDERAIL
    (Slot-Cardinality 1)
    (Slot-Value-Type car_guiderail_model))
  (ELEVATOR.COMPENSATIONCABLE
    (Slot-Cardinality 1)
    (Slot-Value-Type compensation_cable_model))
  (ELEVATOR.CONTROLCABLE
    (Slot-Cardinality 1)
    (Slot-Value-Type control_cable_model))
  (ELEVATOR.COUNTERWEIGHTBG
    (Slot-Cardinality 1)
    (Slot-Value-Type counterweight_between_guiderails_m))
  (ELEVATOR.COUNTERWTBUFFER
    (Slot-Cardinality 1)
    (Slot-Value-Type counterweight_buffer_model))
  (ELEVATOR.COUNTERWTGUARD
    (Slot-Cardinality 1)
    (Slot-Value-Type counterweight_guard_required))
  (ELEVATOR.COUNTERWTGUIDERAIL
    (Slot-Cardinality 1)
    (Slot-Value-Type counterweight_guiderail_model))
  (ELEVATOR.CROSSHEAD
    (Slot-Cardinality 1)
    (Slot-Value-Type crosshead_model))
  (ELEVATOR.DEFLECTORSHEAVE
    (Slot-Cardinality 1)
    (Slot-Value-Type deflector_sheave_model))
  (ELEVATOR.DOOR
    (Slot-Cardinality 1)
    (Slot-Value-Type door_model))
  (ELEVATOR.GOVERNOR
    (Slot-Cardinality 1)
    (Slot-Value-Type governor_model))
  (ELEVATOR.GOVERNORCABLE
    (Slot-Cardinality 1)
    (Slot-Value-Type governor_cable_model))
  (ELEVATOR.HOISTCABLE
    (Slot-Cardinality 1)
    (Slot-Value-Type hoist_cable_model))
  (ELEVATOR.INTERCOM
    (Slot-Cardinality 1)
    (Slot-Value-Type car_intercom))
  (ELEVATOR.LANTERN
    (Slot-Cardinality 1)
    (Slot-Value-Type car_lantern))
  (ELEVATOR.MACHINE
    (Slot-Cardinality 1)
    (Slot-Value-Type machine_model))
  (ELEVATOR.MBEAM
    (Slot-Cardinality 1)
    (Slot-Value-Type machine_beam_model))
  (ELEVATOR.MOTGENERATOR
    (Slot-Cardinality 1)
    (Slot-Value-Type motor_generator_model))
  (ELEVATOR.MOTOR
    (Slot-Cardinality 1)
    (Slot-Value-Type motor))
  (ELEVATOR.MSHEAVEGROOVE
    (Slot-Cardinality 1)
    (Slot-Value-Type machine_groove_model))
  (ELEVATOR.PHONE
    (Slot-Cardinality 1)
    (Slot-Value-Type car_phone))
  (ELEVATOR.PLATFORM
    (Slot-Cardinality 1)
    (Slot-Value-Type platform_model))
  (ELEVATOR.POSITIONIND
    (Slot-Cardinality 1)
    (Slot-Value-Type car_position_indicator))
  (ELEVATOR.SAFETY
    (Slot-Cardinality 1)
    (Slot-Value-Type safety_beam_model))
  (ELEVATOR.SLING
    (Slot-Cardinality 1)
    (Slot-Value-Type sling_model))
  (GOVERNOR_CABLE_LENGTH
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (HAS-PARAMETER-SLOT

   cable_load_car_side_car_bottom cable_load_car_side_car_top
   cable_load_counterweight_side_car_bottom cable_load_counterweight_side_car_top
   cable_load_total_car_side_maximum cable_load_unbalanced
   car_buffer_blocking_height car_buffer_compressed_clearance car_buffer_load
   car_buffer_quantity car_buffer_striking_speed_maximum
   car_buffer_striking_speed_minimum car_cab_height car_cab_weight
   car_cable_hitch_to_counterweight_cable_hitch car_cable_hitch_to_platform_front
   car_cable_hitch_to_platform_rear car_capacity car_capacity_range
   car_fixture_weight car_guiderail_vertical_force
   car_guiderail_vertical_force_maximum car_intercom_spec car_lantern_spec
   car_misc_weight car_overtravel car_phone_spec car_position_indicator_spec
   car_return_left car_return_right car_runby car_speed car_supplement_weight
   car_weight carslingub compensation_cable_length
   compensation_cable_load_car_side_car_bottom
   compensation_cable_load_car_side_car_top
   compensation_cable_load_counterweight_side_car_bottom
   compensation_cable_load_counterweight_side_car_top compensation_cable_quantity
   compensation_cable_unit_weight_optimal control_cable_load_average
   control_cable_load_car_side_car_bottom control_cable_load_car_side_car_top
   control_cable_loop_below_car_bottom counterweight_above_top_car_bottom
   counterweight_between_guiderails_value counterweight_bottom_reference
   counterweight_buffer_blocking_height
   counterweight_buffer_footing_channel_height

   ;; removed as suggested by Guus Schreiber
   ;;  counterweight_buffer_height

   counterweight_buffer_load counterweight_buffer_quantity counterweight_frame_a
   counterweight_frame_b counterweight_frame_height counterweight_frame_height_s
   counterweight_frame_thickness counterweight_frame_weight
   counterweight_frame_weight_s counterweight_overtravel
   counterweight_plate_depth counterweight_plate_quantity
   counterweight_plate_thickness counterweight_plate_weight counterweight_runby
   counterweight_space counterweight_stack_height counterweight_stack_weight
   counterweight_stack_weight_desired counterweight_system_weight
   counterweight_to_hoistway_rear counterweight_to_platform_rear
   counterweight_u_bracket_protrusion counterweight_weight
   counterweight_weight_desired counterwtplatformwt crosshead_bending_moment
   crosshead_deflection_index deflector_sheave_diameter
   deflector_sheave_protrusion door_opening_strike_side
   door_opening_strike_side_spec door_opening_type door_opening_type_s
   door_operator_header_weight door_operator_weight door_space door_speed
   door_speed_code governor_cable_length
   hoist_cable_above_counterweight_car_bottom hoist_cable_length
   hoist_cable_load_car_side_car_bottom hoist_cable_load_car_side_car_top
   hoist_cable_load_counterweight_side_car_bottom
   hoist_cable_load_counterweight_side_car_top hoist_cable_quantity
   hoist_cable_safety_factor hoist_cable_safety_factor_minimum
   hoist_cable_traction_factor hoist_cable_traction_ratio
   hoist_cable_traction_ratio_car_bottom_empty
   hoist_cable_traction_ratio_car_bottom_full
   hoist_cable_traction_ratio_car_top_empty
   hoist_cable_traction_ratio_car_top_full hoistway_bracket_spacing
   hoistway_depth hoistway_floor_height hoistway_overhead hoistway_pit_depth
   hoistway_top_landing_to_underside_machine_beam hoistway_travel hoistway_width
   machine_acceleration_maximum machine_angle_of_contact
   machine_beam_bearing_plate_thickness machine_beam_bending_moment_left_maximum
   machine_beam_bending_moment_right_maximum
   machine_beam_center_to_machine_sheave_center machine_beam_impact_load_left
   machine_beam_impact_load_right machine_beam_impact_load_total
   machine_beam_length machine_beam_load_front_left machine_beam_load_front_right
   machine_beam_load_rear_left machine_beam_load_rear_right
   machine_beam_reaction_front_left machine_beam_reaction_front_right
   machine_beam_reaction_rear_left machine_beam_reaction_rear_right
   machine_beam_safety_factor machine_beam_section_modulus_left_minimum
   machine_beam_section_modulus_right_minimum
   machine_beam_support_bottom_to_machine_room_top
   machine_beam_support_bottom_to_machine_room_top_spec
   machine_beam_support_distance machine_beam_support_front_to_hoistway
   machine_beam_support_to_machine_beam_center machine_beam_support_type
   machine_beam_total_load_left machine_beam_total_load_right machine_beam_weight
   machine_efficiency machine_gear_ratio_numeric machine_groove_pressure
   machine_groove_pressure_acceptable_maximum machine_groove_pressure_constant
   machine_sheave_center_to_front_machine_beam_support machine_sheave_height
   machine_sheave_to_deflector_sheave machine_sheave_to_deflector_sheave_diagonal
   machine_sheave_to_deflector_sheave_horizontal machine_suspended_load
   machine_total_weight maxacceptablecarbuffstroke minacceptablembeammodulus
   minacceptableopeningw motor_current_supported_maximum
   motor_horsepower_required motor_peak_current_required motor_torque_releveling
   opening_count opening_height opening_to_hoistway_left
   opening_to_hoistway_right opening_width_building opening_width_door
   platform_depth platform_depth_spec platform_running_clearance
   platform_to_hoistway_front platform_to_hoistway_left
   platform_to_hoistway_right platform_weight platform_weight_factor_ap
   platform_weight_factor_s platform_weight_factor_x platform_weight_factor_z
   platform_width platform_width_f safety_beam_bending_moment
   safety_beam_between_guiderails safety_beam_bg safety_beam_load
   safety_beam_weight sling_stile_length sling_underbeam sling_underbeam_space
   sling_weight)

  (HAS-CONSTRAINT
   c-11 c-13 c-14 c-15 c-16 c-17 c-18 c-19 c-2 c-20 c-21 c-22 c-23 c-24_1
   c-24_2 c-25 c-26 c-27 c-28_1 c-28_2 c-28_3 c-29_1 c-29_2 c-30_1 c-30_2 c-31
   c-32 c-33_1 c-33_2 c-34_1 c-34_2 c-34_3 c-34_4 c-35 c-36_1 c-36_2 c-36_3 c-37
   c-38 c-44 c-45 c-46_1 c-46_2 c-46_3 c-46_4 c-47 c-48_1 c-48_2 c-49 c-4_1 c-4_2
   c-50 c-5_1 c-5_2 c-5_3 c-6 c-8 c-9 cable_load_total_car_side_car_bottom
   cable_load_total_car_side_car_top cable_load_total_car_side_maximum_c01
   cable_load_total_car_side_maximum_c02
   cable_load_total_counterweight_side_car_c1
   cable_load_total_counterweight_side_car_c2 cable_load_unbalanced_c
   car_buffer_blocking_height_c car_buffer_striking_speed_maximum_c
   car_buffer_striking_speed_minimum_c car_buffer_stroke_c car_cab_weight_c
   car_cable_hitch_offset_c01 car_cable_hitch_offset_c02
   car_cable_hitch_offset_c03 car_cable_hitch_to_counterweight_cable_hitch_c
   car_cable_hitch_to_platform_rear_c car_capacity_c car_capacity_range_c
   car_cst5 car_fixture_weight_c car_guiderail_vertical_force_c
   car_guiderail_vertical_force_maximum_c02
   car_guiderail_vertical_force_maximum_c03
   car_guiderail_vertical_force_maximum_c04
   car_guiderail_vertical_force_maximum_c05
   car_guiderail_vertical_force_maximum_c06
   car_guiderail_vertical_force_maximum_c07
   car_guiderail_vertical_force_maximum_c08
   car_guiderail_vertical_force_maximum_c09
   car_guiderail_vertical_force_maximum_c10
   car_guiderail_vertical_force_maximum_c11 car_intercom_c01 car_intercom_c02
   car_intercom_c03 car_lantern_c01 car_lantern_c02 car_lantern_c03
   car_misc_weight_c car_phone_c01 car_phone_c02 car_phone_c03
   car_position_indicator_c01 car_position_indicator_c02
   car_position_indicator_c03 

;;; Guus Schreiber:
   ;;  BUG: redundant constraints
   ;;  
   ;;  The constraints: 
   ;;       car_return_left_c01
   ;;       car_return_left_c02
   ;;       car_return_left_c03
   ;;  are really subsumed by car_return_left_c0[4-9]
   ;;  
   ;;  The redundancy is probably an historical artefact.

;;; car_return_left_c01 car_return_left_c02 car_return_left_c03 

   car_return_left_c04 car_return_left_c05 car_return_left_c06
   car_return_left_c07 car_return_left_c08 car_return_left_c09 car_return_right_c
   car_runby_c car_speed_c car_weight_c carbuffer_cst7
   carbufferblockh_of_elevator_values compensation_cable_length_c01
   compensation_cable_length_c02 compensation_cable_load_car_top
   compensation_cable_load_counterweight_side_car_bottom_c
   compensation_cable_load_counterweight_side_car_top_c
   compensation_cable_load_side_car_bottom compensation_cable_model_c01
   compensation_cable_model_c02 compensation_cable_model_c03
   compensation_cable_model_c04 compensation_cable_model_c05
   compensation_cable_quantity_c01 compensation_cable_unit_weight_optimal_c
   control_cable_load_average_c control_cable_load_car_side_car_bottom_c
   control_cable_load_car_side_car_top_c control_cable_loop_below_car_bottom_c
   control_cable_model_c01 control_cable_model_c02 control_cable_model_c03
   counterweight_above_top_car_bottom_c
   counterweight_between_guiderails_possible_values
   counterweight_bottom_reference_c counterweight_buffer_load_c
   counterweight_frame_weight counterweight_guard_required_c
   counterweight_guard_required_c2  ;; Guus Schreiber
   counterweight_guiderail_unit_weight_c counterweight_overtravel_c
   counterweight_plate_quantity_c02 counterweight_plate_weight_c
   counterweight_runby_c counterweight_space_c counterweight_stack_height_c
   counterweight_stack_weight_c counterweight_stack_weight_desired_c
   counterweight_system_weight_c counterweight_to_hoistway_rear_c
   counterweight_to_platform_rear_c counterweight_weight_c
   counterweight_weight_desired_c crosshead_bending_moment_c
   crosshead_deflection_index_c crosshead_model_c01 crosshead_model_c02
   crosshead_model_c03 crosshead_model_c04 crosshead_model_c05
   deflector_sheave_diameter_c deflector_sheave_diameter_minimum
   deflector_sheave_protrusion_c door_opening_strike_side_spec_c
   door_opening_type_c door_opening_type_c01 door_opening_type_c02
   door_operator_header_weight_c door_operator_weight_c door_space_c01
   door_space_c02 door_speed_c
   ;; door_speed_c01 ;; Guus Schreiber
   door_speed_code_c02
   door_speed_code_c03 governor_cable_length_c
   hoist_cable_above_counterweight_car_bottom_c hoist_cable_length_c
   hoist_cable_load_car_side_car_bottom_c hoist_cable_load_car_side_car_top_c
   hoist_cable_load_counterweight_side_car_bottom_c
   hoist_cable_load_counterweight_side_car_top_c hoist_cable_safety_factor_c01
   hoist_cable_safety_factor_c02 hoist_cable_safety_factor_c03
   hoist_cable_safety_factor_c04 hoist_cable_safety_factor_c05
   hoist_cable_traction_factor_c hoist_cable_traction_ratio_c01
   hoist_cable_traction_ratio_c02 hoist_cable_traction_ratio_c03
   hoist_cable_traction_ratio_c04 hoist_cable_traction_ratio_car_bottom_empty_c
   hoist_cable_traction_ratio_car_bottom_full_c
   hoist_cable_traction_ratio_car_top_empty_c
   hoist_cable_traction_ratio_car_top_full_c hoistcable_quantity
   hoistway_bracket_spacing_c hoistway_top_landing_to_underside_machine_beam_c
   machine_angle_of_contact_c machine_beam_bending_moment_left_maximum_c01
   machine_beam_bending_moment_left_maximum_c02
   machine_beam_bending_moment_right_maximum_c01
   machine_beam_bending_moment_right_maximum_c02
   machine_beam_center_to_machine_sheave_center_c machine_beam_impact_load_left_c
   machine_beam_impact_load_right_c machine_beam_impact_load_total_c
   machine_beam_load_front_left_c machine_beam_load_front_right_c
   machine_beam_load_rear_left_c machine_beam_load_rear_right_c
   machine_beam_reaction_front_left_c machine_beam_reaction_front_right_c
   machine_beam_reaction_rear_left_c machine_beam_reaction_rear_right_c
   machine_beam_section_modulus_left_minimum_c
   machine_beam_section_modulus_right_minimum_c
   machine_beam_support_bottom_to_machine_room_top_c
   machine_beam_support_to_machine_beam_center_c machine_beam_support_type_c
   machine_beam_support_underside_to_machine_room_floor
   machine_beam_total_load_left_c machine_beam_total_load_right_c
   machine_beam_weight_c machine_efficiency_c02 machine_efficiency_c03
   machine_efficiency_c04 machine_efficiency_c05 machine_efficiency_c06
   machine_efficiency_c07 machine_efficiency_c08 machine_efficiency_c09
   machine_efficiency_c10 machine_efficiency_c11 machine_efficiency_c12
   machine_efficiency_c13 machine_efficiency_c14 machine_efficiency_c15
   machine_efficiency_c16 machine_efficiency_c17 machine_efficiency_c18
   machine_efficiency_c19 machine_efficiency_c20 machine_efficiency_c21
   machine_gear_ratio_symbolic_c01 machine_gear_ratio_symbolic_c02
   machine_gear_ratio_symbolic_c03 machine_gear_ratio_symbolic_c04
   machine_gear_ratio_symbolic_c05 machine_gear_ratio_symbolic_c06
   machine_gear_ratio_symbolic_c07 machine_gear_ratio_symbolic_c08
   machine_gear_ratio_symbolic_c09 machine_gear_ratio_symbolic_c10
   machine_gear_ratio_symbolic_c11 machine_gear_ratio_symbolic_c12
   machine_gear_ratio_symbolic_c13 machine_gear_ratio_symbolic_c14
   machine_gear_ratio_symbolic_c15 machine_gear_ratio_symbolic_c16
   machine_gear_ratio_symbolic_c17 machine_gear_ratio_symbolic_c18
   machine_gear_ratio_symbolic_c19 machine_gear_ratio_symbolic_c20
   machine_groove_pressure_acceptable_maximum_c machine_groove_pressure_c
   machine_groove_pressure_constant_c01 machine_groove_pressure_constant_c02
   machine_groove_pressure_constant_c03 machine_groove_pressure_constant_c04
   machine_groove_pressure_constant_c05 machine_groove_pressure_constant_c06
   machine_groove_pressure_constant_c07 machine_groove_pressure_constant_c08
   machine_groove_pressure_constant_c09 machine_groove_pressure_constant_c10
   machine_sheave_center_to_front_machine_beam_support_c machine_sheave_height_c
   machine_sheave_to_deflector_sheave_c
   machine_sheave_to_deflector_sheave_diagonal_c
   machine_sheave_to_deflector_sheave_horizontal_c machine_suspended_load_c
   machine_total_weight_c motor_horsepower_c motor_horsepower_required_c01
   motor_horsepower_required_c02 motor_horsepower_required_c03
   motor_torque_releveling_c motorscompatible_machine18
   motorscompatible_machine28 motorscompatible_machine58
   noofhoistcables_of_elevator_values onebuffer_whenless38
   opening_to_hoistway_right_c opening_width_c peakmcur_calc_10hp_1
   peakmcur_calc_10hp_2 peakmcur_calc_10hp_3 peakmcur_calc_15hp_1
   peakmcur_calc_15hp_2 peakmcur_calc_15hp_3 peakmcur_calc_20hp_1
   peakmcur_calc_20hp_2 peakmcur_calc_25hp_1 peakmcur_calc_25hp_2
   peakmcur_calc_25hp_3 peakmcur_calc_30hp_1 peakmcur_calc_30hp_2
   peakmcur_calc_40hp_1 peakmcur_calc_40hp_2 platform_depth_c platform_model_c01
   platform_model_c02 platform_model_c03 platform_model_c04
   platform_to_hoistway_front_c platform_to_hoistway_left_c
   platform_to_hoistway_right_c platform_weight_c01 platform_weight_c02
   platform_weight_c03 platform_weight_factor_ap_c01
   platform_weight_factor_ap_c02 platform_weight_factor_ap_c03
   platform_weight_factor_ap_c04 platform_weight_factor_ap_c05
   platform_weight_factor_ap_c06 platform_weight_factor_ap_c07
   platform_weight_factor_ap_c08 platform_weight_factor_ap_c09
   platform_weight_factor_ap_c11 platform_weight_factor_s_c01
   platform_weight_factor_s_c02 platform_weight_factor_s_c03
   platform_weight_factor_x_c01 platform_weight_factor_x_c02
   platform_weight_factor_x_c03 platform_weight_factor_x_c04
   platform_weight_factor_x_c05 platform_weight_factor_z_c01
   platform_weight_factor_z_c02 platform_weight_factor_z_c03 platform_width_c01
   safety_beam_bending_moment_c safety_beam_between_guiderails_c
   safety_beam_load_c safety_beam_model_c01 safety_beam_model_c02
   safety_beam_model_c03 safety_beam_weight_c sling_stile_length_c
   sling_underbeam_c sling_weight_c MACHINE_BEAM_LENGTH_C)

  (HAS-SUBPART-SLOT
   elevator.car elevator.carbuffer elevator.carguiderail
   elevator.compensationcable elevator.controlcable elevator.counterweightbg
   elevator.counterwtbuffer elevator.counterwtguard elevator.counterwtguiderail
   elevator.crosshead elevator.deflectorsheave elevator.door elevator.governor
   elevator.governorcable elevator.hoistcable elevator.intercom elevator.lantern
   elevator.machine elevator.mbeam elevator.motgenerator elevator.motor
   elevator.msheavegroove elevator.phone elevator.platform elevator.positionind
   elevator.safety elevator.sling)

  (HOISTWAY_BRACKET_SPACING
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (HOISTWAY_DEPTH
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (HOISTWAY_FLOOR_HEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (HOISTWAY_OVERHEAD
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (HOISTWAY_PIT_DEPTH
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (HOISTWAY_TOP_LANDING_TO_UNDERSIDE_MACHINE_BEAM
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (HOISTWAY_TRAVEL
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (HOISTWAY_WIDTH
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (HOIST_CABLE_ABOVE_COUNTERWEIGHT_CAR_BOTTOM
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (HOIST_CABLE_LENGTH
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (HOIST_CABLE_LOAD_CAR_SIDE_CAR_BOTTOM
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (HOIST_CABLE_LOAD_CAR_SIDE_CAR_TOP
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (HOIST_CABLE_LOAD_COUNTERWEIGHT_SIDE_CAR_BOTTOM
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (HOIST_CABLE_LOAD_COUNTERWEIGHT_SIDE_CAR_TOP
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (HOIST_CABLE_QUANTITY
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (HOIST_CABLE_SAFETY_FACTOR
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (HOIST_CABLE_SAFETY_FACTOR_MINIMUM
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (HOIST_CABLE_TRACTION_FACTOR
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (HOIST_CABLE_TRACTION_RATIO
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (HOIST_CABLE_TRACTION_RATIO_CAR_BOTTOM_EMPTY
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (HOIST_CABLE_TRACTION_RATIO_CAR_BOTTOM_FULL
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (HOIST_CABLE_TRACTION_RATIO_CAR_TOP_EMPTY
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (HOIST_CABLE_TRACTION_RATIO_CAR_TOP_FULL
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_ACCELERATION_MAXIMUM 4.25
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_ANGLE_OF_CONTACT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_BEAM_BEARING_PLATE_THICKNESS 1
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (MACHINE_BEAM_BENDING_MOMENT_LEFT_MAXIMUM
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_BEAM_BENDING_MOMENT_RIGHT_MAXIMUM
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_BEAM_CENTER_TO_MACHINE_SHEAVE_CENTER
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_BEAM_IMPACT_LOAD_LEFT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_BEAM_IMPACT_LOAD_RIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_BEAM_IMPACT_LOAD_TOTAL
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_BEAM_LENGTH
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_BEAM_LOAD_FRONT_LEFT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_BEAM_LOAD_FRONT_RIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_BEAM_LOAD_REAR_LEFT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_BEAM_LOAD_REAR_RIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_BEAM_REACTION_FRONT_LEFT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_BEAM_REACTION_FRONT_RIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_BEAM_REACTION_REAR_LEFT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_BEAM_REACTION_REAR_RIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_BEAM_SAFETY_FACTOR 1.05  ;; Guus Schreiber
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_BEAM_SECTION_MODULUS_LEFT_MINIMUM
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_BEAM_SECTION_MODULUS_RIGHT_MINIMUM
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_BEAM_SUPPORT_BOTTOM_TO_MACHINE_ROOM_TOP
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_BEAM_SUPPORT_BOTTOM_TO_MACHINE_ROOM_TOP_SPEC
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_BEAM_SUPPORT_DISTANCE
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_BEAM_SUPPORT_FRONT_TO_HOISTWAY
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_BEAM_SUPPORT_TO_MACHINE_BEAM_CENTER
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_BEAM_SUPPORT_TYPE
    (Slot-Cardinality 1)
    (Slot-Value-Type string))
  (MACHINE_BEAM_TOTAL_LOAD_LEFT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_BEAM_TOTAL_LOAD_RIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_BEAM_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_EFFICIENCY
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_GEAR_RATIO_NUMERIC
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_GROOVE_PRESSURE
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_GROOVE_PRESSURE_ACCEPTABLE_MAXIMUM
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_GROOVE_PRESSURE_CONSTANT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_SHEAVE_CENTER_TO_FRONT_MACHINE_BEAM_SUPPORT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_SHEAVE_HEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_SHEAVE_TO_DEFLECTOR_SHEAVE
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_SHEAVE_TO_DEFLECTOR_SHEAVE_DIAGONAL
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_SHEAVE_TO_DEFLECTOR_SHEAVE_HORIZONTAL
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_SUSPENDED_LOAD
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_TOTAL_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MAXACCEPTABLECARBUFFSTROKE
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MINACCEPTABLEMBEAMMODULUS
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MINACCEPTABLEOPENINGW
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MODEL-ID
    (Slot-Cardinality 1))
  (MOTOR_CURRENT_SUPPORTED_MAXIMUM 150
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (MOTOR_HORSEPOWER_REQUIRED
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MOTOR_PEAK_CURRENT_REQUIRED
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MOTOR_TORQUE_RELEVELING
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (OPENING_COUNT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (OPENING_HEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (OPENING_TO_HOISTWAY_LEFT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (OPENING_TO_HOISTWAY_RIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (OPENING_WIDTH_BUILDING
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (OPENING_WIDTH_DOOR
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (PLATFORM_DEPTH
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (PLATFORM_DEPTH_SPEC
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (PLATFORM_RUNNING_CLEARANCE 1.25
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (PLATFORM_TO_HOISTWAY_FRONT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (PLATFORM_TO_HOISTWAY_LEFT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (PLATFORM_TO_HOISTWAY_RIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (PLATFORM_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (PLATFORM_WEIGHT_FACTOR_AP
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (PLATFORM_WEIGHT_FACTOR_S
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (PLATFORM_WEIGHT_FACTOR_X
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (PLATFORM_WEIGHT_FACTOR_Z
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (PLATFORM_WIDTH
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (PLATFORM_WIDTH_F
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (SAFETY_BEAM_BENDING_MOMENT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (SAFETY_BEAM_BETWEEN_GUIDERAILS
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (SAFETY_BEAM_BG
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (SAFETY_BEAM_LOAD
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (SAFETY_BEAM_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (SLING_STILE_LENGTH
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (SLING_UNDERBEAM
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (SLING_UNDERBEAM_SPACE
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (SLING_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number)))
 :issues ((:modification-by "Guus Schreiber:
;;  MACHINE_BEAM_SAFETY_FACTOR           =  1.05 (Sec. 5.13)
;;  COUNTERWEIGHT_U_BRACKET_PROTRUSION   =  0.75 (Sec. 4.4)")
	  (:modification-by "Removed from has-constraint list,
due to comment by Guus Schreiber:

;;  BUG: redundant constraints
;;  
;;  The constraints: 
;;       car_return_left_c01
;;       car_return_left_c02
;;       car_return_left_c03
;;  are really subsumed by car_return_left_c0[4-9]")
	  (:modification-by "As suggested by Guus Schreiber:
COUNTERWEIGHT_BUFFER_HEIGHT was removed from elevator and
every reference to (COUNTERWEIGHT_BUFFER_HEIGHT ?x)
was replaced with (counterweight_buffer_height (elevator.counterweight ?x))" nil)
	  ))

(define-frame GOVERNOR_MODEL
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF vt-component))
 :template-slots (
  (HAS-PARAMETER-SLOT model-id)
  (MODEL-ID
    (Slot-Cardinality 1)))
 :issues ((:formerly-named governor)
          (:source
           "The Yost document, under \"GOVERNOR_MODEL\"")))

(define-frame GOVERNOR_CABLE_MODEL
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF vt-component))
 :template-slots (
  (GOVERNOR_CABLE_DIAMETER
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (HAS-PARAMETER-SLOT governor_cable_diameter)
  (MODEL-ID
    (Slot-Cardinality 1)))
 :issues ((:formerly-named governorcable)
          (:source
           "The Yost document, under \"GOVERNOR_MODEL\"")))

(define-frame GOVERNOR_CABLE_MODEL_M01
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF governor_cable_model))
 :template-slots (
  (GOVERNOR_CABLE_DIAMETER 0.375)
  (HAS-PARAMETER-SLOT governor_cable_diameter)
  (MODEL-ID governor_cable_model_m01))
 :issues ((:formerly-named govcable1)
          (:source
           "The Yost document, under \"GOVERNOR_MODEL\"")))

(define-frame GOVERNOR_MODEL_M01
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF governor_model))
 :template-slots (
  (MODEL-ID governor_model_m01))
 :issues ((:formerly-named governor_b5b)
          (:source
           "The Yost document, under \"GOVERNOR_MODEL\"")))

(define-frame HOIST_CABLE_MODEL
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF vt-component))
 :template-slots (
  (HAS-PARAMETER-SLOT
    hoist_cable_diameter hoist_cable_quantity_f hoist_cable_ultimate_strength hoist_cable_unit_weight)
  (HOIST_CABLE_DIAMETER
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (HOIST_CABLE_QUANTITY_F
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (HOIST_CABLE_ULTIMATE_STRENGTH
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (HOIST_CABLE_UNIT_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MODEL-ID
    (Slot-Cardinality 1)))
 :issues ((:formerly-named hoistcable)
          (:source
           "The Yost document, under \"HOIST_CABLE_MODEL\"")))

(define-frame HOIST_CABLE_MODEL_M01
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF hoist_cable_model))
 :template-slots (
  (HAS-PARAMETER-SLOT
    hoist_cable_diameter hoist_cable_quantity_f hoist_cable_ultimate_strength)
  (HOIST_CABLE_DIAMETER 0.5)
  (HOIST_CABLE_QUANTITY_F 3)
  (HOIST_CABLE_ULTIMATE_STRENGTH 14500)
  (HOIST_CABLE_UNIT_WEIGHT 0.03)
  (MODEL-ID hoist_cable_model_m01))
 :issues ((:formerly-named hoistcable3_5)
          (:source
           "The Yost document, under \"HOIST_CABLE_MODEL\"")))

(define-frame HOIST_CABLE_MODEL_M02
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF hoist_cable_model))
 :template-slots (
  (HAS-PARAMETER-SLOT
    hoist_cable_diameter hoist_cable_quantity_f hoist_cable_ultimate_strength)
  (HOIST_CABLE_DIAMETER 0.625)
  (HOIST_CABLE_QUANTITY_F 3)
  (HOIST_CABLE_ULTIMATE_STRENGTH 23000)
  (HOIST_CABLE_UNIT_WEIGHT 0.048)
  (MODEL-ID hoist_cable_model_m02))
 :issues ((:formerly-named hoistcable3_625)
          (:source
           "The Yost document, under \"HOIST_CABLE_MODEL\"")))

(define-frame HOIST_CABLE_MODEL_M03
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF hoist_cable_model))
 :template-slots (
  (HAS-PARAMETER-SLOT
    hoist_cable_diameter hoist_cable_quantity_f hoist_cable_ultimate_strength)
  (HOIST_CABLE_DIAMETER 0.5)
  (HOIST_CABLE_QUANTITY_F 4)
  (HOIST_CABLE_ULTIMATE_STRENGTH 14500)
  (HOIST_CABLE_UNIT_WEIGHT 0.03)
  (MODEL-ID hoist_cable_model_m03))
 :issues ((:formerly-named hoistcable4_5)
          (:source
           "The Yost document, under \"HOIST_CABLE_MODEL\"")))

(define-frame HOIST_CABLE_MODEL_M04
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF hoist_cable_model))
 :template-slots (
  (HAS-PARAMETER-SLOT
    hoist_cable_diameter hoist_cable_quantity_f hoist_cable_ultimate_strength)
  (HOIST_CABLE_DIAMETER 0.625)
  (HOIST_CABLE_QUANTITY_F 4)
  (HOIST_CABLE_ULTIMATE_STRENGTH 23000)
  (HOIST_CABLE_UNIT_WEIGHT 0.048)
  (MODEL-ID hoist_cable_model_m04))
 :issues ((:formerly-named hoistcable4_625)
          (:source
           "The Yost document, under \"HOIST_CABLE_MODEL\"")))

(define-frame HOIST_CABLE_MODEL_M05
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF hoist_cable_model))
 :template-slots (
  (HAS-PARAMETER-SLOT
    hoist_cable_diameter hoist_cable_quantity_f hoist_cable_ultimate_strength)
  (HOIST_CABLE_DIAMETER 0.5)
  (HOIST_CABLE_QUANTITY_F 5)
  (HOIST_CABLE_ULTIMATE_STRENGTH 14500)
  (HOIST_CABLE_UNIT_WEIGHT 0.03)
  (MODEL-ID hoist_cable_model_m05))
 :issues ((:formerly-named hoistcable5_5)
          (:source
           "The Yost document, under \"HOIST_CABLE_MODEL\"")))

(define-frame HOIST_CABLE_MODEL_M06
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF hoist_cable_model))
 :template-slots (
  (HAS-PARAMETER-SLOT
    hoist_cable_diameter hoist_cable_quantity_f hoist_cable_ultimate_strength)
  (HOIST_CABLE_DIAMETER 0.625)
  (HOIST_CABLE_QUANTITY_F 5)
  (HOIST_CABLE_ULTIMATE_STRENGTH 23000)
  (HOIST_CABLE_UNIT_WEIGHT 0.048)
  (MODEL-ID hoist_cable_model_m06))
 :issues ((:formerly-named hoistcable5_625)
          (:source
           "The Yost document, under \"HOIST_CABLE_MODEL\"")))

(define-frame HOIST_CABLE_MODEL_M07
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF hoist_cable_model))
 :template-slots (
  (HAS-PARAMETER-SLOT
    hoist_cable_diameter hoist_cable_quantity_f hoist_cable_ultimate_strength)
  (HOIST_CABLE_DIAMETER 0.5)
  (HOIST_CABLE_QUANTITY_F 6)
  (HOIST_CABLE_ULTIMATE_STRENGTH 14500)
  (HOIST_CABLE_UNIT_WEIGHT 0.03)
  (MODEL-ID hoist_cable_model_m07))
 :issues ((:formerly-named hoistcable6_5)
          (:source
           "The Yost document, under \"HOIST_CABLE_MODEL\"")))

(define-frame HOIST_CABLE_MODEL_M08
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF hoist_cable_model))
 :template-slots (
  (HAS-PARAMETER-SLOT
    hoist_cable_diameter hoist_cable_quantity_f hoist_cable_ultimate_strength)
  (HOIST_CABLE_DIAMETER 0.625)
  (HOIST_CABLE_QUANTITY_F 6)
  (HOIST_CABLE_ULTIMATE_STRENGTH 23000)
  (HOIST_CABLE_UNIT_WEIGHT 0.048)
  (MODEL-ID hoist_cable_model_m08))
 :issues ((:formerly-named hoistcable6_625)
          (:source
           "The Yost document, under \"HOIST_CABLE_MODEL\"")))

(define-frame CAR_INTERCOM
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF vt-component))
 :template-slots (
  (HAS-PARAMETER-SLOT car_intercom_weight)
  (MODEL-ID
    (Slot-Cardinality 1))
  (CAR_INTERCOM_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type integer)))
 :issues ((:formerly-named intercom)
          (:source
           "The Yost document, under \"CAR_INTERCOM\"")))

(define-frame CAR_INTERCOM_M01
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF car_intercom))
 :template-slots (
  (HAS-PARAMETER-SLOT car_intercom_weight)
  (MODEL-ID car_intercom_m01)
  (CAR_INTERCOM_WEIGHT 0))
 :issues ((:formerly-named intercom0)
          (:source
           "The Yost document, under \"CAR_INTERCOM\"")))

(define-frame CAR_INTERCOM_M02
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF car_intercom))
 :template-slots (
  (HAS-PARAMETER-SLOT car_intercom_weight)
  (MODEL-ID car_intercom_m02)
  (CAR_INTERCOM_WEIGHT 5))
 :issues ((:formerly-named intercom1)
          (:source
           "The Yost document, under \"CAR_INTERCOM\"")))

(define-frame CAR_LANTERN
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF vt-component))
 :template-slots (
  (HAS-PARAMETER-SLOT car_lantern_weight)
  (MODEL-ID
    (Slot-Cardinality 1))
  (CAR_LANTERN_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type integer)))
 :issues ((:formerly-named lantern)
          (:source
           "The Yost document, under \"CAR_LANTERN\"")
	  (:modification-by "Guus Schreiber:
Renamed the WEIGHT parameter to be specific to this component type.")))

(define-frame CAR_LANTERN_M01
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF car_lantern))
 :template-slots (
  (HAS-PARAMETER-SLOT car_lantern_weight)
  (MODEL-ID car_lantern_m01)
  (CAR_LANTERN_WEIGHT 0))
 :issues ((:formerly-named lantern0)
          (:source
           "The Yost document, under \"CAR_LANTERN\"")
	  (:modification-by "Guus Schreiber:
Renamed the WEIGHT parameter to be specific to this component type.")))

(define-frame CAR_LANTERN_M02
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF car_lantern))
 :template-slots (
  (HAS-PARAMETER-SLOT car_lantern_weight)
  (MODEL-ID car_lantern_m02)
  (CAR_LANTERN_WEIGHT 9))
 :issues ((:formerly-named lantern1)
          (:source
           "The Yost document, under \"CAR_LANTERN\"")
	  (:modification-by "Guus Schreiber:
Renamed the WEIGHT parameter to be specific to this component type.")))

(define-frame MACHINE_MODEL
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF vt-component))
 :template-slots (
  (HAS-PARAMETER-SLOT
    machine_efficiency machine_gear_ratio_numeric machine_left_offset machine_right_offset machine_sheave_diameter machine_sheave_height_f machine_suspended_load_maximum machine_weight)
  (HAS-CONSTRAINT machine_efficiency_c01)
  (MACHINE_EFFICIENCY
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_GEAR_RATIO_NUMERIC
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_LEFT_OFFSET
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_RIGHT_OFFSET
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_SHEAVE_DIAMETER
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (MACHINE_SHEAVE_HEIGHT_F
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (MACHINE_SUSPENDED_LOAD_MAXIMUM
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (MACHINE_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (MODEL-ID
    (Slot-Cardinality 1)))
 :issues ((:formerly-named machine)
          (:source
           "The Yost document, under \"MACHINE_MODEL\"")))

(define-frame MACHINE_MODEL_M01
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF machine_model))
 :template-slots (
  (HAS-PARAMETER-SLOT
    machine_left_offset machine_right_offset machine_sheave_diameter machine_sheave_height_f machine_weight)
  (MACHINE_LEFT_OFFSET 4.4375)
  (MACHINE_RIGHT_OFFSET 9.4375)
  (MACHINE_SHEAVE_DIAMETER 24)
  (MACHINE_SHEAVE_HEIGHT_F 19)
  (MACHINE_SUSPENDED_LOAD_MAXIMUM 11500)
  (MACHINE_WEIGHT 1100)
  (MODEL-ID machine_model_m01))
 :issues ((:formerly-named machine18)
          (:source
           "The Yost document, under \"MACHINE_MODEL\"")))

(define-frame MACHINE_MODEL_M02
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF machine_model))
 :template-slots (
  (HAS-PARAMETER-SLOT
    machine_left_offset machine_right_offset machine_sheave_diameter machine_sheave_height_f machine_weight)
  (MACHINE_LEFT_OFFSET 8
    (Slot-Value-Type integer))
  (MACHINE_RIGHT_OFFSET 8
    (Slot-Value-Type integer))
  (MACHINE_SHEAVE_DIAMETER 30)
  (MACHINE_SHEAVE_HEIGHT_F 26)
  (MACHINE_SUSPENDED_LOAD_MAXIMUM 13200)
  (MACHINE_WEIGHT 1700)
  (MODEL-ID machine_model_m02))
 :issues ((:formerly-named machine28)
          (:source
           "The Yost document, under \"MACHINE_MODEL\"")
	  (:modification-by "Guus Schreiber:
;;  BUG: value of diamater should be 30 instead of 300")))

(define-frame MACHINE_MODEL_M03
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF machine_model))
 :template-slots (
  (HAS-PARAMETER-SLOT
    machine_left_offset machine_right_offset machine_sheave_diameter machine_sheave_height_f machine_weight)
  (MACHINE_LEFT_OFFSET 8
    (Slot-Value-Type integer))
  (MACHINE_RIGHT_OFFSET 8
    (Slot-Value-Type integer))
  (MACHINE_SHEAVE_DIAMETER 30)
  (MACHINE_SHEAVE_HEIGHT_F 30)
  (MACHINE_SUSPENDED_LOAD_MAXIMUM 20000)
  (MACHINE_WEIGHT 2400)
  (MODEL-ID machine_model_m03))
 :issues ((:formerly-named machine38)
          (:source
           "The Yost document, under \"MACHINE_MODEL\"")))

(define-frame MACHINE_MODEL_M04
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF machine_model))
 :template-slots (
  (HAS-PARAMETER-SLOT
    machine_left_offset machine_right_offset machine_sheave_diameter machine_sheave_height_f machine_weight)
  (MACHINE_LEFT_OFFSET 14.75)
  (MACHINE_RIGHT_OFFSET 14.75)
  (MACHINE_SHEAVE_DIAMETER 32)
  (MACHINE_SHEAVE_HEIGHT_F 33)
  (MACHINE_SUSPENDED_LOAD_MAXIMUM 24600)
  (MACHINE_WEIGHT 2750)
  (MODEL-ID machine_model_m04))
 :issues ((:formerly-named machine58)
          (:source
           "The Yost document, under \"MACHINE_MODEL\"")))

(define-frame MACHINE_BEAM_MODEL
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF vt-component))
 :template-slots (
  (HAS-PARAMETER-SLOT
    machine_beam_section_modulus machine_beam_unit_weight)
  (MACHINE_BEAM_SECTION_MODULUS
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (MACHINE_BEAM_UNIT_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (MODEL-ID
    (Slot-Cardinality 1)))
 :issues ((:formerly-named mbeam)
          (:source
           "The Yost document, under \"MACHINE_BEAM_MODEL\"")))

(define-frame MACHINE_BEAM_MODEL_M01
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF machine_beam_model))
 :template-slots (
  (HAS-PARAMETER-SLOT machine_beam_section_modulus)
  (MACHINE_BEAM_SECTION_MODULUS 24.7)
  (MACHINE_BEAM_UNIT_WEIGHT 25.4
    (Slot-Value-Type real-number))
  (MODEL-ID machine_beam_model_m01))
 :issues ((:formerly-named mbeam_s10x25_4)
          (:source
           "The Yost document, under \"MACHINE_BEAM_MODEL\"")))

(define-frame MACHINE_BEAM_MODEL_M02
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF machine_beam_model))
 :template-slots (
  (HAS-PARAMETER-SLOT machine_beam_section_modulus)
  (MACHINE_BEAM_SECTION_MODULUS 29.4)
  (MACHINE_BEAM_UNIT_WEIGHT 35)
  (MODEL-ID machine_beam_model_m02))
 :issues ((:formerly-named mbeam_s10x35_0)
          (:source
           "The Yost document, under \"MACHINE_BEAM_MODEL\"")))

(define-frame MACHINE_BEAM_MODEL_M03
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF machine_beam_model))
 :template-slots (
  (HAS-PARAMETER-SLOT machine_beam_section_modulus)
  (MACHINE_BEAM_SECTION_MODULUS 36.4)
  (MACHINE_BEAM_UNIT_WEIGHT 31.8
    (Slot-Value-Type real-number))
  (MODEL-ID machine_beam_model_m03))
 :issues ((:formerly-named mbeam_s12x31_8)
          (:source
           "The Yost document, under \"MACHINE_BEAM_MODEL\"")))

(define-frame MACHINE_BEAM_MODEL_M04
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF machine_beam_model))
 :template-slots (
  (HAS-PARAMETER-SLOT machine_beam_section_modulus)
  (MACHINE_BEAM_SECTION_MODULUS 38.2)
  (MACHINE_BEAM_UNIT_WEIGHT 35)
  (MODEL-ID machine_beam_model_m04))
 :issues ((:formerly-named mbeam_s12x35_0)
          (:source
           "The Yost document, under \"MACHINE_BEAM_MODEL\"")))

(define-frame MOTOR_GENERATOR_MODEL
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF vt-component))
 :template-slots (
  (HAS-PARAMETER-SLOT motor_generator_current_maximum)
  (MODEL-ID
    (Slot-Cardinality 1))
  (MOTOR_GENERATOR_CURRENT_MAXIMUM
    (Slot-Cardinality 1)
    (Slot-Value-Type integer)))
 :issues ((:formerly-named motgenerator)
          (:source
           "The Yost document, under \"MOTOR_GENERATOR_MODEL\"")))

(define-frame MOTOR_GENERATOR_MODEL_M01
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF motor_generator_model))
 :template-slots (
  (HAS-PARAMETER-SLOT motor_generator_current_maximum)
  (MODEL-ID motor_generator_model_m01)
  (MOTOR_GENERATOR_CURRENT_MAXIMUM 143))
 :issues ((:formerly-named motgen_286_230v)
          (:source
           "The Yost document, under \"MOTOR_GENERATOR_MODEL\"")))

(define-frame MOTOR_GENERATOR_MODEL_M02
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF motor_generator_model))
 :template-slots (
  (HAS-PARAMETER-SLOT motor_generator_current_maximum)
  (MODEL-ID motor_generator_model_m02)
  (MOTOR_GENERATOR_CURRENT_MAXIMUM 450))
 :issues ((:formerly-named motgen_3609_5a_240v)
          (:source
           "The Yost document, under \"MOTOR_GENERATOR_MODEL\"")))

(define-frame MOTOR_GENERATOR_MODEL_M03
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF motor_generator_model))
 :template-slots (
  (HAS-PARAMETER-SLOT motor_generator_current_maximum)
  (MODEL-ID motor_generator_model_m03)
  (MOTOR_GENERATOR_CURRENT_MAXIMUM 238))
 :issues ((:formerly-named motgen_46_230v)
          (:source
           "The Yost document, under \"MOTOR_GENERATOR_MODEL\"")))

(define-frame MOTOR_GENERATOR_MODEL_M04
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF motor_generator_model))
 :template-slots (
  (HAS-PARAMETER-SLOT motor_generator_current_maximum)
  (MODEL-ID motor_generator_model_m04)
  (MOTOR_GENERATOR_CURRENT_MAXIMUM 340))
 :issues ((:formerly-named motgen_64_260v)
          (:source
           "The Yost document, under \"MOTOR_GENERATOR_MODEL\"")))

(define-frame MOTOR
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF vt-component))
 :template-slots (
  (HAS-PARAMETER-SLOT
    motor_current_maximum motor_current_supported_maximum motor_horsepower motor_weight)
  (MODEL-ID
    (Slot-Cardinality 1))
  (MOTOR_CURRENT_MAXIMUM
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (MOTOR_CURRENT_SUPPORTED_MAXIMUM 150
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (MOTOR_HORSEPOWER
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (MOTOR_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))))

(define-frame MOTOR_MODEL_M01
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF motor))
 :template-slots (
  (HAS-PARAMETER-SLOT
    motor_current_maximum motor_weight)
  (MODEL-ID motor_model_m01)
  (MOTOR_CURRENT_MAXIMUM 150)
  (MOTOR_HORSEPOWER 10)
  (MOTOR_WEIGHT 374))
 :issues ((:formerly-named motor10hp)
          (:source
           "The Yost document, under \"MOTOR_MODEL\"")))

(define-frame MOTOR_MODEL_M02
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF motor))
 :template-slots (
  (HAS-PARAMETER-SLOT
    motor_current_maximum motor_weight)
  (MODEL-ID motor_model_m02)
  (MOTOR_CURRENT_MAXIMUM 250)
  (MOTOR_HORSEPOWER 15)
  (MOTOR_WEIGHT 473))
 :issues ((:formerly-named motor15hp)
          (:source
           "The Yost document, under \"MOTOR_MODEL\"")))

(define-frame MOTOR_MODEL_M03
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF motor))
 :template-slots (
  (HAS-PARAMETER-SLOT
    motor_current_maximum motor_weight)
  (MODEL-ID motor_model_m03)
  (MOTOR_CURRENT_MAXIMUM 260)
  (MOTOR_HORSEPOWER 20)
  (MOTOR_WEIGHT 539))
 :issues ((:formerly-named motor20hp)
          (:source
           "The Yost document, under \"MOTOR_MODEL\"")))

(define-frame MOTOR_MODEL_M04
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF motor))
 :template-slots (
  (HAS-PARAMETER-SLOT
    motor_current_maximum motor_weight)
  (MODEL-ID motor_model_m04)
  (MOTOR_CURRENT_MAXIMUM 340)
  (MOTOR_HORSEPOWER 25)
  (MOTOR_WEIGHT 615))
 :issues ((:formerly-named motor25hp)
          (:source
           "The Yost document, under \"MOTOR_MODEL\"")))

(define-frame MOTOR_MODEL_M05
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF motor))
 :template-slots (
  (HAS-PARAMETER-SLOT
    motor_current_maximum motor_weight)
  (MODEL-ID motor_model_m05)
  (MOTOR_CURRENT_MAXIMUM 440)
  (MOTOR_HORSEPOWER 30)
  (MOTOR_WEIGHT 715))
 :issues ((:formerly-named motor30hp)
          (:source
           "The Yost document, under \"MOTOR_MODEL\"")))

(define-frame MOTOR_MODEL_M06
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF motor))
 :template-slots (
  (HAS-PARAMETER-SLOT
    motor_current_maximum motor_weight)
  (MODEL-ID motor_model_m06)
  (MOTOR_CURRENT_MAXIMUM 530)
  (MOTOR_HORSEPOWER 40)
  (MOTOR_WEIGHT 990))
 :issues ((:formerly-named motor40hp)
          (:source
           "The Yost document, under \"MOTOR_MODEL\"")))

(define-frame MACHINE_GROOVE_MODEL
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF vt-component))
 :template-slots (
  (HAS-PARAMETER-SLOT model-id)
  (MODEL-ID
    (Slot-Cardinality 1)))
 :issues ((:formerly-named msheavegroove)
          (:source
           "The Yost document, under \"MACHINE_GROOVE_MODEL\"")))

(define-frame MACHINE_GROOVE_MODEL_M01
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF machine_groove_model))
 :template-slots (
  (MODEL-ID machine_groove_model_m01))
 :issues ((:formerly-named msheavegroove_k3140)
          (:source
           "The Yost document, under \"MACHINE_GROOVE_MODEL\"")))

(define-frame MACHINE_GROOVE_MODEL_M02
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF machine_groove_model))
 :template-slots (
  (MODEL-ID machine_groove_model_m02))
 :issues ((:formerly-named msheavegroove_k3269)
          (:source
           "The Yost document, under \"MACHINE_GROOVE_MODEL\"")))

(define-frame CAR_PHONE
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF vt-component))
 :template-slots (
  (HAS-PARAMETER-SLOT car_phone_weight)
  (MODEL-ID
    (Slot-Cardinality 1))
  (CAR_PHONE_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type integer)))
 :issues ((:formerly-named phone)
          (:source
           "The Yost document, under \"CAR_PHONE\"")
	  (:modification-by "Guus Schreiber:
Renamed the WEIGHT parameter to be specific to this component type.")))

(define-frame CAR_PHONE_M01
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF car_phone))
 :template-slots (
  (HAS-PARAMETER-SLOT car_phone_weight)
  (MODEL-ID car_phone_m01)
  (CAR_PHONE_WEIGHT 0))
 :issues ((:formerly-named phone0)
          (:source
           "The Yost document, under \"CAR_PHONE\"")
	  (:modification-by "Guus Schreiber:
Renamed the WEIGHT parameter to be specific to this component type.")))

(define-frame CAR_PHONE_M02
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF car_phone))
 :template-slots (
  (HAS-PARAMETER-SLOT car_phone_weight)
  (MODEL-ID car_phone_m02)
  (CAR_PHONE_WEIGHT 10))
 :issues ((:formerly-named phone1)
          (:source
           "The Yost document, under \"CAR_PHONE\"")
	  (:modification-by "Guus Schreiber:
Renamed the WEIGHT parameter to be specific to this component type.")))

(define-frame PLATFORM_MODEL
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF vt-component))
 :template-slots (
  (CAR_CAPACITY
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (HAS-PARAMETER-SLOT
    car_capacity platform_depth platform_height platform_width_f)
  (HAS-CONSTRAINT c-41)
  (MODEL-ID
    (Slot-Cardinality 1))
  (PLATFORM_DEPTH
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (PLATFORM_HEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (PLATFORM_WIDTH_F
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number)))
 :issues ((:formerly-named platform)
          (:source
           "The Yost document, under \"PLATFORM_MODEL\"")))

(define-frame PLATFORM_MODEL_M01
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF platform_model))
 :template-slots (
  (HAS-PARAMETER-SLOT platform_height)
  (MODEL-ID platform_model_m01)
  (PLATFORM_HEIGHT 6.625))
 :issues ((:formerly-named platform_25b)
          (:source
           "The Yost document, under \"PLATFORM_MODEL\"")))

(define-frame PLATFORM_MODEL_M02
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF platform_model))
 :template-slots (
  (HAS-PARAMETER-SLOT platform_height)
  (MODEL-ID platform_model_m02)
  (PLATFORM_HEIGHT 6.625))
 :issues ((:formerly-named platform_4b)
          (:source
           "The Yost document, under \"PLATFORM_MODEL\"")))

(define-frame PLATFORM_MODEL_M03
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF platform_model))
 :template-slots (
  (HAS-PARAMETER-SLOT platform_height)
  (MODEL-ID platform_model_m03)
  (PLATFORM_HEIGHT 6.6875))
 :issues ((:formerly-named platform_6b)
          (:source
           "The Yost document, under \"PLATFORM_MODEL\"")))

(define-frame CAR_POSITION_INDICATOR
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF vt-component))
 :template-slots (
  (HAS-PARAMETER-SLOT car_position_indicator_weight)
  (MODEL-ID
    (Slot-Cardinality 1))
  (CAR_POSITION_INDICATOR_WEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type integer)))
 :issues ((:formerly-named positionind)
          (:source
           "The Yost document, under \"CAR_POSITION_INDICATOR\"")
	  (:modification-by "Guus Schreiber:
Renamed the WEIGHT parameter to be specific to this component type.")))

(define-frame CAR_POSITION_INDICATOR_M01
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF car_position_indicator))
 :template-slots (
  (HAS-PARAMETER-SLOT car_position_indicator_weight)
  (MODEL-ID car_position_indicator_m01)
  (CAR_POSITION_INDICATOR_WEIGHT 0))
 :issues ((:formerly-named positionind0)
          (:source
           "The Yost document, under \"CAR_POSITION_INDICATOR\"")
	  (:modification-by "Guus Schreiber:
Renamed the WEIGHT parameter to be specific to this component type.")))

(define-frame CAR_POSITION_INDICATOR_M02
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF car_position_indicator))
 :template-slots (
  (HAS-PARAMETER-SLOT car_position_indicator_weight)
  (MODEL-ID car_position_indicator_m02)
  (CAR_POSITION_INDICATOR_WEIGHT 12))
 :issues ((:formerly-named positionind1)
          (:source
           "The Yost document, under \"CAR_POSITION_INDICATOR\"")
	  (:modification-by "Guus Schreiber:
Renamed the WEIGHT parameter to be specific to this component type.")))

(define-frame SAFETY_BEAM_MODEL
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF vt-component))
 :template-slots (
  (HAS-PARAMETER-SLOT
    safety_beam_a safety_beam_b safety_beam_bending_moment_maximum safety_beam_constant safety_beam_height safety_beam_load_maximum)
  (MODEL-ID
    (Slot-Cardinality 1))
  (SAFETY_BEAM_A
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (SAFETY_BEAM_B
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (SAFETY_BEAM_BENDING_MOMENT_MAXIMUM
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (SAFETY_BEAM_CONSTANT
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (SAFETY_BEAM_HEIGHT
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (SAFETY_BEAM_LOAD_MAXIMUM
    (Slot-Cardinality 1)
    (Slot-Value-Type integer)))
 :issues ((:formerly-named safety)
          (:source
           "The Yost document, under \"SAFETY_BEAM_MODEL\"")))

(define-frame SAFETY_BEAM_MODEL_M01
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF safety_beam_model))
 :template-slots (
  (HAS-PARAMETER-SLOT
    safety_beam_a safety_beam_b safety_beam_bending_moment_maximum safety_beam_height safety_beam_load_maximum)
  (MODEL-ID safety_beam_model_m01)
  (SAFETY_BEAM_A 1.69)
  (SAFETY_BEAM_B 1)
  (SAFETY_BEAM_BENDING_MOMENT_MAXIMUM 682500)
  (SAFETY_BEAM_CONSTANT 2.25)
  (SAFETY_BEAM_HEIGHT 9)
  (SAFETY_BEAM_LOAD_MAXIMUM 8000))
 :issues ((:formerly-named safety_b1)
          (:source
           "The Yost document, under \"SAFETY_BEAM_MODEL\"")))

(define-frame SAFETY_BEAM_MODEL_M02
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF safety_beam_model))
 :template-slots (
  (HAS-PARAMETER-SLOT
    safety_beam_a safety_beam_b safety_beam_bending_moment_maximum safety_beam_height safety_beam_load_maximum)
  (MODEL-ID safety_beam_model_m02)
  (SAFETY_BEAM_A 2.3)
  (SAFETY_BEAM_B 540)
  (SAFETY_BEAM_BENDING_MOMENT_MAXIMUM 1233600)
  (SAFETY_BEAM_CONSTANT 2.25)
  (SAFETY_BEAM_HEIGHT 10)
  (SAFETY_BEAM_LOAD_MAXIMUM 12000))
 :issues ((:formerly-named safety_b4)
          (:source
           "The Yost document, under \"SAFETY_BEAM_MODEL\"")))

(define-frame SAFETY_BEAM_MODEL_M03
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF safety_beam_model))
 :template-slots (
  (HAS-PARAMETER-SLOT
    safety_beam_a safety_beam_b safety_beam_bending_moment_maximum safety_beam_height safety_beam_load_maximum)
  (MODEL-ID safety_beam_model_m03)
  (SAFETY_BEAM_A 2.6)
  (SAFETY_BEAM_B 1035)
  (SAFETY_BEAM_BENDING_MOMENT_MAXIMUM 1506000)
  (SAFETY_BEAM_CONSTANT 2.625)
  (SAFETY_BEAM_HEIGHT 13)
  (SAFETY_BEAM_LOAD_MAXIMUM 20000))
 :issues ((:formerly-named safety_b6)
          (:source
           "The Yost document, under \"SAFETY_BEAM_MODEL\"")))

(define-frame SLING_MODEL
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF vt-component))
 :template-slots (
  (HAS-PARAMETER-SLOT
    sling_bending_moment_maximum sling_deflection_index_maximum sling_weight_factor_a sling_weight_factor_b sling_weight_factor_c)
  (MODEL-ID
    (Slot-Cardinality 1))
  (SLING_BENDING_MOMENT_MAXIMUM
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (SLING_DEFLECTION_INDEX_MAXIMUM
    (Slot-Cardinality 1)
    (Slot-Value-Type integer))
  (SLING_WEIGHT_FACTOR_A
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (SLING_WEIGHT_FACTOR_B
    (Slot-Cardinality 1)
    (Slot-Value-Type real-number))
  (SLING_WEIGHT_FACTOR_C
    (Slot-Cardinality 1)
    (Slot-Value-Type integer)))
 :issues ((:formerly-named sling)
          (:source
           "The Yost document, under \"SLING_MODEL\"")))

(define-frame SLING_MODEL_M01
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF sling_model))
 :template-slots (
  (HAS-PARAMETER-SLOT
    sling_bending_moment_maximum sling_weight_factor_a sling_weight_factor_b sling_weight_factor_c)
  (MODEL-ID sling_model_m01)
  (SLING_BENDING_MOMENT_MAXIMUM 705000)
  (SLING_DEFLECTION_INDEX_MAXIMUM 84600000)
  (SLING_WEIGHT_FACTOR_A 1.5)
  (SLING_WEIGHT_FACTOR_B 1.002)
  (SLING_WEIGHT_FACTOR_C 56))
 :issues ((:formerly-named sling_25b_18)
          (:source
           "The Yost document, under \"SLING_MODEL\"")))

(define-frame SLING_MODEL_M02
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF sling_model))
 :template-slots (
  (HAS-PARAMETER-SLOT
    sling_bending_moment_maximum sling_weight_factor_a sling_weight_factor_b sling_weight_factor_c)
  (MODEL-ID sling_model_m02)
  (SLING_BENDING_MOMENT_MAXIMUM 850000)
  (SLING_DEFLECTION_INDEX_MAXIMUM 103800000)
  (SLING_WEIGHT_FACTOR_A 1.75)
  (SLING_WEIGHT_FACTOR_B 1.002)
  (SLING_WEIGHT_FACTOR_C 94))
 :issues ((:formerly-named sling_25b_21)
          (:source
           "The Yost document, under \"SLING_MODEL\"")))

(define-frame SLING_MODEL_M03
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF sling_model))
 :template-slots (
  (HAS-PARAMETER-SLOT
    sling_bending_moment_maximum sling_weight_factor_a sling_weight_factor_b sling_weight_factor_c)
  (MODEL-ID sling_model_m03)
  (SLING_BENDING_MOMENT_MAXIMUM 1340000)
  (SLING_DEFLECTION_INDEX_MAXIMUM 200700000)
  (SLING_WEIGHT_FACTOR_A 2.5)
  (SLING_WEIGHT_FACTOR_B 1.6)
  (SLING_WEIGHT_FACTOR_C 223))
 :issues ((:formerly-named sling_4b_gp)
          (:source
           "The Yost document, under \"SLING_MODEL\"")))

(define-frame SLING_MODEL_M04
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF sling_model))
 :template-slots (
  (HAS-PARAMETER-SLOT
    sling_bending_moment_maximum sling_weight_factor_a sling_weight_factor_b sling_weight_factor_c)
  (MODEL-ID sling_model_m04)
  (SLING_BENDING_MOMENT_MAXIMUM 810000)
  (SLING_DEFLECTION_INDEX_MAXIMUM 96900000)
  (SLING_WEIGHT_FACTOR_A 1.8)
  (SLING_WEIGHT_FACTOR_B 1.2)
  (SLING_WEIGHT_FACTOR_C 223))
 :issues ((:formerly-named sling_4b_hosp)
          (:source
           "The Yost document, under \"SLING_MODEL\"")))

(define-frame SLING_MODEL_M05
 :own-slots (
  (INSTANCE-OF class)
  (SUBCLASS-OF sling_model))
 :template-slots (
  (HAS-PARAMETER-SLOT
    sling_bending_moment_maximum sling_weight_factor_a sling_weight_factor_b sling_weight_factor_c)
  (MODEL-ID sling_model_m05)
  (SLING_BENDING_MOMENT_MAXIMUM 1790000)
  (SLING_DEFLECTION_INDEX_MAXIMUM 200700000)
  (SLING_WEIGHT_FACTOR_A 3.1)
  (SLING_WEIGHT_FACTOR_B 2.2)
  (SLING_WEIGHT_FACTOR_C 317))
 :issues ((:formerly-named sling_6c)
          (:source
           "The Yost document, under \"SLING_MODEL\"")))

(define-frame PLATFORM_WEIGHT_FACTOR_AP_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(and (>= (platform_weight_factor_ap ?x) 3)
      (=< (platform_weight_factor_ap ?x) 10))))
 :issues ((:formerly-named ap_of_elevator_values)
          (:source
           "The Yost document, under \"PLATFORM_WEIGHT_FACTOR_AP\"")))

(define-frame C-14
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (> (counterweight_buffer_quantity ?x) 2)
      (>= (counterweight_between_guiderails_value ?x) 38))))
 :issues ((:formerly-named atleast38_when2buffers)
          (:source
           "The Yost document, under \"C-14\"")))

(define-frame CONTROL_CABLE_LOAD_AVERAGE_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (control_cable_load_average ?x)
      (/
       (+ (control_cable_load_car_side_car_top ?x)
        (control_cable_load_car_side_car_bottom ?x))
       2))))
 :issues ((:formerly-named avctrlcableload_calc)
          (:source
           "The Yost document, under \"CONTROL_CABLE_LOAD_AVERAGE\"")))

(define-frame MACHINE_BEAM_REACTION_FRONT_LEFT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (machine_beam_reaction_front_left ?x)
      (- (machine_beam_total_load_left ?x)
       (machine_beam_reaction_rear_left ?x)))))
 :issues ((:formerly-named beamreaction_frontleft_calc)
          (:source
           "The Yost document, under \"MACHINE_BEAM_REACTION_FRONT_LEFT\"")))

(define-frame MACHINE_BEAM_REACTION_FRONT_RIGHT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (machine_beam_reaction_front_right ?x)
      (- (machine_beam_total_load_right ?x)
       (machine_beam_reaction_rear_right ?x)))))
 :issues ((:formerly-named beamreaction_frontright_calc)
          (:source
           "The Yost document, under \"MACHINE_BEAM_REACTION_FRONT_RIGHT\"")))

(define-frame MACHINE_BEAM_REACTION_REAR_LEFT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (machine_beam_reaction_rear_left ?x)
        (/ (+ (* (machine_beam_weight ?x)
                 (machine_beam_support_to_machine_beam_center ?x))
              (* (machine_beam_impact_load_left ?x)
                 (machine_sheave_center_to_front_machine_beam_support ?x)))
           (machine_beam_support_distance ?x)))))
 :issues ((:formerly-named beamreaction_rearleft_calc)
          (:source
           "The Yost document, under \"MACHINE_BEAM_REACTION_REAR_LEFT\"")
	  (:modification-by "Guus Schreiber:
;;  BUG: wrong placement of + in formula (Sec. 5.13)")))

(define-frame MACHINE_BEAM_REACTION_REAR_RIGHT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (machine_beam_reaction_rear_right ?x)
        (/ (+ (* (machine_beam_weight ?x)
                 (machine_beam_support_to_machine_beam_center ?x))
              (* (machine_beam_impact_load_right ?x)
                 (machine_sheave_center_to_front_machine_beam_support ?x)))
           (machine_beam_support_distance ?x)))))
 :issues ((:formerly-named beamreaction_rearright_calc)
          (:source
           "The Yost document, under \"MACHINE_BEAM_REACTION_REAR_RIGHT\"")
	  (:modification-by "Guus Schreiber:
;;  BUG: wrong placement of + in formula (Sec. 5.13)")))

(define-frame CONTROL_CABLE_MODEL_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (< (opening_count ?x) 15)
      (= (model-id (elevator.controlcable ?x)) control_cable_model_m01))))
 :issues ((:formerly-named c1)
          (:source
           "The Yost document, under \"CONTROL_CABLE_MODEL\"")))

(define-frame COMPENSATION_CABLE_LENGTH_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (/= (model-id (elevator.compensationcable ?x))
       compensation_cable_model_m07)
      (= (compensation_cable_length ?x)
       (+ (hoistway_travel ?x) (* 2 (+ (hoistway_pit_depth ?x) 120)))))))
 :issues ((:formerly-named c10)
          (:source
           "The Yost document, under \"COMPENSATION_CABLE_LENGTH\"")))

(define-frame COUNTERWEIGHT_BOTTOM_REFERENCE_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (counterweight_bottom_reference ?x)
        (+ (* 0.1 (hoistway_travel ?x))
           (+ 6
              (- (hoistway_pit_depth ?x)
                 (+ (counterweight_buffer_footing_channel_height ?x)
                    (+ (counterweight_buffer_blocking_height ?x)
                       (counterweight_buffer_height ?x)))))))))
 :issues ((:formerly-named c100)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_BOTTOM_REFERENCE\"")
	  (:modification-by "Guus Schreiber:
;;  BUG: errors in formula (Sec. 5.9)
;;  CHANGED TO: 0.01T+6+(D-(F+B+H))")))

(define-frame COUNTERWEIGHT_RUNBY_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (counterweight_runby ?x)
      (- (counterweight_bottom_reference ?x)
       (- (hoistway_pit_depth ?x)
        (+ (counterweight_buffer_footing_channel_height ?x)
         (+ (counterweight_buffer_blocking_height ?x)
          (counterweight_buffer_height (elevator.counterwtbuffer ?x)))))))))
 :issues ((:formerly-named c101)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_RUNBY_C\"")))

(define-frame COUNTERWEIGHT_BUFFER_LOAD_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (counterweight_buffer_load ?x)
      (/ (counterweight_weight ?x) (counterweight_buffer_quantity ?x)))))
 :issues ((:formerly-named c102)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_BUFFER_LOAD\"")))

(define-frame CONTROL_CABLE_LOOP_BELOW_CAR_BOTTOM_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (control_cable_loop_below_car_bottom ?x)
      (+ (car_buffer_stroke (elevator.carbuffer ?x)) 78))))
 :issues ((:formerly-named c103)
          (:source
           "The Yost document, under \"CONTROL_CABLE_LOOP_BELOW_CAR_BOTTOM\"")))

(define-frame HOIST_CABLE_LENGTH_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (hoist_cable_length ?x)
        (+ (hoistway_travel ?x)
           (+ (hoistway_overhead ?x)
              (+ (machine_sheave_height ?x)
                 (+ (hoist_cable_above_counterweight_car_bottom ?x) 
                    (- 120 (sling_underbeam ?x)))))))))
 :issues ((:formerly-named c107)
          (:source
           "The Yost document, under \"HOIST_CABLE_LENGTH\"")
	  (:modification-by "Guus Schreiber:
;;  BUG: error in formula (Sec. 5.10.2)
;;  CHANGED TO T-S+O+H+A+120 ")))

(define-frame C-29_2
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (hoist_cable_safety_factor ?x)
      (/
       (* (hoist_cable_ultimate_strength (elevator.hoistcable ?x))
        (hoist_cable_quantity ?x))
       (cable_load_car_side_car_top ?x)))))
 :issues ((:formerly-named c108)
          (:source
           "The Yost document, under \"C-29\"")))

(define-frame HOIST_CABLE_LOAD_CAR_SIDE_CAR_BOTTOM_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (hoist_cable_load_car_side_car_bottom ?x)
        (*
         (* (hoist_cable_quantity ?x)
            (hoist_cable_unit_weight (elevator.hoistcable ?x)))
         (+ (hoistway_overhead ?x)
            (+ (hoistway_travel ?x)
               (- 5 (sling_underbeam ?x))))))))
 :issues ((:formerly-named c111)
          (:source
           "The Yost document, under \"HOIST_CABLE_LOAD_CAR_SIDE_CAR_BOTTOM\"")
	  (:modification-by "Guus Schreiber:
;;  BUG: errors in formula (see Sec. 8.1)
;;  (Q * W) * (O - (U + T + 5)) CHANGED TO (Q * W) * (O - U + T + 5) ")))

(define-frame HOIST_CABLE_LOAD_CAR_SIDE_CAR_TOP_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (hoist_cable_load_car_side_car_top ?x)
        (*
         (* (hoist_cable_quantity ?x)
            (hoist_cable_unit_weight (elevator.hoistcable ?x)))
         (+ (hoistway_overhead ?x) 
            (- 5 (sling_underbeam ?x)))))))
 :issues ((:formerly-named c112)
          (:source
           "The Yost document, under \"HOIST_CABLE_LOAD_CAR_SIDE_CAR_TOP\"")
	  (:modification-by "Guus Schreiber:
;;  BUG: errors in formula (see Sec. 6.1)
;;  (Q * W) * (O - (U + 5)) CHANGED TO (Q * W) * (O - U + 5)")))

(define-frame COMPENSATION_CABLE_LOAD_SIDE_CAR_BOTTOM
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (compensation_cable_load_car_side_car_bottom ?x)
      (* (compensation_cable_quantity ?x)
       (* (compensation_cable_unit_weight (elevator.compensationcable ?x))
        (hoistway_pit_depth ?x))))))
 :issues ((:formerly-named c113)
          (:source
           "The Yost document, under \"COMPENSATION_CABLE_LOAD_CAR_SIDE_CAR_BOTTOM\"")
	  (:modification-by "Guus Schreiber:
;;  BUG: wrong parameter names
;;  Sec. 6.2
;;      hoist_cable_quantity CHANGED TO compensation_cable_quantity
;;      hoist_cable_unit_weight (elevator.hoistcable ?x) CHANGED TO
;;      compensation_cable_unit_weight (elevator.compensationcable ?x)")))

(define-frame COMPENSATION_CABLE_LOAD_CAR_TOP
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (compensation_cable_load_car_side_car_top ?x)
      (*
       (* (compensation_cable_quantity ?x)
        (compensation_cable_unit_weight (elevator.compensationcable ?x)))
       (+ (hoistway_pit_depth ?x) (hoistway_travel ?x))))))
 :issues ((:formerly-named c114)
          (:source
           "The Yost document, under \"COMPENSATION_CABLE_LOAD_CAR_SIDE_CAR_TOP\"")))

(define-frame CONTROL_CABLE_LOAD_CAR_SIDE_CAR_BOTTOM_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (control_cable_load_car_side_car_bottom ?x)
      (* (control_cable_unit_weight (elevator.controlcable ?x))
       (control_cable_loop_below_car_bottom ?x)))))
 :issues ((:formerly-named c115)
          (:source
           "The Yost document, under \"CONTROL_CABLE_LOAD_CAR_SIDE_CAR_BOTTOM\"")))

(define-frame CONTROL_CABLE_LOAD_CAR_SIDE_CAR_TOP_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (control_cable_load_car_side_car_top ?x)
        (* (control_cable_unit_weight (elevator.controlcable ?x))
           (+ (* 0.5 (hoistway_travel ?x))
              (control_cable_loop_below_car_bottom ?x))))))
 :issues ((:formerly-named c116)
          (:source
           "The Yost document, under \"CONTROL_CABLE_LOAD_CAR_SIDE_CAR_TOP\"")
	  (:modification-by "Guus Schreiber:
;;  BUG: W * (0.5T + L) instead of W * ( 0.5 * (T + L))
;;  Sec. 6.3")))

(define-frame CABLE_LOAD_TOTAL_CAR_SIDE_CAR_BOTTOM
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (cable_load_car_side_car_bottom ?x)
      (+ (hoist_cable_load_car_side_car_bottom ?x)
       (+ (compensation_cable_load_car_side_car_bottom ?x)
        (+ (control_cable_load_car_side_car_bottom ?x)
         (+ (car_capacity_range ?x) (car_weight ?x))))))))
 :issues ((:formerly-named c117)
          (:source
           "The Yost document, under \"CABLE_LOAD_TOTAL_CAR_SIDE_CAR_BOTTOM\"")))

(define-frame CABLE_LOAD_TOTAL_CAR_SIDE_CAR_TOP
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (cable_load_car_side_car_top ?x)
      (+ (hoist_cable_load_car_side_car_top ?x)
       (+ (compensation_cable_load_car_side_car_top ?x)
        (+ (control_cable_load_car_side_car_top ?x)
         (+ (car_capacity_range ?x) (car_weight ?x))))))))
 :issues ((:formerly-named c118)
          (:source
           "The Yost document, under \"CABLE_LOAD_TOTAL_CAR_SIDE_CAR_TOP\"")))

(define-frame HOIST_CABLE_LOAD_COUNTERWEIGHT_SIDE_CAR_BOTTOM_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (hoist_cable_load_counterweight_side_car_bottom ?x)
      (* (hoist_cable_quantity ?x)
       (* (hoist_cable_unit_weight (elevator.hoistcable ?x))
        (hoist_cable_above_counterweight_car_bottom ?x))))))
 :issues ((:formerly-named c119)
          (:source
           "The Yost document, under \"HOIST_CABLE_LOAD_COUNTERWEIGHT_SIDE_CAR_BOTTOM\"")))

(define-frame HOIST_CABLE_LOAD_COUNTERWEIGHT_SIDE_CAR_TOP_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (hoist_cable_load_counterweight_side_car_top ?x)
      (*
       (* (hoist_cable_quantity ?x)
        (hoist_cable_unit_weight (elevator.hoistcable ?x)))
       (+ (hoistway_travel ?x)
        (hoist_cable_above_counterweight_car_bottom ?x))))))
 :issues ((:formerly-named c120)
          (:source
           "The Yost document, under \"HOIST_CABLE_LOAD_COUNTERWEIGHT_SIDE_CAR_TOP\"")))

(define-frame COMPENSATION_CABLE_LOAD_COUNTERWEIGHT_SIDE_CAR_BOTTOM_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (compensation_cable_load_counterweight_side_car_bottom ?x)
      (* (compensation_cable_quantity ?x)
       (* (compensation_cable_unit_weight (elevator.compensationcable ?x))
        (+ (counterweight_above_top_car_bottom ?x) (hoistway_travel ?x)))))))
 :issues ((:formerly-named c121)
          (:source
           "The Yost document, under \"COMPENSATION_CABLE_LOAD_COUNTERWEIGHT_SIDE_CAR_BOTTOM\"")))

(define-frame COMPENSATION_CABLE_LOAD_COUNTERWEIGHT_SIDE_CAR_TOP_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (compensation_cable_load_counterweight_side_car_top ?x)
      (* (compensation_cable_quantity ?x)
       (* (compensation_cable_unit_weight (elevator.compensationcable ?x))
        (counterweight_above_top_car_bottom ?x))))))
 :issues ((:formerly-named c122)
          (:source
           "The Yost document, under \"COMPENSATION_CABLE_LOAD_COUNTERWEIGHT_SIDE_CAR_TOP\"")))

(define-frame CABLE_LOAD_TOTAL_COUNTERWEIGHT_SIDE_CAR_C1
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (cable_load_counterweight_side_car_bottom ?x)
      (+ (hoist_cable_load_counterweight_side_car_bottom ?x)
       (+ (compensation_cable_load_counterweight_side_car_bottom ?x)
        (counterweight_weight ?x))))))
 :issues ((:formerly-named c123)
          (:source
           "The Yost document, under \"CABLE_LOAD_TOTAL_COUNTERWEIGHT_SIDE_CAR_BOTTOM\"")))

(define-frame CABLE_LOAD_TOTAL_COUNTERWEIGHT_SIDE_CAR_C2
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (cable_load_counterweight_side_car_top ?x)
      (+ (hoist_cable_load_counterweight_side_car_top ?x)
       (+ (compensation_cable_load_counterweight_side_car_top ?x)
        (counterweight_weight ?x))))))
 :issues ((:formerly-named c124)
          (:source
           "The Yost document, under \"CABLE_LOAD_TOTAL_COUNTERWEIGHT_SIDE_CAR_TOP\"")))

(define-frame CABLE_LOAD_TOTAL_CAR_SIDE_MAXIMUM_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (> (cable_load_car_side_car_top ?x) (cable_load_car_side_car_bottom ?x))
      (= (cable_load_total_car_side_maximum ?x)
       (cable_load_car_side_car_top ?x)))))
 :issues ((:formerly-named c125a)
          (:source
           "The Yost document, under \"CABLE_LOAD_TOTAL_CAR_SIDE_MAXIMUM\"")))

(define-frame CABLE_LOAD_TOTAL_CAR_SIDE_MAXIMUM_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (=< (cable_load_car_side_car_top ?x) (cable_load_car_side_car_bottom ?x))
      (= (cable_load_total_car_side_maximum ?x)
       (cable_load_car_side_car_bottom ?x)))))
 :issues ((:formerly-named c125b)
          (:source
           "The Yost document, under \"CABLE_LOAD_TOTAL_CAR_SIDE_MAXIMUM\"")))

(define-frame MACHINE_SUSPENDED_LOAD_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (machine_suspended_load ?x)
      (+ (cable_load_car_side_car_top ?x)
       (cable_load_counterweight_side_car_top ?x)))))
 :issues ((:formerly-named c126)
          (:source
           "The Yost document, under \"MACHINE_SUSPENDED_LOAD\"")))

(define-frame GOVERNOR_CABLE_LENGTH_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (governor_cable_length ?x)
      (+
       (*
        (+ (hoistway_travel ?x)
         (+ (hoistway_overhead ?x) (hoistway_pit_depth ?x)))
        2)
       144))))
 :issues ((:formerly-named c128)
          (:source
           "The Yost document, under \"GOVERNOR_CABLE_LENGTH\"")))

(define-frame MACHINE_TOTAL_WEIGHT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (machine_total_weight ?x)
      (+ (machine_weight (elevator.machine ?x))
       (motor_weight (elevator.motor ?x))))))
 :issues ((:formerly-named c129)
          (:source
           "The Yost document, under \"MACHINE_TOTAL_WEIGHT\"")))

(define-frame MACHINE_ANGLE_OF_CONTACT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (machine_angle_of_contact ?x)
        (+ 90
           (+ (invsin
               (/ (machine_sheave_to_deflector_sheave ?x)
                  (machine_sheave_to_deflector_sheave_diagonal ?x)))
              (invsin
               (/ (- (/ (machine_sheave_diameter (elevator.machine ?x)) 2)
                     (/ (deflector_sheave_diameter ?x) 2))
                  (machine_sheave_to_deflector_sheave_diagonal ?x))))))))
 :issues ((:formerly-named c131)
          (:source
           "The Yost document, under \"MACHINE_ANGLE_OF_CONTACT\"")
	  (:modification-by "Guus Schreiber:
;;  BUG: errors in formula (Sec. 5.12)")))

(define-frame MACHINE_GROOVE_PRESSURE_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (machine_groove_pressure ?x)
      (/ (cable_load_car_side_car_top ?x)
       (* (/ (machine_sheave_diameter (elevator.machine ?x)) 2)
        (hoist_cable_quantity ?x))))))
 :issues ((:formerly-named c132)
          (:source
           "The Yost document, under \"MACHINE_GROOVE_PRESSURE\"")))

(define-frame HOIST_CABLE_TRACTION_FACTOR_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (hoist_cable_traction_factor ?x)
        (/ (+ 32.2 (machine_acceleration_maximum ?x))
           (- 32.2 (machine_acceleration_maximum ?x))))))
 :issues ((:formerly-named c134)
          (:source
           "The Yost document, under \"HOIST_CABLE_TRACTION_FACTOR\"")
	  (:modification-by "Guus Schreiber:
;;  BUG: wrong parameter (Sec. 7)
;;  machine_angle_of_contact CHANGED TO machine_acceleration_maximum")))

(define-frame HOIST_CABLE_TRACTION_RATIO_CAR_BOTTOM_EMPTY_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (hoist_cable_traction_ratio_car_bottom_empty ?x)
      (*
       (/ (cable_load_counterweight_side_car_bottom ?x)
        (- (cable_load_car_side_car_bottom ?x) (car_capacity_range ?x)))
       (hoist_cable_traction_factor ?x)))))
 :issues ((:formerly-named c135)
          (:source
           "The Yost document, under \"HOIST_CABLE_TRACTION_RATIO_CAR_BOTTOM_EMPTY\"")))

(define-frame HOIST_CABLE_TRACTION_RATIO_CAR_BOTTOM_FULL_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (hoist_cable_traction_ratio_car_bottom_full ?x)
      (*
       (/ (cable_load_car_side_car_bottom ?x)
        (cable_load_counterweight_side_car_bottom ?x))
       (hoist_cable_traction_factor ?x)))))
 :issues ((:formerly-named c136)
          (:source
           "The Yost document, under \"HOIST_CABLE_TRACTION_RATIO_CAR_BOTTOM_FULL\"")))

(define-frame HOIST_CABLE_TRACTION_RATIO_CAR_TOP_EMPTY_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (hoist_cable_traction_ratio_car_top_empty ?x)
      (*
       (/ (cable_load_counterweight_side_car_top ?x)
        (- (cable_load_car_side_car_top ?x) (car_capacity_range ?x)))
       (hoist_cable_traction_factor ?x)))))
 :issues ((:formerly-named c137)
          (:source
           "The Yost document, under \"HOIST_CABLE_TRACTION_RATIO_CAR_TOP_EMPTY\"")))

(define-frame HOIST_CABLE_TRACTION_RATIO_CAR_TOP_FULL_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (hoist_cable_traction_ratio_car_top_full ?x)
      (*
       (/ (cable_load_car_side_car_top ?x)
        (cable_load_counterweight_side_car_top ?x))
       (hoist_cable_traction_factor ?x)))))
 :issues ((:formerly-named c138)
          (:source
           "The Yost document, under \"HOIST_CABLE_TRACTION_RATIO_CAR_TOP_FULL\"")))

(define-frame HOIST_CABLE_TRACTION_RATIO_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and
       (>= (hoist_cable_traction_ratio_car_bottom_empty ?x)
        (hoist_cable_traction_ratio_car_bottom_full ?x))
       (and
        (>= (hoist_cable_traction_ratio_car_bottom_empty ?x)
         (hoist_cable_traction_ratio_car_top_empty ?x))
        (>= (hoist_cable_traction_ratio_car_bottom_empty ?x)
         (hoist_cable_traction_ratio_car_top_full ?x))))
      (= (hoist_cable_traction_ratio ?x)
       (hoist_cable_traction_ratio_car_bottom_empty ?x)))))
 :issues ((:formerly-named c139a)
          (:source
           "The Yost document, under \"HOIST_CABLE_TRACTION_RATIO\"")))

(define-frame HOIST_CABLE_TRACTION_RATIO_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and
       (>= (hoist_cable_traction_ratio_car_bottom_full ?x)
        (hoist_cable_traction_ratio_car_bottom_empty ?x))
       (and
        (>= (hoist_cable_traction_ratio_car_bottom_full ?x)
         (hoist_cable_traction_ratio_car_top_empty ?x))
        (>= (hoist_cable_traction_ratio_car_bottom_full ?x)
         (hoist_cable_traction_ratio_car_top_full ?x))))
      (= (hoist_cable_traction_ratio ?x)
       (hoist_cable_traction_ratio_car_bottom_full ?x)))))
 :issues ((:formerly-named c139b)
          (:source
           "The Yost document, under \"HOIST_CABLE_TRACTION_RATIO\"")))

(define-frame HOIST_CABLE_TRACTION_RATIO_C03
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and
       (>= (hoist_cable_traction_ratio_car_top_empty ?x)
        (hoist_cable_traction_ratio_car_bottom_empty ?x))
       (and
        (>= (hoist_cable_traction_ratio_car_top_empty ?x)
         (hoist_cable_traction_ratio_car_bottom_full ?x))
        (>= (hoist_cable_traction_ratio_car_top_empty ?x)
         (hoist_cable_traction_ratio_car_top_full ?x))))
      (= (hoist_cable_traction_ratio ?x)
       (hoist_cable_traction_ratio_car_top_empty ?x)))))
 :issues ((:formerly-named c139c)
          (:source
           "The Yost document, under \"HOIST_CABLE_TRACTION_RATIO\"")))

(define-frame HOIST_CABLE_TRACTION_RATIO_C04
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and
       (>= (hoist_cable_traction_ratio_car_top_full ?x)
        (hoist_cable_traction_ratio_car_bottom_empty ?x))
       (and
        (>= (hoist_cable_traction_ratio_car_top_full ?x)
         (hoist_cable_traction_ratio_car_bottom_full ?x))
        (>= (hoist_cable_traction_ratio_car_top_full ?x)
         (hoist_cable_traction_ratio_car_top_empty ?x))))
      (= (hoist_cable_traction_ratio ?x)
       (hoist_cable_traction_ratio_car_top_full ?x)))))
 :issues ((:formerly-named c139d)
          (:source
           "The Yost document, under \"HOIST_CABLE_TRACTION_RATIO\"")))

(define-frame MACHINE_BEAM_SECTION_MODULUS_RIGHT_MINIMUM_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (machine_beam_section_modulus_right_minimum ?x)
      (/
       (* (machine_beam_bending_moment_right_maximum ?x)
        (machine_beam_safety_factor ?x))
       16000))))
 :issues ((:formerly-named c140)
          (:source
           "The Yost document, under \"MACHINE_BEAM_SECTION_MODULUS_RIGHT_MINIMUM\"")))

(define-frame MACHINE_BEAM_SECTION_MODULUS_LEFT_MINIMUM_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (machine_beam_section_modulus_left_minimum ?x)
      (/
       (* (machine_beam_bending_moment_left_maximum ?x)
        (machine_beam_safety_factor ?x))
       16000))))
 :issues ((:formerly-named c140a)
          (:source
           "The Yost document, under \"MACHINE_BEAM_SECTION_MODULUS_LEFT_MINIMUM\"")))

(define-frame MACHINE_BEAM_WEIGHT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (machine_beam_weight ?x)
      (* (/ (machine_beam_length ?x) 12)
       (machine_beam_unit_weight (elevator.mbeam ?x))))))
 :issues ((:formerly-named c142)
          (:source
           "The Yost document, under \"MACHINE_BEAM_WEIGHT\"")))

(define-frame MOTOR_HORSEPOWER_REQUIRED_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (motor_horsepower_required ?x)
      (/ (* (car_capacity_range ?x) (* (car_speed ?x) (- 1 0.4)))
       (* 33000 (* (machine_efficiency (elevator.machine ?x)) 0.95))))))
 :issues ((:formerly-named c143)
          (:source
           "The Yost document, under \"MOTOR_HORSEPOWER_REQUIRED\"")))

(define-frame CONTROL_CABLE_MODEL_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (and (> (opening_count ?x) 15) (=< (opening_count ?x) 25))
      (= (model-id (elevator.controlcable ?x)) control_cable_model_m02))))
 :issues ((:formerly-named c2)
          (:source
           "The Yost document, under \"CONTROL_CABLE_MODEL\"")))

(define-frame CONTROL_CABLE_MODEL_C03
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (> (opening_count ?x) 25)
      (= (model-id (elevator.controlcable ?x)) control_cable_model_m03))))
 :issues ((:formerly-named c3)
          (:source
           "The Yost document, under \"CONTROL_CABLE_MODEL\"")))

(define-frame MOTOR_HORSEPOWER_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(>= (motor_horsepower (elevator.motor ?x)) (motor_horsepower_required ?x))))
 :issues ((:formerly-named c30)
          (:source
           "The Yost document, under \"MOTOR_HORSEPOWER\"")))

(define-frame C-33_2
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(>= (motor_generator_current_maximum (elevator.motgenerator ?x))
      (motor_peak_current_required ?x))))
 :issues ((:formerly-named c31)
          (:source
           "The Yost document, under \"C-33\"")))

(define-frame C-6
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(>= (car_overtravel ?x)
      (+ (counterweight_runby ?x)
       (* 1.5
        (+ (counterweight_buffer_stroke (elevator.counterwtbuffer ?x)) 24))))))
 :issues ((:formerly-named c39)
          (:source
           "The Yost document, under \"C-6\"")))

(define-frame C-8
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(>= (car_return_right ?x) 1)))
 :issues ((:formerly-named c41)
          (:source
           "The Yost document, under \"C-8\"")))

(define-frame C-11
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (model-id (elevator.platform ?x)) platform_model_m01)
      (=< (compensation_cable_load_car_side_car_top ?x) 600))))
 :issues ((:formerly-named c44)
          (:source
           "The Yost document, under \"C-11\"")))

(define-frame COMPENSATION_CABLE_MODEL_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (<= (compensation_cable_unit_weight_optimal ?x) 0.05)
      (or
       (= (model-id (elevator.compensationcable ?x))
        compensation_cable_model_m07)
       (= (model-id (elevator.compensationcable ?x))
        compensation_cable_model_m03)))))
 :issues ((:formerly-named c45b)
          (:source
           "The Yost document, under \"COMPENSATION_CABLE_MODEL\"")))

(define-frame COMPENSATION_CABLE_MODEL_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (> (compensation_cable_unit_weight_optimal ?x) 0.05)
       (<= (compensation_cable_unit_weight_optimal ?x) 0.0848))
      (or
       (= (model-id (elevator.compensationcable ?x))
        compensation_cable_model_m07)
       (= (model-id (elevator.compensationcable ?x))
        compensation_cable_model_m03)
       (= (model-id (elevator.compensationcable ?x))
        compensation_cable_model_m02)))))
 :issues ((:formerly-named c45c)
          (:source
           "The Yost document, under \"COMPENSATION_CABLE_MODEL\"")))

(define-frame COMPENSATION_CABLE_MODEL_C03
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (>= (compensation_cable_unit_weight_optimal ?x) 0.0848)
       (< (compensation_cable_unit_weight_optimal ?x) 0.1171))
      (or
       (= (model-id (elevator.compensationcable ?x))
        compensation_cable_model_m07)
       (= (model-id (elevator.compensationcable ?x))
        compensation_cable_model_m03)
       (= (model-id (elevator.compensationcable ?x))
        compensation_cable_model_m02)
       (= (model-id (elevator.compensationcable ?x))
        compensation_cable_model_m05)))))
 :issues ((:formerly-named c45d)
          (:source
           "The Yost document, under \"COMPENSATION_CABLE_MODEL\"")))

(define-frame COMPENSATION_CABLE_MODEL_C04
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (>= (compensation_cable_unit_weight_optimal ?x) 0.1171)
       (< (compensation_cable_unit_weight_optimal ?x) 0.1617))
      (or
       (= (model-id (elevator.compensationcable ?x))
        compensation_cable_model_m07)
       (= (model-id (elevator.compensationcable ?x))
        compensation_cable_model_m03)
       (= (model-id (elevator.compensationcable ?x))
        compensation_cable_model_m02)
       (= (model-id (elevator.compensationcable ?x))
        compensation_cable_model_m05)
       (= (model-id (elevator.compensationcable ?x))
        compensation_cable_model_m04)))))
 :issues ((:formerly-named c45e)
          (:source
           "The Yost document, under \"COMPENSATION_CABLE_MODEL\"")))

(define-frame COMPENSATION_CABLE_MODEL_C05
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (>= (compensation_cable_unit_weight_optimal ?x) 0.1617)
       (< (compensation_cable_unit_weight_optimal ?x) 0.2117))
      (or
       (= (model-id (elevator.compensationcable ?x))
        compensation_cable_model_m07)
       (= (model-id (elevator.compensationcable ?x))
        compensation_cable_model_m03)
       (= (model-id (elevator.compensationcable ?x))
        compensation_cable_model_m02)
       (= (model-id (elevator.compensationcable ?x))
        compensation_cable_model_m05)
       (= (model-id (elevator.compensationcable ?x))
        compensation_cable_model_m04)
       (= (model-id (elevator.compensationcable ?x))
        compensation_cable_model_m06)))))
 :issues ((:formerly-named c45f)
          (:source
           "The Yost document, under \"COMPENSATION_CABLE_MODEL\"")))

(define-frame C-16
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(and
      (=< (counterweight_buffer_load_minimum (elevator.counterwtbuffer ?x))
       (counterweight_buffer_load ?x))
      (=< (counterweight_buffer_load ?x)
       (counterweight_buffer_load_maximum (elevator.counterwtbuffer ?x))))))
 :issues ((:formerly-named c49)
          (:source
           "The Yost document, under \"C-16\"")))

(define-frame C-19
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(>= (counterweight_overtravel ?x)
      (+ (car_runby ?x)
       (* 1.5 (+ (car_buffer_stroke (elevator.carbuffer ?x)) 6))))))
 :issues ((:formerly-named c52)
          (:source
           "The Yost document, under \"C-19\"")))

(define-frame C-25
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=< (counterweight_weight ?x) 56000)))
 :issues ((:formerly-named c58)
          (:source
           "The Yost document, under \"C-25\"")))

(define-frame C-26
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=< (crosshead_bending_moment ?x)
      (sling_bending_moment_maximum (elevator.sling ?x)))))
 :issues ((:formerly-named c59)
          (:source
           "The Yost document, under \"C-26\"")))

(define-frame C-27
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=< (crosshead_deflection_index ?x)
      (sling_deflection_index_maximum (elevator.sling ?x)))))
 :issues ((:formerly-named c60)
          (:source
           "The Yost document, under \"C-27\"")))

(define-frame C-28_1
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (member (model-id (elevator.machine ?x))
       (setof machine_model_m02 machine_model_m03))
      (and (=< 3 (hoist_cable_quantity ?x)) (=< (hoist_cable_quantity ?x) 6)))))
 :issues ((:formerly-named c61)
          (:source
           "The Yost document, under \"C-28\"")))

(define-frame C-28_2
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (model-id (elevator.machine ?x)) machine_model_m01)
      (and (=< 3 (hoist_cable_quantity ?x)) (=< (hoist_cable_quantity ?x) 5)))))
 :issues ((:formerly-named c62)
          (:source
           "The Yost document, under \"C-28\"")))

(define-frame C-28_3
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (model-id (elevator.machine ?x)) machine_model_m04)
      (and (=< 5 (hoist_cable_quantity ?x)) (=< (hoist_cable_quantity ?x) 6)))))
 :issues ((:formerly-named c63)
          (:source
           "The Yost document, under \"C-28\"")))

(define-frame C-29_1
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(>= (hoist_cable_safety_factor ?x) (hoist_cable_safety_factor_minimum ?x))))
 :issues ((:formerly-named c64)
          (:source
           "The Yost document, under \"C-29\"")))

(define-frame C-31
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=< (machine_groove_pressure ?x)
      (machine_groove_pressure_acceptable_maximum ?x))))
 :issues ((:formerly-named c67)
          (:source
           "The Yost document, under \"C-31\"")))

(define-frame C-33_1
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(and
      (=< (motor_peak_current_required ?x)
       (motor_current_maximum (elevator.motor ?x)))
      (=< (motor_peak_current_required ?x) 450))))
 :issues ((:formerly-named c69)
          (:source
           "The Yost document, under \"C-33\"")))

(define-frame C-34_1
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (model-id (elevator.machine ?x)) machine_model_m01)
      (member (model-id (elevator.motor ?x))
       (setof motor_model_m01 motor_model_m02)))))
 :issues ((:formerly-named c70)
          (:source
           "The Yost document, under \"C-34\"")))

(define-frame C-34_2
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (model-id (elevator.machine ?x)) machine_model_m02)
      (member (model-id (elevator.motor ?x))
       (setof motor_model_m02 motor_model_m03)))))
 :issues ((:formerly-named c71)
          (:source
           "The Yost document, under \"C-34\"")))

(define-frame C-34_3
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (model-id (elevator.machine ?x)) machine_model_m03)
      (member (model-id (elevator.motor ?x))
       (setof motor_model_m03 motor_model_m04 motor_model_m05 motor_model_m06)))))
 :issues ((:formerly-named c72)
          (:source
           "The Yost document, under \"C-34\"")))

(define-frame C-34_4
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (model-id (elevator.machine ?x)) machine_model_m04)
      (= (model-id (elevator.motor ?x)) motor_model_m06))))
 :issues ((:formerly-named c73)
          (:source
           "The Yost document, under \"C-34\"")))

(define-frame MOTOR_HORSEPOWER_REQUIRED_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=< (motor_horsepower_required ?x) 40)))
 :issues ((:formerly-named c82)
          (:source
           "The Yost document, under \"MOTOR_HORSEPOWER_REQUIRED\"")))

(define-frame C-44
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=< (safety_beam_load ?x) (safety_beam_load_maximum (elevator.safety ?x)))))
 :issues ((:formerly-named c84)
          (:source
           "The Yost document, under \"C-44\"")))

(define-frame C-46_1
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (member (model-id (elevator.sling ?x))
       (setof sling_model_m01 sling_model_m02))
      (and (=< 108 (sling_underbeam ?x)) (=< (sling_underbeam ?x) 123)))))
 :issues ((:formerly-named c86)
          (:source
           "The Yost document, under \"C-46\"")))

(define-frame C-46_2
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (model-id (elevator.sling ?x)) sling_model_m04)
      (=< (sling_underbeam ?x) 153))))
 :issues ((:formerly-named c87)
          (:source
           "The Yost document, under \"C-46\"")))

(define-frame C-46_3
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.sling ?x)) sling_model_m03)
       (member (model-id (elevator.safety ?x))
        (setof safety_beam_model_m01 safety_beam_model_m02)))
      (=< (sling_underbeam ?x) 189.16))))
 :issues ((:formerly-named c88)
          (:source
           "The Yost document, under \"C-46\"")))

(define-frame C-46_4
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.sling ?x)) sling_model_m03)
       (= (model-id (elevator.safety ?x)) safety_beam_model_m03))
      (=< (sling_underbeam ?x) 188.55))))
 :issues ((:formerly-named c89)
          (:source
           "The Yost document, under \"C-46\"")))

(define-frame COMPENSATION_CABLE_LENGTH_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (= (model-id (elevator.compensationcable ?x))
       compensation_cable_model_m07)
      (= (compensation_cable_length ?x) 0))))
 :issues ((:formerly-named c9)
          (:source
           "The Yost document, under \"COMPENSATION_CABLE_LENGTH\"")))

(define-frame C-47
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=< (machine_suspended_load ?x)
      (machine_suspended_load_maximum (elevator.machine ?x)))))
 :issues ((:formerly-named c90)
          (:source
           "The Yost document, under \"C-47\"")))

(define-frame C-48_1
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (model-id (elevator.msheavegroove ?x)) machine_groove_model_m01)
      (=< (hoist_cable_traction_ratio ?x)
       (* 0.007888 (+ (machine_angle_of_contact ?x) 0.675))))))
 :issues ((:formerly-named c91)
          (:source
           "The Yost document, under \"C-48\"")))

(define-frame C-48_2
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (model-id (elevator.msheavegroove ?x)) machine_groove_model_m02)
      (=< (hoist_cable_traction_ratio ?x)
       (* 0.006555 (+ (machine_angle_of_contact ?x) 0.755))))))
 :issues ((:formerly-named c92)
          (:source
           "The Yost document, under \"C-48\"")))

(define-frame C-50
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=< (car_guiderail_vertical_force ?x)
      (car_guiderail_vertical_force_maximum ?x))))
 :issues ((:formerly-named c94)
          (:source
           "The Yost document, under \"C-50\"")))

(define-frame C-2
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(and (>= (car_cab_height ?x) 84.0) (=< (car_cab_height ?x) 240.0))))
 :issues ((:formerly-named cabheight_of_elevator_values)
          (:source
           "The Yost document, under \"C-2\"")))

(define-frame CAR_INTERCOM_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(member (car_intercom_spec ?x) (setof "yes" "no"))))
 :issues ((:formerly-named cabintercomspec_of_elevator_values)
          (:source
           "The Yost document, under \"CAR_INTERCOM\"")))

(define-frame CAR_LANTERN_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(member (car_lantern_spec ?x) (setof "yes" "no"))))
 :issues ((:formerly-named cablanternspec_of_elevator_values)
          (:source
           "The Yost document, under \"CAR_LANTERN\"")))

(define-frame CARBUFFERBLOCKH_OF_ELEVATOR_VALUES
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(and (>= (car_buffer_blocking_height ?x) 6)
      (=< (car_buffer_blocking_height ?x) 10000)))))

(define-frame C-4_1
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (car_buffer_load ?x)
      (/ (+ (car_weight ?x) (car_capacity_range ?x)) (car_buffer_quantity ?x)))))
 :issues ((:formerly-named carbufferload_calc)
          (:source
           "The Yost document, under \"C-4\"")))

(define-frame C-4_2
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(and
      (>= (car_buffer_load ?x)
       (car_buffer_load_minimum (elevator.carbuffer ?x)))
      (=< (car_buffer_load ?x)
       (car_buffer_load_maximum (elevator.carbuffer ?x))))))
 :issues ((:formerly-named carbufferload_constraint)
          (:source
           "The Yost document, under \"C-4\"")))

(define-frame CAR_BUFFER_STRIKING_SPEED_MAXIMUM_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (car_buffer_striking_speed_maximum ?x) (* 1.15 (car_speed ?x)))))
 :issues ((:formerly-named carbuffer_cs1)
          (:source
           "The Yost document, under \"CAR_BUFFER_STRIKING_SPEED_MAXIMUM\"")))

(define-frame CAR_BUFFER_STRIKING_SPEED_MINIMUM_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (car_buffer_striking_speed_minimum ?x)
      (/
       (* (car_buffer_striking_speed_maximum ?x)
        (car_buffer_striking_speed_maximum ?x))
       19320))))
 :issues ((:formerly-named carbuffer_cst3)
          (:source
           "The Yost document, under \"CAR_BUFFER_STRIKING_SPEED_MINIMUM\"")))

(define-frame CAR_BUFFER_STROKE_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(>= (car_buffer_stroke (elevator.carbuffer ?x))
      (car_buffer_striking_speed_minimum ?x))))
 :issues ((:formerly-named carbuffer_cst4)
          (:source
           "The Yost document, under \"CAR_BUFFER_STROKE\"")))

(define-frame CAR_BUFFER_BLOCKING_HEIGHT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (car_buffer_blocking_height ?x)
      (floor (- (hoistway_pit_depth ?x)
                (+ 6
                   (+ (platform_height (elevator.platform ?x))
                      (+ (safety_beam_height (elevator.safety ?x))
                         (+ (car_buffer_height (elevator.carbuffer ?x))
                            (car_buffer_footing_channel_height 
                             (elevator.carbuffer ?x)))))))))))
 :issues ((:formerly-named carbuffer_cst5)
          (:source
           "The Yost document, under \"CAR_BUFFER_BLOCKING_HEIGHT\"")
	  (:modification-by "Guus Schreiber:
;;  BUG: result of formula should be truncated to an integer
;;  Sec. 5.7")))

(define-frame CAR_RUNBY_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (car_runby ?x)
      (- (hoistway_pit_depth ?x)
       (+ (platform_height (elevator.platform ?x))
        (+ (safety_beam_height (elevator.safety ?x))
         (+ (car_buffer_height (elevator.carbuffer ?x))
          (+ (car_buffer_blocking_height ?x)
           (car_buffer_footing_channel_height (elevator.carbuffer ?x))))))))))
 :issues ((:formerly-named carbuffer_cst6)
          (:source
           "The Yost document, under \"CAR_RUNBY\"")))

(define-frame CARBUFFER_CST7
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (car_buffer_compressed_clearance ?x)
      (+ (car_buffer_footing_channel_height (elevator.carbuffer ?x))
       (+ (car_buffer_blocking_height ?x)
        (- (car_buffer_height (elevator.carbuffer ?x))
         (car_buffer_stroke (elevator.carbuffer ?x)))))))))

(define-frame CAR_GUIDERAIL_VERTICAL_FORCE_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (car_guiderail_vertical_force ?x)
      (+ (car_capacity (elevator.platform ?x))
       (+ (car_weight ?x)
        (+ (compensation_cable_load_car_side_car_top ?x)
         (control_cable_load_car_side_car_top ?x)))))))
 :issues ((:formerly-named carguiderail_cst1)
          (:source
           "The Yost document, under \"CAR_GUIDERAIL_VERTICAL_FORCE\"")))

(define-frame CAR_GUIDERAIL_VERTICAL_FORCE_MAXIMUM_C10
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.carguiderail ?x)) car_guiderail_model_m05)
       (=< (hoistway_bracket_spacing ?x) 126))
      (= (car_guiderail_vertical_force_maximum ?x) 41000))))
 :issues ((:formerly-named carguiderail_cst10)
          (:source
           "The Yost document, under \"CAR_GUIDERAIL_VERTICAL_FORCE_MAXIMUM\"")))

(define-frame CAR_GUIDERAIL_VERTICAL_FORCE_MAXIMUM_C11
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.carguiderail ?x)) car_guiderail_model_m05)
       (> (hoistway_bracket_spacing ?x) 126))
      (= (car_guiderail_vertical_force_maximum ?x)
       (- 45500 (* 35.714 (hoistway_bracket_spacing ?x)))))))
 :issues ((:formerly-named carguiderail_cst11)
          (:source
           "The Yost document, under \"CAR_GUIDERAIL_VERTICAL_FORCE_MAXIMUM\"")))

(define-frame CAR_GUIDERAIL_VERTICAL_FORCE_MAXIMUM_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.carguiderail ?x)) car_guiderail_model_m01)
       (=< (hoistway_bracket_spacing ?x) 72))
      (= (car_guiderail_vertical_force_maximum ?x) 5500))))
 :issues ((:formerly-named carguiderail_cst2)
          (:source
           "The Yost document, under \"CAR_GUIDERAIL_VERTICAL_FORCE_MAXIMUM\"")))

(define-frame CAR_GUIDERAIL_VERTICAL_FORCE_MAXIMUM_C03
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.carguiderail ?x)) car_guiderail_model_m01)
       (> (hoistway_bracket_spacing ?x) 72))
      (= (car_guiderail_vertical_force_maximum ?x)
       (- 7750 (* 31.25 (hoistway_bracket_spacing ?x)))))))
 :issues ((:formerly-named carguiderail_cst3)
          (:source
           "The Yost document, under \"CAR_GUIDERAIL_VERTICAL_FORCE_MAXIMUM\"")))

(define-frame CAR_GUIDERAIL_VERTICAL_FORCE_MAXIMUM_C04
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.carguiderail ?x)) car_guiderail_model_m02)
       (=< (hoistway_bracket_spacing ?x) 126))
      (= (car_guiderail_vertical_force_maximum ?x) 10000))))
 :issues ((:formerly-named carguiderail_cst4)
          (:source
           "The Yost document, under \"CAR_GUIDERAIL_VERTICAL_FORCE_MAXIMUM\"")))

(define-frame CAR_GUIDERAIL_VERTICAL_FORCE_MAXIMUM_C05
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.carguiderail ?x)) car_guiderail_model_m02)
       (> (hoistway_bracket_spacing ?x) 126))
      (= (car_guiderail_vertical_force_maximum ?x)
       (- 16000 (* 47.619 (hoistway_bracket_spacing ?x)))))))
 :issues ((:formerly-named carguiderail_cst5)
          (:source
           "The Yost document, under \"CAR_GUIDERAIL_VERTICAL_FORCE_MAXIMUM\"")))

(define-frame CAR_GUIDERAIL_VERTICAL_FORCE_MAXIMUM_C06
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.carguiderail ?x)) car_guiderail_model_m03)
       (=< (hoistway_bracket_spacing ?x) 120))
      (= (car_guiderail_vertical_force_maximum ?x) 15000))))
 :issues ((:formerly-named carguiderail_cst6)
          (:source
           "The Yost document, under \"CAR_GUIDERAIL_VERTICAL_FORCE_MAXIMUM\"")))

(define-frame CAR_GUIDERAIL_VERTICAL_FORCE_MAXIMUM_C07
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.carguiderail ?x)) car_guiderail_model_m03)
       (> (hoistway_bracket_spacing ?x) 120))
      (= (car_guiderail_vertical_force_maximum ?x)
       (- 22500 (* 62.5 (hoistway_bracket_spacing ?x)))))))
 :issues ((:formerly-named carguiderail_cst7)
          (:source
           "The Yost document, under \"CAR_GUIDERAIL_VERTICAL_FORCE_MAXIMUM\"")))

(define-frame CAR_GUIDERAIL_VERTICAL_FORCE_MAXIMUM_C08
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.carguiderail ?x)) car_guiderail_model_m04)
       (=< (hoistway_bracket_spacing ?x) 108))
      (= (car_guiderail_vertical_force_maximum ?x) 21000))))
 :issues ((:formerly-named carguiderail_cst8)
          (:source
           "The Yost document, under \"CAR_GUIDERAIL_VERTICAL_FORCE_MAXIMUM\"")))

(define-frame CAR_GUIDERAIL_VERTICAL_FORCE_MAXIMUM_C09
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.carguiderail ?x)) car_guiderail_model_m04)
       (> (hoistway_bracket_spacing ?x) 108))
      (= (car_guiderail_vertical_force_maximum ?x)
       (- 26400 (* 50 (hoistway_bracket_spacing ?x)))))))
 :issues ((:formerly-named carguiderail_cst9)
          (:source
           "The Yost document, under \"CAR_GUIDERAIL_VERTICAL_FORCE_MAXIMUM\"")))

(define-frame CAR_CABLE_HITCH_TO_COUNTERWEIGHT_CABLE_HITCH_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (car_cable_hitch_to_counterweight_cable_hitch ?x)
      (+ (car_cable_hitch_to_platform_rear ?x)
       (+ (counterweight_to_platform_rear ?x)
        (/ (counterweight_plate_depth ?x) 2))))))
 :issues ((:formerly-named carhitch_to_counterhitch_dist_calc)
          (:source
           "The Yost document, under \"CAR_CABLE_HITCH_TO_COUNTERWEIGHT_CABLE_HITCH\"")))

(define-frame CAR_PHONE_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(member (car_phone_spec ?x) (setof "yes" "no"))))
 :issues ((:formerly-named carphonespec_of_elevator_values)
          (:source
           "The Yost document, under \"CAR_PHONE\"")))

(define-frame CAR_POSITION_INDICATOR_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(member (car_position_indicator_spec ?x) (setof "yes" "no"))))
 :issues ((:formerly-named carpositionindicatorspec_of_elevator_values)
          (:source
           "The Yost document, under \"CAR_POSITION_INDICATOR\"")))

(define-frame CAR_RETURN_LEFT_C03
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (door_opening_strike_side_spec ?x) "right")
       (= (door_opening_type ?x) "side"))
      (= (car_return_left ?x)
       (- (platform_width_f (elevator.platform ?x))
        (- (opening_width_building ?x) 3))))))
 :issues ((:formerly-named carreturnleftbasedondooropeningtype3)
          (:source
           "The Yost document, under \"CAR_RETURN_LEFT\"")
	  "Removed from the list of constraints on elevator.
The mere presence of this definition does NOT imply that it must
hold for any elevator."
	  (:modification-by "Guus Schreiber:

;;  BUG: redundant constraints
;;  
;;  The constraints: 
;;       car_return_left_c01
;;       car_return_left_c02
;;       car_return_left_c03
;;  are really subsumed by car_return_left_c0[4-9]
;;  
;;  The redundancy is probably an historical artefact.")))


(define-frame CAR_RETURN_LEFT_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT.EXPRESSION
    '(=> (= (door_opening_type ?x) "center")
      (= (car_return_left ?x)
       (/ (- (platform_width_f (elevator.platform ?x)) (opening_width_door ?x))
        2)))))
 :issues ((:formerly-named carreturnleftbasedondoortype)
          (:source
           "The Yost document, under \"CAR_RETURN_LEFT\"")
	  "Removed from the list of constraints on elevator.
The mere presence of this definition does NOT imply that it must
hold for any elevator."
	  (:modification-by "Guus Schreiber:

;;  BUG: redundant constraints
;;  
;;  The constraints: 
;;       car_return_left_c01
;;       car_return_left_c02
;;       car_return_left_c03
;;  are really subsumed by car_return_left_c0[4-9]
;;  
;;  The redundancy is probably an historical artefact.")))


(define-frame CAR_RETURN_LEFT_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (door_opening_type ?x) "side")
       (= (door_opening_strike_side_spec ?x) "left"))
      (= (car_return_left ?x) 3))))
 :issues ((:formerly-named carreturnleftbasedondoortype2)
          (:source
           "The Yost document, under \"CAR_RETURN_LEFT\"")
	  	  (:modification-by "Guus Schreiber:

;;  BUG: redundant constraints
;;  
;;  The constraints: 
;;       car_return_left_c01
;;       car_return_left_c02
;;       car_return_left_c03
;;  are really subsumed by car_return_left_c0[4-9]
;;  
;;  The redundancy is probably an historical artefact.")))


(define-frame C-9
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(and (>= (car_runby ?x) 6) (=< (car_runby ?x) 24))))
 :issues ((:formerly-named carrunby_of_elevator_values)
          (:source
           "The Yost document, under \"C-9\"")))

(define-frame CAR_CAB_WEIGHT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (car_cab_weight ?x)
      (* 130
       (/
        (+ (platform_width_f (elevator.platform ?x))
         (platform_depth (elevator.platform ?x)))
        12)))))
 :issues ((:formerly-named car_cst1)
          (:source
           "The Yost document, under \"CAR_CAB_WEIGHT\"")))

(define-frame CAR_FIXTURE_WEIGHT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (car_fixture_weight ?x)
      (+ (car_intercom_weight (elevator.intercom ?x))
       (+ (car_phone_weight (elevator.phone ?x))
        (+ (car_lantern_weight (elevator.lantern ?x)) (car_position_indicator_weight (elevator.positionind ?x))))))))
 :issues ((:formerly-named car_cst2)
          (:source
           "The Yost document, under \"CAR_FIXTURE_WEIGHT\"")
	  (:modification-by "Guus Schreiber:
;;  BUG: renaming not done for parameter slot WEIGHT
;;
;;  In the last version all paramter slots were consistently renamed
;;  Probaly by accident, \"weight\" was not renamed in 5 cases. 
;;  The weight paramter slot should probably be replaced by the following 
;;  five parameter slots:
;;                       car_guiderail_weight, 
;;                       car_phone_weight
;;                       car_intercom_weight
;;                       car_position_indicator_weight
;;                       car_lantern_weight
;;
;;  The constraint car_fixture_weight_c will need to be changed accordingly")))

(define-frame CAR_MISC_WEIGHT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (car_misc_weight ?x)
        (+ (door_operator_weight ?x)
           (+ (* 4 (car_guideshoe_weight (elevator.car ?x)))
              (+ (car_saf_t_edge_weight (elevator.door ?x))
                 (+ (car_limit_switch_cam_weight (elevator.car ?x))
                    (+ (car_cable_hanger_weight (elevator.car ?x))
                       (+ (car_duct_and_wiring_weight (elevator.car ?x))
                          (+ (car_landing_switch_weight (elevator.car ?x))
                             (car_maintenance_station_weight 
                              (elevator.car ?x))))))))))))
 :issues ((:formerly-named car_cst3)
          (:source
           "The Yost document, under \"CAR_MISC_WEIGHT\"")
	  (:modification-by "Guus Schreiber:
;;  BUG: error in formula (sec. 5.6) 
;;  scope of multiplication was wrong")))

(define-frame CAR_WEIGHT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (car_weight ?x)
      (+ (car_cab_weight ?x)
       (+ (platform_weight ?x)
        (+ (sling_weight ?x)
         (+ (safety_beam_weight ?x)
          (+ (car_fixture_weight ?x)
           (+ (car_supplement_weight (elevator.car ?x))
            (car_misc_weight ?x))))))))))
 :issues ((:formerly-named car_cst4)
          (:source
           "The Yost document, under \"CAR_WEIGHT\"")))

(define-frame CAR_CST5
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (car_overtravel ?x)
      (- (hoistway_top_landing_to_underside_machine_beam ?x)
       (+ (sling_underbeam ?x) (crosshead_height (elevator.crosshead ?x))))))))

(define-frame C-13
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(and (>= (car_buffer_compressed_clearance ?x) 24.0)
      (=< (car_buffer_compressed_clearance ?x) 1000.0))))
 :issues ((:formerly-named compressedcarbuffclearance_of_elevator_values)
          (:source
           "The Yost document, under \"C-13\"")))

(define-frame COUNTERWEIGHT_WEIGHT_DESIRED_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (counterweight_weight_desired ?x)
      (+ (car_weight ?x)
       (+ (control_cable_load_average ?x)
        (* 0.4 (car_capacity (elevator.platform ?x))))))))
 :issues ((:formerly-named counterweightbg_cst1)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_WEIGHT_DESIRED\"")))

(define-frame COUNTERWEIGHT_SYSTEM_WEIGHT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (counterweight_system_weight ?x)
      (+ (counterweight_frame_weight ?x) (* 4 7)))))
 :issues ((:formerly-named counterweightbg_cst3)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_SYSTEM_WEIGHT\"")))

(define-frame COUNTERWEIGHT_STACK_WEIGHT_DESIRED_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (counterweight_stack_weight_desired ?x)
      (- (counterweight_weight_desired ?x) (counterweight_system_weight ?x)))))
 :issues ((:formerly-named counterweightbg_cst4)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_STACK_WEIGHT_DESIRED\"")))

(define-frame COUNTERWEIGHT_PLATE_WEIGHT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (counterweight_plate_weight ?x)
      (* 0.2816
       (* (counterweight_plate_thickness ?x)
        (-
         (* (counterweight_plate_depth ?x)
          (- (counterweight_between_guiderails_value ?x) 2))
         (- (* 3.5 (- (counterweight_plate_depth ?x) 5))
          (* 6 (- (counterweight_plate_depth ?x) 7)))))))))
 :issues ((:formerly-named counterweightbg_cst5)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_PLATE_WEIGHT\"")))

(define-frame COUNTERWEIGHT_PLATE_QUANTITY_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (counterweight_plate_quantity (elevator.counterweightbg ?x))
        (floor (/ (counterweight_stack_weight_desired ?x)
                  (counterweight_plate_weight ?x))))))
 :issues ((:formerly-named counterweightbg_cst6)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_PLATE_QUANTITY\"")
	  (:modification-by "Guus Schreiber:
;;  BUG: result should be truncated to integer (Sec. 5.8)")))

(define-frame COUNTERWEIGHT_STACK_WEIGHT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (counterweight_stack_weight ?x)
      (* (counterweight_plate_quantity (elevator.counterweightbg ?x))
       (counterweight_plate_weight ?x)))))
 :issues ((:formerly-named counterweightbg_cst7)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_STACK_HEIGHT\"")))

(define-frame COUNTERWEIGHT_WEIGHT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (counterweight_weight ?x)
        (+ (counterweight_stack_weight ?x) 
           (counterweight_system_weight ?x)))))
 :issues ((:formerly-named counterweightbg_cst8)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_WEIGHT\"")
	  (:modification-by "Guus Schreiber:
  ;;  BUG: error in formula (Sec. 5.8)
;;  * CHANGED TO +")))

(define-frame COUNTERWEIGHT_OVERTRAVEL_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (counterweight_overtravel ?x)
      (- (hoistway_top_landing_to_underside_machine_beam ?x)
       (+ (deflector_sheave_protrusion ?x)
        (+ (counterweight_buffer_footing_channel_height ?x)
         (+ (counterweight_buffer_blocking_height ?x)
          (+ (counterweight_buffer_height (elevator.counterwtbuffer ?x))
           (+ (counterweight_runby ?x)
            (- (counterweight_frame_height ?x) (hoistway_pit_depth ?x)))))))))))
 :issues ((:formerly-named counterweightbg_cst9)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_OVERTRAVEL\"")))

(define-frame C-15
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(and (>= (counterweight_buffer_blocking_height ?x) 0.0)
      (=< (counterweight_buffer_blocking_height ?x) 120.0))))
 :issues ((:formerly-named counterwtbuffblockh_of_elevator_values)
          (:source
           "The Yost document, under \"C-15\"")))

(define-frame C-18
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(and (>= (counterweight_frame_height ?x) 90.0)
      (=< (counterweight_frame_height ?x) 174.0))))
 :issues ((:formerly-named counterwtframeh_of_elevator_values)
          (:source
           "The Yost document, under \"C-18\"")))

(define-frame COUNTERWEIGHT_GUIDERAIL_UNIT_WEIGHT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(>= (counterweight_weight_limit (elevator.counterwtguiderail ?x))
      (counterweight_weight ?x))))
 :issues ((:formerly-named counterwtguiderail_cst1)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_GUIDERAIL_UNIT_WEIGHT\"")))

(define-frame C-21
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(and (>= (counterweight_runby ?x) 6.0) (=< (counterweight_runby ?x) 36.0))))
 :issues ((:formerly-named counterwtrunby_of_elevator_values)
          (:source
           "The Yost document, under \"C-21\"")))

(define-frame CROSSHEAD_BENDING_MOMENT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (crosshead_bending_moment ?x)
      (* (safety_beam_load ?x) (safety_beam_between_guiderails ?x)))))
 :issues ((:formerly-named crosshead1)
          (:source
           "The Yost document, under \"CROSSHEAD_BENDING_MOMENT\"")))

(define-frame CROSSHEAD_DEFLECTION_INDEX_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (crosshead_deflection_index ?x)
      (* (safety_beam_load ?x)
       (* (safety_beam_between_guiderails ?x)
        (safety_beam_between_guiderails ?x))))))
 :issues ((:formerly-named crosshead2)
          (:source
           "The Yost document, under \"CROSSHEAD_DEFLECTION_INDEX\"")))

(define-frame CROSSHEAD_MODEL_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (model-id (elevator.sling ?x)) sling_model_m01)
      (= (model-id (elevator.crosshead ?x)) crosshead_model_m04))))
 :issues ((:formerly-named crosshead3)
          (:source
           "The Yost document, under \"CROSSHEAD_MODEL\"")))

(define-frame CROSSHEAD_MODEL_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (model-id (elevator.sling ?x)) sling_model_m02)
      (= (model-id (elevator.crosshead ?x)) crosshead_model_m05))))
 :issues ((:formerly-named crosshead4)
          (:source
           "The Yost document, under \"CROSSHEAD_MODEL\"")))

(define-frame CROSSHEAD_MODEL_C03
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (model-id (elevator.sling ?x)) sling_model_m04)
      (= (model-id (elevator.crosshead ?x)) crosshead_model_m03))))
 :issues ((:formerly-named crosshead5)
          (:source
           "The Yost document, under \"CROSSHEAD_MODEL\"")))

(define-frame CROSSHEAD_MODEL_C04
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (model-id (elevator.sling ?x)) sling_model_m03)
      (= (model-id (elevator.crosshead ?x)) crosshead_model_m01))))
 :issues ((:formerly-named crosshead6)
          (:source
           "The Yost document, under \"CROSSHEAD_MODEL\"")))

(define-frame CROSSHEAD_MODEL_C05
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (model-id (elevator.sling ?x)) sling_model_m05)
      (= (model-id (elevator.crosshead ?x)) crosshead_model_m02))))
 :issues ((:formerly-named crosshead7)
          (:source
           "The Yost document, under \"CROSSHEAD_MODEL\"")))

(define-frame COUNTERWEIGHT_FRAME_WEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT counterweight_system_weight_c))
 :issues ((:formerly-named cwtframeweight)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_FRAME_WEIGHT\"")))

(define-frame COUNTERWEIGHT_FRAME_WEIGHT_CALC
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
   '(= (COUNTERWEIGHT_FRAME_WEIGHT ?X)
      (+ (* 6.2  (- (COUNTERWEIGHT_BETWEEN_GUIDERAILS_VALUE ?X) 1.75))
         (+ (* 2 (COUNTERWEIGHT_FRAME_HEIGHT ?X))
            70)))))
 :issues ((:formerly-named CWTFRAMEWEIGHT_CALC)
	  (:source
           "The Yost document, under \"COUNTERWEIGHT_FRAME_WEIGHT\"")
	  (:modification-by "Guus Schreiber:

;NOTE: It was wrong anyway, it should have read:
;
;(DEFOBJECT CWTFRAMEWEIGHT_CALC (CONSTRAINT CWTFRAMEWEIGHT_CALC)
; (CONSTRAINT.EXPRESSION CWTFRAMEWEIGHT_CALC
;  '(= (CWTFRAMEWEIGHT ?X)
;      (+ (* 6.2  (- (CWT_BG ?X) 1.75))
;         (+ (* 2 (COUNTERWTFRAMEH ?X))
;            70)))))")))

(define-frame MACHINE_BEAM_LENGTH_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
   '(= (MACHINE_BEAM_LENGTH ?X)
       (+ 6 (MACHINE_BEAM_SUPPORT_BOTTOM_TO_MACHINE_ROOM_TOP_SPEC ?X)))))
 :issues ((:source
           "The Yost document, under \"MACHINE_BEAM_LENGTH\"")

	  (:modification-by "Guus Schreiber:

;;  BUG: missing constraint
;;  
;;  There is no constraint for computing the value of
;;  machine_beam_length
;;  It should be 6 inches longer than 
;;  machine_beam_support_bottom_to_machine_room_top_spec
;;  (Sec. 4.5).")))


(define-frame COUNTERWEIGHT_BETWEEN_GUIDERAILS_POSSIBLE_VALUES
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(member (counterweight_between_guiderails_value ?x) (setof 28 38 54))))
 :issues ((:formerly-named cwt_bg_of_elevator_values)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_BETWEEN_GUIDERAILS\"")))

(define-frame COUNTERWEIGHT_SPACE_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (counterweight_space ?x)
      (- (hoistway_depth ?x)
       (+ (platform_depth (elevator.platform ?x))
        (platform_to_hoistway_front ?x))))))
 :issues ((:formerly-named cwt_space_calc)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_SPACE\"")))

(define-frame COUNTERWEIGHT_TO_HOISTWAY_REAR_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (counterweight_to_hoistway_rear ?x)
      (- (counterweight_space ?x)
       (+ (counterweight_plate_depth ?x) (counterweight_to_platform_rear ?x))))))
 :issues ((:formerly-named cwt_to_hoistway_rear_calc)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_TO_HOISTWAY_REAR\"")))

(define-frame C-23
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(>= (counterweight_to_hoistway_rear ?x)
      (+ 0.75 (counterweight_u_bracket_protrusion ?x)))))
 :issues ((:formerly-named cwt_to_hoistway_rear_restriction)
          (:source
           "The Yost document, under \"C-23\"")))

(define-frame COUNTERWEIGHT_TO_PLATFORM_REAR_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (counterweight_to_platform_rear ?x)
      (* 0.5
       (- (counterweight_space ?x)
        (+ (counterweight_plate_depth ?x)
         (counterweight_u_bracket_protrusion ?x)))))))
 :issues ((:formerly-named cwt_to_platform_rear_calc)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_TO_PLATFORM_REAR\"")))

(define-frame C-24_1
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (= (model-id (elevator.counterwtguard ?x))
       counterweight_guard_thickness_m01)
      (>= (counterweight_to_platform_rear ?x) 1))))
 :issues ((:formerly-named cwt_to_platform_rear_minimum1)
          (:source
           "The Yost document, under \"C-24\"")))

(define-frame C-24_2
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (/= (model-id (elevator.counterwtguard ?x))
       counterweight_guard_thickness_m01)
      (>= (counterweight_to_platform_rear ?x)
       (+ 1.5 (counterweight_guard_thickness (elevator.counterwtguard ?x)))))))
 :issues ((:formerly-named cwt_to_platform_rear_minimum2)
          (:source
           "The Yost document, under \"C-24\"")))

(define-frame DEFLECTOR_SHEAVE_DIAMETER_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (deflector_sheave_diameter ?x)
      (deflector_sheave_diameter_s (elevator.deflectorsheave ?x)))))
 :issues ((:formerly-named deflectorsheavediameter_calc)
          (:source
           "The Yost document, under \"DEFLECTOR_SHEAVE_DIAMETER\"")))

(define-frame DEFLECTOR_SHEAVE_DIAMETER_MINIMUM
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(< (* (hoist_cable_diameter (elevator.hoistcable ?x)) 40)
      (deflector_sheave_diameter_s (elevator.deflectorsheave ?x)))))
 :issues ((:formerly-named deflector_sheave_diameter_cst)
          (:source
           "The Yost document, under \"DEFLECTOR_SHEAVE_DIAMETER_MINIMUM\"")))

(define-frame DEFLECTOR_SHEAVE_PROTRUSION_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (deflector_sheave_protrusion ?x)
      (deflector_sheave_protrusion (elevator.deflectorsheave ?x)))))
 :issues ((:formerly-named deflsheavep_calc)
          (:source
           "The Yost document, under \"DEFLECTOR_SHEAVE_PROTRUSION\"")))

(define-frame CAR_INTERCOM_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (car_intercom_spec ?x) "no")
      (= (model-id (elevator.intercom ?x)) car_intercom_m01))))
 :issues ((:formerly-named dont_select_intercom_cst)
          (:source
           "The Yost document, under \"CAR_INTERCOM\"")))

(define-frame CAR_LANTERN_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (car_lantern_spec ?x) "no")
      (= (model-id (elevator.lantern ?x)) car_lantern_m01))))
 :issues ((:formerly-named dont_select_lantern_cst)
          (:source
           "The Yost document, under \"CAR_LANTERN\"")))

(define-frame CAR_PHONE_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (car_phone_spec ?x) "no")
      (= (model-id (elevator.phone ?x)) car_phone_m01))))
 :issues ((:formerly-named dont_select_phone)
          (:source
           "The Yost document, under \"CAR_PHONE\"")))

(define-frame CAR_POSITION_INDICATOR_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (car_position_indicator_spec ?x) "no")
      (= (model-id (elevator.positionind ?x)) car_position_indicator_m01))))
 :issues ((:formerly-named dont_select_position_ind_cst)
          (:source
           "The Yost document, under \"CAR_POSITION_INDICATOR\"")))

(define-frame DOOR_SPEED_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (door_speed_code (elevator.door ?x))
      (door_speed_code (elevator.door ?x)))))
 :issues ((:formerly-named door.doorspeed_calc)
          (:source
           "The Yost document, under \"DOOR_SPEED\"")
	  (:modification-by "Guus Schreiber:
;;  BUG (well, not really): the next constraint is a tautology")
	  "I removed it from the has-constraint list, so it is harmless. -trg"))

(define-frame DOOR_SPEED_CODE_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (door_speed ?x) "double")
      (= (door_speed_code (elevator.door ?x)) "2s"))))
 :issues ((:formerly-named door.doorspeed_calc2)
          (:source
           "The Yost document, under \"DOOR_SPEED_CODE\"")))

(define-frame DOOR_SPEED_CODE_C03
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (door_speed ?x) "single")
      (= (door_speed_code (elevator.door ?x)) "ss"))))
 :issues ((:formerly-named door.doorspeed_calc3)
          (:source
           "The Yost document, under \"DOOR_SPEED_CODE\"")))

(define-frame DOOR_OPENING_TYPE_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (door_opening_type_s (elevator.door ?x)) "so")
      (= (door_opening_strike_side (elevator.door ?x)) "na"))))
 :issues ((:formerly-named door1)
          (:source
           "The Yost document, under \"DOOR_OPENING_TYPE\"")))

(define-frame DOOR_OPENING_TYPE_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (/= (door_opening_type_s (elevator.door ?x)) "so")
      (/= (door_opening_strike_side (elevator.door ?x)) "na"))))
 :issues ((:formerly-named door2)
          (:source
           "The Yost document, under \"DOOR_OPENING_TYPE\"")))

(define-frame OPENING_WIDTH_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (opening_width_door ?x) (opening_width_building ?x))))
 :issues ((:formerly-named door3)
          (:source
           "The Yost document, under \"OPENING_WIDTH\"")))

(define-frame DOOR_OPERATOR_HEADER_WEIGHT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (door_operator_header_weight (elevator.door ?x))
      (* (door_operator_constant (elevator.door ?x)) (opening_width_door ?x)))))
 :issues ((:formerly-named door4)
          (:source
           "The Yost document, under \"DOOR_OPERATOR_HEADER_WEIGHT\"")
	  (:modification-by "Guus Schreiber:
;;  BUG: + should be *
;;  Sec. 5.1")))

(define-frame DOOR_OPERATOR_WEIGHT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (door_operator_weight ?x)
      (+ (door_operator_engine_weight (elevator.door ?x))
       (door_operator_header_weight (elevator.door ?x))))))
 :issues ((:formerly-named door5)
          (:source
           "The Yost document, under \"DOOR_OPERATOR_WEIGHT\"")))

(define-frame CAR_RETURN_RIGHT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (car_return_right ?x)
      (- (platform_width_f (elevator.platform ?x))
       (+ (opening_width_building ?x) (car_return_left ?x))))))
 :issues ((:formerly-named door6)
          (:source
           "The Yost document, under \"CAR_RETURN_RIGHT\"")))

(define-frame DOOR_OPENING_TYPE_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(member (door_opening_type ?x) (setof "side" "center"))))
 :issues ((:formerly-named dooropeningtype_of_elevator_values)
          (:source
           "The Yost document, under \"DOOR_OPENING_TYPE\"")))

(define-frame C-36_1
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(and (>= (opening_width_door ?x) 0.0) (=< (opening_width_door ?x) 72.0))))
 :issues ((:formerly-named dooropenwidth_of_elevator_values)
          (:source
           "The Yost document, under \"C-36\"")))

(define-frame DOOR_SPACE_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (door_speed_code (elevator.door ?x)) "2s")
      (= (door_space (elevator.door ?x)) 6.5))))
 :issues ((:formerly-named doorspace_double_calc)
          (:source
           "The Yost document, under \"DOOR_SPACE\"")))

(define-frame DOOR_SPACE_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (door_speed_code (elevator.door ?x)) "ss")
      (= (door_space (elevator.door ?x)) 5.0))))
 :issues ((:formerly-named doorspace_single_calc)
          (:source
           "The Yost document, under \"DOOR_SPACE\"")))

(define-frame DOOR_SPEED_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(member (door_speed ?x) (setof "single" "double"))))
 :issues ((:formerly-named doorspeedspec_of_elevator_values)
          (:source
           "The Yost document, under \"DOOR_SPEED\"")))

(define-frame DOOR_SPEED_CODE_C04
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON door_model)
  (CONSTRAINT.EXPRESSION
    '(member (door_speed_code ?x) (setof "ss" "2s"))))
 :issues ((:formerly-named doorspeed_of_door_values)
          (:source
           "The Yost document, under \"DOOR_SPEED_CODE\"")
	  (:modification-by "Guus Schreiber:
;;  BUG: "2S" should be "2s" for consistency")))

(define-frame CAR_RETURN_LEFT_C04
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (model-id (elevator.door ?x)) door_model_code_m01)
      (= (car_return_left ?x)
       (/
        (- (platform_width_f (elevator.platform ?x))
         (opening_width_building ?x))
        2)))))
 :issues ((:formerly-named door_2sco1)
          (:source
           "The Yost document, under \"CAR_RETURN_LEFT\"")))

(define-frame CAR_RETURN_LEFT_C05
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (model-id (elevator.door ?x)) door_model_code_m02)
      (= (car_return_left ?x) 3))))
 :issues ((:formerly-named door_2sso_lh1)
          (:source
           "The Yost document, under \"CAR_RETURN_LEFT\"")))

(define-frame CAR_RETURN_LEFT_C06
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (model-id (elevator.door ?x)) door_model_code_m03)
      (= (car_return_left ?x)
       (- (platform_width_f (elevator.platform ?x))
        (+ (opening_width_building ?x) 3))))))
 :issues ((:formerly-named door_2sso_rh1)
          (:source
           "The Yost document, under \"CAR_RETURN_LEFT\"")
	  (:modification-by "Guus Schreiber:
;;  BUG: - should be + becuase of nested brackets
;;  Sec. 4.4: car_return_left = platform_width - opening_width_building  - 3")))

(define-frame CAR_RETURN_LEFT_C07
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (model-id (elevator.door ?x)) door_model_code_m04)
      (= (car_return_left ?x)
       (/
        (- (platform_width_f (elevator.platform ?x))
         (opening_width_building ?x))
        2)))))
 :issues ((:formerly-named door_ssco1)
          (:source
           "The Yost document, under \"CAR_RETURN_LEFT\"")))

(define-frame CAR_RETURN_LEFT_C08
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (model-id (elevator.door ?x)) door_model_code_m05)
      (= (car_return_left ?x) 3))))
 :issues ((:formerly-named door_ssso_lh1)
          (:source
           "The Yost document, under \"CAR_RETURN_LEFT\"")))

(define-frame CAR_RETURN_LEFT_C09
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (model-id (elevator.door ?x)) door_model_code_m06)
      (= (car_return_left ?x)
       (- (platform_width_f (elevator.platform ?x))
        (- (opening_width_building ?x) 3))))))
 :issues ((:formerly-named door_ssso_rh1)
          (:source
           "The Yost document, under \"CAR_RETURN_LEFT\"")))

(define-frame MACHINE_EFFICIENCY_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON machine_model)
  (CONSTRAINT.EXPRESSION
    '(and (>= (machine_efficiency ?x) 0.0) (=< (machine_efficiency ?x) 1.0))))
 :issues ((:formerly-named efficiency_of_machine_values)
          (:source
           "The Yost document, under \"MACHINE_EFFICIENCY\"")))

(define-frame CAR_SPEED_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(member (car_speed ?x) (setof 200 250 300 350 400))))
 :issues ((:formerly-named elevatorspeed_of_elevator_values)
          (:source
           "The Yost document, under \"CAR_SPEED\"")))

(define-frame CAR_CAPACITY_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (car_capacity (elevator.platform ?x)) (car_capacity_range ?x))))
 :issues ((:formerly-named equal_maxcarcapacity_platformcap)
          (:source
           "The Yost document, under \"CAR_CAPACITY\"")))

(define-frame HOISTWAY_BRACKET_SPACING_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (hoistway_bracket_spacing ?x) (hoistway_floor_height ?x))))
 :issues ((:formerly-named guiderail_bracket_spacing_calc)
          (:source
           "The Yost document, under \"HOISTWAY_BRACKET_SPACING\"")))

(define-frame MACHINE_GROOVE_PRESSURE_CONSTANT_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (car_speed ?x) 200)
       (= (model-id (elevator.msheavegroove ?x)) machine_groove_model_m02))
      (= (machine_groove_pressure_constant ?x) 264))))
 :issues ((:formerly-named hoistcablepressureconstant_1_1)
          (:source
           "The Yost document, under \"MACHINE_GROOVE_PRESSURE_CONSTANT\"")))

(define-frame MACHINE_GROOVE_PRESSURE_CONSTANT_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (car_speed ?x) 250)
       (= (model-id (elevator.msheavegroove ?x)) machine_groove_model_m02))
      (= (machine_groove_pressure_constant ?x) 238))))
 :issues ((:formerly-named hoistcablepressureconstant_1_2)
          (:source
           "The Yost document, under \"MACHINE_GROOVE_PRESSURE_CONSTANT\"")))

(define-frame MACHINE_GROOVE_PRESSURE_CONSTANT_C03
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (car_speed ?x) 300)
       (= (model-id (elevator.msheavegroove ?x)) machine_groove_model_m02))
      (= (machine_groove_pressure_constant ?x) 216))))
 :issues ((:formerly-named hoistcablepressureconstant_1_3)
          (:source
           "The Yost document, under \"MACHINE_GROOVE_PRESSURE_CONSTANT\"")))

(define-frame MACHINE_GROOVE_PRESSURE_CONSTANT_C04
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (car_speed ?x) 350)
       (= (model-id (elevator.msheavegroove ?x)) machine_groove_model_m02))
      (= (machine_groove_pressure_constant ?x) 202))))
 :issues ((:formerly-named hoistcablepressureconstant_1_4)
          (:source
           "The Yost document, under \"MACHINE_GROOVE_PRESSURE_CONSTANT\"")))

(define-frame MACHINE_GROOVE_PRESSURE_CONSTANT_C05
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (car_speed ?x) 400)
       (= (model-id (elevator.msheavegroove ?x)) machine_groove_model_m02))
      (= (machine_groove_pressure_constant ?x) 194))))
 :issues ((:formerly-named hoistcablepressureconstant_1_5)
          (:source
           "The Yost document, under \"MACHINE_GROOVE_PRESSURE_CONSTANT\"")))

(define-frame MACHINE_GROOVE_PRESSURE_CONSTANT_C06
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (car_speed ?x) 200)
       (= (model-id (elevator.msheavegroove ?x)) machine_groove_model_m01))
      (= (machine_groove_pressure_constant ?x) 196))))
 :issues ((:formerly-named hoistcablepressureconstant_2_1)
          (:source
           "The Yost document, under \"MACHINE_GROOVE_PRESSURE_CONSTANT\"")))

(define-frame MACHINE_GROOVE_PRESSURE_CONSTANT_C07
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (car_speed ?x) 250)
       (= (model-id (elevator.msheavegroove ?x)) machine_groove_model_m01))
      (= (machine_groove_pressure_constant ?x) 180))))
 :issues ((:formerly-named hoistcablepressureconstant_2_2)
          (:source
           "The Yost document, under \"MACHINE_GROOVE_PRESSURE_CONSTANT\"")))

(define-frame MACHINE_GROOVE_PRESSURE_CONSTANT_C08
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (car_speed ?x) 300)
       (= (model-id (elevator.msheavegroove ?x)) machine_groove_model_m01))
      (= (machine_groove_pressure_constant ?x) 164))))
 :issues ((:formerly-named hoistcablepressureconstant_2_3)
          (:source
           "The Yost document, under \"MACHINE_GROOVE_PRESSURE_CONSTANT\"")))

(define-frame MACHINE_GROOVE_PRESSURE_CONSTANT_C09
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (car_speed ?x) 350)
       (= (model-id (elevator.msheavegroove ?x)) machine_groove_model_m01))
      (= (machine_groove_pressure_constant ?x) 152))))
 :issues ((:formerly-named hoistcablepressureconstant_2_4)
          (:source
           "The Yost document, under \"MACHINE_GROOVE_PRESSURE_CONSTANT\"")))

(define-frame MACHINE_GROOVE_PRESSURE_CONSTANT_C10
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (car_speed ?x) 400)
       (= (model-id (elevator.msheavegroove ?x)) machine_groove_model_m01))
      (= (machine_groove_pressure_constant ?x) 142))))
 :issues ((:formerly-named hoistcablepressureconstant_2_5)
          (:source
           "The Yost document, under \"MACHINE_GROOVE_PRESSURE_CONSTANT\"")))

(define-frame HOISTCABLE_QUANTITY
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (hoist_cable_quantity_f (elevator.hoistcable ?x))
      (hoist_cable_quantity ?x))))
 :issues ((:formerly-named hoistcables_consistent)
          (:source
           "The Yost document, under \"HOIST_CABLE_QUANTITY\"")))

(define-frame HOIST_CABLE_ABOVE_COUNTERWEIGHT_CAR_BOTTOM_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (hoist_cable_above_counterweight_car_bottom ?x)
      (+ (machine_sheave_height ?x)
       (+ (machine_beam_support_bottom_to_machine_room_top ?x)
        (+ (deflector_sheave_protrusion ?x) (counterweight_overtravel ?x)))))))
 :issues ((:formerly-named hoistlabovecounterwt_calc)
          (:source
           "The Yost document, under \"HOIST_CABLE_ABOVE_COUNTERWEIGHT_CAR_BOTTOM\"")))

(define-frame MACHINE_BEAM_IMPACT_LOAD_LEFT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (machine_beam_impact_load_left ?x)
      (* (machine_beam_impact_load_total ?x)
       (/ (machine_right_offset (elevator.machine ?x))
        (+ (machine_left_offset (elevator.machine ?x))
         (machine_right_offset (elevator.machine ?x))))))))
 :issues ((:formerly-named impactload_leftbeam_calc)
          (:source
           "The Yost document, under \"MACHINE_BEAM_IMPACT_LOAD_LEFT\"")))

(define-frame MACHINE_BEAM_IMPACT_LOAD_RIGHT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (machine_beam_impact_load_right ?x)
      (* (machine_beam_impact_load_total ?x)
       (/ (machine_left_offset (elevator.machine ?x))
        (+ (machine_left_offset (elevator.machine ?x))
         (machine_right_offset (elevator.machine ?x))))))))
 :issues ((:formerly-named impactload_rightbeam_calc)
          (:source
           "The Yost document, under \"MACHINE_BEAM_IMPACT_LOAD_RIGHT\"")))

(define-frame MACHINE_BEAM_BENDING_MOMENT_LEFT_MAXIMUM_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (=< (machine_beam_center_to_machine_sheave_center ?x) 0)
         (= (machine_beam_bending_moment_left_maximum ?x)
            (* (machine_beam_reaction_front_left ?x)
               (machine_sheave_center_to_front_machine_beam_support ?x))))))
 :issues ((:formerly-named leftmaxbendingmoment_calc1)
          (:source
           "The Yost document, under \"MACHINE_BEAM_BENDING_MOMENT_LEFT_MAXIMUM\"")
	  (:modification-by "Guus Schreiber:
;;  BUG: wrong parameter name (D2 in Sec. 5.13)
;;  machine_beam_support_to_machine_beam_center CHANGED TO
;;  machine_sheave_center_to_front_machine_beam_support")))

(define-frame MACHINE_BEAM_BENDING_MOMENT_LEFT_MAXIMUM_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (> (machine_beam_center_to_machine_sheave_center ?x) 0)
         (= (machine_beam_bending_moment_left_maximum ?x)
            (+ (* (machine_beam_reaction_front_left ?x)
                  (machine_beam_support_to_machine_beam_center ?x))
               (* (machine_beam_center_to_machine_sheave_center ?x)
                     (- (machine_beam_reaction_front_left ?x)
                        (machine_beam_weight ?x))))))))
 :issues ((:formerly-named leftmaxbendingmoment_calc2)
          (:source
           "The Yost document, under \"MACHINE_BEAM_BENDING_MOMENT_LEFT_MAXIMUM\"")
	  (:modification-by "Guus Schreiber:
;;  BUG: transposition errors in formula (Sec. 5.13)")))

(define-frame PLATFORM_TO_HOISTWAY_LEFT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (platform_to_hoistway_left ?x)
      (- (opening_to_hoistway_left ?x) (car_return_left ?x)))))
 :issues ((:formerly-named leftplatformedge_lefthoistwaywall_calc)
          (:source
           "The Yost document, under \"PLATFORM_TO_HOISTWAY_LEFT\"")))

(define-frame COUNTERWEIGHT_ABOVE_TOP_CAR_BOTTOM_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (counterweight_above_top_car_bottom ?x)
      (+ (counterweight_buffer_footing_channel_height ?x)
       (+ (counterweight_buffer_blocking_height ?x)
        (+ (counterweight_buffer_height (elevator.counterwtbuffer ?x)) (counterweight_runby ?x)))))))
 :issues ((:formerly-named len_compcable_below_counterwt_calc)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_ABOVE_TOP_CAR_BOTTOM\"")))

(define-frame MACHINE_EFFICIENCY_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m01)
       (= (car_speed ?x) 200))
      (= (machine_efficiency (elevator.machine ?x)) 0.78))))
 :issues ((:formerly-named macheff_18_200)
          (:source
           "The Yost document, under \"MACHINE_EFFICIENCY\"")))

(define-frame MACHINE_GEAR_RATIO_SYMBOLIC_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m01)
       (= (car_speed ?x) 200))
      (= (machine_gear_ratio_numeric (elevator.machine ?x)) 55))))
 :issues ((:formerly-named macheff_18_200_ratio)
          (:source
           "The Yost document, under \"MACHINE_GEAR_RATIO_SYMBOLIC\"")))

(define-frame MACHINE_EFFICIENCY_C03
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m01)
       (= (car_speed ?x) 250))
      (= (machine_efficiency (elevator.machine ?x)) 0.81))))
 :issues ((:formerly-named macheff_18_250)
          (:source
           "The Yost document, under \"MACHINE_EFFICIENCY\"")))

(define-frame MACHINE_GEAR_RATIO_SYMBOLIC_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m01)
       (= (car_speed ?x) 250))
      (= (machine_gear_ratio_numeric (elevator.machine ?x)) 42.5))))
 :issues ((:formerly-named macheff_18_250_ratio)
          (:source
           "The Yost document, under \"MACHINE_GEAR_RATIO_SYMBOLIC\"")))

(define-frame MACHINE_EFFICIENCY_C04
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m01)
       (= (car_speed ?x) 300))
      (= (machine_efficiency (elevator.machine ?x)) 0.84))))
 :issues ((:formerly-named macheff_18_300)
          (:source
           "The Yost document, under \"MACHINE_EFFICIENCY\"")))

(define-frame MACHINE_GEAR_RATIO_SYMBOLIC_C03
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m01)
       (= (car_speed ?x) 300))
      (= (machine_gear_ratio_numeric (elevator.machine ?x)) 35.5))))
 :issues ((:formerly-named macheff_18_300_ratio)
          (:source
           "The Yost document, under \"MACHINE_GEAR_RATIO_SYMBOLIC\"")))

(define-frame MACHINE_EFFICIENCY_C05
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m01)
       (= (car_speed ?x) 350))
      (= (machine_efficiency (elevator.machine ?x)) 0.86))))
 :issues ((:formerly-named macheff_18_350)
          (:source
           "The Yost document, under \"MACHINE_EFFICIENCY\"")))

(define-frame MACHINE_GEAR_RATIO_SYMBOLIC_C04
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m01)
       (= (car_speed ?x) 350))
      (= (machine_gear_ratio_numeric (elevator.machine ?x)) 30.5))))
 :issues ((:formerly-named macheff_18_350_ratio)
          (:source
           "The Yost document, under \"MACHINE_GEAR_RATIO_SYMBOLIC\"")))

(define-frame MACHINE_EFFICIENCY_C06
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m01)
       (= (car_speed ?x) 400))
      (= (machine_efficiency (elevator.machine ?x)) 0.87))))
 :issues ((:formerly-named macheff_18_400)
          (:source
           "The Yost document, under \"MACHINE_EFFICIENCY\"")))

(define-frame MACHINE_GEAR_RATIO_SYMBOLIC_C05
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m01)
       (= (car_speed ?x) 400))
      (= (machine_gear_ratio_numeric (elevator.machine ?x)) 26.3))))
 :issues ((:formerly-named macheff_18_400_ratio)
          (:source
           "The Yost document, under \"MACHINE_GEAR_RATIO_SYMBOLIC\"")))

(define-frame MACHINE_EFFICIENCY_C07
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m02)
       (= (car_speed ?x) 200))
      (= (machine_efficiency (elevator.machine ?x)) 0.73))))
 :issues ((:formerly-named macheff_28_200)
          (:source
           "The Yost document, under \"MACHINE_EFFICIENCY\"")))

(define-frame MACHINE_GEAR_RATIO_SYMBOLIC_C06
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m02)
       (= (car_speed ?x) 200))
      (= (machine_gear_ratio_numeric (elevator.machine ?x)) 67.0))))
 :issues ((:formerly-named macheff_28_200_ratio)
          (:source
           "The Yost document, under \"MACHINE_GEAR_RATIO_SYMBOLIC\"")))

(define-frame MACHINE_EFFICIENCY_C08
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m02)
       (= (car_speed ?x) 250))
      (= (machine_efficiency (elevator.machine ?x)) 0.76))))
 :issues ((:formerly-named macheff_28_250)
          (:source
           "The Yost document, under \"MACHINE_EFFICIENCY\"")))

(define-frame MACHINE_GEAR_RATIO_SYMBOLIC_C07
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m02)
       (= (car_speed ?x) 250))
      (= (machine_gear_ratio_numeric (elevator.machine ?x)) 55))))
 :issues ((:formerly-named macheff_28_250_ratio)
          (:source
           "The Yost document, under \"MACHINE_GEAR_RATIO_SYMBOLIC\"")))

(define-frame MACHINE_EFFICIENCY_C09
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m02)
       (= (car_speed ?x) 300))
      (= (machine_efficiency (elevator.machine ?x)) 0.8))))
 :issues ((:formerly-named macheff_28_300)
          (:source
           "The Yost document, under \"MACHINE_EFFICIENCY\"")))

(define-frame MACHINE_GEAR_RATIO_SYMBOLIC_C08
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m02)
       (= (car_speed ?x) 300))
      (= (machine_gear_ratio_numeric (elevator.machine ?x)) 44.5))))
 :issues ((:formerly-named macheff_28_300_ratio)
          (:source
           "The Yost document, under \"MACHINE_GEAR_RATIO_SYMBOLIC\"")))

(define-frame MACHINE_EFFICIENCY_C10
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m02)
       (= (car_speed ?x) 350))
      (= (machine_efficiency (elevator.machine ?x)) 0.81))))
 :issues ((:formerly-named macheff_28_350)
          (:source
           "The Yost document, under \"MACHINE_EFFICIENCY\"")))

(define-frame MACHINE_GEAR_RATIO_SYMBOLIC_C09
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m02)
       (= (car_speed ?x) 350))
      (= (machine_gear_ratio_numeric (elevator.machine ?x)) 39.5))))
 :issues ((:formerly-named macheff_28_350_ratio)
          (:source
           "The Yost document, under \"MACHINE_GEAR_RATIO_SYMBOLIC\"")))

(define-frame MACHINE_EFFICIENCY_C11
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m02)
       (= (car_speed ?x) 400))
      (= (machine_efficiency (elevator.machine ?x)) 0.84))))
 :issues ((:formerly-named macheff_28_400)
          (:source
           "The Yost document, under \"MACHINE_EFFICIENCY\"")))

(define-frame MACHINE_GEAR_RATIO_SYMBOLIC_C10
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m02)
       (= (car_speed ?x) 400))
      (= (machine_gear_ratio_numeric (elevator.machine ?x)) 33.5))))
 :issues ((:formerly-named macheff_28_400_ratio)
          (:source
           "The Yost document, under \"MACHINE_GEAR_RATIO_SYMBOLIC\"")))

(define-frame MACHINE_EFFICIENCY_C12
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m03)
       (= (car_speed ?x) 200))
      (= (machine_efficiency (elevator.machine ?x)) 0.73))))
 :issues ((:formerly-named macheff_38_200)
          (:source
           "The Yost document, under \"MACHINE_EFFICIENCY\"")))

(define-frame MACHINE_GEAR_RATIO_SYMBOLIC_C11
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m03)
       (= (car_speed ?x) 200))
      (= (machine_gear_ratio_numeric (elevator.machine ?x)) 67))))
 :issues ((:formerly-named macheff_38_200_ratio)
          (:source
           "The Yost document, under \"MACHINE_GEAR_RATIO_SYMBOLIC\"")))

(define-frame MACHINE_EFFICIENCY_C13
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m03)
       (= (car_speed ?x) 250))
      (= (machine_efficiency (elevator.machine ?x)) 0.76))))
 :issues ((:formerly-named macheff_38_250)
          (:source
           "The Yost document, under \"MACHINE_EFFICIENCY\"")))

(define-frame MACHINE_GEAR_RATIO_SYMBOLIC_C12
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m03)
       (= (car_speed ?x) 250))
      (= (machine_gear_ratio_numeric (elevator.machine ?x)) 55))))
 :issues ((:formerly-named macheff_38_250_ratio)
          (:source
           "The Yost document, under \"MACHINE_GEAR_RATIO_SYMBOLIC\"")))

(define-frame MACHINE_EFFICIENCY_C14
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m03)
       (= (car_speed ?x) 300))
      (= (machine_efficiency (elevator.machine ?x)) 0.8))))
 :issues ((:formerly-named macheff_38_300)
          (:source
           "The Yost document, under \"MACHINE_EFFICIENCY\"")))

(define-frame MACHINE_GEAR_RATIO_SYMBOLIC_C13
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m03)
       (= (car_speed ?x) 300))
      (= (machine_gear_ratio_numeric (elevator.machine ?x)) 44.5))))
 :issues ((:formerly-named macheff_38_300_ratio)
          (:source
           "The Yost document, under \"MACHINE_GEAR_RATIO_SYMBOLIC\"")))

(define-frame MACHINE_EFFICIENCY_C15
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m03)
       (= (car_speed ?x) 350))
      (= (machine_efficiency (elevator.machine ?x)) 0.81))))
 :issues ((:formerly-named macheff_38_350)
          (:source
           "The Yost document, under \"MACHINE_EFFICIENCY\"")))

(define-frame MACHINE_GEAR_RATIO_SYMBOLIC_C14
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m03)
       (= (car_speed ?x) 350))
      (= (machine_gear_ratio_numeric (elevator.machine ?x)) 39.5))))
 :issues ((:formerly-named macheff_38_350_ratio)
          (:source
           "The Yost document, under \"MACHINE_GEAR_RATIO_SYMBOLIC\"")))

(define-frame MACHINE_EFFICIENCY_C16
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m03)
       (= (car_speed ?x) 400))
      (= (machine_efficiency (elevator.machine ?x)) 0.84))))
 :issues ((:formerly-named macheff_38_400)
          (:source
           "The Yost document, under \"MACHINE_EFFICIENCY\"")))

(define-frame MACHINE_GEAR_RATIO_SYMBOLIC_C15
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m03)
       (= (car_speed ?x) 400))
      (= (machine_gear_ratio_numeric (elevator.machine ?x)) 33.5))))
 :issues ((:formerly-named macheff_38_400_ratio)
          (:source
           "The Yost document, under \"MACHINE_GEAR_RATIO_SYMBOLIC\"")))

(define-frame MACHINE_EFFICIENCY_C17
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m04)
       (= (car_speed ?x) 200))
      (= (machine_efficiency (elevator.machine ?x)) 0.815))))
 :issues ((:formerly-named macheff_58_200)
          (:source
           "The Yost document, under \"MACHINE_EFFICIENCY\"")))

(define-frame MACHINE_GEAR_RATIO_SYMBOLIC_C16
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m04)
       (= (car_speed ?x) 200))
      (= (machine_gear_ratio_numeric (elevator.machine ?x)) 47.5))))
 :issues ((:formerly-named macheff_58_200_ratio)
          (:source
           "The Yost document, under \"MACHINE_GEAR_RATIO_SYMBOLIC\"")))

(define-frame MACHINE_EFFICIENCY_C18
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m04)
       (= (car_speed ?x) 250))
      (= (machine_efficiency (elevator.machine ?x)) 0.842))))
 :issues ((:formerly-named macheff_58_250)
          (:source
           "The Yost document, under \"MACHINE_EFFICIENCY\"")))

(define-frame MACHINE_GEAR_RATIO_SYMBOLIC_C17
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m04)
       (= (car_speed ?x) 250))
      (= (machine_gear_ratio_numeric (elevator.machine ?x)) 35.5))))
 :issues ((:formerly-named macheff_58_250_ratio)
          (:source
           "The Yost document, under \"MACHINE_GEAR_RATIO_SYMBOLIC\"")))

(define-frame MACHINE_EFFICIENCY_C19
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m04)
       (= (car_speed ?x) 300))
      (= (machine_efficiency (elevator.machine ?x)) 0.871))))
 :issues ((:formerly-named macheff_58_300)
          (:source
           "The Yost document, under \"MACHINE_EFFICIENCY\"")))

(define-frame MACHINE_GEAR_RATIO_SYMBOLIC_C18
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m04)
       (= (car_speed ?x) 300))
      (= (machine_gear_ratio_numeric (elevator.machine ?x)) 31.7))))
 :issues ((:formerly-named macheff_58_300_ratio)
          (:source
           "The Yost document, under \"MACHINE_GEAR_RATIO_SYMBOLIC\"")))

(define-frame MACHINE_EFFICIENCY_C20
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m04)
       (= (car_speed ?x) 350))
      (= (machine_efficiency (elevator.machine ?x)) 0.88))))
 :issues ((:formerly-named macheff_58_350)
          (:source
           "The Yost document, under \"MACHINE_EFFICIENCY\"")))

(define-frame MACHINE_GEAR_RATIO_SYMBOLIC_C19
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m04)
       (= (car_speed ?x) 350))
      (= (machine_gear_ratio_numeric (elevator.machine ?x)) 28.3))))
 :issues ((:formerly-named macheff_58_350_ratio)
          (:source
           "The Yost document, under \"MACHINE_GEAR_RATIO_SYMBOLIC\"")))

(define-frame MACHINE_EFFICIENCY_C21
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m04)
       (= (car_speed ?x) 400))
      (= (machine_efficiency (elevator.machine ?x)) 0.89))))
 :issues ((:formerly-named macheff_58_400)
          (:source
           "The Yost document, under \"MACHINE_EFFICIENCY\"")))

(define-frame MACHINE_GEAR_RATIO_SYMBOLIC_C20
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.machine ?x)) machine_model_m04)
       (= (car_speed ?x) 400))
      (= (machine_gear_ratio_numeric (elevator.machine ?x)) 26.7))))
 :issues ((:formerly-named macheff_58_400_ratio)
          (:source
           "The Yost document, under \"MACHINE_GEAR_RATIO_SYMBOLIC\"")))

(define-frame MACHINE_SHEAVE_TO_DEFLECTOR_SHEAVE_DIAGONAL_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (machine_sheave_to_deflector_sheave_diagonal ?x)
      (sqrt
       (+ (square (machine_sheave_to_deflector_sheave_horizontal ?x))
        (square (machine_sheave_to_deflector_sheave ?x)))))))
 :issues ((:formerly-named machinesheavetodeflsheavediag_calc)
          (:source
           "The Yost document, under \"MACHINE_SHEAVE_TO_DEFLECTOR_SHEAVE_DIAGONAL\"")))

(define-frame MACHINE_SHEAVE_TO_DEFLECTOR_SHEAVE_HORIZONTAL_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (machine_sheave_to_deflector_sheave_horizontal ?x)
        (- (car_cable_hitch_to_counterweight_cable_hitch ?x)
           (+ (/ (machine_sheave_diameter (elevator.machine ?x)) 2)
              (/ (deflector_sheave_diameter ?x) 2) 2)))))
 :issues ((:formerly-named machinesheavetodeflsheave_horz_calc)
          (:source
           "The Yost document, under \"MACHINE_SHEAVE_TO_DEFLECTOR_SHEAVE_HORIZONTAL\"")
	  (:modification-by "Guus Schreiber:
;;  BUG: transposition errors in formula (Sec. 5.12)")))

(define-frame MACHINE_BEAM_CENTER_TO_MACHINE_SHEAVE_CENTER_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (machine_beam_center_to_machine_sheave_center ?x)
      (- (machine_sheave_center_to_front_machine_beam_support ?x)
       (machine_beam_support_to_machine_beam_center ?x)))))
 :issues ((:formerly-named machine_beam_offsets_cst)
          (:source
           "The Yost document, under \"MACHINE_BEAM_CENTER_TO_MACHINE_SHEAVE_CENTER\"")))

(define-frame MACHINE_SHEAVE_CENTER_TO_FRONT_MACHINE_BEAM_SUPPORT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (machine_sheave_center_to_front_machine_beam_support ?x)
      (+ (car_cable_hitch_to_platform_front ?x)
       (+ (platform_to_hoistway_front ?x)
        (machine_beam_support_front_to_hoistway ?x))))))
 :issues ((:formerly-named machshecent_tofrombeam_support_calc)
          (:source
           "The Yost document, under \"MACHINE_SHEAVE_CENTER_TO_FRONT_MACHINE_BEAM_SUPPORT\"")))

(define-frame MACHINE_GROOVE_PRESSURE_ACCEPTABLE_MAXIMUM_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (machine_groove_pressure_acceptable_maximum ?x)
      (* (hoist_cable_diameter (elevator.hoistcable ?x))
       (machine_groove_pressure_constant ?x)))))
 :issues ((:formerly-named maxacceptablemachinegroovepressure_calc)
          (:source
           "The Yost document, under \"MACHINE_GROOVE_PRESSURE_ACCEPTABLE_MAXIMUM\"")))

(define-frame MACHINE_BEAM_LOAD_FRONT_LEFT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (machine_beam_load_front_left ?x)
      (* (machine_beam_safety_factor ?x) (machine_beam_reaction_front_left ?x)))))
 :issues ((:formerly-named maxbldgload_frontleft_calc)
          (:source
           "The Yost document, under \"MACHINE_BEAM_LOAD_FRONT_LEFT\"")))

(define-frame MACHINE_BEAM_LOAD_FRONT_RIGHT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (machine_beam_load_front_right ?x)
      (* (machine_beam_reaction_front_right ?x)
       (machine_beam_safety_factor ?x)))))
 :issues ((:formerly-named maxbldgload_frontright_calc)
          (:source
           "The Yost document, under \"MACHINE_BEAM_LOAD_FRONT_RIGHT\"")))

(define-frame MACHINE_BEAM_LOAD_REAR_LEFT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (machine_beam_load_rear_left ?x)
      (* (machine_beam_safety_factor ?x) (machine_beam_reaction_rear_left ?x)))))
 :issues ((:formerly-named maxbldgload_rearleft_calc)
          (:source
           "The Yost document, under \"MACHINE_BEAM_LOAD_REAR_LEFT\"")))

(define-frame MACHINE_BEAM_LOAD_REAR_RIGHT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (machine_beam_load_rear_right ?x)
      (* (machine_beam_reaction_rear_right ?x) (machine_beam_safety_factor ?x)))))
 :issues ((:formerly-named maxbldgload_rearright_calc)
          (:source
           "The Yost document, under \"MACHINE_BEAM_LOAD_REAR_RIGHT\"")))

(define-frame CAR_CAPACITY_RANGE_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(and (>= (car_capacity_range ?x) 2000) (=< (car_capacity_range ?x) 4000))))
 :issues ((:formerly-named maxcarcapacity_of_elevator_values)
          (:source
           "The Yost document, under \"CAR_CAPACITY_RANGE\"")))

(define-frame MACHINE_BEAM_SUPPORT_TYPE_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(member (machine_beam_support_type ?x) (setof "pocket" "steel"))))
 :issues ((:formerly-named mbeamsupporttypespec_of_elevator_values)
          (:source
           "The Yost document, under \"MACHINE_BEAM_SUPPORT_TYPE\"")))

(define-frame MACHINE_BEAM_SUPPORT_TO_MACHINE_BEAM_CENTER_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (machine_beam_support_to_machine_beam_center ?x)
      (/ (machine_beam_support_distance ?x) 2))))
 :issues ((:formerly-named mbeamsupport_to_mbeamcenter_calc)
          (:source
           "The Yost document, under \"MACHINE_BEAM_SUPPORT_TO_MACHINE_BEAM_CENTER\"")))

(define-frame C-32
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(and (>= (car_buffer_striking_speed_minimum ?x) 0.0)
      (=< (car_buffer_striking_speed_minimum ?x) 14.0))))
 :issues ((:formerly-named minacceptablecarbuffstroke_of_elevator_values)
          (:source
           "The Yost document, under \"C-32\"")))

(define-frame C-30_2
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (=< (machine_beam_section_modulus_right_minimum ?x)
       (machine_beam_section_modulus_left_minimum ?x))
      (= (minacceptablembeammodulus ?x)
       (machine_beam_section_modulus_left_minimum ?x)))))
 :issues ((:formerly-named minacceptablembeammodules_calc2)
          (:source
           "The Yost document, under \"C-30\"")))

(define-frame C-30_1
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (> (machine_beam_section_modulus_right_minimum ?x)
       (machine_beam_section_modulus_left_minimum ?x))
      (= (minacceptablembeammodulus ?x)
       (machine_beam_section_modulus_right_minimum ?x)))))
 :issues ((:formerly-named minacceptablembeammodulus_calc1)
          (:source
           "The Yost document, under \"C-30\"")))

(define-frame HOIST_CABLE_SAFETY_FACTOR_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (car_speed ?x) 200) (= (hoist_cable_safety_factor_minimum ?x) 8.75))))
 :issues ((:formerly-named minhoistcablesafetyfactor_calc1)
          (:source
           "The Yost document, under \"HOIST_CABLE_SAFETY_FACTOR\"")))

(define-frame HOIST_CABLE_SAFETY_FACTOR_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (car_speed ?x) 250) (= (hoist_cable_safety_factor_minimum ?x) 9.2))))
 :issues ((:formerly-named minhoistcablesafetyfactor_calc2)
          (:source
           "The Yost document, under \"HOIST_CABLE_SAFETY_FACTOR\"")))

(define-frame HOIST_CABLE_SAFETY_FACTOR_C03
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (car_speed ?x) 300) (= (hoist_cable_safety_factor_minimum ?x) 9.5))))
 :issues ((:formerly-named minhoistcablesafetyfactor_calc3)
          (:source
           "The Yost document, under \"HOIST_CABLE_SAFETY_FACTOR\"")))

(define-frame HOIST_CABLE_SAFETY_FACTOR_C04
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (car_speed ?x) 350) (= (hoist_cable_safety_factor_minimum ?x) 9.75))))
 :issues ((:formerly-named minhoistcablesafetyfactor_calc4)
          (:source
           "The Yost document, under \"HOIST_CABLE_SAFETY_FACTOR\"")))

(define-frame HOIST_CABLE_SAFETY_FACTOR_C05
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (car_speed ?x) 400) (= (hoist_cable_safety_factor_minimum ?x) 10.0))))
 :issues ((:formerly-named minhoistcablesafetyfactor_calc5)
          (:source
           "The Yost document, under \"HOIST_CABLE_SAFETY_FACTOR\"")))

(define-frame C-36_2
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.platform ?x)) platform_model_m01)
       (= (door_opening_type ?x) "center"))
      (=< (opening_width_door ?x) (- (/ (platform_width ?x) 2) 12)))))
 :issues ((:formerly-named minimumopeningwith_25b)
          (:source
           "The Yost document, under \"C-36\"")))

(define-frame C-36_3
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.platform ?x)) platform_model_m01)
       (= (door_opening_type ?x) "side"))
      (=< (opening_width_door ?x) (- (/ (platform_width ?x) 2) 6)))))
 :issues ((:formerly-named minimumopeningwith_25b_side)
          (:source
           "The Yost document, under \"C-36\"")))

(define-frame MOTORSCOMPATIBLE_MACHINE18
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (model-id (elevator.machine ?x)) machine_model_m01)
      (member (model-id (elevator.motor ?x))
       (setof motor_model_m01 motor_model_m03))))))

(define-frame MOTORSCOMPATIBLE_MACHINE28
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (model-id (elevator.machine ?x)) machine_model_m02)
      (member (model-id (elevator.motor ?x))
       (setof motor_model_m03 motor_model_m04 motor_model_m05 motor_model_m06))))))

(define-frame MOTORSCOMPATIBLE_MACHINE58
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (model-id (elevator.machine ?x)) machine_model_m04)
      (= (model-id (elevator.motor ?x)) motor_model_m06)))))

(define-frame MACHINE_BEAM_SUPPORT_BOTTOM_TO_MACHINE_ROOM_TOP_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (machine_beam_support_type ?x) "steel")
      (= (machine_beam_support_bottom_to_machine_room_top ?x)
       (machine_beam_support_bottom_to_machine_room_top_spec ?x)))))
 :issues ((:formerly-named mroomfloor_to_undermbeam_calc)
          (:source
           "The Yost document, under \"MACHINE_BEAM_SUPPORT_BOTTOM_TO_MACHINE_ROOM_TOP\"")))

(define-frame MACHINE_BEAM_SUPPORT_UNDERSIDE_TO_MACHINE_ROOM_FLOOR
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (machine_beam_support_type ?x) "pocket")
      (= (machine_beam_support_bottom_to_machine_room_top ?x)
       (- (machine_beam_support_bottom_to_machine_room_top_spec ?x)
        (machine_beam_bearing_plate_thickness ?x))))))
 :issues ((:formerly-named mroomfloor_to_undermbeam_calc2)
          (:source
           "The Yost document, under \"MACHINE_BEAM_SUPPORT_UNDERSIDE_TO_MACHINE_ROOM_FLOOR\"")))

(define-frame MACHINE_SHEAVE_TO_DEFLECTOR_SHEAVE_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (machine_sheave_to_deflector_sheave ?x)
      (+ (machine_sheave_height ?x)
       (+ (machine_beam_support_bottom_to_machine_room_top ?x)
        (- (deflector_sheave_protrusion ?x)
         (* 0.5 (deflector_sheave_diameter ?x))))))))
 :issues ((:formerly-named msheavecenter_to_deflsheavecenter_calc)
          (:source
           "The Yost document, under \"MACHINE_SHEAVE_TO_DEFLECTOR_SHEAVE\"")))

(define-frame MACHINE_SHEAVE_HEIGHT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (machine_sheave_height ?x)
      (machine_sheave_height_f (elevator.machine ?x)))))
 :issues ((:formerly-named msheaveheight_calc)
          (:source
           "The Yost document, under \"MACHINE_SHEAVE_HEIGHT\"")))

(define-frame C-5_1
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(and (>= (car_buffer_quantity ?x) 1) (=< (car_buffer_quantity ?x) 100))))
 :issues ((:formerly-named noofcarbuff_of_elevator_values)
          (:source
           "The Yost document, under \"C-5\"")))

(define-frame C-5_2
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
   '(=>
     (or (= (model-id (elevator.safety ?x)) safety_beam_model_m01)
         (= (model-id (elevator.safety ?x)) safety_beam_model_m02))
     (= (car_buffer_quantity ?x) 1))))
 :issues ((:formerly-named noofcarbuff_restriction1)
          (:source
           "The Yost document, under \"C-5\"")
	  (:modification-by "Guus Schreiber:
;;  BUG: AND in formula changed to OR (Sec. 7)")))

(define-frame C-5_3
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (model-id (elevator.safety ?x)) safety_beam_model_m03)
      (=< (car_buffer_quantity ?x) 2))))
 :issues ((:formerly-named noofcarbuff_restriction2)
          (:source
           "The Yost document, under \"C-5\"")))

(define-frame COMPENSATION_CABLE_QUANTITY_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (compensation_cable_quantity ?x)
      (compensation_cable_quantity_c02 (elevator.compensationcable ?x)))))
 :issues ((:formerly-named noofcompcables_consistent)
          (:source
           "The Yost document, under \"COMPENSATION_CABLE_QUANTITY\"")))

(define-frame C-17
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(and (>= (counterweight_buffer_quantity ?x) 1)
      (=< (counterweight_buffer_quantity ?x) 2))))
 :issues ((:formerly-named noofcounterwtbuff_of_elevator_values)
          (:source
           "The Yost document, under \"C-17\"")))

(define-frame NOOFHOISTCABLES_OF_ELEVATOR_VALUES
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(and (>= (hoist_cable_quantity ?x) 3) (=< (hoist_cable_quantity ?x) 6)))))

(define-frame COUNTERWEIGHT_PLATE_QUANTITY_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON counterweight_between_guiderails_m)
  (CONSTRAINT.EXPRESSION
    '(and (>= (counterweight_plate_quantity ?x) 7)
      (=< (counterweight_plate_quantity ?x) 12))))
 :issues ((:formerly-named noofplates_of_counterweightbg_values)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_PLATE_QUANTITY\"")))

(define-frame COUNTERWEIGHT_GUARD_REQUIRED_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (> (compensation_cable_quantity ?x) 0)
      (= (model-id (elevator.counterwtguard ?x))
       counterweight_guard_thickness_m01))))
 :issues ((:formerly-named no_guard_needed_cst)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_GUARD_REQUIRED\"")
	  (:see-also COUNTERWEIGHT_GUARD_REQUIRED_C2)))

(define-frame COUNTERWEIGHT_GUARD_REQUIRED_C2
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (compensation_cable_quantity ?x) 0)
      (= (model-id (elevator.counterwtguard ?x))
         counterweight_guard_thickness_m02))))
 :issues ((:formerly-named no_guard_needed_cst)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_GUARD_REQUIRED\"")
	  (:modification-by "Guus Schreiber:
;;  BUG: missing constraint
;;  There needs to be a constraint which is complementary to
;;  COUNTERWEIGHT_GUARD_REQUIRED_C
;;  to describe the case where no guard is required")
	  (:see-also COUNTERWEIGHT_GUARD_REQUIRED_C)))

(define-frame ONEBUFFER_WHENLESS38
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (< (counterweight_between_guiderails_value ?x) 38)
      (= (counterweight_buffer_quantity ?x) 1)))))

(define-frame C-35
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(and (>= (opening_height ?x) 78)
      (=< (opening_height ?x) (car_cab_height ?x)))))
 :issues ((:formerly-named openingheight_restriction)
          (:source
           "The Yost document, under \"C-35\"")))

(define-frame DOOR_OPENING_STRIKE_SIDE_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON door_model)
  (CONSTRAINT.EXPRESSION
    '(member (door_opening_strike_side ?x) (setof "left" "right" "na"))))
 :issues ((:formerly-named openingside_of_door_values)
          (:source
           "The Yost document, under \"DOOR_OPENING_STRIKE_SIDE\"")))

(define-frame DOOR_OPENING_STRIKE_SIDE_SPEC_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(member (door_opening_strike_side_spec ?x) (setof "left" "right"))))
 :issues ((:formerly-named openingstrikesidespec_of_elevator_values)
          (:source
           "The Yost document, under \"DOOR_OPENING_STRIKE_SIDE\"")))

(define-frame OPENINGTYPE_OF_DOOR_VALUES
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT.EXPRESSION
    '(member (door_opening_type_s ?x) (setof "side" "center")))))

(define-frame OPENING_TO_HOISTWAY_RIGHT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (opening_to_hoistway_right ?x)
        (- (hoistway_width ?x)
           (+ (opening_width_door ?x) (opening_to_hoistway_left ?x))))))
 :issues ((:formerly-named opening_hoistway_right_calc)
          (:source
           "The Yost document, under \"OPENING_TO_HOISTWAY_RIGHT\"")
	  (:modification-by "Guus Schreiber:
;;  BUG: - CHANGED TO + (Sec. 4.4)")))

(define-frame COMPENSATION_CABLE_UNIT_WEIGHT_OPTIMAL_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (compensation_cable_unit_weight_optimal ?x)
      (-
       (* (hoist_cable_quantity ?x)
        (hoist_cable_unit_weight (elevator.hoistcable ?x)))
       (* 0.25 (control_cable_unit_weight (elevator.controlcable ?x)))))))
 :issues ((:formerly-named optimalcompcablewtperinch_calc)
          (:source
           "The Yost document, under \"COMPENSATION_CABLE_UNIT_WEIGHT_OPTIMAL\"")))

(define-frame C-37
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(and (>= (hoistway_overhead ?x) 0.0) (=< (hoistway_overhead ?x) 360.0))))
 :issues ((:formerly-named overheadspec_of_elevator_values)
          (:source
           "The Yost document, under \"C-37\"")))

(define-frame PEAKMCUR_CALC_10HP_1
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (=< (motor_torque_releveling ?x) 40)
       (= (model-id (elevator.motor ?x)) motor_model_m01))
      (= (motor_peak_current_required ?x)
       (* 1.25 (motor_torque_releveling ?x)))))))

(define-frame PEAKMCUR_CALC_10HP_2
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
   '(=> (and (> (motor_torque_releveling ?x) 40)
             (and (=< (motor_torque_releveling ?x) 62.5)
                  (= (model-id (elevator.motor ?x)) motor_model_m01)))
        (= (motor_peak_current_required ?x)
           (- (* 1.333 (motor_torque_releveling ?x))
              3.333)))))
 :issues ((:modification-by "Guus Schreiber:
;;  BUG: */+ and */- transpositions errors")))


(define-frame PEAKMCUR_CALC_10HP_3
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (and (> (motor_torque_releveling ?x) 62.5)
              (= (model-id (elevator.motor ?x)) motor_model_m01))
         (= (motor_peak_current_required ?x)
            (- (* 1.6 (motor_torque_releveling ?x))
               20)))))
 :issues ((:modification-by "Guus Schreiber:
;;  BUG: */+ and */- transpositions errors")))


(define-frame PEAKMCUR_CALC_15HP_1
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (=< (motor_torque_releveling ?x) 70)
       (= (model-id (elevator.motor ?x)) motor_model_m02))
      (= (motor_peak_current_required ?x)
       (* 1.286 (motor_torque_releveling ?x)))))))


(define-frame PEAKMCUR_CALC_15HP_2
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (and (> (motor_torque_releveling ?x) 70)
              (and (=< (motor_torque_releveling ?x) 120)
                   (= (model-id (elevator.motor ?x)) motor_model_m02)))
         (= (motor_peak_current_required ?x)
            (- (* 1.4 (motor_torque_releveling ?x)) 
               8)))))
 :issues ((:modification-by "Guus Schreiber:
;;  BUG: */+ and */- transpositions errors")))

(define-frame PEAKMCUR_CALC_15HP_3
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (and (> (motor_torque_releveling ?x) 120)
              (= (model-id (elevator.motor ?x)) motor_model_m02))
         (= (motor_peak_current_required ?x)
            (+ (* 1.6 (motor_torque_releveling ?x)) 
               60)))))
 :issues ((:modification-by "Guus Schreiber:
;;  BUG: */+ and */- transpositions errors")))


(define-frame PEAKMCUR_CALC_20HP_1
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (=< (motor_torque_releveling ?x) 83)
       (= (model-id (elevator.motor ?x)) motor_model_m03))
      (= (motor_peak_current_required ?x)
       (* 1.205 (motor_torque_releveling ?x)))))))

(define-frame PEAKMCUR_CALC_20HP_2
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (and (> (motor_torque_releveling ?x) 83)
              (= (model-id (elevator.motor ?x)) motor_model_m03))
         (= (motor_peak_current_required ?x)
            (- (* 1.739 (motor_torque_releveling ?x))
               66.087)))))
 :issues ((:modification-by "Guus Schreiber:
;;  BUG: */+ and */- transpositions errors")))


(define-frame PEAKMCUR_CALC_25HP_1
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (=< (motor_torque_releveling ?x) 170)
       (= (model-id (elevator.motor ?x)) motor_model_m04))
      (= (motor_peak_current_required ?x)
       (* 1.176 (motor_torque_releveling ?x)))))))

(define-frame PEAKMCUR_CALC_25HP_2
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (> (motor_torque_releveling ?x) 170)
       (and (=< (motor_torque_releveling ?x) 230)
        (= (model-id (elevator.motor ?x)) motor_model_m04)))
      (= (motor_peak_current_required ?x)
       (* 1.25 (- (motor_torque_releveling ?x) 12.5))))))
 :issues ((:modification-by "Guus Schreiber:
;;  BUG: */+ and */- transpositions errors")))

(define-frame PEAKMCUR_CALC_25HP_3
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (and (> (motor_torque_releveling ?x) 230)
              (= (model-id (elevator.motor ?x)) motor_model_m04))
         (= (motor_peak_current_required ?x)
            (- (* 1.667 (motor_torque_releveling ?x)) 
               108.333)))))
 :issues ((:modification-by "Guus Schreiber:
;;  BUG: */+ and */- transpositions errors")))


(define-frame PEAKMCUR_CALC_30HP_1
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (=< (motor_torque_releveling ?x) 200)
       (= (model-id (elevator.motor ?x)) motor_model_m05))
      (= (motor_peak_current_required ?x) (* 1.2 (motor_torque_releveling ?x)))))))

(define-frame PEAKMCUR_CALC_30HP_2
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (and (> (motor_torque_releveling ?x) 200)
              (= (model-id (elevator.motor ?x)) motor_model_m05))
         (= (motor_peak_current_required ?x)
            (- (* 1.455 (motor_torque_releveling ?x)) 
               50.909)))))
 :issues ((:modification-by "Guus Schreiber:
;;  BUG: */+ and */- transpositions errors")))


(define-frame PEAKMCUR_CALC_40HP_1
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (=< (motor_torque_releveling ?x) 270)
       (= (model-id (elevator.motor ?x)) motor_model_m06))
      (= (motor_peak_current_required ?x)
       (* 1.296 (motor_torque_releveling ?x)))))))

(define-frame PEAKMCUR_CALC_40HP_2
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (> (motor_torque_releveling ?x) 270)
       (= (model-id (elevator.motor ?x)) motor_model_m06))
      (= (motor_peak_current_required ?x) (+ (motor_torque_releveling ?x) 80))))))

(define-frame C-38
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(and (>= (hoistway_pit_depth ?x) 0.0) (=< (hoistway_pit_depth ?x) 240.0))))
 :issues ((:formerly-named pitdepth_of_elevator_values)
          (:source
           "The Yost document, under \"C-38\"")))

(define-frame C-20
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(and (>= (counterweight_plate_depth ?x) 7.0)
      (=< (counterweight_plate_depth ?x) 12.0))))
 :issues ((:formerly-named plate_depth_of_elevator_values)
          (:source
           "The Yost document, under \"C-20\"")))

(define-frame PLATFORM_DEPTH_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (platform_depth (elevator.platform ?x)) (platform_depth_spec ?x))))
 :issues ((:formerly-named platform.platformd_calc)
          (:source
           "The Yost document, under \"PLATFORM_DEPTH\"")))

(define-frame PLATFORM_WIDTH_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (platform_width_f (elevator.platform ?x)) (platform_width ?x))))
 :issues ((:formerly-named platform.platformw_calc)
          (:source
           "The Yost document, under \"PLATFORM_WIDTH\"")))

(define-frame PLATFORM_MODEL_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (=< (car_capacity (elevator.platform ?x)) 2500)
       (and (=< (platform_depth (elevator.platform ?x)) 60)
        (=< (platform_width_f (elevator.platform ?x)) 84)))
      (= (model-id (elevator.platform ?x)) platform_model_m01))))
 :issues ((:formerly-named platform1)
          (:source
           "The Yost document, under \"PLATFORM_MODEL\"")))

(define-frame PLATFORM_MODEL_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (> (car_capacity (elevator.platform ?x)) 2500)
       (and (=< (platform_depth (elevator.platform ?x)) 108)
        (=< (platform_width_f (elevator.platform ?x)) 128)))
      (= (model-id (elevator.platform ?x)) platform_model_m02))))
 :issues ((:formerly-named platform2)
          (:source
           "The Yost document, under \"PLATFORM_MODEL\"")))

(define-frame C-45
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (model-id (elevator.platform ?x)) platform_model_m01)
      (member (model-id (elevator.sling ?x))
       (setof sling_model_m01 sling_model_m02)))))
 :issues ((:formerly-named platform25b_compatible)
          (:source
           "The Yost document, under \"C-45\"")))

(define-frame PLATFORM_MODEL_C03
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (> (car_capacity (elevator.platform ?x)) 2500)
       (and (=< (platform_depth (elevator.platform ?x)) 115)
        (=< (platform_width_f (elevator.platform ?x)) 126)))
      (= (model-id (elevator.platform ?x)) platform_model_m02))))
 :issues ((:formerly-named platform3)
          (:source
           "The Yost document, under \"PLATFORM_MODEL\"")))

(define-frame CAR_CABLE_HITCH_OFFSET_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (=< (platform_depth (elevator.platform ?x)) 60)
      (= (car_cable_hitch_to_platform_front ?x)
       (- (/ (platform_depth (elevator.platform ?x)) 2) 2)))))
 :issues ((:formerly-named platformfront_to_cablehitch_calc_offset2)
          (:source
           "The Yost document, under \"CAR_CABLE_HITCH_OFFSET\"")))

(define-frame CAR_CABLE_HITCH_OFFSET_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (> (platform_depth (elevator.platform ?x)) 60)
       (=< (platform_depth (elevator.platform ?x)) 66))
      (= (car_cable_hitch_to_platform_front ?x)
       (- (/ (platform_depth (elevator.platform ?x)) 2) 2.5)))))
 :issues ((:formerly-named platformfront_to_cablehitch_offset25)
          (:source
           "The Yost document, under \"CAR_CABLE_HITCH_OFFSET\"")))

(define-frame CAR_CABLE_HITCH_OFFSET_C03
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (> (platform_depth (elevator.platform ?x)) 66)
      (= (car_cable_hitch_to_platform_front ?x)
       (- (/ (platform_depth (elevator.platform ?x)) 2) 4)))))
 :issues ((:formerly-named platformfront_to_cablehitch_offset4)
          (:source
           "The Yost document, under \"CAR_CABLE_HITCH_OFFSET\"")))

(define-frame CAR_CABLE_HITCH_TO_PLATFORM_REAR_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (car_cable_hitch_to_platform_rear ?x)
      (- (platform_depth (elevator.platform ?x))
       (car_cable_hitch_to_platform_front ?x)))))
 :issues ((:formerly-named platformrear_to_cablehitch_calc)
          (:source
           "The Yost document, under \"CAR_CABLE_HITCH_TO_PLATFORM_REAR\"")))

(define-frame PLATFORM_TO_HOISTWAY_FRONT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (platform_to_hoistway_front ?x)
      (+ (door_space (elevator.door ?x)) (platform_running_clearance ?x)))))
 :issues ((:formerly-named platformtohoistway_calc)
          (:source
           "The Yost document, under \"PLATFORM_TO_HOISTWAY_FRONT\"")))

(define-frame C-41
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON platform_model)
  (CONSTRAINT.EXPRESSION
    '(and (>= (platform_width_f ?x) 60.0) (=< (platform_width_f ?x) 1000.0))))
 :issues ((:formerly-named platformw_of_platform_values)
          (:source
           "The Yost document, under \"PLATFORM_WIDTH\"")))

(define-frame PLATFORM_WEIGHT_FACTOR_AP_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (=< (platform_width_f (elevator.platform ?x)) 60)
       (= (model-id (elevator.platform ?x)) platform_model_m01))
      (= (platform_weight_factor_ap ?x) 3))))
 :issues ((:formerly-named platform_2.5b1)
          (:source
           "The Yost document, under \"PLATFORM_WEIGHT_FACTOR_AP\"")))

(define-frame PLATFORM_WEIGHT_FACTOR_AP_C03
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (> (platform_width_f (elevator.platform ?x)) 60)
       (and (=< (platform_width_f (elevator.platform ?x)) 76)
        (= (model-id (elevator.platform ?x)) platform_model_m01)))
      (= (platform_weight_factor_ap ?x) 4))))
 :issues ((:formerly-named platform_25b2)
          (:source
           "The Yost document, under \"PLATFORM_WEIGHT_FACTOR_AP\"")))

(define-frame PLATFORM_WEIGHT_FACTOR_AP_C04
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (> (platform_width_f (elevator.platform ?x)) 76)
       (= (model-id (elevator.platform ?x)) platform_model_m01))
      (= (platform_weight_factor_ap ?x) 5))))
 :issues ((:formerly-named platform_25b3)
          (:source
           "The Yost document, under \"PLATFORM_WEIGHT_FACTOR_AP\"")))

(define-frame PLATFORM_WEIGHT_FACTOR_S_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (car_capacity (elevator.platform ?x)) 2000)
       (and (=< (platform_depth (elevator.platform ?x)) 53)
        (= (model-id (elevator.platform ?x)) platform_model_m01)))
      (= (platform_weight_factor_s ?x) 63))))
 :issues ((:formerly-named platform_25b4)
          (:source
           "The Yost document, under \"PLATFORM_WEIGHT_FACTOR_S\"")))

(define-frame PLATFORM_WEIGHT_FACTOR_S_C03
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and
       (or (/= (car_capacity (elevator.platform ?x)) 2000)
        (> (platform_depth (elevator.platform ?x)) 53))
       (= (model-id (elevator.platform ?x)) platform_model_m01))
      (= (platform_weight_factor_s ?x) 71))))
 :issues ((:formerly-named platform_25b5)
          (:source
           "The Yost document, under \"PLATFORM_WEIGHT_FACTOR_S\"")))

(define-frame PLATFORM_WEIGHT_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (model-id (elevator.platform ?x)) platform_model_m01)
      (= (platform_weight ?x)
       (+ (platform_weight_factor_s ?x)
        (* 0.318
         (+ (* 5.06 (platform_width_f (elevator.platform ?x)))
          (+
           (* 0.11
            (* (platform_width_f (elevator.platform ?x))
             (platform_depth (elevator.platform ?x))))
           (* (- (platform_depth (elevator.platform ?x)) 7.6)
            (+ 3.14 (* 0.8 (platform_weight_factor_ap ?x))))))))))))
 :issues ((:formerly-named platform_25b6)
          (:source
           "The Yost document, under \"PLATFORM_WEIGHT\"")))

(define-frame PLATFORM_MODEL_C04
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(and (= (door_opening_type_s (elevator.door ?x)) "co")
      (= (model-id (elevator.platform ?x)) platform_model_m01))))
 :issues ((:formerly-named platform_25b7)
          (:source
           "The Yost document, under \"PLATFORM_MODEL\"")))

(define-frame PLATFORM_WEIGHT_FACTOR_AP_C05
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (model-id (elevator.platform ?x)) platform_model_m02)
      (= (platform_weight_factor_ap ?x)
       (floor (/ (- (platform_width_f (elevator.platform ?x)) 0.125) 9))))))
 :issues ((:formerly-named platform_4b1)
          (:source
           "The Yost document, under \"PLATFORM_WEIGHT_FACTOR_AP\"")))

(define-frame PLATFORM_WEIGHT_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (model-id (elevator.platform ?x)) platform_model_m03)
      (= (platform_weight ?x)
       (+ 35
        (+
         (* (platform_width_f (elevator.platform ?x))
          (platform_weight_factor_x ?x))
         (+ (* 3.228 (platform_depth (elevator.platform ?x)))
          (+ (* 0.034 (opening_width_door ?x))
           (* (platform_weight_factor_ap ?x)
            (- (* 0.226 (platform_depth (elevator.platform ?x)))
             (platform_weight_factor_z ?x)))))))))))
 :issues ((:formerly-named platform_4b11)
          (:source
           "The Yost document, under \"PLATFORM_WEIGHT\"")))

(define-frame PLATFORM_WEIGHT_FACTOR_X_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.platform ?x)) platform_model_m02)
       (= (door_speed_code (elevator.door ?x)) "ss"))
      (= (platform_weight_factor_x ?x) 2.26))))
 :issues ((:formerly-named platform_4b2)
          (:source
           "The Yost document, under \"PLATFORM_WEIGHT_FACTOR_X\"")))

(define-frame PLATFORM_WEIGHT_FACTOR_X_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.platform ?x)) platform_model_m02)
       (= (door_speed_code (elevator.door ?x)) "2s"))
      (= (platform_weight_factor_x ?x) 2.354))))
 :issues ((:formerly-named platform_4b3)
          (:source
           "The Yost document, under \"PLATFORM_WEIGHT_FACTOR_X\"")))

(define-frame PLATFORM_WEIGHT_FACTOR_X_C03
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.platform ?x)) platform_model_m02)
       (= (door_speed_code (elevator.door ?x)) "ss"))
      (= (platform_weight_factor_z ?x) 1.72))))
 :issues ((:formerly-named platform_4b4)
          (:source
           "The Yost document, under \"PLATFORM_WEIGHT_FACTOR_X\"")))

(define-frame PLATFORM_WEIGHT_FACTOR_Z_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.platform ?x)) platform_model_m02)
       (= (door_speed_code (elevator.door ?x)) "2s"))
      (= (platform_weight_factor_z ?x) 2.0))))
 :issues ((:formerly-named platform_4b5)
          (:source
           "The Yost document, under \"PLATFORM_WEIGHT_FACTOR_Z\"")))

(define-frame PLATFORM_WEIGHT_C03
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (model-id (elevator.platform ?x)) platform_model_m02)
      (= (platform_weight ?x)
       (+ 35
        (+
         (* (platform_width_f (elevator.platform ?x))
          (platform_weight_factor_x ?x))
         (+ (* 2.774 (platform_depth (elevator.platform ?x)))
          (+
           (* 0.03
            (* (platform_width_f (elevator.platform ?x))
             (platform_depth (elevator.platform ?x))))
           (+ (* 0.226 (opening_width_door ?x))
            (* (platform_weight_factor_ap ?x)
             (- (* 0.226 (platform_depth (elevator.platform ?x)))
              (platform_weight_factor_z ?x))))))))))))
 :issues ((:formerly-named platform_4b6)
          (:source
           "The Yost document, under \"PLATFORM_WEIGHT\"")))

(define-frame PLATFORM_WEIGHT_FACTOR_AP_C06
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (=< (platform_width_f (elevator.platform ?x)) 67)
       (= (model-id (elevator.platform ?x)) platform_model_m03))
      (= (platform_weight_factor_ap ?x) 5))))
 :issues ((:formerly-named platform_6b1)
          (:source
           "The Yost document, under \"PLATFORM_WEIGHT_FACTOR_AP\"")))

(define-frame PLATFORM_WEIGHT_FACTOR_Z_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (door_speed_code (elevator.door ?x)) "2s")
      (= (platform_weight_factor_z ?x) 2.0))))
 :issues ((:formerly-named platform_6b10)
          (:source
           "The Yost document, under \"PLATFORM_WEIGHT_FACTOR_Z\"")))

(define-frame PLATFORM_WEIGHT_FACTOR_AP_C07
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (> (platform_width_f (elevator.platform ?x)) 67)
       (and (=< (platform_width_f (elevator.platform ?x)) 76.5)
        (= (model-id (elevator.platform ?x)) platform_model_m03)))
      (= (platform_weight_factor_ap ?x) 6))))
 :issues ((:formerly-named platform_6b2)
          (:source
           "The Yost document, under \"PLATFORM_WEIGHT_FACTOR_AP\"")))

(define-frame PLATFORM_WEIGHT_FACTOR_AP_C08
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (> (platform_width_f (elevator.platform ?x)) 76.5)
       (and (=< (platform_width_f (elevator.platform ?x)) 86)
        (= (model-id (elevator.platform ?x)) platform_model_m03)))
      (= (platform_weight_factor_ap ?x) 7))))
 :issues ((:formerly-named platform_6b3)
          (:source
           "The Yost document, under \"PLATFORM_WEIGHT_FACTOR_AP\"")))

(define-frame PLATFORM_WEIGHT_FACTOR_AP_C09
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (> (platform_width_f (elevator.platform ?x)) 86)
       (and (=< (platform_width_f (elevator.platform ?x)) 96.5)
        (= (model-id (elevator.platform ?x)) platform_model_m03)))
      (= (platform_weight_factor_ap ?x) 8))))
 :issues ((:formerly-named platform_6b4)
          (:source
           "The Yost document, under \"PLATFORM_WEIGHT_FACTOR_AP\"")))

(define-frame PLATFORM_WEIGHT_FACTOR_AP_C10
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (> (platform_width_f (elevator.platform ?x)) 96.5)
       (and (=< (platform_width_f (elevator.platform ?x)) 105)
        (= (model-id (elevator.platform ?x)) platform_model_m03)))
      (= (platform_weight_factor_ap ?x) 9))))
 :issues ((:formerly-named platform_6b5)
          (:source
           "The Yost document, under \"PLATFORM_WEIGHT_FACTOR_AP\"")))

(define-frame PLATFORM_WEIGHT_FACTOR_AP_C11
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (> (platform_width_f (elevator.platform ?x)) 105)
       (= (model-id (elevator.platform ?x)) platform_model_m03))
      (= (platform_weight_factor_ap ?x) 10))))
 :issues ((:formerly-named platform_6b6)
          (:source
           "The Yost document, under \"PLATFORM_WEIGHT_FACTOR_AP\"")))

(define-frame PLATFORM_WEIGHT_FACTOR_X_C04
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.platform ?x)) platform_model_m03)
       (= (door_speed_code (elevator.door ?x)) "ss"))
      (= (platform_weight_factor_x ?x) 2.441))))
 :issues ((:formerly-named platform_6b7)
          (:source
           "The Yost document, under \"PLATFORM_WEIGHT_FACTOR_X\"")))

(define-frame PLATFORM_WEIGHT_FACTOR_X_C05
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (= (model-id (elevator.platform ?x)) platform_model_m03)
       (= (door_speed_code (elevator.door ?x)) "2s"))
      (= (platform_weight_factor_x ?x) 2.394))))
 :issues ((:formerly-named platform_6b8)
          (:source
           "The Yost document, under \"PLATFORM_WEIGHT_FACTOR_X\"")))

(define-frame PLATFORM_WEIGHT_FACTOR_Z_C03
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (door_speed_code (elevator.door ?x)) "ss")
      (= (platform_weight_factor_z ?x) 1.72))))
 :issues ((:formerly-named platform_6b9)
          (:source
           "The Yost document, under \"PLATFORM_WEIGHT_FACTOR_Z\"")))

(define-frame SAFETY_BEAM_LOAD_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (safety_beam_load ?x)
      (+ (car_weight ?x)
       (+ (car_capacity (elevator.platform ?x))
        (+ (compensation_cable_load_car_side_car_top ?x)
         (control_cable_load_car_side_car_top ?x)))))))
 :issues ((:formerly-named potentialsafetyload_cartop1)
          (:source
           "The Yost document, under \"SAFETY_BEAM_LOAD\"")))

(define-frame MOTOR_TORQUE_RELEVELING_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (motor_torque_releveling ?x)
        (* (/ (machine_sheave_diameter (elevator.machine ?x))
              (* 24 (* (machine_efficiency (elevator.machine ?x)) 
                       (machine_gear_ratio_numeric (elevator.machine ?x)))))
           (+ (* 2 (cable_load_unbalanced ?x))
              (+ (* (car_capacity_range ?x) 
                    (/ (- 1 0.4) 
                       0.95))
                 (- 1.5 0.4)))))))
 :issues ((:formerly-named relevelingtorque_calc)
          (:source
           "The Yost document, under \"MOTOR_TORQUE_RELEVELING\"")
	  (:modification-by "Guus Schreiber:
;;  BUG: several ones (Sec. 5.14)
;;  1.    +/* transposotions
;;  2.    the first instance of value 0.95 should be replaced by the 
;;        parameter (machine_efficiency (elevator.machine ?x)) 
;;  3.    the second instance of value 0.95 should be defined as
;;        parameter "hoistway_efficiency" with a fixed value (?!)
;;  4.    P is not explcitly defined as a parameter
;;        Also, P gets two different values in the formula: 
;;        0.4 (the correct one) and 0.6 (faulty)")))

(define-frame MOTOR_HORSEPOWER_REQUIRED_C03
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(and (>= (motor_horsepower_required ?x) 0.0)
      (=< (motor_horsepower_required ?x) 40.0))))
 :issues ((:formerly-named reqdmotorhp_of_elevator_values)
          (:source
           "The Yost document, under \"MOTOR_HORSEPOWER_REQUIRED\"")))

(define-frame MACHINE_BEAM_BENDING_MOMENT_RIGHT_MAXIMUM_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (=< (machine_beam_center_to_machine_sheave_center ?x) 0)
      (= (machine_beam_bending_moment_right_maximum ?x)
       (* (machine_beam_reaction_front_right ?x)
        (machine_sheave_center_to_front_machine_beam_support ?x))))))
 :issues ((:formerly-named rightmaxbendingmoment_calc1)
          (:source
           "The Yost document, under \"MACHINE_BEAM_BENDING_MOMENT_RIGHT_MAXIMUM\"")))

(define-frame MACHINE_BEAM_BENDING_MOMENT_RIGHT_MAXIMUM_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (> (machine_beam_center_to_machine_sheave_center ?x) 0)
         (= (machine_beam_bending_moment_right_maximum ?x)
            (+ (* (machine_beam_reaction_front_right ?x)
                  (machine_beam_support_to_machine_beam_center ?x))
               (* (machine_beam_center_to_machine_sheave_center ?x)
                  (- (machine_beam_reaction_front_right ?x)
                     (machine_beam_weight ?x))))))))
 :issues ((:formerly-named rightmaxbendingmoment_calc2)
          (:source
           "The Yost document, under \"MACHINE_BEAM_BENDING_MOMENT_RIGHT_MAXIMUM\"")
	  (:modification-by "Guus Schreiber:
;;  BUG: +/* transposition (Sec. 5.13)")))

(define-frame PLATFORM_TO_HOISTWAY_RIGHT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (platform_to_hoistway_right ?x)
      (- (opening_to_hoistway_right ?x) (car_return_right ?x)))))
 :issues ((:formerly-named rightplatformedge_righthoistwayedge_calc)
          (:source
           "The Yost document, under \"PLATFORM_TO_HOISTWAY_RIGHT\"")))

(define-frame SAFETY_BEAM_MODEL_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (=< (platform_width_f (elevator.platform ?x)) 93)
      (= (model-id (elevator.safety ?x)) safety_beam_model_m01))))
 :issues ((:formerly-named safety1)
          (:source
           "The Yost document, under \"SAFETY_BEAM_MODEL\"")))

(define-frame SAFETY_BEAM_MODEL_C02
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=>
      (and (>= (platform_width_f (elevator.platform ?x)) 93)
       (=< (platform_width_f (elevator.platform ?x)) 114))
      (= (model-id (elevator.safety ?x)) safety_beam_model_m02))))
 :issues ((:formerly-named safety2)
          (:source
           "The Yost document, under \"SAFETY_BEAM_MODEL\"")))

(define-frame SAFETY_BEAM_MODEL_C03
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (> (platform_width_f (elevator.platform ?x)) 114)
      (= (model-id (elevator.safety ?x)) safety_beam_model_m03))))
 :issues ((:formerly-named safety3)
          (:source
           "The Yost document, under \"SAFETY_BEAM_MODEL\"")))

(define-frame SAFETY_BEAM_BENDING_MOMENT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (safety_beam_bending_moment ?x)
        (* (safety_beam_load ?x) (- (safety_beam_between_guiderails ?x) 8)))))
 :issues ((:formerly-named safetybeambendmoment1)
          (:source
           "The Yost document, under \"SAFETY_BEAM_BENDING_MOMENT\"")
	  (:modification-by "Guus Schreiber:
;;  BUG: + CHANGED TO * (Sec. 6.5)")))

(define-frame SAFETY_BEAM_BETWEEN_GUIDERAILS_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (safety_beam_between_guiderails ?x)
      (+ (platform_width_f (elevator.platform ?x))
       (safety_beam_constant (elevator.safety ?x))))))
 :issues ((:formerly-named safetylbetweenguiderails1)
          (:source
           "The Yost document, under \"SAFETY_BEAM_BETWEEN_GUIDERAILS\"")))

(define-frame SAFETY_BEAM_WEIGHT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (safety_beam_weight ?x)
      (+
       (* (safety_beam_a (elevator.safety ?x))
        (platform_width_f (elevator.platform ?x)))
       (safety_beam_b (elevator.safety ?x))))))
 :issues ((:formerly-named safetywt1)
          (:source
           "The Yost document, under \"SAFETY_BEAM_WEIGHT\"")))

(define-frame CAR_INTERCOM_C03
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (car_intercom_spec ?x) "yes")
      (= (model-id (elevator.intercom ?x)) car_intercom_m02))))
 :issues ((:formerly-named select_intercom_cst)
          (:source
           "The Yost document, under \"CAR_INTERCOM\"")))

(define-frame CAR_LANTERN_C03
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (car_lantern_spec ?x) "yes")
      (= (model-id (elevator.lantern ?x)) car_lantern_m02))))
 :issues ((:formerly-named select_lantern_cst)
          (:source
           "The Yost document, under \"CAR_LANTERN\"")))

(define-frame CAR_PHONE_C03
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (car_phone_spec ?x) "yes")
      (= (model-id (elevator.phone ?x)) car_phone_m02))))
 :issues ((:formerly-named select_phone_cst)
          (:source
           "The Yost document, under \"CAR_PHONE\"")))

(define-frame CAR_POSITION_INDICATOR_C03
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(=> (= (car_position_indicator_spec ?x) "yes")
      (= (model-id (elevator.positionind ?x)) car_position_indicator_m02))))
 :issues ((:formerly-named select_positionind)
          (:source
           "The Yost document, under \"CAR_POSITION_INDICATOR\"")))

(define-frame SLING_UNDERBEAM_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (sling_underbeam ?x) (+ (car_cab_height ?x) (sling_underbeam_space ?x)))))
 :issues ((:formerly-named slingub_calc)
          (:source
           "The Yost document, under \"SLING_UNDERBEAM\"")))

(define-frame SLING_WEIGHT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (sling_weight ?x)
      (+
       (* (sling_weight_factor_a (elevator.sling ?x))
        (platform_width_f (elevator.platform ?x)))
       (+
        (* (sling_weight_factor_b (elevator.sling ?x)) (sling_stile_length ?x))
        (sling_weight_factor_c (elevator.sling ?x)))))))
 :issues ((:formerly-named slingwt1)
          (:source
           "The Yost document, under \"SLING_WEIGHT\"")))

(define-frame COUNTERWEIGHT_STACK_HEIGHT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (counterweight_stack_height (elevator.counterweightbg ?x))
      (* (counterweight_plate_quantity (elevator.counterweightbg ?x)) 1))))
 :issues ((:formerly-named stackheight_calc)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_STACK_HEIGHT\"")))

(define-frame C-22
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(> (counterweight_stack_height (elevator.counterweightbg ?x))
      (- (counterweight_frame_height ?x) (counterweight_frame_thickness ?x)))))
 :issues ((:formerly-named stackheight_restriction)
          (:source
           "The Yost document, under \"C-22\"")))

(define-frame SLING_STILE_LENGTH_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (sling_stile_length ?x)
      (+ (sling_underbeam ?x)
       (+ (crosshead_height (elevator.crosshead ?x))
        (- (platform_height (elevator.platform ?x)) 0.81))))))
 :issues ((:formerly-named stilel1)
          (:source
           "The Yost document, under \"SLING_STILE_LENGTH\"")))

(define-frame C-10
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON car)
  (CONSTRAINT.EXPRESSION
    '(and (>= (car_supplement_weight ?x) 0) (=< (car_supplement_weight ?x) 500))))
 :issues ((:formerly-named supplementwt_of_car_values)
          (:source
           "The Yost document, under \"C-\"")))

(define-frame PLATFORM_WEIGHT_FACTOR_S_C01
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(member (platform_weight_factor_s ?x) (setof 63 71))))
 :issues ((:formerly-named s_of_elevator_values)
          (:source
           "The Yost document, under \"PLATFORM_WEIGHT_FACTOR_S\"")))

(define-frame HOISTWAY_TOP_LANDING_TO_UNDERSIDE_MACHINE_BEAM_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (hoistway_top_landing_to_underside_machine_beam ?x)
      (- (hoistway_overhead ?x)
       (machine_beam_support_bottom_to_machine_room_top ?x)))))
 :issues ((:formerly-named toplandtobeam_calc)
          (:source
           "The Yost document, under \"HOISTWAY_TOP_LANDING_TO_UNDERSIDE_MACHINE_BEAM\"")))

(define-frame MACHINE_BEAM_IMPACT_LOAD_TOTAL_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (machine_beam_impact_load_total ?x)
      (+ (machine_total_weight ?x)
       (+ (deflector_sheave_weight (elevator.deflectorsheave ?x))
        (* 2 (machine_suspended_load ?x)))))))
 :issues ((:formerly-named totalimpactload_calc)
          (:source
           "The Yost document, under \"MACHINE_BEAM_IMPACT_LOAD_TOTAL\"")))

(define-frame MACHINE_BEAM_TOTAL_LOAD_LEFT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (machine_beam_total_load_left ?x)
      (+ (machine_beam_weight ?x) (machine_beam_impact_load_left ?x)))))
 :issues ((:formerly-named totalload_leftbeam_calc)
          (:source
           "The Yost document, under \"MACHINE_BEAM_TOTAL_LOAD_LEFT\"")))

(define-frame MACHINE_BEAM_TOTAL_LOAD_RIGHT_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (machine_beam_total_load_right ?x)
      (+ (machine_beam_weight ?x) (machine_beam_impact_load_right ?x)))))
 :issues ((:formerly-named totalload_rightbeam_calc)
          (:source
           "The Yost document, under \"MACHINE_BEAM_TOTAL_LOAD_RIGHT\"")))

(define-frame C-49
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(and (>= (sling_underbeam_space ?x) 12.0)
      (=< (sling_underbeam_space ?x) 1000.0))))
 :issues ((:formerly-named ub_space_of_elevator_values)
          (:source
           "The Yost document, under \"C-49\"")))

(define-frame CABLE_LOAD_UNBALANCED_C
 :own-slots (
  (INSTANCE-OF constraint)
  (CONSTRAINT-ON elevator)
  (CONSTRAINT.EXPRESSION
    '(= (cable_load_unbalanced ?x)
        (* (hoistway_travel ?x)
           (- (* (hoist_cable_quantity_f (elevator.hoistcable ?x))
                 (hoist_cable_unit_weight (elevator.hoistcable ?x)))
              (+ (* (compensation_cable_quantity_c02 
                     (elevator.compensationcable ?x))
                    (compensation_cable_unit_weight 
                     (elevator.compensationcable ?x)))
                 (* 0.25 (control_cable_unit_weight 
                          (elevator.controlcable ?x)))))))))
 :issues ((:formerly-named unbalanced_cable_load_calc)
          (:source
           "The Yost document, under \"CABLE_LOAD_UNBALANCED\"")
	  (:modification-by "Guus Schreiber:
;;  BUG: errors in formula (Sec. 5.14)
;;  CHANGED TO:    T(WQhoist - WQcomp - 0.25Wcont)")))

(define-frame COUNTERWEIGHT_FRAME_A
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    counterweight_between_guiderails_m elevator))
 :issues ((:formerly-named a)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_FRAME_A\"")
	  "Guus Schreiber points out that this parameter is not used in any constraint."))

(define-frame MACHINE_ANGLE_OF_CONTACT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-48_1 c-48_2 hoist_cable_traction_factor_c machine_angle_of_contact_c))
 :issues ((:formerly-named angleofcontact)
          (:source
           "The Yost document, under \"MACHINE_ANGLE_OF_CONTACT\"")))

(define-frame PLATFORM_WEIGHT_FACTOR_AP
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    platform_weight_c01 platform_weight_c02 platform_weight_c03 platform_weight_factor_ap_c01 platform_weight_factor_ap_c02 platform_weight_factor_ap_c03 platform_weight_factor_ap_c04 platform_weight_factor_ap_c05 platform_weight_factor_ap_c06 platform_weight_factor_ap_c07 platform_weight_factor_ap_c08 platform_weight_factor_ap_c09 platform_weight_factor_ap_c10 platform_weight_factor_ap_c11))
 :issues ((:formerly-named ap)
          (:source
           "The Yost document, under \"PLATFORM_WEIGHT_FACTOR_AP\"")))

(define-frame CONTROL_CABLE_LOAD_AVERAGE
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    control_cable_load_average_c counterweight_weight_desired_c))
 :issues ((:formerly-named avctrlcableload)
          (:source
           "The Yost document, under \"CONTROL_CABLE_LOAD_AVERAGE\"")))

(define-frame COUNTERWEIGHT_FRAME_B
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    counterweight_between_guiderails_m elevator))
 :issues ((:formerly-named b)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_FRAME_B\"")
	  "Guus Schreiber points out that this parameter is not used in any constraint."))

(define-frame MACHINE_BEAM_REACTION_FRONT_LEFT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    machine_beam_bending_moment_left_maximum_c01 machine_beam_bending_moment_left_maximum_c02 machine_beam_load_front_left_c machine_beam_reaction_front_left_c))
 :issues ((:formerly-named beamreaction_frontleft)
          (:source
           "The Yost document, under \"MACHINE_BEAM_REACTION_FRONT_LEFT\"")))

(define-frame MACHINE_BEAM_REACTION_FRONT_RIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    machine_beam_bending_moment_right_maximum_c01 machine_beam_bending_moment_right_maximum_c02 machine_beam_load_front_right_c machine_beam_reaction_front_right_c))
 :issues ((:formerly-named beamreaction_frontright)
          (:source
           "The Yost document, under \"MACHINE_BEAM_REACTION_FRONT_RIGHT\"")))

(define-frame MACHINE_BEAM_REACTION_REAR_LEFT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    machine_beam_load_rear_left_c machine_beam_reaction_front_left_c machine_beam_reaction_rear_left_c))
 :issues ((:formerly-named beamreaction_rearleft)
          (:source
           "The Yost document, under \"MACHINE_BEAM_REACTION_REAR_LEFT\"")))

(define-frame MACHINE_BEAM_REACTION_REAR_RIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    machine_beam_load_rear_right_c machine_beam_reaction_front_right_c machine_beam_reaction_rear_right_c))
 :issues ((:formerly-named beamreaction_rearright)
          (:source
           "The Yost document, under \"MACHINE_BEAM_REACTION_REAR_RIGHT\"")))

(define-frame OPENING_WIDTH_BUILDING
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    car_return_left_c03 car_return_left_c04 car_return_left_c06 car_return_left_c07 car_return_left_c09 car_return_right_c opening_width_c))
 :issues ((:formerly-named bldgwallopenwidth)
          (:source
           "The Yost document, under \"OPENING_WIDTH\"")))

(define-frame CAR_CAB_HEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-2 c-35 sling_underbeam_c))
 :issues ((:formerly-named cabheight)
          (:source
           "The Yost document, under \"CAR_CAB_HEIGHT\"")))

(define-frame CAR_INTERCOM_SPEC
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    car_intercom_c01 car_intercom_c02 car_intercom_c03))
 :issues ((:formerly-named cabintercomspec)
          (:source
           "The Yost document, under \"CAR_INTERCOM\"")))

(define-frame CAR_LANTERN_SPEC
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    car_lantern_c01 car_lantern_c02 car_lantern_c03))
 :issues ((:formerly-named cablanternspec)
          (:source
           "The Yost document, under \"CAR_LANTERN\"")))

(define-frame CAR_CABLE_HANGER_WEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    car car1)
  (USED-IN-CONSTRAINT car_misc_weight_c))
 :issues ((:formerly-named cablehangwt)
          (:source
           "The Yost document, under \"CAR_CABLE_HANGER_HEIGHT\"")))

(define-frame CAR_CAB_WEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    car_cab_weight_c car_weight_c))
 :issues ((:formerly-named cabwt)
          (:source
           "The Yost document, under \"CAR_CAB_WEIGHT\"")))

(define-frame CABLE_LOAD_CAR_SIDE_CAR_BOTTOM
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    cable_load_total_car_side_car_bottom cable_load_total_car_side_maximum_c01 cable_load_total_car_side_maximum_c02 hoist_cable_traction_ratio_car_bottom_empty_c hoist_cable_traction_ratio_car_bottom_full_c))
 :issues ((:formerly-named carbottomload)
          (:source
           "The Yost document, under \"CABLE_LOAD_CAR_SIDE_CAR_BOTTOM\"")))

(define-frame CAR_BUFFER_BLOCKING_HEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    car_buffer_blocking_height_c car_runby_c carbuffer_cst7 carbufferblockh_of_elevator_values))
 :issues ((:formerly-named carbufferblockh)
          (:source
           "The Yost document, under \"CAR_BUFFER_BLOCKING_HEIGHT\"")))

(define-frame CAR_BUFFER_LOAD
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-4_1 c-4_2))
 :issues ((:formerly-named carbufferload)
          (:source
           "The Yost document, under \"CAR_BUFFER_LOAD\"")))

(define-frame CAR_BUFFER_HEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    car_buffer_model car_buffer_model_oh1 car_buffer_model_om14)
  (USED-IN-CONSTRAINT
    car_buffer_blocking_height_c car_runby_c carbuffer_cst7))
 :issues ((:formerly-named carbuffheight)
          (:source
           "The Yost document, under \"CAR_BUFFER_HEIGHT\"")))

(define-frame CAR_BUFFER_LOAD_MAXIMUM
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    car_buffer_model car_buffer_model_oh1 car_buffer_model_om14)
  (USED-IN-CONSTRAINT c-4_2))
 :issues ((:formerly-named carbuffmaxload)
          (:source
           "The Yost document, under \"CAR_BUFFER_LOAD_MAXIMUM\"")))

(define-frame CAR_BUFFER_LOAD_MINIMUM
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    car_buffer_model car_buffer_model_oh1 car_buffer_model_om14)
  (USED-IN-CONSTRAINT c-4_2))
 :issues ((:formerly-named carbuffminload)
          (:source
           "The Yost document, under \"CAR_BUFFER_LOAD_MINIMUM\"")))

(define-frame CAR_CAPACITY
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    elevator platform_model)
  (USED-IN-CONSTRAINT
    car_capacity_c car_guiderail_vertical_force_c counterweight_weight_desired_c platform_model_c01 platform_model_c02 platform_model_c03 platform_weight_factor_s_c02 platform_weight_factor_s_c03 safety_beam_load_c))
 :issues ((:formerly-named carcapacity)
          (:source
           "The Yost document, under \"CAR_CAPACITY\"")))

(define-frame CAR_DUCT_AND_WIRING_WEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    car car1)
  (USED-IN-CONSTRAINT car_misc_weight_c))
 :issues ((:formerly-named carcondwirwt)
          (:source
           "The Yost document, under \"CAR_DUCT_AND_WIRING_WEIGHT\"")))

(define-frame CAR_FIXTURE_WEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    car_fixture_weight_c car_weight_c))
 :issues ((:formerly-named carfixwt)
          (:source
           "The Yost document, under \"CAR_FIXTURE_WEIGHT\"")))

(define-frame CAR_BUFFER_FOOTING_CHANNEL_HEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF car_buffer_model)
  (USED-IN-CONSTRAINT
    car_buffer_blocking_height_c car_runby_c carbuffer_cst7))
 :issues ((:formerly-named carfooth)
          (:source
           "The Yost document, under \"CAR_BUFFER_FOOTING_CHANNEL_HEIGHT\"")))

(define-frame CAR_GUIDESHOE_WEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    car car1)
  (USED-IN-CONSTRAINT car_misc_weight_c))
 :issues ((:formerly-named carguideshoewt)
          (:source
           "The Yost document, under \"CAR_GUIDESHOE_WEIGHT\"")))

(define-frame CAR_CABLE_HITCH_TO_COUNTERWEIGHT_CABLE_HITCH
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    car_cable_hitch_to_counterweight_cable_hitch_c machine_sheave_to_deflector_sheave_horizontal_c))
 :issues ((:formerly-named carhitch_to_counterhitch_distance)
          (:source
           "The Yost document, under \"CAR_CABLE_HITCH_TO_COUNTERWEIGHT_CABLE_HITCH\"")))

(define-frame CAR_OVERTRAVEL
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-6 car_cst5))
 :issues ((:formerly-named carovertravel)
          (:source
           "The Yost document, under \"CAR_OVERTRAVEL\"")))

(define-frame CAR_PHONE_SPEC
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    car_phone_c01 car_phone_c02 car_phone_c03))
 :issues ((:formerly-named carphonespec)
          (:source
           "The Yost document, under \"CAR_PHONE\"")))

(define-frame CAR_POSITION_INDICATOR_SPEC
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    car_position_indicator_c01 car_position_indicator_c02 car_position_indicator_c03))
 :issues ((:formerly-named carpositionindicatorspec)
          (:source
           "The Yost document, under \"CAR_POSITION_INDICATOR\"")))

(define-frame CAR_RETURN_LEFT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    car_return_left_c01 car_return_left_c02 car_return_left_c03 car_return_left_c04 car_return_left_c05 car_return_left_c06 car_return_left_c07 car_return_left_c08 car_return_left_c09 car_return_right_c platform_to_hoistway_left_c))
 :issues ((:formerly-named carreturnleft)
          (:source
           "The Yost document, under \"CAR_RETURN_LEFT\"")))

(define-frame CAR_RETURN_RIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-8 car_return_right_c platform_to_hoistway_right_c))
 :issues ((:formerly-named carreturnright)
          (:source
           "The Yost document, under \"CAR_RETURN_RIGHT\"")))

(define-frame CAR_RUNBY
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-19 c-9 car_runby_c))
 :issues ((:formerly-named carrunby)
          (:source
           "The Yost document, under \"CAR_RUNBY\"")))

(define-frame CARSLINGUB
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator))
 :issues ("Guus Schreiber points out that this parameter is not used in any constraint."))

(define-frame CAR_BUFFER_STROKE
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    car_buffer_model car_buffer_model_oh1 car_buffer_model_om14)
  (USED-IN-CONSTRAINT
    c-19 car_buffer_stroke_c carbuffer_cst7 control_cable_loop_below_car_bottom_c))
 :issues ((:formerly-named carstroke)
          (:source
           "The Yost document, under \"CAR_BUFFER_STROKE\"")))

(define-frame CABLE_LOAD_CAR_SIDE_CAR_TOP
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-29_2 cable_load_total_car_side_car_top cable_load_total_car_side_maximum_c01 cable_load_total_car_side_maximum_c02 hoist_cable_traction_ratio_car_top_empty_c hoist_cable_traction_ratio_car_top_full_c machine_groove_pressure_c machine_suspended_load_c))
 :issues ((:formerly-named cartopload)
          (:source
           "The Yost document, under \"CABLE_LOAD_CAR_SIDE_CAR_TOP\"")))

(define-frame CAR_WEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-4_1 cable_load_total_car_side_car_bottom cable_load_total_car_side_car_top car_guiderail_vertical_force_c car_weight_c counterweight_weight_desired_c safety_beam_load_c))
 :issues ((:formerly-named carwt)
          (:source
           "The Yost document, under \"CAR_WEIGHT\"")))

(define-frame CABLE_LOAD_COUNTERWEIGHT_SIDE_CAR_BOTTOM
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    cable_load_total_counterweight_side_car_c1 hoist_cable_traction_ratio_car_bottom_empty_c hoist_cable_traction_ratio_car_bottom_full_c))
 :issues ((:formerly-named cntrwtbottomload)
          (:source
           "The Yost document, under \"CABLE_LOAD_COUNTERWEIGHT_SIDE_CAR_BOTTOM\"")))

(define-frame CABLE_LOAD_COUNTERWEIGHT_SIDE_CAR_TOP
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    cable_load_total_counterweight_side_car_c2 hoist_cable_traction_ratio_car_top_empty_c hoist_cable_traction_ratio_car_top_full_c machine_suspended_load_c))
 :issues ((:formerly-named cntrwttopload)
          (:source
           "The Yost document, under \"CABLE_LOAD_COUNTERWEIGHT_SIDE_CAR_TOP\"")))

(define-frame COMPENSATION_CABLE_LENGTH
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    compensation_cable_length_c01 compensation_cable_length_c02))
 :issues ((:formerly-named compcablel)
          (:source
           "The Yost document, under \"COMPENSATION_CABLE_LENGTH\"")))

(define-frame COMPENSATION_CABLE_UNIT_WEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    compensation_cable_model compensation_cable_model_m06)
  (USED-IN-CONSTRAINT
    cable_load_unbalanced_c compensation_cable_load_car_top compensation_cable_load_counterweight_side_car_bottom_c compensation_cable_load_counterweight_side_car_top_c))
 :issues ((:formerly-named compcablewtperinch)
          (:source
           "The Yost document, under \"COMPENSATION_CABLE_UNIT_WEIGHT\"")))

(define-frame COMPENSATION_CABLE_LOAD_CAR_SIDE_CAR_BOTTOM
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    cable_load_total_car_side_car_bottom compensation_cable_load_side_car_bottom))
 :issues ((:formerly-named compcarbottomload)
          (:source
           "The Yost document, under \"COMPENSATION_CABLE_LOAD_CAR_SIDE_CAR_BOTTOM\"")))

(define-frame COMPENSATION_CABLE_LOAD_CAR_SIDE_CAR_TOP
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-11 cable_load_total_car_side_car_top car_guiderail_vertical_force_c compensation_cable_load_car_top safety_beam_load_c))
 :issues ((:formerly-named compcartopload)
          (:source
           "The Yost document, under \"COMPENSATION_CABLE_LOAD_CAR_SIDE_CAR_TOP\"")))

(define-frame COMPENSATION_CABLE_LOAD_COUNTERWEIGHT_SIDE_CAR_BOTTOM
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    cable_load_total_counterweight_side_car_c1 compensation_cable_load_counterweight_side_car_bottom_c))
 :issues ((:formerly-named compcntrwtbottomload)
          (:source
           "The Yost document, under \"COMPENSATION_CABLE_LOAD_COUNTERWEIGHT_SIDE_CAR_BOTTOM\"")))

(define-frame COMPENSATION_CABLE_LOAD_COUNTERWEIGHT_SIDE_CAR_TOP
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    cable_load_total_counterweight_side_car_c2 compensation_cable_load_counterweight_side_car_top_c))
 :issues ((:formerly-named compcntrwttopload)
          (:source
           "The Yost document, under \"COMPENSATION_CABLE_LOAD_COUNTERWEIGHT_SIDE_CAR_TOP\"")))

(define-frame CAR_BUFFER_COMPRESSED_CLEARANCE
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-13 carbuffer_cst7))
 :issues ((:formerly-named compressedcarbuffclearance)
          (:source
           "The Yost document, under \"CAR_BUFFER_COMPRESSED_CLEARANCE\"")))

(define-frame CONTROL_CABLE_LOAD_CAR_SIDE_CAR_BOTTOM
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    cable_load_total_car_side_car_bottom control_cable_load_average_c control_cable_load_car_side_car_bottom_c))
 :issues ((:formerly-named contcarbottomload)
          (:source
           "The Yost document, under \"CONTROL_CABLE_LOAD_CAR_SIDE_CAR_BOTTOM\"")))

(define-frame CONTROL_CABLE_LOAD_CAR_SIDE_CAR_TOP
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    cable_load_total_car_side_car_top car_guiderail_vertical_force_c control_cable_load_average_c control_cable_load_car_side_car_top_c safety_beam_load_c))
 :issues ((:formerly-named contcartopload)
          (:source
           "The Yost document, under \"CONTROL_CABLE_LOAD_CAR_SIDE_CAR_TOP\"")))

(define-frame CONTROL_CABLE_LOOP_BELOW_CAR_BOTTOM
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    control_cable_load_car_side_car_bottom_c control_cable_load_car_side_car_top_c control_cable_loop_below_car_bottom_c))
 :issues ((:formerly-named controlcableloopbelowcarl)
          (:source
           "The Yost document, under \"CONTROL_CABLE_LOOP_BELOW_CAR_BOTTOM\"")))

(define-frame CONTROL_CABLE_UNIT_WEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    control_cable_model control_cable_model_m01 control_cable_model_m02 control_cable_model_m03)
  (USED-IN-CONSTRAINT
    cable_load_unbalanced_c compensation_cable_unit_weight_optimal_c control_cable_load_car_side_car_bottom_c control_cable_load_car_side_car_top_c))
 :issues ((:formerly-named controlcablewtperinch)
          (:source
           "The Yost document, under \"CONTROL_CABLE_UNIT_WEIGHT\"")))

(define-frame COUNTERWEIGHT_WEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    counterweight_between_guiderails_m elevator)
  (USED-IN-CONSTRAINT
    c-25 cable_load_total_counterweight_side_car_c1 cable_load_total_counterweight_side_car_c2 counterweight_buffer_load_c counterweight_guiderail_unit_weight_c counterweight_weight_c))
 :issues ((:formerly-named totalweight)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_WEIGHT\"")))

(define-frame COUNTERWEIGHT_BOTTOM_REFERENCE
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    counterweight_bottom_reference_c counterweight_runby_c))
 :issues ((:formerly-named counterwtbottomref)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_BOTTOM_REFERENCE\"")))

(define-frame COUNTERWEIGHT_BUFFER_BLOCKING_HEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-15 counterweight_above_top_car_bottom_c counterweight_bottom_reference_c counterweight_overtravel_c counterweight_runby_c))
 :issues ((:formerly-named counterwtbuffblockh)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_BUFFER_BLOCKING_HEIGHT\"")))

(define-frame COUNTERWEIGHT_BUFFER_HEIGHT_ON_ELEVATOR
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
;;  (PARAMETER-SLOT-OF elevator)
;  (USED-IN-CONSTRAINT
;    counterweight_above_top_car_bottom_c counterweight_bottom_reference_c counterweight_overtravel_c counterweight_runby_c)
  )
 :issues ((:formerly-named counterwtbuffh)
	  (:formerly-named COUNTERWEIGHT_BUFFER_HEIGHT)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_BUFFER_HEIGHT\"")
	  "I renamed this -- it should be unused now."
	  (:modification-by "Guus Schreiber:
;;  BUG: wrong parameter used
;;  In the following constraints the parameter
;;  counterweight_buuffer_height (defined on elevator) 
;;  is used instead of 
;;  counterweight_buuffer_height_c (defined on counterweight_buuffer_model)
;;          counterweight_above_top_car_bottom_c 
;;          counterweight_bottom_reference_c 
;;          counterweight_overtravel_c 
;;          counterweight_runby_c))
;;  This leads to errors as all values are defined on the latter parameter
;;  The parameter counterweight_buffer_height definedon elevator should
;;  probably be removed")

	  ))

(define-frame COUNTERWEIGHT_BUFFER_HEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    counterweight_buffer_model counterweight_buffer_model_m01 counterweight_buffer_model_m02))
 :issues ((:formerly-named counterwtbuffheight COUNTERWEIGHT_BUFFER_HEIGHT_C)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_BUFFER_HEIGHT\"")
	  (:modification-by "Guus Schreiber:
;;  BUG: wrong parameter used
;;  In the following constraints the parameter
;;  counterweight_buuffer_height (defined on elevator) 
;;  is used instead of 
;;  counterweight_buuffer_height_c (defined on counterweight_buuffer_model)
;;          counterweight_above_top_car_bottom_c 
;;          counterweight_bottom_reference_c 
;;          counterweight_overtravel_c 
;;          counterweight_runby_c))
;;  This leads to errors as all values are defined on the latter parameter
;;  The parameter counterweight_buffer_height definedon elevator should
;;  probably be removed")))

(define-frame COUNTERWEIGHT_BUFFER_LOAD
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-16 counterweight_buffer_load_c))
 :issues ((:formerly-named counterwtbuffload)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_BUFFER_LOAD\"")))

(define-frame COUNTERWEIGHT_BUFFER_LOAD_MAXIMUM
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    counterweight_buffer_model counterweight_buffer_model_m01 counterweight_buffer_model_m02)
  (USED-IN-CONSTRAINT c-16))
 :issues ((:formerly-named counterwtbuffmaxload)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_BUFFER_LOAD_MAXIMUM\"")))

(define-frame COUNTERWEIGHT_BUFFER_LOAD_MINIMUM
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    counterweight_buffer_model counterweight_buffer_model_m01 counterweight_buffer_model_m02)
  (USED-IN-CONSTRAINT c-16))
 :issues ((:formerly-named counterwtbuffminload)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_BUFFER_LOAD_MINIMUM\"")))

(define-frame COUNTERWEIGHT_BUFFER_STROKE
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF counterweight_buffer_model)
  (USED-IN-CONSTRAINT c-6))
 :issues ((:formerly-named counterwtbuffstroke)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_BUFFER_STROKE\"")))

(define-frame COUNTERWEIGHT_BUFFER_FOOTING_CHANNEL_HEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    counterweight_above_top_car_bottom_c counterweight_bottom_reference_c counterweight_overtravel_c counterweight_runby_c))
 :issues ((:formerly-named counterwtfooth)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_BUFFER_FOOTING_CHANNEL_HEIGHT\"")))

(define-frame COUNTERWEIGHT_FRAME_HEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-18 c-22 counterweight_overtravel_c))
 :issues ((:formerly-named counterwtframeh)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_FRAME_HEIGHT\"")))

(define-frame COUNTERWEIGHT_GUARD_THICKNESS
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    counterweight_guard_required counterweight_guard_thickness_m01 counterweight_guard_thickness_m02)
  (USED-IN-CONSTRAINT c-24_2))
 :issues ((:formerly-named counterwtguardthick)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_GUARD_THICKNESS\"")))

(define-frame COUNTERWEIGHT_OVERTRAVEL
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-19 counterweight_overtravel_c hoist_cable_above_counterweight_car_bottom_c))
 :issues ((:formerly-named counterwtovertravel)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_OVERTRAVEL\"")))

(define-frame COUNTERWEIGHT_PLATE_WEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    counterweight_plate_quantity_c02 counterweight_plate_weight_c counterweight_stack_weight_c))
 :issues ((:formerly-named counterwtplatewt)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_PLATE_WEIGHT\"")))

(define-frame COUNTERWTPLATFORMWT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator))
 :issues ("Guus Schreiber points out that this parameter is not used in any constraint."))

(define-frame COUNTERWEIGHT_GUIDERAIL_UNIT_WEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF counterweight_guiderail_model))
 :issues ((:formerly-named counterwtrailunitwt)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_GUIDERAIL_UNIT_WEIGHT\"")))

(define-frame COUNTERWEIGHT_RUNBY
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-21 c-6 counterweight_above_top_car_bottom_c counterweight_overtravel_c counterweight_runby_c))
 :issues ((:formerly-named counterwtrunby)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_RUNBY\"")))

(define-frame COUNTERWEIGHT_STACK_WEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    counterweight_stack_weight_c counterweight_weight_c))
 :issues ((:formerly-named counterwtstackwt)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_STACK_HEIGHT\"")))

(define-frame COUNTERWEIGHT_SYSTEM_WEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    counterweight_stack_weight_desired_c counterweight_system_weight_c counterweight_weight_c))
 :issues ((:formerly-named counterwtsyswt)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_SYSTEM_WEIGHT\"")))

(define-frame CROSSHEAD_BENDING_MOMENT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-26 crosshead_bending_moment_c))
 :issues ((:formerly-named crossheadbendmoment)
          (:source
           "The Yost document, under \"CROSSHEAD_BENDING_MOMENT\"")))

(define-frame CROSSHEAD_DEFLECTION_INDEX
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-27 crosshead_deflection_index_c))
 :issues ((:formerly-named crossheaddeflindex)
          (:source
           "The Yost document, under \"CROSSHEAD_DEFLECTION_INDEX\"")))

(define-frame COUNTERWEIGHT_BETWEEN_GUIDERAILS_VALUE
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-14 counterweight_between_guiderails_possible_values counterweight_plate_weight_c onebuffer_whenless38))
 :issues ((:formerly-named cwt_bg)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_BETWEEN_GUIDERAILS\"")))

(define-frame COUNTERWEIGHT_SPACE
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    counterweight_space_c counterweight_to_hoistway_rear_c counterweight_to_platform_rear_c))
 :issues ((:formerly-named cwt_space)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_SPACE\"")))

(define-frame COUNTERWEIGHT_TO_HOISTWAY_REAR
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-23 counterweight_to_hoistway_rear_c))
 :issues ((:formerly-named cwt_to_hoistway_rear)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_TO_HOISTWAY_REAR\"")))

(define-frame COUNTERWEIGHT_TO_PLATFORM_REAR
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-24_1 c-24_2 car_cable_hitch_to_counterweight_cable_hitch_c counterweight_to_hoistway_rear_c counterweight_to_platform_rear_c))
 :issues ((:formerly-named cwt_to_platform_rear)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_TO_PLATFORM_REAR\"")))

(define-frame COUNTERWEIGHT_U_BRACKET_PROTRUSION
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-23 counterweight_to_platform_rear_c))
 :issues ((:formerly-named cwt_ubracket_protrusion)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_U_BRACKET_PROTRUSION\"")))

(define-frame DEFLECTOR_SHEAVE_DIAMETER
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    deflector_sheave_diameter_c machine_angle_of_contact_c machine_sheave_to_deflector_sheave_c machine_sheave_to_deflector_sheave_horizontal_c))
 :issues ((:formerly-named deflectorsheavediameter)
          (:source
           "The Yost document, under \"DEFLECTOR_SHEAVE_DIAMETER\"")))

(define-frame DEFLECTOR_SHEAVE_DIAMETER_S
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF deflector_sheave_model)
  (USED-IN-CONSTRAINT
    deflector_sheave_diameter_c deflector_sheave_diameter_minimum))
 :issues ((:formerly-named deflsheaved)
          (:source
           "The Yost document, under \"DEFLECTOR_SHEAVE_DIAMETER\"")))

(define-frame DEFLECTOR_SHEAVE_PROTRUSION
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    deflector_sheave_model deflector_sheave_model_m01 deflector_sheave_model_m02 elevator)
  (USED-IN-CONSTRAINT
    counterweight_overtravel_c deflector_sheave_protrusion_c hoist_cable_above_counterweight_car_bottom_c machine_sheave_to_deflector_sheave_c))
 :issues ((:formerly-named deflsheavep)
          (:source
           "The Yost document, under \"DEFLECTOR_SHEAVE_PROTRUSION\"")))

(define-frame DEFLECTOR_SHEAVE_WEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    deflector_sheave_model deflector_sheave_model_m01 deflector_sheave_model_m02)
  (USED-IN-CONSTRAINT machine_beam_impact_load_total_c))
 :issues ((:formerly-named deflsheavewt)
          (:source
           "The Yost document, under \"DEFLECTOR_SHEAVE_WEIGHT\"")))

(define-frame COUNTERWEIGHT_STACK_WEIGHT_DESIRED
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    counterweight_plate_quantity_c02 counterweight_stack_weight_desired_c))
 :issues ((:formerly-named desircounterstackwt)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_STACK_WEIGHT_DESIRED\"")))

(define-frame COUNTERWEIGHT_WEIGHT_DESIRED
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    counterweight_stack_weight_desired_c counterweight_weight_desired_c))
 :issues ((:formerly-named desircounterwt)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_WEIGHT_DESIRED\"")))

(define-frame HOIST_CABLE_DIAMETER
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    hoist_cable_model hoist_cable_model_m01 hoist_cable_model_m02 hoist_cable_model_m03 hoist_cable_model_m04 hoist_cable_model_m05 hoist_cable_model_m06 hoist_cable_model_m07 hoist_cable_model_m08)
  (USED-IN-CONSTRAINT
    deflector_sheave_diameter_minimum machine_groove_pressure_acceptable_maximum_c))
 :issues ((:formerly-named diameter)
          (:source
           "The Yost document, under \"HOIST_CABLE_DIAMETER\"")))

(define-frame DOOR_OPENING_TYPE
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-36_2 c-36_3 car_return_left_c01 car_return_left_c02 car_return_left_c03 door_opening_type_c))
 :issues ((:formerly-named dooropeningtype)
          (:source
           "The Yost document, under \"DOOR_OPENING_TYPE\"")))

(define-frame OPENING_WIDTH_DOOR
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-36_1 c-36_2 c-36_3 car_return_left_c01 door_operator_header_weight_c opening_to_hoistway_right_c opening_width_c platform_weight_c02 platform_weight_c03))
 :issues ((:formerly-named dooropenwidth)
          (:source
           "The Yost document, under \"OPENING_WIDTH\"")))

(define-frame DOOR_OPERATOR_CONSTANT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    door_model door_model_code_m01 door_model_code_m02 door_model_code_m03 door_model_code_m04 door_model_code_m05 door_model_code_m06)
  (USED-IN-CONSTRAINT door_operator_header_weight_c))
 :issues ((:formerly-named dooroperconstant)
          (:source
           "The Yost document, under \"DOOR_OPERATOR_CONSTANT\"")))

(define-frame DOOR_OPERATOR_ENGINE_WEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    door_model door_model_code_m01 door_model_code_m02 door_model_code_m03 door_model_code_m04 door_model_code_m05 door_model_code_m06)
  (USED-IN-CONSTRAINT door_operator_weight_c))
 :issues ((:formerly-named dooroperenginewt)
          (:source
           "The Yost document, under \"DOOR_OPERATOR_ENGINE_WEIGHT\"")))

(define-frame DOOR_OPERATOR_HEADER_WEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    door_model elevator)
  (USED-IN-CONSTRAINT
    door_operator_header_weight_c door_operator_weight_c))
 :issues ((:formerly-named dooroperheaderwt)
          (:source
           "The Yost document, under \"DOOR_OPERATOR_HEADER_WEIGHT\"")))

(define-frame DOOR_OPERATOR_WEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    car_misc_weight_c door_operator_weight_c))
 :issues ((:formerly-named dooroperwt)
          (:source
           "The Yost document, under \"DOOR_OPERATOR_WEIGHT\"")))

(define-frame DOOR_SPACE
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    door_model elevator)
  (USED-IN-CONSTRAINT
    door_space_c01 door_space_c02 platform_to_hoistway_front_c))
 :issues ((:formerly-named doorspace)
          (:source
           "The Yost document, under \"DOOR_SPACE\"")))

(define-frame DOOR_SPEED_CODE
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    door_model elevator)
  (USED-IN-CONSTRAINT
    door_space_c01 door_space_c02 door_speed_c01 door_speed_code_c02 door_speed_code_c03 door_speed_code_c04 platform_weight_factor_x_c01 platform_weight_factor_x_c02 platform_weight_factor_x_c03 platform_weight_factor_x_c04 platform_weight_factor_x_c05 platform_weight_factor_z_c01 platform_weight_factor_z_c02 platform_weight_factor_z_c03))
 :issues ((:formerly-named doorspeed)
          (:source
           "The Yost document, under \"DOOR_SPEED_CODE\"")))

(define-frame DOOR_SPEED
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    door_speed_c door_speed_code_c02 door_speed_code_c03))
 :issues ((:formerly-named doorspeedspec)
          (:source
           "The Yost document, under \"DOOR_SPEED\"")))

(define-frame MACHINE_EFFICIENCY
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    elevator machine_model)
  (USED-IN-CONSTRAINT
    machine_efficiency_c01 machine_efficiency_c02 machine_efficiency_c03 machine_efficiency_c04 machine_efficiency_c05 machine_efficiency_c06 machine_efficiency_c07 machine_efficiency_c08 machine_efficiency_c09 machine_efficiency_c10 machine_efficiency_c11 machine_efficiency_c12 machine_efficiency_c13 machine_efficiency_c14 machine_efficiency_c15 machine_efficiency_c16 machine_efficiency_c17 machine_efficiency_c18 machine_efficiency_c19 machine_efficiency_c20 machine_efficiency_c21 motor_horsepower_required_c01))
 :issues ((:formerly-named efficiency)
          (:source
           "The Yost document, under \"MACHINE_EFFICIENCY\"")))

(define-frame CAR_SPEED
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    car_buffer_striking_speed_maximum_c car_speed_c hoist_cable_safety_factor_c01 hoist_cable_safety_factor_c02 hoist_cable_safety_factor_c03 hoist_cable_safety_factor_c04 hoist_cable_safety_factor_c05 machine_efficiency_c02 machine_efficiency_c03 machine_efficiency_c04 machine_efficiency_c05 machine_efficiency_c06 machine_efficiency_c07 machine_efficiency_c08 machine_efficiency_c09 machine_efficiency_c10 machine_efficiency_c11 machine_efficiency_c12 machine_efficiency_c13 machine_efficiency_c14 machine_efficiency_c15 machine_efficiency_c16 machine_efficiency_c17 machine_efficiency_c18 machine_efficiency_c19 machine_efficiency_c20 machine_efficiency_c21 machine_gear_ratio_symbolic_c01 machine_gear_ratio_symbolic_c02 machine_gear_ratio_symbolic_c03 machine_gear_ratio_symbolic_c04 machine_gear_ratio_symbolic_c05 machine_gear_ratio_symbolic_c06 machine_gear_ratio_symbolic_c07 machine_gear_ratio_symbolic_c08 machine_gear_ratio_symbolic_c09 machine_gear_ratio_symbolic_c10 machine_gear_ratio_symbolic_c11 machine_gear_ratio_symbolic_c12 machine_gear_ratio_symbolic_c13 machine_gear_ratio_symbolic_c14 machine_gear_ratio_symbolic_c15 machine_gear_ratio_symbolic_c16 machine_gear_ratio_symbolic_c17 machine_gear_ratio_symbolic_c18 machine_gear_ratio_symbolic_c19 machine_gear_ratio_symbolic_c20 machine_groove_pressure_constant_c01 machine_groove_pressure_constant_c02 machine_groove_pressure_constant_c03 machine_groove_pressure_constant_c04 machine_groove_pressure_constant_c05 machine_groove_pressure_constant_c06 machine_groove_pressure_constant_c07 machine_groove_pressure_constant_c08 machine_groove_pressure_constant_c09 machine_groove_pressure_constant_c10 motor_horsepower_required_c01))
 :issues ((:formerly-named elevatorspeed)
          (:source
           "The Yost document, under \"CAR_SPEED\"")))

(define-frame HOISTWAY_FLOOR_HEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT hoistway_bracket_spacing_c))
 :issues ((:formerly-named floorheightspec)
          (:source
           "The Yost document, under \"HOISTWAY_FLOOR_HEIGHT\"")))

(define-frame COUNTERWEIGHT_FRAME_HEIGHT_S
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    counterweight_between_guiderails_m elevator))
 :issues ((:formerly-named frameheight)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_FRAME_HEIGHT\"")
	  "Guus Schreiber points out that this parameter is not used in any constraint."))

(define-frame COUNTERWEIGHT_FRAME_THICKNESS
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    counterweight_between_guiderails_m elevator)
  (USED-IN-CONSTRAINT c-22))
 :issues ((:formerly-named framethickness)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_FRAME_THICKNESS\"")))

(define-frame COUNTERWEIGHT_FRAME_WEIGHT_S
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    counterweight_between_guiderails_m elevator))
 :issues ((:formerly-named frameweight)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_FRAME_WEIGHT\"")))

(define-frame MACHINE_GEAR_RATIO_NUMERIC
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    elevator machine_model)
  (USED-IN-CONSTRAINT
    machine_gear_ratio_symbolic_c01 machine_gear_ratio_symbolic_c02 machine_gear_ratio_symbolic_c03 machine_gear_ratio_symbolic_c04 machine_gear_ratio_symbolic_c05 machine_gear_ratio_symbolic_c06 machine_gear_ratio_symbolic_c07 machine_gear_ratio_symbolic_c08 machine_gear_ratio_symbolic_c09 machine_gear_ratio_symbolic_c10 machine_gear_ratio_symbolic_c11 machine_gear_ratio_symbolic_c12 machine_gear_ratio_symbolic_c13 machine_gear_ratio_symbolic_c14 machine_gear_ratio_symbolic_c15 machine_gear_ratio_symbolic_c16 machine_gear_ratio_symbolic_c17 machine_gear_ratio_symbolic_c18 machine_gear_ratio_symbolic_c19 machine_gear_ratio_symbolic_c20 motor_torque_releveling_c))
 :issues ((:formerly-named gear_ratio)
          (:source
           "The Yost document, under \"MACHINE_GEAR_RATIO_NUMERIC\"")))

(define-frame GOVERNOR_CABLE_LENGTH
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT governor_cable_length_c))
 :issues ((:formerly-named govcablel)
          (:source
           "The Yost document, under \"GOVERNOR_CABLE_LENGTH\"")))

(define-frame GOVERNOR_CABLE_DIAMETER
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    governor_cable_model governor_cable_model_m01))
 :issues ((:formerly-named govcablet)
          (:source
           "The Yost document, under \"GOVERNOR_CABLE_DIAMETER\"")))

(define-frame HOISTWAY_BRACKET_SPACING
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    car_guiderail_vertical_force_maximum_c02 car_guiderail_vertical_force_maximum_c03 car_guiderail_vertical_force_maximum_c04 car_guiderail_vertical_force_maximum_c05 car_guiderail_vertical_force_maximum_c06 car_guiderail_vertical_force_maximum_c07 car_guiderail_vertical_force_maximum_c08 car_guiderail_vertical_force_maximum_c09 car_guiderail_vertical_force_maximum_c10 car_guiderail_vertical_force_maximum_c11 hoistway_bracket_spacing_c))
 :issues ((:formerly-named guiderail_bracket_spacing)
          (:source
           "The Yost document, under \"HOISTWAY_BRACKET_SPACING\"")))

(define-frame CROSSHEAD_HEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    crosshead_model crosshead_model_m01 crosshead_model_m02 crosshead_model_m03 crosshead_model_m04 crosshead_model_m05)
  (USED-IN-CONSTRAINT
    car_cst5 sling_stile_length_c))
 :issues ((:formerly-named height)
          (:source
           "The Yost document, under \"CROSSHEAD_HEIGHT\"")))

(define-frame MACHINE_GROOVE_PRESSURE_CONSTANT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    machine_groove_pressure_acceptable_maximum_c machine_groove_pressure_constant_c01 machine_groove_pressure_constant_c02 machine_groove_pressure_constant_c03 machine_groove_pressure_constant_c04 machine_groove_pressure_constant_c05 machine_groove_pressure_constant_c06 machine_groove_pressure_constant_c07 machine_groove_pressure_constant_c08 machine_groove_pressure_constant_c09 machine_groove_pressure_constant_c10))
 :issues ((:formerly-named hoistcablepressureconstant)
          (:source
           "The Yost document, under \"MACHINE_GROOVE_PRESSURE_CONSTANT\"")))

(define-frame HOIST_CABLE_SAFETY_FACTOR
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-29_1 c-29_2))
 :issues ((:formerly-named hoistcablesafetyfactor)
          (:source
           "The Yost document, under \"HOIST_CABLE_SAFETY_FACTOR\"")))

(define-frame HOIST_CABLE_LOAD_CAR_SIDE_CAR_BOTTOM
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    cable_load_total_car_side_car_bottom hoist_cable_load_car_side_car_bottom_c))
 :issues ((:formerly-named hoistcarbottomload)
          (:source
           "The Yost document, under \"HOIST_CABLE_LOAD_CAR_SIDE_CAR_BOTTOM\"")))

(define-frame HOIST_CABLE_LOAD_CAR_SIDE_CAR_TOP
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    cable_load_total_car_side_car_top hoist_cable_load_car_side_car_top_c))
 :issues ((:formerly-named hoistcartopload)
          (:source
           "The Yost document, under \"HOIST_CABLE_LOAD_CAR_SIDE_CAR_TOP\"")))

(define-frame HOIST_CABLE_LOAD_COUNTERWEIGHT_SIDE_CAR_BOTTOM
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    cable_load_total_counterweight_side_car_c1 hoist_cable_load_counterweight_side_car_bottom_c))
 :issues ((:formerly-named hoistcntrwtbottomload)
          (:source
           "The Yost document, under \"HOIST_CABLE_LOAD_COUNTERWEIGHT_SIDE_CAR_BOTTOM\"")))

(define-frame HOIST_CABLE_LOAD_COUNTERWEIGHT_SIDE_CAR_TOP
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    cable_load_total_counterweight_side_car_c2 hoist_cable_load_counterweight_side_car_top_c))
 :issues ((:formerly-named hoistcntrwttopload)
          (:source
           "The Yost document, under \"HOIST_CABLE_LOAD_COUNTERWEIGHT_SIDE_CAR_TOP\"")))

(define-frame HOIST_CABLE_ABOVE_COUNTERWEIGHT_CAR_BOTTOM
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    hoist_cable_above_counterweight_car_bottom_c hoist_cable_length_c hoist_cable_load_counterweight_side_car_bottom_c hoist_cable_load_counterweight_side_car_top_c))
 :issues ((:formerly-named hoistlabovecounterwt)
          (:source
           "The Yost document, under \"HOIST_CABLE_ABOVE_COUNTERWEIGHT_CAR_BOTTOM\"")))

(define-frame HOISTWAY_DEPTH
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT counterweight_space_c))
 :issues ((:formerly-named hoistwaydepth)
          (:source
           "The Yost document, under \"HOISTWAY_DEPTH\"")))

(define-frame MACHINE_BEAM_SUPPORT_FRONT_TO_HOISTWAY
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT machine_sheave_center_to_front_machine_beam_support_c))
 :issues ((:formerly-named hoistwaytofrontmbeam)
          (:source
           "The Yost document, under \"MACHINE_BEAM_SUPPORT_FRONT_TO_HOISTWAY\"")))

(define-frame HOISTWAY_WIDTH
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT opening_to_hoistway_right_c))
 :issues ((:formerly-named hoistwaywidth)
          (:source
           "The Yost document, under \"HOISTWAY_WIDTH\"")))

(define-frame MACHINE_BEAM_IMPACT_LOAD_LEFT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    machine_beam_impact_load_left_c machine_beam_reaction_rear_left_c machine_beam_total_load_left_c))
 :issues ((:formerly-named impactload_leftbeam)
          (:source
           "The Yost document, under \"MACHINE_BEAM_IMPACT_LOAD_LEFT\"")))

(define-frame MACHINE_BEAM_IMPACT_LOAD_RIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    machine_beam_impact_load_right_c machine_beam_reaction_rear_right_c machine_beam_total_load_right_c))
 :issues ((:formerly-named impactload_rightbeam)
          (:source
           "The Yost document, under \"MACHINE_BEAM_IMPACT_LOAD_RIGHT\"")))

(define-frame CAR_LANDING_SWITCH_WEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    car car1)
  (USED-IN-CONSTRAINT car_misc_weight_c))
 :issues ((:formerly-named landswitchwt)
          (:source
           "The Yost document, under \"CAR_LANDING_SWITCH_WEIGHT\"")))

(define-frame MACHINE_BEAM_BENDING_MOMENT_LEFT_MAXIMUM
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    machine_beam_bending_moment_left_maximum_c01 machine_beam_bending_moment_left_maximum_c02 machine_beam_section_modulus_left_minimum_c))
 :issues ((:formerly-named leftmbeammaxbendingmoment)
          (:source
           "The Yost document, under \"MACHINE_BEAM_BENDING_MOMENT_LEFT_MAXIMUM\"")))

(define-frame PLATFORM_TO_HOISTWAY_LEFT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT platform_to_hoistway_left_c))
 :issues ((:formerly-named leftplatformedge_lefthoistwaywall)
          (:source
           "The Yost document, under \"PLATFORM_TO_HOISTWAY_LEFT\"")))

(define-frame HOIST_CABLE_LENGTH
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT hoist_cable_length_c))
 :issues ((:formerly-named lengthperhoistcable)
          (:source
           "The Yost document, under \"HOIST_CABLE_LENGTH\"")))

(define-frame COUNTERWEIGHT_ABOVE_TOP_CAR_BOTTOM
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    compensation_cable_load_counterweight_side_car_bottom_c compensation_cable_load_counterweight_side_car_top_c counterweight_above_top_car_bottom_c))
 :issues ((:formerly-named len_compcable_below_counterwt)
          (:source
           "The Yost document, under \"COUNTERWEIGHT_ABOVE_TOP_CAR_BOTTOM\"")))

(define-frame MACHINE_ACCELERATION_MAXIMUM
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator))
 :issues ((:formerly-named machinegreatestaccelerationordeceleration)
          (:source
           "The Yost document, under \"MACHINE_ACCELERATION_MAXIMUM\"")))

(define-frame MACHINE_BEAM_SUPPORT_BOTTOM_TO_MACHINE_ROOM_TOP_SPEC
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    machine_beam_support_bottom_to_machine_room_top_c machine_beam_support_underside_to_machine_room_floor))
 :issues ((:formerly-named machineroommbeamspec)
          (:source
           "The Yost document, under \"MACHINE_BEAM_SUPPORT_BOTTOM_TO_MACHINE_ROOM_TOP\"")))

(define-frame MACHINE_SHEAVE_TO_DEFLECTOR_SHEAVE_DIAGONAL
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    machine_angle_of_contact_c machine_sheave_to_deflector_sheave_diagonal_c))
 :issues ((:formerly-named machinesheavetodeflsheavediag)
          (:source
           "The Yost document, under \"MACHINE_SHEAVE_TO_DEFLECTOR_SHEAVE_DIAGONAL\"")))

(define-frame MACHINE_SHEAVE_TO_DEFLECTOR_SHEAVE_HORIZONTAL
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    machine_sheave_to_deflector_sheave_diagonal_c machine_sheave_to_deflector_sheave_horizontal_c))
 :issues ((:formerly-named machinesheavetodeflsheave_horz)
          (:source
           "The Yost document, under \"MACHINE_SHEAVE_TO_DEFLECTOR_SHEAVE_HORIZONTAL\"")))

(define-frame MACHINE_SHEAVE_CENTER_TO_FRONT_MACHINE_BEAM_SUPPORT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    machine_beam_bending_moment_right_maximum_c01 machine_beam_center_to_machine_sheave_center_c machine_beam_reaction_rear_left_c machine_beam_reaction_rear_right_c machine_sheave_center_to_front_machine_beam_support_c))
 :issues ((:formerly-named mach_she_cent_to_fro_mbeam_support)
          (:source
           "The Yost document, under \"MACHINE_SHEAVE_CENTER_TO_FRONT_MACHINE_BEAM_SUPPORT\"")))

(define-frame CAR_MAINTENANCE_STATION_WEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF car)
  (USED-IN-CONSTRAINT car_misc_weight_c))
 :issues ((:formerly-named maintstwt)
          (:source
           "The Yost document, under \"CAR_MAINTENANCE_STATION_WEIGHT\"")))

(define-frame MACHINE_TOTAL_WEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    machine_beam_impact_load_total_c machine_total_weight_c))
 :issues ((:formerly-named masswt)
          (:source
           "The Yost document, under \"MACHINE_TOTAL_WEIGHT\"")))

(define-frame MAXACCEPTABLECARBUFFSTROKE
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator))
 :issues ("Guus Schreiber points out that this parameter is not used in any constraint."))

(define-frame MACHINE_GROOVE_PRESSURE_ACCEPTABLE_MAXIMUM
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-31 machine_groove_pressure_acceptable_maximum_c))
 :issues ((:formerly-named maxacceptablemachinegroovepressure)
          (:source
           "The Yost document, under \"MACHINE_GROOVE_PRESSURE_ACCEPTABLE_MAXIMUM\"")))

(define-frame SAFETY_BEAM_LOAD_MAXIMUM
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    safety_beam_model safety_beam_model_m01 safety_beam_model_m02 safety_beam_model_m03)
  (USED-IN-CONSTRAINT c-44))
 :issues ((:formerly-named maxacceptablepotentialsafetyload)
          (:source
           "The Yost document, under \"SAFETY_BEAM_LOAD_MAXIMUM\"")))

(define-frame SAFETY_BEAM_BENDING_MOMENT_MAXIMUM
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    safety_beam_model safety_beam_model_m01 safety_beam_model_m02 safety_beam_model_m03))
 :issues ((:formerly-named maxacceptablesafetybeambendmoment)
          (:source
           "The Yost document, under \"SAFETY_BEAM_BENDING_MOMENT_MAXIMUM\"")))

(define-frame CAR_GUIDERAIL_VERTICAL_FORCE_MAXIMUM
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-50 car_guiderail_vertical_force_maximum_c02 car_guiderail_vertical_force_maximum_c03 car_guiderail_vertical_force_maximum_c04 car_guiderail_vertical_force_maximum_c05 car_guiderail_vertical_force_maximum_c06 car_guiderail_vertical_force_maximum_c07 car_guiderail_vertical_force_maximum_c08 car_guiderail_vertical_force_maximum_c09 car_guiderail_vertical_force_maximum_c10 car_guiderail_vertical_force_maximum_c11))
 :issues ((:formerly-named maxacceptableverticalrailforce)
          (:source
           "The Yost document, under \"CAR_GUIDERAIL_VERTICAL_FORCE_MAXIMUM\"")))

(define-frame MACHINE_BEAM_LOAD_FRONT_LEFT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT machine_beam_load_front_left_c))
 :issues ((:formerly-named maxbldgload_frontleft)
          (:source
           "The Yost document, under \"MACHINE_BEAM_LOAD_FRONT_LEFT\"")))

(define-frame MACHINE_BEAM_LOAD_REAR_LEFT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT machine_beam_load_rear_left_c))
 :issues ((:formerly-named maxbldgload_rearleft)
          (:source
           "The Yost document, under \"MACHINE_BEAM_LOAD_REAR_LEFT\"")))

(define-frame MACHINE_BEAM_LOAD_REAR_RIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT machine_beam_load_rear_right_c))
 :issues ((:formerly-named maxbldgload_rearright)
          (:source
           "The Yost document, under \"MACHINE_BEAM_LOAD_REAR_RIGHT\"")))

(define-frame CAR_BUFFER_STRIKING_SPEED_MAXIMUM
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    car_buffer_striking_speed_maximum_c car_buffer_striking_speed_minimum_c))
 :issues ((:formerly-named maxbuffstrikingspeed)
          (:source
           "The Yost document, under \"CAR_BUFFER_STRIKING_SPEED_MAXIMUM\"")))

(define-frame MACHINE_BEAM_LOAD_FRONT_RIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT machine_beam_load_front_right_c))
 :issues ((:formerly-named maxbuildingload_frontright)
          (:source
           "The Yost document, under \"MACHINE_BEAM_LOAD_FRONT_RIGHT\"")))

(define-frame CAR_CAPACITY_RANGE
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-4_1 cable_load_total_car_side_car_bottom cable_load_total_car_side_car_top car_capacity_c car_capacity_range_c hoist_cable_traction_ratio_car_bottom_empty_c hoist_cable_traction_ratio_car_top_empty_c motor_horsepower_required_c01 motor_torque_releveling_c))
 :issues ((:formerly-named maxcarcapacity)
          (:source
           "The Yost document, under \"CAR_CAPACITY_RANGE\"")))

(define-frame MACHINE_GROOVE_PRESSURE
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-31 machine_groove_pressure_c))
 :issues ((:formerly-named maxmachinegroovepressure)
          (:source
           "The Yost document, under \"MACHINE_GROOVE_PRESSURE\"")))

(define-frame CABLE_LOAD_TOTAL_CAR_SIDE_MAXIMUM
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    cable_load_total_car_side_maximum_c01 cable_load_total_car_side_maximum_c02))
 :issues ((:formerly-named maxtotalloadcarside)
          (:source
           "The Yost document, under \"CABLE_LOAD_TOTAL_CAR_SIDE_MAXIMUM\"")))

(define-frame MACHINE_BEAM_BEARING_PLATE_THICKNESS
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT machine_beam_support_underside_to_machine_room_floor))
 :issues ((:formerly-named mbeambearingplatethick)
          (:source
           "The Yost document, under \"MACHINE_BEAM_BEARING_PLATE_THICKNESS\"")))

(define-frame MACHINE_BEAM_CENTER_TO_MACHINE_SHEAVE_CENTER
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    machine_beam_bending_moment_left_maximum_c01 machine_beam_bending_moment_left_maximum_c02 machine_beam_bending_moment_right_maximum_c01 machine_beam_bending_moment_right_maximum_c02 machine_beam_center_to_machine_sheave_center_c))
 :issues ((:formerly-named mbeamcenter_to_msheavecenter)
          (:source
           "The Yost document, under \"MACHINE_BEAM_CENTER_TO_MACHINE_SHEAVE_CENTER\"")))

(define-frame MACHINE_BEAM_LENGTH
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT machine_beam_weight_c))
 :issues ((:formerly-named mbeaml)
          (:source
           "The Yost document, under \"MACHINE_BEAM_LENGTH\"")))

(define-frame MACHINE_BEAM_SECTION_MODULUS
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    machine_beam_model machine_beam_model_m01 machine_beam_model_m02 machine_beam_model_m03 machine_beam_model_m04))
 :issues ((:formerly-named mbeamsectionmodulus)
          (:source
           "The Yost document, under \"MACHINE_BEAM_SECTION_MODULUS\"")))

(define-frame MACHINE_BEAM_SUPPORT_DISTANCE
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    machine_beam_reaction_rear_left_c machine_beam_reaction_rear_right_c machine_beam_support_to_machine_beam_center_c))
 :issues ((:formerly-named mbeamsupportdistspec)
          (:source
           "The Yost document, under \"MACHINE_BEAM_SUPPORT_DISTANCE\"")))

(define-frame MACHINE_BEAM_SUPPORT_TYPE
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    machine_beam_support_bottom_to_machine_room_top_c machine_beam_support_type_c machine_beam_support_underside_to_machine_room_floor))
 :issues ((:formerly-named mbeamsupporttypespec)
          (:source
           "The Yost document, under \"MACHINE_BEAM_SUPPORT_TYPE\"")))

(define-frame MACHINE_BEAM_SUPPORT_TO_MACHINE_BEAM_CENTER
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    machine_beam_bending_moment_left_maximum_c01 machine_beam_bending_moment_left_maximum_c02 machine_beam_bending_moment_right_maximum_c02 machine_beam_center_to_machine_sheave_center_c machine_beam_reaction_rear_left_c machine_beam_reaction_rear_right_c machine_beam_support_to_machine_beam_center_c))
 :issues ((:formerly-named mbeamsupport_to_mbeamcenter)
          (:source
           "The Yost document, under \"MACHINE_BEAM_SUPPORT_TO_MACHINE_BEAM_CENTER\"")))

(define-frame MACHINE_BEAM_WEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    machine_beam_bending_moment_left_maximum_c02 machine_beam_bending_moment_right_maximum_c02 machine_beam_reaction_rear_left_c machine_beam_reaction_rear_right_c machine_beam_total_load_left_c machine_beam_total_load_right_c machine_beam_weight_c))
 :issues ((:formerly-named mbeamwt)
          (:source
           "The Yost document, under \"MACHINE_BEAM_WEIGHT\"")))

(define-frame MACHINE_BEAM_UNIT_WEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF machine_beam_model)
  (USED-IN-CONSTRAINT machine_beam_weight_c))
 :issues ((:formerly-named mbeamwtperft)
          (:source
           "The Yost document, under \"MACHINE_BEAM_UNIT_WEIGHT\"")))

(define-frame CAR_BUFFER_STRIKING_SPEED_MINIMUM
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-32 car_buffer_striking_speed_minimum_c car_buffer_stroke_c))
 :issues ((:formerly-named minacceptablecarbuffstroke)
          (:source
           "The Yost document, under \"CAR_BUFFER_STRIKING_SPEED_MINIMUM\"")))

(define-frame MINACCEPTABLEMBEAMMODULUS
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-30_1 c-30_2)))

(define-frame MINACCEPTABLEOPENINGW
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator))
 :issues ("Guus Schreiber points out that this parameter is not used in any constraint."))

(define-frame HOIST_CABLE_SAFETY_FACTOR_MINIMUM
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-29_1 hoist_cable_safety_factor_c01 hoist_cable_safety_factor_c02 hoist_cable_safety_factor_c03 hoist_cable_safety_factor_c04 hoist_cable_safety_factor_c05))
 :issues ((:formerly-named minhoistcablesafetyfactor)
          (:source
           "The Yost document, under \"HOIST_CABLE_SAFETY_FACTOR_MINIMUM\"")))

(define-frame MACHINE_BEAM_SECTION_MODULUS_LEFT_MINIMUM
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-30_1 c-30_2 machine_beam_section_modulus_left_minimum_c))
 :issues ((:formerly-named minleftmbeam_sectionmodulus)
          (:source
           "The Yost document, under \"MACHINE_BEAM_SECTION_MODULUS_LEFT_MINIMUM\"")))

(define-frame MACHINE_BEAM_SECTION_MODULUS_RIGHT_MINIMUM
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    c-30_1 c-30_2 machine_beam_section_modulus_right_minimum_c))
 :issues ((:formerly-named minrightmbeam_sectionmodulus)
          (:source
           "The Yost document, under \"MACHINE_BEAM_SECTION_MODULUS_RIGHT_MINIMUM\"")))

(define-frame CAR_MISC_WEIGHT
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF elevator)
  (USED-IN-CONSTRAINT
    car_misc_weight_c car_weight_c))
 :issues ((:formerly-named misccarcompwt)
          (:source
           "The Yost document, under \"CAR_MISC_WEIGHT\"")))

(define-frame MACHINE_LEFT_OFFSET
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    machine_model machine_model_m01 machine_model_m02 machine_model_m03 machine_model_m04)
  (USED-IN-CONSTRAINT
    machine_beam_impact_load_left_c machine_beam_impact_load_right_c))
 :issues ((:formerly-named mleftoffset)
          (:source
           "The Yost document, under \"MACHINE_LEFT_OFFSET\"")))

(define-frame MACHINE_SUSPENDED_LOAD_MAXIMUM
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF machine_model)
  (USED-IN-CONSTRAINT c-47))
 :issues ((:formerly-named mmaxsuspload)
          (:source
           "The Yost document, under \"MACHINE_SUSPENDED_LOAD_MAXIMUM\"")))

(define-frame MODEL-ID
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    governor_model machine_groove_model)
  (USED-IN-CONSTRAINT
   c-11 c-24_1 c-24_2 c-28_1 c-28_2 c-28_3 c-34_1 c-34_2 c-34_3 c-34_4 c-36_2
   c-36_3 c-45 c-46_1 c-46_2 c-46_3 c-46_4 c-48_1 c-48_2 c-5_2 c-5_3
   car_guiderail_vertical_force_maximum_c02
   car_guiderail_vertical_force_maximum_c03
   car_guiderail_vertical_force_maximum_c04
   car_guiderail_vertical_force_maximum_c05
   car_guiderail_vertical_force_maximum_c06
   car_guiderail_vertical_force_maximum_c07
   car_guiderail_vertical_force_maximum_c08
   car_guiderail_vertical_force_maximum_c09
   car_guiderail_vertical_force_maximum_c10
   car_guiderail_vertical_force_maximum_c11 car_intercom_c02 car_intercom_c03
   car_lantern_c02 car_lantern_c03 car_phone_c02 car_phone_c03
   car_position_indicator_c02 car_position_indicator_c03 car_return_left_c04
   car_return_left_c05 car_return_left_c06 car_return_left_c07
   car_return_left_c08 car_return_left_c09 compensation_cable_length_c01
   compensation_cable_length_c02 compensation_cable_model_c01
   compensation_cable_model_c02 compensation_cable_model_c03
   compensation_cable_model_c04 compensation_cable_model_c05
   control_cable_model_c01 control_cable_model_c02 control_cable_model_c03
   counterweight_guard_required_c
   COUNTERWEIGHT_GUARD_REQUIRED_C2
   crosshead_model_c01 crosshead_model_c02 crosshead_model_c03
   crosshead_model_c04 crosshead_model_c05 machine_efficiency_c02
   machine_efficiency_c03 machine_efficiency_c04 machine_efficiency_c05
   machine_efficiency_c06 machine_efficiency_c07 machine_efficiency_c08
   machine_efficiency_c09 machine_efficiency_c10 machine_efficiency_c11
   machine_efficiency_c12 machine_efficiency_c13 machine_efficiency_c14
   machine_efficiency_c15 machine_efficiency_c16 machine_efficiency_c17
   machine_efficiency_c18 machine_efficiency_c19 machine_efficiency_c20
   machine_efficiency_c21 machine_gear_ratio_symbolic_c01
   machine_gear_ratio_symbolic_c02 machine_gear_ratio_symbolic_c03
   machine_gear_ratio_symbolic_c04 machine_gear_ratio_symbolic_c05
   machine_gear_ratio_symbolic_c06 machine_gear_ratio_symbolic_c07
   machine_gear_ratio_symbolic_c08 machine_gear_ratio_symbolic_c09
   machine_gear_ratio_symbolic_c10 machine_gear_ratio_symbolic_c11
   machine_gear_ratio_symbolic_c12 machine_gear_ratio_symbolic_c13
   machine_gear_ratio_symbolic_c14 machine_gear_ratio_symbolic_c15
   machine_gear_ratio_symbolic_c16 machine_gear_ratio_symbolic_c17
   machine_gear_ratio_symbolic_c18 machine_gear_ratio_symbolic_c19
   machine_gear_ratio_symbolic_c20 machine_groove_pressure_constant_c01
   machine_groove_pressure_constant_c02 machine_groove_pressure_constant_c03
   machine_groove_pressure_constant_c04 machine_groove_pressure_constant_c05
   machine_groove_pressure_constant_c06 machine_groove_pressure_constant_c07
   machine_groove_pressure_constant_c08 machine_groove_pressure_constant_c09
   machine_groove_pressure_constant_c10 motorscompatible_machine18
   motorscompatible_machine28 motorscompatible_machine58 peakmcur_calc_10hp_1
   peakmcur_calc_10hp_2 peakmcur_calc_10hp_3 peakmcur_calc_15hp_1
   peakmcur_calc_15hp_2 peakmcur_calc_15hp_3 peakmcur_calc_20hp_1
   peakmcur_calc_20hp_2 peakmcur_calc_25hp_1 peakmcur_calc_25hp_2
   peakmcur_calc_25hp_3 peakmcur_calc_30hp_1 peakmcur_calc_30hp_2
   peakmcur_calc_40hp_1 peakmcur_calc_40hp_2 platform_model_c01
   platform_model_c02 platform_model_c03 platform_model_c04 platform_weight_c01
   platform_weight_c02 platform_weight_c03 platform_weight_factor_ap_c02
   platform_weight_factor_ap_c03 platform_weight_factor_ap_c04
   platform_weight_factor_ap_c05 platform_weight_factor_ap_c06
   platform_weight_factor_ap_c07 platform_weight_factor_ap_c08
   platform_weight_factor_ap_c09 platform_weight_factor_ap_c10
   platform_weight_factor_ap_c11 platform_weight_factor_s_c02
   platform_weight_factor_s_c03 platform_weight_factor_x_c01
   platform_weight_factor_x_c02 platform_weight_factor_x_c03
   platform_weight_factor_x_c04 platform_weight_factor_x_c05
   platform_weight_factor_z_c01 safety_beam_model_c01 safety_beam_model_c02
   safety_beam_model_c03)))

(define-frame MOTOR_GENERATOR_CURRENT_MAXIMUM
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    motor_generator_model motor_generator_model_m01 motor_generator_model_m02 motor_generator_model_m03 motor_generator_model_m04)
  (USED-IN-CONSTRAINT c-33_2))
 :issues ((:formerly-named motgenmaxcurr)
          (:source
           "The Yost document, under \"MOTOR_GENERATOR_CURRENT_MAXIMUM\"")))

(define-frame MOTOR_HORSEPOWER
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF motor)
  (USED-IN-CONSTRAINT motor_horsepower_c))
 :issues ((:formerly-named mothp)
          (:source
           "The Yost document, under \"MOTOR_HORSEPOWER\"")))

(define-frame MOTOR_CURRENT_MAXIMUM
 :own-slots (
  (INSTANCE-OF
    parameter-slot unary-function)
  (PARAMETER-SLOT-OF
    motor motor_model_m01 motor_model_m02 motor_model_m03 motor_model_m04 motor_model_m05 motor_model_m06)
  (USED-IN-CONSTRAINT c-33_1))
 :issues ((:formerly-named motmaxcurrent)
          (:source
           "The Yost document, under \"MOTOR_CURRENT_MAXIMUM\"")))

(define-frame M