diff --git a/theories/program_logic/language.v b/theories/program_logic/language.v
index 8189151d5739006bfd683cd7dae9844bead6bf35..d600c5e7548eb0a1d2ea70d1445528cd378491be 100644
--- a/theories/program_logic/language.v
+++ b/theories/program_logic/language.v
@@ -82,8 +82,6 @@ Section language.
   Proof. unfold reducible, irreducible. naive_solver. Qed.
   Lemma reducible_not_val e σ : reducible e σ → to_val e = None.
   Proof. intros (?&?&?&?); eauto using val_stuck. Qed.
-  Lemma val_irreducible e σ : is_Some (to_val e) → irreducible e σ.
-  Proof. intros [??] ??? ?%val_stuck. by destruct (to_val e). Qed.
   Global Instance of_val_inj : Inj (=) (=) (@of_val Λ).
   Proof. by intros v v' Hv; apply (inj Some); rewrite -!to_of_val Hv. Qed.