From 3aaf1d2d07bcbc11f97ab42838418d01c389aeec Mon Sep 17 00:00:00 2001
From: Enrico Tassi
Date: Mon, 11 Feb 2019 10:56:55 +0100
Subject: [ssr] keep user annotation on views (fix #9538)

---
 plugins/ssr/ssrparser.mlg  | 6 ++----
 test-suite/ssr/autoclean.v | 4 ++++
 2 files changed, 6 insertions(+), 4 deletions(-)
 create mode 100644 test-suite/ssr/autoclean.v

diff --git a/plugins/ssr/ssrparser.mlg b/plugins/ssr/ssrparser.mlg
index 3fb21e5ef6..2a2cd73df2 100644
--- a/plugins/ssr/ssrparser.mlg
+++ b/plugins/ssr/ssrparser.mlg
@@ -591,10 +591,8 @@ END
 GRAMMAR EXTEND Gram
   GLOBAL: ssrfwdview;
   ssrfwdview: [
-    [  test_not_ssrslashnum; "/"; c = Pcoq.Constr.constr ->
-            { [mk_ast_closure_term `None c] }
-    |  test_not_ssrslashnum; "/"; c = Pcoq.Constr.constr; w = ssrfwdview ->
-                    { (mk_ast_closure_term `None c) :: w } ]];
+    [  test_not_ssrslashnum; "/"; c = ast_closure_term -> { [c] }
+    |  test_not_ssrslashnum; "/"; c = ast_closure_term; w = ssrfwdview -> { c :: w } ]];
 END
 
 (* ipats *)
diff --git a/test-suite/ssr/autoclean.v b/test-suite/ssr/autoclean.v
new file mode 100644
index 0000000000..db80a62259
--- /dev/null
+++ b/test-suite/ssr/autoclean.v
@@ -0,0 +1,4 @@
+Require Import ssreflect.
+
+Lemma view_disappears A B (AB : A -> B) : A -> False.
+Proof. move=> {}/(AB). have := AB. Abort.
-- 
cgit v1.2.3