From 8b3e22ced65c9393b19a2d6b3184d72ae8c32981 Mon Sep 17 00:00:00 2001
From: letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Thu, 8 Dec 2011 17:34:42 +0000
Subject: 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
---
 plugins/extraction/mlutil.mli | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'plugins/extraction/mlutil.mli')

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
-- 
cgit v1.2.3