From a08733fb871b336e122d65c446bc344a3894cfaf Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Mon, 29 Sep 2014 07:04:28 +0200
Subject: Restoring non-uniform delta on local and global constants in 2nd
 order unification for apply (compatibility reason). Waiting for another way
 to provide a more uniform scheme by default (keyed unification?).

---
 test-suite/success/apply.v | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'test-suite')

diff --git a/test-suite/success/apply.v b/test-suite/success/apply.v
index 6a2012d91d..21b829aa19 100644
--- a/test-suite/success/apply.v
+++ b/test-suite/success/apply.v
@@ -527,3 +527,12 @@ eapply eq_trans. apply H.
 rewrite H0.
 change (x+0=0).
 Abort.
+
+(* 2nd order apply used to have delta on local definitions even though
+   it does not have delta on global definitions; keep it by
+   compatibility while finding a more uniform way to proceed. *)
+
+Goal forall f:nat->nat, (forall P x, P (f x)) -> let x:=f 0 in x = 0.
+intros f H x.
+apply H.
+Qed.
-- 
cgit v1.2.3