diff --git a/theories/algebra/agree.v b/theories/algebra/agree.v
index 171bc5bf38c2556c171724388c84db384f6fbd2a..355f976b32531c3f07579131c4f7c645e23f41f7 100644
--- a/theories/algebra/agree.v
+++ b/theories/algebra/agree.v
@@ -241,6 +241,9 @@ Proof.
Qed.
Lemma agree_validI {M} x y : ✓ (x ⋅ y) ⊢@{uPredI M} x ≡ y.
Proof. uPred.unseal; split=> r n _ ?; by apply: agree_op_invN. Qed.
+
+Lemma to_agree_uninjI {M} x : ✓ x ⊢@{uPredI M} ∃ a, to_agree a ≡ x.
+Proof. uPred.unseal. split=> n y _. exact: to_agree_uninjN. Qed.
End agree.
Instance: Params (@to_agree) 1.