diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-02-14 15:37:23 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-02-14 15:37:23 +0000 |
| commit | 045c85f66a65c6aaedeed578d352c6de27d5e6a4 (patch) | |
| tree | a6617b65dbdc4cde78a91efbb5988a02b9f331a8 /tactics/inv.ml | |
| parent | 9db1a6780253c42cf381e796787f68e2d95c544a (diff) | |
Centralisation des références à des globaux de Coq dans Coqlib (ex-Stdlib) et suppression Stock
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1380 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/inv.ml')
| -rw-r--r-- | tactics/inv.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tactics/inv.ml b/tactics/inv.ml index da43bd0eb..9b81e87e6 100644 --- a/tactics/inv.ml +++ b/tactics/inv.ml @@ -52,13 +52,13 @@ open Pattern let dest_match_eq gls eqn = try - pf_matches gls (eq_pattern ()) eqn + pf_matches gls (Coqlib.build_coq_eq_pattern ()) eqn with PatternMatchingFailure -> (try - pf_matches gls (eqT_pattern ()) eqn + pf_matches gls (Coqlib.build_coq_eqT_pattern ()) eqn with PatternMatchingFailure -> (try - pf_matches gls (idT_pattern ()) eqn + pf_matches gls (Coqlib.build_coq_idT_pattern ()) eqn with PatternMatchingFailure -> errorlabstrm "dest_match_eq" [< 'sTR "no primitive equality here" >])) |