fact: Definition sort_spec (f : sort_fun_t) := forall (A:Type) (le:relation A) (P:TotalPreOrder le) (dec:RelDecision le) (l:list A), let l' := f A (fun x y => bool_decide (le x y)) l in Permutation l l' /\ LocallySorted le l'.
imports: hydras(DecPreOrder_Instances)