diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2015-07-03 21:14:09 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2015-08-02 19:13:51 +0200 |
| commit | 342fed039e53f00ff8758513149f8d41fa3a2e99 (patch) | |
| tree | 94b801199408f366f553dca9b73f10f9e199ff9c /pretyping | |
| parent | 21525bae8801d98ff2f1b52217d7603505ada2d2 (diff) | |
Evarconv.ml: small cut-elimination, saving useless zip.
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/evarconv.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/evarconv.ml b/pretyping/evarconv.ml index 4fed09d6f..3f4411c05 100644 --- a/pretyping/evarconv.ml +++ b/pretyping/evarconv.ml @@ -417,7 +417,7 @@ and evar_eqappr_x ?(rhs_is_already_stuck = false) ts env evd pbty let not_only_app = Stack.not_purely_applicative skM in let f1 i = match Stack.list_of_app_stack skF with - | None -> default_fail evd + | None -> quick_fail evd | Some lF -> let tM = Stack.zip apprM in miller_pfenning on_left |