(*========================================================
                      DIMENSIONS
 ========================================================*)

(* Dimensions: *)
Inductive dim:Set := zero : dim | one : dim.(*========================================================
                      DIMENSIONS
 ========================================================*)

(* Dimensions: *)
Inductive dim:Set := zero : dim | one : dim.(*========================================================
                      DIMENSIONS
 ========================================================*)

(* Dimensions: *)
Inductive dim:Set := zero : dim | one : dim.

Lemma eq_dim_dec : forall i k : dim, {i=k}+{~i=k}.