1 files changed, 9 insertions, 0 deletions
diff --git a/test-suite/output/ltac.v b/test-suite/output/ltac.v
index 567e21edbe..9a60afe5f6 100644
--- a/test-suite/output/ltac.v
+++ b/test-suite/output/ltac.v
@@ -6,3 +6,12 @@ Fail let T := constr:((fun a b : nat => a+b) 1 1) in
     => pose ((fun x _ => y) 1 1)
   end.
 Abort.
+
+(* This should not raise a warning (see #4317) *)
+Goal True.
+assert (H:= eq_refl ((fun x => x) 1)).
+let HT := type of H in
+lazymatch goal with
+| H1 : HT |- _ => idtac "matched"
+end.
+Abort.