1 files changed, 9 insertions, 0 deletions
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.