fact: Definition catA := cons symm ( cons trans ( cons hom_ob1 ( cons hom_ob2 ( cons plug_hom ( cons plug_id ( cons plug_comp_left ( cons plug_comp_right ( cons hom_comp ( cons assoc ( cons id_hom ( cons left_id ( cons right_id ( cons ob_fob ( cons hom_fmor ( cons fmor_id ( cons comp_fmor ( cons fob_fcomp ( cons fmor_fcomp ( nil term))))))))))))))))))).