Definition StrEqType := forall a b : A, I a -> I b -> Prop.Definition seq_eq_str (A : Setoid) : EqStructure (fun n : Nat => seq n A).Definition fin_eq_str : EqStructure (fun n : Nat => fin n).Definition fin_eq := StrEq fin_eq_str.

(* Specifications: *)
Lemma test1 : forall (n : nat) (i : fin n), fin_eq i i.