package coq-lsp
Language Server Protocol native server for Coq
Install
Dune Dependency
Authors
Maintainers
Sources
coq-lsp-0.2.3.8.19.tbz
sha256=dd5d0993261d3742e77ccac8344307d97b507b265d8743ae0ce33d0b3fcfd98a
sha512=76727400b27900fdd659af7f03c5f2cd979f50ea0c76ad6f5b5de56a53b9db06dba1e1c786fd3e8ab695e42d94c53d58415c0c5b5eef8192f9863eaf7dcca693
doc/src/coq-lsp.serlib/ser_environ.ml.html
Source file ser_environ.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(************************************************************************) (* * 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 Stdlib = Ser_stdlib module CEphemeron = Ser_cEphemeron module Range = Ser_range module Names = Ser_names module Constr = Ser_constr module Univ = Ser_univ module Sorts = Ser_sorts module Nativevalues = Ser_nativevalues module Opaqueproof = Ser_opaqueproof module Retroknowledge = Ser_retroknowledge module UGraph = Ser_uGraph module Declarations = Ser_declarations (* type stratification = * [%import: Environ.stratification] * [@@deriving sexp_of] *) type rel_context_val = [%import: Environ.rel_context_val] [@@deriving sexp_of] type named_context_val = [%import: Environ.named_context_val] [@@deriving sexp_of] type link_info = [%import: Environ.link_info] [@@deriving sexp,yojson,hash,compare] type key = [%import: Environ.key] [@@deriving sexp,yojson,hash,compare] type constant_key = [%import: Environ.constant_key] [@@deriving sexp,yojson,hash,compare] type mind_key = [%import: Environ.mind_key] [@@deriving sexp,yojson,hash,compare] module Globals = struct module PierceSpec = struct type t = Environ.Globals.t type _t = [%import: Environ.Globals.view] [@@deriving sexp,yojson,hash,compare] end include SerType.Pierce(PierceSpec) end type env = [%import: Environ.env] [@@deriving sexp_of] let env_of_sexp = Serlib_base.opaque_of_sexp ~typ:"Environ.env" let abstract_env = ref false let sexp_of_env env = if !abstract_env then Serlib_base.sexp_of_opaque ~typ:"Environ.env" env else sexp_of_env env type ('constr, 'term) punsafe_judgment = [%import: ('constr, 'term) Environ.punsafe_judgment] [@@deriving sexp] type unsafe_judgment = [%import: Environ.unsafe_judgment] [@@deriving sexp]