End PointsToLemmas.
Hint Resolve domeqPt domeqPtUn domeqUnPt : core.
Prenex Implicits validPtUn_cond findPt_inv um_eta2.
(********************)
(* Topped structure *)
(********************)
Module UnionClassTPCM.
Section UnionClassTPCM.
Variables (K : ordType) (V : Type) (U : union_map_class K V).
Implicit Type f : U.

(* Specifications: *)
Lemma join0E f1 f2 : f1 \+ f2 = Unit -> f1 = Unit /\ f2 = Unit.
Lemma umPt0E (k : K) (v : V) : (k \\-> v == Unit) = false.
Lemma umPtPtUE (k1 k2 : K) (v1 v2 : V) f :
(k1 \\-> v1 == k2 \\-> v2 \+ f) = [&& k1 == k2, v1 == v2 & empb f].