Ros.Geometry_msgs.PoseWithCovariance

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.Pose.

Record PoseWithCovariance := { _pose : Pose.Pose
                              ; _covariance : V.Vector P.Double
                              }.

Extract Inductive PoseWithCovariance ⇒ "Ros.Geometry_msgs.PoseWithCovariance.PoseWithCovariance" [ "Ros.Geometry_msgs.PoseWithCovariance.PoseWithCovariance" ].
Extract Constant _pose ⇒ "Ros.Geometry_msgs.PoseWithCovariance._pose" .
Extract Constant _covariance ⇒ "Ros.Geometry_msgs.PoseWithCovariance._covariance" .
Axiom subscribe : TopicName → Node (RTopic PoseWithCovariance ).
Extract Constant subscribe ⇒ "(Ros.Node.subscribe)".
Axiom publish : TopicName → RTopic PoseWithCovariance → Node unit.
Extract Constant publish ⇒ "(Ros.Node.advertise)".
Instance ROSMsgInstance : ROSMsgType PoseWithCovariance :=
Build_ROSMsgType _ subscribe publish.