fact: Fixpoint ctree_decr lf n {struct n} := match n, lf with | n'.+1, CtreeLeaf lf' => ctree_decr lf' n' | _, _ => lf end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq) fourcolor(color chromogram gtree ctree)