diff options
author | aspiwack <aspiwack@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-11-02 15:34:09 +0000 |
---|---|---|
committer | aspiwack <aspiwack@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-11-02 15:34:09 +0000 |
commit | 1a1ee340de86b6688a8ceeec5eaa8e76032fe3f3 (patch) | |
tree | 977ac085e6b783933d316b3ff4eef1fba3d4dda9 /tactics/elim.ml | |
parent | fed5cbc5b006447bb3d877b3eeb35f7c76e96661 (diff) |
Getting rid of Goal.here, and all the related exceptions and combinators.
It was a bad idea. The new API based on lists seems more sensible.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16969 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/elim.ml')
-rw-r--r-- | tactics/elim.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/elim.ml b/tactics/elim.ml index 0e30daf6d..a784264f0 100644 --- a/tactics/elim.ml +++ b/tactics/elim.ml @@ -111,7 +111,7 @@ let head_in = let decompose_these c l = let indl = (*List.map inductive_of*) l in - head_in >>- fun head_in -> + Proofview.Goal.lift head_in >>- fun head_in -> general_decompose (fun (_,t) -> head_in indl t) c let decompose_nonrec c = |