fact: Definition adj_comp := AdjointFunctors.mk (triL (AdjointFunctors.triL A0) (AdjointFunctors.triL A1)) (triR (AdjointFunctors.triR A0) (AdjointFunctors.triR A1)).
imports: mathcomp(all_ssreflect) mathcomp(boolp) monae_lib HB(structures)