Commit c6eed539 authored by Robbert Krebbers's avatar Robbert Krebbers

Name some anonymous instances.

parent 260bd0b3
Pipeline #20945 passed with stage
in 10 minutes and 24 seconds
......@@ -31,7 +31,7 @@ Instance listset_nodup_difference: Difference C :=
λ '(ListsetNoDup l Hl) '(ListsetNoDup k Hk),
ListsetNoDup _ (NoDup_list_difference _ k Hl).
Instance: Set_ A C.
Instance listset_nodup_set: Set_ A C.
Proof.
split; [split | | ].
- by apply not_elem_of_nil.
......@@ -42,7 +42,7 @@ Proof.
Qed.
Global Instance listset_nodup_elems: Elements A C := listset_nodup_car.
Global Instance: FinSet A C.
Global Instance listset_nodup_fin_set: FinSet A C.
Proof. split. apply _. done. by intros [??]. Qed.
End list_set.
......
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