fact: Fixpoint gtree_merge_line pt0 pt1 pt2 (lpt : gtree_table) d {struct d} := let rest := match d, lpt return gtree_table with | 0, _ => [::] | d'.+1, [::] => [:: gtree_merge_pairs empty_gtree_pair pt0 pt1; gtree_merge_pairs empty_gtree_pair empty_gtree_pair pt0] | d'.+1, pt :: lpt' => gtree_merge_line pt pt0 pt1 lpt' d' end in gtree_merge_pairs pt0 pt1 pt2 :: rest : gtree_table.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq) fourcolor(color chromogram gtree dyck)