Section s.
Context `{X:lops} {I: Type}.
Global Instance sup_weq: Proper (pointwise_relation _ weq ==> weq ==> weq) sup.
End s.
Infix "=="   := weq (at level 79).
Infix "*" := (dot _ _ _)      (left associativity, at level 40).
Notation "∑_ ( i ∈ l ) f" := (@sup (mor _ _) _ (fun i => f) l)
(at level 41, f at level 41, i, l at level 50).

Axiom dotxsum : forall `{X : ops} I J n m p (f: I -> X m n) (x: X p m) y,
x * (∑_(i∈ J) f i) == y.