fact: Definition OpCompatible {w : SymbolType σ} (f : Operation A w) : Type := forall (a b : DomOperation A w), (forall i : Arity w, Φ (sorts_dom w i) (a i) (b i)) -> Φ (sort_cod w) (f a) (f b).
imports: HoTT.Algebra.Universal.Algebra HoTT.HProp HoTT.Classes.interfaces.canonical_names HoTT.Algebra.Universal.Homomorphism