diff options
| author |  Arnaud Spiwack <arnaud@spiwack.net> | 2014-04-25 12:47:50 +0200 |
|---|---|---|
| committer | Arnaud Spiwack <arnaud@spiwack.net> | 2014-04-25 12:48:16 +0200 |
| commit | a5e0b28f9344744edf2209001fe047b1535775f6 (patch) | |
| tree | 3d1159b677d0c33a66585ac73394dcf05ede2ebf | |
| parent | 3b9fae83567097d53c3560c532865b334c99d59f (diff) | |
Fix a small typo in Termops.eta_reduce_head.
| -rw-r--r-- | pretyping/termops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/termops.ml b/pretyping/termops.ml index 6972f307b..22ac370b8 100644 --- a/pretyping/termops.ml +++ b/pretyping/termops.ml @@ -976,7 +976,7 @@ let rec eta_reduce_head c = (match kind_of_term (eta_reduce_head c') with | App (f,cl) -> let lastn = (Array.length cl) - 1 in - if lastn < 1 then anomaly (Pp.str "application without arguments") + if lastn < 0 then anomaly (Pp.str "application without arguments") else (match kind_of_term cl.(lastn) with | Rel 1 -> |