From d147b10a7fede25214416165b6a6ac10b6b827de Mon Sep 17 00:00:00 2001
From: Anton Trunov <anton.a.trunov@gmail.com>
Date: Sun, 4 Mar 2018 18:14:21 +0100
Subject: ssr: add Prenex Implicits for Some_inj to use it as a view

---
 test-suite/bugs/closed/6910.v | 5 +++++
 1 file changed, 5 insertions(+)
 create mode 100644 test-suite/bugs/closed/6910.v

(limited to 'test-suite/bugs/closed/6910.v')

diff --git a/test-suite/bugs/closed/6910.v b/test-suite/bugs/closed/6910.v
new file mode 100644
index 000000000..5167a5364
--- /dev/null
+++ b/test-suite/bugs/closed/6910.v
@@ -0,0 +1,5 @@
+From Coq Require Import ssreflect ssrfun.
+
+(* We should be able to use Some_inj as a view: *)
+Lemma foo (x y : nat) : Some x = Some y -> x = y.
+Proof. by move/Some_inj. Qed.
-- 
cgit v1.2.3