diff options
| -rw-r--r-- | parsing/g_minicoq.g4 | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/parsing/g_minicoq.g4 b/parsing/g_minicoq.g4 index ccf22ce448..7b7dca0ad4 100644 --- a/parsing/g_minicoq.g4 +++ b/parsing/g_minicoq.g4 @@ -145,6 +145,8 @@ let rec pp bv = function | DOP0 (Sort (Type u)) -> print_type u | DOP2 (Lambda, t, DLAM(na, c)) -> [< 'sTR"["; print_name na; 'sTR":"; pp bv t; 'sTR"]"; pp (na::bv) c >] + | DOP2 (Prod, t, DLAM(Anonymous, c)) -> + [< pp bv t; 'sTR"->"; pp (Anonymous::bv) c >] | DOP2 (Prod, t, DLAM(na, c)) -> [< 'sTR"("; print_name na; 'sTR":"; pp bv t; 'sTR")"; pp (na::bv) c >] | DOP2 (Cast, c, t) -> |