diff options
| author | delahaye | 2000-11-28 14:08:18 +0000 |
|---|---|---|
| committer | delahaye | 2000-11-28 14:08:18 +0000 |
| commit | 4800380437b6b133c7a9346aafa9c4e2b76527d7 (patch) | |
| tree | 447b2dfbd93d1e12dc7dcf47f5fd8f105d8d09a1 /tactics | |
| parent | 4c36f26e02e8c1df3f0851250526d89fd81d8448 (diff) | |
Elimination du '
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1000 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -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 dc8732df07..6b90f3f000 100644 --- a/tactics/tauto.ml4 +++ b/tactics/tauto.ml4 @@ -63,7 +63,7 @@ let simplif () = <:tactic< $t_not_dep_intros; Repeat - '('(Match Context With + ((Match Context With | [id: (?1 ? ?) |- ?] -> $t_is_conj;Elim id;Do 2 Intro;Clear id | [id: (?1 ? ?) |- ?] -> $t_is_disj;Elim id;Intro;Clear id | [id: (?1 ?2 ?3) -> ?4|- ?] -> @@ -89,7 +89,7 @@ let rec tauto_main () = Intros;Apply id;Assumption]|Clear id]|Intros;Apply id;Intros; Assumption];$t_tauto_main | [|- (?1 ? ?)] -> - $t_is_disj;'(Left;$t_tauto_main) Orelse '(Right;$t_tauto_main)>> + $t_is_disj;(Left;$t_tauto_main) Orelse (Right;$t_tauto_main)>> let intuition_main () = let t_axioms = tacticIn axioms |