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.

Lemma umPtPtUE (k1 k2 : K) (v1 v2 : V) f :
(k1 \\-> v1 == k2 \\-> v2 \+ f) = [&& k1 == k2, v1 == v2 & empb f].