diff options
author | corbinea <corbinea@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-02-14 13:59:33 +0000 |
---|---|---|
committer | corbinea <corbinea@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-02-14 13:59:33 +0000 |
commit | 921f0ef22fcd79e69486e0aec75e57f68dce661e (patch) | |
tree | a8a62246fdbb6363e1f3e1a39d5b8d5ca1c27fcd /pretyping/recordops.mli | |
parent | bb3560885d943baef87b7f99a5d646942f0fb288 (diff) |
Added default canonical structures (see example in test-suite)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10566 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/recordops.mli')
-rwxr-xr-x | pretyping/recordops.mli | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/pretyping/recordops.mli b/pretyping/recordops.mli index c8942b5d4..321584b5b 100755 --- a/pretyping/recordops.mli +++ b/pretyping/recordops.mli @@ -38,11 +38,12 @@ val find_projection_nparams : global_reference -> int 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 lookup_canonical_conversion : (global_reference * global_reference option) -> obj_typ val declare_canonical_structure : global_reference -> unit val canonical_projections : unit -> - ((global_reference * global_reference) * obj_typ) list + ((global_reference * global_reference option) * obj_typ) list |