diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-12-08 17:34:42 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-12-08 17:34:42 +0000 |
commit | 8b3e22ced65c9393b19a2d6b3184d72ae8c32981 (patch) | |
tree | b9c1f04a52f5f7d33015fc0f82f76d0614f4b3fa /plugins/extraction/mlutil.mli | |
parent | 0cd3c11e4a50af7b82a31fc25a6c749521b56d04 (diff) |
Extraction: avoid internal eta-reduction (fix #2570)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14782 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/extraction/mlutil.mli')
-rw-r--r-- | plugins/extraction/mlutil.mli | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/plugins/extraction/mlutil.mli b/plugins/extraction/mlutil.mli index 452fd46c0..21a3d6e19 100644 --- a/plugins/extraction/mlutil.mli +++ b/plugins/extraction/mlutil.mli @@ -27,6 +27,8 @@ val needs_magic : ml_type * ml_type -> bool val put_magic_if : bool -> ml_ast -> ml_ast val put_magic : ml_type * ml_type -> ml_ast -> ml_ast +val not_generalizable : ml_ast -> bool + (*s ML type environment. *) module Mlenv : sig |