Definition to_Sctx (a:ShareTree) : nonEmptyTree a -> Sctx.

(* Specifications: *)
Lemma relativ_to_Sctx : forall a x H, relativ_tree a x = fill (to_Sctx a H) x.
Lemma relativ_stupid1 : forall x y a, nonEmptyTree x -> x = relativ_tree a (Node x y) -> False.
Lemma relativ_stupid2 : forall x y a, nonEmptyTree y -> y = relativ_tree a (Node x y) -> False.
Lemma relativ_stupid3 : forall a1 a2 x, nonEmptyTree x -> relativ_tree (Node a1 a2) x = x -> False.
Lemma relativ_inv2 : forall a1 a2 x, nonEmptyTree x -> relativ_tree a1 x = relativ_tree a2 x -> a1 = a2.