fact: Fixpoint insSortBy A (compare : A -> A -> bool) (l : list A) : list A := match l with | nil => nil | h :: t => insertBy compare h (insSortBy compare t) end.
imports: mathcomp.ssreflect.ssreflect mathcomp(ssrnat ssrbool eqtype div) ExtLib(Structures.Monad) SimpleIO(SimpleIO) QuickChick(RoseTrees RandomQC Generators Producer SemChecker) QuickChick(Show Checker State Classes) Coq.Strings.Ascii Coq.Strings.String List Recdef Arith.EqNat