diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-08-02 11:37:27 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-08-02 11:37:27 +0000 |
| commit | 581223c7fc607b5121013928fd83606b82ea8531 (patch) | |
| tree | 391b0a247893b4d4f1e412b4587054c58af8affb | |
| parent | 48465ba75f802c3b05a6621ff4e3de259d2b4008 (diff) | |
Fixed a typo in "info" for tactic "right".
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12257 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | tactics/hiddentac.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/hiddentac.ml b/tactics/hiddentac.ml index 4b89cbcb4..b85491c57 100644 --- a/tactics/hiddentac.ml +++ b/tactics/hiddentac.ml @@ -105,7 +105,7 @@ let h_revert l = abstract_tactic (TacRevert l) (revert l) (* Constructors *) let h_left ev l = abstract_tactic (TacLeft (ev,l)) (left_with_ebindings ev l) -let h_right ev l = abstract_tactic (TacLeft (ev,l)) (right_with_ebindings ev l) +let h_right ev l = abstract_tactic (TacRight (ev,l)) (right_with_ebindings ev l) let h_split ev l = abstract_tactic (TacSplit (ev,false,l)) (split_with_ebindings ev l) (* Moved to tacinterp because of dependencies in Tacinterp.interp let h_any_constructor t = |