diff options
| author |  Matthieu Sozeau <mattam@mattam.org> | 2016-03-14 11:16:19 +0100 |
|---|---|---|
| committer | Matthieu Sozeau <mattam@mattam.org> | 2016-06-16 18:21:08 +0200 |
| commit | d4a421e57d74d305a797897f43ce216fb4c39719 (patch) | |
| tree | e1f8d60abddc2b4d93844b7fca8400380e268f95 /theories/Classes | |
| parent | 0767b8eace843ee45f2f3fc2b80a13ce6ed336c7 (diff) | |
Typeclasses: stdlib fixes for new search algorithm
Diffstat (limited to 'theories/Classes')
| -rw-r--r-- | theories/Classes/RelationPairs.v | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/theories/Classes/RelationPairs.v b/theories/Classes/RelationPairs.v index cbde5f9ab..8d1c49822 100644 --- a/theories/Classes/RelationPairs.v +++ b/theories/Classes/RelationPairs.v @@ -43,6 +43,9 @@ Generalizable Variables A B RA RB Ri Ro f. Definition RelCompFun {A} {B : Type}(R:relation B)(f:A->B) : relation A := fun a a' => R (f a) (f a'). +(** Instances on RelCompFun must match syntactically *) +Typeclasses Opaque RelCompFun. + Infix "@@" := RelCompFun (at level 30, right associativity) : signature_scope. Notation "R @@1" := (R @@ Fst)%signature (at level 30) : signature_scope. @@ -65,6 +68,8 @@ Instance snd_measure : @Measure (A * B) B Snd. Definition RelProd {A : Type} {B : Type} (RA:relation A)(RB:relation B) : relation (A*B) := relation_conjunction (@RelCompFun (A * B) A RA fst) (RB @@2). +Typeclasses Opaque RelProd. + Infix "*" := RelProd : signature_scope. Section RelCompFun_Instances. |