diff --git a/algebra/cmra_big_op.v b/algebra/cmra_big_op.v index 58d580778c1c9c8da9c37c8b2d18516e30beb11d..b9f814a95ffc1cd57573911a5f9532e519dbd686 100644 --- a/algebra/cmra_big_op.v +++ b/algebra/cmra_big_op.v @@ -44,6 +44,9 @@ Typeclasses Opaque big_opM. Notation "'[⋅' 'map' ] k ↦ x ∈ m , P" := (big_opM m (λ k x, P)) (at level 200, m at level 10, k, x at level 1, right associativity, format "[⋅ map ] k ↦ x ∈ m , P") : C_scope. +Notation "'[⋅' 'map' ] x ∈ m , P" := (big_opM m (λ _ x, P)) + (at level 200, m at level 10, x at level 1, right associativity, + format "[⋅ map ] x ∈ m , P") : C_scope. Definition big_opS {M : ucmraT} `{Countable A} (X : gset A) (f : A → M) : M := [⋅] (f <$> elements X). diff --git a/algebra/upred_big_op.v b/algebra/upred_big_op.v index c9ae5148c36f5826aab548cc3ec81227ba668597..64aed4cf4d46b75483e867ba68fb4d0316f739ba 100644 --- a/algebra/upred_big_op.v +++ b/algebra/upred_big_op.v @@ -47,6 +47,9 @@ Typeclasses Opaque uPred_big_sepM. Notation "'[★' 'map' ] k ↦ x ∈ m , P" := (uPred_big_sepM m (λ k x, P)) (at level 200, m at level 10, k, x at level 1, right associativity, format "[★ map ] k ↦ x ∈ m , P") : uPred_scope. +Notation "'[★' 'map' ] x ∈ m , P" := (uPred_big_sepM m (λ _ x, P)) + (at level 200, m at level 10, x at level 1, right associativity, + format "[★ map ] x ∈ m , P") : uPred_scope. Definition uPred_big_sepS {M} `{Countable A} (X : gset A) (Φ : A → uPred M) : uPred M := [★] (Φ <$> elements X).