diff options
| author | herbelin | 2004-03-28 14:41:46 +0000 |
|---|---|---|
| committer | herbelin | 2004-03-28 14:41:46 +0000 |
| commit | a38d0b898b0d4e4c6535c4f583b4e3a56b3199b3 (patch) | |
| tree | 11c9f32ace94624c6f39caee400528506ac5a80b /pretyping/detyping.mli | |
| parent | fceb1fb1a115837ad83b5e456516fdb11c9412f5 (diff) | |
Passage a un 'if-then-else' ou ne sont mentionnes que les membres droits qui sont supposes sans dependances en les arguments des constructeurs
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5589 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/detyping.mli')
| -rw-r--r-- | pretyping/detyping.mli | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/detyping.mli b/pretyping/detyping.mli index 253e0f51c8..7efaf4bbc7 100644 --- a/pretyping/detyping.mli +++ b/pretyping/detyping.mli @@ -26,7 +26,7 @@ val detype : bool * env -> identifier list -> names_context -> constr -> val detype_case : bool -> ('a -> rawconstr) -> (constructor -> int -> 'a -> loc * identifier list * cases_pattern list * - rawconstr) -> + rawconstr) -> ('a -> int -> bool) -> env -> identifier list -> inductive -> case_style -> 'a option -> int -> 'a -> 'a array -> rawconstr |