Instance EqDec_canonTree : EqDec canonTree := canonTree_eq_dec.

(* Specifications: *)
Lemma comp_tree_inv : forall t, comp_tree (comp_tree t) = t.
Lemma comp_full_empty : forall x, nonFullTree x -> nonEmptyTree (comp_tree x).
Lemma comp_empty_full : forall x, nonEmptyTree x -> nonFullTree (comp_tree x).
Lemma comp_canonical : forall x, canonicalTree x -> canonicalTree (comp_tree x).