diff options
author | 2009-06-02 22:00:18 +0000 | |
---|---|---|
committer | 2009-06-02 22:00:18 +0000 | |
commit | 006d5665a34d515a37984fd35b0992b9a5603b36 (patch) | |
tree | 262030fac72755126e43618fe866e05f1f0f219e /pretyping | |
parent | a52b0929a8ed4ca3df088adfbc596815550b76ba (diff) |
Adding a regression test about Bauer's example on coq-club of
rewriting using eta.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12161 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
-rw-r--r-- | pretyping/reductionops.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/reductionops.ml b/pretyping/reductionops.ml index 17d8e5d80..1bff68cbf 100644 --- a/pretyping/reductionops.ml +++ b/pretyping/reductionops.ml @@ -624,8 +624,8 @@ let test_trans_conversion f reds env sigma x y = try let _ = f reds env (nf_evar sigma x) (nf_evar sigma y) in true with NotConvertible -> false -let is_trans_conv env sigma = test_trans_conversion Reduction.trans_conv env sigma -let is_trans_conv_leq env sigma = test_trans_conversion Reduction.trans_conv_leq env sigma +let is_trans_conv reds env sigma = test_trans_conversion Reduction.trans_conv reds env sigma +let is_trans_conv_leq reds env sigma = test_trans_conversion Reduction.trans_conv_leq reds env sigma let is_trans_fconv = function | CONV -> is_trans_conv | CUMUL -> is_trans_conv_leq (********************************************************************) |