diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-11-04 13:20:47 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-11-04 13:20:47 +0000 |
| commit | d71f9b16a49ce4faa61ba9b3c57f43c3acceb8cb (patch) | |
| tree | e8921e7b66569dd2e94078cfcdb79fd4d37a62fe /tactics/leminv.ml | |
| parent | d4e378d6a984830d6b7d02340a89e2563d3f70ed (diff) | |
Allowing proofs starting with a non-empty evarmap.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@17055 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/leminv.ml')
| -rw-r--r-- | tactics/leminv.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/leminv.ml b/tactics/leminv.ml index 86ec3a835..106205552 100644 --- a/tactics/leminv.ml +++ b/tactics/leminv.ml @@ -196,7 +196,7 @@ let inversion_scheme env sigma t sort dep_option inv_op = errorlabstrm "lemma_inversion" (str"Computed inversion goal was not closed in initial signature."); *) - let pf = Proof.start [invEnv,invGoal] in + let pf = Proof.start Evd.empty [invEnv,invGoal] in let pf = fst (Proof.run_tactic env ( Tacticals.New.tclTHEN intro (Tacticals.New.onLastHypId inv_op)) pf) |