Skip to content
Snippets Groups Projects
Commit 72a05023 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

LeibnizEquiv instance for unit.

parent d7643649
Branches
Tags
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 2 additions and 0 deletions
prelude/base.v
+ 2
− 0
View file @ 72a05023
...@@ -393,6 +393,8 @@ Proof. now intros -> ?. Qed. ...@@ -393,6 +393,8 @@ Proof. now intros -> ?. Qed.
Instance unit_equiv : Equiv unit := λ _ _, True. Instance unit_equiv : Equiv unit := λ _ _, True.
Instance unit_equivalence : Equivalence (@equiv unit _). Instance unit_equivalence : Equivalence (@equiv unit _).
Proof. repeat split. Qed. Proof. repeat split. Qed.
Instance unit_leibniz : LeibnizEquiv unit.
Proof. intros [] []; reflexivity. Qed.
Instance unit_inhabited: Inhabited unit := populate (). Instance unit_inhabited: Inhabited unit := populate ().
(** ** Products *) (** ** Products *)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment