Commit 80b3d10e authored by Robbert Krebbers's avatar Robbert Krebbers

Use `Typeclasses Opaque` for all operational type classes in `base`.

parent 7e77bf8d
This diff is collapsed.
......@@ -191,7 +191,7 @@ Proof.
Qed.
Instance coPset_elem_of_dec : RelDecision (@{coPset}).
Proof. solve_decision. Defined.
Proof. unfold elem_of. solve_decision. Defined.
Instance coPset_equiv_dec : RelDecision (@{coPset}).
Proof. refine (λ X Y, cast_if (decide (X = Y))); abstract (by fold_leibniz). Defined.
Instance mapset_disjoint_dec : RelDecision (##@{coPset}).
......
......@@ -233,7 +233,7 @@ Proof.
Qed.
Global Instance map_subseteq_po : PartialOrder (@{M A}).
Proof.
split; [apply _|].
split; [apply map_included_preorder, _|].
intros m1 m2; rewrite !map_subseteq_spec.
intros; apply map_eq; intros i; apply option_eq; naive_solver.
Qed.
......@@ -1534,8 +1534,10 @@ Qed.
End union_with.
(** ** Properties of the [union] operation *)
Global Instance: LeftId (=@{M A}) () := _.
Global Instance: RightId (=@{M A}) () := _.
Global Instance: LeftId (=@{M A}) ().
Proof. unfold union; apply _. Qed.
Global Instance: RightId (=@{M A}) ().
Proof. unfold union; apply _. Qed.
Global Instance: Assoc (=@{M A}) ().
Proof.
intros A m1 m2 m3. unfold union, map_union, union_with, map_union_with.
......
......@@ -122,7 +122,7 @@ Section setoids.
Global Instance option_equivalence :
Equivalence (@{A}) Equivalence (@{option A}).
Proof. apply _. Qed.
Proof. apply option_Forall2_equiv. Qed.
Global Instance Some_proper : Proper (() ==> (@{option A})) Some.
Proof. by constructor. Qed.
Global Instance Some_equiv_inj : Inj () (@{option A}) Some.
......
......@@ -40,9 +40,9 @@ Lemma scons_equiv s1 s2 : shead s1 = shead s2 → stail s1 ≡ stail s2 → s1
Proof. by constructor. Qed.
Global Instance equal_equivalence : Equivalence (@{stream A}).
Proof.
split.
- now cofix FIX; intros [??]; constructor.
- now cofix FIX; intros ?? [??]; constructor.
unfold equiv, stream_equiv. split.
- cofix FIX; intros [??]; by constructor.
- cofix FIX; intros ?? [??]; by constructor.
- cofix FIX; intros ??? [??] [??]; constructor; etrans; eauto.
Qed.
Global Instance scons_proper x : Proper (() ==> ()) (scons x).
......
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