fact: Definition ctree_partition t (pt : ctree_pair) := let (t', t'') := pt in sctree_partition (ctree_mem t) (ctree_mem t') (ctree_mem t'').
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq) fourcolor(color chromogram gtree ctree)