diff options
| author | barras | 2006-05-12 18:50:21 +0000 |
|---|---|---|
| committer | barras | 2006-05-12 18:50:21 +0000 |
| commit | 74a9510f976ed99b19d1081799e79aad09c27cdc (patch) | |
| tree | b1224a4e261cbc595359a404ed52f7840d8bc4ad /kernel/pre_env.mli | |
| parent | 041d3b49fc7ca9d0a70f43259e2b099ff21cb9ab (diff) | |
correction bugs de condition de garde (fix + cofix)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8810 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/pre_env.mli')
| -rw-r--r-- | kernel/pre_env.mli | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/kernel/pre_env.mli b/kernel/pre_env.mli index d1250331c3..6144f20cbd 100644 --- a/kernel/pre_env.mli +++ b/kernel/pre_env.mli @@ -83,4 +83,7 @@ val lookup_constant : constant -> env -> constant_body (* Mutual Inductives *) val lookup_mind : mutual_inductive -> env -> mutual_inductive_body +(* Find the ultimate inductive in the [mind_equiv] chain *) +val scrape_mind : env -> mutual_inductive -> mutual_inductive + |