diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-08-05 10:14:37 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-08-05 10:14:37 +0000 |
| commit | 2dd11f7fb059a23f15d1a9dec1354edd55a15726 (patch) | |
| tree | 167e9bf175de405d2a3c4e9eeca3d87c3e3f2da4 /pretyping/recordops.mli | |
| parent | ff0a77ae90f39c56e82126978a59d957676e0d9e (diff) | |
Suite 11187 et 11298 : ne retarder le dépliage d'une projection
canonique que si elle contribue vraiment à une équation canonique,
c'est-à-dire si son argument principal est une evar; sinon on
répercute le comportement historique qui est de préférer le dépliage
du côté droit d'une équation constante/constante.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11303 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/recordops.mli')
| -rwxr-xr-x | pretyping/recordops.mli | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/pretyping/recordops.mli b/pretyping/recordops.mli index d41ede8bb..020687009 100755 --- a/pretyping/recordops.mli +++ b/pretyping/recordops.mli @@ -47,12 +47,14 @@ type obj_typ = { o_INJ : int; (* position of trivial argument *) o_TABS : constr list; (* ordered *) o_TPARAMS : constr list; (* ordered *) + o_NPARAMS : int; o_TCOMPS : constr list } (* ordered *) 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 is_canonical_projection : constr -> bool +val is_open_canonical_projection : + Evd.evar_map -> (constr * constr list) -> bool val canonical_projections : unit -> ((global_reference * cs_pattern) * obj_typ) list |