diff --git a/theories/algebra/frac_auth.v b/theories/algebra/frac_auth.v index 3124b47691239f50e77973cd44d41e12ab0d3dff..8cae1cb777f887e22e5e049359c4567b770864fd 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).