package coq-serapi
Serialization library and protocol for machine interaction with the Coq proof assistant
Install
Dune Dependency
Authors
Maintainers
Sources
coq-serapi-8.16.0.0.16.1.tbz
sha256=f1070e6fa36ecf042319a14f621f26a331075f3777dfb85a0afbac6e3323e9d4
sha512=efbd947aa6750672f089b7b8604c798033793510eea1c45f4265df5f548b2ecdd3e69d5cb49b0714c09de1012fe358f618c9b1f4610a33339a151b4fdac42321
doc/src/coq-serapi.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 55 56 57 58 59 60 61
(************************************************************************) (* * The Coq Proof Assistant / The Coq Development Team *) (* v * INRIA, CNRS and contributors - Copyright 1999-2018 *) (* <O___,, * (see CREDITS file for the list of authors) *) (* \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) *) (************************************************************************) (************************************************************************) (* Coq serialization API/Plugin *) (* Copyright 2016-2019 MINES ParisTech *) (* Written by: Emilio J. Gallego Arias *) (************************************************************************) (* Status: Very Experimental *) (************************************************************************) open Sexplib.Std open Ppx_hash_lib.Std.Hash.Builtin open Ppx_compare_lib.Builtin module Names = Ser_names module Univ = Ser_univ module Constr = Ser_constr type abstr_info = { abstr_ctx : Constr.named_context; abstr_auctx : Univ.AbstractContext.t; abstr_ausubst : Univ.Instance.t; } [@@deriving sexp,yojson,hash,compare] type abstr_inst_info = { abstr_rev_inst : Names.Id.t list; abstr_uinst : Univ.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 let sexp_of_cooking_info = B_.sexp_of_t let cooking_info_of_sexp = B_.t_of_sexp let cooking_info_of_yojson = B_.of_yojson let cooking_info_to_yojson = B_.to_yojson let hash_cooking_info = B_.hash let hash_fold_cooking_info = B_.hash_fold_t let compare_cooking_info = B_.compare
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>