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 /tactics/inv.ml | |
parent | 2cd0648e003308a000f9f89c898bce4d15fc94a1 (diff) |
Eliminating parts of the right-hand side compatibility layer
Diffstat (limited to 'tactics/inv.ml')
-rw-r--r-- | tactics/inv.ml | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/tactics/inv.ml b/tactics/inv.ml index 5c296b343..ac9a564e5 100644 --- a/tactics/inv.ml +++ b/tactics/inv.ml @@ -462,7 +462,6 @@ let raw_inversion inv_kind id status names = Reductionops.beta_applist sigma (elim_predicate, realargs), case_nodep_then_using in - let cut_concl = EConstr.of_constr cut_concl in let refined id = let prf = mkApp (mkVar id, args) in Refine.refine { run = fun h -> Sigma (prf, h, Sigma.refl) } |