fact: Definition summary (st : State) : list (string * nat) := let res := Map.fold (fun key elem acc => (key,elem) :: acc) (labels st) nil in insSortBy (fun x y => snd y <= snd x) res .
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