Ast.match_case_pattern_mapSource constraint 'c match_case_pattern_map = 'c match_case_pattern_mapinherit VisitorsRuntime.mapinherit path_mapinherit lident_mapinherit uident_mapinherit Catala_utils.Marked.pos_mapmethod visit_match_case_pattern : 'd ->
((('e, 'f) Catala_utils.Marked.t list * ('e, 'f) Catala_utils.Marked.t, 'f)
Catala_utils.Marked.t
list
* ('g, 'f) Catala_utils.Marked.t option) ->
(('e, 'f) Catala_utils.Marked.t list * ('e, 'f) Catala_utils.Marked.t, 'f)
Catala_utils.Marked.t
list
* ('g, 'f) Catala_utils.Marked.t option