aboutsummaryrefslogtreecommitdiff
path: root/test-suite/output/Implicit.v
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/output/Implicit.v')
-rw-r--r--test-suite/output/Implicit.v15
1 files changed, 15 insertions, 0 deletions
diff --git a/test-suite/output/Implicit.v b/test-suite/output/Implicit.v
index 4c6f2b5dd9..d50c98765f 100644
--- a/test-suite/output/Implicit.v
+++ b/test-suite/output/Implicit.v
@@ -18,6 +18,9 @@ Definition d2 x := d1 (y:=x).
Print d2.
+Set Strict Implicit.
+Unset Implicit Arguments.
+
(* Check maximal insertion of implicit *)
Require Import List.
@@ -36,3 +39,15 @@ Definition id' (A:Type) (x:A) := x.
Implicit Arguments id' [[A]].
Check map id' (1::nil).
+
+Unset Maximal Implicit Insertion.
+Unset Implicit Arguments.
+
+(* Check explicit insertion of last non-maximal trailing implicit to ensure *)
+(* correct arity of partiol applications *)
+
+Set Implicit Arguments.
+Definition id'' (A:Type) (x:A) := x.
+
+Check map (@id'' nat) (1::nil).
+