diff options
| author |  Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2016-05-03 14:06:17 +0200 |
|---|---|---|
| committer | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2016-05-03 14:10:46 +0200 |
| commit | 443857fe1bbecf089eb40d522a71a014273c5a23 (patch) | |
| tree | 6217f4e3b9d9c77e68ad8c5cf869f3f89ca9fa1a /pretyping/indrec.ml | |
| parent | 780f3424fb741385f063864d9b15b2c3e3fc419a (diff) | |
Use the canonical name when looking for an eliminator (bug #4670).
Disclaimer: I have no idea what I am doing.
Diffstat (limited to 'pretyping/indrec.ml')
| -rw-r--r-- | pretyping/indrec.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/indrec.ml b/pretyping/indrec.ml index 0588dcc87..589b8d82a 100644 --- a/pretyping/indrec.ml +++ b/pretyping/indrec.ml @@ -598,7 +598,7 @@ let make_elimination_ident id s = add_suffix id (elimination_suffix s) let lookup_eliminator ind_sp s = let kn,i = ind_sp in - let mp,dp,l = repr_mind kn in + let mp,dp,l = KerName.repr (MutInd.canonical kn) in let ind_id = (Global.lookup_mind kn).mind_packets.(i).mind_typename in let id = add_suffix ind_id (elimination_suffix s) in (* Try first to get an eliminator defined in the same section as the *) |