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

(* Dimensions: *)
Inductive dim:Set := di0 : dim | di1 : dim.(*========================================================
                      DIMENSIONS
 ========================================================*)

(* Dimensions: *)
Inductive dim:Set := di0 : dim | di1 : dim.(*========================================================
                      DIMENSIONS
 ========================================================*)

(* Dimensions: *)
Inductive dim:Set := di0 : dim | di1 : dim.

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