fact: Definition complements_to_in A B := [set K : {group gT} | A :&: K == 1 & A * K == B].
imports: HB(structures) mathcomp(ssreflect ssrbool ssrfun eqtype ssrnat seq div) mathcomp(choice fintype bigop finset fingroup morphism) mathcomp(quotient action)