fact: Definition generic {O} {Σ : O ▷ O} `{PMonad _ Σ} {o : O} (p : Operations Σ o) : (Σ :* (λ o', forall a : Arities Σ p, Sorts Σ a = o')) o.
imports: Hask.Ltac Coq.Program.Equality Coq.Unicode.Utf8 FunctionalExtensionality Iso Tuple