diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-03-26 23:31:38 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-03-26 23:31:38 +0000 |
| commit | dd63aa922e6a465e5cd91c3f0746f51adb09f2dc (patch) | |
| tree | cd35095be12a4c85f49c2feb90e3a2c3343743ab /contrib/extraction/extraction.mli | |
| parent | 3dd52dacc7846b85a11f83c398945c00bb65bad2 (diff) | |
Refonte complete de la génération des types ML
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2568 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/extraction/extraction.mli')
| -rw-r--r-- | contrib/extraction/extraction.mli | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/contrib/extraction/extraction.mli b/contrib/extraction/extraction.mli index df11ee14c..31066b0e5 100644 --- a/contrib/extraction/extraction.mli +++ b/contrib/extraction/extraction.mli @@ -18,13 +18,7 @@ open Nametab (*s Result of an extraction. *) -type info = Logic | Info - -type arity = Arity | NotArity - -type type_var = info * arity - -type signature = type_var list +type signature = bool list type extraction_result = | Emltype of ml_type * signature * identifier list @@ -46,5 +40,3 @@ val decl_is_logical_ind : global_reference -> bool a singleton inductive. *) val decl_is_singleton : global_reference -> bool - -val signature : env -> constr -> signature |