coq-serapi 8.19.0+0.19.0 · OCaml Package

coq-serapi

module CAst = Serlib.Ser_cAst

module Libnames = Serlib.Ser_libnames

module Constrexpr = Serlib.Ser_constrexpr

module Tactypes = Serlib.Ser_tactypes

module Genintern = Serlib.Ser_genintern

module EConstr = Serlib.Ser_eConstr

module Tacexpr = Serlib_ltac.Ser_tacexpr

module Ltac_plugin : sig ... end

type 'constr coeff_spec = 'constr Ring_plugin.Ring_ast.coeff_spec =

| Computational of 'constr
| Abstract
| Morphism of 'constr

val coeff_spec_of_sexp : 
  'constr. (Sexplib0.Sexp.t -> 'constr) ->
  Sexplib0.Sexp.t ->
  'constr coeff_spec

val sexp_of_coeff_spec : 
  'constr. ('constr -> Sexplib0.Sexp.t) ->
  'constr coeff_spec ->
  Sexplib0.Sexp.t

val hash_fold_coeff_spec : 
  'constr. (Base.Hash.state -> 'constr -> Base.Hash.state) ->
  Base.Hash.state ->
  'constr coeff_spec ->
  Base.Hash.state

val compare_coeff_spec : 
  'constr. ('constr -> 'constr -> int) ->
  'constr coeff_spec ->
  'constr coeff_spec ->
  int

type cst_tac_spec = Ring_plugin.Ring_ast.cst_tac_spec =

| CstTac of Ltac_plugin.Tacexpr.raw_tactic_expr
| Closed of Libnames.qualid list

val cst_tac_spec_of_sexp : Sexplib0.Sexp.t -> cst_tac_spec

val sexp_of_cst_tac_spec : cst_tac_spec -> Sexplib0.Sexp.t

val hash_fold_cst_tac_spec : Base.Hash.state -> cst_tac_spec -> Base.Hash.state

val hash_cst_tac_spec : cst_tac_spec -> Base.Hash.hash_value

val compare_cst_tac_spec : cst_tac_spec -> cst_tac_spec -> int

type 'constr ring_mod = 'constr Ring_plugin.Ring_ast.ring_mod =

| Ring_kind of 'constr coeff_spec
| Const_tac of cst_tac_spec
| Pre_tac of Ltac_plugin.Tacexpr.raw_tactic_expr
| Post_tac of Ltac_plugin.Tacexpr.raw_tactic_expr
| Setoid of Constrexpr.constr_expr * Constrexpr.constr_expr
| Pow_spec of cst_tac_spec * Constrexpr.constr_expr
| Sign_spec of Constrexpr.constr_expr
| Div_spec of Constrexpr.constr_expr

val ring_mod_of_sexp : 
  'constr. (Sexplib0.Sexp.t -> 'constr) ->
  Sexplib0.Sexp.t ->
  'constr ring_mod

val sexp_of_ring_mod : 
  'constr. ('constr -> Sexplib0.Sexp.t) ->
  'constr ring_mod ->
  Sexplib0.Sexp.t

val hash_fold_ring_mod : 
  'constr. (Base.Hash.state -> 'constr -> Base.Hash.state) ->
  Base.Hash.state ->
  'constr ring_mod ->
  Base.Hash.state

val compare_ring_mod : 
  'constr. ('constr -> 'constr -> int) ->
  'constr ring_mod ->
  'constr ring_mod ->
  int

type 'a field_mod = 'a Ring_plugin.Ring_ast.field_mod =

| Ring_mod of 'a ring_mod
| Inject of Constrexpr.constr_expr

val field_mod_of_sexp : 
  'a. (Sexplib0.Sexp.t -> 'a) ->
  Sexplib0.Sexp.t ->
  'a field_mod

val sexp_of_field_mod : 
  'a. ('a -> Sexplib0.Sexp.t) ->
  'a field_mod ->
  Sexplib0.Sexp.t

val hash_fold_field_mod : 
  'a. (Base.Hash.state -> 'a -> Base.Hash.state) ->
  Base.Hash.state ->
  'a field_mod ->
  Base.Hash.state

val compare_field_mod : 
  'a. ('a -> 'a -> int) ->
  'a field_mod ->
  'a field_mod ->
  int

module A0 : sig ... end

val ser_wit_field_mod : (A0.raw, A0.glb, A0.top) Serlib__Ser_genarg.gen_ser

module A1 : sig ... end

val ser_wit_field_mods : (A1.raw, A1.glb, A1.top) Serlib__Ser_genarg.gen_ser

module A2 : sig ... end

val ser_wit_ring_mod : (A2.raw, A2.glb, A2.top) Serlib__Ser_genarg.gen_ser

module A3 : sig ... end

val ser_wit_ring_mods : (A3.raw, A3.glb, A3.top) Serlib__Ser_genarg.gen_ser

val register : unit -> unit

package coq-serapi