Definition Lsh  : Share.t := fst (Share.split Share.top).Definition Rsh  : Share.t := snd (Share.split Share.top).Definition splice (a b: t) : t := Share.lub (rel Lsh a) (rel Rsh b).

Lemma mkCanon_union : forall t1 t2, mkCanon (union_tree (mkCanon t1) (mkCanon t2)) = mkCanon (union_tree t1 t2).