diff options
| author | barras | 2008-05-28 15:25:19 +0000 |
|---|---|---|
| committer | barras | 2008-05-28 15:25:19 +0000 |
| commit | e96a3afb03ee4a6d4dfb3efa18186a1ffca38e3a (patch) | |
| tree | f3ae1f127640a8c74b46fe91da8c72ca9d60a275 /pretyping/reductionops.ml | |
| parent | 15a5135b3fbf24aae59e12d0a02f3df4ac8e56ee (diff) | |
introduced Termops.eq_constr (and constr_cmp) that compares terms up to alpha AND universe erasure
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11010 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/reductionops.ml')
| -rw-r--r-- | pretyping/reductionops.ml | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/pretyping/reductionops.ml b/pretyping/reductionops.ml index 5f5b47783a..055d2e51b3 100644 --- a/pretyping/reductionops.ml +++ b/pretyping/reductionops.ml @@ -616,14 +616,6 @@ let pb_equal = function let sort_cmp = sort_cmp -let base_sort_cmp pb s0 s1 = - match (s0,s1) with - | (Prop c1, Prop c2) -> c1 = Null or c2 = Pos (* Prop <= Set *) - | (Prop c1, Type u) -> pb = CUMUL - | (Type u1, Type u2) -> true - | _ -> false - - let test_conversion f env sigma x y = try let _ = f env (nf_evar sigma x) (nf_evar sigma y) in true with NotConvertible -> false |