diff options
| -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 4b89cbcb4f..b85491c57d 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 = |