1 files changed, 11 insertions, 0 deletions
diff --git a/test-suite/success/apply.v b/test-suite/success/apply.v
index c3d3b0e3b4..7f00417148 100644
--- a/test-suite/success/apply.v
+++ b/test-suite/success/apply.v
@@ -296,3 +296,14 @@ apply H in H0 as ->.
 reflexivity.
 exact I.
 Qed.
+
+(* Check chaining of "apply in" on the last subgoal (assuming that
+   side conditions come first) *)
+
+Lemma chaining :
+  forall B C D : Prop, (True -> B -> C) -> (C -> D) -> B -> D.
+Proof.
+intros.
+apply H, H0 in H1; auto.
+Qed.
+