(* Show that mkCanon generates canonical trees that are equivalant to the original. *)

(* Specifications: *)
Lemma mkCanon_correct : forall x,
canonicalTree (mkCanon x).
Lemma mkCanon_eq : forall x,
shareTreeEq x (mkCanon x).
Lemma mkCanon_test : forall x y,
mkCanon x = mkCanon y ->
shareTreeEq x y.
Lemma mkCanon_nonEmpty : forall x,
nonEmptyTree x -> nonEmptyTree (mkCanon x).