fact: Fixpoint ctree_leaf_table_from lf n h : ctree_table := match h with | 0 => [::] | 1 => [:: CtreePair lf lf] | h'.+2 => [:: CtreePair lf lf, CtreePair CtreeEmpty lf & ctree_leaf_table_from (ctree_add_dyck 2 n lf) n.+1 h'] end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq) fourcolor(color ctree dyck)