| GRef: nat → item0 (* reference by position: starting at 0 *)
.
+(* unary binding items *)
+inductive bind1: Type[0] ≝
+ | Void: bind1 (* exclusion *)
+.
+
(* binary binding items *)
inductive bind2: Type[0] ≝
| Abbr: bind2 (* abbreviation *)
#Hni12 @or_intror #H destruct /2 width=1 by/
qed-.
+lemma eq_bind1_dec: ∀I1,I2:bind1. Decidable (I1 = I2).
+* * /2 width=1 by or_introl/
+qed-.
+
(* Basic_1: was: bind_dec *)
lemma eq_bind2_dec: ∀I1,I2:bind2. Decidable (I1 = I2).
* * /2 width=1 by or_introl/