diff options
| author | Pierre-Marie Pédrot | 2018-04-14 13:46:05 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-04-14 13:46:05 +0200 |
| commit | 2384fcb98640dbd9aeee4e8e43965d499e594815 (patch) | |
| tree | c7aaa89a76405ab8695d26590d76a971a170c850 /tactics/inv.ml | |
| parent | 4f6681a4835758a27aaade3c18c21a5fe6d283c5 (diff) | |
| parent | e158df83522215b7699879c38906471598217866 (diff) | |
Merge PR #7136: Evar maps contain econstrs.
Diffstat (limited to 'tactics/inv.ml')
| -rw-r--r-- | tactics/inv.ml | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/tactics/inv.ml b/tactics/inv.ml index d76c9a6977..4129549898 100644 --- a/tactics/inv.ml +++ b/tactics/inv.ml @@ -124,12 +124,10 @@ let make_inv_predicate env evd indf realargs id status concl = in let eq_term = eqdata.Coqlib.eq in let eq = Evarutil.evd_comb1 (Evd.fresh_global env) evd eq_term in - let eq = EConstr.of_constr eq in let eqn = applist (eq,[eqnty;lhs;rhs]) in let eqns = (Anonymous, lift n eqn) :: eqns in let refl_term = eqdata.Coqlib.refl in let refl_term = Evarutil.evd_comb1 (Evd.fresh_global env) evd refl_term in - let refl_term = EConstr.of_constr refl_term in let refl = mkApp (refl_term, [|eqnty; rhs|]) in let _ = Evarutil.evd_comb1 (Typing.type_of env) evd refl in let args = refl :: args in |