#G1 #G2 #L1 #L2 #T1 #T2 * //
qed-.
-lemma bteq_dec: â\88\80G1,G2,L1,L2,T1,T2. Decidable (â¦\83G1, L1, T1â¦\84 ⪴ ⦃G2, L2, T2⦄).
+lemma bteq_dec: â\88\80G1,G2,L1,L2,T1,T2. Decidable (â¦\83G1, L1, T1â¦\84 â\8b\95 ⦃G2, L2, T2⦄).
#G1 #G2 #L1 #L2 #T1 #T2 elim (genv_eq_dec G1 G2)
#H1G [2: @or_intror * #H2G #H2L #H2T destruct /2 width=1 by/ ]
elim (eq_nat_dec (|L1|) (|L2|))