From e47cdbd232517adf6e6bf411b9f9715c43773fd5 Mon Sep 17 00:00:00 2001
From: herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Sun, 4 Dec 2011 20:48:28 +0000
Subject: A small test for type inference (used to be a regression at some
 time).

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14759 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 test-suite/output/inference.out |  6 ++++++
 test-suite/output/inference.v   | 14 ++++++++++++++
 2 files changed, 20 insertions(+)
 create mode 100644 test-suite/output/inference.out
 create mode 100644 test-suite/output/inference.v

diff --git a/test-suite/output/inference.out b/test-suite/output/inference.out
new file mode 100644
index 000000000..bca3b361a
--- /dev/null
+++ b/test-suite/output/inference.out
@@ -0,0 +1,6 @@
+P = 
+fun e : option L => match e with
+                    | Some cl => Some cl
+                    | None => None
+                    end
+     : option L -> option L
diff --git a/test-suite/output/inference.v b/test-suite/output/inference.v
new file mode 100644
index 000000000..968ea71a9
--- /dev/null
+++ b/test-suite/output/inference.v
@@ -0,0 +1,14 @@
+(* Check that types are not uselessly unfolded *)
+
+(* Check here that P returns something of type "option L" and not
+   "option (list nat)" *)
+
+Definition L := list nat.
+
+Definition P (e:option L) :=
+  match e with
+  | None => None
+  | Some cl => Some cl
+  end.
+
+Print P.
-- 
cgit v1.2.3