Module Jasmin.Slh_ops

type __ = Obj.t
type slh_op =
  1. | SLHinit
  2. | SLHupdate
  3. | SLHmove
  4. | SLHprotect of Wsize.wsize
  5. | SLHprotect_ptr of BinNums.positive
  6. | SLHprotect_ptr_fail of BinNums.positive
val slh_op_tag : slh_op -> BinNums.positive
type box_slh_op_SLHinit =
  1. | Box_slh_op_SLHinit
type slh_op_fields_t = __
val slh_op_fields : slh_op -> slh_op_fields_t
val slh_op_eqb_fields : (slh_op -> slh_op -> bool) -> BinNums.positive -> slh_op_fields_t -> slh_op_fields_t -> bool
val slh_op_eqb : slh_op -> slh_op -> bool
val slh_op_eqb_OK : slh_op -> slh_op -> Bool.reflect
val coq_HB_unnamed_factory_1 : slh_op Eqtype.Coq_hasDecEq.axioms_
val slh_ops_slh_op__canonical__eqtype_Equality : Eqtype.Equality.coq_type
val is_protect_ptr : slh_op -> BinNums.positive option