diff --git a/README.md b/README.md
index bd486c9939efda9d2a95f29a6da7d567e2b7c298..83a36b87bd9c047f6e08976aae39575876cdeff1 100644
--- a/README.md
+++ b/README.md
@@ -90,18 +90,19 @@ The directory structure is as follows.
     [lang/bor_semantics.v](theories/lang/bor_semantics.v). The following table
     matches the definitions in the technical [appendix] with the Coq definitions.
 
-    | Definitions in [appendix]      | Coq definitions in `bor_semantics.v` |
-    |--------------------------------|--------------------------------------|
-    | `Grants`                       | `grants`                             |
-    | `FindGranting`                 | `find_granting`                      |
-    | `FindFirstWIncompat`           | `find_first_write_incompatible`      |
-    | `MemRead`                      | `memory_read`                        |
-    | `MemWritten`                   | `memory_written`                     |
-    | `Dealloc`                      | `dealloc1`                           |
-    | `MemDeallocated`               | `memory_deallocated`                 |
-    | `GrantTag`                     | `grant`                              |
-    | `Reborrow`                     | `reborrow`                           |
-    | `Retag`                        | `retag`                              |
+    | Definitions in [appendix]      | Coq definitions in `bor_semantics.v` | [Implementation] in Miri |
+    |--------------------------------|--------------------------------------|--------------------------|
+    | `Grants`                       | `grants`                             | Permission::grants       |
+    | `FindGranting`                 | `find_granting`                      | Stack::find_granting     |
+    | `FindFirstWIncompat`           | `find_first_write_incompatible`      | Stack::find_first_write_incompaible |
+    | `Access`                       | `access1`                            | Stack::access            |
+    | `MemAccessed(_,_,AccessRead)`  | `memory_read`                        | Stacks::memory_read      |
+    | `MemAccessed(_,_,AccessWrite)` | `memory_written`                     | Stacks::memory_written   |
+    | `Dealloc`                      | `dealloc1`                           | Stack::dealloc           |
+    | `MemDeallocated`               | `memory_deallocated`                 | Stacks::memory_deallocated |
+    | `GrantTag`                     | `grant`                              | Stack::grant             |
+    | `Reborrow`                     | `reborrow`                           | EvalContextPrivExt::reborrow |
+    | `Retag`                        | `retag`                              | EvalContextPrivExt::retag_reference |
 
   - The complete language is then combined in [lang/lang.v](theories/lang/lang.v).
 
@@ -161,3 +162,5 @@ The repository is BSD-licensed.
 
 The relevant commit hashes (used when generating the artifact) can be found
 in the file [generation_data.txt](generation_data.txt).
+
+[Implementation]: https://github.com/rust-lang/miri/blob/8c09bfee2f44754bed46673517ba906f362d951e/src/stacked_borrows.rs
diff --git a/theories/lang/bor_semantics.v b/theories/lang/bor_semantics.v
index c95b0cc2c995b60bb0c028c0785f69872c112f64..a36956cfb7e52c92ab4331d5ee52219f54f7131f 100644
--- a/theories/lang/bor_semantics.v
+++ b/theories/lang/bor_semantics.v
@@ -36,6 +36,7 @@ Definition find_granting (stk: stack) (access: access_kind) (bor: tag) :
 
 Definition is_active (cids: call_id_stack) (c: call_id) : bool :=
   bool_decide (c ∈ cids).
+(* FIXME: this one should exclude protectors of Disabled items *)
 Definition is_active_protector cids (it: item) :=
   match it.(protector) with
   | Some c => Is_true (is_active cids c)