diff options
| author | Jasper Hugunin | 2019-05-19 01:38:59 -0700 |
|---|---|---|
| committer | Jasper Hugunin | 2019-05-19 01:38:59 -0700 |
| commit | d8d665f900ee92fac8f776031a9a6a0981a4ed2e (patch) | |
| tree | fd73e59456e3b290dbad1a9e970d0e9ab2cd3b01 /interp | |
| parent | d61c293eb0fc99eb921ef5ea599bbab8ac7aedcc (diff) | |
Implicit Quantifiers recurse in continuation of let-in
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/implicit_quantifiers.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/implicit_quantifiers.ml b/interp/implicit_quantifiers.ml index dffccf02fc..6277d874dd 100644 --- a/interp/implicit_quantifiers.ml +++ b/interp/implicit_quantifiers.ml @@ -281,7 +281,7 @@ let implicits_of_glob_constr ?(with_products=true) l = | _ -> () in [] | GLambda (na, bk, t, b) -> abs na bk b - | GLetIn (na, b, t, c) -> aux i b + | GLetIn (na, b, t, c) -> aux i c | GRec (fix_kind, nas, args, tys, bds) -> let nb = match fix_kind with |GFix (_, n) -> n | GCoFix n -> n in List.fold_left_i (fun i l (na,bk,_,_) -> add_impl i na bk l) i (aux (List.length args.(nb) + i) bds.(nb)) args.(nb) |