Notation for n-ary non-expansive functions.

7e7adcb9 · Robbert Krebbers · dc6db28b · 7e7adcb9
Commit 7e7adcb9 authored Jun 17, 2016 by Robbert Krebbers
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 0 deletions

algebra/cofe.v algebra/cofe.v +4 -0

No files found.
--- a/algebra/cofe.v
+++ b/algebra/cofe.v
@@ -216,6 +216,10 @@ Arguments CofeMor {_ _} _ {_}.
 Add Printing Constructor cofeMor.
 Existing Instance cofe_mor_ne.

+Notation "'λne' x .. y , t" :=
+  (@CofeMor _ _ (λ x, .. (@CofeMor _ _ (λ y, t) _) ..) _)
+  (at level 200, x binder, y binder, right associativity).
+
 Section cofe_mor.
  Context {A B : cofeT}.
  Global Instance cofe_mor_proper (f : cofeMor A B) : Proper ((≡) ==> (≡)) f.