LeibnizEquiv instance for unit.

4b0905e4 · Robbert Krebbers · 8a431343 · 4b0905e4
Commit 4b0905e4 authored Jul 11, 2016 by Robbert Krebbers
Show whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

base.v theories/base.v +2 -0

No files found.
--- a/theories/base.v
+++ b/theories/base.v
@@ -393,6 +393,8 @@ Proof. now intros -> ?. Qed.
 Instance unit_equiv : Equiv unit := λ _ _, True.
 Instance unit_equivalence : Equivalence (@equiv unit _).
 Proof. repeat split. Qed.
+Instance unit_leibniz : LeibnizEquiv unit.
+Proof. intros [] []; reflexivity. Qed.
 Instance unit_inhabited: Inhabited unit := populate ().

 (** ** Products *)