From de7d2fdb97975dcd94005bb6fa79a312c8afa017 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Sat, 28 Oct 2017 20:07:44 +0200
Subject: Fixing #5401 (printing of patterns with bound anonymous variables).

This fixes also #5731, #6035, #5364.
---
 pretyping/patternops.mli | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'pretyping/patternops.mli')

diff --git a/pretyping/patternops.mli b/pretyping/patternops.mli
index ffe0186af0..2d1ce1dbc9 100644
--- a/pretyping/patternops.mli
+++ b/pretyping/patternops.mli
@@ -22,6 +22,8 @@ val occur_meta_pattern : constr_pattern -> bool
 
 val subst_pattern : substitution -> constr_pattern -> constr_pattern
 
+val noccurn_pattern : int -> constr_pattern -> bool
+
 exception BoundPattern
 
 (** [head_pattern_bound t] extracts the head variable/constant of the
-- 
cgit v1.2.3