diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-05-14 12:29:33 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-05-14 12:38:14 +0200 |
| commit | 3908fb1c6d68678daa65b4a2fa944424575acf87 (patch) | |
| tree | fa6048af5a2c8bd86dc66a858371d71be695a589 /pretyping/constr_matching.ml | |
| parent | 684dd06c538ea6024e5dd01bfc6eb416b08ddc14 (diff) | |
Removing a line warned unused.
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 afdf601c2..daac33f50 100644 --- a/pretyping/constr_matching.ml +++ b/pretyping/constr_matching.ml @@ -84,7 +84,6 @@ let rec build_lambda 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 |