diff --git a/tests/lean/run/988.lean b/tests/lean/run/988.lean
index e9f9f18621..17f31582c6 100644
--- a/tests/lean/run/988.lean
+++ b/tests/lean/run/988.lean
@@ -24,3 +24,12 @@ example (as : Array (Nat → Nat)) (h : 0 + x < as.size) :
 example (as : Array (Nat → Nat)) (h : 0 + x < as.size) :
     as.get ⟨0 + x, h⟩ i = as.get ⟨x, Nat.zero_add x ▸ h⟩ (0+i) := by
   simp -- should also work
+
+-- TODO: generate the following lemma automatically
+@[congr] theorem decide_congr (p q : Prop) (h : p = q) [s₁ : Decidable p] [s₂ : Decidable q] : decide p = decide q := by
+  subst h
+  have : s₁ = s₂ := Subsingleton.elim s₁ s₂
+  subst this
+  rfl
+
+example [Decidable p] : decide (p ∧ True) = decide p := by simp -- should work