Commit 4b0905e4 authored by Robbert Krebbers's avatar Robbert Krebbers

LeibnizEquiv instance for unit.

parent 8a431343
...@@ -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 *)
......
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