package coq
type key = int CEphemeron.key option ref
type constant_key = Declarations.constant_body * (link_info ref * key)
type mind_key = Declarations.mutual_inductive_body * link_info ref
type globals = {
env_constants : constant_key Names.Cmap_env.t;
env_inductives : mind_key Names.Mindmap_env.t;
env_modules : Declarations.module_body Names.MPmap.t;
env_modtypes : Declarations.module_type_body Names.MPmap.t;
}
val force_lazy_val : lazy_val -> (Term.values * Names.Id.Set.t) option
val dummy_lazy_val : unit -> lazy_val
val build_lazy_val : lazy_val -> (Term.values * Names.Id.Set.t) -> unit
type named_context_val = private {
env_named_ctx : Context.Named.t;
env_named_map : (Context.Named.Declaration.t * lazy_val) Names.Id.Map.t;
}
type env = {
env_globals : globals;
env_named_context : named_context_val;
env_rel_context : Context.Rel.t;
env_rel_val : lazy_val list;
env_nb_rel : int;
env_stratification : stratification;
env_typing_flags : Declarations.typing_flags;
env_conv_oracle : Conv_oracle.oracle;
retroknowledge : Retroknowledge.retroknowledge;
indirect_pterms : Opaqueproof.opaquetab;
}
val empty_named_context_val : named_context_val
val empty_env : env
val nb_rel : env -> int
val push_rel : Context.Rel.Declaration.t -> env -> env
val push_named_context_val :
Context.Named.Declaration.t ->
named_context_val ->
named_context_val
val push_named_context_val_val :
Context.Named.Declaration.t ->
lazy_val ->
named_context_val ->
named_context_val
val match_named_context_val :
named_context_val ->
(Context.Named.Declaration.t * lazy_val * named_context_val) option
val map_named_val :
(Term.constr -> Term.constr) ->
named_context_val ->
named_context_val
val push_named : Context.Named.Declaration.t -> env -> env
val lookup_named : Names.Id.t -> env -> Context.Named.Declaration.t
val lookup_named_val : Names.Id.t -> env -> lazy_val
val env_of_named : Names.Id.t -> env -> env
val lookup_constant_key : Names.constant -> env -> constant_key
val lookup_constant : Names.constant -> env -> Declarations.constant_body
val lookup_mind_key : Names.mutual_inductive -> env -> mind_key
val lookup_mind :
Names.mutual_inductive ->
env ->
Declarations.mutual_inductive_body
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>