Coq: be more careful when dealing with wildcard argument patterns

If they're merged with a type variable then we still need to name the
argument so that it can be used in other types.

1 files changed, 10 insertions, 0 deletions

diff --git a/test/coq/pass/wildcardmerge.sail b/test/coq/pass/wildcardmerge.sail
new file mode 100644
index 00000000..ca83b47d
--- /dev/null
+++ b/test/coq/pass/wildcardmerge.sail
@@ -0,0 +1,10 @@
+default Order dec
+$include <prelude.sail>
+
+/* Checks that when merging the type variable with the integer argument,
+   that we name the integer so that we can write the type of the
+   second argument. */
+
+val f : forall 'n, 'n >= 0. (int('n), bits('n)) -> unit
+
+function f(_,_) = ()