From c25f2b7d14aa522dd6e2ec7da7cbb9dddbc6688b Mon Sep 17 00:00:00 2001
From: Enrico Tassi
Date: Mon, 29 Oct 2018 12:13:10 +0100
Subject: [ssr] better doc for the IPatDispatch AST

---
 plugins/ssr/ssrast.mli            | 2 +-
 test-suite/bugs/closed/8544.v     | 6 ------
 test-suite/bugs/closed/bug_8544.v | 6 ++++++
 3 files changed, 7 insertions(+), 7 deletions(-)
 delete mode 100644 test-suite/bugs/closed/8544.v
 create mode 100644 test-suite/bugs/closed/bug_8544.v

diff --git a/plugins/ssr/ssrast.mli b/plugins/ssr/ssrast.mli
index 656defef84..931f7044d4 100644
--- a/plugins/ssr/ssrast.mli
+++ b/plugins/ssr/ssrast.mli
@@ -84,7 +84,7 @@ type ssripat =
   | IPatId of (*TODO id_mod option * *) Id.t
   | IPatAnon of anon_iter (* inaccessible name *)
 (* TODO  | IPatClearMark *)
-  | IPatDispatch of bool (*strict*) * ssripatss (* (..|..) *)
+  | IPatDispatch of bool (* if false and the second argument is [[]] then don't check that the number of goals is 1 *) * ssripatss (* (..|..) *)
   | IPatCase of (* ipats_mod option * *) ssripatss (* this is not equivalent to /case /[..|..] if there are already multiple goals *)
   | IPatInj of ssripatss
   | IPatRewrite of (*occurrence option * rewrite_pattern **) ssrocc * ssrdir
diff --git a/test-suite/bugs/closed/8544.v b/test-suite/bugs/closed/8544.v
deleted file mode 100644
index 674d112595..0000000000
--- a/test-suite/bugs/closed/8544.v
+++ /dev/null
@@ -1,6 +0,0 @@
-Require Import ssreflect.
-Goal True \/ True -> False.
-Proof.
-(* the following should fail: 2 subgoals, but only one intro pattern *)
-Fail case => [a].
-Abort.
diff --git a/test-suite/bugs/closed/bug_8544.v b/test-suite/bugs/closed/bug_8544.v
new file mode 100644
index 0000000000..674d112595
--- /dev/null
+++ b/test-suite/bugs/closed/bug_8544.v
@@ -0,0 +1,6 @@
+Require Import ssreflect.
+Goal True \/ True -> False.
+Proof.
+(* the following should fail: 2 subgoals, but only one intro pattern *)
+Fail case => [a].
+Abort.
-- 
cgit v1.2.3