fact: Definition display_profile_parser_results {T stringT} (line : stringT) (parse : stringT -> bool) (num_times : nat) (duplicates_per_iteration : nat) (all_say_yes : T) (all_say_no : T) (mixed_answers : forall (yes no : nat), T) : unit * T := let '(res, times) := profile_parser line parse num_times duplicates_per_iteration all_say_yes all_say_no mixed_answers in let tt_val := display_info_for_times duplicates_per_iteration times in (tt_val, res).
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