diff options
| author | Pierre-Marie Pédrot | 2018-09-30 17:54:13 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-09-30 17:54:13 +0200 |
| commit | a87f76337e2473e2de15cffb058ea3087e6a532f (patch) | |
| tree | 87a2b479a2199aa004a46ef886b3710cf97422ca /tactics | |
| parent | f04c9b69e6cecc72a389946d1f1c80ab1368d0c6 (diff) | |
| parent | 2ea68be1bf7b5977234957f8ad04fdaa0ce539a2 (diff) | |
Merge PR #8590: Functionalizing calls to the environment in Himsg
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/inv.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/inv.ml b/tactics/inv.ml index 43786c8e19..f718b13a63 100644 --- a/tactics/inv.ml +++ b/tactics/inv.ml @@ -495,7 +495,7 @@ let raw_inversion inv_kind id status names = (* Error messages of the inversion tactics *) let wrap_inv_error id = function (e, info) -> match e with | Indrec.RecursionSchemeError - (Indrec.NotAllowedCaseAnalysis (_,(Type _ | Set as k),i)) -> + (_, Indrec.NotAllowedCaseAnalysis (_,(Type _ | Set as k),i)) -> Proofview.tclENV >>= fun env -> Proofview.tclEVARMAP >>= fun sigma -> tclZEROMSG ( |