let get_prop_id =
  Dynamic.register
    ~plugin:"Wp" "Wpo.get_prop_id" ~journalize:false
    (Datatype.func PODatatype.ty WpPropId.Prop_id_datatype.ty)
    (fun g -> g.po_pid)