fact: Record embeddable : Prop := Embeddable { embeddable_base :> scycle_planar_bridgeless_plain_quasicubic_connected r; embeddable_ring : all good_ring_arity r; embeddable_kernel : radius2 (kernel r) }.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap walkup geometry color chromogram)