fact: Definition Kempe_coclosure P et := forall P', Kempe_closed P' -> P' et -> exists2 et', P et' & P' et'.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype) fourcolor(color)