left; auto with arith pts.
elim eq_nat_dec with n n0; intros.
left; elim a; auto with arith pts.
right; red in |- *; intros H; apply b; injection H; auto with arith pts.
Qed.

(* Specifications: *)
Lemma univ_ecc_dec : forall s s' : srt_ecc, decide (univ s s').
refine
(fun s s' : srt_ecc =>
match s, s' return (decide (univ s s')) with
| Sprop, Sprop => _
| Stype n, Stype n' => _
| _, _ => right _ _
end).