diff options
| author |  Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2014-10-24 17:38:59 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2014-10-24 17:42:14 +0200 |
| commit | 884b6cc6c12bd557085cdaa4972d593684c9cc1a (patch) | |
| tree | f3ba143e41d8d053d4369ffcba7ae294b001beb5 /toplevel/command.ml | |
| parent | 1556c6b8f77d16814ff1c53fb14fc9b06574ec4b (diff) | |
Change reduction_of_red_expr to return an e_reduction_function returning
an updated evar_map, as pattern is working up to universe equalities
that must be kept. Straightforward adaptation of the code depending on
this.
Diffstat (limited to 'toplevel/command.ml')
| -rw-r--r-- | toplevel/command.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index 76ea462c7..57f2571c5 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -42,7 +42,7 @@ let do_universe l = Declare.do_universe l let do_constraint l = Declare.do_constraint l let rec under_binders env f n c = - if Int.equal n 0 then f env Evd.empty c else + if Int.equal n 0 then snd (f env Evd.empty c) else match kind_of_term c with | Lambda (x,t,c) -> mkLambda (x,t,under_binders (push_rel (x,None,t) env) f (n-1) c) |