diff options
| author |  Gaetan Gilbert <gaetan.gilbert@ens-lyon.fr> | 2017-04-27 21:58:52 +0200 |
|---|---|---|
| committer | Gaetan Gilbert <gaetan.gilbert@ens-lyon.fr> | 2017-04-27 21:58:52 +0200 |
| commit | 9a48211ea8439a8502145e508b70ede9b5929b2f (patch) | |
| tree | 55b533fdf2e2237e675dfddccad9f3bb1d8cc23c /pretyping/constr_matching.ml | |
| parent | a77734ad64fff2396b161308099923037fb5d8a1 (diff) | |
Post-rebase warnings (unused opens and 2 unused values)
Diffstat (limited to 'pretyping/constr_matching.ml')
| -rw-r--r-- | pretyping/constr_matching.ml | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/pretyping/constr_matching.ml b/pretyping/constr_matching.ml index d55350622..2334be966 100644 --- a/pretyping/constr_matching.ml +++ b/pretyping/constr_matching.ml @@ -87,7 +87,6 @@ let rec build_lambda sigma vars ctx m = match vars with | n :: vars -> (* change [ x1 ... xn y z1 ... zm |- t ] into [ x1 ... xn z1 ... zm |- lam y. t ] *) - let len = List.length ctx in let pre, suf = List.chop (pred n) ctx in let (na, t, suf) = match suf with | [] -> assert false |