From 7b2a24d0beee17b61281a5c64fca5cf7388479d3 Mon Sep 17 00:00:00 2001 From: herbelin Date: Fri, 18 Feb 2005 22:17:50 +0000 Subject: Moving centralised discharge into dispatched discharge_function; required to delay some computation from before to after caching time + various simplifications and uniformisations git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6748 85f007b7-540e-0410-9357-904b9bb8a0f7 --- pretyping/recordops.mli | 36 ++++++++++++++++++------------------ 1 file changed, 18 insertions(+), 18 deletions(-) (limited to 'pretyping/recordops.mli') diff --git a/pretyping/recordops.mli b/pretyping/recordops.mli index 7402f74c9..d6f90e11e 100755 --- a/pretyping/recordops.mli +++ b/pretyping/recordops.mli @@ -18,36 +18,36 @@ open Libobject open Library (*i*) +(*s A structure S is a non recursive inductive type with a single + constructor (the name of which defaults to Build_S) *) + type struc_typ = { s_CONST : identifier; s_PARAM : int; + s_PROJKIND : bool list; s_PROJ : constant option list } -val add_new_struc : - inductive * identifier * int * constant option list -> unit +val declare_structure : + inductive * identifier * int * bool list * constant option list -> unit -(* [find_structure isp] returns the infos associated to inductive path +(* [lookup_structure isp] returns the infos associated to inductive path [isp] if it corresponds to a structure, otherwise fails with [Not_found] *) -val find_structure : inductive -> struc_typ +val lookup_structure : inductive -> struc_typ (* raise [Not_found] if not a projection *) val find_projection_nparams : global_reference -> int +(*s A canonical structure declares "canonical" conversion hints between *) +(* the effective components of a structure and the projections of the *) +(* structure *) + type obj_typ = { o_DEF : constr; - o_TABS : constr list; (* dans l'ordre *) - o_TPARAMS : constr list; (* dans l'ordre *) - o_TCOMPS : constr list } (* dans l'ordre *) + o_TABS : constr list; (* ordered *) + o_TPARAMS : constr list; (* ordered *) + o_TCOMPS : constr list } (* ordered *) -val canonical_structure_info : - (global_reference * global_reference) -> obj_typ -val add_canonical_structure : - constant * ((global_reference * global_reference) * obj_typ) list -> unit - -val inStruc : inductive * struc_typ -> obj -val outStruc : obj -> inductive * struc_typ - -val outCanonicalStructure : obj -> constant - -val canonical_structures : unit -> +val lookup_canonical_conversion : (global_reference * global_reference) -> obj_typ +val declare_canonical_structure : global_reference -> unit +val canonical_projections : unit -> ((global_reference * global_reference) * obj_typ) list -- cgit v1.2.3