fact: Definition sumOpSpecs (s:sumS) : W (sumP s) := match s with | inl s1 => OpSpecs1 s1 | inr s2 => OpSpecs2 s2 end.
imports: Coq(ssreflect ssrfun) Mon(SPropBase SPropMonadicStructures Monoid SpecificationMonads MonadExamples)