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.3.tbz
sha256=66137df53e01398a26e9e51056af7439997bcf562fbe4503946fe89e0c5df443
sha512=5c71f7acd4537c33853122d9c526e61f35d2934504c77ce95196f8d595f1c619a680fccd46ba9deb69b509eeb936984056380b18b65fae617ae1cce704df90a1
doc/src/serlib_ltac2/ser_tac2env.ml.html
Source file ser_tac2env.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
open Serlib open Ltac2_plugin open Sexplib.Std open Ppx_hash_lib.Std.Hash.Builtin open Ppx_compare_lib.Builtin module Util = Ser_util module Loc = Ser_loc module CAst = Ser_cAst module Names = Ser_names module Tac2expr = Ser_tac2expr module WL2 = struct type raw = Tac2expr.uid CAst.t list * Tac2expr.raw_tacexpr [@@deriving sexp,hash,compare] type glb = Tac2expr.uid list * Tac2expr.glb_tacexpr [@@deriving sexp,hash,compare] type top = Util.Empty.t [@@deriving sexp,hash,compare] end let ser_wit_ltac2 = let module M = Ser_genarg.GS(WL2) in M.genser module WLC2 = struct type raw = Tac2expr.raw_tacexpr [@@deriving sexp,hash,compare] type glb = Names.Id.Set.t * Tac2expr.glb_tacexpr [@@deriving sexp,hash,compare] type top = Util.Empty.t [@@deriving sexp,hash,compare] end let ser_wit_ltac2_constr = let module M = Ser_genarg.GS(WLC2) in M.genser module WLQ2 = struct type raw = Tac2expr.uid Loc.located [@@deriving sexp,hash,compare] type glb = Tac2expr.uid [@@deriving sexp,hash,compare] type top = Util.Empty.t [@@deriving sexp,hash,compare] end let ser_wit_ltac2_quotation = let module M = Ser_genarg.GS(WLQ2) in M.genser module WLV2 = struct type raw = Util.Empty.t [@@deriving sexp,hash,compare] type glb = unit [@@deriving sexp,hash,compare] type top = Util.Empty.t [@@deriving sexp,hash,compare] end let ser_wit_ltac2_val = let module M = Ser_genarg.GS(WLV2) in M.genser let register () = Ser_genarg.register_genser Tac2env.wit_ltac2 ser_wit_ltac2; Ser_genarg.register_genser Tac2env.wit_ltac2_constr ser_wit_ltac2_constr; Ser_genarg.register_genser Tac2env.wit_ltac2_quotation ser_wit_ltac2_quotation; Ser_genarg.register_genser Tac2env.wit_ltac2_val ser_wit_ltac2_val; () let () = register ()
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>