Commit 37b6aba7 authored by Robbert Krebbers's avatar Robbert Krebbers

Generalize `frac_auth_frag_discrete` to `≠ 1` fraction.

parent 9774b1ec
......@@ -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).
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment