diff --git a/theories/heap_lang/lang.v b/theories/heap_lang/lang.v
index 64882ac8f1703f0617f22a0922833907b2a4b166..0df1c405306fb06b5b91fc8ebc849041a0bab73f 100644
--- a/theories/heap_lang/lang.v
+++ b/theories/heap_lang/lang.v
@@ -162,7 +162,7 @@ Definition lit_is_unboxed (l: base_lit) : Prop :=
   (** Disallow comparing (erased) prophecies with (erased) prophecies, by
   considering them boxed. *)
   | LitProphecy _ | LitPoison => False
-  | _ => True
+  | LitInt _ | LitBool _  | LitLoc _ | LitUnit => True
   end.
 Definition val_is_unboxed (v : val) : Prop :=
   match v with