diff options
| author | filliatr | 2000-01-21 18:42:22 +0000 |
|---|---|---|
| committer | filliatr | 2000-01-21 18:42:22 +0000 |
| commit | 40183da6b54d8deef242bac074079617d4a657c2 (patch) | |
| tree | 4e70870a5b1e36ba65965f6e87cd8141d01d8d75 /tactics/pattern.ml | |
| parent | 249c6b5e1e2d00549dde9093e134df2f25a68609 (diff) | |
gros commit de tout ce que j'ai fait pendant les vacances :
- tactics/Equality
- debug du discharge
- constr_of_compattern implante vite fait / mal fait en attendant mieux
- theories/Logic (ne passe pas entierrement)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@280 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/pattern.ml')
| -rw-r--r-- | tactics/pattern.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tactics/pattern.ml b/tactics/pattern.ml index 3038933e9a..239b5e84f3 100644 --- a/tactics/pattern.ml +++ b/tactics/pattern.ml @@ -42,7 +42,7 @@ let parse_pattern s = raw_sopattern_of_compattern (Global.env()) com let (pattern_stock : constr Stock.stock) = - Stock.make_stock {name="PATTERN";proc=parse_pattern} + Stock.make_stock { name = "PATTERN"; proc = parse_pattern } let make_module_marker = Stock.make_module_marker pattern_stock let put_pat = Stock.stock pattern_stock @@ -306,8 +306,8 @@ let match_with_equation t = | IsMutInd ind -> let constr_types = Global.mind_lc_without_abstractions ind in - let refl_rel_term1 = put_pat mmk "(A:?)(x:A)(? A x x)" in - let refl_rel_term2 = put_pat mmk "(x:?)(? x x)" in + let refl_rel_term1 = put_pat mmk "(A : ?)(x:A)(? A x x)" in + let refl_rel_term2 = put_pat mmk "(x : ?)(? x x)" in let nconstr = Global.mind_nconstr ind in if nconstr = 1 && (somatches constr_types.(0) refl_rel_term1 || |