diff --git a/theories/tests/proofmode.v b/theories/tests/proofmode.v
index 042948250904c593ab1d385111d45017a218c3e0..5d5e8dff1af72b48d7f508f323d061625b4ab9e4 100644
--- a/theories/tests/proofmode.v
+++ b/theories/tests/proofmode.v
@@ -166,6 +166,15 @@ Proof.
   iSpecialize ("H" $! _ [#10]). done.
 Qed.
 
+(* Check that typeclasses are not resolved too early *)
+Lemma test_TC_resolution `{!BiAffine PROP} (Φ : nat → PROP) l x :
+  x ∈ l → ([∗ list] y ∈ l, Φ y) -∗ Φ x.
+Proof.
+  iIntros (Hp) "HT".
+  iDestruct (bi.big_sepL_elem_of _ _ _ Hp with "HT") as "Hp".
+  done.
+Qed.
+
 Lemma test_eauto_iFrame P Q R `{!Persistent R} :
   P -∗ Q -∗ R → R ∗ Q ∗ P ∗ R ∨ False.
 Proof. eauto 10 with iFrame. Qed.