Module Jasmin.Shift_kind

type __ = Obj.t
type shift_kind =
  1. | SLSL
  2. | SLSR
  3. | SASR
  4. | SROR
type is_shift_kind =
  1. | Coq_is_SLSL
  2. | Coq_is_SLSR
  3. | Coq_is_SASR
  4. | Coq_is_SROR
val shift_kind_tag : shift_kind -> BinNums.positive
val is_shift_kind_inhab : shift_kind -> is_shift_kind
type box_shift_kind_SLSL =
  1. | Box_shift_kind_SLSL
type shift_kind_fields_t = __
val shift_kind_fields : shift_kind -> shift_kind_fields_t
val shift_kind_eqb_fields : (shift_kind -> shift_kind -> bool) -> BinNums.positive -> shift_kind_fields_t -> shift_kind_fields_t -> bool
val shift_kind_eqb : shift_kind -> shift_kind -> bool
val shift_kind_eqb_OK : shift_kind -> shift_kind -> Bool.reflect
val coq_HB_unnamed_factory_1 : shift_kind Eqtype.Coq_hasDecEq.axioms_
val shift_kind_shift_kind__canonical__eqtype_Equality : Eqtype.Equality.coq_type
val shift_amount_bounds : shift_kind -> BinNums.coq_Z * BinNums.coq_Z