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/environ.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/environ.mli')
| -rw-r--r-- | kernel/environ.mli | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/kernel/environ.mli b/kernel/environ.mli index 1b1e227bb2..24e72b9a23 100644 --- a/kernel/environ.mli +++ b/kernel/environ.mli @@ -140,6 +140,9 @@ val add_mind : mutual_inductive -> mutual_inductive_body -> env -> env (* raises [Not_found] if the required path is not found *) 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 + (************************************************************************) (*s Modules *) val add_modtype : kernel_name -> module_type_body -> env -> env |