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/unification.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/unification.ml')
| -rw-r--r-- | pretyping/unification.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/pretyping/unification.ml b/pretyping/unification.ml index 5bb865310..20f27a15a 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -100,7 +100,6 @@ let abstract_scheme env evd c l lname_typ = if occur_meta evd a then mkLambda_name env (na,ta,t), evd else let t', evd' = Find_subterm.subst_closed_term_occ env evd locc a t in - let t' = EConstr.of_constr t' in mkLambda_name env (na,ta,t'), evd') (c,evd) (List.rev l) @@ -1656,7 +1655,7 @@ let make_abstraction_core name (test,out) env sigma c ty occs check_occs concl = | NoOccurrences -> concl | occ -> let occ = if likefirst then LikeFirst else AtOccs occ in - EConstr.of_constr (replace_term_occ_modulo sigma occ test mkvarid concl) + replace_term_occ_modulo sigma occ test mkvarid concl in let lastlhyp = if List.is_empty depdecls then None else Some (NamedDecl.get_id (List.last depdecls)) in |