diff options
Diffstat (limited to 'pretyping/recordops.mli')
| -rwxr-xr-x | pretyping/recordops.mli | 43 |
1 files changed, 20 insertions, 23 deletions
diff --git a/pretyping/recordops.mli b/pretyping/recordops.mli index a458b7b3..0a05aef6 100755 --- a/pretyping/recordops.mli +++ b/pretyping/recordops.mli @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(*i $Id: recordops.mli,v 1.15.2.2 2005/11/29 21:40:52 letouzey Exp $ i*) +(*i $Id: recordops.mli 9082 2006-08-24 17:03:28Z herbelin $ i*) (*i*) open Names @@ -18,34 +18,31 @@ open Libobject open Library (*i*) -type struc_typ = { - s_CONST : identifier; - s_PARAM : int; - s_PROJ : constant option list } +(*s A structure S is a non recursive inductive type with a single + constructor (the name of which defaults to Build_S) *) -val add_new_struc : - inductive * identifier * int * constant option list -> unit +val declare_structure : + inductive * identifier * bool list * constant option list -> unit -(* [find_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 +(* [lookup_projections isp] returns the projections associated to the + inductive path [isp] if it corresponds to a structure, otherwise + it fails with [Not_found] *) +val lookup_projections : inductive -> constant option list (* 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 objdef_info : (global_reference * global_reference) -> obj_typ -val add_new_objdef : - (global_reference * global_reference) * Term.constr * Term.constr list * - Term.constr list * Term.constr list -> unit - - -val inStruc : inductive * struc_typ -> obj -val outStruc : obj -> inductive * struc_typ -val inObjDef1 : kernel_name -> obj -val outObjDef1 : obj -> kernel_name +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 |