From 10c5a51cbe100d551b965dd85ae5a027ddb4b2ee Mon Sep 17 00:00:00 2001
From: David Swasey <swasey@mpi-sws.org>
Date: Sun, 26 Nov 2017 16:19:20 +0100
Subject: [PATCH] Eliminate an unnecessary typeclass.

---
 theories/program_logic/ectx_language.v | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/theories/program_logic/ectx_language.v b/theories/program_logic/ectx_language.v
index 37700ac51..598a3d4a2 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').
 
-- 
GitLab