fact: Definition ops_subalgebra (u : Symbol σ) : Operation carriers_subalgebra (σ u) := op_subalgebra u.#A (is_closed_under_ops_subalgebra_predicate A P u).
imports: HoTT.HProp HoTT.Types HoTT.Classes.theory.ua_homomorphism