fact: Fixpoint Iterate_Build_Word (n : nat) (P : nat -> bool -> Prop) : Comp (Word.word n) := match n with | S n => b <- {b | P (S n) b}; w <- Iterate_Build_Word P; ret (WS b w) | 0 => ret WO end.
imports: Coq.Strings.String Coq.Bool.Bool Coq.Lists.List Coq.Program.Program Coq.Sets.Ensembles Coq.Arith.Arith Fiat.Common.IterateBoundedIndex Fiat.ADT Fiat.ADT.ComputationalADT Fiat.ADTNotation Fiat.ADTRefinement Fiat.ADTRefinement.BuildADTRefinements Fiat.Fiat4Monitors.RADL_Topics Fiat.Fiat4Monitors.RADL_Messages Fiat.Fiat4Monitors.RADL_Flags Fiat.Fiat4Monitors.RADL_Nodes Fiat.Fiat4Monitors.LandsharkTopics Fiat.Fiat4Monitors.LandsharkNodes Bedrock.Word