fact: Record Factorization := { intermediate : Type@{ctxi} ; factor1 : A -> intermediate ; factor2 : intermediate -> B ; fact_factors : factor2 o factor1 == f ; inclass1 : class1 _ _ factor1 ; inclass2 : class2 _ _ factor2 }.
imports: HoTT.Basics HoTT.Types Extensions PathAny