fact: Definition TurretMonitorSpec : Fiat.ADT.Core.ADT (RADLM_ADTSig TurretMonitorNode unit) := ADTRep unit { Def Constructor RADL_Init (_ : unit) : rep := ret tt, Def Method RADL_Step (r : rep, msg : unit * cRep (radlm_in_t TurretMonitorNode) * cRep (radlm_monitor_in_t TurretMonitorNode)) : TurretMonitor_Output := turret <- callMeth TurretSpec RADL_Step (fst (fst msg)) (snd (fst msg)); ret (tt, (turret, inil _ )) }.
imports: Coq.Strings.String Coq.Bool.Bool Coq.Lists.List Coq.Program.Program Coq.Arith.Arith 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.RADLNodeADTs Fiat.Fiat4Monitors.LandsharkTopics Fiat.Fiat4Monitors.LandsharkNodes Bedrock.Platform.Facade.DFacade Bedrock.Platform.Facade.Notations Bedrock.Platform.Cito.ADT Bedrock.Platform.Cito.RepInv Bedrock.Platform.AutoSep