diff --git a/theories/tactics.v b/theories/tactics.v
index aa34f64787afd6b53ee0aee825fd735b39b7cf1c..4b884f34be8d386b67149a3d8f4d0022d0dae99a 100644
--- a/theories/tactics.v
+++ b/theories/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 : ∃ _, _  |- _ =>