sig
  val cursor_descendant :
    'Dm_types.access_ops -> 'Cursor.cursor -> 'Cursor.cursor
end