diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-07-25 10:19:05 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-07-25 10:19:05 +0000 |
| commit | be9c3dc93413a76d188724d4a06739d9bb238b72 (patch) | |
| tree | d59cc88bcf3661ddfcc03ef42902e0d5178f71a8 /tactics/tauto.ml4 | |
| parent | 72add906154ce22894a41cf04543a7c096456e09 (diff) | |
More compatibility fixes, revert the tauto fix that prevented
destruction of records as a lot of scripts currently rely on it.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11263 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/tauto.ml4')
| -rw-r--r-- | tactics/tauto.ml4 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/tauto.ml4 b/tactics/tauto.ml4 index 6ce54c5a2..90705c8c9 100644 --- a/tactics/tauto.ml4 +++ b/tactics/tauto.ml4 @@ -56,7 +56,7 @@ let is_binary t = let is_conj ist = let ind = assoc_last ist in - if (is_conjunction ind) && (is_nodep_ind ind) && not (is_record ind) + if (is_conjunction ind) && (is_nodep_ind ind) (* && not (is_record ind) *) && is_binary ind (* for compatibility, as (?X _ _) matches applications with 2 or more arguments. *) then @@ -65,7 +65,7 @@ let is_conj ist = <:tactic<fail>> let is_disj ist = - if is_disjunction (assoc_last ist) then + if is_disjunction (assoc_last ist) && is_binary (assoc_last ist) then <:tactic<idtac>> else <:tactic<fail>> |