diff options
Diffstat (limited to 'kernel/pre_env.ml')
| -rw-r--r-- | kernel/pre_env.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/kernel/pre_env.ml b/kernel/pre_env.ml index 4b04a8862d..7bf7a8901b 100644 --- a/kernel/pre_env.ml +++ b/kernel/pre_env.ml @@ -144,3 +144,8 @@ let lookup_constant kn env = (* Mutual Inductives *) let lookup_mind kn env = KNmap.find kn env.env_globals.env_inductives + +let rec scrape_mind env kn = + match (lookup_mind kn env).mind_equiv with + | None -> kn + | Some kn' -> scrape_mind env kn' |