StructureLtree(id INT PRIMARY KEY, value TEXT, path ltree);
    
    -- Данные:

    pk |  value  |  path  |
    0  |   'A'   |   ''   |
    0  |   'B'   |   '1'  |
    0  |   'C'   |   '2'  |
    0  |   'D'   |  '1.3' |
    0  |   'E'   |  '1.4' |
    0  |   'F'   |  '1.5' |
    0  |   'G'   |  '2.6' |
    0  |   'H'   |  '2.7' |

StructureSets(id INT PRIMARY KEY, value TEXT, lft INT, rgt INT);

    CREATE OR REPLACE RECURSIVE VIEW bfs (id, value, path, num_on_level, level) AS
        SELECT id, value, path, row_number() OVER (), 0 as level
        FROM StructureLtree WHERE path ~ '*{0}'
        
        UNION ALL
        
        SELECT C.id, C.value, C.path, row_number() OVER (PARTITION BY P.path), level + 1 
        FROM StructureLtree C JOIN bfs P ON P.path @> C.path 
        WHERE nlevel(C.path) = level + 1;

    -- Данные представления
    id | value | path | num_on_level | level |
    0  |  "A"  |  ""  |      1       |   0   |
    1  |  "B"  | "1"  |      1       |   1   |
    2  |  "C"  | "2"  |      2       |   1   |
    3  |  "D"  |"1.3" |      1       |   2   |
    4  |  "E"  |"1.4" |      2       |   2   |
    5  |  "F"  |"1.5" |      3       |   2   |
    6  |  "G"  |"2.6" |      1       |   2   |
    7  |  "H"  |"2.7" |      2       |   2   |

-- la, ra - левый и правый предок?
-- le, ri - левый и правый индексы

select t.id, t.path, la, ra, 0 lvl,
    'tp' d, 1::bigint le, null::bigint ri
   -- как применить разбиение на партиции в ltree? id разные, path - тоже
   from select id, path, lag(id) over(partition by path order by id) la, lead(id) over(partition by path order by id) ra from StructureLtree where path ~ '*{0}') t
   union all
   select t.a, t.b, t.la, t.ra, x.lvl+1, 
      case 
           -- x.a = t.b - тоже самое, что x.path <@ t.path, то есть вершина из x является потомком вершины из t
           when x.a = t.b  then 'dn'
           -- здесь, насколько я понимаю, если вершина из x является левым предком вершины из t.
           -- не очень понимаю, как такое можно сделать в ltree, разве что упорядочить по path
           when x.a = t.la then 'sb'
           -- x.b = t.a - тоже самое, что x.path @> t.path, то есть вершина из x является предком вершины из t
           when x.b = t.a  then 'up'
      end,
      case 
           -- если вершина из x является потомком вершины из t, то увеличиваем левый индекс
           when x.a = t.b  then x.le+1
           -- если вершина из x является левым предком вершины из t, то увеличиваем правый индекс
           when x.a = t.la then x.ri+1 end,
      case
           -- здесь рассуждения аналогичны первому case
           when x.a = t.b  then x.le+2
           when x.a = t.la then x.ri+2
           when x.b = t.a  then x.ri+1 end
   from (
           -- такой же подзапрос как в нерекурсивной части
           select a, b, lag(a) over(partition by b order by a) la, lead(a) over(partition by b order by a) ra from tr
   ) t
   join x 
          -- если вершина из x является потомком вершины из t и левый индекс вершины из t равен нулю и вершина x не является предком t?
          on x.a = t.b  and t.la is null and x.d != 'up' 
          -- если вершина из x является левым предком вершины из t и x является предком кого-либо?
          or x.a = t.la and (x.d = 'up' or not exists (select 1 from tr where b = x.a))
          -- если x является предком вершины t и правый индекс x нулевой и далее происходит нечто непонятное
          or x.b = t.a  and x.ra is null and (x.d = 'up' or not exists (select 1 from tr where b = x.a))

CREATE VIEW anc_and_des AS 
SELECT 
        m.*, 
        -- считаем все дочерние узлы вершины m
        ( SELECT COUNT(*) 
          FROM KeywordLtree AS d
          WHERE m.path @> d.path
        ) AS descendants,
        -- считаем все родительские узлы вершины m
        ( SELECT COUNT(*) 
          FROM KeywordLtree AS a
          WHERE a.path @> m.path
        ) AS ancestors,
        ROW_NUMBER() OVER (ORDER BY m.path) AS rn
    FROM KeywordLtree AS m;

-- левый индекс вложенного множества равен двойному номеру узла при DFS-обходе - число предков (включая сам узел)
-- правый индекс равен двойному номеру узла при DFS-обходе - число предков (включая сам узел) + удвоенное число потомков - 1 (иначе дважды посчитаем текущий узел)
SELECT *, 2 * rn - ancestors AS lft, 2 * rn - ancestors + 2 * descendants - 1 AS rgt
FROM anc_and_des;