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

`reflexivity` hint for `_ ⊑ _`.

As we have for all classes for binary relations.
parent 11b9fbe1
No related branches found
No related tags found
No related merge requests found
Pipeline #
...@@ -1138,6 +1138,8 @@ Notation "( x ⊑)" := (sqsubseteq x) (only parsing) : stdpp_scope. ...@@ -1138,6 +1138,8 @@ Notation "( x ⊑)" := (sqsubseteq x) (only parsing) : stdpp_scope.
Notation "(⊑ y )" := (λ x, sqsubseteq x y) (only parsing) : stdpp_scope. Notation "(⊑ y )" := (λ x, sqsubseteq x y) (only parsing) : stdpp_scope.
Instance sqsubseteq_rewrite `{SqSubsetEq A} : RewriteRelation (). Instance sqsubseteq_rewrite `{SqSubsetEq A} : RewriteRelation ().
Hint Extern 0 (_ _) => reflexivity.
Class Meet A := meet: A A A. Class Meet A := meet: A A A.
Hint Mode Meet ! : typeclass_instances. Hint Mode Meet ! : typeclass_instances.
Instance: Params (@meet) 2. Instance: Params (@meet) 2.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment