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/serlib_firstorder/ser_g_ground.ml.html
Source file ser_g_ground.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(************************************************************************) (* 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 Serlib open Sexplib.Conv open Ppx_compare_lib.Builtin open Ppx_hash_lib.Std.Hash.Builtin module Loc = Ser_loc module Names = Ser_names module Libnames = Ser_libnames module Locus = Ser_locus (* module Globnames = Ser_globnames *) type h1 = Libnames.qualid list [@@deriving sexp, hash, compare] type h2 = Names.GlobRef.t Loc.located Locus.or_var list [@@deriving sexp, hash, compare] type h3 = Names.GlobRef.t list [@@deriving sexp,hash,compare] let ser_wit_firstorder_using : (Libnames.qualid list, Names.GlobRef.t Loc.located Locus.or_var list, Names.GlobRef.t list) Ser_genarg.gen_ser = Ser_genarg.{ raw_ser = sexp_of_h1 ; raw_des = h1_of_sexp ; raw_hash = hash_fold_h1 ; raw_compare = compare_h1 ; glb_ser = sexp_of_h2 ; glb_des = h2_of_sexp ; glb_hash = hash_fold_h2 ; glb_compare = compare_h2 ; top_ser = sexp_of_h3 ; top_des = h3_of_sexp ; top_hash = hash_fold_h3 ; top_compare = compare_h3 } let register () = Ser_genarg.register_genser Firstorder_plugin.G_ground.wit_firstorder_using ser_wit_firstorder_using; () let _ = register ()