(*========================================================== ============================================================ TOPOLOGICAL FMAPS, HMAPS -  WITH TAGS AND EMBEDDINGS  PART 3:  EQUIVALENCES, CHARACTERISTICS, GENUS THEOREM, EULER_POINCARE FORMULA, PLANARITY CRITERIA  COMPLETE: OK!! ============================================================ ==========================================================*)
Require Export Jordan2.
(*========================================================== CONNECTIVITY IN HMAPS : ==========================================================*)
(* Connectivity: Definition in Prop "A� la" Warshall *)
Fixpoint eqc(m:fmap)(x y:dart){struct m}:Prop:=
match m with
V => False
|  I m0 x0 _ _ => x=x0 /\ y=x0 \/ eqc m0 x y
|  L m0 _ x0 y0 =>
eqc m0 x y
\/ eqc m0 x x0 /\ eqc m0 y0 y
\/ eqc m0 x y0 /\ eqc m0 x0 y
end.
(* Decidability of eqc: *)

(* Specifications: *)
Lemma eqc_exd_exd : forall (m:fmap)(x y:dart),
eqc m x y -> (exd m x /\ exd m y).
Lemma eqc_dec: forall (m:fmap)(x y:dart),
{eqc m x y} + {~eqc m x y}.