diff options
author | Samuel Mimram <smimram@debian.org> | 2008-07-25 15:12:53 +0200 |
---|---|---|
committer | Samuel Mimram <smimram@debian.org> | 2008-07-25 15:12:53 +0200 |
commit | a0cfa4f118023d35b767a999d5a2ac4b082857b4 (patch) | |
tree | dabcac548e299fee1da464c93b3dba98484f45b1 /pretyping/recordops.mli | |
parent | 2281410e38ef99d025ea77194585a9bc019fdaa9 (diff) |
Imported Upstream version 8.2~beta3+dfsgupstream/8.2.beta3+dfsg
Diffstat (limited to 'pretyping/recordops.mli')
-rwxr-xr-x | pretyping/recordops.mli | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/pretyping/recordops.mli b/pretyping/recordops.mli index 0a05aef6..7a7d941d 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 9082 2006-08-24 17:03:28Z herbelin $ i*) +(*i $Id: recordops.mli 10577 2008-02-19 10:18:19Z corbinea $ i*) (*i*) open Names @@ -36,13 +36,22 @@ val find_projection_nparams : global_reference -> int (* the effective components of a structure and the projections of the *) (* structure *) +type cs_pattern = + Const_cs of global_reference + | Prod_cs + | Sort_cs of sorts_family + | Default_cs + type obj_typ = { o_DEF : constr; + o_INJ : int; (* position of trivial argument *) o_TABS : constr list; (* ordered *) o_TPARAMS : constr list; (* ordered *) o_TCOMPS : constr list } (* ordered *) - -val lookup_canonical_conversion : (global_reference * global_reference) -> obj_typ + +val cs_pattern_of_constr : constr -> cs_pattern * int * constr list + +val lookup_canonical_conversion : (global_reference * cs_pattern) -> obj_typ val declare_canonical_structure : global_reference -> unit val canonical_projections : unit -> - ((global_reference * global_reference) * obj_typ) list + ((global_reference * cs_pattern) * obj_typ) list |