From 37b6aba7e9c30240a22b035a9871cb484ff22d68 Mon Sep 17 00:00:00 2001 From: Robbert Krebbers <mail@robbertkrebbers.nl> Date: Sun, 26 May 2019 17:26:27 +0200 Subject: [PATCH] =?UTF-8?q?Generalize=20`frac=5Fauth=5Ffrag=5Fdiscrete`=20?= =?UTF-8?q?to=20`=E2=89=A0=201`=20fraction.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- theories/algebra/frac_auth.v | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/theories/algebra/frac_auth.v b/theories/algebra/frac_auth.v index 3124b4769..8cae1cb77 100644 --- a/theories/algebra/frac_auth.v +++ b/theories/algebra/frac_auth.v @@ -43,7 +43,7 @@ Section frac_auth. Global Instance frac_auth_auth_discrete a : Discrete a → Discrete (â—! a). Proof. intros; apply auth_auth_discrete; [apply Some_discrete|]; apply _. Qed. - Global Instance frac_auth_frag_discrete a : Discrete a → Discrete (â—¯! a). + Global Instance frac_auth_frag_discrete q a : Discrete a → Discrete (â—¯!{q} a). Proof. intros; apply auth_frag_discrete, Some_discrete; apply _. Qed. Lemma frac_auth_validN n a : ✓{n} a → ✓{n} (â—! a â‹… â—¯! a). -- GitLab