and magic_term =
(* level 1 magics *)
- | List0 of term * literal option
- | List1 of term * literal option
+ | List0 of term * literal option (* pattern, separator *)
+ | List1 of term * literal option (* pattern, separator *)
| Opt of term
(* level 2 magics *)
| Fold of fold_kind * term * string list * term
(* base case pattern, recursive case bound names, recursive case pattern *)
| Default of term * term (* "some" case pattern, "none" case pattern *)
+ | If of term * term (* guard, pattern *)
and pattern_variable =
(* level 1 and 2 variables *)