fact: Definition median (ls : list Ocaml.float) : Ocaml.float := let ls' := Ocaml.List.sort Pervasives.compare ls in let len := List.length ls in ((List.nth (Nat.div2 (len - 1)) ls' 0 + List.nth (Nat.div2 len) ls' 0) / 2)%ocaml_float.
imports: Fiat.Common.Equality Fiat.Parsers.ParserFromParserADT Coq.ZArith.BinInt Fiat.Parsers.Refinement.Tactics Fiat.Common.BoolFacts Fiat.ADTNotation.BuildComputationalADT Fiat.Common.NatFacts Fiat.Parsers.StringLike.FirstCharSuchThat Coq.Strings.Ascii Coq.extraction.ExtrOcamlBasic Coq.extraction.ExtrOcamlNatInt Coq.extraction.ExtrOcamlZInt Coq.extraction.ExtrOcamlString Coq.extraction.ExtrOcamlIntConv Fiat.Parsers.ExtrOcamlPrimitives