package coq-lsp
Language Server Protocol native server for Coq
Install
Dune Dependency
Authors
Maintainers
Sources
coq-lsp-0.2.3.9.0.tbz
sha256=8776582dddfe768623870cf540ff6ba1e96a44a36e85db18ab93d238d640f92a
sha512=2837889bf99bfe715bd0e752782211a76a14aac71ed37a4fb784f4f0abe338352c9c6d8caa37daf79c036997add1cb306c523f793625b38709f3b5e245380223
doc/src/coq-lsp.serlib/ser_cooking.ml.html
Source file ser_cooking.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(************************************************************************) (* * The Coq Proof Assistant / The Coq Development Team *) (* v * Copyright INRIA, CNRS and contributors *) (* <O___,, * (see version control and CREDITS file for authors & dates) *) (* VV/ **************************************************************) (* // * This file is distributed under the terms of the *) (* * GNU Lesser General Public License Version 2.1 *) (* * (see LICENSE file for the text of the license) *) (************************************************************************) (************************************************************************) (* 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.Std open Ppx_hash_lib.Std.Hash.Builtin open Ppx_compare_lib.Builtin module Names = Ser_names module Univ = Ser_univ module UVars = Ser_uvars module Constr = Ser_constr type abstr_info = { abstr_ctx : Constr.named_context; abstr_auctx : UVars.AbstractContext.t; abstr_ausubst : UVars.Instance.t; } [@@deriving sexp,yojson,hash,compare] type abstr_inst_info = { abstr_rev_inst : Names.Id.t list; abstr_uinst : UVars.Instance.t; } [@@deriving sexp,yojson,hash,compare] type 'a entry_map = 'a Names.Cmap.t * 'a Names.Mindmap.t [@@deriving sexp,yojson,hash,compare] type expand_info = abstr_inst_info entry_map [@@deriving sexp,yojson,hash,compare] module CIP = struct type _t = { expand_info : expand_info; abstr_info : abstr_info; } [@@deriving sexp,yojson,hash,compare] type t = [%import: Cooking.cooking_info] end module B_ = SerType.Pierce(CIP) type cooking_info = B_.t [@@deriving sexp,yojson,hash,compare]