diff --git a/prelude/tactics.v b/prelude/tactics.v
index 1e35ad8f1705c859a4011f1d097bbb41f291d2a3..40d6622ddf1e97c14b4b3fb19d9de4db8a3473d7 100644
--- a/prelude/tactics.v
+++ b/prelude/tactics.v
@@ -479,6 +479,7 @@ Tactic Notation "naive_solver" tactic(tac) :=
   (**i simplification of assumptions *)
   | H : False |- _ => destruct H
   | H : _ ∧ _ |- _ =>
+     (* Work around bug https://coq.inria.fr/bugs/show_bug.cgi?id=2901 *)
      let H1 := fresh in let H2 := fresh in
      destruct H as [H1 H2]; try clear H
   | H : ∃ _, _  |- _ =>