From 05b7229dbe7467a43e85779fda96c21a5c36decf Mon Sep 17 00:00:00 2001
From: Ralf Jung <jung@mpi-sws.org>
Date: Wed, 10 Feb 2016 19:06:52 +0100
Subject: [PATCH] make auth.v work again

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

diff --git a/program_logic/auth.v b/program_logic/auth.v
index 4db4ae196..0424bacab 100644
--- a/program_logic/auth.v
+++ b/program_logic/auth.v
@@ -61,8 +61,8 @@ Section auth.
   (* TODO: This notion should probably be defined in algebra/,
      with instances proven for the important constructions. *)
   Definition auth_step a b :=
-    (∀ n a' af, ✓{S n} (a ⋅ a') → a ⋅ a' ≡{S n}≡ af ⋅ a →
-                b ⋅ a' ≡{S n}≡ b ⋅ af ∧ ✓{S n} (b ⋅ a')).
+    (∀ n a' af, ✓{n} (a ⋅ a') → a ⋅ a' ≡{n}≡ af ⋅ a →
+                b ⋅ a' ≡{n}≡ b ⋅ af ∧ ✓{n} (b ⋅ a')).
 
   Lemma auth_closing a a' b γ :
     auth_step a b →
-- 
GitLab