fact: Record C_reducible : Prop := Creducible { C_reducible_base :> valid_contract; C_reducible_coclosure : forall et : colseq, cc_ring_trace cc (rev r) et -> Kempe_coclosure (ring_trace (rev r)) et }.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap walkup geometry color chromogram)