fact: Record Homomorphism {σ} {A B : Algebra σ} : Type := Build_Homomorphism { def_homomorphism : forall (s : Sort σ), A s -> B s ; is_homomorphism : IsHomomorphism def_homomorphism }.
imports: HoTT.Algebra.Universal.Algebra HoTT.WildCat.Core HoTT.Types