Module Std.Prelude

val bool_tag : bool -> BinNums.positive
type box_bool_true =
  1. | Box_bool_true
type bool_fields_t = __
val bool_fields : bool -> bool_fields_t
val bool_eqb_fields : (bool -> bool -> bool) -> BinNums.positive -> bool_fields_t -> bool_fields_t -> bool
val bool_eqb : bool -> bool -> bool
type ('a, 'pA) is_option =
  1. | Coq_is_Some of 'a * 'pA
  2. | Coq_is_None
val option_tag : 'a1 option -> BinNums.positive
val is_option_inhab : ('a1, 'a2) Param1.full -> 'a1 option -> ('a1, 'a2) is_option
type 'a box_option_None =
  1. | Box_option_None
type 'p option_fields_t = __
val option_fields : 'a1 option -> 'a1 option_fields_t
val option_eqb_fields : ('a1 -> 'a1 -> bool) -> ('a1 option -> 'a1 option -> bool) -> BinNums.positive -> 'a1 option_fields_t -> 'a1 option_fields_t -> bool
val option_eqb : ('a1 -> 'a1 -> bool) -> 'a1 option -> 'a1 option -> bool
val list_tag : 'a1 list -> BinNums.positive
type 'a box_list_nil =
  1. | Box_list_nil
type 'a box_list_cons = {
  1. coq_Box_list_cons_0 : 'a;
  2. coq_Box_list_cons_1 : 'a list;
}
type 'p list_fields_t = __
val list_fields : 'a1 list -> 'a1 list_fields_t
val list_eqb_fields : ('a1 -> 'a1 -> bool) -> ('a1 list -> 'a1 list -> bool) -> BinNums.positive -> 'a1 list_fields_t -> 'a1 list_fields_t -> bool
val list_eqb : ('a1 -> 'a1 -> bool) -> 'a1 list -> 'a1 list -> bool
val comparison_tag : Datatypes.comparison -> BinNums.positive
type box_comparison_Eq =
  1. | Box_comparison_Eq
type comparison_fields_t = __
val comparison_fields : Datatypes.comparison -> comparison_fields_t
val comparison_eqb : Datatypes.comparison -> Datatypes.comparison -> bool