Section TagEqType.
Variables (I : eqType) (T_ : I -> eqType).
Implicit Types u v : {i : I & T_ i}.
Definition tag_eq u v := (tag u == tag v) && (tagged u == tagged_as u v).

(* Specifications: *)
Lemma tag_eqP : Equality.axiom tag_eq.
Canonical tag_eqMixin := EqMixin tag_eqP.