diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-05-16 16:49:27 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-05-16 16:49:27 +0000 |
| commit | 79311e8734b5970afa3db069e9452c2521713895 (patch) | |
| tree | 13c6a9390fcbda9a2fe6fa67ab33055108ffd18f /tactics/tauto.ml | |
| parent | 1cafd3f142f42c0b0d4d143419f4f6984c64e276 (diff) | |
Retrait du i pour tclTHEN_i et correction bugs Decompose
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@434 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/tauto.ml')
| -rw-r--r-- | tactics/tauto.ml | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/tactics/tauto.ml b/tactics/tauto.ml index 2708bf01a..52b4e288c 100644 --- a/tactics/tauto.ml +++ b/tactics/tauto.ml @@ -1864,18 +1864,14 @@ let tautoOR ti gls = (t_exacto := tt; subbuts l thyp gls) -let exact_Idtac = function - | 0 -> exacto (!t_exacto) - | _ -> tclIDTAC - let tautoOR_0 gl = tclORELSE - (tclTHEN_i (tautoOR false) exact_Idtac 0) + (tclTHENSI (tautoOR false) [exacto (!t_exacto)]) tAUTOFAIL gl let intuitionOR = tclTRY (tclTHEN - (tclTHEN_i (tautoOR true) exact_Idtac 0) + (tclTHENSI (tautoOR true) [exacto (!t_exacto)]) default_full_auto) (*--- Mixed code Chet-Cesar ---*) |