package coq-lsp
Language Server Protocol native server for Coq
Install
Dune Dependency
Authors
Maintainers
Sources
coq-lsp-0.2.0.8.19.tbz
sha256=01ffedbd55ae00526fe1dda890e3c15a883bfda8388c8d292121ee722db46360
sha512=b5d92146c27b5c432a3f92c9ae8ff69c4dc62709f394743ca2d43ab93ae3af64b08bb17ea5923c0fbe0a333de127de574c548ec3c8df81dbe3e11f485abc3216
doc/src/serlib_ring/ser_g_ring.ml.html
Source file ser_g_ring.ml
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93(************************************************************************) (* SerAPI: Coq interaction protocol with bidirectional serialization *) (************************************************************************) (* Copyright 2016-2019 MINES ParisTech -- License LGPL 2.1+ *) (* Copyright 2019-2023 Inria -- License LGPL 2.1+ *) (* Written by: Emilio J. Gallego Arias and others *) (************************************************************************) open Sexplib.Conv open Ppx_hash_lib.Std.Hash.Builtin open Ppx_compare_lib.Builtin open Serlib module CAst = Ser_cAst module Libnames = Ser_libnames module Constrexpr = Ser_constrexpr module Tactypes = Ser_tactypes module Genintern = Ser_genintern module EConstr = Ser_eConstr module Tacexpr = Serlib_ltac.Ser_tacexpr module Ltac_plugin = struct module Tacexpr = Serlib_ltac.Ser_tacexpr end type 'constr coeff_spec = [%import: 'constr Ring_plugin.Ring_ast.coeff_spec] [@@deriving sexp,hash,compare] type cst_tac_spec = [%import: Ring_plugin.Ring_ast.cst_tac_spec] [@@deriving sexp,hash,compare] type 'constr ring_mod = [%import: 'constr Ring_plugin.Ring_ast.ring_mod] [@@deriving sexp,hash,compare] type 'a field_mod = [%import: 'a Ring_plugin.Ring_ast.field_mod] [@@deriving sexp,hash,compare] module A0 = struct type raw = Constrexpr.constr_expr field_mod [@@deriving sexp,hash,compare] type glb = unit [@@deriving sexp,hash,compare] type top = unit [@@deriving sexp,hash,compare] end let ser_wit_field_mod = let module M = Ser_genarg.GS(A0) in M.genser module A1 = struct type raw = Constrexpr.constr_expr field_mod list [@@deriving sexp,hash,compare] type glb = unit [@@deriving sexp,hash,compare] type top = unit [@@deriving sexp,hash,compare] end let ser_wit_field_mods = let module M = Ser_genarg.GS(A1) in M.genser module A2 = struct type raw = Constrexpr.constr_expr ring_mod [@@deriving sexp,hash,compare] type glb = unit [@@deriving sexp,hash,compare] type top = unit [@@deriving sexp,hash,compare] end let ser_wit_ring_mod = let module M = Ser_genarg.GS(A2) in M.genser module A3 = struct type raw = Constrexpr.constr_expr ring_mod list [@@deriving sexp,hash,compare] type glb = unit [@@deriving sexp,hash,compare] type top = unit [@@deriving sexp,hash,compare] end let ser_wit_ring_mods = let module M = Ser_genarg.GS(A3) in M.genser let register () = Ser_genarg.register_genser Ring_plugin.G_ring.wit_field_mod ser_wit_field_mod; Ser_genarg.register_genser Ring_plugin.G_ring.wit_field_mods ser_wit_field_mods; Ser_genarg.register_genser Ring_plugin.G_ring.wit_ring_mod ser_wit_ring_mod; Ser_genarg.register_genser Ring_plugin.G_ring.wit_ring_mods ser_wit_ring_mods; () let _ = register ()