fact: Fixpoint subseq s1 s2 := if s2 is y :: s2' then if s1 is x :: s1' then subseq (if x == y then s1' else s1) s2' else true else s1 == [::].
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)