coq-serapi 8.19.0+0.19.2 · OCaml Package

type 'a red_atom = 'a Genredexpr.red_atom

val red_atom_of_sexp : (Sexplib.Sexp.t -> 'a) -> Sexplib.Sexp.t -> 'a red_atom

val sexp_of_red_atom : ('a -> Sexplib.Sexp.t) -> 'a red_atom -> Sexplib.Sexp.t

type 'a glob_red_flag = 'a Genredexpr.glob_red_flag

val glob_red_flag_of_sexp : 
  (Sexplib.Sexp.t -> 'a) ->
  Sexplib.Sexp.t ->
  'a glob_red_flag

val sexp_of_glob_red_flag : 
  ('a -> Sexplib.Sexp.t) ->
  'a glob_red_flag ->
  Sexplib.Sexp.t

val glob_red_flag_of_yojson : 
  (Yojson.Safe.t -> ('a, string) Result.result) ->
  Yojson.Safe.t ->
  ('a glob_red_flag, string) Result.result

val glob_red_flag_to_yojson : 
  ('a -> Yojson.Safe.t) ->
  'a glob_red_flag ->
  Yojson.Safe.t

type ('a, 'b, 'c) red_expr_gen = ('a, 'b, 'c) Genredexpr.red_expr_gen

val sexp_of_red_expr_gen : 
  ('a -> Sexplib0.Sexp.t) ->
  ('b -> Sexplib0.Sexp.t) ->
  ('c -> Sexplib0.Sexp.t) ->
  ('a, 'b, 'c) red_expr_gen ->
  Sexplib0.Sexp.t

val red_expr_gen_of_sexp : 
  (Sexplib0.Sexp.t -> 'a) ->
  (Sexplib0.Sexp.t -> 'b) ->
  (Sexplib0.Sexp.t -> 'c) ->
  Sexplib0.Sexp.t ->
  ('a, 'b, 'c) red_expr_gen

val red_expr_gen_to_yojson : 
  ('a -> Yojson.Safe.t) ->
  ('b -> Yojson.Safe.t) ->
  ('c -> Yojson.Safe.t) ->
  ('a, 'b, 'c) red_expr_gen ->
  Yojson.Safe.t

val red_expr_gen_of_yojson : 
  (Yojson.Safe.t -> 'a Ppx_deriving_yojson_runtime.error_or) ->
  (Yojson.Safe.t -> 'b Ppx_deriving_yojson_runtime.error_or) ->
  (Yojson.Safe.t -> 'c Ppx_deriving_yojson_runtime.error_or) ->
  Yojson.Safe.t ->
  ('a, 'b, 'c) red_expr_gen Ppx_deriving_yojson_runtime.error_or

val hash_fold_red_expr_gen : 
  (Base.Hash.state -> 'a -> Base.Hash.state) ->
  (Base.Hash.state -> 'b -> Base.Hash.state) ->
  (Base.Hash.state -> 'c -> Base.Hash.state) ->
  Base.Hash.state ->
  ('a, 'b, 'c) red_expr_gen ->
  Base.Hash.state

val compare_red_expr_gen : 
  ('a -> 'a -> int) ->
  ('b -> 'b -> int) ->
  ('c -> 'c -> int) ->
  ('a, 'b, 'c) red_expr_gen ->
  ('a, 'b, 'c) red_expr_gen ->
  int

type ('a, 'b, 'c) may_eval = ('a, 'b, 'c) Genredexpr.may_eval

val sexp_of_may_eval : 
  ('a -> Sexplib0.Sexp.t) ->
  ('b -> Sexplib0.Sexp.t) ->
  ('c -> Sexplib0.Sexp.t) ->
  ('a, 'b, 'c) may_eval ->
  Sexplib0.Sexp.t

val may_eval_of_sexp : 
  (Sexplib0.Sexp.t -> 'a) ->
  (Sexplib0.Sexp.t -> 'b) ->
  (Sexplib0.Sexp.t -> 'c) ->
  Sexplib0.Sexp.t ->
  ('a, 'b, 'c) may_eval

val may_eval_to_yojson : 
  ('a -> Yojson.Safe.t) ->
  ('b -> Yojson.Safe.t) ->
  ('c -> Yojson.Safe.t) ->
  ('a, 'b, 'c) may_eval ->
  Yojson.Safe.t

val may_eval_of_yojson : 
  (Yojson.Safe.t -> 'a Ppx_deriving_yojson_runtime.error_or) ->
  (Yojson.Safe.t -> 'b Ppx_deriving_yojson_runtime.error_or) ->
  (Yojson.Safe.t -> 'c Ppx_deriving_yojson_runtime.error_or) ->
  Yojson.Safe.t ->
  ('a, 'b, 'c) may_eval Ppx_deriving_yojson_runtime.error_or

val hash_fold_may_eval : 
  (Base.Hash.state -> 'a -> Base.Hash.state) ->
  (Base.Hash.state -> 'b -> Base.Hash.state) ->
  (Base.Hash.state -> 'c -> Base.Hash.state) ->
  Base.Hash.state ->
  ('a, 'b, 'c) may_eval ->
  Base.Hash.state

val compare_may_eval : 
  ('a -> 'a -> int) ->
  ('b -> 'b -> int) ->
  ('c -> 'c -> int) ->
  ('a, 'b, 'c) may_eval ->
  ('a, 'b, 'c) may_eval ->
  int

type raw_red_expr = Genredexpr.raw_red_expr

val sexp_of_raw_red_expr : raw_red_expr -> Sexplib0.Sexp.t

val raw_red_expr_of_sexp : Sexplib0.Sexp.t -> raw_red_expr

val raw_red_expr_to_yojson : raw_red_expr -> Yojson.Safe.t

val raw_red_expr_of_yojson : 
  Yojson.Safe.t ->
  raw_red_expr Ppx_deriving_yojson_runtime.error_or

val hash_fold_raw_red_expr : Base.Hash.state -> raw_red_expr -> Base.Hash.state

val hash_raw_red_expr : raw_red_expr -> Base.Hash.hash_value

val compare_raw_red_expr : raw_red_expr -> raw_red_expr -> int

type 'a and_short_name = 'a Genredexpr.and_short_name

val sexp_of_and_short_name : 
  ('a -> Sexplib0.Sexp.t) ->
  'a and_short_name ->
  Sexplib0.Sexp.t

val and_short_name_of_sexp : 
  (Sexplib0.Sexp.t -> 'a) ->
  Sexplib0.Sexp.t ->
  'a and_short_name

val and_short_name_to_yojson : 
  ('a -> Yojson.Safe.t) ->
  'a and_short_name ->
  Yojson.Safe.t

val and_short_name_of_yojson : 
  (Yojson.Safe.t -> 'a Ppx_deriving_yojson_runtime.error_or) ->
  Yojson.Safe.t ->
  'a and_short_name Ppx_deriving_yojson_runtime.error_or

val hash_fold_and_short_name : 
  (Base.Hash.state -> 'a -> Base.Hash.state) ->
  Base.Hash.state ->
  'a and_short_name ->
  Base.Hash.state

val compare_and_short_name : 
  ('a -> 'a -> int) ->
  'a and_short_name ->
  'a and_short_name ->
  int

type glob_red_expr = Genredexpr.glob_red_expr

val sexp_of_glob_red_expr : glob_red_expr -> Sexplib0.Sexp.t

val glob_red_expr_of_sexp : Sexplib0.Sexp.t -> glob_red_expr

val glob_red_expr_to_yojson : glob_red_expr -> Yojson.Safe.t

val glob_red_expr_of_yojson : 
  Yojson.Safe.t ->
  glob_red_expr Ppx_deriving_yojson_runtime.error_or

val hash_fold_glob_red_expr : 
  Base.Hash.state ->
  glob_red_expr ->
  Base.Hash.state

val hash_glob_red_expr : glob_red_expr -> Base.Hash.hash_value

val compare_glob_red_expr : glob_red_expr -> glob_red_expr -> int

package coq-serapi