diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-03-11 17:52:13 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-03-11 17:52:13 +0000 |
commit | fb88992f1d451949b42ecf296428041e8b282509 (patch) | |
tree | 24edf91fecd470381c3630ea34c347d33baf03ef /tactics/hipattern.ml | |
parent | 4966ccb5056fc8973361c7947b2dbbefc5f9620f (diff) |
code obsolete
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5455 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/hipattern.ml')
-rw-r--r-- | tactics/hipattern.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/hipattern.ml b/tactics/hipattern.ml index 2748ab467..73aaa6b0d 100644 --- a/tactics/hipattern.ml +++ b/tactics/hipattern.ml @@ -256,7 +256,7 @@ let rec first_match matcher = function let coq_eq_pattern_gen eq = lazy (PApp(PRef (Lazy.force eq), [|mkPMeta 1;mkPMeta 2;mkPMeta 3|])) let coq_eq_pattern = coq_eq_pattern_gen coq_eq_ref -let coq_eqT_pattern = coq_eq_pattern_gen coq_eqT_ref +(*let coq_eqT_pattern = coq_eq_pattern_gen coq_eqT_ref*) let coq_idT_pattern = coq_eq_pattern_gen coq_idT_ref let match_eq eqn eq_pat = @@ -268,7 +268,7 @@ let match_eq eqn eq_pat = let equalities = [coq_eq_pattern, build_coq_eq_data; - coq_eqT_pattern, build_coq_eqT_data; +(* coq_eqT_pattern, build_coq_eqT_data;*) coq_idT_pattern, build_coq_idT_data] let find_eq_data_decompose eqn = (* fails with PatternMatchingFailure *) |