diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-04-04 16:55:56 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-04-04 16:55:56 +0200 |
| commit | c112063ba5f562d511ed0cbd754a41539fc48fe1 (patch) | |
| tree | 1f7e244b3d3b0963d07463604d77bdf35001e67c /plugins/funind/indfun_common.ml | |
| parent | b824d8ad00001f6c41d0fc8bbf528dccb937c887 (diff) | |
| parent | ea10a2da9ac11ea57e9eb80d0d6baf9321886da4 (diff) | |
Merge branch 'trunk' into pr379
Diffstat (limited to 'plugins/funind/indfun_common.ml')
| -rw-r--r-- | plugins/funind/indfun_common.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/funind/indfun_common.ml b/plugins/funind/indfun_common.ml index 2889d8d03..20da12f39 100644 --- a/plugins/funind/indfun_common.ml +++ b/plugins/funind/indfun_common.ml @@ -70,8 +70,8 @@ let chop_rlambda_n = then List.rev acc,rt else match rt with - | Glob_term.GLambda(_,name,k,t,b) -> chop_lambda_n ((name,t,false)::acc) (n-1) b - | Glob_term.GLetIn(_,name,v,b) -> chop_lambda_n ((name,v,true)::acc) (n-1) b + | Glob_term.GLambda(_,name,k,t,b) -> chop_lambda_n ((name,t,None)::acc) (n-1) b + | Glob_term.GLetIn(_,name,v,t,b) -> chop_lambda_n ((name,v,t)::acc) (n-1) b | _ -> raise (CErrors.UserError(Some "chop_rlambda_n", str "chop_rlambda_n: Not enough Lambdas")) |