fact: Fixpoint leq_elim_aux (eq_l lt_l le_l : seq (term R)) := match le_l with [::] => [:: (eq_l, lt_l)] |le1 :: le_l' => let res := leq_elim_aux eq_l lt_l le_l' in let as_eq := map (fun x => (le1 :: x.1%PAIR, x.2%PAIR)) res in let as_lt := map (fun x => (x.1%PAIR, le1 :: x.2%PAIR)) res in as_eq ++ as_lt end.
imports: HB(structures) mathcomp.ssreflect.ssreflect mathcomp(ssrfun ssrbool eqtype ssrnat seq div choice fintype) mathcomp(bigop order ssralg finset fingroup zmodp) mathcomp(poly ssrnum)