fact: Fixpoint tuto_last (A : Type)(x : A)(s : seq A) {struct s} := if s is x' :: s' then tuto_last x' s' else x.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat div seq) mathcomp(path choice fintype tuple finset)