fact: Fixpoint store_aux T s k (v : T) := match s, k with | [::], _ => [::] | _ :: t, O => v :: t | h :: t, S k => h :: store_aux t k v end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq) mathcomp(choice fintype bigop matrix) CoqEAL(hrel param refinements seqmx seqpoly)