diff options
author | 2016-11-20 01:35:54 +0100 | |
---|---|---|
committer | 2017-02-14 17:30:26 +0100 | |
commit | e6a8ab0f428c26fff2bd7e636126974f167101bf (patch) | |
tree | b1be917ecc68504649aa9583aad77475e6f13157 /pretyping/pretyping.ml | |
parent | c72bf7330bb32970616be4dddc7571f3b91c1562 (diff) |
Tactic_matching API using EConstr.
Diffstat (limited to 'pretyping/pretyping.ml')
-rw-r--r-- | pretyping/pretyping.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/pretyping.ml b/pretyping/pretyping.ml index 11d50926f..c792bf2ca 100644 --- a/pretyping/pretyping.ml +++ b/pretyping/pretyping.ml @@ -445,7 +445,7 @@ let pretype_id pretype k0 loc env evdref lvar id = try let (ids,c) = Id.Map.find id lvar.ltac_constrs in let subst = List.map (invert_ltac_bound_name lvar env id) ids in - let c = substl subst (EConstr.of_constr c) in + let c = substl subst c in { uj_val = c; uj_type = protected_get_type_of env sigma c } with Not_found -> try let {closure;term} = Id.Map.find id lvar.ltac_uconstrs in |