(*========================================================== ============================================================  TOPOLOGICAL FMAPS, QHMAPS, HMAPS -  PROOFS OF THE GENUS THEOREM AND THE EULER RELATION  PART 1: BASES, FMAPS, QHMAPS, HMAPS, CLOSURES OF A, A_1  (J.-F. Dufourd, June 2006 - FOR PUBLICATION completed in October 2007)  ============================================================ ==========================================================*)
(* coqtop -opt *)
Global Set Asymmetric Patterns.
(*======================================================== DIMENSIONS ========================================================*)
(* Dimensions: *)
Inductive dim:Set := di0 : dim | di1 : dim.

(* Specifications: *)
(* Decidability of dim equality: *)
Lemma eq_dim_dec :
forall i k : dim, {i=k}+{~i=k}.
Lemma exd_B_r : forall (m:fmap)(k:dim)(x y:dart),
exd m y -> exd (B m k x) y.
Lemma exd_B_l : forall (m:fmap)(k:dim)(x y:dart),
exd (B m k x) y ->  exd m y.