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.ml | |
| 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.ml')
| -rw-r--r-- | kernel/environ.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/kernel/environ.ml b/kernel/environ.ml index a1e41c4ec0..7cb0cb5394 100644 --- a/kernel/environ.ml +++ b/kernel/environ.ml @@ -186,6 +186,8 @@ let evaluable_constant cst env = (* Mutual Inductives *) let lookup_mind = lookup_mind +let scrape_mind = scrape_mind + let add_mind kn mib env = let new_inds = KNmap.add kn mib env.env_globals.env_inductives in |