(* * Tactics for [Fin.t] *)
(* Author: Maximilian Wuttke and Fabian Kunze *)
From Undecidability.Shared.Libs.PSL Require Import Base.

Lemma fin_destruct_S (n : nat) (i : Fin.t (S n)) :
{ i' | i = Fin.FS i' } + { i = Fin.F1 }.