diff --git a/theories/program_logic/ectx_language.v b/theories/program_logic/ectx_language.v
index 37700ac5152957d9d36ce9547d117a356a501c2b..598a3d4a294ec14fbd38b614cdbd3d1cb622e965 100644
--- a/theories/program_logic/ectx_language.v
+++ b/theories/program_logic/ectx_language.v
@@ -129,8 +129,8 @@ Section ectx_language.
 
   Canonical Structure ectx_lang : language := Language ectx_lang_mixin.
 
-  Class HeadAtomic (s : stuckness) (e : expr Λ) : Prop :=
-    head_atomic σ e' σ' efs :
+  Definition HeadAtomic (s : stuckness) (e : expr Λ) : Prop :=
+    ∀ σ e' σ' efs,
       head_step e σ e' σ' efs →
       if s is not_stuck then irreducible e' σ' else is_Some (to_val e').