fact: Definition slice_category_inhom' (b c : slice) : (slice_category_obj b -> slice_category_obj c) -> Prop := let: existT _ gb := b in let: existT _ gc := c in fun f => Hom.sort gb = gc \o f.
imports: mathcomp(all_ssreflect) mathcomp(boolp) monae_lib category HB(structures)