diff options
| author | SimonBoulier | 2019-06-07 14:16:41 +0200 |
|---|---|---|
| committer | SimonBoulier | 2019-08-16 11:43:51 +0200 |
| commit | d6d8229dd8d71cf8cac1d116426bf772a9b8821b (patch) | |
| tree | ce22fd5fc13625243d3852ea84bb61c12affe5b1 /kernel/environ.ml | |
| parent | 3ae2b2383dc20a8c128acc4a090a41a5a236034b (diff) | |
Fix typing_flags in the checker
Now all relevant typing_flags are taken in account by the checker.
The different forms of assumptions are now printed by the checker.
Diffstat (limited to 'kernel/environ.ml')
| -rw-r--r-- | kernel/environ.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/kernel/environ.ml b/kernel/environ.ml index 1b17e954b7..655094e88b 100644 --- a/kernel/environ.ml +++ b/kernel/environ.ml @@ -216,6 +216,9 @@ let lookup_named_ctxt id ctxt = let fold_constants f env acc = Cmap_env.fold (fun c (body,_) acc -> f c body acc) env.env_globals.env_constants acc +let fold_inductives f env acc = + Mindmap_env.fold (fun c (body,_) acc -> f c body acc) env.env_globals.env_inductives acc + (* Global constants *) let lookup_constant_key kn env = |