diff --git a/lib/ModuRes/BI.v b/lib/ModuRes/BI.v
index 87644160f65d2688e49a76c28d42ef8ac4b1a5f2..497e463ddebc4a308fd260127938ca4f77a71501 100644
--- a/lib/ModuRes/BI.v
+++ b/lib/ModuRes/BI.v
@@ -40,7 +40,7 @@ Section CompleteBI.
         and_projR   :  forall P Q, and P Q ⊑ Q;
         and_equiv   :> Proper (equiv ==> equiv ==> equiv) and;
         and_dist n  :> Proper (dist n ==> dist n ==> dist n) and;
-        and_pord    :> Proper (pord ==> pord ==> pord) and;
+        and_pord    :> Proper (pord ++> pord ++> pord) and;
         and_impl    :  forall P Q R, and P Q ⊑ R <-> P ⊑ impl Q R;
         impl_equiv  :> Proper (equiv ==> equiv ==> equiv) impl;
         impl_dist n :> Proper (dist n ==> dist n ==> dist n) impl;
@@ -50,13 +50,13 @@ Section CompleteBI.
         or_self     :  forall P, or P P ⊑ P;
         or_equiv    :> Proper (equiv ==> equiv ==> equiv) or;
         or_dist n   :> Proper (dist n ==> dist n ==> dist n) or;
-        or_pord     :> Proper (pord ==> pord ==> pord) or;
+        or_pord     :> Proper (pord ++> pord ++> pord) or;
         sc_comm     :> Commutative sc;
         sc_assoc    :> Associative sc;
         sc_top_unit :  forall P, sc top P == P;
         sc_equiv    :> Proper (equiv ==> equiv ==> equiv) sc;
         sc_dist n   :> Proper (dist n ==> dist n ==> dist n) sc;
-        sc_pord     :> Proper (pord ==> pord ==> pord) sc;
+        sc_pord     :> Proper (pord ++> pord ++> pord) sc;
         sc_si       :  forall P Q R, sc P Q ⊑ R <-> P ⊑ si Q R;
         si_equiv    :> Proper (equiv ==> equiv ==> equiv) si;
         si_dist n   :> Proper (dist n ==> dist n ==> dist n) si;
diff --git a/lib/ModuRes/PreoMet.v b/lib/ModuRes/PreoMet.v
index e91961c329bd259b55e6ffe7acc68dd605e5c7f3..9e259a672d7bcf7f539d57a1a0a1f85c6182571b 100644
--- a/lib/ModuRes/PreoMet.v
+++ b/lib/ModuRes/PreoMet.v
@@ -653,6 +653,7 @@ Section ExtOrdDiscrete.
 End ExtOrdDiscrete.
 
 Section ExtProd.
+  (* FIXME This is a duplicate of stuf in BI.v: There's also an "extensible_prod" there. *)
   Context T U `{ET : extensible T} `{EU : extensible U}. 
 
   Global Instance prod_extensible : extensible (T * U) := mkExtend (fun s s' => pair (extend (fst s) (fst s')) (extend (snd s) (snd s'))).