diff options
| author | herbelin | 2000-04-28 19:11:52 +0000 |
|---|---|---|
| committer | herbelin | 2000-04-28 19:11:52 +0000 |
| commit | 14d08596263d9247b7a32bc6528f0a649e6f7908 (patch) | |
| tree | 02ba3c281bc095d5fad380e64a6e201ed6c03d27 /tactics/equality.ml | |
| parent | ad6d5fe6353ec5faf0a39f844fa58673cf50cff0 (diff) | |
Déplacement du type reference dans Term
Découpage de tactics/pattern en proofs/pattern et tactics/hipattern
Renommage des fonctions somatch and co dans Pattern et Tacticals
Divers extensions pour utiliser les constr_pattern
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@383 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/equality.ml')
| -rw-r--r-- | tactics/equality.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index ff62150a0b..e1fe98148c 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -18,6 +18,7 @@ open Proof_trees open Logic open Wcclausenv open Pattern +open Hipattern open Tacticals open Tactics open Tacinterp @@ -526,12 +527,12 @@ let rec build_discriminator sigma env dirn c sort = function | _ -> assert false let dest_somatch_eq eqn eq_pat = - match dest_somatch eqn eq_pat with + match matches eqn eq_pat with | [t;x;y] -> (t,x,y) | _ -> anomaly "dest_somatch_eq: an eq pattern should match 3 terms" let find_eq_data_decompose eqn = - if (somatches eqn eq_pattern) then + if (matches eqn eq_pattern) then (eq, dest_somatch_eq eqn eq_pattern) else if (somatches eqn eqT_pattern) then (eqT, dest_somatch_eq eqn eqT_pattern) |