fact: Fixpoint ins' (k : K) (v : V) (s : seq (K * V)) {struct s} : seq (K * V) := if s is (k1, v1)::s1 then if ord k k1 then (k, v)::s else if k == k1 then (k, v)::s1 else (k1, v1)::(ins' k v s1) else [:: (k, v)].
imports: Coq(ssreflect ssrbool ssrfun) mathcomp(ssrnat eqtype seq path) pcm(options)