From 9db02b3bfe35c15c9df8615f0e47a2a6407e858b Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Wed, 2 Aug 2017 20:37:12 +0200
Subject: Inserting enter functions in Ltac1 bindings.

---
 tests/example2.v | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

(limited to 'tests/example2.v')

diff --git a/tests/example2.v b/tests/example2.v
index fd5a9044e9..79f230ab57 100644
--- a/tests/example2.v
+++ b/tests/example2.v
@@ -20,6 +20,13 @@ let myvar := Std.NamedHyp @x in split with (?myvar := 0).
 split.
 Qed.
 
+Goal (forall n : nat, n = 0 -> False) -> True.
+Proof.
+intros H.
+eelim &H.
+split.
+Qed.
+
 Goal (forall n : nat, n = 0 -> False) -> True.
 Proof.
 intros H.
@@ -41,3 +48,16 @@ intros P H.
 eapply &H.
 split.
 Qed.
+
+Goal exists n, n = 0.
+Proof.
+Fail constructor 1.
+constructor 1 with (x := 0).
+split.
+Qed.
+
+Goal exists n, n = 0.
+Proof.
+econstructor 1.
+split.
+Qed.
-- 
cgit v1.2.3