From 6d0a38cbdc471161bfa89a86088276e11101aeba Mon Sep 17 00:00:00 2001
From: Ralf Jung <jung@mpi-sws.org>
Date: Tue, 16 Aug 2016 09:57:18 +0200
Subject: [PATCH] note down equivalent def.n of frame_step by Jeehoon

---
 algebra/sts.v | 1 +
 1 file changed, 1 insertion(+)

diff --git a/algebra/sts.v b/algebra/sts.v
index c57aec290..6d7346321 100644
--- a/algebra/sts.v
+++ b/algebra/sts.v
@@ -30,6 +30,7 @@ Inductive step : relation (state sts * tokens sts) :=
      tok s1 ∪ T1 ≡ tok s2 ∪ T2 → step (s1,T1) (s2,T2).
 Notation steps := (rtc step).
 Inductive frame_step (T : tokens sts) (s1 s2 : state sts) : Prop :=
+  (* Probably equivalent definition: (\mathcal{L}(s') ⊥ T) ∧ s \rightarrow s' *)
   | Frame_step T1 T2 :
      T1 ⊥ tok s1 ∪ T → step (s1,T1) (s2,T2) → frame_step T s1 s2.
 Notation frame_steps T := (rtc (frame_step T)).
-- 
GitLab