diff --git a/theories/base.v b/theories/base.v
index 2573b63d6dadc2b565db7e0312f850359901f91b..532e7467507e931f056e6a879af54da90ac2bb6a 100644
--- a/theories/base.v
+++ b/theories/base.v
@@ -1125,6 +1125,7 @@ Infix "⊑" := sqsubseteq (at level 70) : stdpp_scope.
 Notation "(⊑)" := sqsubseteq (only parsing) : stdpp_scope.
 Notation "( x ⊑)" := (sqsubseteq x) (only parsing) : stdpp_scope.
 Notation "(⊑ y )" := (λ x, sqsubseteq x y) (only parsing) : stdpp_scope.
+Instance sqsubseteq_rewrite `{SqSubsetEq A} : RewriteRelation (⊑).
 
 Class Meet A := meet: A → A → A.
 Hint Mode Meet ! : typeclass_instances.