fact: Definition comp_fmor := functor / X 0 / X 1 / X 2 IMP hom / X 0 / X 3 / X 4 / X 5 IMP hom / X 0 / X 4 / X 6 / X 7 IMP (comp / X 1 / (fmor / X 2 / X 7) / (fmor / X 2 / X 5) EQU fmor / X 2 / (comp / X 0 / X 7 / X 5)).