fact: Definition ctree_leaf_table h : ctree_table := let leaf1 := CtreeLeaf CtreeEmpty in CtreePair CtreeEmpty leaf1 :: ctree_leaf_table_from leaf1 0 h.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq) fourcolor(color ctree dyck)