Ros.Geometry_msgs.AccelWithCovariance


Extraction Language Haskell.
Require Import ROSCOQ.shim.Haskell.RoshaskNodeMonad.
Require Import ROSCOQ.shim.Haskell.RoshaskTopic.
Require Import ROSCOQ.shim.Haskell.RoshaskMsg.
Require Import ROSCOQ.shim.Haskell.RoshaskTypes.
Require Import String.
Require Import Data.Vector.Storable.
Require Import Ros.Geometry_msgs.Accel.

Record AccelWithCovariance := { _accel : Accel.Accel
                               ; _covariance : V.Vector P.Double
                               }.

Extract Inductive AccelWithCovariance ⇒ "Ros.Geometry_msgs.AccelWithCovariance.AccelWithCovariance" [ "Ros.Geometry_msgs.AccelWithCovariance.AccelWithCovariance" ].
Extract Constant _accel ⇒ "Ros.Geometry_msgs.AccelWithCovariance._accel" .
Extract Constant _covariance ⇒ "Ros.Geometry_msgs.AccelWithCovariance._covariance" .
Axiom subscribe : TopicNameNode (RTopic AccelWithCovariance ).
Extract Constant subscribe ⇒ "(Ros.Node.subscribe)".
Axiom publish : TopicNameRTopic AccelWithCovarianceNode unit.
Extract Constant publish ⇒ "(Ros.Node.advertise)".
Instance ROSMsgInstance : ROSMsgType AccelWithCovariance :=
Build_ROSMsgType _ subscribe publish.