fact: Fixpoint merge_sort_push s1 ss := match ss with | [::] :: ss' | [::] as ss' => s1 :: ss' | s2 :: ss' => [::] :: merge_sort_push (merge s2 s1) ss' end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq)