aboutsummaryrefslogtreecommitdiff
path: root/test-suite
diff options
context:
space:
mode:
authorEmilio Jesus Gallego Arias2020-05-15 17:42:05 +0200
committerEmilio Jesus Gallego Arias2020-05-15 17:42:05 +0200
commit03e0aa5ee57b3b539b0fa34be2e1a02a2803b0be (patch)
treee04fb1b65154093795bebb7f590e32785c53abd6 /test-suite
parent215990f9f2a23d406e8e886c9824a56a120d8347 (diff)
parent6b793e6b39b60cef8c3163cb6cd240e5a0ecbfc5 (diff)
Merge PR #12323: Fixes #12322: anomaly when printing "fun" binders with implicit types
Reviewed-by: ejgallego
Diffstat (limited to 'test-suite')
-rw-r--r--test-suite/output/ImplicitTypes.out6
-rw-r--r--test-suite/output/ImplicitTypes.v3
2 files changed, 9 insertions, 0 deletions
diff --git a/test-suite/output/ImplicitTypes.out b/test-suite/output/ImplicitTypes.out
index 824c260e92..42cb2309e0 100644
--- a/test-suite/output/ImplicitTypes.out
+++ b/test-suite/output/ImplicitTypes.out
@@ -14,6 +14,12 @@ forall b1 b2, b1 = b2
: Prop
fun b => b = b
: bool -> Prop
+fun b c : bool => b = c
+ : bool -> bool -> Prop
+fun c b : bool => b = c
+ : bool -> bool -> Prop
+fun b1 b2 => b1 = b2
+ : bool -> bool -> Prop
fix f b (n : nat) {struct n} : bool :=
match n with
| 0 => b
diff --git a/test-suite/output/ImplicitTypes.v b/test-suite/output/ImplicitTypes.v
index dbc83f9229..205c6a67bf 100644
--- a/test-suite/output/ImplicitTypes.v
+++ b/test-suite/output/ImplicitTypes.v
@@ -23,6 +23,9 @@ Check forall b1 b2, b1 = b2.
(* Check in "fun" *)
Check fun b => b = b.
+Check fun b c => b = c.
+Check fun c b => b = c.
+Check fun b1 b2 => b1 = b2.
(* Check in binders *)
Check fix f b n := match n with 0 => b | S p => f b p end.