fact: Definition paintball_monitor := module import { "ADT"!"Get_turret_tilt" ====> Get_turret_tilt_Spec; "ADT"!"Get_turret_pan" ====> Get_turret_pan_Spec } define { def "start_step" = func("node", "in", "in_flags", "monitor_in") { "tilt'" <-- call_ "ADT"!"Get_turret_tilt"("monitor_in"); "tilt" <-- call_ "ADT"!"Get_tilt_data"("tilt'"); "pan'" <-- call_ "ADT"!"Get_turret_pan"("monitor_in"); "pan" <-- call_ "ADT"!"Get_tilt_data"("pan'"); if_ ("tilt_x" < 10) { if_ ("tilt_y" < 20) { "ret" <-- call_ "ADT"!"Node_Step" ("node", "in", "out") } { "ret" <-- call_ "ADT"!"Node_Step" ("node", "in", "out") } } { "ret" <-- call_ "ADT"!"Node_Step" ("node", "in", "out") } } }.
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 Fiat.Fiat4Monitors.RADL_Notations Fiat.Fiat4Monitors.RADLMNodeADTs Fiat.Fiat4Monitors.TurretMonitor.FiatSpec