diff options
author | aspiwack <aspiwack@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-11-02 15:34:15 +0000 |
---|---|---|
committer | aspiwack <aspiwack@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-11-02 15:34:15 +0000 |
commit | 6e42eb07daf38213853bf4a9b9008c0e9e67f224 (patch) | |
tree | 7fafc79f2e3773aa9d247c56f4c1f2915556337a /tactics/leminv.ml | |
parent | 84357f0d15a1137a4b1cc5cacb86d3af5c1ca93e (diff) |
Clean-up: removed redundant notations (>>-) and (>>--) from Proofview.Notations.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16971 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/leminv.ml')
-rw-r--r-- | tactics/leminv.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/leminv.ml b/tactics/leminv.ml index 786f92736..06b067fcf 100644 --- a/tactics/leminv.ml +++ b/tactics/leminv.ml @@ -284,9 +284,9 @@ let lemInv id c gls = let lemInv_gen id c = try_intros_until (fun id -> Proofview.V82.tactic (lemInv id c)) id let lemInvIn id c ids = - Proofview.Goal.lift (Goal.sensitive_list_map Tacmach.New.pf_get_hyp_sensitive ids) >>- fun hyps -> + Proofview.Goal.lift (Goal.sensitive_list_map Tacmach.New.pf_get_hyp_sensitive ids) >>= fun hyps -> let intros_replace_ids = - Proofview.Goal.concl >>- fun concl -> + Proofview.Goal.concl >>= fun concl -> let nb_of_new_hyp = nb_prod concl - List.length ids in if nb_of_new_hyp < 1 then intros_replacing ids |