diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-11-20 20:09:26 +0100 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-02-14 17:30:34 +0100 |
commit | d4b344acb23f19b089098b7788f37ea22bc07b81 (patch) | |
tree | 6dd26d747b259793ef6a24befd27e13234b19875 /proofs/clenvtac.ml | |
parent | 2cd0648e003308a000f9f89c898bce4d15fc94a1 (diff) |
Eliminating parts of the right-hand side compatibility layer
Diffstat (limited to 'proofs/clenvtac.ml')
-rw-r--r-- | proofs/clenvtac.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/clenvtac.ml b/proofs/clenvtac.ml index 539b1bcb2..84cdc09ee 100644 --- a/proofs/clenvtac.ml +++ b/proofs/clenvtac.ml @@ -34,7 +34,7 @@ let clenv_cast_meta clenv = | _ -> EConstr.map clenv.evd crec u and crec_hd u = - match EConstr.kind clenv.evd (EConstr.of_constr (strip_outer_cast clenv.evd u)) with + match EConstr.kind clenv.evd (strip_outer_cast clenv.evd u) with | Meta mv -> (try let b = Typing.meta_type clenv.evd mv in |