diff options
| author | herbelin | 2001-08-01 08:05:22 +0000 |
|---|---|---|
| committer | herbelin | 2001-08-01 08:05:22 +0000 |
| commit | 459355ffe53fe6457651fe3f75b279fcf1c8ae4b (patch) | |
| tree | acdf9bb5ecefcc663927504a1eaad91ede02ff0c | |
| parent | f5315caaea9fa8130e82601a95ac4279d9e49be5 (diff) | |
Ajout make_elimination_ident
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1869 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | library/declare.ml | 3 | ||||
| -rw-r--r-- | library/declare.mli | 1 |
2 files changed, 4 insertions, 0 deletions
diff --git a/library/declare.ml b/library/declare.ml index db1ae9d980..34e0c1a12f 100644 --- a/library/declare.ml +++ b/library/declare.ml @@ -481,6 +481,9 @@ let elimination_suffix = function | Prop Null -> "_ind" | Prop Pos -> "_rec" +let make_elimination_ident id s = + id_of_string ((string_of_id id) ^ (elimination_suffix s)) + let declare_one_elimination mispec = let mindstr = string_of_id (mis_typename mispec) in let declare na c = diff --git a/library/declare.mli b/library/declare.mli index 43eed7bd8e..ad462534f3 100644 --- a/library/declare.mli +++ b/library/declare.mli @@ -115,4 +115,5 @@ val path_of_constructor_path : constructor_path -> mutual_inductive_path (* Look up function for the default elimination constant *) val elimination_suffix : sorts -> string +val make_elimination_ident : inductive_ident:identifier -> sorts -> identifier val lookup_eliminator : Environ.env -> section_path -> sorts -> constr |