fact: Fixpoint OpSpec_mor A (m : Free A) : W A := match m with | retFree a => ret a | @opr _ _ _ s k => bind (OpContSpecs s) (fun ps => OpSpec_mor (k ps)) end.
imports: Coq(ssreflect ssrfun) Mon(SPropBase SPropMonadicStructures Monoid SpecificationMonads MonadExamples)