diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-11-26 01:09:11 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-02-14 17:30:43 +0100 |
| commit | 8beca748d992cd08e2dd7448c8b28dadbcea4a16 (patch) | |
| tree | 2cb484e735e9a138991e4cd1e540c6de879e67f6 /pretyping/tacred.ml | |
| parent | e1010899051546467b790bca0409174bde824270 (diff) | |
Cleaning up interfaces.
We make mli files look to what they were looking before the move to EConstr
by opening this module.
Diffstat (limited to 'pretyping/tacred.ml')
| -rw-r--r-- | pretyping/tacred.ml | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/pretyping/tacred.ml b/pretyping/tacred.ml index 2b496f926..4abfc26fc 100644 --- a/pretyping/tacred.ml +++ b/pretyping/tacred.ml @@ -1154,7 +1154,6 @@ let abstract_scheme env sigma (locc,a) (c, sigma) = mkLambda (na,ta,c), sigma else let c', sigma' = subst_closed_term_occ env sigma (AtOccs locc) a c in - let c' = EConstr.of_constr c' in mkLambda (na,ta,c'), sigma' let pattern_occs loccs_trm = { e_redfun = begin fun env sigma c -> |