From 3007909ca1f65132bd0850d2be57e781e55707bd Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Wed, 2 Aug 2017 18:51:19 +0200
Subject: Tentatively implementing apply.

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

(limited to 'tests/example2.v')

diff --git a/tests/example2.v b/tests/example2.v
index ca9e3dcff5..fd5a9044e9 100644
--- a/tests/example2.v
+++ b/tests/example2.v
@@ -26,3 +26,18 @@ intros H.
 elim &H with 0.
 split.
 Qed.
+
+Goal forall (P : nat -> Prop), (forall n m, n = m -> P n) -> P 0.
+Proof.
+intros P H.
+Fail apply &H.
+apply &H with (m := 0).
+split.
+Qed.
+
+Goal forall (P : nat -> Prop), (forall n m, n = m -> P n) -> P 0.
+Proof.
+intros P H.
+eapply &H.
+split.
+Qed.
-- 
cgit v1.2.3