fact: Definition ctree_cons_pairs pt1 pt2 pt3 := let: CtreePair t1 t1' := pt1 in let: CtreePair t2 t2' := pt2 in let: CtreePair t3 t3' := pt3 in let t := CtreeNode t1 t2 t3 in let t' := CtreeNode t1' t2' t3' in match ctree_empty_node t, ctree_empty_node t' with | true, true => CtreePair CtreeEmpty CtreeEmpty | true, false => CtreePair CtreeEmpty t' | false, true => CtreePair t CtreeEmpty | false, false => CtreePair t t' end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq) fourcolor(color chromogram gtree ctree)