diff --git a/theories/strings.v b/theories/strings.v
index 5c07137409dcca3073c26c7f63fceef9259a6908..7f3d29ba339f82d8e699fc91eb60155da46a1f58 100644
--- a/theories/strings.v
+++ b/theories/strings.v
@@ -23,6 +23,8 @@ Proof. solve_decision. Defined.
 Instance string_app_inj : Inj (=) (=) (String.append s1).
 Proof. intros s1 ???. induction s1; simplify_eq/=; f_equal/=; auto. Qed.
 
+Instance string_inhabited : Inhabited string := populate "".
+
 (* Reverse *)
 Fixpoint string_rev_app (s1 s2 : string) : string :=
   match s1 with