diff --git a/theories/ereal.v b/theories/ereal.v
index 9a0635b77..51a643a27 100644
--- a/theories/ereal.v
+++ b/theories/ereal.v
@@ -572,8 +572,8 @@ Proof.
 move=> has_ubA A0; apply/eqP; rewrite eq_le; apply/andP; split.
   by apply: ub_ereal_sup => /= y [r Ar <-{y}]; rewrite lee_fin sup_ubound.
 set esup := ereal_sup _; have := leey esup.
-rewrite le_eqVlt => /predU1P[->|esupoo]; first by rewrite leey.
-have := leNye esup; rewrite le_eqVlt => /predU1P[/esym|ooesup].
+rewrite [X in _ X]le_eqVlt => /predU1P[->|esupoo]; first by rewrite leey.
+have := leNye esup; rewrite [in X in X -> _]le_eqVlt => /predU1P[/esym|ooesup].
   case: A0 => i Ai.
   by move=> /ereal_sup_ninfty /(_ i%:E) /(_ (ex_intro2 A _ i Ai erefl)).
 have esup_fin_num : esup \is a fin_num.
diff --git a/theories/lebesgue_integral.v b/theories/lebesgue_integral.v
index 27113f584..1a4f1f28b 100644
--- a/theories/lebesgue_integral.v
+++ b/theories/lebesgue_integral.v
@@ -1130,7 +1130,7 @@ apply/eqP; rewrite eq_le; apply/andP; split; last first.
     by apply: ereal_nondecreasing_cvgn => p q pq /=; rewrite lee_fin; exact/nd_g.
   by move/cvg_lim => -> //; apply: ereal_sup_ubound; exists n.
 have := leey (\int[mu]_x (f x)).
-rewrite le_eqVlt => /predU1P[|] mufoo; last first.
+rewrite [in X in X -> _]le_eqVlt => /predU1P[|] mufoo; last first.
   have : \int[mu]_x (f x) \is a fin_num by rewrite ge0_fin_numE// integral_ge0.
   rewrite ge0_integralTE// => /ub_ereal_sup_adherent h.
   apply/lee_addgt0Pr => _/posnumP[e].
@@ -2115,7 +2115,8 @@ have /cvg_ex[l g_l] := @is_cvg_max_g2 t.
 suff : l == f t by move=> /eqP <-.
 rewrite eq_le; apply/andP; split.
   by rewrite /f (le_trans _ (lim_max_g2_f _)) // (cvg_lim _ g_l).
-have := leey l; rewrite le_eqVlt => /predU1P[->|loo]; first by rewrite leey.
+have := leey l; rewrite [in X in X -> _]le_eqVlt => /predU1P[->|loo].
+  by rewrite leey.
 rewrite -(cvg_lim _ g_l) //= lime_le => //.
 near=> n.
 have := leey (g n t); rewrite le_eqVlt => /predU1P[|] fntoo.