diff options
| -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 |