fact: Variables (eta0 : FId ~> G0 \O F0) (eta1 : FId ~> G1 \O F1) (eps0 : F0 \O G0 ~> FId) (eps1 : F1 \O G1 ~> FId) (triL0 : TriangularLaws.left eta0 eps0) (triL1 : TriangularLaws.left eta1 eps1) (triR0 : TriangularLaws.right eta0 eps0) (triR1 : TriangularLaws.right eta1 eps1).
imports: mathcomp(all_ssreflect) mathcomp(boolp) monae_lib HB(structures)