package why3
type namespace = {
ns_ts : Ty.tysymbol Wstdlib.Mstr.t;
ns_ls : Term.lsymbol Wstdlib.Mstr.t;
ns_pr : Decl.prsymbol Wstdlib.Mstr.t;
ns_ns : namespace Wstdlib.Mstr.t;
}
val empty_ns : namespace
val ns_find_ts : namespace -> string list -> Ty.tysymbol
val ns_find_ls : namespace -> string list -> Term.lsymbol
val ns_find_pr : namespace -> string list -> Decl.prsymbol
type meta_arg =
| MAty of Ty.ty
| MAts of Ty.tysymbol
| MAls of Term.lsymbol
| MApr of Decl.prsymbol
| MAstr of string
| MAint of int
| MAid of Ident.ident
type meta = private {
meta_name : string;
meta_type : meta_arg_type list;
meta_excl : bool;
meta_desc : Pp.formatted;
meta_tag : int;
}
val print_meta_desc : Pp.formatter -> meta -> unit
module Mmeta : sig ... end
module Smeta : sig ... end
module Hmeta : sig ... end
val meta_hash : meta -> int
val register_meta : desc:Pp.formatted -> string -> meta_arg_type list -> meta
val register_meta_excl :
desc:Pp.formatted ->
string ->
meta_arg_type list ->
meta
val lookup_meta : string -> meta
val list_metas : unit -> meta list
val meta_range : meta
val meta_float : meta
val meta_projection : meta
val meta_record : meta
type theory = private {
th_name : Ident.ident;
th_path : string list;
th_decls : tdecl list;
th_ranges : tdecl Ty.Mts.t;
th_floats : tdecl Ty.Mts.t;
th_crcmap : Coercion.t;
th_export : namespace;
th_known : Decl.known_map;
th_local : Ident.Sid.t;
th_used : Ident.Sid.t;
}
and symbol_map = {
sm_ty : Ty.ty Ty.Mts.t;
sm_ts : Ty.tysymbol Ty.Mts.t;
sm_ls : Term.lsymbol Term.Mls.t;
sm_pr : Decl.prsymbol Decl.Mpr.t;
}
module Mtdecl : sig ... end
module Stdecl : sig ... end
module Htdecl : sig ... end
val td_hash : tdecl -> int
type theory_uc = private {
uc_name : Ident.ident;
uc_path : string list;
uc_decls : tdecl list;
uc_ranges : tdecl Ty.Mts.t;
uc_floats : tdecl Ty.Mts.t;
uc_crcmap : Coercion.t;
uc_prefix : string list;
uc_import : namespace list;
uc_export : namespace list;
uc_known : Decl.known_map;
uc_local : Ident.Sid.t;
uc_used : Ident.Sid.t;
}
val create_theory : ?path:string list -> Ident.preid -> theory_uc
val restore_path : Ident.ident -> string list * string * string list
val restore_theory : Ident.ident -> theory
val add_ty_decl : theory_uc -> Ty.tysymbol -> theory_uc
val add_data_decl : theory_uc -> Decl.data_decl list -> theory_uc
val add_param_decl : theory_uc -> Term.lsymbol -> theory_uc
val add_logic_decl : theory_uc -> Decl.logic_decl list -> theory_uc
val add_ind_decl :
theory_uc ->
Decl.ind_sign ->
Decl.ind_decl list ->
theory_uc
val add_prop_decl :
?warn:bool ->
theory_uc ->
Decl.prop_kind ->
Decl.prsymbol ->
Term.term ->
theory_uc
val attr_w_non_conservative_extension_no : Ident.attribute
type th_inst = {
inst_ty : Ty.ty Ty.Mts.t;
inst_ts : Ty.tysymbol Ty.Mts.t;
inst_ls : Term.lsymbol Term.Mls.t;
inst_pr : Decl.prop_kind Decl.Mpr.t;
inst_df : Decl.prop_kind;
}
val empty_inst : th_inst
val warn_clone_not_abstract : Loc.position -> theory -> unit
val add_clone_internal : unit -> theory_uc -> theory -> symbol_map -> theory_uc
val meta_coercion : meta
val clone_meta : tdecl -> theory -> symbol_map -> tdecl option
val builtin_theory : theory
val bool_theory : theory
val highord_theory : theory
val tuple_theory : int -> theory
type bad_instance =
| BadI of Ident.ident
| BadI_ty_vars of Ty.tysymbol
| BadI_ty_ner of Ty.tysymbol
| BadI_ty_impure of Ty.tysymbol
| BadI_ty_arity of Ty.tysymbol
| BadI_ty_rec of Ty.tysymbol
| BadI_ty_mut_lhs of Ty.tysymbol
| BadI_ty_mut_rhs of Ty.tysymbol
| BadI_ty_alias of Ty.tysymbol
| BadI_field of Ty.tysymbol * Term.vsymbol
| BadI_field_type of Ty.tysymbol * Term.vsymbol
| BadI_field_ghost of Ty.tysymbol * Term.vsymbol
| BadI_field_mut of Ty.tysymbol * Term.vsymbol
| BadI_field_inv of Ty.tysymbol * Term.vsymbol
| BadI_ls_type of Term.lsymbol
| BadI_ls_kind of Term.lsymbol
| BadI_ls_arity of Term.lsymbol
| BadI_ls_rs of Term.lsymbol
| BadI_rs_arity of Ident.ident
| BadI_rs_type of Ident.ident
| BadI_rs_kind of Ident.ident
| BadI_rs_ghost of Ident.ident
| BadI_rs_mask of Ident.ident
| BadI_rs_reads of Ident.ident * Term.Svs.t
| BadI_rs_writes of Ident.ident * Term.Svs.t
| BadI_rs_taints of Ident.ident * Term.Svs.t
| BadI_rs_covers of Ident.ident * Term.Svs.t
| BadI_rs_resets of Ident.ident * Term.Svs.t
| BadI_rs_raises of Ident.ident * Ident.Sid.t
| BadI_rs_spoils of Ident.ident * Ty.Stv.t
| BadI_rs_oneway of Ident.ident
| BadI_xs_type of Ident.ident
| BadI_xs_mask of Ident.ident
exception NonLocal of Ident.ident
exception BadInstance of bad_instance
exception CannotInstantiate of Ident.ident
exception KnownMeta of meta
exception BadMetaArity of meta * int
exception MetaTypeMismatch of meta * meta_arg_type * meta_arg_type
exception RangeConflict of Ty.tysymbol
exception FloatConflict of Ty.tysymbol
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>