From 2ac0d62e7765e26d9538918cbf582046a97932c7 Mon Sep 17 00:00:00 2001 From: letouzey Date: Sat, 1 May 2010 22:31:36 +0000 Subject: Extraction: fix type_expunge_from_sign broken in last commit git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12983 85f007b7-540e-0410-9357-904b9bb8a0f7 --- plugins/extraction/mlutil.mli | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'plugins/extraction/mlutil.mli') diff --git a/plugins/extraction/mlutil.mli b/plugins/extraction/mlutil.mli index f4ab66746..42787a540 100644 --- a/plugins/extraction/mlutil.mli +++ b/plugins/extraction/mlutil.mli @@ -114,3 +114,14 @@ val inline : global_reference -> ml_ast -> bool exception Occurs of int +(* Classification of signatures *) + +type sign_kind = + | EmptySig + | NonLogicalSig (* at least a [Keep] *) + | UnsafeLogicalSig (* No [Keep], at least a [Kill Kother] *) + | SafeLogicalSig (* only [Kill Ktype] *) + +val sign_kind : signature -> sign_kind + +val sign_no_final_keeps : signature -> signature -- cgit v1.2.3