- 1
- 2
- 3
- 4
- 5
- 6
Ltac2 make_match fields :=
destruct x;
iter (fun a => focus 1 1 (fun () =>
let a := a ()
in refine (fun () => '((w_rep $a) _)))
) fields.
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+2
Ltac2 make_match fields :=
destruct x;
iter (fun a => focus 1 1 (fun () =>
let a := a ()
in refine (fun () => '((w_rep $a) _)))
) fields.
Итерация по конструкторам индуктивного типа данных.
CHayT 03.12.2021 03:15 # +2
CHayT 03.12.2021 12:25 # +1
Вообще, Ltac2 начинает мне нравиться, правда чтобы понять, как на нём писать, пришлось прочитать его код и его тесты, настолько ужасна документация.
JloJle4Ka 03.12.2021 18:02 # 0
j123123 03.12.2021 20:10 # +1
CHayT 03.12.2021 22:35 # +2
На оригинальном Ltac то есть?
OMuKPOH 05.12.2021 01:03 # 0
Для установки тебе достаточно лишь регулярно облизывать кончики пальцев.